+#./perl -w
#
# Create the export list for perl.
#
# 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
+# reads global.sym, pp.sym, perlvars.h, intrpvar.h, config.h
# On OS/2 reads miniperl.map and the previous version of perl5.def as well
-my $PLATFORM;
-my $CCTYPE;
+BEGIN { unshift @INC, "lib" }
+use strict;
+
+use vars qw($PLATFORM $CCTYPE $FILETYPE $CONFIG_ARGS $ARCHNAME $PATCHLEVEL);
+
+my (%define, %ordinal);
while (@ARGV) {
my $flag = shift;
defined $PLATFORM || die "PLATFORM undefined, must be one of: @PLATFORM\n";
exists $PLATFORM{$PLATFORM} || die "PLATFORM must be one of: @PLATFORM\n";
-if ($PLATFORM eq 'win32' or $PLATFORM eq "aix") {
+if ($PLATFORM eq 'win32' or $PLATFORM eq 'wince' or $PLATFORM eq "aix") {
# Add the compile-time options that miniperl was built with to %define.
# On Win32 these are not the same options as perl itself will be built
# with since miniperl is built with a canned config (one of the win32/
# source files and header files and don't include any BUILDOPT's that
# the user might have chosen to disable because the canned configs are
# minimal configs that don't include any of those options.
- my $config = `$^X -Ilib -V`;
+ my $opts = ($PLATFORM eq 'wince' ? '-MCross' : ''); # for wince need Cross.pm to get Config.pm
+ my $config = `$^X $opts -Ilib -V`;
my($options) = $config =~ /^ Compile-time options: (.*?)\n^ \S/ms;
$options =~ s/\s+/ /g;
print STDERR "Options: ($options)\n";
my $config_sh = "config.sh";
my $config_h = "config.h";
-my $thrdvar_h = "thrdvar.h";
my $intrpvar_h = "intrpvar.h";
my $perlvars_h = "perlvars.h";
my $global_sym = "global.sym";
}
elsif ($PLATFORM =~ /^win(?:32|ce)$/ || $PLATFORM eq 'netware') {
$CCTYPE = "MSVC" unless defined $CCTYPE;
- foreach ($thrdvar_h, $intrpvar_h, $perlvars_h, $global_sym,
+ foreach ($intrpvar_h, $perlvars_h, $global_sym,
$pp_sym, $globvar_sym, $perlio_sym) {
s!^!..\\!;
}
}
elsif ($PLATFORM eq 'MacOS') {
- foreach ($thrdvar_h, $intrpvar_h, $perlvars_h, $global_sym,
+ foreach ($intrpvar_h, $perlvars_h, $global_sym,
$pp_sym, $globvar_sym, $perlio_sym) {
s!^!::!;
}
print STDERR "Defines: (" . join(' ', sort keys %define) . ")\n";
if ($PLATFORM =~ /^win(?:32|ce)$/) {
- ($dll = ($define{PERL_DLL} || "perl59")) =~ s/\.dll$//i;
+ (my $dll = ($define{PERL_DLL} || "perl511")) =~ s/\.dll$//i;
print "LIBRARY $dll\n";
- print "DESCRIPTION 'Perl interpreter'\n";
+ # The DESCRIPTION module definition file statement is not supported
+ # by VC7 onwards.
+ if ($CCTYPE !~ /^MSVC7/ && $CCTYPE !~ /^MSVC8/ && $CCTYPE !~ /^MSVC9/) {
+ print "DESCRIPTION 'Perl interpreter'\n";
+ }
print "EXPORTS\n";
if ($define{PERL_IMPLICIT_SYS}) {
output_symbol("perl_get_host_info");
}
$sym_ord < $_ and $sym_ord = $_ for values %ordinal; # Take the max
}
- ($v = $]) =~ s/(\d\.\d\d\d)(\d\d)$/$1_$2/;
+ (my $v = $]) =~ s/(\d\.\d\d\d)(\d\d)$/$1_$2/;
$v .= '-thread' if $ARCHNAME =~ /-thread/;
- ($dll = $define{PERL_DLL}) =~ s/\.dll$//i;
+ (my $dll = $define{PERL_DLL}) =~ s/\.dll$//i;
$v .= "\@$PATCHLEVEL" if $PATCHLEVEL;
- $d = "DESCRIPTION '\@#perl5-porters\@perl.org:$v#\@ Perl interpreter, configured as $CONFIG_ARGS'";
+ my $d = "DESCRIPTION '\@#perl5-porters\@perl.org:$v#\@ Perl interpreter, configured as $CONFIG_ARGS'";
$d = substr($d, 0, 249) . "...'" if length $d > 253;
print <<"---EOP---";
LIBRARY '$dll' INITINSTANCE TERMINSTANCE
---EOP---
}
elsif ($PLATFORM eq 'aix') {
- $OSVER = `uname -v`;
+ my $OSVER = `uname -v`;
chop $OSVER;
- $OSREL = `uname -r`;
+ my $OSREL = `uname -r`;
chop $OSREL;
if ($OSVER > 4 || ($OSVER == 4 && $OSREL >= 3)) {
print "#! ..\n";
}
elsif ($PLATFORM eq 'netware') {
if ($FILETYPE eq 'def') {
- print "LIBRARY perl59\n";
+ print "LIBRARY perl511\n";
print "DESCRIPTION 'Perl interpreter for NetWare'\n";
print "EXPORTS\n";
}
Perl_getenv_len
Perl_my_pclose
Perl_my_popen
+ Perl_my_sprintf
)];
}
else {
Perl_getenv_len
Perl_my_pclose
Perl_my_popen
+ Perl_my_sprintf
)];
}
elsif ($PLATFORM eq 'aix') {
Perl_sys_intern_clear
Perl_sys_intern_dup
Perl_sys_intern_init
+ Perl_my_sprintf
PL_cryptseen
PL_opsave
PL_statusvalue_vms
Perl_debprofdump
Perl_debstack
Perl_debstackptrs
+ Perl_pad_sv
Perl_sv_peek
+ Perl_hv_assert
PL_block_type
PL_watchaddr
PL_watchok
unless ($define{'PERL_OLD_COPY_ON_WRITE'}) {
skip_symbols [qw(
Perl_sv_setsv_cow
- Perl_sv_release_IVX
)];
}
)];
}
-unless ($define{'PERL_MALLOC_WRAP'}) {
- skip_symbols [qw(
- PL_memory_wrap
- )];
-}
-
if ($define{'PERL_USE_SAFE_PUTENV'}) {
skip_symbols [qw(
PL_use_safe_putenv
unless ($define{'USE_ITHREADS'}) {
skip_symbols [qw(
- PL_ptr_table
- PL_pte_root
- PL_pte_arenaroot
PL_op_mutex
PL_regex_pad
PL_regex_padav
PL_sharedsv_space
PL_sharedsv_space_mutex
PL_dollarzero_mutex
+ PL_hints_mutex
+ PL_perlio_mutex
+ PL_regdupe
+ Perl_parser_dup
Perl_dirp_dup
Perl_cx_dup
Perl_si_dup
Perl_gp_dup
Perl_he_dup
Perl_mg_dup
- Perl_re_dup
+ Perl_mro_meta_dup
+ Perl_re_dup_guts
Perl_sv_dup
Perl_rvpv_dup
Perl_hek_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
perl_clone_using
Perl_sharedsv_find
Perl_sharedsv_thrcnt_inc
Perl_sharedsv_unlock
Perl_stashpv_hvname_match
+ Perl_regdupe_internal
+ Perl_newPADOP
)];
}
unless ($define{'PERL_IMPLICIT_CONTEXT'}) {
skip_symbols [qw(
+ PL_my_ctx_mutex
+ PL_my_cxt_index
+ PL_my_cxt_list
+ PL_my_cxt_size
+ PL_my_cxt_keys
Perl_croak_nocontext
Perl_die_nocontext
Perl_deb_nocontext
Perl_sv_setpvf_nocontext
Perl_sv_catpvf_mg_nocontext
Perl_sv_setpvf_mg_nocontext
+ Perl_my_cxt_init
+ Perl_my_cxt_index
)];
}
)];
}
+unless ($define{'PERL_DEBUG_READONLY_OPS'}) {
+ skip_symbols [qw(
+ PL_slab_count
+ PL_slabs
+ )];
+}
+
unless ($define{'THREADS_HAVE_PIDS'}) {
skip_symbols [qw(PL_ppid)];
}
)];
}
+unless ($define{'PERL_TRACK_MEMPOOL'}) {
+ skip_symbols [qw(
+ PL_memory_debug_header
+ )];
+}
+
+if ($define{'PERL_MAD'}) {
+ skip_symbols [qw(
+ PL_nextval
+ PL_nexttype
+ )];
+} else {
+ skip_symbols [qw(
+ PL_madskills
+ PL_xmlfp
+ PL_lasttoke
+ PL_realtokenstart
+ PL_faketokens
+ PL_thismad
+ PL_thistoken
+ PL_thisopen
+ PL_thisstuff
+ PL_thisclose
+ PL_thiswhite
+ PL_nextwhite
+ PL_skipwhite
+ PL_endwhite
+ PL_curforce
+ Perl_pad_peg
+ Perl_xmldump_indent
+ Perl_xmldump_vindent
+ Perl_xmldump_all
+ Perl_xmldump_packsubs
+ Perl_xmldump_sub
+ Perl_xmldump_form
+ Perl_xmldump_eval
+ Perl_sv_catxmlsv
+ Perl_sv_catxmlpvn
+ Perl_sv_xmlpeek
+ Perl_do_pmop_xmldump
+ Perl_pmop_xmldump
+ Perl_do_op_xmldump
+ Perl_op_xmldump
+ )];
+}
+
+unless ($define{'MULTIPLICITY'}) {
+ skip_symbols [qw(
+ PL_interp_size
+ PL_interp_size_5_10_0
+ )];
+}
+
+unless ($define{'PERL_GLOBAL_STRUCT'}) {
+ skip_symbols [qw(
+ PL_global_struct_size
+ )];
+}
+
+unless ($define{'PERL_GLOBAL_STRUCT_PRIVATE'}) {
+ skip_symbols [qw(
+ PL_my_cxt_keys
+ Perl_my_cxt_index
+ )];
+}
+
unless ($define{'d_mmap'}) {
skip_symbols [qw(
PL_mmap_page_size
PerlIO_sv_dup
Perl_PerlIO_clearerr
Perl_PerlIO_close
+ Perl_PerlIO_context_layers
Perl_PerlIO_eof
Perl_PerlIO_error
Perl_PerlIO_fileno
emit_symbols \@layer_syms;
emit_symbols [qw(perlsio_binmode)];
}
+ if ($define{'USE_ITHREADS'}) {
+ emit_symbols [qw(
+ PL_perlio_mutex
+ )];
+ }
+ else {
+ skip_symbols [qw(
+ PL_perlio_mutex
+ )];
+ }
} else {
# -Uuseperlio
# Skip the PerlIO layer symbols - although
# nothing should have exported them anyway.
skip_symbols \@layer_syms;
- skip_symbols [qw(perlsio_binmode)];
- skip_symbols [qw(PL_def_layerlist PL_known_layers PL_perlio)];
+ skip_symbols [qw(
+ perlsio_binmode
+ PL_def_layerlist
+ PL_known_layers
+ PL_perlio
+ PL_perlio_debug_fd
+ PL_perlio_fd_refcnt
+ PL_perlio_fd_refcnt_size
+ )];
# Also do NOT add abstraction symbols from $perlio_sym
# abstraction is done as #define to stdio
# variables
if ($define{'MULTIPLICITY'}) {
- for my $f ($perlvars_h, $intrpvar_h, $thrdvar_h) {
+ for my $f ($perlvars_h, $intrpvar_h) {
my $glob = readvar($f, sub { "Perl_" . $_[1] . $_[2] . "_ptr" });
emit_symbols $glob;
}
my $glob = readvar($intrpvar_h);
emit_symbols $glob;
}
- unless ($define{'MULTIPLICITY'}) {
- my $glob = readvar($thrdvar_h);
- emit_symbols $glob;
- }
}
sub try_symbol {
win32_rewinddir
win32_closedir
win32_longpath
+ win32_ansipath
win32_os_id
win32_getpid
win32_crypt
}
}
elsif ($PLATFORM eq 'os2') {
+ my (%mapped, @missing);
open MAP, 'miniperl.map' or die 'Cannot read miniperl.map';
/^\s*[\da-f:]+\s+(\w+)/i and $mapped{$1}++ foreach <MAP>;
close MAP or die 'Cannot close miniperl.map';
try_symbol($symbol);
}
+try_symbol("init_Win32CORE") if $static_ext =~ /\bWin32CORE\b/;
+
# Now all symbols should be defined because
# next we are going to output them.
1;
__DATA__
-# extra globals not included above.
-Perl_cxinc
-perl_alloc
-perl_alloc_using
-perl_clone
-perl_clone_using
-perl_construct
-perl_destruct
-perl_free
-perl_parse
-perl_run
# Oddities from PerlIO
PerlIO_binmode
PerlIO_getpos