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