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