[p5sagit/p5-mst-13.2.git] / plan9 / genconfig.pl

#!../miniperl
# Habit . . .
#
# Extract info from config.h, and add extra data here, to generate config.sh
# Edit the static information after __END__ to reflect your site and options
# that went into your perl binary.  In addition, values which change from run
# to run may be supplied on the command line as key=val pairs.
#
# Last Modified: 28-Jun-1996  Luther Huffman  lutherh@stratcom.com
#

#==== Locations of installed Perl components
$p9pvers="_P9P_VERSION";
$prefix='';
$p9p_objtype=$ENV{'objtype'};
$builddir="/sys/src/cmd/perl/$p9pvers";
$installbin="/$p9p_objtype/bin";
$installman1dir="/sys/man/1";
$installman3dir="/sys/man/2";
$installprivlib="/sys/lib/perl";
$installarchlib = "/$p9p_objtype/lib/perl/$p9pvers";
$archname="plan9_$p9p_objtype";
$installsitelib="$installprivlib/site_perl";
$installsitearch="$installarchlib/site_perl";
$installscript="/bin";

unshift(@INC,'lib');  # In case someone didn't define Perl_Root
                      # before the build

if ($ARGV[0] eq '-f') {
  open(ARGS,$ARGV[1]) or die "Can't read data from $ARGV[1]: $!\n";
  @ARGV = ();
  while (<ARGS>) {
    push(@ARGV,split(/\|/,$_));
  }
  close ARGS;
}

if (-f "config.h") { $infile = "config.h"; $outdir = "../"; }
elsif (-f "plan9/config.h") { $infile = "plan9/config.h";  $outdir = "./"; }

if ($infile) { print "Generating config.sh from $infile . . .\n"; }
else { die <<EndOfGasp;
Can't find config.h to read!
	Please run this script from the perl source directory or
	the plan9 subdirectory in the distribution.
EndOfGasp
}
$outdir = '';
open(IN,"$infile") || die "Can't open $infile: $!\n";
open(OUT,">${outdir}config.sh") || die "Can't open ${outdir}config.sh: $!\n";

$time = localtime;
$cf_by = $ENV{'user'};
($vers = $]) =~ tr/./_/;

# Plan 9 doesn't actually use version numbering. Following the original Unix
# precedent of assigning a Unix edition number based on the edition number
# of the manuals, I am referring to this as Plan 9, 1st edition.
$osvers = '1';

print OUT <<EndOfIntro;
# This file generated by genconfig.pl on a Plan 9 system.
# Input obtained from:
#     $infile
#     $0
# Time: $time

package='perl5'
CONFIG='true'
cf_time='$time'
cf_by='$cf_by'
ccdlflags=''
cccdlflags=''
libpth='$installprivlib'
ld='pcc'
lddlflags=''
ranlib=''
ar='ar'
nroff='/bin/nroff'
eunicefix=':'
hint='none'
hintfile=''
intsize='4'
longsize='4'
shortsize='2'
shrplib='define'
usemymalloc='n'
usevfork='true'
useposix='true'
spitshell='cat'
dlsrc='dl_none.c'
binexp='$installbin'
man1ext=''
man3ext=''
arch='$archname'
archname='$archname'
osname='plan9'
extensions='IO Socket Opcode Fcntl POSIX DynaLoader FileHandle'
osvers='$osvers'
sig_maxsig='19'
sig_name='ZERO HUP INT QUIT ILL ABRT FPE KILL SEGV PIPE ALRM TERM USR1 USR2 CHLD CONT STOP TSTP TTIN TTOU'
sig_num='0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19'
sig_numsig='20'
prefix='$prefix'
builddir='$builddir'
installbin='$installbin'
installman1dir='$installman1dir'
installman3dir='$installman3dir'
installprivlib='$installprivlib'
installarchlib='$installarchlib'
installsitelib='$installsitelib'
installsitearch='$installsitearch'
installscript='$installscript'
scriptdir='$installscript'
scriptdirexp='$installscript'
EndOfIntro

