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