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"; | |
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 LH |
137 | $alignbytes = '4'; |
138 | $cstflags = 2; | |
396e9e6f | 139 | } |
140 | elsif ($p9p_objtype eq '68020') { | |
141 | $objext = '.2'; | |
16da7c01 LH |
142 | $alignbytes = '2'; |
143 | $cstflags = 0; | |
396e9e6f | 144 | } |
145 | elsif ($p9p_objtype eq 'mips') { | |
146 | $objext = '.v'; | |
16da7c01 LH |
147 | $alignbytes = '8'; |
148 | $cstflags = 0; | |
396e9e6f | 149 | } |
150 | elsif ($p9p_objtype eq 'sparc') { | |
151 | $objext = '.k'; | |
16da7c01 | 152 | $alignbytes = '4'; |
396e9e6f | 153 | $cstflags = 0; |
154 | } | |
16da7c01 LH |
155 | print OUT "obj_ext='$objext'\n"; |
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 GS |
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 |