# Plan 9 compiler stuff
print OUT "cc='pcc'\n";
print OUT "d_attribute_format='undef'\n";
print OUT "d_attribute_malloc='undef'\n";
print OUT "d_attribute_nonnull='undef'\n";
print OUT "d_attribute_noreturn='undef'\n";
print OUT "d_attribute_pure='undef'\n";
print OUT "d_attribute_unused='undef'\n";
print OUT "d_attribute_warn_unused_result='undef'\n";
print OUT "d_socket='define'\n";
print OUT "d_sockpair='define'\n";
print OUT "d_sigsetjmp='define'\n";
print OUT "sigjmp_buf='sigjmp_buf'\n";
print OUT "sigsetjmp='sigsetjmp(buf,save_mask)'\n";
print OUT "siglongjmp='siglongjmp(buf,retval) '\n";
print OUT "exe_ext=''\n";
if ($p9p_objtype eq '386') {
	$objext = '.8';
	$alignbytes = '4';
	$cstflags = 2;
}
elsif ($p9p_objtype eq '68020') {
	$objext = '.2';
	$alignbytes = '2';
	$cstflags = 0;
}
elsif ($p9p_objtype eq 'mips') {
	$objext = '.v';
	$alignbytes = '8';
	$cstflags = 0;
}
elsif ($p9p_objtype eq 'sparc') {
	$objext = '.k';
	$alignbytes = '4';
	$cstflags = 0;
}
print OUT "obj_ext='$objext'\n";
print OUT "alignbytes='$alignbytes'\n";
print OUT "castflags='$cstflags'\n";

$myname = $ENV{'site'} ;
($myhostname,$mydomain) = split(/\./,$myname,2);
print OUT "myhostname='$myhostname'\n" if $myhostname;
if ($mydomain) {
  print OUT "mydomain='.$mydomain'\n";
  print OUT "perladmin='$cf_by\@$myhostname.$mydomain'\n";
  print OUT "cf_email='$cf_by\@$myhostname.$mydomain'\n";
}
else {
  print OUT "perladmin='$cf_by'\n";
  print OUT "cf_email='$cf_by'\n";
}
print OUT "myuname='Plan9 $myname $osvers $p9p_objtype'\n";

