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 13$p9pvers="_P9P_VERSION"; 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 27unshift(@INC,'lib'); # In case someone didn't define Perl_Root 28 # before the build 29 30if ($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 39if (-f "config.h") { $infile = "config.h"; $outdir = "../"; } 40elsif (-f "plan9/config.h") { $infile = "plan9/config.h"; $outdir = "./"; } 41 42if ($infile) { print "Generating config.sh from $infile . . .\n"; } 43else { die <<EndOfGasp; 44Can't find config.h to read! 45 Please run this script from the perl source directory or 46 the plan9 subdirectory in the distribution. 47EndOfGasp 48} 49$outdir = ''; 50open(IN,"$infile") || die "Can't open $infile: $!\n"; 51open(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 62print 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 69package='perl5' 70CONFIG='true' 71cf_time='$time' 72cf_by='$cf_by' 73ccdlflags='' 74cccdlflags='' 75libpth='$installprivlib' 76ld='pcc' 77lddlflags='' 78ranlib='' 79ar='ar' 80nroff='/bin/nroff' 81eunicefix=':' 82hint='none' 83hintfile='' 84intsize='4' 85longsize='4' 86shortsize='2' 87shrplib='define' 88usemymalloc='n' 89usevfork='true' 90useposix='true' 91spitshell='cat' 92dlsrc='dl_none.c' 93binexp='$installbin' 94man1ext='' 95man3ext='' 96arch='$archname' 97archname='$archname' 98osname='plan9' 99extensions='IO Socket Opcode Fcntl POSIX DynaLoader FileHandle' 100osvers='$osvers' 101sig_maxsig='19' 102sig_name='ZERO HUP INT QUIT ILL ABRT FPE KILL SEGV PIPE ALRM TERM USR1 USR2 CHLD CONT STOP TSTP TTIN TTOU' 103sig_num='0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19' 104sig_numsig='20' 105prefix='$prefix' 106builddir='$builddir' 107installbin='$installbin' 108installman1dir='$installman1dir' 109installman3dir='$installman3dir' 110installprivlib='$installprivlib' 111installarchlib='$installarchlib' 112installsitelib='$installsitelib' 113installsitearch='$installsitearch' 114installscript='$installscript' 115scriptdir='$installscript' 116scriptdirexp='$installscript' 117EndOfIntro 118 119# Plan 9 compiler stuff 120print OUT "cc='pcc'\n"; 121print OUT "d_attribute_format='undef'\n"; 122print OUT "d_attribute_malloc='undef'\n"; 123print OUT "d_attribute_nonnull='undef'\n"; 124print OUT "d_attribute_noreturn='undef'\n"; 125print OUT "d_attribute_pure='undef'\n"; 126print OUT "d_attribute_unused='undef'\n"; 127print OUT "d_attribute_warn_unused_result='undef'\n"; 128print OUT "d_socket='define'\n"; 129print OUT "d_sockpair='define'\n"; 130print OUT "d_sigsetjmp='define'\n"; 131print OUT "sigjmp_buf='sigjmp_buf'\n"; 132print OUT "sigsetjmp='sigsetjmp(buf,save_mask)'\n"; 133print OUT "siglongjmp='siglongjmp(buf,retval) '\n"; 134print OUT "exe_ext=''\n"; 135if ($p9p_objtype eq '386') { 136 $objext = '.8'; 137 $alignbytes = '4'; 138 $cstflags = 2; 139} 140elsif ($p9p_objtype eq '68020') { 141 $objext = '.2'; 142 $alignbytes = '2'; 143 $cstflags = 0; 144} 145elsif ($p9p_objtype eq 'mips') { 146 $objext = '.v'; 147 $alignbytes = '8'; 148 $cstflags = 0; 149} 150elsif ($p9p_objtype eq 'sparc') { 151 $objext = '.k'; 152 $alignbytes = '4'; 153 $cstflags = 0; 154} 155print OUT "obj_ext='$objext'\n"; 156print OUT "alignbytes='$alignbytes'\n"; 157print OUT "castflags='$cstflags'\n"; 158 159$myname = $ENV{'site'} ; 160($myhostname,$mydomain) = split(/\./,$myname,2); 161print OUT "myhostname='$myhostname'\n" if $myhostname; 162if ($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} 167else { 168 print OUT "perladmin='$cf_by'\n"; 169 print OUT "cf_email='$cf_by'\n"; 170} 171print 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 175if (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} 196else { 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 200while (<IN>) { # roll through the comment header in config.h 201 last if /config-start/; 202} 203 204while (<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} 255close IN; 256 257foreach (sort keys %pp_vars) { 258 warn "Didn't see $_ in $infile\n"; 259} 260foreach (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 268if (open(PL,"${outdir}patchlevel.h")) { 269 while (<PL>) { 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 } 278 } 279 close PL; 280} 281else { warn "Can't read ${outdir}patchlevel.h - skipping 'PERL_VERSION'"; } 282 283print OUT "pager='/bin/p'\n"; 284 285close OUT; 286 287 288