This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
fix thread issue with PERL_GLOBAL_STRUCT
[perl5.git] / makedef.pl
CommitLineData
3df97b6d 1#./perl -w
549a6b10
JH
2#
3# Create the export list for perl.
4#
86593e8d 5# Needed by WIN32 and OS/2 for creating perl.dll,
60fae896 6# and by AIX for creating libperl.a when -Duseshrplib is in effect,
93ea32b8 7# and by VMS for creating perlshr.exe.
549a6b10 8#
3523994b
DM
9# Reads from information stored in
10#
208d7614 11# %Config::Config (ie config.sh)
3523994b 12# config.h
d500e60d 13# embed.fnc
3523994b
DM
14# globvar.sym
15# intrpvar.h
3523994b
DM
16# miniperl.map (on OS/2)
17# perl5.def (on OS/2; this is the old version of the file being made)
18# perlio.sym
19# perlvars.h
d500e60d 20# regen/opcodes
3523994b 21#
bf09e1bd 22# plus long lists of function names hard-coded directly in this script.
3523994b
DM
23#
24# Writes the result to STDOUT.
25#
26# Normally this script is invoked from a makefile (e.g. win32/Makefile),
27# which redirects STDOUT to a suitable file, such as:
28#
29# perl5.def OS/2
30# perldll.def Windows
31# perl.exp AIX
32# perl.imp NetWare
93ea32b8 33# makedef.lis VMS
c560d966 34
196f7c46
DD
35my $fold;
36my %ARGS;
d6035849 37my %define;
910dfcc8 38
196f7c46
DD
39BEGIN {
40 BEGIN { unshift @INC, "lib" }
41 use Config;
42 use strict;
5d4e58dc 43
196f7c46 44 %ARGS = (CCTYPE => 'MSVC', TARG_DIR => '');
c1b34f5f 45
196f7c46
DD
46 sub process_cc_flags {
47 foreach (map {split /\s+/, $_} @_) {
48 $define{$1} = $2 // 1 if /^-D(\w+)(?:=(.+))?/;
49 }
5c728af0 50 }
d55594ae 51
196f7c46
DD
52 while (@ARGV) {
53 my $flag = shift;
54 if ($flag =~ /^(?:CC_FLAGS=)?(-D\w.*)/) {
55 process_cc_flags($1);
56 } elsif ($flag =~ /^(CCTYPE|FILETYPE|PLATFORM|TARG_DIR)=(.+)$/) {
57 $ARGS{$1} = $2;
58 } elsif ($flag eq '--sort-fold') {
59 ++$fold;
60 }
61 }
1f7ae1be 62 my @PLATFORM = qw(aix win32 wince os2 netware vms test);
29200a82
NC
63 my %PLATFORM;
64 @PLATFORM{@PLATFORM} = ();
549a6b10 65
29200a82
NC
66 die "PLATFORM undefined, must be one of: @PLATFORM\n"
67 unless defined $ARGS{PLATFORM};
68 die "PLATFORM must be one of: @PLATFORM\n"
69 unless exists $PLATFORM{$ARGS{PLATFORM}};
70}
196f7c46
DD
71use constant PLATFORM => $ARGS{PLATFORM};
72
3d7c117d 73require "./$ARGS{TARG_DIR}regen/embed_lib.pl";
549a6b10 74
208d7614
NC
75# Is the following guard strictly necessary? Added during refactoring
76# to keep the same behaviour when merging other code into here.
c1b34f5f 77process_cc_flags(@Config{qw(ccflags optimize)})
0dc3711c
NC
78 if $ARGS{PLATFORM} ne 'win32' && $ARGS{PLATFORM} ne 'wince'
79 && $ARGS{PLATFORM} ne 'netware';
208d7614 80
c960bcfd
NC
81# Add the compile-time options that miniperl was built with to %define.
82# On Win32 these are not the same options as perl itself will be built
83# with since miniperl is built with a canned config (one of the win32/
84# config_H.*) and none of the BUILDOPT's that are set in the makefiles,
85# but they do include some #define's that are hard-coded in various
86# source files and header files and don't include any BUILDOPT's that
87# the user might have chosen to disable because the canned configs are
88# minimal configs that don't include any of those options.
89
61b311ca
DD
90#don't use the host Perl's -V defines for the WinCE Perl
91if($ARGS{PLATFORM} ne 'wince') {
92 my @options = sort(Config::bincompat_options(), Config::non_bincompat_options());
93 print STDERR "Options: (@options)\n" unless $ARGS{PLATFORM} eq 'test';
94 $define{$_} = 1 foreach @options;
95}
17bdc114 96
c6261f3b
JH
97my %exportperlmalloc =
98 (
99 Perl_malloc => "malloc",
100 Perl_mfree => "free",
101 Perl_realloc => "realloc",
102 Perl_calloc => "calloc",
103 );
104
0dc3711c 105my $exportperlmalloc = $ARGS{PLATFORM} eq 'os2';
c6261f3b 106
9f88ff7a 107my $config_h = 'config.h';
61b311ca 108open(CFG, '<', $config_h) || die "Cannot open $config_h: $!\n";
7766f137 109while (<CFG>) {
1f0041ed 110 $define{$1} = 1 if /^\s*\#\s*define\s+(MYMALLOC|MULTIPLICITY
dc2a396b 111 |KILL_BY_SIGPRC
1f0041ed 112 |(?:PERL|USE|HAS)_\w+)\b/x;
7766f137 113}
bbc8f9de
NIS
114close(CFG);
115
18c4b137
JH
116# perl.h logic duplication begins
117
118if ($define{USE_ITHREADS}) {
acfe0abc 119 if (!$define{MULTIPLICITY}) {
18c4b137
JH
120 $define{MULTIPLICITY} = 1;
121 }
122}
123
124$define{PERL_IMPLICIT_CONTEXT} ||=
125 $define{USE_ITHREADS} ||
18c4b137
JH
126 $define{MULTIPLICITY} ;
127
7ee02ac1 128if ($define{USE_ITHREADS} && $ARGS{PLATFORM} ne 'win32' && $ARGS{PLATFORM} ne 'netware') {
10bc17b6
JH
129 $define{USE_REENTRANT_API} = 1;
130}
131
e1895adc 132if ( ($define{USE_ITHREADS} || $define{USE_THREAD_SAFE_LOCALE})
5a53bf38
KW
133 && $define{HAS_SETLOCALE}
134 && ! $define{NO_LOCALE}
135 && ! $define{NO_POSIX_2008_LOCALE})
136{
137 $define{HAS_POSIX_2008_LOCALE} = 1 if $define{HAS_NEWLOCALE}
138 && $define{HAS_FREELOCALE}
139 && $define{HAS_USELOCALE};
140 my $cctype = $ARGS{CCTYPE} =~ s/MSVC//r;
141 if ( ! $define{NO_THREAD_SAFE_LOCALE}
142 && ( $define{HAS_POSIX_2008_LOCALE}
143 || ($ARGS{PLATFORM} eq 'win32' && ( $cctype !~ /\D/
144 && $cctype >= 80))))
145 {
146 $define{USE_THREAD_SAFE_LOCALE} = 1;
147 $define{USE_POSIX_2008_LOCALE} = 1 if $define{HAS_POSIX_2008_LOCALE};
148 }
149
150 if ( $ARGS{PLATFORM} eq 'win32'
151 && $define{USE_THREAD_SAFE_LOCALE}
152 && $cctype < 140)
153 {
154 $define{TS_W32_BROKEN_LOCALECONV} = 1;
155 }
156}
157
18c4b137
JH
158# perl.h logic duplication ends
159
1f7ae1be
NC
160print STDERR "Defines: (" . join(' ', sort keys %define) . ")\n"
161 unless $ARGS{PLATFORM} eq 'test';
dcddf0a3 162
d6035849
NC
163my $sym_ord = 0;
164my %ordinal;
165
0dc3711c 166if ($ARGS{PLATFORM} eq 'os2') {
52e4c282
IZ
167 if (open my $fh, '<', 'perl5.def') {
168 while (<$fh>) {
169 last if /^\s*EXPORTS\b/;
170 }
171 while (<$fh>) {
78232bc0 172 $ordinal{$1} = $2 if /^\s*"(\w+)"\s*(?:=\s*"\w+"\s*)?\@(\d+)\s*$/;
52e4c282
IZ
173 # This allows skipping ordinals which were used in older versions
174 $sym_ord = $1 if /^\s*;\s*LAST_ORDINAL\s*=\s*(\d+)\s*$/;
175 }
176 $sym_ord < $_ and $sym_ord = $_ for values %ordinal; # Take the max
177 }
2986a63f 178}
bbc8f9de 179
44c17813
NC
180my %skip;
181# All platforms export boot_DynaLoader unconditionally.
182my %export = ( boot_DynaLoader => 1 );
183
430d15ed
NC
184sub try_symbols {
185 foreach my $symbol (@_) {
44c17813
NC
186 ++$export{$symbol} unless exists $skip{$symbol};
187 }
188}
189
190sub readvar {
191 # $hash is the hash that we're adding to. For one of our callers, it will
192 # actually be the skip hash but that doesn't affect the intent of what
193 # we're doing, as in that case we skip adding something to the skip hash
194 # for the second time.
195
321600e1
NC
196 my $file = $ARGS{TARG_DIR} . shift;
197 my $hash = shift;
198 my $proc = shift;
44c17813
NC
199 open my $vars, '<', $file or die die "Cannot open $file: $!\n";
200
201 while (<$vars>) {
202 # All symbols have a Perl_ prefix because that's what embed.h sticks
203 # in front of them. The A?I?S?C? is strictly speaking wrong.
115ff745 204 next unless /\bPERLVAR(A?I?S?C?)\(([IGT]),\s*(\w+)/;
44c17813
NC
205
206 my $var = "PL_$3";
207 my $symbol = $proc ? &$proc($1,$2,$3) : $var;
208 ++$hash->{$symbol} unless exists $skip{$var};
51371543 209 }
22239a37
NIS
210}
211
0dc3711c 212if ($ARGS{PLATFORM} ne 'os2') {
e7c4906b 213 ++$skip{$_} foreach qw(
f2921293
NC
214 PL_cryptseen
215 PL_opsave
216 Perl_GetVars
217 Perl_dump_fds
218 Perl_my_bcopy
219 Perl_my_bzero
220 Perl_my_chsize
221 Perl_my_htonl
222 Perl_my_memcmp
223 Perl_my_memset
224 Perl_my_ntohl
225 Perl_my_swap
e7c4906b 226 );
0dc3711c 227 if ($ARGS{PLATFORM} eq 'vms') {
e7c4906b 228 ++$skip{PL_statusvalue_posix};
4b476daa
CB
229 # This is a wrapper if we have symlink, not a replacement
230 # if we don't.
231 ++$skip{Perl_my_symlink} unless $Config{d_symlink};
c36317f0 232 } else {
e7c4906b 233 ++$skip{PL_statusvalue_vms};
483efd0a 234 ++$skip{PL_perllib_sep};
0dc3711c 235 if ($ARGS{PLATFORM} ne 'aix') {
e7c4906b 236 ++$skip{$_} foreach qw(
c36317f0
NC
237 PL_DBcv
238 PL_generation
239 PL_lastgotoprobe
240 PL_modcount
c36317f0 241 main
e7c4906b 242 );
c36317f0
NC
243 }
244 }
f2921293
NC
245}
246
0dc3711c 247if ($ARGS{PLATFORM} ne 'vms') {
c36317f0 248 # VMS does its own thing for these symbols.
e7c4906b 249 ++$skip{$_} foreach qw(
c36317f0
NC
250 PL_sig_handlers_initted
251 PL_sig_ignoring
252 PL_sig_defaulting
e7c4906b 253 );
0dc3711c 254 if ($ARGS{PLATFORM} ne 'win32') {
e7c4906b 255 ++$skip{$_} foreach qw(
c36317f0
NC
256 Perl_do_spawn
257 Perl_do_spawn_nowait
258 Perl_do_aspawn
e7c4906b 259 );
c36317f0 260 }
7766f137 261}
c36317f0 262
bfb2a8f9
CB
263if ($ARGS{PLATFORM} ne 'win32') {
264 ++$skip{$_} foreach qw(
265 Perl_my_setlocale
266 );
267}
268
df39eaa8 269unless ($define{UNLINK_ALL_VERSIONS}) {
e7c4906b 270 ++$skip{Perl_unlnk};
93ea32b8 271}
3cfae81b 272
7766f137 273unless ($define{'DEBUGGING'}) {
e7c4906b 274 ++$skip{$_} foreach qw(
7766f137
GS
275 Perl_debop
276 Perl_debprofdump
277 Perl_debstack
278 Perl_debstackptrs
5cbf7fcf 279 Perl_pad_sv
b65222da 280 Perl_pad_setsv
5d1187d1 281 Perl__setlocale_debug_string
eacbb379 282 Perl_set_padlist
943795c2 283 Perl_hv_assert
7766f137
GS
284 PL_watchaddr
285 PL_watchok
e0cde265 286 PL_watch_pvx
e7c4906b 287 );
7766f137
GS
288}
289
290if ($define{'PERL_IMPLICIT_SYS'}) {
e7c4906b 291 ++$skip{$_} foreach qw(
7766f137
GS
292 Perl_my_popen
293 Perl_my_pclose
e7c4906b 294 );
2c84c919
NC
295 ++$export{$_} foreach qw(perl_get_host_info perl_alloc_override);
296 ++$export{perl_clone_host} if $define{USE_ITHREADS};
7766f137
GS
297}
298else {
e7c4906b 299 ++$skip{$_} foreach qw(
7766f137
GS
300 PL_Mem
301 PL_MemShared
302 PL_MemParse
303 PL_Env
304 PL_StdIO
305 PL_LIO
306 PL_Dir
307 PL_Sock
308 PL_Proc
2c84c919
NC
309 perl_alloc_using
310 perl_clone_using
e7c4906b 311 );
7766f137
GS
312}
313
00d484c1 314if (!$define{'PERL_COPY_ON_WRITE'} || $define{'PERL_NO_COW'}) {
e7c4906b 315 ++$skip{Perl_sv_setsv_cow};
0190f6ec
AT
316}
317
6b898924 318unless ($define{PERL_SAWAMPERSAND}) {
1a904fc8
FC
319 ++$skip{PL_sawampersand};
320}
321
5bcb3f6c 322unless ($define{'USE_REENTRANT_API'}) {
e7c4906b 323 ++$skip{PL_reentrant_buffer};
5bcb3f6c
NIS
324}
325
7766f137 326if ($define{'MYMALLOC'}) {
430d15ed 327 try_symbols(qw(
7766f137 328 Perl_dump_mstats
827e134a 329 Perl_get_mstats
9c130f5b
NIS
330 Perl_strdup
331 Perl_putenv
6af660ee
IZ
332 MallocCfg_ptr
333 MallocCfgP_ptr
430d15ed 334 ));
3cf3941e
NC
335 unless ($define{USE_ITHREADS}) {
336 ++$skip{PL_malloc_mutex}
80fc1a6e 337 }
51371543
GS
338}
339else {
e7c4906b 340 ++$skip{$_} foreach qw(
7766f137
GS
341 PL_malloc_mutex
342 Perl_dump_mstats
6ecd3fcb 343 Perl_get_mstats
6af660ee
IZ
344 MallocCfg_ptr
345 MallocCfgP_ptr
e7c4906b 346 );
7766f137
GS
347}
348
8852afe9 349if ($define{'PERL_USE_SAFE_PUTENV'}) {
e7c4906b 350 ++$skip{PL_use_safe_putenv};
8852afe9
MB
351}
352
3db8f154 353unless ($define{'USE_ITHREADS'}) {
e7c4906b 354 ++$skip{PL_thr_key};
8310e7fa 355 ++$skip{PL_user_prop_mutex};
dd52e3cc 356 ++$skip{PL_user_def_props_aTHX};
f433d095
GS
357}
358
3db8f154 359# USE_5005THREADS symbols. Kept as reference for easier removal
e7c4906b 360++$skip{$_} foreach qw(
7766f137
GS
361 PL_sv_mutex
362 PL_strtab_mutex
363 PL_svref_mutex
7766f137
GS
364 PL_cred_mutex
365 PL_eval_mutex
6940069f
GS
366 PL_fdpid_mutex
367 PL_sv_lock_mutex
7766f137
GS
368 PL_eval_cond
369 PL_eval_owner
370 PL_threads_mutex
371 PL_nthreads
372 PL_nthreads_cond
373 PL_threadnum
374 PL_threadsv_names
375 PL_thrsv
376 PL_vtbl_mutex
7766f137
GS
377 Perl_condpair_magic
378 Perl_new_struct_thread
379 Perl_per_thread_magicals
380 Perl_thread_create
381 Perl_find_threadsv
382 Perl_unlock_condpair
383 Perl_magic_mutexfree
4755096e 384 Perl_sv_lock
e7c4906b 385 );
7766f137
GS
386
387unless ($define{'USE_ITHREADS'}) {
e7c4906b 388 ++$skip{$_} foreach qw(
2b503742 389 PL_keyword_plugin_mutex
bb0d02ab 390 PL_check_mutex
534825c4 391 PL_op_mutex
7e95b20d
JH
392 PL_regex_pad
393 PL_regex_padav
e2975953 394 PL_dollarzero_mutex
b60bf3b9 395 PL_hints_mutex
929e1213 396 PL_locale_mutex
49d7d366 397 PL_lc_numeric_mutex
bffa51e2 398 PL_lc_numeric_mutex_depth
8703a9a4 399 PL_my_ctx_mutex
f1791e53 400 PL_perlio_mutex
d4d03940
FC
401 PL_stashpad
402 PL_stashpadix
403 PL_stashpadmax
61a25672 404 Perl_alloccopstash
9eb247a1 405 Perl_allocfilegv
7c425e3c
NC
406 Perl_clone_params_del
407 Perl_clone_params_new
b0bb49b6 408 Perl_parser_dup
7766f137
GS
409 Perl_dirp_dup
410 Perl_cx_dup
411 Perl_si_dup
412 Perl_any_dup
413 Perl_ss_dup
414 Perl_fp_dup
415 Perl_gp_dup
416 Perl_he_dup
417 Perl_mg_dup
7f605079 418 Perl_re_dup_guts
7766f137 419 Perl_sv_dup
7c425e3c 420 Perl_sv_dup_inc
aeef2723 421 Perl_rvpv_dup
88daff13 422 Perl_hek_dup
7766f137 423 Perl_sys_intern_dup
7766f137
GS
424 perl_clone
425 perl_clone_using
dc1061dc 426 Perl_stashpv_hvname_match
1fa600a7 427 Perl_regdupe_internal
392d04bb 428 Perl_newPADOP
e7c4906b 429 );
7766f137
GS
430}
431
36a5d907
KW
432if ( $define{NO_LOCALE}
433 || (! $define{USE_ITHREADS} && ! $define{USE_THREAD_SAFE_LOCALE}))
e1895adc
KW
434{
435 ++$skip{$_} foreach qw(
436 PL_C_locale_obj
437 PL_curlocales
438 );
439}
440
b65bff59
KW
441unless ( $define{'HAS_NEWLOCALE'}
442 && $define{'HAS_FREELOCALE'}
443 && $define{'HAS_USELOCALE'}
444 && ! $define{'NO_POSIX_2008_LOCALE'})
6ebbc862
KW
445{
446 ++$skip{$_} foreach qw(
447 PL_C_locale_obj
5b95d1b1 448 PL_underlying_numeric_obj
6ebbc862
KW
449 );
450}
451
7766f137 452unless ($define{'PERL_IMPLICIT_CONTEXT'}) {
e7c4906b 453 ++$skip{$_} foreach qw(
1f9ecdc6
SH
454 PL_my_cxt_index
455 PL_my_cxt_list
456 PL_my_cxt_size
ecb9cc66 457 PL_my_cxt_keys
04912be7 458 PL_my_cxt_keys_size
7766f137
GS
459 Perl_croak_nocontext
460 Perl_die_nocontext
461 Perl_deb_nocontext
462 Perl_form_nocontext
e0f4245d 463 Perl_load_module_nocontext
7766f137
GS
464 Perl_mess_nocontext
465 Perl_warn_nocontext
466 Perl_warner_nocontext
467 Perl_newSVpvf_nocontext
468 Perl_sv_catpvf_nocontext
469 Perl_sv_setpvf_nocontext
470 Perl_sv_catpvf_mg_nocontext
471 Perl_sv_setpvf_mg_nocontext
484eff17 472 Perl_my_cxt_init
ecb9cc66 473 Perl_my_cxt_index
e7c4906b 474 );
7766f137 475}
1fafe688 476
5a53bf38 477if ($define{USE_THREAD_SAFE_LOCALE}) {
423a80b7 478 ++$skip{PL_lc_numeric_mutex};
bffa51e2 479 ++$skip{PL_lc_numeric_mutex_depth};
5a53bf38
KW
480 if (! $define{TS_W32_BROKEN_LOCALECONV}) {
481 ++$skip{PL_locale_mutex};
482 }
423a80b7
KW
483}
484
3f6bd23a
DM
485unless ($define{'USE_DTRACE'}) {
486 ++$skip{$_} foreach qw(
487 Perl_dtrace_probe_call
488 Perl_dtrace_probe_load
489 Perl_dtrace_probe_op
490 Perl_dtrace_probe_phase
491 );
492}
493
aadb217d 494unless ($define{'PERL_NEED_APPCTX'}) {
e7c4906b 495 ++$skip{PL_appctx};
e0cde265
SH
496}
497
aadb217d 498unless ($define{'PERL_NEED_TIMESBASE'}) {
e7c4906b 499 ++$skip{PL_timesbase};
e0cde265
SH
500}
501
dfc72f41 502unless ($define{'DEBUG_LEAKING_SCALARS'}) {
e7c4906b 503 ++$skip{PL_sv_serial};
dfc72f41
NC
504}
505
808e2276 506unless ($define{'DEBUG_LEAKING_SCALARS_FORK_DUMP'}) {
e7c4906b 507 ++$skip{PL_dumper_fd};
808e2276 508}
e7c4906b 509
c69033f2 510unless ($define{'PERL_DONT_CREATE_GVSV'}) {
e7c4906b 511 ++$skip{Perl_gv_SVadd};
c69033f2 512}
e7c4906b 513
ca0c25f6 514unless ($define{'PERL_USES_PL_PIDSTATUS'}) {
e7c4906b 515 ++$skip{PL_pidstatus};
ca0c25f6 516}
808e2276 517
02ca4724 518unless ($define{'PERL_TRACK_MEMPOOL'}) {
e7c4906b 519 ++$skip{PL_memory_debug_header};
02ca4724
SP
520}
521
2a5adacc 522unless ($define{'MULTIPLICITY'}) {
e7c4906b 523 ++$skip{$_} foreach qw(
01523419 524 PL_interp_size
d399cf59 525 PL_interp_size_5_18_0
7c123f9d
DM
526 PL_sv_yes
527 PL_sv_undef
528 PL_sv_no
529 PL_sv_zero
e7c4906b 530 );
2a5adacc
JD
531}
532
533unless ($define{'PERL_GLOBAL_STRUCT'}) {
e7c4906b 534 ++$skip{PL_global_struct_size};
2a5adacc
JD
535}
536
436dbe32 537unless ($define{'PERL_GLOBAL_STRUCT_PRIVATE'}) {
e7c4906b 538 ++$skip{$_} foreach qw(
436dbe32 539 PL_my_cxt_keys
04912be7 540 PL_my_cxt_keys_size
436dbe32 541 Perl_my_cxt_index
e7c4906b 542 );
436dbe32
SH
543}
544
bd1ae5d2 545unless ($define{HAS_MMAP}) {
e7c4906b 546 ++$skip{PL_mmap_page_size};
ac6bedea
JH
547}
548
bd1ae5d2 549if ($define{HAS_SIGACTION}) {
e7c4906b 550 ++$skip{PL_sig_trapped};
662667f1
CB
551
552 if ($ARGS{PLATFORM} eq 'vms') {
553 # FAKE_PERSISTENT_SIGNAL_HANDLERS defined as !defined(HAS_SIGACTION)
554 ++$skip{PL_sig_ignoring};
dc2a396b 555 ++$skip{PL_sig_handlers_initted} unless $define{KILL_BY_SIGPRC};
662667f1 556 }
d97afc04
AT
557}
558
dc2a396b
CB
559if ($ARGS{PLATFORM} eq 'vms' && !$define{KILL_BY_SIGPRC}) {
560 # FAKE_DEFAULT_SIGNAL_HANDLERS defined as KILL_BY_SIGPRC
561 ++$skip{Perl_csighandler_init};
562 ++$skip{Perl_my_kill};
563 ++$skip{Perl_sig_to_vmscondition};
564 ++$skip{PL_sig_defaulting};
565 ++$skip{PL_sig_handlers_initted} unless !$define{HAS_SIGACTION};
566}
567
ffaed893
CB
568if ($define{'HAS_STRNLEN'})
569{
570 ++$skip{Perl_my_strnlen};
571}
572
bdcba273 573unless ($define{USE_LOCALE_COLLATE}) {
e7c4906b 574 ++$skip{$_} foreach qw(
bdcba273
NC
575 PL_collation_ix
576 PL_collation_name
577 PL_collation_standard
578 PL_collxfrm_base
579 PL_collxfrm_mult
580 Perl_sv_collxfrm
581 Perl_sv_collxfrm_flags
d36adde0
KW
582 PL_strxfrm_NUL_replacement
583 PL_strxfrm_is_behaved
584 PL_strxfrm_max_cp
e7c4906b 585 );
bdcba273
NC
586}
587
1f1ade4f 588unless ($define{USE_LOCALE_NUMERIC}) {
e7c4906b 589 ++$skip{$_} foreach qw(
1f1ade4f
NC
590 PL_numeric_local
591 PL_numeric_name
592 PL_numeric_radix_sv
593 PL_numeric_standard
d36adde0
KW
594 PL_numeric_underlying
595 PL_numeric_underlying_is_standard
596 PL_underlying_numeric_obj
e7c4906b 597 );
1f1ade4f
NC
598}
599
470dd224
JH
600unless ($define{'USE_C_BACKTRACE'}) {
601 ++$skip{Perl_get_c_backtrace_dump};
602 ++$skip{Perl_dump_c_backtrace};
603}
604
1ab20eaa 605unless ($define{HAVE_INTERP_INTERN}) {
e7c4906b 606 ++$skip{$_} foreach qw(
1ab20eaa
NC
607 Perl_sys_intern_clear
608 Perl_sys_intern_dup
609 Perl_sys_intern_init
610 PL_sys_intern
e7c4906b 611 );
1ab20eaa
NC
612}
613
47e4ddfc 614if ($define{HAS_SIGNBIT}) {
e7c4906b 615 ++$skip{Perl_signbit};
47e4ddfc
NC
616}
617
7766f137 618if ($define{'PERL_GLOBAL_STRUCT'}) {
321600e1 619 readvar('perlvars.h', \%skip);
8dd15074
NC
620 # This seems like the least ugly way to cope with the fact that PL_sh_path
621 # is mentioned in perlvar.h and globvar.sym, and always exported.
622 delete $skip{PL_sh_path};
944921d3 623 ++$export{Perl_GetVars};
d1e2f601
TC
624 try_symbols(qw(PL_Vars PL_VarsPtr))
625 unless $ARGS{CCTYPE} eq 'GCC' || $define{PERL_GLOBAL_STRUCT_PRIVATE};
aadb217d 626} else {
e7c4906b 627 ++$skip{$_} foreach qw(Perl_init_global_struct Perl_free_global_struct);
7766f137 628}
36c15d3f 629
04525552
NC
630++$skip{PL_op_exec_cnt}
631 unless $define{PERL_TRACE_OPS};
632
11c9859f
SH
633++$skip{PL_hash_chars}
634 unless $define{PERL_USE_SINGLE_CHAR_HASH_CACHE};
635
22c35a8c
GS
636# functions from *.sym files
637
d500e60d 638my @syms = qw(globvar.sym);
549a6b10 639
d892637e
NIS
640# Symbols that are the public face of the PerlIO layers implementation
641# These are in _addition to_ the public face of the abstraction
642# and need to be exported to allow XS modules to implement layers
9df9a5cd 643my @layer_syms = qw(
db76e01e
JH
644 PerlIOBase_binmode
645 PerlIOBase_clearerr
646 PerlIOBase_close
647 PerlIOBase_dup
648 PerlIOBase_eof
649 PerlIOBase_error
650 PerlIOBase_fileno
3dfd1b5c 651 PerlIOBase_open
db76e01e
JH
652 PerlIOBase_noop_fail
653 PerlIOBase_noop_ok
654 PerlIOBase_popped
7e700b9a 655 PerlIOBase_pushed
db76e01e
JH
656 PerlIOBase_read
657 PerlIOBase_setlinebuf
658 PerlIOBase_unread
659 PerlIOBuf_bufsiz
660 PerlIOBuf_close
661 PerlIOBuf_dup
662 PerlIOBuf_fill
663 PerlIOBuf_flush
664 PerlIOBuf_get_base
665 PerlIOBuf_get_cnt
666 PerlIOBuf_get_ptr
667 PerlIOBuf_open
668 PerlIOBuf_popped
669 PerlIOBuf_pushed
670 PerlIOBuf_read
671 PerlIOBuf_seek
672 PerlIOBuf_set_ptrcnt
673 PerlIOBuf_tell
674 PerlIOBuf_unread
675 PerlIOBuf_write
676 PerlIO_allocate
8ffeedc3 677 PerlIO_apply_layera
db76e01e
JH
678 PerlIO_apply_layers
679 PerlIO_arg_fetch
680 PerlIO_debug
681 PerlIO_define_layer
4dcdb34a 682 PerlIO_find_layer
51d05609 683 PerlIO_isutf8
db76e01e 684 PerlIO_layer_fetch
4dcdb34a 685 PerlIO_list_alloc
db76e01e
JH
686 PerlIO_list_free
687 PerlIO_modestr
688 PerlIO_parse_layers
689 PerlIO_pending
690 PerlIO_perlio
691 PerlIO_pop
692 PerlIO_push
693 PerlIO_sv_dup
694 Perl_PerlIO_clearerr
695 Perl_PerlIO_close
188f0c84 696 Perl_PerlIO_context_layers
db76e01e
JH
697 Perl_PerlIO_eof
698 Perl_PerlIO_error
699 Perl_PerlIO_fileno
700 Perl_PerlIO_fill
701 Perl_PerlIO_flush
702 Perl_PerlIO_get_base
703 Perl_PerlIO_get_bufsiz
704 Perl_PerlIO_get_cnt
705 Perl_PerlIO_get_ptr
706 Perl_PerlIO_read
0ea86a10
FC
707 Perl_PerlIO_restore_errno
708 Perl_PerlIO_save_errno
db76e01e
JH
709 Perl_PerlIO_seek
710 Perl_PerlIO_set_cnt
711 Perl_PerlIO_set_ptrcnt
712 Perl_PerlIO_setlinebuf
713 Perl_PerlIO_stderr
714 Perl_PerlIO_stdin
715 Perl_PerlIO_stdout
716 Perl_PerlIO_tell
717 Perl_PerlIO_unread
718 Perl_PerlIO_write
9df9a5cd 719);
0dc3711c 720if ($ARGS{PLATFORM} eq 'netware') {
a5564b91
JH
721 push(@layer_syms,'PL_def_layerlist','PL_known_layers','PL_perlio');
722}
d892637e 723
56022c66
CB
724# Export the symbols that make up the PerlIO abstraction, regardless
725# of its implementation - read from a file
726push @syms, 'perlio.sym';
d892637e 727
56022c66
CB
728# PerlIO with layers - export implementation
729try_symbols(@layer_syms, 'perlsio_binmode');
1e8a8f59 730
7766f137 731
068eadbd
JH
732unless ($define{'USE_QUADMATH'}) {
733 ++$skip{Perl_quadmath_format_needed};
734 ++$skip{Perl_quadmath_format_single};
735}
736
71afeaec
NC
737###############################################################################
738
739# At this point all skip lists should be completed, as we are about to test
740# many symbols against them.
741
d500e60d
NC
742{
743 my %seen;
744 my ($embed) = setup_embed($ARGS{TARG_DIR});
1545ba5b 745 my $excludedre = $define{'NO_MATHOMS'} ? qr/[xmib]/ : qr/[xmi]/;
d500e60d
NC
746
747 foreach (@$embed) {
748 my ($flags, $retval, $func, @args) = @$_;
749 next unless $func;
c41ed026
DD
750 if (($flags =~ /[AX]/ && $flags !~ $excludedre)
751 || (!$define{'NO_MATHOMS'} && $flags =~ /b/))
3f1866a8 752 {
d500e60d
NC
753 # public API, so export
754
755 # If a function is defined twice, for example before and after
756 # an #else, only export its name once. Important to do this test
757 # within the block, as the *first* definition may have flags which
758 # mean "don't export"
759 next if $seen{$func}++;
cbe4d57f 760 # Should we also skip adding the Perl_ prefix if $flags =~ /o/ ?
5ff52e3c 761 $func = "Perl_$func" if ($flags =~ /[pX]/ && $func !~ /^Perl_/);
d500e60d
NC
762 ++$export{$func} unless exists $skip{$func};
763 }
764 }
765}
766
321600e1
NC
767foreach (@syms) {
768 my $syms = $ARGS{TARG_DIR} . $_;
a6587d2d 769 open my $global, '<', $syms or die "failed to open $syms: $!\n";
a6587d2d
NC
770 while (<$global>) {
771 next unless /^([A-Za-z].*)/;
c774046b 772 my $symbol = "$1";
944921d3 773 ++$export{$symbol} unless exists $skip{$symbol};
7766f137 774 }
7766f137 775}
0a753a76 776
22c35a8c 777# variables
0a753a76 778
87b9e160 779if ($define{'MULTIPLICITY'} && $define{PERL_GLOBAL_STRUCT}) {
321600e1 780 readvar('perlvars.h', \%export, sub { "Perl_" . $_[1] . $_[2] . "_ptr" });
1acb48c9 781 # XXX AIX seems to want the perlvars.h symbols, for some reason
0dc3711c 782 if ($ARGS{PLATFORM} eq 'aix' or $ARGS{PLATFORM} eq 'os2') { # OS/2 needs PL_thr_key
321600e1 783 readvar('perlvars.h', \%export);
51371543
GS
784 }
785}
786else {
787 unless ($define{'PERL_GLOBAL_STRUCT'}) {
321600e1 788 readvar('perlvars.h', \%export);
9df9a5cd 789 }
87b9e160 790 unless ($define{MULTIPLICITY}) {
321600e1 791 readvar('intrpvar.h', \%export);
87b9e160 792 }
51371543 793}
0a753a76 794
bf09e1bd 795# Oddities from PerlIO
01cace46
NC
796# All have alternate implementations in perlio.c, so always exist.
797# Should they be considered to be part of the API?
430d15ed 798try_symbols(qw(
bf09e1bd
NC
799 PerlIO_binmode
800 PerlIO_getpos
801 PerlIO_init
802 PerlIO_setpos
bf09e1bd 803 PerlIO_tmpfile
430d15ed 804 ));
ac4c12e7 805
0dc3711c 806if ($ARGS{PLATFORM} eq 'win32') {
7a95c549 807 try_symbols(qw(
5581753c
NC
808 win32_free_childdir
809 win32_free_childenv
810 win32_get_childdir
811 win32_get_childenv
812 win32_spawnvp
7a95c549 813 ));
5581753c
NC
814}
815
61b311ca
DD
816if ($ARGS{PLATFORM} eq 'wince') {
817 ++$skip{'win32_isatty'}; # commit 4342f4d6df is win32-only
818}
819
0dc3711c 820if ($ARGS{PLATFORM} =~ /^win(?:32|ce)$/) {
7a95c549 821 try_symbols(qw(
7766f137 822 Perl_init_os_extras
c44d3fdb 823 Perl_thread_create
7766f137 824 Perl_win32_init
23f519f0 825 Perl_win32_term
7766f137 826 RunPerl
5290524f 827 win32_async_check
7766f137
GS
828 win32_errno
829 win32_environ
7766f137
GS
830 win32_abort
831 win32_fstat
832 win32_stat
833 win32_pipe
834 win32_popen
835 win32_pclose
836 win32_rename
837 win32_setmode
11bb82ff 838 win32_chsize
7766f137
GS
839 win32_lseek
840 win32_tell
841 win32_dup
842 win32_dup2
843 win32_open
844 win32_close
845 win32_eof
4342f4d6 846 win32_isatty
7766f137
GS
847 win32_read
848 win32_write
7766f137
GS
849 win32_mkdir
850 win32_rmdir
851 win32_chdir
852 win32_flock
853 win32_execv
854 win32_execvp
855 win32_htons
856 win32_ntohs
857 win32_htonl
858 win32_ntohl
859 win32_inet_addr
860 win32_inet_ntoa
861 win32_socket
862 win32_bind
863 win32_listen
864 win32_accept
865 win32_connect
866 win32_send
867 win32_sendto
868 win32_recv
869 win32_recvfrom
870 win32_shutdown
871 win32_closesocket
872 win32_ioctlsocket
873 win32_setsockopt
874 win32_getsockopt
875 win32_getpeername
876 win32_getsockname
877 win32_gethostname
878 win32_gethostbyname
879 win32_gethostbyaddr
880 win32_getprotobyname
881 win32_getprotobynumber
882 win32_getservbyname
883 win32_getservbyport
884 win32_select
885 win32_endhostent
886 win32_endnetent
887 win32_endprotoent
888 win32_endservent
889 win32_getnetent
890 win32_getnetbyname
891 win32_getnetbyaddr
892 win32_getprotoent
893 win32_getservent
894 win32_sethostent
895 win32_setnetent
896 win32_setprotoent
897 win32_setservent
898 win32_getenv
899 win32_putenv
900 win32_perror
7766f137
GS
901 win32_malloc
902 win32_calloc
903 win32_realloc
904 win32_free
905 win32_sleep
bbc9927b 906 win32_pause
7766f137
GS
907 win32_times
908 win32_access
909 win32_alarm
910 win32_chmod
911 win32_open_osfhandle
912 win32_get_osfhandle
913 win32_ioctl
914 win32_link
915 win32_unlink
916 win32_utime
57ab3dfe 917 win32_gettimeofday
7766f137
GS
918 win32_uname
919 win32_wait
920 win32_waitpid
921 win32_kill
922 win32_str_os_error
923 win32_opendir
924 win32_readdir
925 win32_telldir
926 win32_seekdir
927 win32_rewinddir
928 win32_closedir
929 win32_longpath
aa2b96ec 930 win32_ansipath
7766f137
GS
931 win32_os_id
932 win32_getpid
933 win32_crypt
934 win32_dynaload
df3728a2 935 win32_clearenv
00b02797
JH
936 win32_stdin
937 win32_stdout
938 win32_stderr
939 win32_ferror
940 win32_feof
941 win32_strerror
942 win32_fprintf
943 win32_printf
944 win32_vfprintf
945 win32_vprintf
946 win32_fread
947 win32_fwrite
948 win32_fopen
949 win32_fdopen
950 win32_freopen
951 win32_fclose
952 win32_fputs
953 win32_fputc
954 win32_ungetc
955 win32_getc
956 win32_fileno
957 win32_clearerr
958 win32_fflush
959 win32_ftell
960 win32_fseek
961 win32_fgetpos
962 win32_fsetpos
963 win32_rewind
964 win32_tmpfile
965 win32_setbuf
966 win32_setvbuf
967 win32_flushall
968 win32_fcloseall
969 win32_fgets
970 win32_gets
971 win32_fgetc
972 win32_putc
973 win32_puts
974 win32_getchar
975 win32_putchar
7a95c549 976 ));
549a6b10 977}
0dc3711c 978elsif ($ARGS{PLATFORM} eq 'vms') {
71afeaec
NC
979 try_symbols(qw(
980 Perl_cando
981 Perl_cando_by_name
982 Perl_closedir
983 Perl_csighandler_init
984 Perl_do_rmdir
985 Perl_fileify_dirspec
986 Perl_fileify_dirspec_ts
987 Perl_fileify_dirspec_utf8
988 Perl_fileify_dirspec_utf8_ts
989 Perl_flex_fstat
990 Perl_flex_lstat
991 Perl_flex_stat
992 Perl_kill_file
993 Perl_my_chdir
994 Perl_my_chmod
995 Perl_my_crypt
996 Perl_my_endpwent
997 Perl_my_fclose
998 Perl_my_fdopen
999 Perl_my_fgetname
1000 Perl_my_flush
1001 Perl_my_fwrite
1002 Perl_my_gconvert
1003 Perl_my_getenv
1004 Perl_my_getenv_len
71afeaec
NC
1005 Perl_my_getpwnam
1006 Perl_my_getpwuid
1007 Perl_my_gmtime
1008 Perl_my_kill
96f902ff 1009 Perl_my_killpg
71afeaec
NC
1010 Perl_my_localtime
1011 Perl_my_mkdir
1012 Perl_my_sigaction
1013 Perl_my_symlink
1014 Perl_my_time
1015 Perl_my_tmpfile
1016 Perl_my_trnlnm
1017 Perl_my_utime
1018 Perl_my_waitpid
1019 Perl_opendir
1020 Perl_pathify_dirspec
1021 Perl_pathify_dirspec_ts
1022 Perl_pathify_dirspec_utf8
1023 Perl_pathify_dirspec_utf8_ts
1024 Perl_readdir
1025 Perl_readdir_r
1026 Perl_rename
1027 Perl_rmscopy
1028 Perl_rmsexpand
1029 Perl_rmsexpand_ts
1030 Perl_rmsexpand_utf8
1031 Perl_rmsexpand_utf8_ts
1032 Perl_seekdir
1033 Perl_sig_to_vmscondition
1034 Perl_telldir
1035 Perl_tounixpath
1036 Perl_tounixpath_ts
1037 Perl_tounixpath_utf8
1038 Perl_tounixpath_utf8_ts
1039 Perl_tounixspec
1040 Perl_tounixspec_ts
1041 Perl_tounixspec_utf8
1042 Perl_tounixspec_utf8_ts
1043 Perl_tovmspath
1044 Perl_tovmspath_ts
1045 Perl_tovmspath_utf8
1046 Perl_tovmspath_utf8_ts
1047 Perl_tovmsspec
1048 Perl_tovmsspec_ts
1049 Perl_tovmsspec_utf8
1050 Perl_tovmsspec_utf8_ts
1051 Perl_trim_unixpath
1052 Perl_vms_case_tolerant
1053 Perl_vms_do_aexec
1054 Perl_vms_do_exec
1055 Perl_vms_image_init
1056 Perl_vms_realpath
1057 Perl_vmssetenv
1058 Perl_vmssetuserlnm
1059 Perl_vmstrnenv
1060 PerlIO_openn
1061 ));
1062}
0dc3711c 1063elsif ($ARGS{PLATFORM} eq 'os2') {
71afeaec
NC
1064 try_symbols(qw(
1065 ctermid
1066 get_sysinfo
1067 Perl_OS2_init
1068 Perl_OS2_init3
1069 Perl_OS2_term
1070 OS2_Perl_data
1071 dlopen
1072 dlsym
1073 dlerror
1074 dlclose
1075 dup2
1076 dup
1077 my_tmpfile
1078 my_tmpnam
1079 my_flock
1080 my_rmdir
1081 my_mkdir
1082 my_getpwuid
1083 my_getpwnam
1084 my_getpwent
1085 my_setpwent
1086 my_endpwent
1087 fork_with_resources
1088 croak_with_os2error
1089 setgrent
1090 endgrent
1091 getgrent
1092 malloc_mutex
1093 threads_mutex
1094 nthreads
1095 nthreads_cond
1096 os2_cond_wait
1097 os2_stat
1098 os2_execname
1099 async_mssleep
1100 msCounter
1101 InfoTable
1102 pthread_join
1103 pthread_create
1104 pthread_detach
1105 XS_Cwd_change_drive
1106 XS_Cwd_current_drive
1107 XS_Cwd_extLibpath
1108 XS_Cwd_extLibpath_set
1109 XS_Cwd_sys_abspath
1110 XS_Cwd_sys_chdir
1111 XS_Cwd_sys_cwd
1112 XS_Cwd_sys_is_absolute
1113 XS_Cwd_sys_is_relative
1114 XS_Cwd_sys_is_rooted
1115 XS_DynaLoader_mod2fname
1116 XS_File__Copy_syscopy
1117 Perl_Register_MQ
1118 Perl_Deregister_MQ
1119 Perl_Serve_Messages
1120 Perl_Process_Messages
1121 init_PMWIN_entries
1122 PMWIN_entries
1123 Perl_hab_GET
1124 loadByOrdinal
1125 pExtFCN
1126 os2error
1127 ResetWinError
1128 CroakWinError
1129 PL_do_undump
1130 ));
3cfae81b 1131}
0dc3711c 1132elsif ($ARGS{PLATFORM} eq 'netware') {
7a95c549 1133 try_symbols(qw(
2986a63f
JH
1134 Perl_init_os_extras
1135 Perl_thread_create
1136 Perl_nw5_init
1137 RunPerl
1138 AllocStdPerl
1139 FreeStdPerl
1140 do_spawn2
1141 do_aspawn
1142 nw_uname
1143 nw_stdin
1144 nw_stdout
1145 nw_stderr
1146 nw_feof
1147 nw_ferror
1148 nw_fopen
1149 nw_fclose
1150 nw_clearerr
1151 nw_getc
1152 nw_fgets
1153 nw_fputc
1154 nw_fputs
1155 nw_fflush
1156 nw_ungetc
1157 nw_fileno
1158 nw_fdopen
1159 nw_freopen
1160 nw_fread
1161 nw_fwrite
1162 nw_setbuf
1163 nw_setvbuf
1164 nw_vfprintf
1165 nw_ftell
1166 nw_fseek
1167 nw_rewind
1168 nw_tmpfile
1169 nw_fgetpos
1170 nw_fsetpos
1171 nw_dup
1172 nw_access
1173 nw_chmod
1174 nw_chsize
1175 nw_close
1176 nw_dup2
1177 nw_flock
1178 nw_isatty
1179 nw_link
1180 nw_lseek
1181 nw_stat
1182 nw_mktemp
1183 nw_open
1184 nw_read
1185 nw_rename
1186 nw_setmode
1187 nw_unlink
1188 nw_utime
1189 nw_write
1190 nw_chdir
1191 nw_rmdir
1192 nw_closedir
1193 nw_opendir
1194 nw_readdir
1195 nw_rewinddir
1196 nw_seekdir
1197 nw_telldir
1198 nw_htonl
1199 nw_htons
1200 nw_ntohl
1201 nw_ntohs
1202 nw_accept
1203 nw_bind
1204 nw_connect
1205 nw_endhostent
1206 nw_endnetent
1207 nw_endprotoent
1208 nw_endservent
1209 nw_gethostbyaddr
1210 nw_gethostbyname
1211 nw_gethostent
1212 nw_gethostname
1213 nw_getnetbyaddr
1214 nw_getnetbyname
1215 nw_getnetent
1216 nw_getpeername
1217 nw_getprotobyname
1218 nw_getprotobynumber
1219 nw_getprotoent
1220 nw_getservbyname
1221 nw_getservbyport
1222 nw_getservent
1223 nw_getsockname
1224 nw_getsockopt
1225 nw_inet_addr
1226 nw_listen
1227 nw_socket
1228 nw_recv
1229 nw_recvfrom
1230 nw_select
1231 nw_send
1232 nw_sendto
1233 nw_sethostent
1234 nw_setnetent
1235 nw_setprotoent
1236 nw_setservent
3a0827a6 1237 nw_setsockopt
4d76e4b4 1238 nw_inet_ntoa
2986a63f
JH
1239 nw_shutdown
1240 nw_crypt
1241 nw_execvp
1242 nw_kill
1243 nw_Popen
1244 nw_Pclose
1245 nw_Pipe
1246 nw_times
1247 nw_waitpid
1248 nw_getpid
1249 nw_spawnvp
1250 nw_os_id
1251 nw_open_osfhandle
1252 nw_get_osfhandle
1253 nw_abort
1254 nw_sleep
1255 nw_wait
1256 nw_dynaload
1257 nw_strerror
1258 fnFpSetMode
1259 fnInsertHashListAddrs
1260 fnGetHashListAddrs
1261 Perl_deb
011f1a1a
JH
1262 Perl_sv_setsv
1263 Perl_sv_catsv
1264 Perl_sv_catpvn
1265 Perl_sv_2pv
f355267c
JH
1266 nw_freeenviron
1267 Remove_Thread_Ctx
7a95c549 1268 ));
2986a63f 1269}
22239a37 1270
9661ac31
NC
1271# When added this code was only run for Win32 and WinCE
1272# Currently only Win32 links static extensions into the shared library.
1273# The WinCE makefile doesn't appear to support static extensions, so this code
1274# can't have any effect there.
1275# The NetWare Makefile doesn't support static extensions (and hardcodes the
1276# list of dynamic extensions, and the rules to build them)
1277# For *nix (and presumably OS/2) with a shared libperl, Makefile.SH compiles
1278# static extensions with -fPIC, but links them to perl, not libperl.so
1279# The VMS build scripts don't yet implement static extensions at all.
1280
0dc3711c 1281if ($ARGS{PLATFORM} =~ /^win(?:32|ce)$/) {
9661ac31 1282 # records of type boot_module for statically linked modules (except Dynaloader)
c051ff4c 1283 my $static_ext = $Config{static_ext} // "";
9661ac31
NC
1284 $static_ext =~ s/\//__/g;
1285 $static_ext =~ s/\bDynaLoader\b//;
1286 try_symbols(map {"boot_$_"} grep {/\S/} split /\s+/, $static_ext);
1287 try_symbols("init_Win32CORE") if $static_ext =~ /\bWin32CORE\b/;
1288}
9fb265f7 1289
0dc3711c 1290if ($ARGS{PLATFORM} eq 'os2') {
71afeaec 1291 my (%mapped, @missing);
1ae6ead9 1292 open MAP, '<', 'miniperl.map' or die 'Cannot read miniperl.map';
71afeaec
NC
1293 /^\s*[\da-f:]+\s+(\w+)/i and $mapped{$1}++ foreach <MAP>;
1294 close MAP or die 'Cannot close miniperl.map';
1295
1296 @missing = grep { !exists $mapped{$_} }
1297 keys %export;
1298 @missing = grep { !exists $exportperlmalloc{$_} } @missing;
1299 delete $export{$_} foreach @missing;
1300}
1301
d6035849
NC
1302###############################################################################
1303
1304# Now all symbols should be defined because next we are going to output them.
1305
1306# Start with platform specific headers:
1307
0dc3711c 1308if ($ARGS{PLATFORM} =~ /^win(?:32|ce)$/) {
d9f179d8
NC
1309 my $dll = $define{PERL_DLL} ? $define{PERL_DLL} =~ s/\.dll$//ir
1310 : "perl$Config{api_revision}$Config{api_version}";
d6035849
NC
1311 print "LIBRARY $dll\n";
1312 # The DESCRIPTION module definition file statement is not supported
1313 # by VC7 onwards.
378eeda7 1314 if ($ARGS{CCTYPE} =~ /^(?:MSVC60|GCC)$/) {
d6035849
NC
1315 print "DESCRIPTION 'Perl interpreter'\n";
1316 }
1317 print "EXPORTS\n";
1318}
0dc3711c 1319elsif ($ARGS{PLATFORM} eq 'os2') {
d6035849 1320 (my $v = $]) =~ s/(\d\.\d\d\d)(\d\d)$/$1_$2/;
c051ff4c 1321 $v .= '-thread' if $Config{archname} =~ /-thread/;
d6035849 1322 (my $dll = $define{PERL_DLL}) =~ s/\.dll$//i;
c051ff4c
NC
1323 $v .= "\@$Config{perl_patchlevel}" if $Config{perl_patchlevel};
1324 my $d = "DESCRIPTION '\@#perl5-porters\@perl.org:$v#\@ Perl interpreter, configured as $Config{config_args}'";
d6035849
NC
1325 $d = substr($d, 0, 249) . "...'" if length $d > 253;
1326 print <<"---EOP---";
1327LIBRARY '$dll' INITINSTANCE TERMINSTANCE
1328$d
1329STACKSIZE 32768
1330CODE LOADONCALL
1331DATA LOADONCALL NONSHARED MULTIPLE
1332EXPORTS
1333---EOP---
1334}
0dc3711c 1335elsif ($ARGS{PLATFORM} eq 'aix') {
d6035849
NC
1336 my $OSVER = `uname -v`;
1337 chop $OSVER;
1338 my $OSREL = `uname -r`;
1339 chop $OSREL;
1340 if ($OSVER > 4 || ($OSVER == 4 && $OSREL >= 3)) {
1341 print "#! ..\n";
1342 } else {
1343 print "#!\n";
1344 }
1345}
0dc3711c
NC
1346elsif ($ARGS{PLATFORM} eq 'netware') {
1347 if ($ARGS{FILETYPE} eq 'def') {
d9f179d8 1348 print "LIBRARY perl$Config{api_revision}$Config{api_version}\n";
d6035849
NC
1349 print "DESCRIPTION 'Perl interpreter for NetWare'\n";
1350 print "EXPORTS\n";
1351 }
1352}
1353
1354# Then the symbols
549a6b10 1355
5d4e58dc
NC
1356my @symbols = $fold ? sort {lc $a cmp lc $b} keys %export : sort keys %export;
1357foreach my $symbol (@symbols) {
196f7c46 1358 if (PLATFORM eq 'win32' || PLATFORM eq 'wince') {
75debb79
SH
1359 # Remembering the origin file of each symbol is an alternative to PL_ matching
1360 if (substr($symbol, 0, 3) eq 'PL_') {
1361 print "\t$symbol DATA\n";
196f7c46
DD
1362 }
1363 else {
1364 print "\t$symbol\n";
1365 }
7766f137 1366 }
196f7c46 1367 elsif (PLATFORM eq 'os2') {
52e4c282
IZ
1368 printf qq( %-31s \@%s\n),
1369 qq("$symbol"), $ordinal{$symbol} || ++$sym_ord;
78232bc0
JH
1370 printf qq( %-31s \@%s\n),
1371 qq("$exportperlmalloc{$symbol}" = "$symbol"),
1372 $ordinal{$exportperlmalloc{$symbol}} || ++$sym_ord
1373 if $exportperlmalloc and exists $exportperlmalloc{$symbol};
7766f137 1374 }
196f7c46 1375 elsif (PLATFORM eq 'netware') {
ed463ba8
NC
1376 print "\t$symbol,\n";
1377 } else {
549a6b10
JH
1378 print "$symbol\n";
1379 }
ed463ba8
NC
1380}
1381
1382# Then platform specific footers.
1383
0dc3711c 1384if ($ARGS{PLATFORM} eq 'os2') {
ed463ba8
NC
1385 print <<EOP;
1386 dll_perlmain=main
1387 fill_extLibpath
1388 dir_subst
1389 Perl_OS2_handler_install
1390
1391; LAST_ORDINAL=$sym_ord
1392EOP
549a6b10
JH
1393}
1394
13951;