[DOC PATCH] pod syntax fixups for File::Spec::* modules

[p5sagit/p5-mst-13.2.git] / makedef.pl

diff --git a/makedef.pl b/makedef.pl
index 46ddd14..c10eeb7 100644 (file)
--- a/makedef.pl
+++ b/makedef.pl
@@ -116,7 +116,7 @@ close(CFG);
 # perl.h logic duplication begins
 
 if ($define{USE_ITHREADS}) {
-    if (!$define{MULTIPLICITY} && !$define{PERL_OBJECT}) {
+    if (!$define{MULTIPLICITY}) {
         $define{MULTIPLICITY} = 1;
     }
 }
@@ -126,18 +126,6 @@ $define{PERL_IMPLICIT_CONTEXT} ||=
     $define{USE_5005THREADS}  ||
     $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') {
@@ -148,6 +136,7 @@ if ($PLATFORM eq 'win32') {
     if ($define{PERL_IMPLICIT_SYS}) {
        output_symbol("perl_get_host_info");
        output_symbol("perl_alloc_override");
+    output_symbol("perl_clone_host");
     }
 }
 elsif ($PLATFORM eq 'os2') {
@@ -185,6 +174,7 @@ elsif ($PLATFORM eq 'netware') {
        if ($define{PERL_IMPLICIT_SYS}) {
        output_symbol("perl_get_host_info");
        output_symbol("perl_alloc_override");
+    output_symbol("perl_clone_host");
        }
 }
 
@@ -203,13 +193,14 @@ sub emit_symbols {
     foreach my $symbol (@$list) {
        my $skipsym = $symbol;
        # XXX hack
-       if ($define{PERL_OBJECT} || $define{MULTIPLICITY}) {
+       if ($define{MULTIPLICITY}) {
            $skipsym =~ s/^Perl_[GIT](\w+)_ptr$/PL_$1/;
        }
        emit_symbol($symbol) unless exists $skip{$skipsym};
     }
 }
 
+
 if ($PLATFORM eq 'win32') {
     skip_symbols [qw(
                     PL_statusvalue_vms
@@ -244,6 +235,7 @@ if ($PLATFORM eq 'win32') {
                     Perl_my_chsize
                     Perl_same_dirent
                     Perl_setenv_getix
+                    Perl_sortsv
                     Perl_unlnk
                     Perl_watch
                     Perl_safexcalloc
@@ -294,6 +286,8 @@ elsif ($PLATFORM eq 'os2') {
                    ctermid
                    get_sysinfo
                    Perl_OS2_init
+                   Perl_OS2_init3
+                   Perl_OS2_term
                    OS2_Perl_data
                    dlopen
                    dlsym
@@ -340,6 +334,8 @@ elsif ($PLATFORM eq 'os2') {
                    init_PMWIN_entries
                    PMWIN_entries
                    Perl_hab_GET
+                   loadByOrdinal
+                   pExtFCN
                    )]);
 }
 elsif ($PLATFORM eq 'MacOS') {
@@ -465,14 +461,16 @@ unless ($define{'PERL_FLEXIBLE_EXCEPTIONS'}) {
                    )];
 }
 
+unless ($define{'USE_REENTRANT_API'}) {
+    skip_symbols [qw(
+                   PL_reentrant_buffer
+                   )];
+}
+
 if ($define{'MYMALLOC'}) {
     emit_symbols [qw(
                    Perl_dump_mstats
                    Perl_get_mstats
-                   Perl_malloc
-                   Perl_mfree
-                   Perl_realloc
-                   Perl_calloc
                    Perl_strdup
                    Perl_putenv
                    )];
@@ -492,10 +490,6 @@ else {
                    PL_malloc_mutex
                    Perl_dump_mstats
                    Perl_get_mstats
-                   Perl_malloc
-                   Perl_mfree
-                   Perl_realloc
-                   Perl_calloc
                    Perl_malloced_size
                    )];
 }
@@ -539,6 +533,10 @@ unless ($define{'USE_ITHREADS'}) {
     skip_symbols [qw(
                    PL_ptr_table
                    PL_op_mutex
+                   PL_regex_pad
+                   PL_regex_padav
+                   PL_sharedsv_space
+                   PL_sharedsv_space_mutex
                    Perl_dirp_dup
                    Perl_cx_dup
                    Perl_si_dup
@@ -561,6 +559,13 @@ unless ($define{'USE_ITHREADS'}) {
                    Perl_ptr_table_store
                    perl_clone
                    perl_clone_using
+                   Perl_sharedsv_find
+                   Perl_sharedsv_init
+                   Perl_sharedsv_lock
+                   Perl_sharedsv_new
+                   Perl_sharedsv_thrcnt_dec
+                   Perl_sharedsv_thrcnt_inc
+                   Perl_sharedsv_unlock
                    )];
 }
 
@@ -724,7 +729,7 @@ for my $syms (@syms) {
 
 # variables
 
-if ($define{'PERL_OBJECT'} || $define{'MULTIPLICITY'}) {
+if ($define{'MULTIPLICITY'}) {
     for my $f ($perlvars_h, $intrpvar_h, $thrdvar_h) {
        my $glob = readvar($f, sub { "Perl_" . $_[1] . $_[2] . "_ptr" });
        emit_symbols $glob;
@@ -753,7 +758,7 @@ else {
 sub try_symbol {
     my $symbol = shift;
 
-    return if $symbol !~ /^[A-Za-z]/;
+    return if $symbol !~ /^[A-Za-z_]/;
     return if $symbol =~ /^\#/;
     $symbol =~s/\r//g;
     chomp($symbol);
@@ -1047,6 +1052,7 @@ foreach my $symbol (qw(
                        nw_setnetent
                        nw_setprotoent
                        nw_setservent
+                       nw_setsockopt
                        nw_shutdown
                        nw_crypt
                        nw_execvp
@@ -1096,6 +1102,8 @@ sub emit_symbol {
     $export{$symbol} = 1;
 }
 
+my $sym_ord = 0;
+
 sub output_symbol {
     my $symbol = shift;
     $symbol = $bincompat5005{$symbol}
@@ -1126,7 +1134,7 @@ sub output_symbol {
 #      }
     }
     elsif ($PLATFORM eq 'os2') {
-       print qq(    "$symbol"\n);
+       printf qq(    %-31s \@%s\n), qq("$symbol"), ++$sym_ord;
     }
     elsif ($PLATFORM eq 'aix' || $PLATFORM eq 'MacOS') {
        print "$symbol\n";
@@ -1148,6 +1156,7 @@ perl_destruct
 perl_free
 perl_parse
 perl_run
+Perl_cxinc
 PerlIO_define_layer
 PerlIOBuf_set_ptrcnt
 PerlIOBuf_get_cnt