# 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
+# On OS/2 reads miniperl.map and the previous version of perl5.def as well
my $PLATFORM;
my $CCTYPE;
while (@ARGV) {
my $flag = shift;
+ if ($flag =~ s/^CC_FLAGS=/ /) {
+ for my $fflag ($flag =~ /(?:^|\s)-D(\S+)/g) {
+ $fflag .= '=1' unless $fflag =~ /^(\w+)=/;
+ $define{$1} = $2 if $fflag =~ /^(\w+)=(.+)$/;
+ }
+ next;
+ }
$define{$1} = 1 if ($flag =~ /^-D(\w+)$/);
$define{$1} = $2 if ($flag =~ /^-D(\w+)=(.+)$/);
$CCTYPE = $1 if ($flag =~ /^CCTYPE=(\w+)$/);
Perl_sv_collxfrm
setgid
setuid
- win32_async_check
win32_free_childdir
win32_free_childenv
win32_get_childdir
dlsym
dlerror
dlclose
+ dup2
+ dup
my_tmpfile
my_tmpnam
my_flock
my_getpwent
my_setpwent
my_endpwent
+ fork_with_resources
+ croak_with_os2error
setgrent
endgrent
getgrent
nthreads_cond
os2_cond_wait
os2_stat
+ os2_execname
+ async_mssleep
+ msCounter
+ InfoTable
pthread_join
pthread_create
pthread_detach
os2error
ResetWinError
CroakWinError
+ PL_do_undump
)]);
+ emit_symbols([qw(os2_cond_wait
+ pthread_join
+ pthread_create
+ pthread_detach
+ )])
+ if $define{'USE_5005THREADS'} or $define{'USE_ITHREADS'};
}
elsif ($PLATFORM eq 'MacOS') {
skip_symbols [qw(
Perl_get_mstats
Perl_strdup
Perl_putenv
+ MallocCfg_ptr
+ MallocCfgP_ptr
)];
if ($define{'USE_ITHREADS'}) {
emit_symbols [qw(
Perl_dump_mstats
Perl_get_mstats
Perl_malloced_size
+ MallocCfg_ptr
+ MallocCfgP_ptr
)];
}
PL_OpPtr
PL_OpSlab
PL_OpSpace
+ Perl_Slab_Alloc
+ Perl_Slab_Free
)];
}
# These are in _addition to_ the public face of the abstraction
# and need to be exported to allow XS modules to implement layers
my @layer_syms = qw(
- PerlIOBase_clearerr
- PerlIOBase_close
- PerlIOBase_dup
- PerlIOBase_eof
- PerlIOBase_error
- PerlIOBase_fileno
- PerlIOBase_pushed
- PerlIOBase_binmode
- PerlIOBase_popped
- PerlIOBase_read
- PerlIOBase_setlinebuf
- PerlIOBase_unread
- PerlIOBuf_bufsiz
- PerlIOBuf_fill
- PerlIOBuf_flush
- PerlIOBuf_get_base
- PerlIOBuf_get_cnt
- PerlIOBuf_get_ptr
- PerlIOBuf_open
- PerlIOBuf_pushed
- PerlIOBuf_popped
- PerlIOBuf_read
- PerlIOBuf_seek
- PerlIOBuf_set_ptrcnt
- PerlIOBuf_tell
- PerlIOBuf_unread
- PerlIOBuf_write
- PerlIO_debug
- PerlIO_allocate
- PerlIO_apply_layera
- PerlIO_apply_layers
- PerlIO_arg_fetch
- PerlIO_define_layer
- PerlIO_modestr
- PerlIO_parse_layers
- PerlIO_layer_fetch
- PerlIO_list_free
- PerlIO_apply_layera
- PerlIO_pending
- PerlIO_push
- PerlIO_pop
- PerlIO_sv_dup
- PerlIO_perlio
-
-Perl_PerlIO_clearerr
-Perl_PerlIO_close
-Perl_PerlIO_eof
-Perl_PerlIO_error
-Perl_PerlIO_fileno
-Perl_PerlIO_fill
-Perl_PerlIO_flush
-Perl_PerlIO_get_base
-Perl_PerlIO_get_bufsiz
-Perl_PerlIO_get_cnt
-Perl_PerlIO_get_ptr
-Perl_PerlIO_read
-Perl_PerlIO_seek
-Perl_PerlIO_set_cnt
-Perl_PerlIO_set_ptrcnt
-Perl_PerlIO_setlinebuf
-Perl_PerlIO_stderr
-Perl_PerlIO_stdin
-Perl_PerlIO_stdout
-Perl_PerlIO_tell
-Perl_PerlIO_unread
-Perl_PerlIO_write
-
+ PerlIOBase_binmode
+ PerlIOBase_clearerr
+ PerlIOBase_close
+ PerlIOBase_dup
+ PerlIOBase_eof
+ PerlIOBase_error
+ PerlIOBase_fileno
+ PerlIOBase_noop_fail
+ PerlIOBase_noop_ok
+ PerlIOBase_popped
+ PerlIOBase_pushed
+ PerlIOBase_read
+ PerlIOBase_setlinebuf
+ PerlIOBase_unread
+ PerlIOBuf_bufsiz
+ PerlIOBuf_close
+ PerlIOBuf_dup
+ PerlIOBuf_fill
+ PerlIOBuf_flush
+ PerlIOBuf_get_base
+ PerlIOBuf_get_cnt
+ PerlIOBuf_get_ptr
+ PerlIOBuf_open
+ PerlIOBuf_popped
+ PerlIOBuf_pushed
+ PerlIOBuf_read
+ PerlIOBuf_seek
+ PerlIOBuf_set_ptrcnt
+ PerlIOBuf_tell
+ PerlIOBuf_unread
+ PerlIOBuf_write
+ PerlIO_allocate
+ PerlIO_apply_layera
+ PerlIO_apply_layers
+ PerlIO_arg_fetch
+ PerlIO_debug
+ PerlIO_define_layer
+ PerlIO_isutf8
+ PerlIO_layer_fetch
+ PerlIO_list_free
+ PerlIO_modestr
+ PerlIO_parse_layers
+ PerlIO_pending
+ PerlIO_perlio
+ PerlIO_pop
+ PerlIO_push
+ PerlIO_sv_dup
+ Perl_PerlIO_clearerr
+ Perl_PerlIO_close
+ Perl_PerlIO_eof
+ Perl_PerlIO_error
+ Perl_PerlIO_fileno
+ Perl_PerlIO_fill
+ Perl_PerlIO_flush
+ Perl_PerlIO_get_base
+ Perl_PerlIO_get_bufsiz
+ Perl_PerlIO_get_cnt
+ Perl_PerlIO_get_ptr
+ Perl_PerlIO_read
+ Perl_PerlIO_seek
+ Perl_PerlIO_set_cnt
+ Perl_PerlIO_set_ptrcnt
+ Perl_PerlIO_setlinebuf
+ Perl_PerlIO_stderr
+ Perl_PerlIO_stdin
+ Perl_PerlIO_stdout
+ Perl_PerlIO_tell
+ Perl_PerlIO_unread
+ Perl_PerlIO_write
);
if ($PLATFORM eq 'netware') {
push(@layer_syms,'PL_def_layerlist','PL_known_layers','PL_perlio');
emit_symbols $glob;
}
# XXX AIX seems to want the perlvars.h symbols, for some reason
- if ($PLATFORM eq 'aix') {
+ if ($PLATFORM eq 'aix' or $PLATFORM eq 'os2') { # OS/2 needs PL_thr_key
my $glob = readvar($perlvars_h);
emit_symbols $glob;
}
Perl_init_os_extras
Perl_thread_create
Perl_win32_init
+ Perl_win32_term
RunPerl
win32_async_check
win32_errno
}
if ($PLATFORM eq 'os2') {
- print "; LAST_ORDINAL=$sym_ord\n";
+ print <<EOP;
+ dll_perlmain=main
+ fill_extLibpath
+ dir_subst
+ Perl_OS2_handler_install
+
+; LAST_ORDINAL=$sym_ord
+EOP
}
sub emit_symbol {