#
# Create the export list for perl.
#
-# Needed by WIN32 and OS/2 for creating perl.dll
-# and by AIX for creating libperl.a when -Dusershrplib is in effect.
+# Needed by WIN32 and OS/2 for creating perl.dll,
+# and by AIX for creating libperl.a when -Dusershrplib is in effect,
+# and by MacOS Classic.
#
# reads global.sym, pp.sym, perlvars.h, intrpvar.h, thrdvar.h, config.h
# On OS/2 reads miniperl.map as well
@PLATFORM{@PLATFORM} = ();
defined $PLATFORM || die "PLATFORM undefined, must be one of: @PLATFORM\n";
-exists $PLATFORM{$PLATFORM} || die "PLATFORM must be one of: @PLATFORM\n";
+exists $PLATFORM{$PLATFORM} || die "PLATFORM must be one of: @PLATFORM\n";
my $config_sh = "config.sh";
my $config_h = "config.h";
my $globvar_sym = "globvar.sym";
my $perlio_sym = "perlio.sym";
-if ($PLATFORM eq 'aix') {
+if ($PLATFORM eq 'aix') {
# Nothing for now.
}
elsif ($PLATFORM eq 'win32') {
if ($define{PERL_CAPI}) {
delete $define{PERL_OBJECT};
- $define{MULTIPLICITY} = 1;
+ $define{MULTIPLICITY} = 1;
$define{PERL_IMPLICIT_CONTEXT} = 1;
$define{PERL_IMPLICIT_SYS} = 1;
}
my_tmpfile
my_tmpnam
my_flock
+ my_rmdir
+ my_mkdir
malloc_mutex
threads_mutex
nthreads
Perl_mfree
Perl_realloc
Perl_calloc
+ Perl_strdup
+ Perl_putenv
)];
if ($define{'USE_5005THREADS'} || $define{'USE_ITHREADS'}) {
emit_symbols [qw(
Perl_re_dup
Perl_sv_dup
Perl_sys_intern_dup
+ Perl_ptr_table_clear
Perl_ptr_table_fetch
+ Perl_ptr_table_free
Perl_ptr_table_new
+ Perl_ptr_table_clear
+ Perl_ptr_table_free
Perl_ptr_table_split
Perl_ptr_table_store
perl_clone
# All symbols have a Perl_ prefix because that's what embed.h
# sticks in front of them.
push(@syms, &$proc($1,$2,$3)) if (/\bPERLVAR(A?I?C?)\(([IGT])(\w+)/);
- }
- close(VARS);
+ }
+ close(VARS);
return \@syms;
}
my @syms = ($global_sym, $globvar_sym); # $pp_sym is not part of the API
+my @layer_syms = qw(
+ PerlIOBase_clearerr
+ PerlIOBase_close
+ PerlIOBase_eof
+ PerlIOBase_error
+ PerlIOBase_fileno
+ PerlIOBase_setlinebuf
+ PerlIOBase_pushed
+ PerlIOBase_read
+ PerlIOBase_unread
+ PerlIOBuf_bufsiz
+ PerlIOBuf_fill
+ PerlIOBuf_flush
+ PerlIOBuf_get_cnt
+ PerlIOBuf_get_ptr
+ PerlIOBuf_open
+ PerlIOBuf_pushed
+ PerlIOBuf_read
+ PerlIOBuf_seek
+ PerlIOBuf_set_ptrcnt
+ PerlIOBuf_tell
+ PerlIOBuf_unread
+ PerlIOBuf_write
+ PerlIO_define_layer
+ PerlIO_arg_fetch
+ PerlIO_pending
+ PerlIO_allocate
+ PerlIO_push
+ PerlIO_unread
+);
+
if ($define{'USE_PERLIO'}) {
push @syms, $perlio_sym;
if ($define{'USE_SFIO'}) {
+ skip_symbols \@layer_syms;
# SFIO defines most of the PerlIO routines as macros
skip_symbols [qw(
PerlIO_canset_cnt
PerlIO_write
)];
}
+} else {
+ # Skip the PerlIO New Generation symbols.
+ skip_symbols \@layer_syms;
}
for my $syms (@syms) {
unless ($define{'PERL_GLOBAL_STRUCT'}) {
my $glob = readvar($perlvars_h);
emit_symbols $glob;
- }
+ }
unless ($define{'MULTIPLICITY'}) {
my $glob = readvar($intrpvar_h);
emit_symbols $glob;
- }
+ }
unless ($define{'MULTIPLICITY'} || $define{'USE_5005THREADS'}) {
my $glob = readvar($thrdvar_h);
emit_symbols $glob;
- }
+ }
}
sub try_symbol {
sub emit_symbol {
my $symbol = shift;
- chomp($symbol);
+ chomp($symbol);
$export{$symbol} = 1;
}
PerlIOBuf_get_cnt
PerlIOBuf_get_ptr
PerlIOBuf_bufsiz
-PerlIOBuf_setlinebuf
PerlIOBase_clearerr
+PerlIOBase_setlinebuf
+PerlIOBase_pushed
+PerlIOBase_read
+PerlIOBase_unread
PerlIOBase_error
PerlIOBase_eof
PerlIOBuf_tell
PerlIOBuf_write
PerlIOBuf_unread
PerlIOBuf_read
-PerlIOBuf_reopen
PerlIOBuf_open
-PerlIOBuf_fdopen
PerlIOBase_fileno
PerlIOBuf_pushed
PerlIOBuf_fill
PerlIO_pending
PerlIO_unread
PerlIO_push
+PerlIO_allocate
+PerlIO_arg_fetch
PerlIO_apply_layers
perlsio_binmode
PerlIO_binmode