perl-5.30.3/win32/config_sh.PL

40 my %opt;
44     $opt{$1}=$2;
51 FindExt::set_static_extensions(split ' ', $opt{static_ext});
53 $opt{nonxs_ext}        = join(' ',FindExt::nonxs_ext()) || ' ';
54 $opt{static_ext}       = join(' ',FindExt::static_ext()) || ' ';
55 $opt{dynamic_ext}      = join(' ',FindExt::dynamic_ext()) || ' ';
56 $opt{extensions}       = join(' ',FindExt::extensions()) || ' ';
57 $opt{known_extensions} = join(' ',FindExt::known_extensions()) || ' ';
65 	    $opt{$1} = $2;
78     chomp($opt{PERL_PATCHLEVEL} = <$fh>);
82 $opt{version} = "$opt{PERL_REVISION}.$opt{PERL_VERSION}.$opt{PERL_SUBVERSION}";
83 $opt{version_patchlevel_string} = "version $opt{PERL_VERSION} subversion $opt{PERL_SUBVERSION}";
84 $opt{version_patchlevel_string} .= " patch $opt{PERL_PATCHLEVEL}" if exists $opt{PERL_PATCHLEVEL};
87 $opt{osvers} = $ver =~ /\b(\d+(?:\.\d+)+)\b/ ? $1 : '4.0';
89 if (exists $opt{cc}) {
91     if ($opt{cc} =~ /\b(?:cl|icl)/) { #MSVC can come as clarm.exe, icl=Intel C
92         my $output = `$opt{cc} 2>&1`;
93         $opt{ccversion} = $output =~ /\b(\d+(?:\.\d+)+)\b/ ? $1 : '?';
95     elsif ($opt{cc} =~ /\bgcc\b/) {
96         chomp($opt{gccversion} = `$opt{cc} -dumpversion`);
100 $opt{cf_by} = $ENV{USERNAME} unless $opt{cf_by};
101 if (!$opt{cf_email}) {
105     $opt{cf_email} = $opt{cf_by} . '@' . $computername;
107 $opt{usemymalloc} = 'y' if $opt{d_mymalloc} eq 'define';
109 $opt{libpth} = mungepath($opt{libpth}) if exists $opt{libpth};
110 $opt{incpath} = mungepath($opt{incpath}) if exists $opt{incpath};
113 if ($opt{cc} =~ /\b(?:cl|icl)/) {
116 elsif ($opt{cc} =~ /\bgcc\b/) {
121 if ($opt{uselargefiles} eq 'define') {
122     $opt{lseeksize} = 8;
123     $opt{lseektype} = $int64;
126     $opt{lseeksize} = 4;
127     $opt{lseektype} = 'long';
131 if ($opt{WIN64} eq 'define') {
132     $opt{d_atoll} = 'define';
133     $opt{d_strtoll} = 'define';
134     $opt{d_strtoull} = 'define';
135     $opt{ptrsize} = 8;
136     $opt{sizesize} = 8;
137     $opt{ssizetype} = $int64;
138     $opt{st_ino_size} = 8;
141     $opt{d_atoll} = 'undef';
142     $opt{d_strtoll} = 'undef';
143     $opt{d_strtoull} = 'undef';
144     $opt{ptrsize} = 4;
145     $opt{sizesize} = 4;
146     $opt{ssizetype} = 'int';
147     $opt{st_ino_size} = 4;
151 if ($opt{use64bitint} eq 'define') {
152     if ($opt{uselongdouble} eq 'define') {
153         $opt{d_nv_preserves_uv} = 'define';
154         $opt{nv_preserves_uv_bits} = 64;
157         $opt{d_nv_preserves_uv} = 'undef';
158         $opt{nv_preserves_uv_bits} = 53;
160     $opt{ivdformat} = qq{"I64d"};
161     $opt{ivsize} = 8;
162     $opt{ivtype} = $int64;
163     $opt{sPRIXU64} = qq{"I64X"};
164     $opt{sPRId64} = qq{"I64d"};
165     $opt{sPRIi64} = qq{"I64i"};
166     $opt{sPRIo64} = qq{"I64o"};
167     $opt{sPRIu64} = qq{"I64u"};
168     $opt{sPRIx64} = qq{"I64x"};
169     $opt{uvXUformat} = qq{"I64X"};
170     $opt{uvoformat} = qq{"I64o"};
171     $opt{uvsize} = 8;
172     $opt{uvtype} = qq{unsigned $int64};
173     $opt{uvuformat} = qq{"I64u"};
174     $opt{uvxformat} = qq{"I64x"};
177     $opt{d_nv_preserves_uv} = 'define';
178     $opt{ivdformat} = '"ld"';
179     $opt{ivsize} = 4;
180     $opt{ivtype} = 'long';
181     $opt{nv_preserves_uv_bits} = 32;
182     $opt{sPRIXU64} = '"lX"';
183     $opt{sPRId64} = '"ld"';
184     $opt{sPRIi64} = '"li"';
185     $opt{sPRIo64} = '"lo"';
186     $opt{sPRIu64} = '"lu"';
187     $opt{sPRIx64} = '"lx"';
188     $opt{uvXUformat} = '"lX"';
189     $opt{uvoformat} = '"lo"';
190     $opt{uvsize} = 4;
191     $opt{uvtype} = 'unsigned long';
192     $opt{uvuformat} = '"lu"';
193     $opt{uvxformat} = '"lx"';
196 unless ($opt{cc} =~ /\bcl/) {
197     if ($opt{WIN64} eq 'define') {
198         $opt{longdblsize} = 16;
199 …$opt{longdblinfbytes} = '0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x80, 0xff, 0x7f, 0x00, 0x00, 0…
200 …$opt{longdblnanbytes} = '0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xc0, 0xff, 0xff, 0x00, 0x00, 0…
203         $opt{longdblsize} = 12;
204 …  $opt{longdblinfbytes} = '0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x80, 0xff, 0x7f, 0x00, 0x00';
205 …  $opt{longdblnanbytes} = '0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xc0, 0xff, 0xff, 0x00, 0x00';
210 if ($opt{uselongdouble} eq 'define') {
211     $opt{d_Gconvert} = 'sprintf((b),"%.*""Lg",(n),(x))';
212     $opt{d_PRIEUldbl} = 'define';
213     $opt{d_PRIFUldbl} = 'define';
214     $opt{d_PRIGUldbl} = 'define';
215     $opt{d_modflproto} = 'define';
216     $opt{d_strtold} = 'define';
217     $opt{d_PRIeldbl} = 'define';
218     $opt{d_PRIfldbl} = 'define';
219     $opt{d_PRIgldbl} = 'define';
220     $opt{d_SCNfldbl} = 'define';
221     $opt{nvsize} = $opt{longdblsize};
222     $opt{nvtype} = 'long double';
223 …$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.…
224     $opt{nvEUformat} = '"LE"';
225     $opt{nvFUformat} = '"LF"';
226     $opt{nvGUformat} = '"LG"';
227     $opt{nveformat} = '"Le"';
228     $opt{nvfformat} = '"Lf"';
229     $opt{nvgformat} = '"Lg"';
230     $opt{longdblkind} = 3;
231     $opt{longdblmantbits} = 64;
234     $opt{d_Gconvert} = 'sprintf((b),"%.*g",(n),(x))';
235     $opt{d_PRIEUldbl} = 'undef';
236     $opt{d_PRIFUldbl} = 'undef';
237     $opt{d_PRIGUldbl} = 'undef';
239     if($opt{cc} =~ /\b(?:cl|icl)/) {
240         $opt{d_modflproto} = 'undef';
243         $opt{d_modflproto} = 'define';
246     $opt{d_strtold} = 'undef';
247     $opt{d_PRIeldbl} = 'undef';
248     $opt{d_PRIfldbl} = 'undef';
249     $opt{d_PRIgldbl} = 'undef';
250     $opt{d_SCNfldbl} = 'undef';
251     $opt{nvsize} = 8;
252     $opt{nvtype} = 'double';
253     $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';
254     $opt{nvEUformat} = '"E"';
255     $opt{nvFUformat} = '"F"';
256     $opt{nvGUformat} = '"G"';
257     $opt{nveformat} = '"e"';
258     $opt{nvfformat} = '"f"';
259     $opt{nvgformat} = '"g"';
263 if ($opt{cc} =~ /\bcl/ and $opt{ccversion} =~ /^(\d+)/) {
266 	$opt{ar} ='lib';
269 	$opt{sGMTIME_max} = 32535291599;
270 	$opt{sLOCALTIME_max} = 32535244799;
273 	$opt{i_stdint} = 'define';
276 	$opt{stdio_base} = 'PERLIO_FILE_base(fp)';
277 	$opt{stdio_bufsiz} = '(PERLIO_FILE_cnt(fp) + PERLIO_FILE_ptr(fp) - PERLIO_FILE_base(fp))';
278 	$opt{stdio_cnt} = 'PERLIO_FILE_cnt(fp)';
279 	$opt{stdio_ptr} = 'PERLIO_FILE_ptr(fp)';
280 	$opt{i_stdbool} = 'define';
284 elsif ($opt{cc} =~ /\bicl/) {
288 	$opt{sGMTIME_max} = 32535291599;
289 	$opt{sLOCALTIME_max} = 32535244799;
292 	$opt{i_stdint} = 'define';
295 	$opt{stdio_base} = 'PERLIO_FILE_base(fp)';
296 	$opt{stdio_bufsiz} = '(PERLIO_FILE_cnt(fp) + PERLIO_FILE_ptr(fp) - PERLIO_FILE_base(fp))';
297 	$opt{stdio_cnt} = 'PERLIO_FILE_cnt(fp)';
298 	$opt{stdio_ptr} = 'PERLIO_FILE_ptr(fp)';
299 	$opt{i_stdbool} = 'define';
301     $opt{ar} ='xilib';
304 if ($opt{useithreads} eq 'define' && $opt{ccflags} =~ /-DPERL_IMPLICIT_SYS\b/) {
305     $opt{d_pseudofork} = 'define';
308 if ($opt{usecplusplus} eq 'define') {
309     $opt{d_cplusplus} = 'define';
310     $opt{extern_C} = 'extern "C"';
316     s/~([\w_]+)~/exists $opt{$1} ? $opt{$1} : ''/eg;
324 	elsif (exists $opt{$k}) {
325 	    $_ = "$k='$opt{$k}'\n";