# Before we read the C header file, find out what config.sh constants are
# equivalent to the C preprocessor macros
if (open(SH,"${outdir}config_h.SH")) {
  while (<SH>) {
    next unless m%^#(?!if).*\$%;
    s/^#//; s!(.*?)\s*/\*.*!$1!;
    my(@words) = split;
    $words[1] =~ s/\(.*//;  # Clip off args from macro
    # Did we use a shell variable for the preprocessor directive?
    if ($words[0] =~ m!^\$(\w+)!) { $pp_vars{$words[1]} = $1; }
    if (@words > 2) {  # We may also have a shell var in the value
      shift @words;              #  Discard preprocessor directive
      my($token) = shift @words; #  and keep constant name
      my($word);
      foreach $word (@words) {
        next unless $word =~ m!\$(\w+)!;
        $val_vars{$token} = $1;
        last;
      }
    }
  }
  close SH;
}
else { warn "Couldn't read ${outfile}config_h.SH: $!\n"; }
$pp_vars{PLAN9} = 'define'; #Plan 9 specific

# OK, now read the C header file, and retcon statements into config.sh
while (<IN>) {  # roll through the comment header in config.h
  last if /config-start/;
}

while (<IN>) {
  chop;
  while (/\\\s*$/) {  # pick up contination lines
    my $line = $_;
    $line =~ s/\\\s*$//;
    $_ = <IN>;
    s/^\s*//;
    $_ = $line . $_;
  }              
  next unless my ($blocked,$un,$token,$val) =
                 m%^(\/\*)?\s*\#\s*(un)?def\w*\s+([A-Za-z0-9]\w+)\S*\s*(.*)%;
  if (/config-skip/) {
    delete $pp_vars{$token} if exists $pp_vars{$token};
    delete $val_vars{$token} if exists $val_vars{$token};
    next;
  }
  $val =~ s!\s*/\*.*!!; # strip off trailing comment
  my($had_val); # Maybe a macro with args that we just #undefd or commented
  if (!length($val) and $val_vars{$token} and ($un || $blocked)) {
    print OUT "$val_vars{$token}=''\n";
    delete $val_vars{$token};
    $had_val = 1;
  }
  $state = ($blocked || $un) ? 'undef' : 'define';
  if ($pp_vars{$token}) {
    print OUT "$pp_vars{$token}='$state'\n";
    delete $pp_vars{$token};
  }
  elsif (not length $val and not $had_val) {
    # Wups -- should have been shell var for C preprocessor directive
    warn "Constant $token not found in config_h.SH\n";
    $token =~ tr/A-Z/a-z/;
    $token = "d_$token" unless $token =~ /^i_/;
    print OUT "$token='$state'\n";
  }
  next unless length $val;
  $val =~ s/^"//; $val =~ s/"$//;               # remove end quotes
  $val =~ s/","/ /g;                            # make signal list look nice
 
 if ($val_vars{$token}) {
    print OUT "$val_vars{$token}='$val'\n";
    if ($val_vars{$token} =~ s/exp$//) {print OUT "$val_vars{$token}='$val'\n";}
    delete $val_vars{$token};
  }
  elsif (!$pp_vars{$token}) {  # Haven't seen it previously, either
    warn "Constant $token not found in config_h.SH (val=|$val|)\n";
    $token =~ tr/A-Z/a-z/;
    print OUT "$token='$val'\n";
    if ($token =~ s/exp$//) {print OUT "$token='$val'\n";}
  }
}
close IN;

foreach (sort keys %pp_vars) {
  warn "Didn't see $_ in $infile\n";
}
foreach (sort keys %val_vars) {
  warn "Didn't see $_ in $infile(val)\n";
}


# print OUT "libs='",join(' ',@libs),"'\n";
# print OUT "libc='",join(' ',@crtls),"'\n";

if (open(PL,"${outdir}patchlevel.h")) {
  while (<PL>) {
    if    (/^#define PERL_VERSION\s+(\S+)/) {
      print OUT "PERL_VERSION='$1'\n";
      print OUT "PATCHLEVEL='$1'\n";		# XXX compat
    }
    elsif (/^#define PERL_SUBVERSION\s+(\S+)/) {
      print OUT "PERL_SUBVERSION='$1'\n";
      print OUT "SUBVERSION='$1'\n";		# XXX compat
    }
  }
  close PL;
}
else { warn "Can't read ${outdir}patchlevel.h - skipping 'PERL_VERSION'"; }

print OUT "pager='/bin/p'\n";

close OUT;
Commit	Line	Data
396e9e6f	1	#!../miniperl
	2	# Habit . . .
	3	#
	4	# Extract info from config.h, and add extra data here, to generate config.sh
	5	# Edit the static information after __END__ to reflect your site and options
	6	# that went into your perl binary. In addition, values which change from run
	7	# to run may be supplied on the command line as key=val pairs.
	8	#
	9	# Last Modified: 28-Jun-1996 Luther Huffman lutherh@stratcom.com
	10	#
	11
	12	#==== Locations of installed Perl components
760ac839	13	$p9pvers="_P9P_VERSION";
396e9e6f	14	$prefix='';
	15	$p9p_objtype=$ENV{'objtype'};
	16	$builddir="/sys/src/cmd/perl/$p9pvers";
	17	$installbin="/$p9p_objtype/bin";
	18	$installman1dir="/sys/man/1";
	19	$installman3dir="/sys/man/2";
	20	$installprivlib="/sys/lib/perl";
	21	$installarchlib = "/$p9p_objtype/lib/perl/$p9pvers";
	22	$archname="plan9_$p9p_objtype";
	23	$installsitelib="$installprivlib/site_perl";
	24	$installsitearch="$installarchlib/site_perl";
	25	$installscript="/bin";
	26
	27	unshift(@INC,'lib'); # In case someone didn't define Perl_Root
	28	# before the build
	29
	30	if ($ARGV[0] eq '-f') {
	31	open(ARGS,$ARGV[1]) or die "Can't read data from $ARGV[1]: $!\n";
	32	@ARGV = ();
	33	while (<ARGS>) {
	34	push(@ARGV,split(/\\|/,$_));
	35	}
	36	close ARGS;
	37	}
	38
	39	if (-f "config.h") { $infile = "config.h"; $outdir = "../"; }
	40	elsif (-f "plan9/config.h") { $infile = "plan9/config.h"; $outdir = "./"; }
	41
	42	if ($infile) { print "Generating config.sh from $infile . . .\n"; }
	43	else { die <<EndOfGasp;
	44	Can't find config.h to read!
	45	Please run this script from the perl source directory or
	46	the plan9 subdirectory in the distribution.
	47	EndOfGasp
	48	}
	49	$outdir = '';
	50	open(IN,"$infile") \|\| die "Can't open $infile: $!\n";
	51	open(OUT,">${outdir}config.sh") \|\| die "Can't open ${outdir}config.sh: $!\n";
	52
	53	$time = localtime;
	54	$cf_by = $ENV{'user'};
	55	($vers = $]) =~ tr/./_/;
	56
	57	# Plan 9 doesn't actually use version numbering. Following the original Unix
	58	# precedent of assigning a Unix edition number based on the edition number
	59	# of the manuals, I am referring to this as Plan 9, 1st edition.
	60	$osvers = '1';
	61
	62	print OUT <<EndOfIntro;
	63	# This file generated by genconfig.pl on a Plan 9 system.
	64	# Input obtained from:
	65	# $infile
	66	# $0
	67	# Time: $time
	68
	69	package='perl5'
	70	CONFIG='true'
	71	cf_time='$time'
	72	cf_by='$cf_by'
	73	ccdlflags=''
	74	cccdlflags=''
	75	libpth='$installprivlib'
	76	ld='pcc'
	77	lddlflags=''
78	ranlib=''
79	ar='ar'
80	nroff='/bin/nroff'
81	eunicefix=':'
82	hint='none'
83	hintfile=''
84	intsize='4'
82488b82	85	longsize='4'
82488b82	86	shortsize='2'
396e9e6f	87	shrplib='define'
	88	usemymalloc='n'
	89	usevfork='true'
	90	useposix='true'
	91	spitshell='cat'
	92	dlsrc='dl_none.c'
	93	binexp='$installbin'
	94	man1ext=''
	95	man3ext=''
	96	arch='$archname'
	97	archname='$archname'
	98	osname='plan9'
	99	extensions='IO Socket Opcode Fcntl POSIX DynaLoader FileHandle'
	100	osvers='$osvers'
	101	sig_maxsig='19'
	102	sig_name='ZERO HUP INT QUIT ILL ABRT FPE KILL SEGV PIPE ALRM TERM USR1 USR2 CHLD CONT STOP TSTP TTIN TTOU'
	103	sig_num='0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19'
	104	sig_numsig='20'
	105	prefix='$prefix'
	106	builddir='$builddir'
	107	installbin='$installbin'
	108	installman1dir='$installman1dir'
	109	installman3dir='$installman3dir'
	110	installprivlib='$installprivlib'
	111	installarchlib='$installarchlib'
	112	installsitelib='$installsitelib'
	113	installsitearch='$installsitearch'
	114	installscript='$installscript'
	115	scriptdir='$installscript'
	116	scriptdirexp='$installscript'
	117	EndOfIntro
	118
	119	# Plan 9 compiler stuff
	120	print OUT "cc='pcc'\n";
0dbb1585	121	print OUT "d_attribute_format='undef'\n";
	122	print OUT "d_attribute_malloc='undef'\n";
	123	print OUT "d_attribute_nonnull='undef'\n";
	124	print OUT "d_attribute_noreturn='undef'\n";
	125	print OUT "d_attribute_pure='undef'\n";
	126	print OUT "d_attribute_unused='undef'\n";
	127	print OUT "d_attribute_warn_unused_result='undef'\n";
396e9e6f	128	print OUT "d_socket='define'\n";
	129	print OUT "d_sockpair='define'\n";
	130	print OUT "d_sigsetjmp='define'\n";
	131	print OUT "sigjmp_buf='sigjmp_buf'\n";
	132	print OUT "sigsetjmp='sigsetjmp(buf,save_mask)'\n";
	133	print OUT "siglongjmp='siglongjmp(buf,retval) '\n";
	134	print OUT "exe_ext=''\n";
	135	if ($p9p_objtype eq '386') {
	136	$objext = '.8';
16da7c01	137	$alignbytes = '4';
16da7c01	138	$cstflags = 2;
396e9e6f	139	}
	140	elsif ($p9p_objtype eq '68020') {
	141	$objext = '.2';
16da7c01	142	$alignbytes = '2';
16da7c01	143	$cstflags = 0;
396e9e6f	144	}
	145	elsif ($p9p_objtype eq 'mips') {
	146	$objext = '.v';
16da7c01	147	$alignbytes = '8';
16da7c01	148	$cstflags = 0;
396e9e6f	149	}
	150	elsif ($p9p_objtype eq 'sparc') {
	151	$objext = '.k';
16da7c01	152	$alignbytes = '4';
396e9e6f	153	$cstflags = 0;
396e9e6f	154	}
16da7c01	155	print OUT "obj_ext='$objext'\n";
16da7c01	156	print OUT "alignbytes='$alignbytes'\n";
396e9e6f	157	print OUT "castflags='$cstflags'\n";
	158
	159	$myname = $ENV{'site'} ;
	160	($myhostname,$mydomain) = split(/\./,$myname,2);
	161	print OUT "myhostname='$myhostname'\n" if $myhostname;
	162	if ($mydomain) {
	163	print OUT "mydomain='.$mydomain'\n";
	164	print OUT "perladmin='$cf_by\@$myhostname.$mydomain'\n";
	165	print OUT "cf_email='$cf_by\@$myhostname.$mydomain'\n";
	166	}
	167	else {
	168	print OUT "perladmin='$cf_by'\n";
	169	print OUT "cf_email='$cf_by'\n";
	170	}
	171	print OUT "myuname='Plan9 $myname $osvers $p9p_objtype'\n";
	172
	173	# Before we read the C header file, find out what config.sh constants are
	174	# equivalent to the C preprocessor macros
	175	if (open(SH,"${outdir}config_h.SH")) {
	176	while (<SH>) {
	177	next unless m%^#(?!if).*\$%;
	178	s/^#//; s!(.?)\s/\.!$1!;
	179	my(@words) = split;
	180	$words[1] =~ s/\(.*//; # Clip off args from macro
	181	# Did we use a shell variable for the preprocessor directive?
	182	if ($words[0] =~ m!^\$(\w+)!) { $pp_vars{$words[1]} = $1; }
	183	if (@words > 2) { # We may also have a shell var in the value
	184	shift @words; # Discard preprocessor directive
	185	my($token) = shift @words; # and keep constant name
	186	my($word);
	187	foreach $word (@words) {
	188	next unless $word =~ m!\$(\w+)!;
	189	$val_vars{$token} = $1;
	190	last;
	191	}
	192	}
	193	}
	194	close SH;
	195	}
	196	else { warn "Couldn't read ${outfile}config_h.SH: $!\n"; }
	197	$pp_vars{PLAN9} = 'define'; #Plan 9 specific
	198
	199	# OK, now read the C header file, and retcon statements into config.sh
	200	while (<IN>) { # roll through the comment header in config.h
	201	last if /config-start/;
	202	}
	203
	204	while (<IN>) {
	205	chop;
	206	while (/\\\s*$/) { # pick up contination lines
	207	my $line = $_;
	208	$line =~ s/\\\s*$//;
	209	$_ = <IN>;
	210	s/^\s*//;
	211	$_ = $line . $_;
	212	}
	213	next unless my ($blocked,$un,$token,$val) =
	214	m%^(\/\)?\s\#\s(un)?def\w\s+([A-Za-z0-9]\w+)\S\s(.*)%;
	215	if (/config-skip/) {
	216	delete $pp_vars{$token} if exists $pp_vars{$token};
	217	delete $val_vars{$token} if exists $val_vars{$token};
	218	next;
	219	}
	220	$val =~ s!\s/\.*!!; # strip off trailing comment
221	my($had_val); # Maybe a macro with args that we just #undefd or commented
222	if (!length($val) and $val_vars{$token} and ($un \|\| $blocked)) {
223	print OUT "$val_vars{$token}=''\n";
224	delete $val_vars{$token};
225	$had_val = 1;
226	}
227	$state = ($blocked \|\| $un) ? 'undef' : 'define';
228	if ($pp_vars{$token}) {
229	print OUT "$pp_vars{$token}='$state'\n";
230	delete $pp_vars{$token};
231	}
232	elsif (not length $val and not $had_val) {
233	# Wups -- should have been shell var for C preprocessor directive
234	warn "Constant $token not found in config_h.SH\n";
235	$token =~ tr/A-Z/a-z/;
236	$token = "d_$token" unless $token =~ /^i_/;
237	print OUT "$token='$state'\n";
238	}
239	next unless length $val;
240	$val =~ s/^"//; $val =~ s/"$//; # remove end quotes
241	$val =~ s/","/ /g; # make signal list look nice
242
243	if ($val_vars{$token}) {
244	print OUT "$val_vars{$token}='$val'\n";
245	if ($val_vars{$token} =~ s/exp$//) {print OUT "$val_vars{$token}='$val'\n";}
246	delete $val_vars{$token};
247	}
248	elsif (!$pp_vars{$token}) { # Haven't seen it previously, either
249	warn "Constant $token not found in config_h.SH (val=\|$val\|)\n";
250	$token =~ tr/A-Z/a-z/;
251	print OUT "$token='$val'\n";
252	if ($token =~ s/exp$//) {print OUT "$token='$val'\n";}
253	}
254	}
255	close IN;
256
257	foreach (sort keys %pp_vars) {
258	warn "Didn't see $_ in $infile\n";
259	}
260	foreach (sort keys %val_vars) {
261	warn "Didn't see $_ in $infile(val)\n";
262	}
263
264
265	# print OUT "libs='",join(' ',@libs),"'\n";
266	# print OUT "libc='",join(' ',@crtls),"'\n";
267
268	if (open(PL,"${outdir}patchlevel.h")) {
269	while (<PL>) {
cceca5ed	270	if (/^#define PERL_VERSION\s+(\S+)/) {
	271	print OUT "PERL_VERSION='$1'\n";
	272	print OUT "PATCHLEVEL='$1'\n"; # XXX compat
	273	}
	274	elsif (/^#define PERL_SUBVERSION\s+(\S+)/) {
	275	print OUT "PERL_SUBVERSION='$1'\n";
	276	print OUT "SUBVERSION='$1'\n"; # XXX compat
	277	}
396e9e6f	278	}
	279	close PL;
	280	}
cceca5ed	281	else { warn "Can't read ${outdir}patchlevel.h - skipping 'PERL_VERSION'"; }
396e9e6f	282
	283	print OUT "pager='/bin/p'\n";
	284
	285	close OUT;
	286
	287