[perl #92258] <$fh> hangs on a glob copy
[perl.git] / makedef.pl
1 #./perl -w
2 #
3 # Create the export list for perl.
4 #
5 # Needed by WIN32 and OS/2 for creating perl.dll,
6 # and by AIX for creating libperl.a when -Dusershrplib is in effect,
7 #
8 # Reads from information stored in
9 #
10 #    config.h
11 #    config.sh
12 #    global.sym
13 #    globvar.sym
14 #    intrpvar.h
15 #    miniperl.map (on OS/2)
16 #    perl5.def    (on OS/2; this is the old version of the file being made)
17 #    perlio.sym
18 #    perlvars.h
19 #
20 # plus long lists of function names hard-coded directly in this script and
21 # in the DATA section.
22 #
23 # Writes the result to STDOUT.
24 #
25 # Normally this script is invoked from a makefile (e.g. win32/Makefile),
26 # which redirects STDOUT to a suitable file, such as:
27 #
28 #    perl5.def   OS/2
29 #    perldll.def Windows
30 #    perl.exp    AIX
31 #    perl.imp    NetWare
32
33
34 BEGIN { unshift @INC, "lib" }
35 use Config;
36 use strict;
37
38 use vars qw($PLATFORM $CCTYPE $FILETYPE $CONFIG_ARGS $ARCHNAME $PATCHLEVEL);
39
40 my (%define, %ordinal);
41
42 while (@ARGV) {
43     my $flag = shift;
44     if ($flag =~ s/^CC_FLAGS=/ /) {
45         for my $fflag ($flag =~ /(?:^|\s)-D(\S+)/g) {
46             $fflag     .= '=1' unless $fflag =~ /^(\w+)=/;
47             $define{$1} = $2   if $fflag =~ /^(\w+)=(.+)$/;
48         }
49         next;
50     }
51     $define{$1} = 1 if ($flag =~ /^-D(\w+)$/);
52     $define{$1} = $2 if ($flag =~ /^-D(\w+)=(.+)$/);
53     $CCTYPE   = $1 if ($flag =~ /^CCTYPE=(\w+)$/);
54     $PLATFORM = $1 if ($flag =~ /^PLATFORM=(\w+)$/);
55     if ($PLATFORM eq 'netware') {
56         $FILETYPE = $1 if ($flag =~ /^FILETYPE=(\w+)$/);
57     }
58 }
59
60 my @PLATFORM = qw(aix win32 wince os2 netware);
61 my %PLATFORM;
62 @PLATFORM{@PLATFORM} = ();
63
64 defined $PLATFORM || die "PLATFORM undefined, must be one of: @PLATFORM\n";
65 exists $PLATFORM{$PLATFORM} || die "PLATFORM must be one of: @PLATFORM\n";
66
67 if ($PLATFORM eq 'win32' or $PLATFORM eq 'wince' or $PLATFORM eq "aix") {
68         # Add the compile-time options that miniperl was built with to %define.
69         # On Win32 these are not the same options as perl itself will be built
70         # with since miniperl is built with a canned config (one of the win32/
71         # config_H.*) and none of the BUILDOPT's that are set in the makefiles,
72         # but they do include some #define's that are hard-coded in various
73         # source files and header files and don't include any BUILDOPT's that
74         # the user might have chosen to disable because the canned configs are
75         # minimal configs that don't include any of those options.
76         my $opts = ($PLATFORM eq 'wince' ? '-MCross' : ''); # for wince need Cross.pm to get Config.pm
77
78         $ENV{PERL5LIB} = join $Config{path_sep}, @INC;
79         my $cmd = "$^X $opts -V";
80         my $config = `$cmd`
81             or die "Couldn't run [$cmd]: $!";
82         my($options) = $config =~ /^  Compile-time options: (.*?)\n^  \S/ms;
83         $options =~ s/\s+/ /g;
84         print STDERR "Options: ($options)\n";
85         foreach (split /\s+/, $options) {
86                 $define{$_} = 1;
87         }
88 }
89
90 my %exportperlmalloc =
91     (
92        Perl_malloc              =>      "malloc",
93        Perl_mfree               =>      "free",
94        Perl_realloc             =>      "realloc",
95        Perl_calloc              =>      "calloc",
96     );
97
98 my $exportperlmalloc = $PLATFORM eq 'os2';
99
100 my $config_sh   = "config.sh";
101 my $config_h    = "config.h";
102 my $intrpvar_h  = "intrpvar.h";
103 my $perlvars_h  = "perlvars.h";
104 my $global_sym  = "global.sym";
105 my $globvar_sym = "globvar.sym";
106 my $perlio_sym  = "perlio.sym";
107 my $static_ext = "";
108
109 if ($PLATFORM eq 'aix') {
110     # Nothing for now.
111 }
112 elsif ($PLATFORM =~ /^win(?:32|ce)$/ || $PLATFORM eq 'netware') {
113     $CCTYPE = "MSVC" unless defined $CCTYPE;
114     foreach ($intrpvar_h, $perlvars_h, $global_sym, $globvar_sym, $perlio_sym) {
115         s!^!..\\!;
116     }
117 }
118
119 unless ($PLATFORM eq 'win32' || $PLATFORM eq 'wince' || $PLATFORM eq 'netware') {
120     open(CFG,$config_sh) || die "Cannot open $config_sh: $!\n";
121     while (<CFG>) {
122         if (/^(?:ccflags|optimize)='(.+)'$/) {
123             $_ = $1;
124             $define{$1} = 1 while /-D(\w+)/g;
125         }
126         if (/^(d_(?:mmap|sigaction))='(.+)'$/) {
127             $define{$1} = $2;
128         }
129         if ($PLATFORM eq 'os2') {
130             $CONFIG_ARGS = $1 if /^config_args='(.+)'$/;
131             $ARCHNAME =    $1 if /^archname='(.+)'$/;
132             $PATCHLEVEL =  $1 if /^perl_patchlevel='(.+)'$/;
133         }
134     }
135     close(CFG);
136 }
137 if ($PLATFORM eq 'win32' || $PLATFORM eq 'wince') {
138     open(CFG,"<..\\$config_sh") || die "Cannot open ..\\$config_sh: $!\n";
139     if ((join '', <CFG>) =~ /^static_ext='(.*)'$/m) {
140         $static_ext = $1;
141     }
142     close(CFG);
143 }
144
145 open(CFG,$config_h) || die "Cannot open $config_h: $!\n";
146 while (<CFG>) {
147     $define{$1} = 1 if /^\s*#\s*define\s+(MYMALLOC)\b/;
148     $define{$1} = 1 if /^\s*#\s*define\s+(MULTIPLICITY)\b/;
149     $define{$1} = 1 if /^\s*#\s*define\s+(PERL_\w+)\b/;
150     $define{$1} = 1 if /^\s*#\s*define\s+(USE_\w+)\b/;
151     $define{$1} = 1 if /^\s*#\s*define\s+(HAS_\w+)\b/;
152 }
153 close(CFG);
154
155 # perl.h logic duplication begins
156
157 if ($define{PERL_IMPLICIT_SYS}) {
158     $define{PL_OP_SLAB_ALLOC} = 1;
159 }
160
161 if ($define{USE_ITHREADS}) {
162     if (!$define{MULTIPLICITY}) {
163         $define{MULTIPLICITY} = 1;
164     }
165 }
166
167 $define{PERL_IMPLICIT_CONTEXT} ||=
168     $define{USE_ITHREADS} ||
169     $define{MULTIPLICITY} ;
170
171 if ($define{USE_ITHREADS} && $PLATFORM ne 'win32' && $^O ne 'darwin') {
172     $define{USE_REENTRANT_API} = 1;
173 }
174
175 # perl.h logic duplication ends
176
177 my $sym_ord = 0;
178
179 print STDERR "Defines: (" . join(' ', sort keys %define) . ")\n";
180
181 if ($PLATFORM =~ /^win(?:32|ce)$/) {
182     (my $dll = ($define{PERL_DLL} || "perl514")) =~ s/\.dll$//i;
183     print "LIBRARY $dll\n";
184     # The DESCRIPTION module definition file statement is not supported
185     # by VC7 onwards.
186     if ($CCTYPE =~ /^(?:MSVC60|GCC|BORLAND)$/) {
187         print "DESCRIPTION 'Perl interpreter'\n";
188     }
189     print "EXPORTS\n";
190     if ($define{PERL_IMPLICIT_SYS}) {
191         output_symbol("perl_get_host_info");
192         output_symbol("perl_alloc_override");
193     }
194     if ($define{USE_ITHREADS} and $define{PERL_IMPLICIT_SYS}) {
195         output_symbol("perl_clone_host");
196     }
197 }
198 elsif ($PLATFORM eq 'os2') {
199     if (open my $fh, '<', 'perl5.def') {
200       while (<$fh>) {
201         last if /^\s*EXPORTS\b/;
202       }
203       while (<$fh>) {
204         $ordinal{$1} = $2 if /^\s*"(\w+)"\s*(?:=\s*"\w+"\s*)?\@(\d+)\s*$/;
205         # This allows skipping ordinals which were used in older versions
206         $sym_ord = $1 if /^\s*;\s*LAST_ORDINAL\s*=\s*(\d+)\s*$/;
207       }
208       $sym_ord < $_ and $sym_ord = $_ for values %ordinal; # Take the max
209     }
210     (my $v = $]) =~ s/(\d\.\d\d\d)(\d\d)$/$1_$2/;
211     $v .= '-thread' if $ARCHNAME =~ /-thread/;
212     (my $dll = $define{PERL_DLL}) =~ s/\.dll$//i;
213     $v .= "\@$PATCHLEVEL" if $PATCHLEVEL;
214     my $d = "DESCRIPTION '\@#perl5-porters\@perl.org:$v#\@ Perl interpreter, configured as $CONFIG_ARGS'";
215     $d = substr($d, 0, 249) . "...'" if length $d > 253;
216     print <<"---EOP---";
217 LIBRARY '$dll' INITINSTANCE TERMINSTANCE
218 $d
219 STACKSIZE 32768
220 CODE LOADONCALL
221 DATA LOADONCALL NONSHARED MULTIPLE
222 EXPORTS
223 ---EOP---
224 }
225 elsif ($PLATFORM eq 'aix') {
226     my $OSVER = `uname -v`;
227     chop $OSVER;
228     my $OSREL = `uname -r`;
229     chop $OSREL;
230     if ($OSVER > 4 || ($OSVER == 4 && $OSREL >= 3)) {
231         print "#! ..\n";
232     } else {
233         print "#!\n";
234     }
235 }
236 elsif ($PLATFORM eq 'netware') {
237         if ($FILETYPE eq 'def') {
238         print "LIBRARY perl514\n";
239         print "DESCRIPTION 'Perl interpreter for NetWare'\n";
240         print "EXPORTS\n";
241         }
242         if ($define{PERL_IMPLICIT_SYS}) {
243             output_symbol("perl_get_host_info");
244             output_symbol("perl_alloc_override");
245             output_symbol("perl_clone_host");
246         }
247 }
248
249 my %skip;
250 my %export;
251
252 sub skip_symbols {
253     my $list = shift;
254     foreach my $symbol (@$list) {
255         $skip{$symbol} = 1;
256     }
257 }
258
259 sub emit_symbols {
260     my $list = shift;
261     foreach my $symbol (@$list) {
262         my $skipsym = $symbol;
263         # XXX hack
264         if ($define{MULTIPLICITY}) {
265             $skipsym =~ s/^Perl_[GIT](\w+)_ptr$/PL_$1/;
266         }
267         emit_symbol($symbol) unless exists $skip{$skipsym};
268     }
269 }
270
271 if ($PLATFORM eq 'win32') {
272     skip_symbols [qw(
273                      PL_statusvalue_vms
274                      PL_archpat_auto
275                      PL_cryptseen
276                      PL_DBcv
277                      PL_generation
278                      PL_lastgotoprobe
279                      PL_linestart
280                      PL_modcount
281                      PL_pending_ident
282                      PL_sublex_info
283                      PL_timesbuf
284                      main
285                      Perl_ErrorNo
286                      Perl_GetVars
287                      Perl_do_exec3
288                      Perl_do_ipcctl
289                      Perl_do_ipcget
290                      Perl_do_msgrcv
291                      Perl_do_msgsnd
292                      Perl_do_semop
293                      Perl_do_shmio
294                      Perl_dump_fds
295                      Perl_init_thread_intern
296                      Perl_my_bzero
297                      Perl_my_bcopy
298                      Perl_my_htonl
299                      Perl_my_ntohl
300                      Perl_my_swap
301                      Perl_my_chsize
302                      Perl_same_dirent
303                      Perl_setenv_getix
304                      Perl_unlnk
305                      Perl_watch
306                      Perl_safexcalloc
307                      Perl_safexmalloc
308                      Perl_safexfree
309                      Perl_safexrealloc
310                      Perl_my_memcmp
311                      Perl_my_memset
312                      PL_cshlen
313                      PL_cshname
314                      PL_opsave
315                      Perl_do_exec
316                      Perl_getenv_len
317                      Perl_my_pclose
318                      Perl_my_popen
319                      Perl_my_sprintf
320                      )];
321 }
322 else {
323     skip_symbols [qw(
324                      Perl_do_spawn
325                      Perl_do_spawn_nowait
326                      Perl_do_aspawn
327                      )];
328 }
329 if ($PLATFORM eq 'wince') {
330     skip_symbols [qw(
331                      PL_statusvalue_vms
332                      PL_archpat_auto
333                      PL_cryptseen
334                      PL_DBcv
335                      PL_generation
336                      PL_lastgotoprobe
337                      PL_linestart
338                      PL_modcount
339                      PL_pending_ident
340                      PL_sublex_info
341                      PL_timesbuf
342                      PL_collation_ix
343                      PL_collation_name
344                      PL_collation_standard
345                      PL_collxfrm_base
346                      PL_collxfrm_mult
347                      PL_numeric_compat1
348                      PL_numeric_local
349                      PL_numeric_name
350                      PL_numeric_radix_sv
351                      PL_numeric_standard
352                      PL_vtbl_collxfrm
353                      Perl_sv_collxfrm
354                      setgid
355                      setuid
356                      win32_free_childdir
357                      win32_free_childenv
358                      win32_get_childdir
359                      win32_get_childenv
360                      win32_spawnvp
361                      main
362                      Perl_ErrorNo
363                      Perl_GetVars
364                      Perl_do_exec3
365                      Perl_do_ipcctl
366                      Perl_do_ipcget
367                      Perl_do_msgrcv
368                      Perl_do_msgsnd
369                      Perl_do_semop
370                      Perl_do_shmio
371                      Perl_dump_fds
372                      Perl_init_thread_intern
373                      Perl_my_bzero
374                      Perl_my_bcopy
375                      Perl_my_htonl
376                      Perl_my_ntohl
377                      Perl_my_swap
378                      Perl_my_chsize
379                      Perl_same_dirent
380                      Perl_setenv_getix
381                      Perl_unlnk
382                      Perl_watch
383                      Perl_safexcalloc
384                      Perl_safexmalloc
385                      Perl_safexfree
386                      Perl_safexrealloc
387                      Perl_my_memcmp
388                      Perl_my_memset
389                      PL_cshlen
390                      PL_cshname
391                      PL_opsave
392                      Perl_do_exec
393                      Perl_getenv_len
394                      Perl_my_pclose
395                      Perl_my_popen
396                      Perl_my_sprintf
397                      )];
398 }
399 elsif ($PLATFORM eq 'aix') {
400     skip_symbols([qw(
401                      Perl_dump_fds
402                      Perl_ErrorNo
403                      Perl_GetVars
404                      Perl_my_bcopy
405                      Perl_my_bzero
406                      Perl_my_chsize
407                      Perl_my_htonl
408                      Perl_my_memcmp
409                      Perl_my_memset
410                      Perl_my_ntohl
411                      Perl_my_swap
412                      Perl_safexcalloc
413                      Perl_safexfree
414                      Perl_safexmalloc
415                      Perl_safexrealloc
416                      Perl_same_dirent
417                      Perl_unlnk
418                      Perl_sys_intern_clear
419                      Perl_sys_intern_dup
420                      Perl_sys_intern_init
421                      Perl_my_sprintf
422                      PL_cryptseen
423                      PL_opsave
424                      PL_statusvalue_vms
425                      PL_sys_intern
426                      )]);
427     skip_symbols([qw(
428                      Perl_signbit
429                      )])
430         if $define{'HAS_SIGNBIT'};
431     emit_symbols([qw(
432                      boot_DynaLoader
433                      )]);
434 }
435 elsif ($PLATFORM eq 'os2') {
436     emit_symbols([qw(
437                     ctermid
438                     get_sysinfo
439                     Perl_OS2_init
440                     Perl_OS2_init3
441                     Perl_OS2_term
442                     OS2_Perl_data
443                     dlopen
444                     dlsym
445                     dlerror
446                     dlclose
447                     dup2
448                     dup
449                     my_tmpfile
450                     my_tmpnam
451                     my_flock
452                     my_rmdir
453                     my_mkdir
454                     my_getpwuid
455                     my_getpwnam
456                     my_getpwent
457                     my_setpwent
458                     my_endpwent
459                     fork_with_resources
460                     croak_with_os2error
461                     setgrent
462                     endgrent
463                     getgrent
464                     malloc_mutex
465                     threads_mutex
466                     nthreads
467                     nthreads_cond
468                     os2_cond_wait
469                     os2_stat
470                     os2_execname
471                     async_mssleep
472                     msCounter
473                     InfoTable
474                     pthread_join
475                     pthread_create
476                     pthread_detach
477                     XS_Cwd_change_drive
478                     XS_Cwd_current_drive
479                     XS_Cwd_extLibpath
480                     XS_Cwd_extLibpath_set
481                     XS_Cwd_sys_abspath
482                     XS_Cwd_sys_chdir
483                     XS_Cwd_sys_cwd
484                     XS_Cwd_sys_is_absolute
485                     XS_Cwd_sys_is_relative
486                     XS_Cwd_sys_is_rooted
487                     XS_DynaLoader_mod2fname
488                     XS_File__Copy_syscopy
489                     Perl_Register_MQ
490                     Perl_Deregister_MQ
491                     Perl_Serve_Messages
492                     Perl_Process_Messages
493                     init_PMWIN_entries
494                     PMWIN_entries
495                     Perl_hab_GET
496                     loadByOrdinal
497                     pExtFCN
498                     os2error
499                     ResetWinError
500                     CroakWinError
501                     PL_do_undump
502                     )]);
503     emit_symbols([qw(os2_cond_wait
504                      pthread_join
505                      pthread_create
506                      pthread_detach
507                     )])
508       if $define{'USE_5005THREADS'} or $define{'USE_ITHREADS'};
509 }
510 elsif ($PLATFORM eq 'netware') {
511         skip_symbols [qw(
512                         PL_statusvalue_vms
513                         PL_archpat_auto
514                         PL_cryptseen
515                         PL_DBcv
516                         PL_generation
517                         PL_lastgotoprobe
518                         PL_linestart
519                         PL_modcount
520                         PL_pending_ident
521                         PL_sublex_info
522                         PL_timesbuf
523                         main
524                         Perl_ErrorNo
525                         Perl_GetVars
526                         Perl_do_exec3
527                         Perl_do_ipcctl
528                         Perl_do_ipcget
529                         Perl_do_msgrcv
530                         Perl_do_msgsnd
531                         Perl_do_semop
532                         Perl_do_shmio
533                         Perl_dump_fds
534                         Perl_init_thread_intern
535                         Perl_my_bzero
536                         Perl_my_htonl
537                         Perl_my_ntohl
538                         Perl_my_swap
539                         Perl_my_chsize
540                         Perl_same_dirent
541                         Perl_setenv_getix
542                         Perl_unlnk
543                         Perl_watch
544                         Perl_safexcalloc
545                         Perl_safexmalloc
546                         Perl_safexfree
547                         Perl_safexrealloc
548                         Perl_my_memcmp
549                         Perl_my_memset
550                         PL_cshlen
551                         PL_cshname
552                         PL_opsave
553                         Perl_do_exec
554                         Perl_getenv_len
555                         Perl_my_pclose
556                         Perl_my_popen
557                         Perl_sys_intern_init
558                         Perl_sys_intern_dup
559                         Perl_sys_intern_clear
560                         Perl_my_bcopy
561                         Perl_PerlIO_write
562                         Perl_PerlIO_unread
563                         Perl_PerlIO_tell
564                         Perl_PerlIO_stdout
565                         Perl_PerlIO_stdin
566                         Perl_PerlIO_stderr
567                         Perl_PerlIO_setlinebuf
568                         Perl_PerlIO_set_ptrcnt
569                         Perl_PerlIO_set_cnt
570                         Perl_PerlIO_seek
571                         Perl_PerlIO_read
572                         Perl_PerlIO_get_ptr
573                         Perl_PerlIO_get_cnt
574                         Perl_PerlIO_get_bufsiz
575                         Perl_PerlIO_get_base
576                         Perl_PerlIO_flush
577                         Perl_PerlIO_fill
578                         Perl_PerlIO_fileno
579                         Perl_PerlIO_error
580                         Perl_PerlIO_eof
581                         Perl_PerlIO_close
582                         Perl_PerlIO_clearerr
583                         PerlIO_perlio
584                         )];
585 }
586
587 unless ($define{'DEBUGGING'}) {
588     skip_symbols [qw(
589                     Perl_deb_growlevel
590                     Perl_debop
591                     Perl_debprofdump
592                     Perl_debstack
593                     Perl_debstackptrs
594                     Perl_pad_sv
595                     Perl_hv_assert
596                     PL_block_type
597                     PL_watchaddr
598                     PL_watchok
599                     PL_watch_pvx
600                     )];
601 }
602
603 if ($define{'PERL_IMPLICIT_CONTEXT'}) {
604     skip_symbols [qw(
605                     PL_sig_sv
606                     )];
607 }
608
609 if ($define{'PERL_IMPLICIT_SYS'}) {
610     skip_symbols [qw(
611                     Perl_getenv_len
612                     Perl_my_popen
613                     Perl_my_pclose
614                     )];
615 }
616 else {
617     skip_symbols [qw(
618                     PL_Mem
619                     PL_MemShared
620                     PL_MemParse
621                     PL_Env
622                     PL_StdIO
623                     PL_LIO
624                     PL_Dir
625                     PL_Sock
626                     PL_Proc
627                     )];
628 }
629
630 unless ($define{'PERL_OLD_COPY_ON_WRITE'}) {
631     skip_symbols [qw(
632                     Perl_sv_setsv_cow
633                   )];
634 }
635
636 unless ($define{'USE_REENTRANT_API'}) {
637     skip_symbols [qw(
638                     PL_reentrant_buffer
639                     )];
640 }
641
642 if ($define{'MYMALLOC'}) {
643     emit_symbols [qw(
644                     Perl_dump_mstats
645                     Perl_get_mstats
646                     Perl_strdup
647                     Perl_putenv
648                     MallocCfg_ptr
649                     MallocCfgP_ptr
650                     )];
651     if ($define{'USE_ITHREADS'}) {
652         emit_symbols [qw(
653                         PL_malloc_mutex
654                         )];
655     }
656     else {
657         skip_symbols [qw(
658                         PL_malloc_mutex
659                         )];
660     }
661 }
662 else {
663     skip_symbols [qw(
664                     PL_malloc_mutex
665                     Perl_dump_mstats
666                     Perl_get_mstats
667                     Perl_malloced_size
668                     Perl_malloc_good_size
669                     MallocCfg_ptr
670                     MallocCfgP_ptr
671                     )];
672 }
673
674 if ($define{'PERL_USE_SAFE_PUTENV'}) {
675     skip_symbols [qw(
676                    PL_use_safe_putenv
677                   )];
678 }
679
680 unless ($define{'USE_ITHREADS'}) {
681     skip_symbols [qw(
682                     PL_thr_key
683                     )];
684 }
685
686 # USE_5005THREADS symbols. Kept as reference for easier removal
687     skip_symbols [qw(
688                     PL_sv_mutex
689                     PL_strtab_mutex
690                     PL_svref_mutex
691                     PL_cred_mutex
692                     PL_eval_mutex
693                     PL_fdpid_mutex
694                     PL_sv_lock_mutex
695                     PL_eval_cond
696                     PL_eval_owner
697                     PL_threads_mutex
698                     PL_nthreads
699                     PL_nthreads_cond
700                     PL_threadnum
701                     PL_threadsv_names
702                     PL_thrsv
703                     PL_vtbl_mutex
704                     Perl_condpair_magic
705                     Perl_new_struct_thread
706                     Perl_per_thread_magicals
707                     Perl_thread_create
708                     Perl_find_threadsv
709                     Perl_unlock_condpair
710                     Perl_magic_mutexfree
711                     Perl_sv_lock
712                     )];
713
714 unless ($define{'USE_ITHREADS'}) {
715     skip_symbols [qw(
716                     PL_op_mutex
717                     PL_regex_pad
718                     PL_regex_padav
719                     PL_sharedsv_space
720                     PL_sharedsv_space_mutex
721                     PL_dollarzero_mutex
722                     PL_hints_mutex
723                     PL_my_ctx_mutex
724                     PL_perlio_mutex
725                     PL_regdupe
726                     Perl_clone_params_del
727                     Perl_clone_params_new
728                     Perl_parser_dup
729                     Perl_dirp_dup
730                     Perl_cx_dup
731                     Perl_si_dup
732                     Perl_any_dup
733                     Perl_ss_dup
734                     Perl_fp_dup
735                     Perl_gp_dup
736                     Perl_he_dup
737                     Perl_mg_dup
738                     Perl_mro_meta_dup
739                     Perl_re_dup_guts
740                     Perl_sv_dup
741                     Perl_sv_dup_inc
742                     Perl_rvpv_dup
743                     Perl_hek_dup
744                     Perl_sys_intern_dup
745                     perl_clone
746                     perl_clone_using
747                     Perl_sharedsv_find
748                     Perl_sharedsv_init
749                     Perl_sharedsv_lock
750                     Perl_sharedsv_new
751                     Perl_sharedsv_thrcnt_dec
752                     Perl_sharedsv_thrcnt_inc
753                     Perl_sharedsv_unlock
754                     Perl_stashpv_hvname_match
755                     Perl_regdupe_internal
756                     Perl_newPADOP
757                     )];
758 }
759
760 unless ($define{'PERL_IMPLICIT_CONTEXT'}) {
761     skip_symbols [qw(
762                     PL_my_cxt_index
763                     PL_my_cxt_list
764                     PL_my_cxt_size
765                     PL_my_cxt_keys
766                     Perl_croak_nocontext
767                     Perl_die_nocontext
768                     Perl_deb_nocontext
769                     Perl_form_nocontext
770                     Perl_load_module_nocontext
771                     Perl_mess_nocontext
772                     Perl_warn_nocontext
773                     Perl_warner_nocontext
774                     Perl_newSVpvf_nocontext
775                     Perl_sv_catpvf_nocontext
776                     Perl_sv_setpvf_nocontext
777                     Perl_sv_catpvf_mg_nocontext
778                     Perl_sv_setpvf_mg_nocontext
779                     Perl_my_cxt_init
780                     Perl_my_cxt_index
781                     )];
782 }
783
784 unless ($define{'PERL_IMPLICIT_SYS'}) {
785     skip_symbols [qw(
786                     perl_alloc_using
787                     perl_clone_using
788                     )];
789 }
790
791 unless ($define{'FAKE_THREADS'}) {
792     skip_symbols [qw(PL_curthr)];
793 }
794
795 unless ($define{'PL_OP_SLAB_ALLOC'}) {
796     skip_symbols [qw(
797                      PL_OpPtr
798                      PL_OpSlab
799                      PL_OpSpace
800                      Perl_Slab_Alloc
801                      Perl_Slab_Free
802                     )];
803 }
804
805 unless ($define{'PERL_DEBUG_READONLY_OPS'}) {
806     skip_symbols [qw(
807                     PL_slab_count
808                     PL_slabs
809                   )];
810 }
811
812 unless ($define{'THREADS_HAVE_PIDS'}) {
813     skip_symbols [qw(PL_ppid)];
814 }
815
816 unless ($define{'PERL_NEED_APPCTX'}) {
817     skip_symbols [qw(
818                     PL_appctx
819                     )];
820 }
821
822 unless ($define{'PERL_NEED_TIMESBASE'}) {
823     skip_symbols [qw(
824                     PL_timesbase
825                     )];
826 }
827
828 unless ($define{'DEBUG_LEAKING_SCALARS'}) {
829     skip_symbols [qw(
830                     PL_sv_serial
831                     )];
832 }
833
834 unless ($define{'DEBUG_LEAKING_SCALARS_FORK_DUMP'}) {
835     skip_symbols [qw(
836                     PL_dumper_fd
837                     )];
838 }
839 unless ($define{'PERL_DONT_CREATE_GVSV'}) {
840     skip_symbols [qw(
841                      Perl_gv_SVadd
842                     )];
843 }
844 if ($define{'SPRINTF_RETURNS_STRLEN'}) {
845     skip_symbols [qw(
846                      Perl_my_sprintf
847                     )];
848 }
849 unless ($define{'PERL_USES_PL_PIDSTATUS'}) {
850     skip_symbols [qw(
851                      Perl_pidgone
852                      PL_pidstatus
853                     )];
854 }
855
856 unless ($define{'PERL_TRACK_MEMPOOL'}) {
857     skip_symbols [qw(
858                      PL_memory_debug_header
859                     )];
860 }
861
862 if ($define{'PERL_MAD'}) {
863     skip_symbols [qw(
864                      PL_nextval
865                      PL_nexttype
866                      )];
867 } else {
868     skip_symbols [qw(
869                     PL_madskills
870                     PL_xmlfp
871                     PL_lasttoke
872                     PL_realtokenstart
873                     PL_faketokens
874                     PL_thismad
875                     PL_thistoken
876                     PL_thisopen
877                     PL_thisstuff
878                     PL_thisclose
879                     PL_thiswhite
880                     PL_nextwhite
881                     PL_skipwhite
882                     PL_endwhite
883                     PL_curforce
884                     Perl_pad_peg
885                     Perl_xmldump_indent
886                     Perl_xmldump_vindent
887                     Perl_xmldump_all
888                     Perl_xmldump_packsubs
889                     Perl_xmldump_sub
890                     Perl_xmldump_form
891                     Perl_xmldump_eval
892                     Perl_sv_catxmlsv
893                     Perl_sv_catxmlpvn
894                     Perl_sv_xmlpeek
895                     Perl_do_pmop_xmldump
896                     Perl_pmop_xmldump
897                     Perl_do_op_xmldump
898                     Perl_op_xmldump
899                     )];
900 }
901
902 unless ($define{'MULTIPLICITY'}) {
903     skip_symbols [qw(
904                     PL_interp_size
905                     PL_interp_size_5_10_0
906                     )];
907 }
908
909 unless ($define{'PERL_GLOBAL_STRUCT'}) {
910     skip_symbols [qw(
911                     PL_global_struct_size
912                     )];
913 }
914
915 unless ($define{'PERL_GLOBAL_STRUCT_PRIVATE'}) {
916     skip_symbols [qw(
917                     PL_my_cxt_keys
918                     Perl_my_cxt_index
919                     )];
920 }
921
922 unless ($define{'d_mmap'}) {
923     skip_symbols [qw(
924                     PL_mmap_page_size
925                     )];
926 }
927
928 if ($define{'d_sigaction'}) {
929     skip_symbols [qw(
930                     PL_sig_trapped
931                     )];
932 }
933
934 if ($^O ne 'vms') {
935     # VMS does its own thing for these symbols.
936     skip_symbols [qw(PL_sig_handlers_initted
937                      PL_sig_ignoring
938                      PL_sig_defaulting)];
939 }  
940
941 sub readvar {
942     my $file = shift;
943     my $proc = shift || sub { "PL_$_[2]" };
944     open(VARS,$file) || die "Cannot open $file: $!\n";
945     my @syms;
946     while (<VARS>) {
947         # All symbols have a Perl_ prefix because that's what embed.h
948         # sticks in front of them.  The A?I?S?C? is strictly speaking
949         # wrong.
950         push(@syms, &$proc($1,$2,$3)) if (/\bPERLVAR(A?I?S?C?)\(([IGT])(\w+)/);
951     }
952     close(VARS);
953     return \@syms;
954 }
955
956 if ($define{'PERL_GLOBAL_STRUCT'}) {
957     my $global = readvar($perlvars_h);
958     skip_symbols $global;
959     emit_symbol('Perl_GetVars');
960     emit_symbols [qw(PL_Vars PL_VarsPtr)] unless $CCTYPE eq 'GCC';
961 } else {
962     skip_symbols [qw(Perl_init_global_struct Perl_free_global_struct)];
963 }
964
965 # functions from *.sym files
966
967 my @syms = ($global_sym, $globvar_sym);
968
969 # Symbols that are the public face of the PerlIO layers implementation
970 # These are in _addition to_ the public face of the abstraction
971 # and need to be exported to allow XS modules to implement layers
972 my @layer_syms = qw(
973                     PerlIOBase_binmode
974                     PerlIOBase_clearerr
975                     PerlIOBase_close
976                     PerlIOBase_dup
977                     PerlIOBase_eof
978                     PerlIOBase_error
979                     PerlIOBase_fileno
980                     PerlIOBase_noop_fail
981                     PerlIOBase_noop_ok
982                     PerlIOBase_popped
983                     PerlIOBase_pushed
984                     PerlIOBase_read
985                     PerlIOBase_setlinebuf
986                     PerlIOBase_unread
987                     PerlIOBuf_bufsiz
988                     PerlIOBuf_close
989                     PerlIOBuf_dup
990                     PerlIOBuf_fill
991                     PerlIOBuf_flush
992                     PerlIOBuf_get_base
993                     PerlIOBuf_get_cnt
994                     PerlIOBuf_get_ptr
995                     PerlIOBuf_open
996                     PerlIOBuf_popped
997                     PerlIOBuf_pushed
998                     PerlIOBuf_read
999                     PerlIOBuf_seek
1000                     PerlIOBuf_set_ptrcnt
1001                     PerlIOBuf_tell
1002                     PerlIOBuf_unread
1003                     PerlIOBuf_write
1004                     PerlIO_allocate
1005                     PerlIO_apply_layera
1006                     PerlIO_apply_layers
1007                     PerlIO_arg_fetch
1008                     PerlIO_debug
1009                     PerlIO_define_layer
1010                     PerlIO_find_layer
1011                     PerlIO_isutf8
1012                     PerlIO_layer_fetch
1013                     PerlIO_list_alloc
1014                     PerlIO_list_free
1015                     PerlIO_modestr
1016                     PerlIO_parse_layers
1017                     PerlIO_pending
1018                     PerlIO_perlio
1019                     PerlIO_pop
1020                     PerlIO_push
1021                     PerlIO_sv_dup
1022                     Perl_PerlIO_clearerr
1023                     Perl_PerlIO_close
1024                     Perl_PerlIO_context_layers
1025                     Perl_PerlIO_eof
1026                     Perl_PerlIO_error
1027                     Perl_PerlIO_fileno
1028                     Perl_PerlIO_fill
1029                     Perl_PerlIO_flush
1030                     Perl_PerlIO_get_base
1031                     Perl_PerlIO_get_bufsiz
1032                     Perl_PerlIO_get_cnt
1033                     Perl_PerlIO_get_ptr
1034                     Perl_PerlIO_read
1035                     Perl_PerlIO_seek
1036                     Perl_PerlIO_set_cnt
1037                     Perl_PerlIO_set_ptrcnt
1038                     Perl_PerlIO_setlinebuf
1039                     Perl_PerlIO_stderr
1040                     Perl_PerlIO_stdin
1041                     Perl_PerlIO_stdout
1042                     Perl_PerlIO_tell
1043                     Perl_PerlIO_unread
1044                     Perl_PerlIO_write
1045 );
1046 if ($PLATFORM eq 'netware') {
1047     push(@layer_syms,'PL_def_layerlist','PL_known_layers','PL_perlio');
1048 }
1049
1050 if ($define{'USE_PERLIO'}) {
1051     # Export the symols that make up the PerlIO abstraction, regardless
1052     # of its implementation - read from a file
1053     push @syms, $perlio_sym;
1054
1055     # This part is then dependent on how the abstraction is implemented
1056     if ($define{'USE_SFIO'}) {
1057         # Old legacy non-stdio "PerlIO"
1058         skip_symbols \@layer_syms;
1059         skip_symbols [qw(perlsio_binmode)];
1060         # SFIO defines most of the PerlIO routines as macros
1061         # So undo most of what $perlio_sym has just done - d'oh !
1062         # Perhaps it would be better to list the ones which do exist
1063         # And emit them
1064         skip_symbols [qw(
1065                          PerlIO_canset_cnt
1066                          PerlIO_clearerr
1067                          PerlIO_close
1068                          PerlIO_eof
1069                          PerlIO_error
1070                          PerlIO_exportFILE
1071                          PerlIO_fast_gets
1072                          PerlIO_fdopen
1073                          PerlIO_fileno
1074                          PerlIO_findFILE
1075                          PerlIO_flush
1076                          PerlIO_get_base
1077                          PerlIO_get_bufsiz
1078                          PerlIO_get_cnt
1079                          PerlIO_get_ptr
1080                          PerlIO_getc
1081                          PerlIO_getname
1082                          PerlIO_has_base
1083                          PerlIO_has_cntptr
1084                          PerlIO_importFILE
1085                          PerlIO_open
1086                          PerlIO_printf
1087                          PerlIO_putc
1088                          PerlIO_puts
1089                          PerlIO_read
1090                          PerlIO_releaseFILE
1091                          PerlIO_reopen
1092                          PerlIO_rewind
1093                          PerlIO_seek
1094                          PerlIO_set_cnt
1095                          PerlIO_set_ptrcnt
1096                          PerlIO_setlinebuf
1097                          PerlIO_sprintf
1098                          PerlIO_stderr
1099                          PerlIO_stdin
1100                          PerlIO_stdout
1101                          PerlIO_stdoutf
1102                          PerlIO_tell
1103                          PerlIO_ungetc
1104                          PerlIO_vprintf
1105                          PerlIO_write
1106                          PerlIO_perlio
1107                          Perl_PerlIO_clearerr
1108                          Perl_PerlIO_close
1109                          Perl_PerlIO_eof
1110                          Perl_PerlIO_error
1111                          Perl_PerlIO_fileno
1112                          Perl_PerlIO_fill
1113                          Perl_PerlIO_flush
1114                          Perl_PerlIO_get_base
1115                          Perl_PerlIO_get_bufsiz
1116                          Perl_PerlIO_get_cnt
1117                          Perl_PerlIO_get_ptr
1118                          Perl_PerlIO_read
1119                          Perl_PerlIO_seek
1120                          Perl_PerlIO_set_cnt
1121                          Perl_PerlIO_set_ptrcnt
1122                          Perl_PerlIO_setlinebuf
1123                          Perl_PerlIO_stderr
1124                          Perl_PerlIO_stdin
1125                          Perl_PerlIO_stdout
1126                          Perl_PerlIO_tell
1127                          Perl_PerlIO_unread
1128                          Perl_PerlIO_write
1129                          PL_def_layerlist
1130                          PL_known_layers
1131                          PL_perlio
1132                          )];
1133     }
1134     else {
1135         # PerlIO with layers - export implementation
1136         emit_symbols \@layer_syms;
1137         emit_symbols [qw(perlsio_binmode)];
1138     }
1139     if ($define{'USE_ITHREADS'}) {
1140         emit_symbols [qw(
1141                         PL_perlio_mutex
1142                         )];
1143     }
1144     else {
1145         skip_symbols [qw(
1146                         PL_perlio_mutex
1147                         )];
1148     }
1149 } else {
1150         # -Uuseperlio
1151         # Skip the PerlIO layer symbols - although
1152         # nothing should have exported them anyway.
1153         skip_symbols \@layer_syms;
1154         skip_symbols [qw(
1155                         perlsio_binmode
1156                         PL_def_layerlist
1157                         PL_known_layers
1158                         PL_perlio
1159                         PL_perlio_debug_fd
1160                         PL_perlio_fd_refcnt
1161                         PL_perlio_fd_refcnt_size
1162                         )];
1163
1164         # Also do NOT add abstraction symbols from $perlio_sym
1165         # abstraction is done as #define to stdio
1166         # Remaining remnants that _may_ be functions
1167         # are handled in <DATA>
1168 }
1169
1170 for my $syms (@syms) {
1171     open (GLOBAL, "<$syms") || die "failed to open $syms: $!\n";
1172     while (<GLOBAL>) {
1173         next if (!/^[A-Za-z]/);
1174         # Functions have a Perl_ prefix
1175         # Variables have a PL_ prefix
1176         chomp($_);
1177         my $symbol = ($syms =~ /var\.sym$/i ? "PL_" : "");
1178         $symbol .= $_;
1179         emit_symbol($symbol) unless exists $skip{$symbol};
1180     }
1181     close(GLOBAL);
1182 }
1183
1184 # variables
1185
1186 if ($define{'MULTIPLICITY'} && $define{PERL_GLOBAL_STRUCT}) {
1187     for my $f ($perlvars_h) {
1188         my $glob = readvar($f, sub { "Perl_" . $_[1] . $_[2] . "_ptr" });
1189         emit_symbols $glob;
1190     }
1191     # XXX AIX seems to want the perlvars.h symbols, for some reason
1192     if ($PLATFORM eq 'aix' or $PLATFORM eq 'os2') {     # OS/2 needs PL_thr_key
1193         my $glob = readvar($perlvars_h);
1194         emit_symbols $glob;
1195     }
1196 }
1197 else {
1198     unless ($define{'PERL_GLOBAL_STRUCT'}) {
1199         my $glob = readvar($perlvars_h);
1200         emit_symbols $glob;
1201     }
1202     unless ($define{MULTIPLICITY}) {
1203         my $glob = readvar($intrpvar_h);
1204         emit_symbols $glob;
1205     }
1206 }
1207
1208 sub try_symbol {
1209     my $symbol = shift;
1210
1211     return if $symbol !~ /^[A-Za-z_]/;
1212     return if $symbol =~ /^\#/;
1213     $symbol =~s/\r//g;
1214     chomp($symbol);
1215     return if exists $skip{$symbol};
1216     emit_symbol($symbol);
1217 }
1218
1219 while (<DATA>) {
1220     try_symbol($_);
1221 }
1222
1223 if ($PLATFORM =~ /^win(?:32|ce)$/) {
1224     foreach my $symbol (qw(
1225                             setuid
1226                             setgid
1227                             boot_DynaLoader
1228                             Perl_init_os_extras
1229                             Perl_thread_create
1230                             Perl_win32_init
1231                             Perl_win32_term
1232                             RunPerl
1233                             win32_async_check
1234                             win32_errno
1235                             win32_environ
1236                             win32_abort
1237                             win32_fstat
1238                             win32_stat
1239                             win32_pipe
1240                             win32_popen
1241                             win32_pclose
1242                             win32_rename
1243                             win32_setmode
1244                             win32_chsize
1245                             win32_lseek
1246                             win32_tell
1247                             win32_dup
1248                             win32_dup2
1249                             win32_open
1250                             win32_close
1251                             win32_eof
1252                             win32_isatty
1253                             win32_read
1254                             win32_write
1255                             win32_spawnvp
1256                             win32_mkdir
1257                             win32_rmdir
1258                             win32_chdir
1259                             win32_flock
1260                             win32_execv
1261                             win32_execvp
1262                             win32_htons
1263                             win32_ntohs
1264                             win32_htonl
1265                             win32_ntohl
1266                             win32_inet_addr
1267                             win32_inet_ntoa
1268                             win32_socket
1269                             win32_bind
1270                             win32_listen
1271                             win32_accept
1272                             win32_connect
1273                             win32_send
1274                             win32_sendto
1275                             win32_recv
1276                             win32_recvfrom
1277                             win32_shutdown
1278                             win32_closesocket
1279                             win32_ioctlsocket
1280                             win32_setsockopt
1281                             win32_getsockopt
1282                             win32_getpeername
1283                             win32_getsockname
1284                             win32_gethostname
1285                             win32_gethostbyname
1286                             win32_gethostbyaddr
1287                             win32_getprotobyname
1288                             win32_getprotobynumber
1289                             win32_getservbyname
1290                             win32_getservbyport
1291                             win32_select
1292                             win32_endhostent
1293                             win32_endnetent
1294                             win32_endprotoent
1295                             win32_endservent
1296                             win32_getnetent
1297                             win32_getnetbyname
1298                             win32_getnetbyaddr
1299                             win32_getprotoent
1300                             win32_getservent
1301                             win32_sethostent
1302                             win32_setnetent
1303                             win32_setprotoent
1304                             win32_setservent
1305                             win32_getenv
1306                             win32_putenv
1307                             win32_perror
1308                             win32_malloc
1309                             win32_calloc
1310                             win32_realloc
1311                             win32_free
1312                             win32_sleep
1313                             win32_times
1314                             win32_access
1315                             win32_alarm
1316                             win32_chmod
1317                             win32_open_osfhandle
1318                             win32_get_osfhandle
1319                             win32_ioctl
1320                             win32_link
1321                             win32_unlink
1322                             win32_utime
1323                             win32_gettimeofday
1324                             win32_uname
1325                             win32_wait
1326                             win32_waitpid
1327                             win32_kill
1328                             win32_str_os_error
1329                             win32_opendir
1330                             win32_readdir
1331                             win32_telldir
1332                             win32_seekdir
1333                             win32_rewinddir
1334                             win32_closedir
1335                             win32_longpath
1336                             win32_ansipath
1337                             win32_os_id
1338                             win32_getpid
1339                             win32_crypt
1340                             win32_dynaload
1341                             win32_get_childenv
1342                             win32_free_childenv
1343                             win32_clearenv
1344                             win32_get_childdir
1345                             win32_free_childdir
1346                             win32_stdin
1347                             win32_stdout
1348                             win32_stderr
1349                             win32_ferror
1350                             win32_feof
1351                             win32_strerror
1352                             win32_fprintf
1353                             win32_printf
1354                             win32_vfprintf
1355                             win32_vprintf
1356                             win32_fread
1357                             win32_fwrite
1358                             win32_fopen
1359                             win32_fdopen
1360                             win32_freopen
1361                             win32_fclose
1362                             win32_fputs
1363                             win32_fputc
1364                             win32_ungetc
1365                             win32_getc
1366                             win32_fileno
1367                             win32_clearerr
1368                             win32_fflush
1369                             win32_ftell
1370                             win32_fseek
1371                             win32_fgetpos
1372                             win32_fsetpos
1373                             win32_rewind
1374                             win32_tmpfile
1375                             win32_setbuf
1376                             win32_setvbuf
1377                             win32_flushall
1378                             win32_fcloseall
1379                             win32_fgets
1380                             win32_gets
1381                             win32_fgetc
1382                             win32_putc
1383                             win32_puts
1384                             win32_getchar
1385                             win32_putchar
1386                            ))
1387     {
1388         try_symbol($symbol);
1389     }
1390     if ($CCTYPE eq "BORLAND") {
1391         try_symbol('_matherr');
1392     }
1393 }
1394 elsif ($PLATFORM eq 'os2') {
1395     my (%mapped, @missing);
1396     open MAP, 'miniperl.map' or die 'Cannot read miniperl.map';
1397     /^\s*[\da-f:]+\s+(\w+)/i and $mapped{$1}++ foreach <MAP>;
1398     close MAP or die 'Cannot close miniperl.map';
1399
1400     @missing = grep { !exists $mapped{$_} }
1401                     keys %export;
1402     @missing = grep { !exists $exportperlmalloc{$_} } @missing;
1403     delete $export{$_} foreach @missing;
1404 }
1405 elsif ($PLATFORM eq 'netware') {
1406 foreach my $symbol (qw(
1407                         boot_DynaLoader
1408                         Perl_init_os_extras
1409                         Perl_thread_create
1410                         Perl_nw5_init
1411                         RunPerl
1412                         AllocStdPerl
1413                         FreeStdPerl
1414                         do_spawn2
1415                         do_aspawn
1416                         nw_uname
1417                         nw_stdin
1418                         nw_stdout
1419                         nw_stderr
1420                         nw_feof
1421                         nw_ferror
1422                         nw_fopen
1423                         nw_fclose
1424                         nw_clearerr
1425                         nw_getc
1426                         nw_fgets
1427                         nw_fputc
1428                         nw_fputs
1429                         nw_fflush
1430                         nw_ungetc
1431                         nw_fileno
1432                         nw_fdopen
1433                         nw_freopen
1434                         nw_fread
1435                         nw_fwrite
1436                         nw_setbuf
1437                         nw_setvbuf
1438                         nw_vfprintf
1439                         nw_ftell
1440                         nw_fseek
1441                         nw_rewind
1442                         nw_tmpfile
1443                         nw_fgetpos
1444                         nw_fsetpos
1445                         nw_dup
1446                         nw_access
1447                         nw_chmod
1448                         nw_chsize
1449                         nw_close
1450                         nw_dup2
1451                         nw_flock
1452                         nw_isatty
1453                         nw_link
1454                         nw_lseek
1455                         nw_stat
1456                         nw_mktemp
1457                         nw_open
1458                         nw_read
1459                         nw_rename
1460                         nw_setmode
1461                         nw_unlink
1462                         nw_utime
1463                         nw_write
1464                         nw_chdir
1465                         nw_rmdir
1466                         nw_closedir
1467                         nw_opendir
1468                         nw_readdir
1469                         nw_rewinddir
1470                         nw_seekdir
1471                         nw_telldir
1472                         nw_htonl
1473                         nw_htons
1474                         nw_ntohl
1475                         nw_ntohs
1476                         nw_accept
1477                         nw_bind
1478                         nw_connect
1479                         nw_endhostent
1480                         nw_endnetent
1481                         nw_endprotoent
1482                         nw_endservent
1483                         nw_gethostbyaddr
1484                         nw_gethostbyname
1485                         nw_gethostent
1486                         nw_gethostname
1487                         nw_getnetbyaddr
1488                         nw_getnetbyname
1489                         nw_getnetent
1490                         nw_getpeername
1491                         nw_getprotobyname
1492                         nw_getprotobynumber
1493                         nw_getprotoent
1494                         nw_getservbyname
1495                         nw_getservbyport
1496                         nw_getservent
1497                         nw_getsockname
1498                         nw_getsockopt
1499                         nw_inet_addr
1500                         nw_listen
1501                         nw_socket
1502                         nw_recv
1503                         nw_recvfrom
1504                         nw_select
1505                         nw_send
1506                         nw_sendto
1507                         nw_sethostent
1508                         nw_setnetent
1509                         nw_setprotoent
1510                         nw_setservent
1511                         nw_setsockopt
1512                         nw_inet_ntoa
1513                         nw_shutdown
1514                         nw_crypt
1515                         nw_execvp
1516                         nw_kill
1517                         nw_Popen
1518                         nw_Pclose
1519                         nw_Pipe
1520                         nw_times
1521                         nw_waitpid
1522                         nw_getpid
1523                         nw_spawnvp
1524                         nw_os_id
1525                         nw_open_osfhandle
1526                         nw_get_osfhandle
1527                         nw_abort
1528                         nw_sleep
1529                         nw_wait
1530                         nw_dynaload
1531                         nw_strerror
1532                         fnFpSetMode
1533                         fnInsertHashListAddrs
1534                         fnGetHashListAddrs
1535                         Perl_deb
1536                         Perl_sv_setsv
1537                         Perl_sv_catsv
1538                         Perl_sv_catpvn
1539                         Perl_sv_2pv
1540                         nw_freeenviron
1541                         Remove_Thread_Ctx
1542                            ))
1543     {
1544         try_symbol($symbol);
1545     }
1546 }
1547
1548 # records of type boot_module for statically linked modules (except Dynaloader)
1549 $static_ext =~ s/\//__/g;
1550 $static_ext =~ s/\bDynaLoader\b//;
1551 my @stat_mods = map {"boot_$_"} grep {/\S/} split /\s+/, $static_ext;
1552 foreach my $symbol (@stat_mods)
1553     {
1554         try_symbol($symbol);
1555     }
1556
1557 try_symbol("init_Win32CORE") if $static_ext =~ /\bWin32CORE\b/;
1558
1559 # Now all symbols should be defined because
1560 # next we are going to output them.
1561
1562 foreach my $symbol (sort keys %export) {
1563     output_symbol($symbol);
1564 }
1565
1566 if ($PLATFORM eq 'os2') {
1567         print <<EOP;
1568     dll_perlmain=main
1569     fill_extLibpath
1570     dir_subst
1571     Perl_OS2_handler_install
1572
1573 ; LAST_ORDINAL=$sym_ord
1574 EOP
1575 }
1576
1577 sub emit_symbol {
1578     my $symbol = shift;
1579     chomp($symbol);
1580     $export{$symbol} = 1;
1581 }
1582
1583 sub output_symbol {
1584     my $symbol = shift;
1585     if ($PLATFORM =~ /^win(?:32|ce)$/) {
1586         $symbol = "_$symbol" if $CCTYPE eq 'BORLAND';
1587         print "\t$symbol\n";
1588 # XXX: binary compatibility between compilers is an exercise
1589 # in frustration :-(
1590 #        if ($CCTYPE eq "BORLAND") {
1591 #           # workaround Borland quirk by exporting both the straight
1592 #           # name and a name with leading underscore.  Note the
1593 #           # alias *must* come after the symbol itself, if both
1594 #           # are to be exported. (Linker bug?)
1595 #           print "\t_$symbol\n";
1596 #           print "\t$symbol = _$symbol\n";
1597 #       }
1598 #       elsif ($CCTYPE eq 'GCC') {
1599 #           # Symbols have leading _ whole process is $%@"% slow
1600 #           # so skip aliases for now
1601 #           nprint "\t$symbol\n";
1602 #       }
1603 #       else {
1604 #           # for binary coexistence, export both the symbol and
1605 #           # alias with leading underscore
1606 #           print "\t$symbol\n";
1607 #           print "\t_$symbol = $symbol\n";
1608 #       }
1609     }
1610     elsif ($PLATFORM eq 'os2') {
1611         printf qq(    %-31s \@%s\n),
1612           qq("$symbol"), $ordinal{$symbol} || ++$sym_ord;
1613         printf qq(    %-31s \@%s\n),
1614           qq("$exportperlmalloc{$symbol}" = "$symbol"),
1615           $ordinal{$exportperlmalloc{$symbol}} || ++$sym_ord
1616           if $exportperlmalloc and exists $exportperlmalloc{$symbol};
1617     }
1618     elsif ($PLATFORM eq 'aix') {
1619         print "$symbol\n";
1620     }
1621         elsif ($PLATFORM eq 'netware') {
1622         print "\t$symbol,\n";
1623         }
1624 }
1625
1626 1;
1627 __DATA__
1628 # Oddities from PerlIO
1629 PerlIO_binmode
1630 PerlIO_getpos
1631 PerlIO_init
1632 PerlIO_setpos
1633 PerlIO_sprintf
1634 PerlIO_sv_dup
1635 PerlIO_tmpfile
1636 PerlIO_vsprintf