plan9/genconfig.pl

   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
  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'
  85 longsize='4'
  86 shortsize='2'
  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";
 121 print OUT "d_attribut='undef'\n";
 122 print OUT "d_socket='define'\n";
 123 print OUT "d_sockpair='define'\n";
 124 print OUT "d_sigsetjmp='define'\n";
 125 print OUT "sigjmp_buf='sigjmp_buf'\n";
 126 print OUT "sigsetjmp='sigsetjmp(buf,save_mask)'\n";
 127 print OUT "siglongjmp='siglongjmp(buf,retval) '\n";
 128 print OUT "exe_ext=''\n";
 129 if ($p9p_objtype eq '386') {
 130         $objext = '.8';
 131         $alignbytes = '4';
 132         $cstflags = 2;
 133 }
 134 elsif ($p9p_objtype eq '68020') {
 135         $objext = '.2';
 136         $alignbytes = '2';
 137         $cstflags = 0;
 138 }
 139 elsif ($p9p_objtype eq 'mips') {
 140         $objext = '.v';
 141         $alignbytes = '8';
 142         $cstflags = 0;
 143 }
 144 elsif ($p9p_objtype eq 'sparc') {
 145         $objext = '.k';
 146         $alignbytes = '4';
 147         $cstflags = 0;
 148 }
 149 print OUT "obj_ext='$objext'\n";
 150 print OUT "alignbytes='$alignbytes'\n";
 151 print OUT "castflags='$cstflags'\n";
 152
 153 $myname = $ENV{'site'} ;
 154 ($myhostname,$mydomain) = split(/\./,$myname,2);
 155 print OUT "myhostname='$myhostname'\n" if $myhostname;
 156 if ($mydomain) {
 157   print OUT "mydomain='.$mydomain'\n";
 158   print OUT "perladmin='$cf_by\@$myhostname.$mydomain'\n";
 159   print OUT "cf_email='$cf_by\@$myhostname.$mydomain'\n";
 160 }
 161 else {
 162   print OUT "perladmin='$cf_by'\n";
 163   print OUT "cf_email='$cf_by'\n";
 164 }
 165 print OUT "myuname='Plan9 $myname $osvers $p9p_objtype'\n";
 166
 167 # Before we read the C header file, find out what config.sh constants are
 168 # equivalent to the C preprocessor macros
 169 if (open(SH,"${outdir}config_h.SH")) {
 170   while (<SH>) {
 171     next unless m%^#(?!if).*\$%;
 172     s/^#//; s!(.*?)\s*/\*.*!$1!;
 173     my(@words) = split;
 174     $words[1] =~ s/\(.*//;  # Clip off args from macro
 175     # Did we use a shell variable for the preprocessor directive?
 176     if ($words[0] =~ m!^\$(\w+)!) { $pp_vars{$words[1]} = $1; }
 177     if (@words > 2) {  # We may also have a shell var in the value
 178       shift @words;              #  Discard preprocessor directive
 179       my($token) = shift @words; #  and keep constant name
 180       my($word);
 181       foreach $word (@words) {
 182         next unless $word =~ m!\$(\w+)!;
 183         $val_vars{$token} = $1;
 184         last;
 185       }
 186     }
 187   }
 188   close SH;
 189 }
 190 else { warn "Couldn't read ${outfile}config_h.SH: $!\n"; }
 191 $pp_vars{PLAN9} = 'define'; #Plan 9 specific
 192
 193 # OK, now read the C header file, and retcon statements into config.sh
 194 while (<IN>) {  # roll through the comment header in config.h
 195   last if /config-start/;
 196 }
 197
 198 while (<IN>) {
 199   chop;
 200   while (/\\\s*$/) {  # pick up contination lines
 201     my $line = $_;
 202     $line =~ s/\\\s*$//;
 203     $_ = <IN>;
 204     s/^\s*//;
 205     $_ = $line . $_;
 206   }
 207   next unless my ($blocked,$un,$token,$val) =
 208                  m%^(\/\*)?\s*\#\s*(un)?def\w*\s+([A-Za-z0-9]\w+)\S*\s*(.*)%;
 209   if (/config-skip/) {
 210     delete $pp_vars{$token} if exists $pp_vars{$token};
 211     delete $val_vars{$token} if exists $val_vars{$token};
 212     next;
 213   }
 214   $val =~ s!\s*/\*.*!!; # strip off trailing comment
 215   my($had_val); # Maybe a macro with args that we just #undefd or commented
 216   if (!length($val) and $val_vars{$token} and ($un || $blocked)) {
 217     print OUT "$val_vars{$token}=''\n";
 218     delete $val_vars{$token};
 219     $had_val = 1;
 220   }
 221   $state = ($blocked || $un) ? 'undef' : 'define';
 222   if ($pp_vars{$token}) {
 223     print OUT "$pp_vars{$token}='$state'\n";
 224     delete $pp_vars{$token};
 225   }
 226   elsif (not length $val and not $had_val) {
 227     # Wups -- should have been shell var for C preprocessor directive
 228     warn "Constant $token not found in config_h.SH\n";
 229     $token =~ tr/A-Z/a-z/;
 230     $token = "d_$token" unless $token =~ /^i_/;
 231     print OUT "$token='$state'\n";
 232   }
 233   next unless length $val;
 234   $val =~ s/^"//; $val =~ s/"$//;               # remove end quotes
 235   $val =~ s/","/ /g;                            # make signal list look nice
 236
 237  if ($val_vars{$token}) {
 238     print OUT "$val_vars{$token}='$val'\n";
 239     if ($val_vars{$token} =~ s/exp$//) {print OUT "$val_vars{$token}='$val'\n";}
 240     delete $val_vars{$token};
 241   }
 242   elsif (!$pp_vars{$token}) {  # Haven't seen it previously, either
 243     warn "Constant $token not found in config_h.SH (val=|$val|)\n";
 244     $token =~ tr/A-Z/a-z/;
 245     print OUT "$token='$val'\n";
 246     if ($token =~ s/exp$//) {print OUT "$token='$val'\n";}
 247   }
 248 }
 249 close IN;
 250
 251 foreach (sort keys %pp_vars) {
 252   warn "Didn't see $_ in $infile\n";
 253 }
 254 foreach (sort keys %val_vars) {
 255   warn "Didn't see $_ in $infile(val)\n";
 256 }
 257
 258
 259 # print OUT "libs='",join(' ',@libs),"'\n";
 260 # print OUT "libc='",join(' ',@crtls),"'\n";
 261
 262 if (open(PL,"${outdir}patchlevel.h")) {
 263   while (<PL>) {
 264     if    (/^#define PERL_VERSION\s+(\S+)/) {
 265       print OUT "PERL_VERSION='$1'\n";
 266       print OUT "PATCHLEVEL='$1'\n";            # XXX compat
 267     }
 268     elsif (/^#define PERL_SUBVERSION\s+(\S+)/) {
 269       print OUT "PERL_SUBVERSION='$1'\n";
 270       print OUT "SUBVERSION='$1'\n";            # XXX compat
 271     }
 272   }
 273   close PL;
 274 }
 275 else { warn "Can't read ${outdir}patchlevel.h - skipping 'PERL_VERSION'"; }
 276
 277 print OUT "pager='/bin/p'\n";
 278
 279 close OUT;
 280
 281