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