embed.pl

   1 #!/usr/bin/perl -w
   2
   3 require 5.003;  # keep this compatible, an old perl is all we may have before
   4                 # we build the new one
   5
   6 #
   7 # See database of global and static function prototypes at the __END__.
   8 # This is used to generate prototype headers under various configurations,
   9 # export symbols lists for different platforms, and macros to provide an
  10 # implicit interpreter context argument.
  11 #
  12
  13 my $END = tell DATA;
  14
  15 # walk table providing an array of components in each line to
  16 # subroutine, printing the result
  17 sub walk_table (&@) {
  18     my $function = shift;
  19     my $filename = shift || '-';
  20     my $leader = shift;
  21     my $trailer = shift;
  22     my $F;
  23     local *F;
  24     if (ref $filename) {        # filehandle
  25         $F = $filename;
  26     }
  27     else {
  28         unlink $filename;
  29         open F, ">$filename" or die "Can't open $filename: $!";
  30         $F = \*F;
  31     }
  32     print $F $leader if $leader;
  33     seek DATA, $END, 0;         # so we may restart
  34     while (<DATA>) {
  35         chomp;
  36         next if /^:/;
  37         while (s|\\$||) {
  38             $_ .= <DATA>;
  39             chomp;
  40         }
  41         my @args;
  42         if (/^\s*(#|$)/) {
  43             @args = $_;
  44         }
  45         else {
  46             @args = split /\s*\|\s*/, $_;
  47         }
  48         my @outs = &{$function}(@args);
  49         print $F @outs; # $function->(@args) is not 5.003
  50     }
  51     print $F $trailer if $trailer;
  52     close $F unless ref $filename;
  53 }
  54
  55 sub munge_c_files () {
  56     my $functions = {};
  57     unless (@ARGV) {
  58         warn "\@ARGV empty, nothing to do\n";
  59         return;
  60     }
  61     walk_table {
  62         if (@_ > 1) {
  63             $functions->{$_[2]} = \@_ if $_[@_-1] =~ /\.\.\./;
  64         }
  65     } '/dev/null';
  66     local $^I = '.bak';
  67     while (<>) {
  68 #       if (/^#\s*include\s+"perl.h"/) {
  69 #           my $file = uc $ARGV;
  70 #           $file =~ s/\./_/g;
  71 #           print "#define PERL_IN_$file\n";
  72 #       }
  73 #       s{^(\w+)\s*\(}
  74 #        {
  75 #           my $f = $1;
  76 #           my $repl = "$f(";
  77 #           if (exists $functions->{$f}) {
  78 #               my $flags = $functions->{$f}[0];
  79 #               $repl = "Perl_$repl" if $flags =~ /p/;
  80 #               unless ($flags =~ /n/) {
  81 #                   $repl .= "pTHX";
  82 #                   $repl .= "_ " if @{$functions->{$f}} > 3;
  83 #               }
  84 #               warn("$ARGV:$.:$repl\n");
  85 #           }
  86 #           $repl;
  87 #        }e;
  88         s{(\b(\w+)[ \t]*\([ \t]*(?!aTHX))}
  89          {
  90             my $repl = $1;
  91             my $f = $2;
  92             if (exists $functions->{$f}) {
  93                 $repl .= "aTHX_ ";
  94                 warn("$ARGV:$.:$`#$repl#$'");
  95             }
  96             $repl;
  97          }eg;
  98         print;
  99         close ARGV if eof;      # restart $.
 100     }
 101     exit;
 102 }
 103
 104 #munge_c_files();
 105
 106 # generate proto.h
 107 my $wrote_protected = 0;
 108
 109 sub write_protos {
 110     my $ret = "";
 111     if (@_ == 1) {
 112         my $arg = shift;
 113         $ret .= "$arg\n";
 114     }
 115     else {
 116         my ($flags,$retval,$func,@args) = @_;
 117         if ($flags =~ /s/) {
 118             $retval = "STATIC $retval";
 119             $func = "S_$func";
 120         }
 121         else {
 122             $retval = "PERL_CALLCONV $retval";
 123             if ($flags =~ /p/) {
 124                 $func = "Perl_$func";
 125             }
 126         }
 127         $ret .= "$retval\t$func(";
 128         unless ($flags =~ /n/) {
 129             $ret .= "pTHX";
 130             $ret .= "_ " if @args;
 131         }
 132         if (@args) {
 133             $ret .= join ", ", @args;
 134         }
 135         else {
 136             $ret .= "void" if $flags =~ /n/;
 137         }
 138         $ret .= ")";
 139         $ret .= " __attribute__((noreturn))" if $flags =~ /r/;
 140         if( $flags =~ /f/ ) {
 141             my $prefix = $flags =~ /n/ ? '' : 'pTHX_';
 142             my $args = scalar @args;
 143             $ret .= "\n#ifdef CHECK_FORMAT\n";
 144             $ret .= sprintf " __attribute__((format(printf,%s%d,%s%d)))",
 145                                     $prefix, $args - 1, $prefix, $args;
 146             $ret .= "\n#endif\n";
 147         }
 148         $ret .= ";\n";
 149     }
 150     $ret;
 151 }
 152
 153 # generates global.sym (API export list), and populates %global with global symbols
 154 sub write_global_sym {
 155     my $ret = "";
 156     if (@_ > 1) {
 157         my ($flags,$retval,$func,@args) = @_;
 158         if ($flags =~ /A/ && $flags !~ /x/) { # public API, so export
 159             $func = "Perl_$func" if $flags =~ /p/;
 160             $ret = "$func\n";
 161         }
 162     }
 163     $ret;
 164 }
 165
 166
 167 walk_table(\&write_protos, 'proto.h', <<'EOT');
 168 /*
 169  * !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
 170  * This file is autogenerated from data in embed.pl.  Edit that file
 171  * and run 'make regen_headers' to effect changes.
 172  */
 173
 174 EOT
 175
 176 walk_table(\&write_global_sym, 'global.sym', <<'EOT');
 177 #
 178 # !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
 179 # This file is autogenerated from data in embed.pl.  Edit that file
 180 # and run 'make regen_headers' to effect changes.
 181 #
 182
 183 EOT
 184
 185 # XXX others that may need adding
 186 #       warnhook
 187 #       hints
 188 #       copline
 189 my @extvars = qw(sv_undef sv_yes sv_no na dowarn
 190                  curcop compiling
 191                  tainting tainted stack_base stack_sp sv_arenaroot
 192                  no_modify
 193                  curstash DBsub DBsingle debstash
 194                  rsfp
 195                  stdingv
 196                  defgv
 197                  errgv
 198                  rsfp_filters
 199                  perldb
 200                  diehook
 201                  dirty
 202                  perl_destruct_level
 203                  ppaddr
 204                 );
 205
 206 sub readsyms (\%$) {
 207     my ($syms, $file) = @_;
 208     local (*FILE, $_);
 209     open(FILE, "< $file")
 210         or die "embed.pl: Can't open $file: $!\n";
 211     while (<FILE>) {
 212         s/[ \t]*#.*//;          # Delete comments.
 213         if (/^\s*(\S+)\s*$/) {
 214             my $sym = $1;
 215             warn "duplicate symbol $sym while processing $file\n"
 216                 if exists $$syms{$sym};
 217             $$syms{$sym} = 1;
 218         }
 219     }
 220     close(FILE);
 221 }
 222
 223 # Perl_pp_* and Perl_ck_* are in pp.sym
 224 readsyms my %ppsym, 'pp.sym';
 225
 226 sub readvars(\%$$@) {
 227     my ($syms, $file,$pre,$keep_pre) = @_;
 228     local (*FILE, $_);
 229     open(FILE, "< $file")
 230         or die "embed.pl: Can't open $file: $!\n";
 231     while (<FILE>) {
 232         s/[ \t]*#.*//;          # Delete comments.
 233         if (/PERLVARA?I?C?\($pre(\w+)/) {
 234             my $sym = $1;
 235             $sym = $pre . $sym if $keep_pre;
 236             warn "duplicate symbol $sym while processing $file\n"
 237                 if exists $$syms{$sym};
 238             $$syms{$sym} = $pre || 1;
 239         }
 240     }
 241     close(FILE);
 242 }
 243
 244 my %intrp;
 245 my %thread;
 246
 247 readvars %intrp,  'intrpvar.h','I';
 248 readvars %thread, 'thrdvar.h','T';
 249 readvars %globvar, 'perlvars.h','G';
 250
 251 my $sym;
 252 foreach $sym (sort keys %thread) {
 253   warn "$sym in intrpvar.h as well as thrdvar.h\n" if exists $intrp{$sym};
 254 }
 255
 256 sub undefine ($) {
 257     my ($sym) = @_;
 258     "#undef  $sym\n";
 259 }
 260
 261 sub hide ($$) {
 262     my ($from, $to) = @_;
 263     my $t = int(length($from) / 8);
 264     "#define $from" . "\t" x ($t < 3 ? 3 - $t : 1) . "$to\n";
 265 }
 266
 267 sub bincompat_var ($$) {
 268     my ($pfx, $sym) = @_;
 269     my $arg = ($pfx eq 'G' ? 'NULL' : 'aTHXo');
 270     undefine("PL_$sym") . hide("PL_$sym", "(*Perl_${pfx}${sym}_ptr($arg))");
 271 }
 272
 273 sub multon ($$$) {
 274     my ($sym,$pre,$ptr) = @_;
 275     hide("PL_$sym", "($ptr$pre$sym)");
 276 }
 277
 278 sub multoff ($$) {
 279     my ($sym,$pre) = @_;
 280     return hide("PL_$pre$sym", "PL_$sym");
 281 }
 282
 283 unlink 'embed.h';
 284 open(EM, '> embed.h') or die "Can't create embed.h: $!\n";
 285
 286 print EM <<'END';
 287 /* !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
 288    This file is built by embed.pl from data in embed.pl, pp.sym, intrpvar.h,
 289    perlvars.h and thrdvar.h.  Any changes made here will be lost!
 290 */
 291
 292 /* (Doing namespace management portably in C is really gross.) */
 293
 294 /* NO_EMBED is no longer supported. i.e. EMBED is always active. */
 295
 296 /* provide binary compatible (but inconsistent) names */
 297 #if defined(PERL_BINCOMPAT_5005)
 298 #  define  Perl_call_atexit             perl_atexit
 299 #  define  Perl_eval_sv                 perl_eval_sv
 300 #  define  Perl_eval_pv                 perl_eval_pv
 301 #  define  Perl_call_argv               perl_call_argv
 302 #  define  Perl_call_method             perl_call_method
 303 #  define  Perl_call_pv                 perl_call_pv
 304 #  define  Perl_call_sv                 perl_call_sv
 305 #  define  Perl_get_av                  perl_get_av
 306 #  define  Perl_get_cv                  perl_get_cv
 307 #  define  Perl_get_hv                  perl_get_hv
 308 #  define  Perl_get_sv                  perl_get_sv
 309 #  define  Perl_init_i18nl10n           perl_init_i18nl10n
 310 #  define  Perl_init_i18nl14n           perl_init_i18nl14n
 311 #  define  Perl_new_collate             perl_new_collate
 312 #  define  Perl_new_ctype               perl_new_ctype
 313 #  define  Perl_new_numeric             perl_new_numeric
 314 #  define  Perl_require_pv              perl_require_pv
 315 #  define  Perl_safesyscalloc           Perl_safecalloc
 316 #  define  Perl_safesysfree             Perl_safefree
 317 #  define  Perl_safesysmalloc           Perl_safemalloc
 318 #  define  Perl_safesysrealloc          Perl_saferealloc
 319 #  define  Perl_set_numeric_local       perl_set_numeric_local
 320 #  define  Perl_set_numeric_standard    perl_set_numeric_standard
 321 /* malloc() pollution was the default in earlier versions, so enable
 322  * it for bincompat; but not for systems that used to do prevent that,
 323  * or when they ask for {HIDE,EMBED}MYMALLOC */
 324 #  if !defined(EMBEDMYMALLOC) && !defined(HIDEMYMALLOC)
 325 #    if !defined(NeXT) && !defined(__NeXT) && !defined(__MACHTEN__) && \
 326         !defined(__QNX__)
 327 #      define  PERL_POLLUTE_MALLOC
 328 #    endif
 329 #  endif
 330 #endif
 331
 332 /* Hide global symbols */
 333
 334 #if !defined(PERL_OBJECT)
 335 #if !defined(PERL_IMPLICIT_CONTEXT)
 336
 337 END
 338
 339 walk_table {
 340     my $ret = "";
 341     if (@_ == 1) {
 342         my $arg = shift;
 343         $ret .= "$arg\n" if $arg =~ /^#\s*(if|ifn?def|else|endif)\b/;
 344     }
 345     else {
 346         my ($flags,$retval,$func,@args) = @_;
 347         unless ($flags =~ /o/) {
 348             if ($flags =~ /s/) {
 349                 $ret .= hide($func,"S_$func");
 350             }
 351             elsif ($flags =~ /p/) {
 352                 $ret .= hide($func,"Perl_$func");
 353             }
 354         }
 355     }
 356     $ret;
 357 } \*EM;
 358
 359 for $sym (sort keys %ppsym) {
 360     $sym =~ s/^Perl_//;
 361     print EM hide($sym, "Perl_$sym");
 362 }
 363
 364 print EM <<'END';
 365
 366 #else   /* PERL_IMPLICIT_CONTEXT */
 367
 368 END
 369
 370 my @az = ('a'..'z');
 371
 372 walk_table {
 373     my $ret = "";
 374     if (@_ == 1) {
 375         my $arg = shift;
 376         $ret .= "$arg\n" if $arg =~ /^#\s*(if|ifn?def|else|endif)\b/;
 377     }
 378     else {
 379         my ($flags,$retval,$func,@args) = @_;
 380         unless ($flags =~ /o/) {
 381             my $args = scalar @args;
 382             if ($args and $args[$args-1] =~ /\.\.\./) {
 383                 # we're out of luck for varargs functions under CPP
 384             }
 385             elsif ($flags =~ /n/) {
 386                 if ($flags =~ /s/) {
 387                     $ret .= hide($func,"S_$func");
 388                 }
 389                 elsif ($flags =~ /p/) {
 390                     $ret .= hide($func,"Perl_$func");
 391                 }
 392             }
 393             else {
 394                 my $alist = join(",", @az[0..$args-1]);
 395                 $ret = "#define $func($alist)";
 396                 my $t = int(length($ret) / 8);
 397                 $ret .=  "\t" x ($t < 4 ? 4 - $t : 1);
 398                 if ($flags =~ /s/) {
 399                     $ret .= "S_$func(aTHX";
 400                 }
 401                 elsif ($flags =~ /p/) {
 402                     $ret .= "Perl_$func(aTHX";
 403                 }
 404                 $ret .= "_ " if $alist;
 405                 $ret .= $alist . ")\n";
 406             }
 407         }
 408     }
 409     $ret;
 410 } \*EM;
 411
 412 for $sym (sort keys %ppsym) {
 413     $sym =~ s/^Perl_//;
 414     if ($sym =~ /^ck_/) {
 415         print EM hide("$sym(a)", "Perl_$sym(aTHX_ a)");
 416     }
 417     elsif ($sym =~ /^pp_/) {
 418         print EM hide("$sym()", "Perl_$sym(aTHX)");
 419     }
 420     else {
 421         warn "Illegal symbol '$sym' in pp.sym";
 422     }
 423 }
 424
 425 print EM <<'END';
 426
 427 #endif  /* PERL_IMPLICIT_CONTEXT */
 428 #else   /* PERL_OBJECT */
 429
 430 END
 431
 432 walk_table {
 433     my $ret = "";
 434     if (@_ == 1) {
 435         my $arg = shift;
 436         $ret .= "$arg\n" if $arg =~ /^#\s*(if|ifn?def|else|endif)\b/;
 437     }
 438     else {
 439         my ($flags,$retval,$func,@args) = @_;
 440         if ($flags =~ /s/) {
 441             $ret .= hide("S_$func","CPerlObj::S_$func") if $flags !~ /j/;
 442             $ret .= hide($func,"S_$func");
 443         }
 444         elsif ($flags =~ /p/) {
 445             $ret .= hide("Perl_$func","CPerlObj::Perl_$func") if $flags !~ /j/;
 446             $ret .= hide($func,"Perl_$func");
 447         }
 448         else {
 449             $ret .= hide($func,"CPerlObj::$func") if $flags !~ /j/;
 450         }
 451     }
 452     $ret;
 453 } \*EM;
 454
 455 for $sym (sort keys %ppsym) {
 456     $sym =~ s/^Perl_//;
 457     print EM hide("Perl_$sym", "CPerlObj::Perl_$sym");
 458     print EM hide($sym, "Perl_$sym");
 459 }
 460
 461 print EM <<'END';
 462
 463 #endif  /* PERL_OBJECT */
 464
 465 /* Compatibility stubs.  Compile extensions with -DPERL_NOCOMPAT to
 466    disable them.
 467  */
 468
 469 #if !defined(PERL_CORE)
 470 #  define sv_setptrobj(rv,ptr,name)     sv_setref_iv(rv,name,PTR2IV(ptr))
 471 #  define sv_setptrref(rv,ptr)          sv_setref_iv(rv,Nullch,PTR2IV(ptr))
 472 #endif
 473
 474 #if !defined(PERL_CORE) && !defined(PERL_NOCOMPAT) && !defined(PERL_BINCOMPAT_5005)
 475
 476 /* Compatibility for various misnamed functions.  All functions
 477    in the API that begin with "perl_" (not "Perl_") take an explicit
 478    interpreter context pointer.
 479    The following are not like that, but since they had a "perl_"
 480    prefix in previous versions, we provide compatibility macros.
 481  */
 482 #  define perl_atexit(a,b)              call_atexit(a,b)
 483 #  define perl_call_argv(a,b,c)         call_argv(a,b,c)
 484 #  define perl_call_pv(a,b)             call_pv(a,b)
 485 #  define perl_call_method(a,b)         call_method(a,b)
 486 #  define perl_call_sv(a,b)             call_sv(a,b)
 487 #  define perl_eval_sv(a,b)             eval_sv(a,b)
 488 #  define perl_eval_pv(a,b)             eval_pv(a,b)
 489 #  define perl_require_pv(a)            require_pv(a)
 490 #  define perl_get_sv(a,b)              get_sv(a,b)
 491 #  define perl_get_av(a,b)              get_av(a,b)
 492 #  define perl_get_hv(a,b)              get_hv(a,b)
 493 #  define perl_get_cv(a,b)              get_cv(a,b)
 494 #  define perl_init_i18nl10n(a)         init_i18nl10n(a)
 495 #  define perl_init_i18nl14n(a)         init_i18nl14n(a)
 496 #  define perl_new_ctype(a)             new_ctype(a)
 497 #  define perl_new_collate(a)           new_collate(a)
 498 #  define perl_new_numeric(a)           new_numeric(a)
 499
 500 /* varargs functions can't be handled with CPP macros. :-(
 501    This provides a set of compatibility functions that don't take
 502    an extra argument but grab the context pointer using the macro
 503    dTHX.
 504  */
 505 #if defined(PERL_IMPLICIT_CONTEXT) && !defined(PERL_OBJECT)
 506 #  define croak                         Perl_croak_nocontext
 507 #  define deb                           Perl_deb_nocontext
 508 #  define die                           Perl_die_nocontext
 509 #  define form                          Perl_form_nocontext
 510 #  define load_module                   Perl_load_module_nocontext
 511 #  define mess                          Perl_mess_nocontext
 512 #  define newSVpvf                      Perl_newSVpvf_nocontext
 513 #  define sv_catpvf                     Perl_sv_catpvf_nocontext
 514 #  define sv_setpvf                     Perl_sv_setpvf_nocontext
 515 #  define warn                          Perl_warn_nocontext
 516 #  define warner                        Perl_warner_nocontext
 517 #  define sv_catpvf_mg                  Perl_sv_catpvf_mg_nocontext
 518 #  define sv_setpvf_mg                  Perl_sv_setpvf_mg_nocontext
 519 #endif
 520
 521 #endif /* !defined(PERL_CORE) && !defined(PERL_NOCOMPAT) */
 522
 523 #if !defined(PERL_IMPLICIT_CONTEXT)
 524 /* undefined symbols, point them back at the usual ones */
 525 #  define Perl_croak_nocontext          Perl_croak
 526 #  define Perl_die_nocontext            Perl_die
 527 #  define Perl_deb_nocontext            Perl_deb
 528 #  define Perl_form_nocontext           Perl_form
 529 #  define Perl_load_module_nocontext    Perl_load_module
 530 #  define Perl_mess_nocontext           Perl_mess
 531 #  define Perl_newSVpvf_nocontext       Perl_newSVpvf
 532 #  define Perl_sv_catpvf_nocontext      Perl_sv_catpvf
 533 #  define Perl_sv_setpvf_nocontext      Perl_sv_setpvf
 534 #  define Perl_warn_nocontext           Perl_warn
 535 #  define Perl_warner_nocontext         Perl_warner
 536 #  define Perl_sv_catpvf_mg_nocontext   Perl_sv_catpvf_mg
 537 #  define Perl_sv_setpvf_mg_nocontext   Perl_sv_setpvf_mg
 538 #endif
 539
 540 END
 541
 542 close(EM);
 543
 544 unlink 'embedvar.h';
 545 open(EM, '> embedvar.h')
 546     or die "Can't create embedvar.h: $!\n";
 547
 548 print EM <<'END';
 549 /* !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
 550    This file is built by embed.pl from data in embed.pl, pp.sym, intrpvar.h,
 551    perlvars.h and thrdvar.h.  Any changes made here will be lost!
 552 */
 553
 554 /* (Doing namespace management portably in C is really gross.) */
 555
 556 /*
 557    The following combinations of MULTIPLICITY, USE_THREADS, PERL_OBJECT
 558    and PERL_IMPLICIT_CONTEXT are supported:
 559      1) none
 560      2) MULTIPLICITY    # supported for compatibility
 561      3) MULTIPLICITY && PERL_IMPLICIT_CONTEXT
 562      4) USE_THREADS && PERL_IMPLICIT_CONTEXT
 563      5) MULTIPLICITY && USE_THREADS && PERL_IMPLICIT_CONTEXT
 564      6) PERL_OBJECT && PERL_IMPLICIT_CONTEXT
 565
 566    All other combinations of these flags are errors.
 567
 568    #3, #4, #5, and #6 are supported directly, while #2 is a special
 569    case of #3 (supported by redefining vTHX appropriately).
 570 */
 571
 572 #if defined(MULTIPLICITY)
 573 /* cases 2, 3 and 5 above */
 574
 575 #  if defined(PERL_IMPLICIT_CONTEXT)
 576 #    define vTHX        aTHX
 577 #  else
 578 #    define vTHX        PERL_GET_INTERP
 579 #  endif
 580
 581 END
 582
 583 for $sym (sort keys %thread) {
 584     print EM multon($sym,'T','vTHX->');
 585 }
 586
 587 print EM <<'END';
 588
 589 #  if defined(PERL_OBJECT)
 590 #    include "error: PERL_OBJECT + MULTIPLICITY don't go together"
 591 #  endif
 592
 593 #  if defined(USE_THREADS)
 594 /* case 5 above */
 595
 596 END
 597
 598 for $sym (sort keys %intrp) {
 599     print EM multon($sym,'I','PERL_GET_INTERP->');
 600 }
 601
 602 print EM <<'END';
 603
 604 #  else         /* !USE_THREADS */
 605 /* cases 2 and 3 above */
 606
 607 END
 608
 609 for $sym (sort keys %intrp) {
 610     print EM multon($sym,'I','vTHX->');
 611 }
 612
 613 print EM <<'END';
 614
 615 #  endif        /* USE_THREADS */
 616
 617 #else   /* !MULTIPLICITY */
 618
 619 #  if defined(PERL_OBJECT)
 620 /* case 6 above */
 621
 622 END
 623
 624 for $sym (sort keys %thread) {
 625     print EM multon($sym,'T','aTHXo->interp.');
 626 }
 627
 628
 629 for $sym (sort keys %intrp) {
 630     print EM multon($sym,'I','aTHXo->interp.');
 631 }
 632
 633 print EM <<'END';
 634
 635 #  else /* !PERL_OBJECT */
 636
 637 /* cases 1 and 4 above */
 638
 639 END
 640
 641 for $sym (sort keys %intrp) {
 642     print EM multoff($sym,'I');
 643 }
 644
 645 print EM <<'END';
 646
 647 #    if defined(USE_THREADS)
 648 /* case 4 above */
 649
 650 END
 651
 652 for $sym (sort keys %thread) {
 653     print EM multon($sym,'T','aTHX->');
 654 }
 655
 656 print EM <<'END';
 657
 658 #    else       /* !USE_THREADS */
 659 /* case 1 above */
 660
 661 END
 662
 663 for $sym (sort keys %thread) {
 664     print EM multoff($sym,'T');
 665 }
 666
 667 print EM <<'END';
 668
 669 #    endif      /* USE_THREADS */
 670 #  endif        /* PERL_OBJECT */
 671 #endif  /* MULTIPLICITY */
 672
 673 #if defined(PERL_GLOBAL_STRUCT)
 674
 675 END
 676
 677 for $sym (sort keys %globvar) {
 678     print EM multon($sym,'G','PL_Vars.');
 679 }
 680
 681 print EM <<'END';
 682
 683 #else /* !PERL_GLOBAL_STRUCT */
 684
 685 END
 686
 687 for $sym (sort keys %globvar) {
 688     print EM multoff($sym,'G');
 689 }
 690
 691 print EM <<'END';
 692
 693 #endif /* PERL_GLOBAL_STRUCT */
 694
 695 #ifdef PERL_POLLUTE             /* disabled by default in 5.6.0 */
 696
 697 END
 698
 699 for $sym (sort @extvars) {
 700     print EM hide($sym,"PL_$sym");
 701 }
 702
 703 print EM <<'END';
 704
 705 #endif /* PERL_POLLUTE */
 706 END
 707
 708 close(EM);
 709
 710 unlink 'objXSUB.h';
 711 open(OBX, '> objXSUB.h')
 712     or die "Can't create objXSUB.h: $!\n";
 713
 714 print OBX <<'EOT';
 715 /* !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
 716    This file is built by embed.pl from data in embed.pl, pp.sym, intrpvar.h,
 717    perlvars.h and thrdvar.h.  Any changes made here will be lost!
 718 */
 719
 720 #ifndef __objXSUB_h__
 721 #define __objXSUB_h__
 722
 723 /* method calls via pPerl (static functions without a "this" pointer need these) */
 724
 725 #if defined(PERL_CORE) && defined(PERL_OBJECT)
 726
 727 /* XXX soon to be eliminated, only a few things in PERLCORE need these now */
 728
 729 EOT
 730
 731 walk_table {
 732     my $ret = "";
 733     if (@_ == 1) {
 734         my $arg = shift;
 735         $ret .= "$arg\n" if $arg =~ /^#\s*(if|ifn?def|else|endif)\b/;
 736     }
 737     else {
 738         my ($flags,$retval,$func,@args) = @_;
 739         if ($flags =~ /A/ && $flags !~ /j/) { # API function needing macros
 740             if ($flags =~ /p/) {
 741                 $ret .= undefine("Perl_$func") . hide("Perl_$func","pPerl->Perl_$func");
 742                 $ret .= undefine($func) . hide($func,"Perl_$func");
 743             }
 744             else {
 745                 $ret .= undefine($func) . hide($func,"pPerl->$func");
 746             }
 747         }
 748     }
 749     $ret;
 750 } \*OBX;
 751
 752 # NOTE: not part of API
 753 #for $sym (sort keys %ppsym) {
 754 #    $sym =~ s/^Perl_//;
 755 #    print OBX undefine("Perl_$sym") . hide("Perl_$sym", "pPerl->Perl_$sym");
 756 #    print OBX undefine($sym) . hide($sym, "Perl_$sym");
 757 #}
 758
 759 print OBX <<'EOT';
 760
 761 #endif  /* PERL_CORE && PERL_OBJECT */
 762 #endif  /* __objXSUB_h__ */
 763 EOT
 764
 765 close(OBX);
 766
 767 unlink 'perlapi.h';
 768 unlink 'perlapi.c';
 769 open(CAPI, '> perlapi.c') or die "Can't create perlapi.c: $!\n";
 770 open(CAPIH, '> perlapi.h') or die "Can't create perlapi.h: $!\n";
 771
 772 print CAPIH <<'EOT';
 773 /* !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
 774    This file is built by embed.pl from data in embed.pl, pp.sym, intrpvar.h,
 775    perlvars.h and thrdvar.h.  Any changes made here will be lost!
 776 */
 777
 778 /* declare accessor functions for Perl variables */
 779 #ifndef __perlapi_h__
 780 #define __perlapi_h__
 781
 782 #if defined(PERL_OBJECT) || defined (MULTIPLICITY)
 783
 784 #if defined(PERL_OBJECT)
 785 #  undef  aTHXo
 786 #  define aTHXo                 pPerl
 787 #  undef  aTHXo_
 788 #  define aTHXo_                aTHXo,
 789 #endif /* PERL_OBJECT */
 790
 791 START_EXTERN_C
 792
 793 #undef PERLVAR
 794 #undef PERLVARA
 795 #undef PERLVARI
 796 #undef PERLVARIC
 797 #define PERLVAR(v,t)    EXTERN_C t* Perl_##v##_ptr(pTHXo);
 798 #define PERLVARA(v,n,t) typedef t PL_##v##_t[n];                        \
 799                         EXTERN_C PL_##v##_t* Perl_##v##_ptr(pTHXo);
 800 #define PERLVARI(v,t,i) PERLVAR(v,t)
 801 #define PERLVARIC(v,t,i) PERLVAR(v, const t)
 802
 803 #include "thrdvar.h"
 804 #include "intrpvar.h"
 805 #include "perlvars.h"
 806
 807 #undef PERLVAR
 808 #undef PERLVARA
 809 #undef PERLVARI
 810 #undef PERLVARIC
 811
 812 END_EXTERN_C
 813
 814 #if defined(PERL_CORE)
 815
 816 /* accessor functions for Perl variables (provide binary compatibility) */
 817
 818 /* these need to be mentioned here, or most linkers won't put them in
 819    the perl executable */
 820
 821 #ifndef PERL_NO_FORCE_LINK
 822
 823 START_EXTERN_C
 824
 825 #ifndef DOINIT
 826 EXT void *PL_force_link_funcs[];
 827 #else
 828 EXT void *PL_force_link_funcs[] = {
 829 #undef PERLVAR
 830 #undef PERLVARA
 831 #undef PERLVARI
 832 #undef PERLVARIC
 833 #define PERLVAR(v,t)    (void*)Perl_##v##_ptr,
 834 #define PERLVARA(v,n,t) PERLVAR(v,t)
 835 #define PERLVARI(v,t,i) PERLVAR(v,t)
 836 #define PERLVARIC(v,t,i) PERLVAR(v,t)
 837
 838 #include "thrdvar.h"
 839 #include "intrpvar.h"
 840 #include "perlvars.h"
 841
 842 #undef PERLVAR
 843 #undef PERLVARA
 844 #undef PERLVARI
 845 #undef PERLVARIC
 846 };
 847 #endif  /* DOINIT */
 848
 849 START_EXTERN_C
 850
 851 #endif  /* PERL_NO_FORCE_LINK */
 852
 853 #else   /* !PERL_CORE */
 854
 855 EOT
 856
 857 foreach $sym (sort keys %intrp) {
 858     print CAPIH bincompat_var('I',$sym);
 859 }
 860
 861 foreach $sym (sort keys %thread) {
 862     print CAPIH bincompat_var('T',$sym);
 863 }
 864
 865 foreach $sym (sort keys %globvar) {
 866     print CAPIH bincompat_var('G',$sym);
 867 }
 868
 869 print CAPIH <<'EOT';
 870
 871 #endif /* !PERL_CORE */
 872 #endif /* PERL_OBJECT || MULTIPLICITY */
 873
 874 #endif /* __perlapi_h__ */
 875
 876 EOT
 877 close CAPIH;
 878
 879 print CAPI <<'EOT';
 880 /* !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!!
 881    This file is built by embed.pl from data in embed.pl, pp.sym, intrpvar.h,
 882    perlvars.h and thrdvar.h.  Any changes made here will be lost!
 883 */
 884
 885 #include "EXTERN.h"
 886 #include "perl.h"
 887 #include "perlapi.h"
 888
 889 #if defined(PERL_OBJECT) || defined (MULTIPLICITY)
 890
 891 /* accessor functions for Perl variables (provides binary compatibility) */
 892 START_EXTERN_C
 893
 894 #undef PERLVAR
 895 #undef PERLVARA
 896 #undef PERLVARI
 897 #undef PERLVARIC
 898
 899 #if defined(PERL_OBJECT)
 900 #define PERLVAR(v,t)    t* Perl_##v##_ptr(pTHXo)                        \
 901                         { return &(aTHXo->interp.v); }
 902 #define PERLVARA(v,n,t) PL_##v##_t* Perl_##v##_ptr(pTHXo)               \
 903                         { return &(aTHXo->interp.v); }
 904 #else   /* MULTIPLICITY */
 905 #define PERLVAR(v,t)    t* Perl_##v##_ptr(pTHX)                         \
 906                         { return &(aTHX->v); }
 907 #define PERLVARA(v,n,t) PL_##v##_t* Perl_##v##_ptr(pTHX)                \
 908                         { return &(aTHX->v); }
 909 #endif
 910
 911 #define PERLVARI(v,t,i) PERLVAR(v,t)
 912 #define PERLVARIC(v,t,i) PERLVAR(v, const t)
 913
 914 #include "thrdvar.h"
 915 #include "intrpvar.h"
 916
 917 #undef PERLVAR
 918 #undef PERLVARA
 919 #define PERLVAR(v,t)    t* Perl_##v##_ptr(pTHXo)                        \
 920                         { return &(PL_##v); }
 921 #define PERLVARA(v,n,t) PL_##v##_t* Perl_##v##_ptr(pTHXo)               \
 922                         { return &(PL_##v); }
 923 #undef PERLVARIC
 924 #define PERLVARIC(v,t,i)        const t* Perl_##v##_ptr(pTHXo)          \
 925                         { return (const t *)&(PL_##v); }
 926 #include "perlvars.h"
 927
 928 #undef PERLVAR
 929 #undef PERLVARA
 930 #undef PERLVARI
 931 #undef PERLVARIC
 932
 933 #if defined(PERL_OBJECT)
 934
 935 /* C-API layer for PERL_OBJECT */
 936
 937 EOT
 938
 939 # functions that take va_list* for implementing vararg functions
 940 # NOTE: makedef.pl must be updated if you add symbols to %vfuncs
 941 my %vfuncs = qw(
 942     Perl_croak                  Perl_vcroak
 943     Perl_warn                   Perl_vwarn
 944     Perl_warner                 Perl_vwarner
 945     Perl_die                    Perl_vdie
 946     Perl_form                   Perl_vform
 947     Perl_load_module            Perl_vload_module
 948     Perl_mess                   Perl_vmess
 949     Perl_deb                    Perl_vdeb
 950     Perl_newSVpvf               Perl_vnewSVpvf
 951     Perl_sv_setpvf              Perl_sv_vsetpvf
 952     Perl_sv_setpvf_mg           Perl_sv_vsetpvf_mg
 953     Perl_sv_catpvf              Perl_sv_vcatpvf
 954     Perl_sv_catpvf_mg           Perl_sv_vcatpvf_mg
 955     Perl_dump_indent            Perl_dump_vindent
 956     Perl_default_protect        Perl_vdefault_protect
 957 );
 958
 959 sub emit_func {
 960     my ($addcontext, $rettype,$func,@args) = @_;
 961     my @aargs = @args;
 962     my $a;
 963     for $a (@aargs) { $a =~ s/^.*\b(\w+)$/$1/ }
 964     my $ctxarg = '';
 965     if (not $addcontext) {
 966         $ctxarg = 'pTHXo';
 967         $ctxarg .= '_ ' if @args;
 968     }
 969     my $decl = '';
 970     if ($addcontext) {
 971         $decl .= "    dTHXo;\n";
 972     }
 973     local $" = ', ';
 974     my $return = ($rettype =~ /^\s*(void|Free_t|Signal_t)\s*$/
 975                   ? '' : 'return ');
 976     my $emitval = '';
 977     if (@args and $args[$#args] =~ /\.\.\./) {
 978         pop @aargs;
 979         my $retarg = '';
 980         my $ctxfunc = $func;
 981         $ctxfunc =~ s/_nocontext$//;
 982         return $emitval unless exists $vfuncs{$ctxfunc};
 983         if (length $return) {
 984             $decl .= "    $rettype retval;\n";
 985             $retarg .= "retval = ";
 986             $return = "\n    " . $return . "retval;\n";
 987         }
 988         $emitval .= <<EOT
 989 $rettype
 990 $func($ctxarg@args)
 991 {
 992 $decl    va_list args;
 993     va_start(args, $aargs[$#aargs]);
 994     $retarg((CPerlObj*)pPerl)->$vfuncs{$ctxfunc}(@aargs, &args);
 995     va_end(args);$return
 996 }
 997 EOT
 998     }
 999     else {
1000         $emitval .= <<EOT
1001 $rettype
1002 $func($ctxarg@args)
1003 {
1004 $decl    $return((CPerlObj*)pPerl)->$func(@aargs);
1005 }
1006 EOT
1007     }
1008     $emitval;
1009 }
1010
1011 # XXXX temporary hack
1012 for $sym (qw(
1013                 perl_construct
1014                 perl_destruct
1015                 perl_free
1016                 perl_run
1017                 perl_parse
1018                 ))
1019 {
1020     $skipapi_funcs{$sym}++;
1021 }
1022
1023 walk_table {
1024     my $ret = "";
1025     if (@_ == 1) {
1026         my $arg = shift;
1027         $ret .= "$arg\n" if $arg =~ /^#\s*(if|ifn?def|else|endif)\b/;
1028     }
1029     else {
1030         my ($flags,$retval,$func,@args) = @_;
1031         return $ret if exists $skipapi_funcs{$func};
1032         if ($flags =~ /A/ && $flags !~ /j/) { # in public API, needed for XSUBS
1033             $ret .= "\n";
1034             my $addctx = 1 if $flags =~ /n/;
1035             if ($flags =~ /p/) {
1036                 $ret .= undefine("Perl_$func");
1037                 $ret .= emit_func($addctx,$retval,"Perl_$func",@args);
1038             }
1039             else {
1040                 $ret .= undefine($func);
1041                 $ret .= emit_func($addctx,$retval,$func,@args);
1042             }
1043         }
1044     }
1045     $ret;
1046 } \*CAPI;
1047
1048 # NOTE: not part of the API
1049 #for $sym (sort keys %ppsym) {
1050 #    $sym =~ s/^Perl_//;
1051 #    print CAPI "\n";
1052 #    print CAPI undefine("Perl_$sym");
1053 #    if ($sym =~ /^ck_/) {
1054 #       print CAPI emit_func(0, 'OP *',"Perl_$sym",'OP *o');
1055 #    }
1056 #   else {                                      # pp_foo
1057 #       print CAPI emit_func(0, 'OP *',"Perl_$sym");
1058 #    }
1059 #}
1060
1061 print CAPI <<'EOT';
1062
1063 #undef Perl_fprintf_nocontext
1064 int
1065 Perl_fprintf_nocontext(PerlIO *stream, const char *format, ...)
1066 {
1067     dTHXo;
1068     va_list(arglist);
1069     va_start(arglist, format);
1070     return (*PL_StdIO->pVprintf)(PL_StdIO, stream, format, arglist);
1071 }
1072
1073 #undef Perl_printf_nocontext
1074 int
1075 Perl_printf_nocontext(const char *format, ...)
1076 {
1077     dTHXo;
1078     va_list(arglist);
1079     va_start(arglist, format);
1080     return (*PL_StdIO->pVprintf)(PL_StdIO, PerlIO_stdout(), format, arglist);
1081 }
1082
1083 END_EXTERN_C
1084
1085 #endif /* PERL_OBJECT */
1086 #endif /* PERL_OBJECT || MULTIPLICITY */
1087 EOT
1088
1089 close(CAPI);
1090
1091 # autogenerate documentation from comments in source files
1092
1093 my %apidocs;
1094 my %gutsdocs;
1095 my %docfuncs;
1096
1097 sub autodoc ($$) { # parse a file and extract documentation info
1098     my($fh,$file) = @_;
1099     my($in, $doc, $line);
1100 FUNC:
1101     while (defined($in = <$fh>)) {
1102         $line++;
1103         if ($in =~ /^=for\s+apidoc\s+(.*)\n/) {
1104             my $proto = $1;
1105             $proto = "||$proto" unless $proto =~ /\|/;
1106             my($flags, $ret, $name, @args) = split /\|/, $proto;
1107             my $docs = "";
1108 DOC:
1109             while (defined($doc = <$fh>)) {
1110                 $line++;
1111                 last DOC if $doc =~ /^=\w+/;
1112                 if ($doc =~ m:^\*/$:) {
1113                     warn "=cut missing? $file:$line:$doc";;
1114                     last DOC;
1115                 }
1116                 $docs .= $doc;
1117             }
1118             $docs = "\n$docs" if $docs and $docs !~ /^\n/;
1119             if ($flags =~ /m/) {
1120                 if ($flags =~ /A/) {
1121                     $apidocs{$name} = [$flags, $docs, $ret, $file, @args];
1122                 }
1123                 else {
1124                     $gutsdocs{$name} = [$flags, $docs, $ret, $file, @args];
1125                 }
1126             }
1127             else {
1128                 $docfuncs{$name} = [$flags, $docs, $ret, $file, @args];
1129             }
1130             if (defined $doc) {
1131                 if ($doc =~ /^=for/) {
1132                     $in = $doc;
1133                     redo FUNC;
1134                 }
1135             } else {
1136                 warn "$file:$line:$in (=cut missing?)";
1137             }
1138         }
1139     }
1140 }
1141
1142 sub docout ($$$) { # output the docs for one function
1143     my($fh, $name, $docref) = @_;
1144     my($flags, $docs, $ret, $file, @args) = @$docref;
1145
1146     $docs .= "NOTE: this function is experimental and may change or be
1147 removed without notice.\n\n" if $flags =~ /x/;
1148     $docs .= "NOTE: the perl_ form of this function is deprecated.\n\n"
1149         if $flags =~ /p/;
1150
1151     print $fh "=item $name\n$docs";
1152
1153     if ($flags =~ /U/) { # no usage
1154         # nothing
1155     } elsif ($flags =~ /s/) { # semicolon ("dTHR;")
1156         print $fh "\t\t$name;\n\n";
1157     } elsif ($flags =~ /n/) { # no args
1158         print $fh "\t$ret\t$name\n\n";
1159     } else { # full usage
1160         print $fh "\t$ret\t$name";
1161         print $fh "(" . join(", ", @args) . ")";
1162         print $fh "\n\n";
1163     }
1164     print $fh "=for hackers\nFound in file $file\n\n";
1165 }
1166
1167 my $file;
1168 for $file (glob('*.c'), glob('*.h')) {
1169     open F, "< $file" or die "Cannot open $file for docs: $!\n";
1170     autodoc(\*F,$file);
1171     close F or die "Error closing $file: $!\n";
1172 }
1173
1174 unlink "pod/perlapi.pod";
1175 open (DOC, ">pod/perlapi.pod") or
1176         die "Can't create pod/perlapi.pod: $!\n";
1177
1178 walk_table {    # load documented functions into approriate hash
1179     if (@_ > 1) {
1180         my($flags, $retval, $func, @args) = @_;
1181         return "" unless $flags =~ /d/;
1182         $func =~ s/\t//g; $flags =~ s/p//; # clean up fields from embed.pl
1183         $retval =~ s/\t//;
1184         if ($flags =~ /A/) {
1185             my $docref = delete $docfuncs{$func};
1186             warn "no docs for $func\n" unless $docref and @$docref;
1187         $docref->[0].="x" if $flags =~ /M/;
1188             $apidocs{$func} = [$docref->[0] . 'A', $docref->[1], $retval,
1189                                $docref->[3], @args];
1190         } else {
1191             my $docref = delete $docfuncs{$func};
1192             $gutsdocs{$func} = [$docref->[0], $docref->[1], $retval,
1193                                 $docref->[3], @args];
1194         }
1195     }
1196     return "";
1197 } \*DOC;
1198
1199 for (sort keys %docfuncs) {
1200     # Have you used a full for apidoc or just a func name?
1201     # Have you used Ap instead of Am in the for apidoc?
1202     warn "Unable to place $_!\n";
1203 }
1204
1205 print DOC <<'_EOB_';
1206 =head1 NAME
1207
1208 perlapi - autogenerated documentation for the perl public API
1209
1210 =head1 DESCRIPTION
1211
1212 This file contains the documentation of the perl public API generated by
1213 embed.pl, specifically a listing of functions, macros, flags, and variables
1214 that may be used by extension writers.  The interfaces of any functions that
1215 are not listed here are subject to change without notice.  For this reason,
1216 blindly using functions listed in proto.h is to be avoided when writing
1217 extensions.
1218
1219 Note that all Perl API global variables must be referenced with the C<PL_>
1220 prefix.  Some macros are provided for compatibility with the older,
1221 unadorned names, but this support may be disabled in a future release.
1222
1223 The listing is alphabetical, case insensitive.
1224
1225 =over 8
1226
1227 _EOB_
1228
1229 my $key;
1230 for $key (sort { uc($a) cmp uc($b); } keys %apidocs) { # case insensitive sort
1231     docout(\*DOC, $key, $apidocs{$key});
1232 }
1233
1234 print DOC <<'_EOE_';
1235 =back
1236
1237 =head1 AUTHORS
1238
1239 Until May 1997, this document was maintained by Jeff Okamoto
1240 <okamoto@corp.hp.com>.  It is now maintained as part of Perl itself.
1241
1242 With lots of help and suggestions from Dean Roehrich, Malcolm Beattie,
1243 Andreas Koenig, Paul Hudson, Ilya Zakharevich, Paul Marquess, Neil
1244 Bowers, Matthew Green, Tim Bunce, Spider Boardman, Ulrich Pfeifer,
1245 Stephen McCamant, and Gurusamy Sarathy.
1246
1247 API Listing originally by Dean Roehrich <roehrich@cray.com>.
1248
1249 Updated to be autogenerated from comments in the source by Benjamin Stuhl.
1250
1251 =head1 SEE ALSO
1252
1253 perlguts(1), perlxs(1), perlxstut(1), perlintern(1)
1254
1255 _EOE_
1256
1257
1258 close(DOC);
1259
1260 unlink "pod/perlintern.pod";
1261
1262 open(GUTS, ">pod/perlintern.pod") or
1263                 die "Unable to create pod/perlintern.pod: $!\n";
1264 print GUTS <<'END';
1265 =head1 NAME
1266
1267 perlintern - autogenerated documentation of purely B<internal>
1268                  Perl functions
1269
1270 =head1 DESCRIPTION
1271
1272 This file is the autogenerated documentation of functions in the
1273 Perl interpreter that are documented using Perl's internal documentation
1274 format but are not marked as part of the Perl API. In other words,
1275 B<they are not for use in extensions>!
1276
1277 =over 8
1278
1279 END
1280
1281 for $key (sort { uc($a) cmp uc($b); } keys %gutsdocs) {
1282     docout(\*GUTS, $key, $gutsdocs{$key});
1283 }
1284
1285 print GUTS <<'END';
1286 =back
1287
1288 =head1 AUTHORS
1289
1290 The autodocumentation system was originally added to the Perl core by
1291 Benjamin Stuhl. Documentation is by whoever was kind enough to
1292 document their functions.
1293
1294 =head1 SEE ALSO
1295
1296 perlguts(1), perlapi(1)
1297
1298 END
1299
1300 close GUTS;
1301
1302
1303 __END__
1304
1305 : Lines are of the form:
1306 :    flags|return_type|function_name|arg1|arg2|...|argN
1307 :
1308 : A line may be continued on another by ending it with a backslash.
1309 : Leading and trailing whitespace will be ignored in each component.
1310 :
1311 : flags are single letters with following meanings:
1312 :       A               member of public API
1313 :       d               function has documentation with its source
1314 :       s               static function, should have an S_ prefix in source
1315 :                               file
1316 :       n               has no implicit interpreter/thread context argument
1317 :       p               function has a Perl_ prefix
1318 :       f               function takes printf style format string, varargs
1319 :       r               function never returns
1320 :       o               has no compatibility macro (#define foo Perl_foo)
1321 :       j               not a member of CPerlObj
1322 :       x               not exported
1323 :       M               may change
1324 :
1325 : Individual flags may be separated by whitespace.
1326 :
1327 : New global functions should be added at the end for binary compatibility
1328 : in some configurations.
1329
1330 START_EXTERN_C
1331
1332 #if defined(PERL_IMPLICIT_SYS)
1333 Ajno    |PerlInterpreter*       |perl_alloc_using \
1334                                 |struct IPerlMem* m|struct IPerlMem* ms \
1335                                 |struct IPerlMem* mp|struct IPerlEnv* e \
1336                                 |struct IPerlStdIO* io|struct IPerlLIO* lio \
1337                                 |struct IPerlDir* d|struct IPerlSock* s \
1338                                 |struct IPerlProc* p
1339 #endif
1340 Ajnod   |PerlInterpreter*       |perl_alloc
1341 Ajnod   |void   |perl_construct |PerlInterpreter* interp
1342 Ajnod   |int    |perl_destruct  |PerlInterpreter* interp
1343 Ajnod   |void   |perl_free      |PerlInterpreter* interp
1344 Ajnod   |int    |perl_run       |PerlInterpreter* interp
1345 Ajnod   |int    |perl_parse     |PerlInterpreter* interp|XSINIT_t xsinit \
1346                                 |int argc|char** argv|char** env
1347 #if defined(USE_ITHREADS)
1348 Ajnod   |PerlInterpreter*|perl_clone|PerlInterpreter* interp, UV flags
1349 #  if defined(PERL_IMPLICIT_SYS)
1350 Ajno    |PerlInterpreter*|perl_clone_using|PerlInterpreter *interp|UV flags \
1351                                 |struct IPerlMem* m|struct IPerlMem* ms \
1352                                 |struct IPerlMem* mp|struct IPerlEnv* e \
1353                                 |struct IPerlStdIO* io|struct IPerlLIO* lio \
1354                                 |struct IPerlDir* d|struct IPerlSock* s \
1355                                 |struct IPerlProc* p
1356 #  endif
1357 #endif
1358
1359 Ajnop   |Malloc_t|malloc        |MEM_SIZE nbytes
1360 Ajnop   |Malloc_t|calloc        |MEM_SIZE elements|MEM_SIZE size
1361 Ajnop   |Malloc_t|realloc       |Malloc_t where|MEM_SIZE nbytes
1362 Ajnop   |Free_t |mfree          |Malloc_t where
1363 #if defined(MYMALLOC)
1364 jnp     |MEM_SIZE|malloced_size |void *p
1365 #endif
1366
1367 Ajnp    |void*  |get_context
1368 Ajnp    |void   |set_context    |void *thx
1369
1370 END_EXTERN_C
1371
1372 /* functions with flag 'n' should come before here */
1373 #if defined(PERL_OBJECT)
1374 class CPerlObj {
1375 public:
1376         struct interpreter interp;
1377         CPerlObj(IPerlMem*, IPerlMem*, IPerlMem*, IPerlEnv*, IPerlStdIO*,
1378             IPerlLIO*, IPerlDir*, IPerlSock*, IPerlProc*);
1379         void* operator new(size_t nSize, IPerlMem *pvtbl);
1380 #ifndef __BORLANDC__
1381         static void operator delete(void* pPerl, IPerlMem *pvtbl);
1382 #endif
1383         int do_aspawn (void *vreally, void **vmark, void **vsp);
1384 #endif
1385 #if defined(PERL_OBJECT)
1386 public:
1387 #else
1388 START_EXTERN_C
1389 #endif
1390 #  include "pp_proto.h"
1391 Ap      |SV*    |amagic_call    |SV* left|SV* right|int method|int dir
1392 Ap      |bool   |Gv_AMupdate    |HV* stash
1393 Ap      |CV*    |gv_handler     |HV* stash|I32 id
1394 p       |OP*    |append_elem    |I32 optype|OP* head|OP* tail
1395 p       |OP*    |append_list    |I32 optype|LISTOP* first|LISTOP* last
1396 p       |I32    |apply          |I32 type|SV** mark|SV** sp
1397 Ap      |void   |apply_attrs_string|char *stashpv|CV *cv|char *attrstr|STRLEN len
1398 Ap      |SV*    |avhv_delete_ent|AV *ar|SV* keysv|I32 flags|U32 hash
1399 Ap      |bool   |avhv_exists_ent|AV *ar|SV* keysv|U32 hash
1400 Ap      |SV**   |avhv_fetch_ent |AV *ar|SV* keysv|I32 lval|U32 hash
1401 Ap      |SV**   |avhv_store_ent |AV *ar|SV* keysv|SV* val|U32 hash
1402 Ap      |HE*    |avhv_iternext  |AV *ar
1403 Ap      |SV*    |avhv_iterval   |AV *ar|HE* entry
1404 Ap      |HV*    |avhv_keys      |AV *ar
1405 Apd     |void   |av_clear       |AV* ar
1406 Apd     |SV*    |av_delete      |AV* ar|I32 key|I32 flags
1407 Apd     |bool   |av_exists      |AV* ar|I32 key
1408 Apd     |void   |av_extend      |AV* ar|I32 key
1409 p       |AV*    |av_fake        |I32 size|SV** svp
1410 Apd     |SV**   |av_fetch       |AV* ar|I32 key|I32 lval
1411 Apd     |void   |av_fill        |AV* ar|I32 fill
1412 Apd     |I32    |av_len         |AV* ar
1413 Apd     |AV*    |av_make        |I32 size|SV** svp
1414 Apd     |SV*    |av_pop         |AV* ar
1415 Apd     |void   |av_push        |AV* ar|SV* val
1416 p       |void   |av_reify       |AV* ar
1417 Apd     |SV*    |av_shift       |AV* ar
1418 Apd     |SV**   |av_store       |AV* ar|I32 key|SV* val
1419 Apd     |void   |av_undef       |AV* ar
1420 Apd     |void   |av_unshift     |AV* ar|I32 num
1421 p       |OP*    |bind_match     |I32 type|OP* left|OP* pat
1422 p       |OP*    |block_end      |I32 floor|OP* seq
1423 Ap      |I32    |block_gimme
1424 p       |int    |block_start    |int full
1425 p       |void   |boot_core_UNIVERSAL
1426 p       |void   |boot_core_PerlIO
1427 Ap      |void   |call_list      |I32 oldscope|AV* av_list
1428 p       |bool   |cando          |Mode_t mode|Uid_t effective|Stat_t* statbufp
1429 Ap      |U32    |cast_ulong     |NV f
1430 Ap      |I32    |cast_i32       |NV f
1431 Ap      |IV     |cast_iv        |NV f
1432 Ap      |UV     |cast_uv        |NV f
1433 #if !defined(HAS_TRUNCATE) && !defined(HAS_CHSIZE) && defined(F_FREESP)
1434 Ap      |I32    |my_chsize      |int fd|Off_t length
1435 #endif
1436 #if defined(USE_THREADS)
1437 Ap      |MAGIC* |condpair_magic |SV *sv
1438 #endif
1439 p       |OP*    |convert        |I32 optype|I32 flags|OP* o
1440 Afprd   |void   |croak          |const char* pat|...
1441 Apr     |void   |vcroak         |const char* pat|va_list* args
1442 #if defined(PERL_IMPLICIT_CONTEXT)
1443 Afnrp   |void   |croak_nocontext|const char* pat|...
1444 Afnp    |OP*    |die_nocontext  |const char* pat|...
1445 Afnp    |void   |deb_nocontext  |const char* pat|...
1446 Afnp    |char*  |form_nocontext |const char* pat|...
1447 Anp     |void   |load_module_nocontext|U32 flags|SV* name|SV* ver|...
1448 Afnp    |SV*    |mess_nocontext |const char* pat|...
1449 Afnp    |void   |warn_nocontext |const char* pat|...
1450 Afnp    |void   |warner_nocontext|U32 err|const char* pat|...
1451 Afnp    |SV*    |newSVpvf_nocontext|const char* pat|...
1452 Afnp    |void   |sv_catpvf_nocontext|SV* sv|const char* pat|...
1453 Afnp    |void   |sv_setpvf_nocontext|SV* sv|const char* pat|...
1454 Afnp    |void   |sv_catpvf_mg_nocontext|SV* sv|const char* pat|...
1455 Afnp    |void   |sv_setpvf_mg_nocontext|SV* sv|const char* pat|...
1456 Afnp    |int    |fprintf_nocontext|PerlIO* stream|const char* fmt|...
1457 Afnp    |int    |printf_nocontext|const char* fmt|...
1458 #endif
1459 p       |void   |cv_ckproto     |CV* cv|GV* gv|char* p
1460 p       |CV*    |cv_clone       |CV* proto
1461 Apd     |SV*    |cv_const_sv    |CV* cv
1462 p       |SV*    |op_const_sv    |OP* o|CV* cv
1463 Ap      |void   |cv_undef       |CV* cv
1464 Ap      |void   |cx_dump        |PERL_CONTEXT* cs
1465 Ap      |SV*    |filter_add     |filter_t funcp|SV* datasv
1466 Ap      |void   |filter_del     |filter_t funcp
1467 Ap      |I32    |filter_read    |int idx|SV* buffer|int maxlen
1468 Ap      |char** |get_op_descs
1469 Ap      |char** |get_op_names
1470 p       |char*  |get_no_modify
1471 p       |U32*   |get_opargs
1472 Ap      |PPADDR_t*|get_ppaddr
1473 p       |I32    |cxinc
1474 Afp     |void   |deb            |const char* pat|...
1475 Ap      |void   |vdeb           |const char* pat|va_list* args
1476 Ap      |void   |debprofdump
1477 Ap      |I32    |debop          |OP* o
1478 Ap      |I32    |debstack
1479 Ap      |I32    |debstackptrs
1480 Ap      |char*  |delimcpy       |char* to|char* toend|char* from \
1481                                 |char* fromend|int delim|I32* retlen
1482 p       |void   |deprecate      |char* s
1483 Afp     |OP*    |die            |const char* pat|...
1484 p       |OP*    |vdie           |const char* pat|va_list* args
1485 p       |OP*    |die_where      |char* message|STRLEN msglen
1486 Ap      |void   |dounwind       |I32 cxix
1487 p       |bool   |do_aexec       |SV* really|SV** mark|SV** sp
1488 p       |bool   |do_aexec5      |SV* really|SV** mark|SV** sp|int fd|int flag
1489 Ap      |int    |do_binmode     |PerlIO *fp|int iotype|int mode
1490 p       |void   |do_chop        |SV* asv|SV* sv
1491 Ap      |bool   |do_close       |GV* gv|bool not_implicit
1492 p       |bool   |do_eof         |GV* gv
1493 p       |bool   |do_exec        |char* cmd
1494 #if !defined(WIN32)
1495 p       |bool   |do_exec3       |char* cmd|int fd|int flag
1496 #endif
1497 p       |void   |do_execfree
1498 #if defined(HAS_MSG) || defined(HAS_SEM) || defined(HAS_SHM)
1499 p       |I32    |do_ipcctl      |I32 optype|SV** mark|SV** sp
1500 p       |I32    |do_ipcget      |I32 optype|SV** mark|SV** sp
1501 p       |I32    |do_msgrcv      |SV** mark|SV** sp
1502 p       |I32    |do_msgsnd      |SV** mark|SV** sp
1503 p       |I32    |do_semop       |SV** mark|SV** sp
1504 p       |I32    |do_shmio       |I32 optype|SV** mark|SV** sp
1505 #endif
1506 Ap      |void   |do_join        |SV* sv|SV* del|SV** mark|SV** sp
1507 p       |OP*    |do_kv
1508 Ap      |bool   |do_open        |GV* gv|char* name|I32 len|int as_raw \
1509                                 |int rawmode|int rawperm|PerlIO* supplied_fp
1510 Ap      |bool   |do_open9       |GV *gv|char *name|I32 len|int as_raw \
1511                                 |int rawmode|int rawperm|PerlIO *supplied_fp \
1512                                 |SV *svs|I32 num
1513 Ap      |bool   |do_openn       |GV *gv|char *name|I32 len|int as_raw \
1514                                 |int rawmode|int rawperm|PerlIO *supplied_fp \
1515                                 |SV **svp|I32 num
1516 p       |void   |do_pipe        |SV* sv|GV* rgv|GV* wgv
1517 p       |bool   |do_print       |SV* sv|PerlIO* fp
1518 p       |OP*    |do_readline
1519 p       |I32    |do_chomp       |SV* sv
1520 p       |bool   |do_seek        |GV* gv|Off_t pos|int whence
1521 p       |void   |do_sprintf     |SV* sv|I32 len|SV** sarg
1522 p       |Off_t  |do_sysseek     |GV* gv|Off_t pos|int whence
1523 p       |Off_t  |do_tell        |GV* gv
1524 p       |I32    |do_trans       |SV* sv
1525 p       |UV     |do_vecget      |SV* sv|I32 offset|I32 size
1526 p       |void   |do_vecset      |SV* sv
1527 p       |void   |do_vop         |I32 optype|SV* sv|SV* left|SV* right
1528 p       |OP*    |dofile         |OP* term
1529 Ap      |I32    |dowantarray
1530 Ap      |void   |dump_all
1531 Ap      |void   |dump_eval
1532 #if defined(DUMP_FDS)
1533 Ap      |void   |dump_fds       |char* s
1534 #endif
1535 Ap      |void   |dump_form      |GV* gv
1536 Ap      |void   |gv_dump        |GV* gv
1537 Ap      |void   |op_dump        |OP* arg
1538 Ap      |void   |pmop_dump      |PMOP* pm
1539 Ap      |void   |dump_packsubs  |HV* stash
1540 Ap      |void   |dump_sub       |GV* gv
1541 Apd     |void   |fbm_compile    |SV* sv|U32 flags
1542 Apd     |char*  |fbm_instr      |unsigned char* big|unsigned char* bigend \
1543                                 |SV* littlesv|U32 flags
1544 p       |char*  |find_script    |char *scriptname|bool dosearch \
1545                                 |char **search_ext|I32 flags
1546 #if defined(USE_THREADS)
1547 p       |PADOFFSET|find_threadsv|const char *name
1548 #endif
1549 p       |OP*    |force_list     |OP* arg
1550 p       |OP*    |fold_constants |OP* arg
1551 Afp     |char*  |form           |const char* pat|...
1552 Ap      |char*  |vform          |const char* pat|va_list* args
1553 Ap      |void   |free_tmps
1554 p       |OP*    |gen_constant_list|OP* o
1555 #if !defined(HAS_GETENV_LEN)
1556 p       |char*  |getenv_len     |const char* key|unsigned long *len
1557 #endif
1558 Ap      |void   |gp_free        |GV* gv
1559 Ap      |GP*    |gp_ref         |GP* gp
1560 Ap      |GV*    |gv_AVadd       |GV* gv
1561 Ap      |GV*    |gv_HVadd       |GV* gv
1562 Ap      |GV*    |gv_IOadd       |GV* gv
1563 Ap      |GV*    |gv_autoload4   |HV* stash|const char* name|STRLEN len \
1564                                 |I32 method
1565 Ap      |void   |gv_check       |HV* stash
1566 Ap      |void   |gv_efullname   |SV* sv|GV* gv
1567 Ap      |void   |gv_efullname3  |SV* sv|GV* gv|const char* prefix
1568 Ap      |void   |gv_efullname4  |SV* sv|GV* gv|const char* prefix|bool keepmain
1569 Ap      |GV*    |gv_fetchfile   |const char* name
1570 Apd     |GV*    |gv_fetchmeth   |HV* stash|const char* name|STRLEN len \
1571                                 |I32 level
1572 Apd     |GV*    |gv_fetchmethod |HV* stash|const char* name
1573 Apd     |GV*    |gv_fetchmethod_autoload|HV* stash|const char* name \
1574                                 |I32 autoload
1575 Ap      |GV*    |gv_fetchpv     |const char* name|I32 add|I32 sv_type
1576 Ap      |void   |gv_fullname    |SV* sv|GV* gv
1577 Ap      |void   |gv_fullname3   |SV* sv|GV* gv|const char* prefix
1578 Ap      |void   |gv_fullname4   |SV* sv|GV* gv|const char* prefix|bool keepmain
1579 Ap      |void   |gv_init        |GV* gv|HV* stash|const char* name \
1580                                 |STRLEN len|int multi
1581 Apd     |HV*    |gv_stashpv     |const char* name|I32 create
1582 Ap      |HV*    |gv_stashpvn    |const char* name|U32 namelen|I32 create
1583 Apd     |HV*    |gv_stashsv     |SV* sv|I32 create
1584 Apd     |void   |hv_clear       |HV* tb
1585 Ap      |void   |hv_delayfree_ent|HV* hv|HE* entry
1586 Apd     |SV*    |hv_delete      |HV* tb|const char* key|I32 klen|I32 flags
1587 Apd     |SV*    |hv_delete_ent  |HV* tb|SV* key|I32 flags|U32 hash
1588 Apd     |bool   |hv_exists      |HV* tb|const char* key|I32 klen
1589 Apd     |bool   |hv_exists_ent  |HV* tb|SV* key|U32 hash
1590 Apd     |SV**   |hv_fetch       |HV* tb|const char* key|I32 klen|I32 lval
1591 Apd     |HE*    |hv_fetch_ent   |HV* tb|SV* key|I32 lval|U32 hash
1592 Ap      |void   |hv_free_ent    |HV* hv|HE* entry
1593 Apd     |I32    |hv_iterinit    |HV* tb
1594 Apd     |char*  |hv_iterkey     |HE* entry|I32* retlen
1595 Apd     |SV*    |hv_iterkeysv   |HE* entry
1596 Apd     |HE*    |hv_iternext    |HV* tb
1597 Apd     |SV*    |hv_iternextsv  |HV* hv|char** key|I32* retlen
1598 Apd     |SV*    |hv_iterval     |HV* tb|HE* entry
1599 Ap      |void   |hv_ksplit      |HV* hv|IV newmax
1600 Apd     |void   |hv_magic       |HV* hv|GV* gv|int how
1601 Apd     |SV**   |hv_store       |HV* tb|const char* key|I32 klen|SV* val \
1602                                 |U32 hash
1603 Apd     |HE*    |hv_store_ent   |HV* tb|SV* key|SV* val|U32 hash
1604 Apd     |void   |hv_undef       |HV* tb
1605 Ap      |I32    |ibcmp          |const char* a|const char* b|I32 len
1606 Ap      |I32    |ibcmp_locale   |const char* a|const char* b|I32 len
1607 p       |bool   |ingroup        |Gid_t testgid|Uid_t effective
1608 p       |void   |init_debugger
1609 Ap      |void   |init_stacks
1610 Ap      |void   |init_tm        |struct tm *ptm
1611 p       |U32    |intro_my
1612 Ap      |char*  |instr          |const char* big|const char* little
1613 p       |bool   |io_close       |IO* io|bool not_implicit
1614 p       |OP*    |invert         |OP* cmd
1615 dp      |bool   |is_gv_magical  |char *name|STRLEN len|U32 flags
1616 p       |I32    |is_lvalue_sub
1617 Ap      |bool   |is_uni_alnum   |U32 c
1618 Ap      |bool   |is_uni_alnumc  |U32 c
1619 Ap      |bool   |is_uni_idfirst |U32 c
1620 Ap      |bool   |is_uni_alpha   |U32 c
1621 Ap      |bool   |is_uni_ascii   |U32 c
1622 Ap      |bool   |is_uni_space   |U32 c
1623 Ap      |bool   |is_uni_cntrl   |U32 c
1624 Ap      |bool   |is_uni_graph   |U32 c
1625 Ap      |bool   |is_uni_digit   |U32 c
1626 Ap      |bool   |is_uni_upper   |U32 c
1627 Ap      |bool   |is_uni_lower   |U32 c
1628 Ap      |bool   |is_uni_print   |U32 c
1629 Ap      |bool   |is_uni_punct   |U32 c
1630 Ap      |bool   |is_uni_xdigit  |U32 c
1631 Ap      |U32    |to_uni_upper   |U32 c
1632 Ap      |U32    |to_uni_title   |U32 c
1633 Ap      |U32    |to_uni_lower   |U32 c
1634 Ap      |bool   |is_uni_alnum_lc|U32 c
1635 Ap      |bool   |is_uni_alnumc_lc|U32 c
1636 Ap      |bool   |is_uni_idfirst_lc|U32 c
1637 Ap      |bool   |is_uni_alpha_lc|U32 c
1638 Ap      |bool   |is_uni_ascii_lc|U32 c
1639 Ap      |bool   |is_uni_space_lc|U32 c
1640 Ap      |bool   |is_uni_cntrl_lc|U32 c
1641 Ap      |bool   |is_uni_graph_lc|U32 c
1642 Ap      |bool   |is_uni_digit_lc|U32 c
1643 Ap      |bool   |is_uni_upper_lc|U32 c
1644 Ap      |bool   |is_uni_lower_lc|U32 c
1645 Ap      |bool   |is_uni_print_lc|U32 c
1646 Ap      |bool   |is_uni_punct_lc|U32 c
1647 Ap      |bool   |is_uni_xdigit_lc|U32 c
1648 Ap      |U32    |to_uni_upper_lc|U32 c
1649 Ap      |U32    |to_uni_title_lc|U32 c
1650 Ap      |U32    |to_uni_lower_lc|U32 c
1651 Apd     |STRLEN |is_utf8_char   |U8 *p
1652 Apd     |bool   |is_utf8_string |U8 *s|STRLEN len
1653 Ap      |bool   |is_utf8_alnum  |U8 *p
1654 Ap      |bool   |is_utf8_alnumc |U8 *p
1655 Ap      |bool   |is_utf8_idfirst|U8 *p
1656 Ap      |bool   |is_utf8_alpha  |U8 *p
1657 Ap      |bool   |is_utf8_ascii  |U8 *p
1658 Ap      |bool   |is_utf8_space  |U8 *p
1659 Ap      |bool   |is_utf8_cntrl  |U8 *p
1660 Ap      |bool   |is_utf8_digit  |U8 *p
1661 Ap      |bool   |is_utf8_graph  |U8 *p
1662 Ap      |bool   |is_utf8_upper  |U8 *p
1663 Ap      |bool   |is_utf8_lower  |U8 *p
1664 Ap      |bool   |is_utf8_print  |U8 *p
1665 Ap      |bool   |is_utf8_punct  |U8 *p
1666 Ap      |bool   |is_utf8_xdigit |U8 *p
1667 Ap      |bool   |is_utf8_mark   |U8 *p
1668 p       |OP*    |jmaybe         |OP* arg
1669 p       |I32    |keyword        |char* d|I32 len
1670 Ap      |void   |leave_scope    |I32 base
1671 p       |void   |lex_end
1672 p       |void   |lex_start      |SV* line
1673 Ap |void   |op_null    |OP* o
1674 p       |void   |op_clear       |OP* o
1675 p       |OP*    |linklist       |OP* o
1676 p       |OP*    |list           |OP* o
1677 p       |OP*    |listkids       |OP* o
1678 Apd     |void   |load_module|U32 flags|SV* name|SV* ver|...
1679 Ap      |void   |vload_module|U32 flags|SV* name|SV* ver|va_list* args
1680 p       |OP*    |localize       |OP* arg|I32 lexical
1681 Apd     |I32    |looks_like_number|SV* sv
1682 Apd     |int    |grok_number    |const char *pv|STRLEN len|UV *valuep
1683 Apd     |bool   |grok_numeric_radix|const char **sp|const char *send
1684 p       |int    |magic_clearenv |SV* sv|MAGIC* mg
1685 p       |int    |magic_clear_all_env|SV* sv|MAGIC* mg
1686 p       |int    |magic_clearpack|SV* sv|MAGIC* mg
1687 p       |int    |magic_clearsig |SV* sv|MAGIC* mg
1688 p       |int    |magic_existspack|SV* sv|MAGIC* mg
1689 p       |int    |magic_freeregexp|SV* sv|MAGIC* mg
1690 p       |int    |magic_freeovrld|SV* sv|MAGIC* mg
1691 p       |int    |magic_get      |SV* sv|MAGIC* mg
1692 p       |int    |magic_getarylen|SV* sv|MAGIC* mg
1693 p       |int    |magic_getdefelem|SV* sv|MAGIC* mg
1694 p       |int    |magic_getglob  |SV* sv|MAGIC* mg
1695 p       |int    |magic_getnkeys |SV* sv|MAGIC* mg
1696 p       |int    |magic_getpack  |SV* sv|MAGIC* mg
1697 p       |int    |magic_getpos   |SV* sv|MAGIC* mg
1698 p       |int    |magic_getsig   |SV* sv|MAGIC* mg
1699 p       |int    |magic_getsubstr|SV* sv|MAGIC* mg
1700 p       |int    |magic_gettaint |SV* sv|MAGIC* mg
1701 p       |int    |magic_getuvar  |SV* sv|MAGIC* mg
1702 p       |int    |magic_getvec   |SV* sv|MAGIC* mg
1703 p       |U32    |magic_len      |SV* sv|MAGIC* mg
1704 #if defined(USE_THREADS)
1705 p       |int    |magic_mutexfree|SV* sv|MAGIC* mg
1706 #endif
1707 p       |int    |magic_nextpack |SV* sv|MAGIC* mg|SV* key
1708 p       |U32    |magic_regdata_cnt|SV* sv|MAGIC* mg
1709 p       |int    |magic_regdatum_get|SV* sv|MAGIC* mg
1710 p       |int    |magic_regdatum_set|SV* sv|MAGIC* mg
1711 p       |int    |magic_set      |SV* sv|MAGIC* mg
1712 p       |int    |magic_setamagic|SV* sv|MAGIC* mg
1713 p       |int    |magic_setarylen|SV* sv|MAGIC* mg
1714 p       |int    |magic_setbm    |SV* sv|MAGIC* mg
1715 p       |int    |magic_setdbline|SV* sv|MAGIC* mg
1716 #if defined(USE_LOCALE_COLLATE)
1717 p       |int    |magic_setcollxfrm|SV* sv|MAGIC* mg
1718 #endif
1719 p       |int    |magic_setdefelem|SV* sv|MAGIC* mg
1720 p       |int    |magic_setenv   |SV* sv|MAGIC* mg
1721 p       |int    |magic_setfm    |SV* sv|MAGIC* mg
1722 p       |int    |magic_setisa   |SV* sv|MAGIC* mg
1723 p       |int    |magic_setglob  |SV* sv|MAGIC* mg
1724 p       |int    |magic_setmglob |SV* sv|MAGIC* mg
1725 p       |int    |magic_setnkeys |SV* sv|MAGIC* mg
1726 p       |int    |magic_setpack  |SV* sv|MAGIC* mg
1727 p       |int    |magic_setpos   |SV* sv|MAGIC* mg
1728 p       |int    |magic_setsig   |SV* sv|MAGIC* mg
1729 p       |int    |magic_setsubstr|SV* sv|MAGIC* mg
1730 p       |int    |magic_settaint |SV* sv|MAGIC* mg
1731 p       |int    |magic_setuvar  |SV* sv|MAGIC* mg
1732 p       |int    |magic_setvec   |SV* sv|MAGIC* mg
1733 p       |int    |magic_set_all_env|SV* sv|MAGIC* mg
1734 p       |U32    |magic_sizepack |SV* sv|MAGIC* mg
1735 p       |int    |magic_wipepack |SV* sv|MAGIC* mg
1736 p       |void   |magicname      |char* sym|char* name|I32 namlen
1737 Ap      |void   |markstack_grow
1738 #if defined(USE_LOCALE_COLLATE)
1739 p       |char*  |mem_collxfrm   |const char* s|STRLEN len|STRLEN* xlen
1740 #endif
1741 Afp     |SV*    |mess           |const char* pat|...
1742 Ap      |SV*    |vmess          |const char* pat|va_list* args
1743 p       |void   |qerror         |SV* err
1744 Apd     |int    |mg_clear       |SV* sv
1745 Apd     |int    |mg_copy        |SV* sv|SV* nsv|const char* key|I32 klen
1746 Apd     |MAGIC* |mg_find        |SV* sv|int type
1747 Apd     |int    |mg_free        |SV* sv
1748 Apd     |int    |mg_get         |SV* sv
1749 Apd     |U32    |mg_length      |SV* sv
1750 Apd     |void   |mg_magical     |SV* sv
1751 Apd     |int    |mg_set         |SV* sv
1752 Ap      |I32    |mg_size        |SV* sv
1753 Ap      |void   |mini_mktime    |struct tm *pm
1754 p       |OP*    |mod            |OP* o|I32 type
1755 p       |int    |mode_from_discipline|SV* discp
1756 Ap      |char*  |moreswitches   |char* s
1757 p       |OP*    |my             |OP* o
1758 Ap      |NV     |my_atof        |const char *s
1759 #if (!defined(HAS_MEMCPY) && !defined(HAS_BCOPY)) || (!defined(HAS_MEMMOVE) && !defined(HAS_SAFE_MEMCPY) && !defined(HAS_SAFE_BCOPY))
1760 Anp     |char*  |my_bcopy       |const char* from|char* to|I32 len
1761 #endif
1762 #if !defined(HAS_BZERO) && !defined(HAS_MEMSET)
1763 Anp     |char*  |my_bzero       |char* loc|I32 len
1764 #endif
1765 Apr     |void   |my_exit        |U32 status
1766 Apr     |void   |my_failure_exit
1767 Ap      |I32    |my_fflush_all
1768 Anp     |Pid_t  |my_fork
1769 Anp     |void   |atfork_lock
1770 Anp     |void   |atfork_unlock
1771 Ap      |I32    |my_lstat
1772 #if !defined(HAS_MEMCMP) || !defined(HAS_SANE_MEMCMP)
1773 Anp     |I32    |my_memcmp      |const char* s1|const char* s2|I32 len
1774 #endif
1775 #if !defined(HAS_MEMSET)
1776 Anp     |void*  |my_memset      |char* loc|I32 ch|I32 len
1777 #endif
1778 #if !defined(PERL_OBJECT)
1779 Ap      |I32    |my_pclose      |PerlIO* ptr
1780 Ap      |PerlIO*|my_popen       |char* cmd|char* mode
1781 Ap      |PerlIO*|my_popen_list  |char* mode|int n|SV ** args
1782 #endif
1783 Ap      |void   |my_setenv      |char* nam|char* val
1784 Ap      |I32    |my_stat
1785 Ap      |char * |my_strftime    |char *fmt|int sec|int min|int hour|int mday|int mon|int year|int wday|int yday|int isdst
1786 #if defined(MYSWAP)
1787 Ap      |short  |my_swap        |short s
1788 Ap      |long   |my_htonl       |long l
1789 Ap      |long   |my_ntohl       |long l
1790 #endif
1791 p       |void   |my_unexec
1792 Ap      |OP*    |newANONLIST    |OP* o
1793 Ap      |OP*    |newANONHASH    |OP* o
1794 Ap      |OP*    |newANONSUB     |I32 floor|OP* proto|OP* block
1795 Ap      |OP*    |newASSIGNOP    |I32 flags|OP* left|I32 optype|OP* right
1796 Ap      |OP*    |newCONDOP      |I32 flags|OP* expr|OP* trueop|OP* falseop
1797 Apd     |CV*    |newCONSTSUB    |HV* stash|char* name|SV* sv
1798 Ap      |void   |newFORM        |I32 floor|OP* o|OP* block
1799 Ap      |OP*    |newFOROP       |I32 flags|char* label|line_t forline \
1800                                 |OP* sclr|OP* expr|OP*block|OP*cont
1801 Ap      |OP*    |newLOGOP       |I32 optype|I32 flags|OP* left|OP* right
1802 Ap      |OP*    |newLOOPEX      |I32 type|OP* label
1803 Ap      |OP*    |newLOOPOP      |I32 flags|I32 debuggable|OP* expr|OP* block
1804 Ap      |OP*    |newNULLLIST
1805 Ap      |OP*    |newOP          |I32 optype|I32 flags
1806 Ap      |void   |newPROG        |OP* o
1807 Ap      |OP*    |newRANGE       |I32 flags|OP* left|OP* right
1808 Ap      |OP*    |newSLICEOP     |I32 flags|OP* subscript|OP* listop
1809 Ap      |OP*    |newSTATEOP     |I32 flags|char* label|OP* o
1810 Ap      |CV*    |newSUB         |I32 floor|OP* o|OP* proto|OP* block
1811 Apd     |CV*    |newXS          |char* name|XSUBADDR_t f|char* filename
1812 Apd     |AV*    |newAV
1813 Ap      |OP*    |newAVREF       |OP* o
1814 Ap      |OP*    |newBINOP       |I32 type|I32 flags|OP* first|OP* last
1815 Ap      |OP*    |newCVREF       |I32 flags|OP* o
1816 Ap      |OP*    |newGVOP        |I32 type|I32 flags|GV* gv
1817 Ap      |GV*    |newGVgen       |char* pack
1818 Ap      |OP*    |newGVREF       |I32 type|OP* o
1819 Ap      |OP*    |newHVREF       |OP* o
1820 Apd     |HV*    |newHV
1821 Ap      |HV*    |newHVhv        |HV* hv
1822 Ap      |IO*    |newIO
1823 Ap      |OP*    |newLISTOP      |I32 type|I32 flags|OP* first|OP* last
1824 Ap      |OP*    |newPADOP       |I32 type|I32 flags|SV* sv
1825 Ap      |OP*    |newPMOP        |I32 type|I32 flags
1826 Ap      |OP*    |newPVOP        |I32 type|I32 flags|char* pv
1827 Ap      |SV*    |newRV          |SV* pref
1828 Apd     |SV*    |newRV_noinc    |SV *sv
1829 Apd     |SV*    |newSV          |STRLEN len
1830 Ap      |OP*    |newSVREF       |OP* o
1831 Ap      |OP*    |newSVOP        |I32 type|I32 flags|SV* sv
1832 Apd     |SV*    |newSViv        |IV i
1833 Apd     |SV*    |newSVuv        |UV u
1834 Apd     |SV*    |newSVnv        |NV n
1835 Apd     |SV*    |newSVpv        |const char* s|STRLEN len
1836 Apd     |SV*    |newSVpvn       |const char* s|STRLEN len
1837 Apd     |SV*    |newSVpvn_share |const char* s|I32 len|U32 hash
1838 Afpd    |SV*    |newSVpvf       |const char* pat|...
1839 Ap      |SV*    |vnewSVpvf      |const char* pat|va_list* args
1840 Apd     |SV*    |newSVrv        |SV* rv|const char* classname
1841 Apd     |SV*    |newSVsv        |SV* old
1842 Ap      |OP*    |newUNOP        |I32 type|I32 flags|OP* first
1843 Ap      |OP*    |newWHILEOP     |I32 flags|I32 debuggable|LOOP* loop \
1844                                 |I32 whileline|OP* expr|OP* block|OP* cont
1845
1846 Ap      |PERL_SI*|new_stackinfo|I32 stitems|I32 cxitems
1847 p       |PerlIO*|nextargv       |GV* gv
1848 Ap      |char*  |ninstr         |const char* big|const char* bigend \
1849                                 |const char* little|const char* lend
1850 p       |OP*    |oopsCV         |OP* o
1851 Ap      |void   |op_free        |OP* arg
1852 p       |void   |package        |OP* o
1853 p       |PADOFFSET|pad_alloc    |I32 optype|U32 tmptype
1854 p       |PADOFFSET|pad_allocmy  |char* name
1855 p       |PADOFFSET|pad_findmy   |char* name
1856 p       |OP*    |oopsAV         |OP* o
1857 p       |OP*    |oopsHV         |OP* o
1858 p       |void   |pad_leavemy    |I32 fill
1859 Ap      |SV*    |pad_sv         |PADOFFSET po
1860 p       |void   |pad_free       |PADOFFSET po
1861 p       |void   |pad_reset
1862 p       |void   |pad_swipe      |PADOFFSET po
1863 p       |void   |peep           |OP* o
1864 dopM    |PerlIO*|start_glob     |SV* pattern|IO *io
1865 #if defined(PERL_OBJECT)
1866 Aox     |void   |Perl_construct
1867 Aox     |void   |Perl_destruct
1868 Aox     |void   |Perl_free
1869 Aox     |int    |Perl_run
1870 Aox     |int    |Perl_parse     |XSINIT_t xsinit \
1871                                 |int argc|char** argv|char** env
1872 #endif
1873 #if defined(USE_THREADS)
1874 Ap      |struct perl_thread*    |new_struct_thread|struct perl_thread *t
1875 #endif
1876 Ap      |void   |call_atexit    |ATEXIT_t fn|void *ptr
1877 Apd     |I32    |call_argv      |const char* sub_name|I32 flags|char** argv
1878 Apd     |I32    |call_method    |const char* methname|I32 flags
1879 Apd     |I32    |call_pv        |const char* sub_name|I32 flags
1880 Apd     |I32    |call_sv        |SV* sv|I32 flags
1881 p       |void   |despatch_signals
1882 Apd     |SV*    |eval_pv        |const char* p|I32 croak_on_error
1883 Apd     |I32    |eval_sv        |SV* sv|I32 flags
1884 Apd     |SV*    |get_sv         |const char* name|I32 create
1885 Apd     |AV*    |get_av         |const char* name|I32 create
1886 Apd     |HV*    |get_hv         |const char* name|I32 create
1887 Apd     |CV*    |get_cv         |const char* name|I32 create
1888 Ap      |int    |init_i18nl10n  |int printwarn
1889 Ap      |int    |init_i18nl14n  |int printwarn
1890 Ap      |void   |new_collate    |char* newcoll
1891 Ap      |void   |new_ctype      |char* newctype
1892 Ap      |void   |new_numeric    |char* newcoll
1893 Ap      |void   |set_numeric_local
1894 Ap      |void   |set_numeric_radix
1895 Ap      |void   |set_numeric_standard
1896 Apd     |void   |require_pv     |const char* pv
1897 p       |void   |pidgone        |Pid_t pid|int status
1898 Ap      |void   |pmflag         |U16* pmfl|int ch
1899 p       |OP*    |pmruntime      |OP* pm|OP* expr|OP* repl
1900 p       |OP*    |pmtrans        |OP* o|OP* expr|OP* repl
1901 p       |OP*    |pop_return
1902 Ap      |void   |pop_scope
1903 p       |OP*    |prepend_elem   |I32 optype|OP* head|OP* tail
1904 p       |void   |push_return    |OP* o
1905 Ap      |void   |push_scope
1906 p       |OP*    |ref            |OP* o|I32 type
1907 p       |OP*    |refkids        |OP* o|I32 type
1908 Ap      |void   |regdump        |regexp* r
1909 Ap      |SV*    |regclass_swash |struct regnode *n|bool doinit|SV **initsvp
1910 Ap      |I32    |pregexec       |regexp* prog|char* stringarg \
1911                                 |char* strend|char* strbeg|I32 minend \
1912                                 |SV* screamer|U32 nosave
1913 Ap      |void   |pregfree       |struct regexp* r
1914 Ap      |regexp*|pregcomp       |char* exp|char* xend|PMOP* pm
1915 Ap      |char*  |re_intuit_start|regexp* prog|SV* sv|char* strpos \
1916                                 |char* strend|U32 flags \
1917                                 |struct re_scream_pos_data_s *data
1918 Ap      |SV*    |re_intuit_string|regexp* prog
1919 Ap      |I32    |regexec_flags  |regexp* prog|char* stringarg \
1920                                 |char* strend|char* strbeg|I32 minend \
1921                                 |SV* screamer|void* data|U32 flags
1922 Ap      |regnode*|regnext       |regnode* p
1923 p       |void   |regprop        |SV* sv|regnode* o
1924 Ap      |void   |repeatcpy      |char* to|const char* from|I32 len|I32 count
1925 Ap      |char*  |rninstr        |const char* big|const char* bigend \
1926                                 |const char* little|const char* lend
1927 Ap      |Sighandler_t|rsignal   |int i|Sighandler_t t
1928 p       |int    |rsignal_restore|int i|Sigsave_t* t
1929 p       |int    |rsignal_save   |int i|Sighandler_t t1|Sigsave_t* t2
1930 Ap      |Sighandler_t|rsignal_state|int i
1931 p       |void   |rxres_free     |void** rsp
1932 p       |void   |rxres_restore  |void** rsp|REGEXP* prx
1933 p       |void   |rxres_save     |void** rsp|REGEXP* prx
1934 #if !defined(HAS_RENAME)
1935 p       |I32    |same_dirent    |char* a|char* b
1936 #endif
1937 Apd     |char*  |savepv         |const char* sv
1938 Apd     |char*  |savepvn        |const char* sv|I32 len
1939 Ap      |void   |savestack_grow
1940 Ap      |void   |save_aelem     |AV* av|I32 idx|SV **sptr
1941 Ap      |I32    |save_alloc     |I32 size|I32 pad
1942 Ap      |void   |save_aptr      |AV** aptr
1943 Ap      |AV*    |save_ary       |GV* gv
1944 Ap      |void   |save_clearsv   |SV** svp
1945 Ap      |void   |save_delete    |HV* hv|char* key|I32 klen
1946 Ap      |void   |save_destructor|DESTRUCTORFUNC_NOCONTEXT_t f|void* p
1947 Ap      |void   |save_destructor_x|DESTRUCTORFUNC_t f|void* p
1948 Ap      |void   |save_freesv    |SV* sv
1949 p       |void   |save_freeop    |OP* o
1950 Ap      |void   |save_freepv    |char* pv
1951 Ap      |void   |save_generic_svref|SV** sptr
1952 Ap      |void   |save_generic_pvref|char** str
1953 Ap      |void   |save_gp        |GV* gv|I32 empty
1954 Ap      |HV*    |save_hash      |GV* gv
1955 Ap      |void   |save_helem     |HV* hv|SV *key|SV **sptr
1956 Ap      |void   |save_hints
1957 Ap      |void   |save_hptr      |HV** hptr
1958 Ap      |void   |save_I16       |I16* intp
1959 Ap      |void   |save_I32       |I32* intp
1960 Ap      |void   |save_I8        |I8* bytep
1961 Ap      |void   |save_int       |int* intp
1962 Ap      |void   |save_item      |SV* item
1963 Ap      |void   |save_iv        |IV* iv
1964 Ap      |void   |save_list      |SV** sarg|I32 maxsarg
1965 Ap      |void   |save_long      |long* longp
1966 Ap      |void   |save_mortalizesv|SV* sv
1967 Ap      |void   |save_nogv      |GV* gv
1968 p       |void   |save_op
1969 Ap      |SV*    |save_scalar    |GV* gv
1970 Ap      |void   |save_pptr      |char** pptr
1971 Ap      |void   |save_vptr      |void* pptr
1972 Ap      |void   |save_re_context
1973 Ap      |void   |save_padsv     |PADOFFSET off
1974 Ap      |void   |save_sptr      |SV** sptr
1975 Ap      |SV*    |save_svref     |SV** sptr
1976 Ap      |SV**   |save_threadsv  |PADOFFSET i
1977 p       |OP*    |sawparens      |OP* o
1978 p       |OP*    |scalar         |OP* o
1979 p       |OP*    |scalarkids     |OP* o
1980 p       |OP*    |scalarseq      |OP* o
1981 p       |OP*    |scalarvoid     |OP* o
1982 Ap      |NV     |scan_bin       |char* start|STRLEN len|STRLEN* retlen
1983 Ap      |NV     |scan_hex       |char* start|STRLEN len|STRLEN* retlen
1984 Ap      |char*  |scan_num       |char* s|YYSTYPE *lvalp
1985 Ap      |NV     |scan_oct       |char* start|STRLEN len|STRLEN* retlen
1986 p       |OP*    |scope          |OP* o
1987 Ap      |char*  |screaminstr    |SV* bigsv|SV* littlesv|I32 start_shift \
1988                                 |I32 end_shift|I32 *state|I32 last
1989 #if !defined(VMS)
1990 p       |I32    |setenv_getix   |char* nam
1991 #endif
1992 p       |void   |setdefout      |GV* gv
1993 Ap      |char*  |sharepvn       |const char* sv|I32 len|U32 hash
1994 p       |HEK*   |share_hek      |const char* sv|I32 len|U32 hash
1995 np      |Signal_t |sighandler   |int sig
1996 Ap      |SV**   |stack_grow     |SV** sp|SV**p|int n
1997 Ap      |I32    |start_subparse |I32 is_format|U32 flags
1998 p       |void   |sub_crush_depth|CV* cv
1999 Apd     |bool   |sv_2bool       |SV* sv
2000 Apd     |CV*    |sv_2cv         |SV* sv|HV** st|GV** gvp|I32 lref
2001 Apd     |IO*    |sv_2io         |SV* sv
2002 Apd     |IV     |sv_2iv         |SV* sv
2003 Apd     |SV*    |sv_2mortal     |SV* sv
2004 Apd     |NV     |sv_2nv         |SV* sv
2005 Aop     |char*  |sv_2pv         |SV* sv|STRLEN* lp
2006 Apd     |char*  |sv_2pvutf8     |SV* sv|STRLEN* lp
2007 Apd     |char*  |sv_2pvbyte     |SV* sv|STRLEN* lp
2008 Apd     |UV     |sv_2uv         |SV* sv
2009 Apd     |IV     |sv_iv          |SV* sv
2010 Apd     |UV     |sv_uv          |SV* sv
2011 Apd     |NV     |sv_nv          |SV* sv
2012 Apd     |char*  |sv_pvn         |SV *sv|STRLEN *len
2013 Apd     |char*  |sv_pvutf8n     |SV *sv|STRLEN *len
2014 Apd     |char*  |sv_pvbyten     |SV *sv|STRLEN *len
2015 Apd     |I32    |sv_true        |SV *sv
2016 pd      |void   |sv_add_arena   |char* ptr|U32 size|U32 flags
2017 Apd     |int    |sv_backoff     |SV* sv
2018 Apd     |SV*    |sv_bless       |SV* sv|HV* stash
2019 Afpd    |void   |sv_catpvf      |SV* sv|const char* pat|...
2020 Ap      |void   |sv_vcatpvf     |SV* sv|const char* pat|va_list* args
2021 Apd     |void   |sv_catpv       |SV* sv|const char* ptr
2022 Aopd    |void   |sv_catpvn      |SV* sv|const char* ptr|STRLEN len
2023 Aopd    |void   |sv_catsv       |SV* dsv|SV* ssv
2024 Apd     |void   |sv_chop        |SV* sv|char* ptr
2025 pd      |I32    |sv_clean_all
2026 pd      |void   |sv_clean_objs
2027 Apd     |void   |sv_clear       |SV* sv
2028 Apd     |I32    |sv_cmp         |SV* sv1|SV* sv2
2029 Apd     |I32    |sv_cmp_locale  |SV* sv1|SV* sv2
2030 #if defined(USE_LOCALE_COLLATE)
2031 Apd     |char*  |sv_collxfrm    |SV* sv|STRLEN* nxp
2032 #endif
2033 Ap      |OP*    |sv_compile_2op |SV* sv|OP** startp|char* code|AV** avp
2034 Apd     |int    |getcwd_sv      |SV* sv
2035 Apd     |void   |sv_dec         |SV* sv
2036 Ap      |void   |sv_dump        |SV* sv
2037 Apd     |bool   |sv_derived_from|SV* sv|const char* name
2038 Apd     |I32    |sv_eq          |SV* sv1|SV* sv2
2039 Apd     |void   |sv_free        |SV* sv
2040 pd      |void   |sv_free_arenas
2041 Apd     |char*  |sv_gets        |SV* sv|PerlIO* fp|I32 append
2042 Apd     |char*  |sv_grow        |SV* sv|STRLEN newlen
2043 Apd     |void   |sv_inc         |SV* sv
2044 Apd     |void   |sv_insert      |SV* bigsv|STRLEN offset|STRLEN len \
2045                                 |char* little|STRLEN littlelen
2046 Apd     |int    |sv_isa         |SV* sv|const char* name
2047 Apd     |int    |sv_isobject    |SV* sv
2048 Apd     |STRLEN |sv_len         |SV* sv
2049 Apd     |STRLEN |sv_len_utf8    |SV* sv
2050 Apd     |void   |sv_magic       |SV* sv|SV* obj|int how|const char* name \
2051                                 |I32 namlen
2052 Apd     |SV*    |sv_mortalcopy  |SV* oldsv
2053 Apd     |SV*    |sv_newmortal
2054 Apd     |SV*    |sv_newref      |SV* sv
2055 Ap      |char*  |sv_peek        |SV* sv
2056 Apd     |void   |sv_pos_u2b     |SV* sv|I32* offsetp|I32* lenp
2057 Apd     |void   |sv_pos_b2u     |SV* sv|I32* offsetp
2058 Aopd    |char*  |sv_pvn_force   |SV* sv|STRLEN* lp
2059 Apd     |char*  |sv_pvutf8n_force|SV* sv|STRLEN* lp
2060 Apd     |char*  |sv_pvbyten_force|SV* sv|STRLEN* lp
2061 Apd     |char*  |sv_reftype     |SV* sv|int ob
2062 Apd     |void   |sv_replace     |SV* sv|SV* nsv
2063 Apd     |void   |sv_report_used
2064 Apd     |void   |sv_reset       |char* s|HV* stash
2065 Afpd    |void   |sv_setpvf      |SV* sv|const char* pat|...
2066 Ap      |void   |sv_vsetpvf     |SV* sv|const char* pat|va_list* args
2067 Apd     |void   |sv_setiv       |SV* sv|IV num
2068 Apd     |void   |sv_setpviv     |SV* sv|IV num
2069 Apd     |void   |sv_setuv       |SV* sv|UV num
2070 Apd     |void   |sv_setnv       |SV* sv|NV num
2071 Apd     |SV*    |sv_setref_iv   |SV* rv|const char* classname|IV iv
2072 Apd     |SV*    |sv_setref_uv   |SV* rv|const char* classname|UV uv
2073 Apd     |SV*    |sv_setref_nv   |SV* rv|const char* classname|NV nv
2074 Apd     |SV*    |sv_setref_pv   |SV* rv|const char* classname|void* pv
2075 Apd     |SV*    |sv_setref_pvn  |SV* rv|const char* classname|char* pv \
2076                                 |STRLEN n
2077 Apd     |void   |sv_setpv       |SV* sv|const char* ptr
2078 Apd     |void   |sv_setpvn      |SV* sv|const char* ptr|STRLEN len
2079 Aopd    |void   |sv_setsv       |SV* dsv|SV* ssv
2080 Apd     |void   |sv_taint       |SV* sv
2081 Apd     |bool   |sv_tainted     |SV* sv
2082 Apd     |int    |sv_unmagic     |SV* sv|int type
2083 Apd     |void   |sv_unref       |SV* sv
2084 Apd     |void   |sv_unref_flags |SV* sv|U32 flags
2085 Apd     |void   |sv_untaint     |SV* sv
2086 Apd     |bool   |sv_upgrade     |SV* sv|U32 mt
2087 Apd     |void   |sv_usepvn      |SV* sv|char* ptr|STRLEN len
2088 Apd     |void   |sv_vcatpvfn    |SV* sv|const char* pat|STRLEN patlen \
2089                                 |va_list* args|SV** svargs|I32 svmax \
2090                                 |bool *maybe_tainted
2091 Apd     |void   |sv_vsetpvfn    |SV* sv|const char* pat|STRLEN patlen \
2092                                 |va_list* args|SV** svargs|I32 svmax \
2093                                 |bool *maybe_tainted
2094 Ap      |NV     |str_to_version |SV *sv
2095 Ap      |SV*    |swash_init     |char* pkg|char* name|SV* listsv \
2096                                 |I32 minbits|I32 none
2097 Ap      |UV     |swash_fetch    |SV *sv|U8 *ptr|bool do_utf8
2098 Ap      |void   |taint_env
2099 Ap      |void   |taint_proper   |const char* f|const char* s
2100 Ap      |UV     |to_utf8_lower  |U8 *p
2101 Ap      |UV     |to_utf8_upper  |U8 *p
2102 Ap      |UV     |to_utf8_title  |U8 *p
2103 #if defined(UNLINK_ALL_VERSIONS)
2104 Ap      |I32    |unlnk          |char* f
2105 #endif
2106 #if defined(USE_THREADS)
2107 Ap      |void   |unlock_condpair|void* svv
2108 #endif
2109 Ap      |void   |unsharepvn     |const char* sv|I32 len|U32 hash
2110 p       |void   |unshare_hek    |HEK* hek
2111 p       |void   |utilize        |int aver|I32 floor|OP* version|OP* id|OP* arg
2112 Ap      |U8*    |utf16_to_utf8  |U8* p|U8 *d|I32 bytelen|I32 *newlen
2113 Ap      |U8*    |utf16_to_utf8_reversed|U8* p|U8 *d|I32 bytelen|I32 *newlen
2114 Adp     |STRLEN |utf8_length    |U8* s|U8 *e
2115 Apd     |IV     |utf8_distance  |U8 *a|U8 *b
2116 Apd     |U8*    |utf8_hop       |U8 *s|I32 off
2117 ApMd    |U8*    |utf8_to_bytes  |U8 *s|STRLEN *len
2118 ApMd    |U8*    |bytes_from_utf8|U8 *s|STRLEN *len|bool *is_utf8
2119 ApMd    |U8*    |bytes_to_utf8  |U8 *s|STRLEN *len
2120 Apd     |UV     |utf8_to_uvchr  |U8 *s|STRLEN* retlen
2121 Apd     |UV     |utf8_to_uvuni  |U8 *s|STRLEN* retlen
2122 Adp     |UV     |utf8n_to_uvchr |U8 *s|STRLEN curlen|STRLEN* retlen|U32 flags
2123 Adp     |UV     |utf8n_to_uvuni |U8 *s|STRLEN curlen|STRLEN* retlen|U32 flags
2124 Apd     |U8*    |uvchr_to_utf8  |U8 *d|UV uv
2125 Apd     |U8*    |uvuni_to_utf8  |U8 *d|UV uv
2126 p       |void   |vivify_defelem |SV* sv
2127 p       |void   |vivify_ref     |SV* sv|U32 to_what
2128 p       |I32    |wait4pid       |Pid_t pid|int* statusp|int flags
2129 p       |void   |report_evil_fh |GV *gv|IO *io|I32 op
2130 pd      |void   |report_uninit
2131 Afpd    |void   |warn           |const char* pat|...
2132 Ap      |void   |vwarn          |const char* pat|va_list* args
2133 Afp     |void   |warner         |U32 err|const char* pat|...
2134 Ap      |void   |vwarner        |U32 err|const char* pat|va_list* args
2135 p       |void   |watch          |char** addr
2136 Ap      |I32    |whichsig       |char* sig
2137 p       |int    |yyerror        |char* s
2138 #ifdef USE_PURE_BISON
2139 p       |int    |yylex_r        |YYSTYPE *lvalp|int *lcharp
2140 #endif
2141 p       |int    |yylex
2142 p       |int    |yyparse
2143 p       |int    |yywarn         |char* s
2144 #if defined(MYMALLOC)
2145 Ap      |void   |dump_mstats    |char* s
2146 Ap      |int    |get_mstats     |perl_mstats_t *buf|int buflen|int level
2147 #endif
2148 Anp     |Malloc_t|safesysmalloc |MEM_SIZE nbytes
2149 Anp     |Malloc_t|safesyscalloc |MEM_SIZE elements|MEM_SIZE size
2150 Anp     |Malloc_t|safesysrealloc|Malloc_t where|MEM_SIZE nbytes
2151 Anp     |Free_t |safesysfree    |Malloc_t where
2152 #if defined(LEAKTEST)
2153 Anp     |Malloc_t|safexmalloc   |I32 x|MEM_SIZE size
2154 Anp     |Malloc_t|safexcalloc   |I32 x|MEM_SIZE elements|MEM_SIZE size
2155 Anp     |Malloc_t|safexrealloc  |Malloc_t where|MEM_SIZE size
2156 Anp     |void   |safexfree      |Malloc_t where
2157 #endif
2158 #if defined(PERL_GLOBAL_STRUCT)
2159 Ap      |struct perl_vars *|GetVars
2160 #endif
2161 Ap      |int    |runops_standard
2162 Ap      |int    |runops_debug
2163 #if defined(USE_THREADS)
2164 Ap      |SV*    |sv_lock        |SV *sv
2165 #endif
2166 Afpd    |void   |sv_catpvf_mg   |SV *sv|const char* pat|...
2167 Ap      |void   |sv_vcatpvf_mg  |SV* sv|const char* pat|va_list* args
2168 Apd     |void   |sv_catpv_mg    |SV *sv|const char *ptr
2169 Apd     |void   |sv_catpvn_mg   |SV *sv|const char *ptr|STRLEN len
2170 Apd     |void   |sv_catsv_mg    |SV *dstr|SV *sstr
2171 Afpd    |void   |sv_setpvf_mg   |SV *sv|const char* pat|...
2172 Ap      |void   |sv_vsetpvf_mg  |SV* sv|const char* pat|va_list* args
2173 Apd     |void   |sv_setiv_mg    |SV *sv|IV i
2174 Apd     |void   |sv_setpviv_mg  |SV *sv|IV iv
2175 Apd     |void   |sv_setuv_mg    |SV *sv|UV u
2176 Apd     |void   |sv_setnv_mg    |SV *sv|NV num
2177 Apd     |void   |sv_setpv_mg    |SV *sv|const char *ptr
2178 Apd     |void   |sv_setpvn_mg   |SV *sv|const char *ptr|STRLEN len
2179 Apd     |void   |sv_setsv_mg    |SV *dstr|SV *sstr
2180 Apd     |void   |sv_usepvn_mg   |SV *sv|char *ptr|STRLEN len
2181 Ap      |MGVTBL*|get_vtbl       |int vtbl_id
2182 p       |char*  |pv_display     |SV *sv|char *pv|STRLEN cur|STRLEN len \
2183                                 |STRLEN pvlim
2184 Afp     |void   |dump_indent    |I32 level|PerlIO *file|const char* pat|...
2185 Ap      |void   |dump_vindent   |I32 level|PerlIO *file|const char* pat \
2186                                 |va_list *args
2187 Ap      |void   |do_gv_dump     |I32 level|PerlIO *file|char *name|GV *sv
2188 Ap      |void   |do_gvgv_dump   |I32 level|PerlIO *file|char *name|GV *sv
2189 Ap      |void   |do_hv_dump     |I32 level|PerlIO *file|char *name|HV *sv
2190 Ap      |void   |do_magic_dump  |I32 level|PerlIO *file|MAGIC *mg|I32 nest \
2191                                 |I32 maxnest|bool dumpops|STRLEN pvlim
2192 Ap      |void   |do_op_dump     |I32 level|PerlIO *file|OP *o
2193 Ap      |void   |do_pmop_dump   |I32 level|PerlIO *file|PMOP *pm
2194 Ap      |void   |do_sv_dump     |I32 level|PerlIO *file|SV *sv|I32 nest \
2195                                 |I32 maxnest|bool dumpops|STRLEN pvlim
2196 Ap      |void   |magic_dump     |MAGIC *mg
2197 #if defined(PERL_FLEXIBLE_EXCEPTIONS)
2198 Ap      |void*  |default_protect|volatile JMPENV *je|int *excpt \
2199                                 |protect_body_t body|...
2200 Ap      |void*  |vdefault_protect|volatile JMPENV *je|int *excpt \
2201                                 |protect_body_t body|va_list *args
2202 #endif
2203 Ap      |void   |reginitcolors
2204 Apd     |char*  |sv_2pv_nolen   |SV* sv
2205 Apd     |char*  |sv_2pvutf8_nolen|SV* sv
2206 Apd     |char*  |sv_2pvbyte_nolen|SV* sv
2207 Apd     |char*  |sv_pv          |SV *sv
2208 Apd     |char*  |sv_pvutf8      |SV *sv
2209 Apd     |char*  |sv_pvbyte      |SV *sv
2210 Aopd    |STRLEN |sv_utf8_upgrade|SV *sv
2211 ApdM    |bool   |sv_utf8_downgrade|SV *sv|bool fail_ok
2212 Apd     |void   |sv_utf8_encode |SV *sv
2213 ApdM    |bool   |sv_utf8_decode |SV *sv
2214 Apd     |void   |sv_force_normal|SV *sv
2215 Apd     |void   |sv_force_normal_flags|SV *sv|U32 flags
2216 Ap      |void   |tmps_grow      |I32 n
2217 Apd     |SV*    |sv_rvweaken    |SV *sv
2218 p       |int    |magic_killbackrefs|SV *sv|MAGIC *mg
2219 Ap      |OP*    |newANONATTRSUB |I32 floor|OP *proto|OP *attrs|OP *block
2220 Ap      |CV*    |newATTRSUB     |I32 floor|OP *o|OP *proto|OP *attrs|OP *block
2221 Ap      |void   |newMYSUB       |I32 floor|OP *o|OP *proto|OP *attrs|OP *block
2222 p       |OP *   |my_attrs       |OP *o|OP *attrs
2223 p       |void   |boot_core_xsutils
2224 #if defined(USE_ITHREADS)
2225 Ap      |PERL_CONTEXT*|cx_dup   |PERL_CONTEXT* cx|I32 ix|I32 max|clone_params* param
2226 Ap      |PERL_SI*|si_dup        |PERL_SI* si|clone_params* param
2227 Ap      |ANY*   |ss_dup         |PerlInterpreter* proto_perl|clone_params* param
2228 Ap      |void*  |any_dup        |void* v|PerlInterpreter* proto_perl
2229 Ap      |HE*    |he_dup         |HE* e|bool shared|clone_params* param
2230 Ap      |REGEXP*|re_dup         |REGEXP* r|clone_params* param
2231 Ap      |PerlIO*|fp_dup         |PerlIO* fp|char type
2232 Ap      |DIR*   |dirp_dup       |DIR* dp
2233 Ap      |GP*    |gp_dup         |GP* gp|clone_params* param
2234 Ap      |MAGIC* |mg_dup         |MAGIC* mg|clone_params* param
2235 Ap      |SV*    |sv_dup         |SV* sstr|clone_params* param
2236 #if defined(HAVE_INTERP_INTERN)
2237 Ap      |void   |sys_intern_dup |struct interp_intern* src \
2238                                 |struct interp_intern* dst
2239 #endif
2240 Ap      |PTR_TBL_t*|ptr_table_new
2241 Ap      |void*  |ptr_table_fetch|PTR_TBL_t *tbl|void *sv
2242 Ap      |void   |ptr_table_store|PTR_TBL_t *tbl|void *oldsv|void *newsv
2243 Ap      |void   |ptr_table_split|PTR_TBL_t *tbl
2244 Ap      |void   |ptr_table_clear|PTR_TBL_t *tbl
2245 Ap      |void   |ptr_table_free|PTR_TBL_t *tbl
2246 #endif
2247 #if defined(HAVE_INTERP_INTERN)
2248 Ap      |void   |sys_intern_clear
2249 Ap      |void   |sys_intern_init
2250 #endif
2251 #if defined(PERL_CUSTOM_OPS)
2252 Ap |char * |custom_op_name|OP* op
2253 Ap |char * |custom_op_desc|OP* op
2254 #endif
2255 #if defined(PERL_CUSTOM_OPS)
2256 Ap |char * |custom_op_name|OP* op
2257 Ap |char * |custom_op_desc|OP* op
2258 #endif
2259 #if defined(PERL_CUSTOM_OPS)
2260 Ap |char * |custom_op_name|OP* op
2261 Ap |char * |custom_op_desc|OP* op
2262 #endif
2263
2264 #if defined(PERL_OBJECT)
2265 protected:
2266 #else
2267 END_EXTERN_C
2268 #endif
2269
2270 #if defined(PERL_IN_AV_C) || defined(PERL_DECL_PROT)
2271 s       |I32    |avhv_index_sv  |SV* sv
2272 s       |I32    |avhv_index     |AV* av|SV* sv|U32 hash
2273 #endif
2274
2275 #if defined(PERL_IN_DOOP_C) || defined(PERL_DECL_PROT)
2276 s       |I32    |do_trans_simple        |SV *sv
2277 s       |I32    |do_trans_count         |SV *sv
2278 s       |I32    |do_trans_complex       |SV *sv
2279 s       |I32    |do_trans_simple_utf8   |SV *sv
2280 s       |I32    |do_trans_count_utf8    |SV *sv
2281 s       |I32    |do_trans_complex_utf8  |SV *sv
2282 #endif
2283
2284 #if defined(PERL_IN_GV_C) || defined(PERL_DECL_PROT)
2285 s       |void   |gv_init_sv     |GV *gv|I32 sv_type
2286 s       |void   |require_errno  |GV *gv
2287 #endif
2288
2289 #if defined(PERL_IN_HV_C) || defined(PERL_DECL_PROT)
2290 s       |void   |hsplit         |HV *hv
2291 s       |void   |hfreeentries   |HV *hv
2292 s       |void   |more_he
2293 s       |HE*    |new_he
2294 s       |void   |del_he         |HE *p
2295 s       |HEK*   |save_hek       |const char *str|I32 len|U32 hash
2296 s       |void   |hv_magic_check |HV *hv|bool *needs_copy|bool *needs_store
2297 #endif
2298
2299 #if defined(PERL_IN_MG_C) || defined(PERL_DECL_PROT)
2300 s       |void   |save_magic     |I32 mgs_ix|SV *sv
2301 s       |int    |magic_methpack |SV *sv|MAGIC *mg|char *meth
2302 s       |int    |magic_methcall |SV *sv|MAGIC *mg|char *meth|I32 f \
2303                                 |int n|SV *val
2304 #endif
2305
2306 #if defined(PERL_IN_OP_C) || defined(PERL_DECL_PROT)
2307 s       |I32    |list_assignment|OP *o
2308 s       |void   |bad_type       |I32 n|char *t|char *name|OP *kid
2309 s       |void   |cop_free       |COP *cop
2310 s       |OP*    |modkids        |OP *o|I32 type
2311 s       |void   |no_bareword_allowed|OP *o
2312 s       |OP*    |no_fh_allowed  |OP *o
2313 s       |OP*    |scalarboolean  |OP *o
2314 s       |OP*    |too_few_arguments|OP *o|char* name
2315 s       |OP*    |too_many_arguments|OP *o|char* name
2316 s       |PADOFFSET|pad_addlex   |SV* name
2317 s       |PADOFFSET|pad_findlex  |char* name|PADOFFSET newoff|U32 seq \
2318                                 |CV* startcv|I32 cx_ix|I32 saweval|U32 flags
2319 s       |OP*    |newDEFSVOP
2320 s       |OP*    |new_logop      |I32 type|I32 flags|OP **firstp|OP **otherp
2321 s       |void   |simplify_sort  |OP *o
2322 s       |bool   |is_handle_constructor  |OP *o|I32 argnum
2323 s       |char*  |gv_ename       |GV *gv
2324 #  if defined(DEBUG_CLOSURES)
2325 s       |void   |cv_dump        |CV *cv
2326 #  endif
2327 s       |CV*    |cv_clone2      |CV *proto|CV *outside
2328 s       |bool   |scalar_mod_type|OP *o|I32 type
2329 s       |OP *   |my_kid         |OP *o|OP *attrs
2330 s       |OP *   |dup_attrlist   |OP *o
2331 s       |void   |apply_attrs    |HV *stash|SV *target|OP *attrs
2332 #  if defined(PL_OP_SLAB_ALLOC)
2333 s       |void*  |Slab_Alloc     |int m|size_t sz
2334 #  endif
2335 #endif
2336
2337 #if defined(PERL_IN_PERL_C) || defined(PERL_DECL_PROT)
2338 s       |void   |find_beginning
2339 s       |void   |forbid_setid   |char *
2340 s       |void   |incpush        |char *|int|int
2341 s       |void   |init_interp
2342 s       |void   |init_ids
2343 s       |void   |init_lexer
2344 s       |void   |init_main_stash
2345 s       |void   |init_perllib
2346 s       |void   |init_postdump_symbols|int|char **|char **
2347 s       |void   |init_predump_symbols
2348 rs      |void   |my_exit_jump
2349 s       |void   |nuke_stacks
2350 s       |void   |open_script    |char *|bool|SV *|int *fd
2351 s       |void   |usage          |char *
2352 s       |void   |validate_suid  |char *|char*|int
2353 #  if defined(IAMSUID)
2354 s       |int    |fd_on_nosuid_fs|int fd
2355 #  endif
2356 s       |void*  |parse_body     |char **env|XSINIT_t xsinit
2357 s       |void*  |run_body       |I32 oldscope
2358 s       |void   |call_body      |OP *myop|int is_eval
2359 s       |void*  |call_list_body |CV *cv
2360 #if defined(PERL_FLEXIBLE_EXCEPTIONS)
2361 s       |void*  |vparse_body    |va_list args
2362 s       |void*  |vrun_body      |va_list args
2363 s       |void*  |vcall_body     |va_list args
2364 s       |void*  |vcall_list_body|va_list args
2365 #endif
2366 #  if defined(USE_THREADS)
2367 s       |struct perl_thread *   |init_main_thread
2368 #  endif
2369 #endif
2370
2371 #if defined(PERL_IN_PP_C) || defined(PERL_DECL_PROT)
2372 s       |SV*    |refto          |SV* sv
2373 s       |U32    |seed
2374 #endif
2375
2376 #if defined(PERL_IN_PP_PACK_C) || defined(PERL_DECL_PROT)
2377 s       |void   |doencodes      |SV* sv|char* s|I32 len
2378 s       |SV*    |mul128         |SV *sv|U8 m
2379 s       |SV*    |is_an_int      |char *s|STRLEN l
2380 s       |int    |div128         |SV *pnum|bool *done
2381 #endif
2382
2383 #if defined(PERL_IN_PP_CTL_C) || defined(PERL_DECL_PROT)
2384 s       |OP*    |docatch        |OP *o
2385 s       |void*  |docatch_body
2386 #if defined(PERL_FLEXIBLE_EXCEPTIONS)
2387 s       |void*  |vdocatch_body  |va_list args
2388 #endif
2389 s       |OP*    |dofindlabel    |OP *o|char *label|OP **opstack|OP **oplimit
2390 s       |void   |doparseform    |SV *sv
2391 s       |I32    |dopoptoeval    |I32 startingblock
2392 s       |I32    |dopoptolabel   |char *label
2393 s       |I32    |dopoptoloop    |I32 startingblock
2394 s       |I32    |dopoptosub     |I32 startingblock
2395 s       |I32    |dopoptosub_at  |PERL_CONTEXT* cxstk|I32 startingblock
2396 s       |void   |save_lines     |AV *array|SV *sv
2397 s       |OP*    |doeval         |int gimme|OP** startop
2398 s       |PerlIO *|doopen_pmc    |const char *name|const char *mode
2399 s       |void   |qsortsv        |SV ** array|size_t num_elts|SVCOMPARE_t f
2400 #endif
2401
2402 #if defined(PERL_IN_PP_HOT_C) || defined(PERL_DECL_PROT)
2403 s       |int    |do_maybe_phash |AV *ary|SV **lelem|SV **firstlelem \
2404                                 |SV **relem|SV **lastrelem
2405 s       |void   |do_oddball     |HV *hash|SV **relem|SV **firstrelem
2406 s       |CV*    |get_db_sub     |SV **svp|CV *cv
2407 s       |SV*    |method_common  |SV* meth|U32* hashp
2408 #endif
2409
2410 #if defined(PERL_IN_PP_SYS_C) || defined(PERL_DECL_PROT)
2411 s       |OP*    |doform         |CV *cv|GV *gv|OP *retop
2412 s       |int    |emulate_eaccess|const char* path|Mode_t mode
2413 #  if !defined(HAS_MKDIR) || !defined(HAS_RMDIR)
2414 s       |int    |dooneliner     |char *cmd|char *filename
2415 #  endif
2416 #endif
2417
2418 #if defined(PERL_IN_REGCOMP_C) || defined(PERL_DECL_PROT)
2419 s       |regnode*|reg           |struct RExC_state_t*|I32|I32 *
2420 s       |regnode*|reganode      |struct RExC_state_t*|U8|U32
2421 s       |regnode*|regatom       |struct RExC_state_t*|I32 *
2422 s       |regnode*|regbranch     |struct RExC_state_t*|I32 *|I32
2423 s       |void   |reguni         |struct RExC_state_t*|UV|char *|STRLEN*
2424 s       |regnode*|regclass      |struct RExC_state_t*
2425 s       |I32    |regcurly       |char *
2426 s       |regnode*|reg_node      |struct RExC_state_t*|U8
2427 s       |regnode*|regpiece      |struct RExC_state_t*|I32 *
2428 s       |void   |reginsert      |struct RExC_state_t*|U8|regnode *
2429 s       |void   |regoptail      |struct RExC_state_t*|regnode *|regnode *
2430 s       |void   |regtail        |struct RExC_state_t*|regnode *|regnode *
2431 s       |char*|regwhite |char *|char *
2432 s       |char*|nextchar |struct RExC_state_t*
2433 #  ifdef DEBUGGING
2434 s       |regnode*|dumpuntil     |regnode *start|regnode *node \
2435                                 |regnode *last|SV* sv|I32 l
2436 s       |void   |put_byte       |SV* sv|int c
2437 #  endif
2438 s       |void   |scan_commit    |struct RExC_state_t*|struct scan_data_t *data
2439 s       |void   |cl_anything    |struct RExC_state_t*|struct regnode_charclass_class *cl
2440 s       |int    |cl_is_anything |struct regnode_charclass_class *cl
2441 s       |void   |cl_init        |struct RExC_state_t*|struct regnode_charclass_class *cl
2442 s       |void   |cl_init_zero   |struct RExC_state_t*|struct regnode_charclass_class *cl
2443 s       |void   |cl_and         |struct regnode_charclass_class *cl \
2444                                 |struct regnode_charclass_class *and_with
2445 s       |void   |cl_or          |struct RExC_state_t*|struct regnode_charclass_class *cl \
2446                                 |struct regnode_charclass_class *or_with
2447 s       |I32    |study_chunk    |struct RExC_state_t*|regnode **scanp|I32 *deltap \
2448                                 |regnode *last|struct scan_data_t *data \
2449                                 |U32 flags
2450 s       |I32    |add_data       |struct RExC_state_t*|I32 n|char *s
2451 rs      |void|re_croak2 |const char* pat1|const char* pat2|...
2452 s       |I32    |regpposixcc    |struct RExC_state_t*|I32 value
2453 s       |void   |checkposixcc   |struct RExC_state_t*
2454 #endif
2455
2456 #if defined(PERL_IN_REGEXEC_C) || defined(PERL_DECL_PROT)
2457 s       |I32    |regmatch       |regnode *prog
2458 s       |I32    |regrepeat      |regnode *p|I32 max
2459 s       |I32    |regrepeat_hard |regnode *p|I32 max|I32 *lp
2460 s       |I32    |regtry         |regexp *prog|char *startpos
2461 s       |bool   |reginclass     |regnode *n|U8 *p|bool do_utf8sv_is_utf8
2462 s       |CHECKPOINT|regcppush   |I32 parenfloor
2463 s       |char*|regcppop
2464 s       |char*|regcp_set_to     |I32 ss
2465 s       |void   |cache_re       |regexp *prog
2466 s       |U8*    |reghop         |U8 *pos|I32 off
2467 s       |U8*    |reghop3        |U8 *pos|I32 off|U8 *lim
2468 s       |U8*    |reghopmaybe    |U8 *pos|I32 off
2469 s       |U8*    |reghopmaybe3   |U8 *pos|I32 off|U8 *lim
2470 s       |char*  |find_byclass   |regexp * prog|regnode *c|char *s|char *strend|char *startpos|I32 norun
2471 #endif
2472
2473 #if defined(PERL_IN_RUN_C) || defined(PERL_DECL_PROT)
2474 #   ifdef DEBUGGING
2475 s       |CV*    |deb_curcv      |I32 ix
2476 s       |void   |debprof        |OP *o
2477 #   endif
2478 #endif
2479
2480 #if defined(PERL_IN_SCOPE_C) || defined(PERL_DECL_PROT)
2481 s       |SV*    |save_scalar_at |SV **sptr
2482 #endif
2483
2484 #if defined(USE_ITHREADS) && (defined(PERL_IN_SHAREDSV_C) || defined(PERL_DECL_PROT))
2485 Adp    |void        |sharedsv_init
2486 Adp    |shared_sv*    |sharedsv_new
2487 Adp    |shared_sv*    |sharedsv_find        |SV* sv
2488 Adp    |void        |sharedsv_lock        |shared_sv* ssv
2489 Adp    |void        |sharedsv_unlock    |shared_sv* ssv
2490 p      |void        |sharedsv_unlock_scope    |shared_sv* ssv
2491 Adp    |void        |sharedsv_thrcnt_inc    |shared_sv* ssv
2492 Adp    |void        |sharedsv_thrcnt_dec    |shared_sv* ssv
2493 #endif
2494
2495 #if defined(PERL_IN_SV_C) || defined(PERL_DECL_PROT)
2496 s       |IV     |asIV           |SV* sv
2497 s       |UV     |asUV           |SV* sv
2498 s       |SV*    |more_sv
2499 s       |void   |more_xiv
2500 s       |void   |more_xnv
2501 s       |void   |more_xpv
2502 s       |void   |more_xpviv
2503 s       |void   |more_xpvnv
2504 s       |void   |more_xpvcv
2505 s       |void   |more_xpvav
2506 s       |void   |more_xpvhv
2507 s       |void   |more_xpvmg
2508 s       |void   |more_xpvlv
2509 s       |void   |more_xpvbm
2510 s       |void   |more_xrv
2511 s       |XPVIV* |new_xiv
2512 s       |XPVNV* |new_xnv
2513 s       |XPV*   |new_xpv
2514 s       |XPVIV* |new_xpviv
2515 s       |XPVNV* |new_xpvnv
2516 s       |XPVCV* |new_xpvcv
2517 s       |XPVAV* |new_xpvav
2518 s       |XPVHV* |new_xpvhv
2519 s       |XPVMG* |new_xpvmg
2520 s       |XPVLV* |new_xpvlv
2521 s       |XPVBM* |new_xpvbm
2522 s       |XRV*   |new_xrv
2523 s       |void   |del_xiv        |XPVIV* p
2524 s       |void   |del_xnv        |XPVNV* p
2525 s       |void   |del_xpv        |XPV* p
2526 s       |void   |del_xpviv      |XPVIV* p
2527 s       |void   |del_xpvnv      |XPVNV* p
2528 s       |void   |del_xpvcv      |XPVCV* p
2529 s       |void   |del_xpvav      |XPVAV* p
2530 s       |void   |del_xpvhv      |XPVHV* p
2531 s       |void   |del_xpvmg      |XPVMG* p
2532 s       |void   |del_xpvlv      |XPVLV* p
2533 s       |void   |del_xpvbm      |XPVBM* p
2534 s       |void   |del_xrv        |XRV* p
2535 s       |void   |sv_unglob      |SV* sv
2536 s       |void   |not_a_number   |SV *sv
2537 s       |I32    |visit          |SVFUNC_t f
2538 s       |void   |sv_add_backref |SV *tsv|SV *sv
2539 s       |void   |sv_del_backref |SV *sv
2540 #  ifdef DEBUGGING
2541 s       |void   |del_sv |SV *p
2542 #  endif
2543 #  if !defined(NV_PRESERVES_UV)
2544 s      |int    |sv_2iuv_non_preserve   |SV *sv|I32 numtype
2545 #  endif
2546 s       |I32    |expect_number  |char** pattern
2547 #
2548 #  if defined(USE_ITHREADS)
2549 s       |SV*    |gv_share       |SV *sv
2550 #  endif
2551 #endif
2552
2553 #if defined(PERL_IN_TOKE_C) || defined(PERL_DECL_PROT)
2554 s       |void   |check_uni
2555 s       |void   |force_next     |I32 type
2556 s       |char*  |force_version  |char *start
2557 s       |char*  |force_word     |char *start|int token|int check_keyword \
2558                                 |int allow_pack|int allow_tick
2559 s       |SV*    |tokeq          |SV *sv
2560 s       |int    |pending_ident
2561 s       |char*  |scan_const     |char *start
2562 s       |char*  |scan_formline  |char *s
2563 s       |char*  |scan_heredoc   |char *s
2564 s       |char*  |scan_ident     |char *s|char *send|char *dest \
2565                                 |STRLEN destlen|I32 ck_uni
2566 s       |char*  |scan_inputsymbol|char *start
2567 s       |char*  |scan_pat       |char *start|I32 type
2568 s       |char*  |scan_str       |char *start|int keep_quoted|int keep_delims
2569 s       |char*  |scan_subst     |char *start
2570 s       |char*  |scan_trans     |char *start
2571 s       |char*  |scan_word      |char *s|char *dest|STRLEN destlen \
2572                                 |int allow_package|STRLEN *slp
2573 s       |char*  |skipspace      |char *s
2574 s       |char*  |swallow_bom    |U8 *s
2575 s       |void   |checkcomma     |char *s|char *name|char *what
2576 s       |void   |force_ident    |char *s|int kind
2577 s       |void   |incline        |char *s
2578 s       |int    |intuit_method  |char *s|GV *gv
2579 s       |int    |intuit_more    |char *s
2580 s       |I32    |lop            |I32 f|int x|char *s
2581 s       |void   |missingterm    |char *s
2582 s       |void   |no_op          |char *what|char *s
2583 s       |void   |set_csh
2584 s       |I32    |sublex_done
2585 s       |I32    |sublex_push
2586 s       |I32    |sublex_start
2587 s       |char * |filter_gets    |SV *sv|PerlIO *fp|STRLEN append
2588 s       |HV *   |find_in_my_stash|char *pkgname|I32 len
2589 s       |SV*    |new_constant   |char *s|STRLEN len|const char *key|SV *sv \
2590                                 |SV *pv|const char *type
2591 #  if defined(DEBUGGING)
2592 s       |void   |tokereport     |char *thing|char *s|I32 rv
2593 #  endif
2594 s       |int    |ao             |int toketype
2595 s       |void   |depcom
2596 s       |char*  |incl_perldb
2597 #if 0
2598 s       |I32    |utf16_textfilter|int idx|SV *sv|int maxlen
2599 s       |I32    |utf16rev_textfilter|int idx|SV *sv|int maxlen
2600 #endif
2601 #  if defined(CRIPPLED_CC)
2602 s       |int    |uni            |I32 f|char *s
2603 #  endif
2604 #  if defined(PERL_CR_FILTER)
2605 s       |I32    |cr_textfilter  |int idx|SV *sv|int maxlen
2606 #  endif
2607 #endif
2608
2609 #if defined(PERL_IN_UNIVERSAL_C) || defined(PERL_DECL_PROT)
2610 s       |SV*|isa_lookup |HV *stash|const char *name|int len|int level
2611 #endif
2612
2613 #if defined(PERL_IN_LOCALE_C) || defined(PERL_DECL_PROT)
2614 s       |char*  |stdize_locale  |char* locs
2615 #endif
2616
2617 #if defined(PERL_IN_UTIL_C) || defined(PERL_DECL_PROT)
2618 s       |COP*   |closest_cop    |COP *cop|OP *o
2619 s       |SV*    |mess_alloc
2620 #  if defined(LEAKTEST)
2621 s       |void   |xstat          |int
2622 #  endif
2623 #endif
2624
2625 #if defined(PERL_OBJECT)
2626 };
2627 #endif
2628
2629 START_EXTERN_C
2630
2631 Apd     |void   |sv_setsv_flags |SV* dsv|SV* ssv|I32 flags
2632 Apd     |void   |sv_catpvn_flags|SV* sv|const char* ptr|STRLEN len|I32 flags
2633 Apd     |void   |sv_catsv_flags |SV* dsv|SV* ssv|I32 flags
2634 Apd     |STRLEN |sv_utf8_upgrade_flags|SV *sv|I32 flags
2635 Apd     |char*  |sv_pvn_force_flags|SV* sv|STRLEN* lp|I32 flags
2636 Apd     |char*  |sv_2pv_flags   |SV* sv|STRLEN* lp|I32 flags
2637 Ap      |char*  |my_atof2       |const char *s|NV* value
2638
2639 END_EXTERN_C
2640