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