This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
lexical warnings update, ability to inspect bitmask in calling
[perl5.git] / makedef.pl
CommitLineData
549a6b10
JH
1#
2# Create the export list for perl.
3#
3cfae81b
IZ
4# Needed by WIN32 and OS/2 for creating perl.dll
5# and by AIX for creating libperl.a when -Dusershrplib is in effect.
549a6b10 6#
22c35a8c 7# reads global.sym, pp.sym, perlvars.h, intrpvar.h, thrdvar.h, config.h
3cfae81b 8# On OS/2 reads miniperl.map as well
0a753a76 9
549a6b10
JH
10my $PLATFORM;
11my $CCTYPE;
910dfcc8 12
4cb71bb6
GS
13my %bincompat5005 =
14 (Perl_call_argv => "perl_call_argv",
15 Perl_call_method => "perl_call_method",
16 Perl_call_pv => "perl_call_pv",
17 Perl_call_sv => "perl_call_sv",
18 Perl_get_av => "perl_get_av",
19 Perl_get_cv => "perl_get_cv",
20 Perl_get_hv => "perl_get_hv",
21 Perl_get_sv => "perl_get_sv",
22 Perl_init_i18nl10n => "perl_init_i18nl10n",
23 Perl_init_i18nl14n => "perl_init_i18nl14n",
24 Perl_new_collate => "perl_new_collate",
25 Perl_new_ctype => "perl_new_ctype",
26 Perl_new_numeric => "perl_new_numeric",
27 Perl_require_pv => "perl_require_pv",
28 Perl_safesyscalloc => "Perl_safecalloc",
29 Perl_safesysfree => "Perl_safefree",
30 Perl_safesysmalloc => "Perl_safemalloc",
31 Perl_safesysrealloc => "Perl_saferealloc",
32 Perl_set_numeric_local => "perl_set_numeric_local",
62457c2b
IZ
33 Perl_set_numeric_standard => "perl_set_numeric_standard",
34 Perl_malloc => "malloc",
35 Perl_mfree => "free",
36 Perl_realloc => "realloc",
37 Perl_calloc => "calloc",);
4cb71bb6
GS
38
39my $bincompat5005 = join("|", keys %bincompat5005);
40
7766f137
GS
41while (@ARGV) {
42 my $flag = shift;
43 $define{$1} = 1 if ($flag =~ /^-D(\w+)$/);
44 $define{$1} = $2 if ($flag =~ /^-D(\w+)=(.+)$/);
45 $CCTYPE = $1 if ($flag =~ /^CCTYPE=(\w+)$/);
46 $PLATFORM = $1 if ($flag =~ /^PLATFORM=(\w+)$/);
47}
d55594ae 48
3cfae81b 49my @PLATFORM = qw(aix win32 os2);
549a6b10
JH
50my %PLATFORM;
51@PLATFORM{@PLATFORM} = ();
52
53defined $PLATFORM || die "PLATFORM undefined, must be one of: @PLATFORM\n";
54exists $PLATFORM{$PLATFORM} || die "PLATFORM must be one of: @PLATFORM\n";
55
56my $config_sh = "config.sh";
57my $config_h = "config.h";
58my $thrdvar_h = "thrdvar.h";
59my $intrpvar_h = "intrpvar.h";
60my $perlvars_h = "perlvars.h";
61my $global_sym = "global.sym";
62my $pp_sym = "pp.sym";
63my $globvar_sym = "globvar.sym";
64my $perlio_sym = "perlio.sym";
65
66if ($PLATFORM eq 'aix') {
67 # Nothing for now.
7766f137
GS
68}
69elsif ($PLATFORM eq 'win32') {
549a6b10
JH
70 $CCTYPE = "MSVC" unless defined $CCTYPE;
71 foreach ($thrdvar_h, $intrpvar_h, $perlvars_h, $global_sym, $pp_sym, $globvar_sym) {
72 s!^!..\\!;
73 }
74}
75
76unless ($PLATFORM eq 'win32') {
77 open(CFG,$config_sh) || die "Cannot open $config_sh: $!\n";
7766f137 78 while (<CFG>) {
549a6b10
JH
79 if (/^(?:ccflags|optimize)='(.+)'$/) {
80 $_ = $1;
81 $define{$1} = 1 while /-D(\w+)/g;
82 }
3cfae81b
IZ
83 if ($PLATFORM eq 'os2') {
84 $CONFIG_ARGS = $1 if /^(?:config_args)='(.+)'$/;
85 $ARCHNAME = $1 if /^(?:archname)='(.+)'$/;
86 }
549a6b10
JH
87 }
88 close(CFG);
89}
90
91open(CFG,$config_h) || die "Cannot open $config_h: $!\n";
7766f137
GS
92while (<CFG>) {
93 $define{$1} = 1 if /^\s*#\s*define\s+(MYMALLOC)\b/;
bbda9c9d
GS
94 $define{$1} = 1 if /^\s*#\s*define\s+(USE_5005THREADS)\b/;
95 $define{$1} = 1 if /^\s*#\s*define\s+(USE_ITHREADS)\b/;
7766f137
GS
96 $define{$1} = 1 if /^\s*#\s*define\s+(USE_PERLIO)\b/;
97 $define{$1} = 1 if /^\s*#\s*define\s+(MULTIPLICITY)\b/;
dfdd1393 98 $define{$1} = 1 if /^\s*#\s*define\s+(PERL_IMPLICIT_SYS)\b/;
7766f137
GS
99 $define{$1} = 1 if /^\s*#\s*define\s+(PERL_BINCOMPAT_5005)\b/;
100}
bbc8f9de
NIS
101close(CFG);
102
18c4b137
JH
103# perl.h logic duplication begins
104
105if ($define{USE_ITHREADS}) {
106 if (!$define{MULTIPLICITY} && !defined{PERL_OBJECT}) {
107 $define{MULTIPLICITY} = 1;
108 }
109}
110
111$define{PERL_IMPLICIT_CONTEXT} ||=
112 $define{USE_ITHREADS} ||
113 $define{USE_THREADS} ||
114 $define{MULTIPLICITY} ;
115
116if ($define{PERL_CAPI}) {
117 delete $define{PERL_OBJECT};
118 $define{MULTIPLICITY} = 1;
119 $define{PERL_IMPLICIT_CONTEXT} = 1;
120 $define{PERL_IMPLICIT_SYS} = 1;
121}
122
123if ($define{PERL_OBJECT}) {
124 $define{PERL_IMPLICIT_CONTEXT} = 1;
125 $define{PERL_IMPLICIT_SYS} = 1;
126}
127
128# perl.h logic duplication ends
129
549a6b10
JH
130if ($PLATFORM eq 'win32') {
131 warn join(' ',keys %define)."\n";
dfdd1393
GS
132 print "LIBRARY Perl56\n";
133 print "DESCRIPTION 'Perl interpreter'\n";
134 print "EXPORTS\n";
135 if ($define{PERL_IMPLICIT_SYS}) {
549a6b10 136 output_symbol("perl_get_host_info");
7766f137 137 output_symbol("perl_alloc_override");
51371543 138 }
7766f137
GS
139}
140elsif ($PLATFORM eq 'os2') {
3cfae81b
IZ
141 ($v = $]) =~ s/(\d\.\d\d\d)(\d\d)$/$1_$2/;
142 $v .= '-thread' if $ARCHNAME =~ /-thread/;
143 #$sum = 0;
144 #for (split //, $v) {
145 # $sum = ($sum * 33) + ord;
146 # $sum &= 0xffffff;
147 #}
148 #$sum += $sum >> 5;
149 #$sum &= 0xffff;
150 #$sum = printf '%X', $sum;
151 ($dll = $define{PERL_DLL}) =~ s/\.dll$//i;
152 # print STDERR "'$dll' <= '$define{PERL_DLL}'\n";
153 print <<"---EOP---";
154LIBRARY '$dll' INITINSTANCE TERMINSTANCE
155DESCRIPTION '\@#perl5-porters\@perl.org:$v#\@ Perl interpreter, configured as $CONFIG_ARGS'
156STACKSIZE 32768
157CODE LOADONCALL
158DATA LOADONCALL NONSHARED MULTIPLE
159EXPORTS
160---EOP---
7766f137
GS
161}
162elsif ($PLATFORM eq 'aix') {
549a6b10 163 print "#!\n";
ac4c12e7 164}
bbc8f9de 165
22239a37
NIS
166my %skip;
167my %export;
168
51371543
GS
169sub skip_symbols {
170 my $list = shift;
171 foreach my $symbol (@$list) {
172 $skip{$symbol} = 1;
173 }
22239a37
NIS
174}
175
51371543
GS
176sub emit_symbols {
177 my $list = shift;
178 foreach my $symbol (@$list) {
179 my $skipsym = $symbol;
180 # XXX hack
6f4183fe 181 if ($define{PERL_OBJECT} || $define{MULTIPLICITY}) {
51371543
GS
182 $skipsym =~ s/^Perl_[GIT](\w+)_ptr$/PL_$1/;
183 }
184 emit_symbol($symbol) unless exists $skip{$skipsym};
185 }
22239a37
NIS
186}
187
549a6b10 188if ($PLATFORM eq 'win32') {
7766f137
GS
189 skip_symbols [qw(
190 PL_statusvalue_vms
191 PL_archpat_auto
192 PL_cryptseen
193 PL_DBcv
194 PL_generation
195 PL_lastgotoprobe
196 PL_linestart
197 PL_modcount
198 PL_pending_ident
199 PL_sortcxix
200 PL_sublex_info
201 PL_timesbuf
202 main
203 Perl_ErrorNo
204 Perl_GetVars
205 Perl_do_exec3
206 Perl_do_ipcctl
207 Perl_do_ipcget
208 Perl_do_msgrcv
209 Perl_do_msgsnd
210 Perl_do_semop
211 Perl_do_shmio
212 Perl_dump_fds
213 Perl_init_thread_intern
214 Perl_my_bzero
215 Perl_my_htonl
216 Perl_my_ntohl
217 Perl_my_swap
218 Perl_my_chsize
219 Perl_same_dirent
220 Perl_setenv_getix
221 Perl_unlnk
222 Perl_watch
223 Perl_safexcalloc
224 Perl_safexmalloc
225 Perl_safexfree
226 Perl_safexrealloc
227 Perl_my_memcmp
228 Perl_my_memset
229 PL_cshlen
230 PL_cshname
231 PL_opsave
232 Perl_do_exec
233 Perl_getenv_len
234 Perl_my_pclose
235 Perl_my_popen
236 )];
237}
238elsif ($PLATFORM eq 'aix') {
549a6b10 239 skip_symbols([qw(
7766f137
GS
240 Perl_dump_fds
241 Perl_ErrorNo
242 Perl_GetVars
243 Perl_my_bcopy
244 Perl_my_bzero
245 Perl_my_chsize
246 Perl_my_htonl
247 Perl_my_memcmp
248 Perl_my_memset
249 Perl_my_ntohl
250 Perl_my_swap
251 Perl_safexcalloc
252 Perl_safexfree
253 Perl_safexmalloc
254 Perl_safexrealloc
255 Perl_same_dirent
256 Perl_unlnk
95151ede 257 Perl_sys_intern_dup
7766f137
GS
258 PL_cryptseen
259 PL_opsave
260 PL_statusvalue_vms
261 PL_sys_intern
262 )]);
263}
264elsif ($PLATFORM eq 'os2') {
3cfae81b 265 emit_symbols([qw(
7766f137
GS
266 ctermid
267 get_sysinfo
268 Perl_OS2_init
269 OS2_Perl_data
270 dlopen
271 dlsym
272 dlerror
273 my_tmpfile
274 my_tmpnam
275 my_flock
276 malloc_mutex
277 threads_mutex
278 nthreads
279 nthreads_cond
280 os2_cond_wait
281 os2_stat
282 pthread_join
283 pthread_create
284 pthread_detach
285 XS_Cwd_change_drive
286 XS_Cwd_current_drive
287 XS_Cwd_extLibpath
288 XS_Cwd_extLibpath_set
289 XS_Cwd_sys_abspath
290 XS_Cwd_sys_chdir
291 XS_Cwd_sys_cwd
292 XS_Cwd_sys_is_absolute
293 XS_Cwd_sys_is_relative
294 XS_Cwd_sys_is_rooted
295 XS_DynaLoader_mod2fname
296 XS_File__Copy_syscopy
297 Perl_Register_MQ
298 Perl_Deregister_MQ
299 Perl_Serve_Messages
300 Perl_Process_Messages
301 init_PMWIN_entries
302 PMWIN_entries
303 Perl_hab_GET
304 )]);
3cfae81b
IZ
305}
306
7766f137
GS
307unless ($define{'DEBUGGING'}) {
308 skip_symbols [qw(
309 Perl_deb
310 Perl_deb_growlevel
311 Perl_debop
312 Perl_debprofdump
313 Perl_debstack
314 Perl_debstackptrs
315 Perl_runops_debug
316 Perl_sv_peek
317 PL_block_type
318 PL_watchaddr
319 PL_watchok
320 )];
321}
322
323if ($define{'PERL_IMPLICIT_SYS'}) {
324 skip_symbols [qw(
325 Perl_getenv_len
326 Perl_my_popen
327 Perl_my_pclose
328 )];
329}
330else {
331 skip_symbols [qw(
332 PL_Mem
333 PL_MemShared
334 PL_MemParse
335 PL_Env
336 PL_StdIO
337 PL_LIO
338 PL_Dir
339 PL_Sock
340 PL_Proc
341 )];
342}
343
344if ($define{'MYMALLOC'}) {
345 emit_symbols [qw(
346 Perl_dump_mstats
827e134a 347 Perl_get_mstats
7766f137
GS
348 Perl_malloc
349 Perl_mfree
350 Perl_realloc
351 Perl_calloc
352 )];
bbda9c9d 353 if ($define{'USE_5005THREADS'} || $define{'USE_ITHREADS'}) {
1feb2720
GS
354 emit_symbols [qw(
355 PL_malloc_mutex
356 )];
357 }
51371543
GS
358}
359else {
7766f137
GS
360 skip_symbols [qw(
361 PL_malloc_mutex
362 Perl_dump_mstats
6ecd3fcb 363 Perl_get_mstats
7766f137
GS
364 Perl_malloc
365 Perl_mfree
366 Perl_realloc
367 Perl_calloc
368 Perl_malloced_size
369 )];
370}
371
bbda9c9d 372unless ($define{'USE_5005THREADS'}) {
7766f137
GS
373 skip_symbols [qw(
374 PL_thr_key
375 PL_sv_mutex
376 PL_strtab_mutex
377 PL_svref_mutex
7766f137
GS
378 PL_cred_mutex
379 PL_eval_mutex
380 PL_eval_cond
381 PL_eval_owner
382 PL_threads_mutex
383 PL_nthreads
384 PL_nthreads_cond
385 PL_threadnum
386 PL_threadsv_names
387 PL_thrsv
388 PL_vtbl_mutex
389 Perl_getTHR
390 Perl_setTHR
391 Perl_condpair_magic
392 Perl_new_struct_thread
393 Perl_per_thread_magicals
394 Perl_thread_create
395 Perl_find_threadsv
396 Perl_unlock_condpair
397 Perl_magic_mutexfree
398 )];
399}
400
401unless ($define{'USE_ITHREADS'}) {
402 skip_symbols [qw(
403 PL_ptr_table
404 Perl_dirp_dup
405 Perl_cx_dup
406 Perl_si_dup
407 Perl_any_dup
408 Perl_ss_dup
409 Perl_fp_dup
410 Perl_gp_dup
411 Perl_he_dup
412 Perl_mg_dup
413 Perl_re_dup
414 Perl_sv_dup
415 Perl_sys_intern_dup
416 Perl_ptr_table_fetch
417 Perl_ptr_table_new
418 Perl_ptr_table_split
419 Perl_ptr_table_store
420 perl_clone
421 perl_clone_using
422 )];
423}
424
425unless ($define{'PERL_IMPLICIT_CONTEXT'}) {
426 skip_symbols [qw(
427 Perl_croak_nocontext
428 Perl_die_nocontext
429 Perl_deb_nocontext
430 Perl_form_nocontext
431 Perl_mess_nocontext
432 Perl_warn_nocontext
433 Perl_warner_nocontext
434 Perl_newSVpvf_nocontext
435 Perl_sv_catpvf_nocontext
436 Perl_sv_setpvf_nocontext
437 Perl_sv_catpvf_mg_nocontext
438 Perl_sv_setpvf_mg_nocontext
439 )];
440}
441
442unless ($define{'PERL_IMPLICIT_SYS'}) {
443 skip_symbols [qw(
444 perl_alloc_using
014822e4 445 perl_clone_using
7766f137
GS
446 )];
447}
448
449unless ($define{'FAKE_THREADS'}) {
450 skip_symbols [qw(PL_curthr)];
451}
452
453sub readvar {
454 my $file = shift;
455 my $proc = shift || sub { "PL_$_[2]" };
456 open(VARS,$file) || die "Cannot open $file: $!\n";
457 my @syms;
458 while (<VARS>) {
459 # All symbols have a Perl_ prefix because that's what embed.h
460 # sticks in front of them.
461 push(@syms, &$proc($1,$2,$3)) if (/\bPERLVAR(A?I?C?)\(([IGT])(\w+)/);
462 }
463 close(VARS);
464 return \@syms;
465}
466
6f4183fe 467if ($define{'USE_5005THREADS'}) {
7766f137
GS
468 my $thrd = readvar($thrdvar_h);
469 skip_symbols $thrd;
470}
471
7766f137
GS
472if ($define{'PERL_GLOBAL_STRUCT'}) {
473 my $global = readvar($perlvars_h);
474 skip_symbols $global;
475 emit_symbol('Perl_GetVars');
476 emit_symbols [qw(PL_Vars PL_VarsPtr)] unless $CCTYPE eq 'GCC';
477}
36c15d3f 478
22c35a8c
GS
479# functions from *.sym files
480
954c1994 481my @syms = ($global_sym, $globvar_sym); # $pp_sym is not part of the API
549a6b10 482
7766f137 483if ($define{'USE_PERLIO'}) {
549a6b10 484 push @syms, $perlio_sym;
7766f137
GS
485}
486
487for my $syms (@syms) {
488 open (GLOBAL, "<$syms") || die "failed to open $syms: $!\n";
489 while (<GLOBAL>) {
490 next if (!/^[A-Za-z]/);
491 # Functions have a Perl_ prefix
492 # Variables have a PL_ prefix
493 chomp($_);
494 my $symbol = ($syms =~ /var\.sym$/i ? "PL_" : "");
495 $symbol .= $_;
496 emit_symbol($symbol) unless exists $skip{$symbol};
497 }
498 close(GLOBAL);
499}
0a753a76 500
22c35a8c 501# variables
0a753a76 502
6f4183fe 503if ($define{'PERL_OBJECT'} || $define{'MULTIPLICITY'}) {
1acb48c9 504 for my $f ($perlvars_h, $intrpvar_h, $thrdvar_h) {
18c4b137
JH
505 my $glob = readvar($f, sub { "Perl_" . $_[1] . $_[2] . "_ptr" });
506 emit_symbols $glob;
18c4b137 507 }
1acb48c9
GS
508 # XXX AIX seems to want the perlvars.h symbols, for some reason
509 if ($PLATFORM eq 'aix') {
510 my $glob = readvar($perlvars_h);
51371543
GS
511 emit_symbols $glob;
512 }
513}
514else {
515 unless ($define{'PERL_GLOBAL_STRUCT'}) {
549a6b10 516 my $glob = readvar($perlvars_h);
51371543
GS
517 emit_symbols $glob;
518 }
519 unless ($define{'MULTIPLICITY'}) {
549a6b10 520 my $glob = readvar($intrpvar_h);
51371543
GS
521 emit_symbols $glob;
522 }
bbda9c9d 523 unless ($define{'MULTIPLICITY'} || $define{'USE_5005THREADS'}) {
549a6b10 524 my $glob = readvar($thrdvar_h);
51371543
GS
525 emit_symbols $glob;
526 }
527}
0a753a76 528
549a6b10
JH
529sub try_symbol {
530 my $symbol = shift;
22239a37 531
549a6b10
JH
532 return if $symbol !~ /^[A-Za-z]/;
533 return if $symbol =~ /^\#/;
534 $symbol =~s/\r//g;
535 chomp($symbol);
43cd9f80 536 return if exists $skip{$symbol};
549a6b10 537 emit_symbol($symbol);
3e3baf6d 538}
0a753a76 539
549a6b10
JH
540while (<DATA>) {
541 try_symbol($_);
ac4c12e7
GS
542}
543
549a6b10
JH
544if ($PLATFORM eq 'win32') {
545 foreach my $symbol (qw(
7766f137
GS
546 boot_DynaLoader
547 Perl_getTHR
548 Perl_init_os_extras
549 Perl_setTHR
550 Perl_thread_create
551 Perl_win32_init
552 RunPerl
553 GetPerlInterpreter
554 SetPerlInterpreter
555 win32_errno
556 win32_environ
557 win32_stdin
558 win32_stdout
559 win32_stderr
560 win32_ferror
561 win32_feof
562 win32_strerror
563 win32_fprintf
564 win32_printf
565 win32_vfprintf
566 win32_vprintf
567 win32_fread
568 win32_fwrite
569 win32_fopen
570 win32_fdopen
571 win32_freopen
572 win32_fclose
573 win32_fputs
574 win32_fputc
575 win32_ungetc
576 win32_getc
577 win32_fileno
578 win32_clearerr
579 win32_fflush
580 win32_ftell
581 win32_fseek
582 win32_fgetpos
583 win32_fsetpos
584 win32_rewind
585 win32_tmpfile
586 win32_abort
587 win32_fstat
588 win32_stat
589 win32_pipe
590 win32_popen
591 win32_pclose
592 win32_rename
593 win32_setmode
594 win32_lseek
595 win32_tell
596 win32_dup
597 win32_dup2
598 win32_open
599 win32_close
600 win32_eof
601 win32_read
602 win32_write
603 win32_spawnvp
604 win32_mkdir
605 win32_rmdir
606 win32_chdir
607 win32_flock
608 win32_execv
609 win32_execvp
610 win32_htons
611 win32_ntohs
612 win32_htonl
613 win32_ntohl
614 win32_inet_addr
615 win32_inet_ntoa
616 win32_socket
617 win32_bind
618 win32_listen
619 win32_accept
620 win32_connect
621 win32_send
622 win32_sendto
623 win32_recv
624 win32_recvfrom
625 win32_shutdown
626 win32_closesocket
627 win32_ioctlsocket
628 win32_setsockopt
629 win32_getsockopt
630 win32_getpeername
631 win32_getsockname
632 win32_gethostname
633 win32_gethostbyname
634 win32_gethostbyaddr
635 win32_getprotobyname
636 win32_getprotobynumber
637 win32_getservbyname
638 win32_getservbyport
639 win32_select
640 win32_endhostent
641 win32_endnetent
642 win32_endprotoent
643 win32_endservent
644 win32_getnetent
645 win32_getnetbyname
646 win32_getnetbyaddr
647 win32_getprotoent
648 win32_getservent
649 win32_sethostent
650 win32_setnetent
651 win32_setprotoent
652 win32_setservent
653 win32_getenv
654 win32_putenv
655 win32_perror
656 win32_setbuf
657 win32_setvbuf
658 win32_flushall
659 win32_fcloseall
660 win32_fgets
661 win32_gets
662 win32_fgetc
663 win32_putc
664 win32_puts
665 win32_getchar
666 win32_putchar
667 win32_malloc
668 win32_calloc
669 win32_realloc
670 win32_free
671 win32_sleep
672 win32_times
673 win32_access
674 win32_alarm
675 win32_chmod
676 win32_open_osfhandle
677 win32_get_osfhandle
678 win32_ioctl
679 win32_link
680 win32_unlink
681 win32_utime
682 win32_uname
683 win32_wait
684 win32_waitpid
685 win32_kill
686 win32_str_os_error
687 win32_opendir
688 win32_readdir
689 win32_telldir
690 win32_seekdir
691 win32_rewinddir
692 win32_closedir
693 win32_longpath
694 win32_os_id
695 win32_getpid
696 win32_crypt
697 win32_dynaload
698 ))
699 {
549a6b10
JH
700 try_symbol($symbol);
701 }
702}
3cfae81b 703elsif ($PLATFORM eq 'os2') {
7766f137
GS
704 open MAP, 'miniperl.map' or die 'Cannot read miniperl.map';
705 /^\s*[\da-f:]+\s+(\w+)/i and $mapped{$1}++ foreach <MAP>;
706 close MAP or die 'Cannot close miniperl.map';
707
708 @missing = grep { !exists $mapped{$_} and !exists $bincompat5005{$_} }
709 keys %export;
710 delete $export{$_} foreach @missing;
3cfae81b 711}
22239a37 712
549a6b10
JH
713# Now all symbols should be defined because
714# next we are going to output them.
715
7766f137
GS
716foreach my $symbol (sort keys %export) {
717 output_symbol($symbol);
718}
549a6b10
JH
719
720sub emit_symbol {
7766f137
GS
721 my $symbol = shift;
722 chomp($symbol);
723 $export{$symbol} = 1;
549a6b10
JH
724}
725
726sub output_symbol {
727 my $symbol = shift;
4cb71bb6
GS
728 $symbol = $bincompat5005{$symbol}
729 if $define{PERL_BINCOMPAT_5005} and $symbol =~ /^($bincompat5005)$/;
549a6b10 730 if ($PLATFORM eq 'win32') {
549a6b10 731 $symbol = "_$symbol" if $CCTYPE eq 'BORLAND';
520c758a 732 print "\t$symbol\n";
549a6b10
JH
733# XXX: binary compatibility between compilers is an exercise
734# in frustration :-(
735# if ($CCTYPE eq "BORLAND") {
736# # workaround Borland quirk by exporting both the straight
737# # name and a name with leading underscore. Note the
738# # alias *must* come after the symbol itself, if both
739# # are to be exported. (Linker bug?)
740# print "\t_$symbol\n";
741# print "\t$symbol = _$symbol\n";
742# }
743# elsif ($CCTYPE eq 'GCC') {
744# # Symbols have leading _ whole process is $%@"% slow
745# # so skip aliases for now
746# nprint "\t$symbol\n";
747# }
748# else {
749# # for binary coexistence, export both the symbol and
750# # alias with leading underscore
751# print "\t$symbol\n";
752# print "\t_$symbol = $symbol\n";
753# }
7766f137
GS
754 }
755 elsif ($PLATFORM eq 'os2') {
3cfae81b 756 print qq( "$symbol"\n);
7766f137
GS
757 }
758 elsif ($PLATFORM eq 'aix') {
549a6b10
JH
759 print "$symbol\n";
760 }
761}
762
7631;
764__DATA__
765# extra globals not included above.
766perl_alloc
7766f137 767perl_alloc_using
014822e4
GS
768perl_clone
769perl_clone_using
549a6b10
JH
770perl_construct
771perl_destruct
772perl_free
773perl_parse
774perl_run