perl-5.34.0/win32/config_sh.PL

46 my %opt;
50     $opt{$1}=$2;
57 FindExt::set_static_extensions(split ' ', $opt{static_ext});
59 $opt{nonxs_ext}        = join(' ',FindExt::nonxs_ext()) || ' ';
60 $opt{static_ext}       = join(' ',FindExt::static_ext()) || ' ';
61 $opt{dynamic_ext}      = join(' ',FindExt::dynamic_ext()) || ' ';
62 $opt{extensions}       = join(' ',FindExt::extensions()) || ' ';
63 $opt{known_extensions} = join(' ',FindExt::known_extensions()) || ' ';
71 	    $opt{$1} = $2;
84     chomp($opt{PERL_PATCHLEVEL} = <$fh>);
88 $opt{version} = "$opt{PERL_REVISION}.$opt{PERL_VERSION}.$opt{PERL_SUBVERSION}";
89 $opt{version_patchlevel_string} = "version $opt{PERL_VERSION} subversion $opt{PERL_SUBVERSION}";
90 $opt{version_patchlevel_string} .= " patch $opt{PERL_PATCHLEVEL}" if exists $opt{PERL_PATCHLEVEL};
93 $opt{osvers} = $ver =~ /\b(\d+(?:\.\d+)+)\b/ ? $1 : '4.0';
95 if (exists $opt{cc}) {
97     if ($opt{cc} =~ /\b(?:cl|icl)/) { #MSVC can come as clarm.exe, icl=Intel C
98         my $output = `$opt{cc} 2>&1`;
99         $opt{ccversion} = $output =~ /\b(\d+(?:\.\d+)+)\b/ ? $1 : '?';
101     elsif ($opt{cc} =~ /\bgcc\b/) {
102         chomp($opt{gccversion} = `$opt{cc} -dumpversion`);
106 $opt{cf_by} = $ENV{USERNAME} unless $opt{cf_by};
107 if (!$opt{cf_email}) {
111     $opt{cf_email} = $opt{cf_by} . '@' . $computername;
113 $opt{usemymalloc} = 'y' if $opt{d_mymalloc} eq 'define';
115 $opt{libpth} = mungepath($opt{libpth}) if exists $opt{libpth};
116 $opt{incpath} = mungepath($opt{incpath}) if exists $opt{incpath};
119 if ($opt{cc} =~ /\b(?:cl|icl)/) {
122 elsif ($opt{cc} =~ /\bgcc\b/) {
127 if ($opt{WIN64} eq 'define') {
128     $opt{d_atoll} = 'define';
129     $opt{d_strtoll} = 'define';
130     $opt{d_strtoull} = 'define';
131     $opt{ptrsize} = 8;
132     $opt{sizesize} = 8;
133     $opt{ssizetype} = $int64;
134     $opt{st_ino_size} = 8;
137     $opt{d_atoll} = 'undef';
138     $opt{d_strtoll} = 'undef';
139     $opt{d_strtoull} = 'undef';
140     $opt{ptrsize} = 4;
141     $opt{sizesize} = 4;
142     $opt{ssizetype} = 'int';
143     $opt{st_ino_size} = 4;
147 if ($opt{use64bitint} eq 'define') {
148     if ($opt{uselongdouble} eq 'define' || $opt{usequadmath} eq 'define') {
149         $opt{d_nv_preserves_uv} = 'define';
150         $opt{nv_preserves_uv_bits} = 64;
153         $opt{d_nv_preserves_uv} = 'undef';
154         $opt{nv_preserves_uv_bits} = 53;
156     $opt{ivdformat} = qq{"I64d"};
157     $opt{ivsize} = 8;
158     $opt{ivtype} = $int64;
159     $opt{sPRIXU64} = qq{"I64X"};
160     $opt{sPRId64} = qq{"I64d"};
161     $opt{sPRIi64} = qq{"I64i"};
162     $opt{sPRIo64} = qq{"I64o"};
163     $opt{sPRIu64} = qq{"I64u"};
164     $opt{sPRIx64} = qq{"I64x"};
165     $opt{uvXUformat} = qq{"I64X"};
166     $opt{uvoformat} = qq{"I64o"};
167     $opt{uvsize} = 8;
168     $opt{uvtype} = qq{unsigned $int64};
169     $opt{uvuformat} = qq{"I64u"};
170     $opt{uvxformat} = qq{"I64x"};
173     $opt{d_nv_preserves_uv} = 'define';
174     $opt{ivdformat} = '"ld"';
175     $opt{ivsize} = 4;
176     $opt{ivtype} = 'long';
177     $opt{nv_preserves_uv_bits} = 32;
178     $opt{sPRIXU64} = '"lX"';
179     $opt{sPRId64} = '"ld"';
180     $opt{sPRIi64} = '"li"';
181     $opt{sPRIo64} = '"lo"';
182     $opt{sPRIu64} = '"lu"';
183     $opt{sPRIx64} = '"lx"';
184     $opt{uvXUformat} = '"lX"';
185     $opt{uvoformat} = '"lo"';
186     $opt{uvsize} = 4;
187     $opt{uvtype} = 'unsigned long';
188     $opt{uvuformat} = '"lu"';
189     $opt{uvxformat} = '"lx"';
192 unless ($opt{cc} =~ /\bcl/) {
193     if ($opt{WIN64} eq 'define') {
194         $opt{longdblsize} = 16;
195 …$opt{longdblinfbytes} = '0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x80, 0xff, 0x7f, 0x00, 0x00, 0…
196 …$opt{longdblnanbytes} = '0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xc0, 0xff, 0xff, 0x00, 0x00, 0…
199         $opt{longdblsize} = 12;
200 …  $opt{longdblinfbytes} = '0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x80, 0xff, 0x7f, 0x00, 0x00';
201 …  $opt{longdblnanbytes} = '0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xc0, 0xff, 0xff, 0x00, 0x00';
206 if ($opt{uselongdouble} eq 'define') {
207     $opt{d_Gconvert} = 'sprintf((b),"%.*""Lg",(n),(x))';
208     $opt{d_PRIEUldbl} = 'define';
209     $opt{d_PRIFUldbl} = 'define';
210     $opt{d_PRIGUldbl} = 'define';
211     $opt{d_modflproto} = 'define';
212     $opt{d_strtold} = 'define';
213     $opt{d_PRIeldbl} = 'define';
214     $opt{d_PRIfldbl} = 'define';
215     $opt{d_PRIgldbl} = 'define';
216     $opt{d_SCNfldbl} = 'define';
217     $opt{nvsize} = $opt{longdblsize};
218     $opt{nvtype} = 'long double';
219 …$opt{nv_overflows_integers_at} = '256.0*256.0*256.0*256.0*256.0*256.0*256.0*2.0*2.0*2.0*2.0*2.0*2.…
220     $opt{nvEUformat} = '"LE"';
221     $opt{nvFUformat} = '"LF"';
222     $opt{nvGUformat} = '"LG"';
223     $opt{nveformat} = '"Le"';
224     $opt{nvfformat} = '"Lf"';
225     $opt{nvgformat} = '"Lg"';
226     $opt{nvmantbits} = 64;
227     $opt{longdblkind} = 3;
228     $opt{longdblmantbits} = 64;
231 elsif ($opt{usequadmath} eq 'define') {
232     $opt{d_Gconvert} = 'sprintf((b),"%.*""Lg",(n),(x))';
233     $opt{d_PRIEUldbl} = 'define';
234     $opt{d_PRIFUldbl} = 'define';
235     $opt{d_PRIGUldbl} = 'define';
236     $opt{d_modflproto} = 'define';
237     $opt{d_strtold} = 'define';
238     $opt{d_PRIeldbl} = 'define';
239     $opt{d_PRIfldbl} = 'define';
240     $opt{d_PRIgldbl} = 'define';
241     $opt{d_SCNfldbl} = 'define';
242 …$opt{nv_overflows_integers_at} = '256.0*256.0*256.0*256.0*256.0*256.0*256.0*256.0*256.0*256.0*256.…
243     $opt{nvsize} = 16;
244     $opt{nvtype} = '__float128';
245     $opt{nvEUformat} = '"QE"';
246     $opt{nvFUformat} = '"QF"';
247     $opt{nvGUformat} = '"QG"';
248     $opt{nveformat} = '"Qe"';
249     $opt{nvfformat} = '"Qf"';
250     $opt{nvgformat} = '"Qg"';
251     $opt{nvmantbits} = 112;
252     $opt{longdblkind} = 3;
253     $opt{longdblmantbits} = 64;
254     $opt{i_quadmath} = 'define';
257     $opt{d_Gconvert} = 'sprintf((b),"%.*g",(n),(x))';
258     $opt{d_PRIEUldbl} = 'undef';
259     $opt{d_PRIFUldbl} = 'undef';
260     $opt{d_PRIGUldbl} = 'undef';
262     if($opt{cc} =~ /\b(?:cl|icl)/) {
263         $opt{d_modflproto} = 'undef';
266         $opt{d_modflproto} = 'define';
269     $opt{d_strtold} = 'undef';
270     $opt{d_PRIeldbl} = 'undef';
271     $opt{d_PRIfldbl} = 'undef';
272     $opt{d_PRIgldbl} = 'undef';
273     $opt{d_SCNfldbl} = 'undef';
274     $opt{nvsize} = 8;
275     $opt{nvtype} = 'double';
276     $opt{nv_overflows_integers_at} = '256.0*256.0*256.0*256.0*256.0*256.0*2.0*2.0*2.0*2.0*2.0';
277     $opt{nvEUformat} = '"E"';
278     $opt{nvFUformat} = '"F"';
279     $opt{nvGUformat} = '"G"';
280     $opt{nveformat} = '"e"';
281     $opt{nvfformat} = '"f"';
282     $opt{nvgformat} = '"g"';
286 if ($opt{cc} =~ /\bcl/ and $opt{ccversion} =~ /^(\d+)/) {
289 	$opt{sGMTIME_max} = 32535291599;
290 	$opt{sLOCALTIME_max} = 32535244799;
293 	$opt{i_stdint} = 'define';
296 	$opt{stdio_base} = 'PERLIO_FILE_base(fp)';
297 	$opt{stdio_bufsiz} = '(PERLIO_FILE_cnt(fp) + PERLIO_FILE_ptr(fp) - PERLIO_FILE_base(fp))';
298 	$opt{stdio_cnt} = 'PERLIO_FILE_cnt(fp)';
299 	$opt{stdio_ptr} = 'PERLIO_FILE_ptr(fp)';
300 	$opt{i_stdbool} = 'define' unless $prebuilt;
304 elsif ($opt{cc} =~ /\bicl/) {
308 	$opt{sGMTIME_max} = 32535291599;
309 	$opt{sLOCALTIME_max} = 32535244799;
312 	$opt{i_stdint} = 'define';
315 	$opt{stdio_base} = 'PERLIO_FILE_base(fp)';
316 	$opt{stdio_bufsiz} = '(PERLIO_FILE_cnt(fp) + PERLIO_FILE_ptr(fp) - PERLIO_FILE_base(fp))';
317 	$opt{stdio_cnt} = 'PERLIO_FILE_cnt(fp)';
318 	$opt{stdio_ptr} = 'PERLIO_FILE_ptr(fp)';
319 	$opt{i_stdbool} = 'define';
321     $opt{ar} ='xilib';
324 if ($opt{useithreads} eq 'define' && $opt{ccflags} =~ /-DPERL_IMPLICIT_SYS\b/) {
325     $opt{d_pseudofork} = 'define';
328 if ($opt{usecplusplus} eq 'define') {
329     $opt{d_cplusplus} = 'define';
330     $opt{extern_C} = 'extern "C"';
336     s/~([\w_]+)~/exists $opt{$1} ? $opt{$1} : ''/eg;
344 	elsif (exists $opt{$k}) {
345 	    $_ = "$k='$opt{$k}'\n";