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