S_del_body is sufficiently small that inlining it is a space win.
[p5sagit/p5-mst-13.2.git] / plan9 / genconfig.pl
CommitLineData
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
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'
82488b82 85longsize='4'
86shortsize='2'
396e9e6f 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";
0dbb1585 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";
396e9e6f 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';
16da7c01 137 $alignbytes = '4';
138 $cstflags = 2;
396e9e6f 139}
140elsif ($p9p_objtype eq '68020') {
141 $objext = '.2';
16da7c01 142 $alignbytes = '2';
143 $cstflags = 0;
396e9e6f 144}
145elsif ($p9p_objtype eq 'mips') {
146 $objext = '.v';
16da7c01 147 $alignbytes = '8';
148 $cstflags = 0;
396e9e6f 149}
150elsif ($p9p_objtype eq 'sparc') {
151 $objext = '.k';
16da7c01 152 $alignbytes = '4';
396e9e6f 153 $cstflags = 0;
154}
16da7c01 155print OUT "obj_ext='$objext'\n";
156print OUT "alignbytes='$alignbytes'\n";
396e9e6f 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>) {
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 281else { warn "Can't read ${outdir}patchlevel.h - skipping 'PERL_VERSION'"; }
396e9e6f 282
283print OUT "pager='/bin/p'\n";
284
285close OUT;
286
287