$define{$1} = 1 if /^\s*#\s*define\s+(USE_ITHREADS)\b/;
$define{$1} = 1 if /^\s*#\s*define\s+(USE_PERLIO)\b/;
$define{$1} = 1 if /^\s*#\s*define\s+(MULTIPLICITY)\b/;
+ $define{$1} = 1 if /^\s*#\s*define\s+(PERL_IMPLICIT_SYS)\b/;
$define{$1} = 1 if /^\s*#\s*define\s+(PERL_BINCOMPAT_5005)\b/;
}
close(CFG);
+# perl.h logic duplication begins
+
+if ($define{USE_ITHREADS}) {
+ if (!$define{MULTIPLICITY} && !defined{PERL_OBJECT}) {
+ $define{MULTIPLICITY} = 1;
+ }
+}
+
+$define{PERL_IMPLICIT_CONTEXT} ||=
+ $define{USE_ITHREADS} ||
+ $define{USE_THREADS} ||
+ $define{MULTIPLICITY} ;
+
+if ($define{PERL_CAPI}) {
+ delete $define{PERL_OBJECT};
+ $define{MULTIPLICITY} = 1;
+ $define{PERL_IMPLICIT_CONTEXT} = 1;
+ $define{PERL_IMPLICIT_SYS} = 1;
+}
+
+if ($define{PERL_OBJECT}) {
+ $define{PERL_IMPLICIT_CONTEXT} = 1;
+ $define{PERL_IMPLICIT_SYS} = 1;
+}
+
+# perl.h logic duplication ends
+
if ($PLATFORM eq 'win32') {
warn join(' ',keys %define)."\n";
- if ($define{PERL_OBJECT}) {
- print "LIBRARY Perl56\n";
- print "DESCRIPTION 'Perl interpreter'\n";
- print "EXPORTS\n";
-# output_symbol("perl_alloc");
+ print "LIBRARY Perl56\n";
+ print "DESCRIPTION 'Perl interpreter'\n";
+ print "EXPORTS\n";
+ if ($define{PERL_IMPLICIT_SYS}) {
output_symbol("perl_get_host_info");
output_symbol("perl_alloc_override");
-# output_symbol("perl_construct");
-# output_symbol("perl_destruct");
-# output_symbol("perl_free");
-# output_symbol("perl_parse");
-# output_symbol("perl_run");
-# output_symbol("RunPerl");
-# exit(0);
}
- else {
- print "LIBRARY Perl\n";
- print "DESCRIPTION 'Perl interpreter, export autogenerated'\n";
- print "EXPORTS\n";
- }
}
elsif ($PLATFORM eq 'os2') {
($v = $]) =~ s/(\d\.\d\d\d)(\d\d)$/$1_$2/;
foreach my $symbol (@$list) {
my $skipsym = $symbol;
# XXX hack
- if ($define{PERL_OBJECT}) {
+ if ($define{PERL_OBJECT} || $define{MULTIPLICITY}) {
$skipsym =~ s/^Perl_[GIT](\w+)_ptr$/PL_$1/;
}
emit_symbol($symbol) unless exists $skip{$skipsym};
Perl_safexrealloc
Perl_same_dirent
Perl_unlnk
+ Perl_sys_intern_dup
PL_cryptseen
PL_opsave
PL_statusvalue_vms
)];
}
+unless ($define{'PERL_FLEXIBLE_EXCEPTIONS'}) {
+ skip_symbols [qw(
+ PL_protect
+ Perl_default_protect
+ Perl_vdefault_protect
+ )];
+}
+
if ($define{'MYMALLOC'}) {
emit_symbols [qw(
Perl_dump_mstats
+ Perl_get_mstats
Perl_malloc
Perl_mfree
Perl_realloc
skip_symbols [qw(
PL_malloc_mutex
Perl_dump_mstats
+ Perl_get_mstats
Perl_malloc
Perl_mfree
Perl_realloc
return \@syms;
}
-if ($define{'USE_5005THREADS'} || $define{'MULTIPLICITY'}) {
+if ($define{'USE_5005THREADS'}) {
my $thrd = readvar($thrdvar_h);
skip_symbols $thrd;
}
-if ($define{'MULTIPLICITY'}) {
- my $interp = readvar($intrpvar_h);
- skip_symbols $interp;
-}
-
if ($define{'PERL_GLOBAL_STRUCT'}) {
my $global = readvar($perlvars_h);
skip_symbols $global;
# functions from *.sym files
-my @syms = ($global_sym, $pp_sym, $globvar_sym);
+my @syms = ($global_sym, $globvar_sym); # $pp_sym is not part of the API
if ($define{'USE_PERLIO'}) {
push @syms, $perlio_sym;
# variables
-if ($define{'PERL_OBJECT'}) {
+if ($define{'PERL_OBJECT'} || $define{'MULTIPLICITY'}) {
for my $f ($perlvars_h, $intrpvar_h, $thrdvar_h) {
my $glob = readvar($f, sub { "Perl_" . $_[1] . $_[2] . "_ptr" });
emit_symbols $glob;
}
+ # XXX AIX seems to want the perlvars.h symbols, for some reason
+ if ($PLATFORM eq 'aix') {
+ my $glob = readvar($perlvars_h);
+ emit_symbols $glob;
+ }
}
else {
unless ($define{'PERL_GLOBAL_STRUCT'}) {