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    |void   |sortsv         |SV ** array|size_t num_elts|SVCOMPARE_t f
1476 Apd     |int    |mg_clear       |SV* sv
1477 Apd     |int    |mg_copy        |SV* sv|SV* nsv|const char* key|I32 klen
1478 Apd     |MAGIC* |mg_find        |SV* sv|int type
1479 Apd     |int    |mg_free        |SV* sv
1480 Apd     |int    |mg_get         |SV* sv
1481 Apd     |U32    |mg_length      |SV* sv
1482 Apd     |void   |mg_magical     |SV* sv
1483 Apd     |int    |mg_set         |SV* sv
1484 Ap      |I32    |mg_size        |SV* sv
1485 Ap      |void   |mini_mktime    |struct tm *pm
1486 p       |OP*    |mod            |OP* o|I32 type
1487 p       |int    |mode_from_discipline|SV* discp
1488 Ap      |char*  |moreswitches   |char* s
1489 p       |OP*    |my             |OP* o
1490 Ap      |NV     |my_atof        |const char *s
1491 #if (!defined(HAS_MEMCPY) && !defined(HAS_BCOPY)) || (!defined(HAS_MEMMOVE) && !defined(HAS_SAFE_MEMCPY) && !defined(HAS_SAFE_BCOPY))
1492 Anp     |char*  |my_bcopy       |const char* from|char* to|I32 len
1493 #endif
1494 #if !defined(HAS_BZERO) && !defined(HAS_MEMSET)
1495 Anp     |char*  |my_bzero       |char* loc|I32 len
1496 #endif
1497 Apr     |void   |my_exit        |U32 status
1498 Apr     |void   |my_failure_exit
1499 Ap      |I32    |my_fflush_all
1500 Anp     |Pid_t  |my_fork
1501 Anp     |void   |atfork_lock
1502 Anp     |void   |atfork_unlock
1503 Ap      |I32    |my_lstat
1504 #if !defined(HAS_MEMCMP) || !defined(HAS_SANE_MEMCMP)
1505 Anp     |I32    |my_memcmp      |const char* s1|const char* s2|I32 len
1506 #endif
1507 #if !defined(HAS_MEMSET)
1508 Anp     |void*  |my_memset      |char* loc|I32 ch|I32 len
1509 #endif
1510 Ap      |I32    |my_pclose      |PerlIO* ptr
1511 Ap      |PerlIO*|my_popen       |char* cmd|char* mode
1512 Ap      |PerlIO*|my_popen_list  |char* mode|int n|SV ** args
1513 Ap      |void   |my_setenv      |char* nam|char* val
1514 Ap      |I32    |my_stat
1515 Ap      |char * |my_strftime    |char *fmt|int sec|int min|int hour|int mday|int mon|int year|int wday|int yday|int isdst
1516 #if defined(MYSWAP)
1517 Ap      |short  |my_swap        |short s
1518 Ap      |long   |my_htonl       |long l
1519 Ap      |long   |my_ntohl       |long l
1520 #endif
1521 p       |void   |my_unexec
1522 Ap      |OP*    |newANONLIST    |OP* o
1523 Ap      |OP*    |newANONHASH    |OP* o
1524 Ap      |OP*    |newANONSUB     |I32 floor|OP* proto|OP* block
1525 Ap      |OP*    |newASSIGNOP    |I32 flags|OP* left|I32 optype|OP* right
1526 Ap      |OP*    |newCONDOP      |I32 flags|OP* expr|OP* trueop|OP* falseop
1527 Apd     |CV*    |newCONSTSUB    |HV* stash|char* name|SV* sv
1528 Ap      |void   |newFORM        |I32 floor|OP* o|OP* block
1529 Ap      |OP*    |newFOROP       |I32 flags|char* label|line_t forline \
1530                                 |OP* sclr|OP* expr|OP*block|OP*cont
1531 Ap      |OP*    |newLOGOP       |I32 optype|I32 flags|OP* left|OP* right
1532 Ap      |OP*    |newLOOPEX      |I32 type|OP* label
1533 Ap      |OP*    |newLOOPOP      |I32 flags|I32 debuggable|OP* expr|OP* block
1534 Ap      |OP*    |newNULLLIST
1535 Ap      |OP*    |newOP          |I32 optype|I32 flags
1536 Ap      |void   |newPROG        |OP* o
1537 Ap      |OP*    |newRANGE       |I32 flags|OP* left|OP* right
1538 Ap      |OP*    |newSLICEOP     |I32 flags|OP* subscript|OP* listop
1539 Ap      |OP*    |newSTATEOP     |I32 flags|char* label|OP* o
1540 Ap      |CV*    |newSUB         |I32 floor|OP* o|OP* proto|OP* block
1541 Apd     |CV*    |newXS          |char* name|XSUBADDR_t f|char* filename
1542 Apd     |AV*    |newAV
1543 Ap      |OP*    |newAVREF       |OP* o
1544 Ap      |OP*    |newBINOP       |I32 type|I32 flags|OP* first|OP* last
1545 Ap      |OP*    |newCVREF       |I32 flags|OP* o
1546 Ap      |OP*    |newGVOP        |I32 type|I32 flags|GV* gv
1547 Ap      |GV*    |newGVgen       |char* pack
1548 Ap      |OP*    |newGVREF       |I32 type|OP* o
1549 Ap      |OP*    |newHVREF       |OP* o
1550 Apd     |HV*    |newHV
1551 Ap      |HV*    |newHVhv        |HV* hv
1552 Ap      |IO*    |newIO
1553 Ap      |OP*    |newLISTOP      |I32 type|I32 flags|OP* first|OP* last
1554 Ap      |OP*    |newPADOP       |I32 type|I32 flags|SV* sv
1555 Ap      |OP*    |newPMOP        |I32 type|I32 flags
1556 Ap      |OP*    |newPVOP        |I32 type|I32 flags|char* pv
1557 Ap      |SV*    |newRV          |SV* pref
1558 Apd     |SV*    |newRV_noinc    |SV *sv
1559 Apd     |SV*    |newSV          |STRLEN len
1560 Ap      |OP*    |newSVREF       |OP* o
1561 Ap      |OP*    |newSVOP        |I32 type|I32 flags|SV* sv
1562 Apd     |SV*    |newSViv        |IV i
1563 Apd     |SV*    |newSVuv        |UV u
1564 Apd     |SV*    |newSVnv        |NV n
1565 Apd     |SV*    |newSVpv        |const char* s|STRLEN len
1566 Apd     |SV*    |newSVpvn       |const char* s|STRLEN len
1567 Apd     |SV*    |newSVpvn_share |const char* s|I32 len|U32 hash
1568 Afpd    |SV*    |newSVpvf       |const char* pat|...
1569 Ap      |SV*    |vnewSVpvf      |const char* pat|va_list* args
1570 Apd     |SV*    |newSVrv        |SV* rv|const char* classname
1571 Apd     |SV*    |newSVsv        |SV* old
1572 Ap      |OP*    |newUNOP        |I32 type|I32 flags|OP* first
1573 Ap      |OP*    |newWHILEOP     |I32 flags|I32 debuggable|LOOP* loop \
1574                                 |I32 whileline|OP* expr|OP* block|OP* cont
1575
1576 Ap      |PERL_SI*|new_stackinfo|I32 stitems|I32 cxitems
1577 p       |PerlIO*|nextargv       |GV* gv
1578 Ap      |char*  |ninstr         |const char* big|const char* bigend \
1579                                 |const char* little|const char* lend
1580 p       |OP*    |oopsCV         |OP* o
1581 Ap      |void   |op_free        |OP* arg
1582 p       |void   |package        |OP* o
1583 p       |PADOFFSET|pad_alloc    |I32 optype|U32 tmptype
1584 p       |PADOFFSET|pad_allocmy  |char* name
1585 p       |PADOFFSET|pad_findmy   |char* name
1586 p       |OP*    |oopsAV         |OP* o
1587 p       |OP*    |oopsHV         |OP* o
1588 p       |void   |pad_leavemy    |I32 fill
1589 Ap      |SV*    |pad_sv         |PADOFFSET po
1590 p       |void   |pad_free       |PADOFFSET po
1591 p       |void   |pad_reset
1592 p       |void   |pad_swipe      |PADOFFSET po
1593 p       |void   |peep           |OP* o
1594 dopM    |PerlIO*|start_glob     |SV* pattern|IO *io
1595 #if defined(USE_5005THREADS)
1596 Ap      |struct perl_thread*    |new_struct_thread|struct perl_thread *t
1597 #endif
1598 Ap      |void   |call_atexit    |ATEXIT_t fn|void *ptr
1599 Apd     |I32    |call_argv      |const char* sub_name|I32 flags|char** argv
1600 Apd     |I32    |call_method    |const char* methname|I32 flags
1601 Apd     |I32    |call_pv        |const char* sub_name|I32 flags
1602 Apd     |I32    |call_sv        |SV* sv|I32 flags
1603 p       |void   |despatch_signals
1604 Apd     |SV*    |eval_pv        |const char* p|I32 croak_on_error
1605 Apd     |I32    |eval_sv        |SV* sv|I32 flags
1606 Apd     |SV*    |get_sv         |const char* name|I32 create
1607 Apd     |AV*    |get_av         |const char* name|I32 create
1608 Apd     |HV*    |get_hv         |const char* name|I32 create
1609 Apd     |CV*    |get_cv         |const char* name|I32 create
1610 Ap      |int    |init_i18nl10n  |int printwarn
1611 Ap      |int    |init_i18nl14n  |int printwarn
1612 Ap      |void   |new_collate    |char* newcoll
1613 Ap      |void   |new_ctype      |char* newctype
1614 Ap      |void   |new_numeric    |char* newcoll
1615 Ap      |void   |set_numeric_local
1616 Ap      |void   |set_numeric_radix
1617 Ap      |void   |set_numeric_standard
1618 Apd     |void   |require_pv     |const char* pv
1619 p       |void   |pidgone        |Pid_t pid|int status
1620 Ap      |void   |pmflag         |U16* pmfl|int ch
1621 p       |OP*    |pmruntime      |OP* pm|OP* expr|OP* repl
1622 p       |OP*    |pmtrans        |OP* o|OP* expr|OP* repl
1623 p       |OP*    |pop_return
1624 Ap      |void   |pop_scope
1625 p       |OP*    |prepend_elem   |I32 optype|OP* head|OP* tail
1626 p       |void   |push_return    |OP* o
1627 Ap      |void   |push_scope
1628 p       |OP*    |ref            |OP* o|I32 type
1629 p       |OP*    |refkids        |OP* o|I32 type
1630 Ap      |void   |regdump        |regexp* r
1631 Ap      |SV*    |regclass_swash |struct regnode *n|bool doinit|SV **initsvp
1632 Ap      |I32    |pregexec       |regexp* prog|char* stringarg \
1633                                 |char* strend|char* strbeg|I32 minend \
1634                                 |SV* screamer|U32 nosave
1635 Ap      |void   |pregfree       |struct regexp* r
1636 Ap      |regexp*|pregcomp       |char* exp|char* xend|PMOP* pm
1637 Ap      |char*  |re_intuit_start|regexp* prog|SV* sv|char* strpos \
1638                                 |char* strend|U32 flags \
1639                                 |struct re_scream_pos_data_s *data
1640 Ap      |SV*    |re_intuit_string|regexp* prog
1641 Ap      |I32    |regexec_flags  |regexp* prog|char* stringarg \
1642                                 |char* strend|char* strbeg|I32 minend \
1643                                 |SV* screamer|void* data|U32 flags
1644 Ap      |regnode*|regnext       |regnode* p
1645 p       |void   |regprop        |SV* sv|regnode* o
1646 Ap      |void   |repeatcpy      |char* to|const char* from|I32 len|I32 count
1647 Ap      |char*  |rninstr        |const char* big|const char* bigend \
1648                                 |const char* little|const char* lend
1649 Ap      |Sighandler_t|rsignal   |int i|Sighandler_t t
1650 p       |int    |rsignal_restore|int i|Sigsave_t* t
1651 p       |int    |rsignal_save   |int i|Sighandler_t t1|Sigsave_t* t2
1652 Ap      |Sighandler_t|rsignal_state|int i
1653 p       |void   |rxres_free     |void** rsp
1654 p       |void   |rxres_restore  |void** rsp|REGEXP* prx
1655 p       |void   |rxres_save     |void** rsp|REGEXP* prx
1656 #if !defined(HAS_RENAME)
1657 p       |I32    |same_dirent    |char* a|char* b
1658 #endif
1659 Apd     |char*  |savepv         |const char* sv
1660 Apd     |char*  |savepvn        |const char* sv|I32 len
1661 Ap      |void   |savestack_grow
1662 Ap      |void   |save_aelem     |AV* av|I32 idx|SV **sptr
1663 Ap      |I32    |save_alloc     |I32 size|I32 pad
1664 Ap      |void   |save_aptr      |AV** aptr
1665 Ap      |AV*    |save_ary       |GV* gv
1666 Ap      |void   |save_clearsv   |SV** svp
1667 Ap      |void   |save_delete    |HV* hv|char* key|I32 klen
1668 Ap      |void   |save_destructor|DESTRUCTORFUNC_NOCONTEXT_t f|void* p
1669 Ap      |void   |save_destructor_x|DESTRUCTORFUNC_t f|void* p
1670 Ap      |void   |save_freesv    |SV* sv
1671 p       |void   |save_freeop    |OP* o
1672 Ap      |void   |save_freepv    |char* pv
1673 Ap      |void   |save_generic_svref|SV** sptr
1674 Ap      |void   |save_generic_pvref|char** str
1675 Ap      |void   |save_gp        |GV* gv|I32 empty
1676 Ap      |HV*    |save_hash      |GV* gv
1677 Ap      |void   |save_helem     |HV* hv|SV *key|SV **sptr
1678 Ap      |void   |save_hints
1679 Ap      |void   |save_hptr      |HV** hptr
1680 Ap      |void   |save_I16       |I16* intp
1681 Ap      |void   |save_I32       |I32* intp
1682 Ap      |void   |save_I8        |I8* bytep
1683 Ap      |void   |save_int       |int* intp
1684 Ap      |void   |save_item      |SV* item
1685 Ap      |void   |save_iv        |IV* iv
1686 Ap      |void   |save_list      |SV** sarg|I32 maxsarg
1687 Ap      |void   |save_long      |long* longp
1688 Ap      |void   |save_mortalizesv|SV* sv
1689 Ap      |void   |save_nogv      |GV* gv
1690 p       |void   |save_op
1691 Ap      |SV*    |save_scalar    |GV* gv
1692 Ap      |void   |save_pptr      |char** pptr
1693 Ap      |void   |save_vptr      |void* pptr
1694 Ap      |void   |save_re_context
1695 Ap      |void   |save_padsv     |PADOFFSET off
1696 Ap      |void   |save_sptr      |SV** sptr
1697 Ap      |SV*    |save_svref     |SV** sptr
1698 Ap      |SV**   |save_threadsv  |PADOFFSET i
1699 p       |OP*    |sawparens      |OP* o
1700 p       |OP*    |scalar         |OP* o
1701 p       |OP*    |scalarkids     |OP* o
1702 p       |OP*    |scalarseq      |OP* o
1703 p       |OP*    |scalarvoid     |OP* o
1704 Apd     |NV     |scan_bin       |char* start|STRLEN len|STRLEN* retlen
1705 Apd     |NV     |scan_hex       |char* start|STRLEN len|STRLEN* retlen
1706 Ap      |char*  |scan_num       |char* s|YYSTYPE *lvalp
1707 Apd     |NV     |scan_oct       |char* start|STRLEN len|STRLEN* retlen
1708 p       |OP*    |scope          |OP* o
1709 Ap      |char*  |screaminstr    |SV* bigsv|SV* littlesv|I32 start_shift \
1710                                 |I32 end_shift|I32 *state|I32 last
1711 #if !defined(VMS)
1712 p       |I32    |setenv_getix   |char* nam
1713 #endif
1714 p       |void   |setdefout      |GV* gv
1715 Ap      |char*  |sharepvn       |const char* sv|I32 len|U32 hash
1716 p       |HEK*   |share_hek      |const char* sv|I32 len|U32 hash
1717 np      |Signal_t |sighandler   |int sig
1718 Ap      |SV**   |stack_grow     |SV** sp|SV**p|int n
1719 Ap      |I32    |start_subparse |I32 is_format|U32 flags
1720 p       |void   |sub_crush_depth|CV* cv
1721 Apd     |bool   |sv_2bool       |SV* sv
1722 Apd     |CV*    |sv_2cv         |SV* sv|HV** st|GV** gvp|I32 lref
1723 Apd     |IO*    |sv_2io         |SV* sv
1724 Apd     |IV     |sv_2iv         |SV* sv
1725 Apd     |SV*    |sv_2mortal     |SV* sv
1726 Apd     |NV     |sv_2nv         |SV* sv
1727 ACp     |char*  |sv_2pv         |SV* sv|STRLEN* lp
1728 Apd     |char*  |sv_2pvutf8     |SV* sv|STRLEN* lp
1729 Apd     |char*  |sv_2pvbyte     |SV* sv|STRLEN* lp
1730 ACp     |char*  |sv_pvn_nomg    |SV* sv|STRLEN* lp
1731 Apd     |UV     |sv_2uv         |SV* sv
1732 Apd     |IV     |sv_iv          |SV* sv
1733 Apd     |UV     |sv_uv          |SV* sv
1734 Apd     |NV     |sv_nv          |SV* sv
1735 Apd     |char*  |sv_pvn         |SV *sv|STRLEN *len
1736 Apd     |char*  |sv_pvutf8n     |SV *sv|STRLEN *len
1737 Apd     |char*  |sv_pvbyten     |SV *sv|STRLEN *len
1738 Apd     |I32    |sv_true        |SV *sv
1739 pd      |void   |sv_add_arena   |char* ptr|U32 size|U32 flags
1740 Apd     |int    |sv_backoff     |SV* sv
1741 Apd     |SV*    |sv_bless       |SV* sv|HV* stash
1742 Afpd    |void   |sv_catpvf      |SV* sv|const char* pat|...
1743 Ap      |void   |sv_vcatpvf     |SV* sv|const char* pat|va_list* args
1744 Apd     |void   |sv_catpv       |SV* sv|const char* ptr
1745 ACpd    |void   |sv_catpvn      |SV* sv|const char* ptr|STRLEN len
1746 ACpd    |void   |sv_catsv       |SV* dsv|SV* ssv
1747 Apd     |void   |sv_chop        |SV* sv|char* ptr
1748 pd      |I32    |sv_clean_all
1749 pd      |void   |sv_clean_objs
1750 Apd     |void   |sv_clear       |SV* sv
1751 Apd     |I32    |sv_cmp         |SV* sv1|SV* sv2
1752 Apd     |I32    |sv_cmp_locale  |SV* sv1|SV* sv2
1753 #if defined(USE_LOCALE_COLLATE)
1754 Apd     |char*  |sv_collxfrm    |SV* sv|STRLEN* nxp
1755 #endif
1756 Ap      |OP*    |sv_compile_2op |SV* sv|OP** startp|char* code|AV** avp
1757 Apd     |int    |getcwd_sv      |SV* sv
1758 Apd     |void   |sv_dec         |SV* sv
1759 Ap      |void   |sv_dump        |SV* sv
1760 Apd     |bool   |sv_derived_from|SV* sv|const char* name
1761 Apd     |I32    |sv_eq          |SV* sv1|SV* sv2
1762 Apd     |void   |sv_free        |SV* sv
1763 pd      |void   |sv_free_arenas
1764 Apd     |char*  |sv_gets        |SV* sv|PerlIO* fp|I32 append
1765 Apd     |char*  |sv_grow        |SV* sv|STRLEN newlen
1766 Apd     |void   |sv_inc         |SV* sv
1767 Apd     |void   |sv_insert      |SV* bigsv|STRLEN offset|STRLEN len \
1768                                 |char* little|STRLEN littlelen
1769 Apd     |int    |sv_isa         |SV* sv|const char* name
1770 Apd     |int    |sv_isobject    |SV* sv
1771 Apd     |STRLEN |sv_len         |SV* sv
1772 Apd     |STRLEN |sv_len_utf8    |SV* sv
1773 Apd     |void   |sv_magic       |SV* sv|SV* obj|int how|const char* name \
1774                                 |I32 namlen
1775 Apd     |SV*    |sv_mortalcopy  |SV* oldsv
1776 Apd     |SV*    |sv_newmortal
1777 Apd     |SV*    |sv_newref      |SV* sv
1778 Ap      |char*  |sv_peek        |SV* sv
1779 Apd     |void   |sv_pos_u2b     |SV* sv|I32* offsetp|I32* lenp
1780 Apd     |void   |sv_pos_b2u     |SV* sv|I32* offsetp
1781 ACpd    |char*  |sv_pvn_force   |SV* sv|STRLEN* lp
1782 Apd     |char*  |sv_pvutf8n_force|SV* sv|STRLEN* lp
1783 Apd     |char*  |sv_pvbyten_force|SV* sv|STRLEN* lp
1784 Apd     |char*  |sv_reftype     |SV* sv|int ob
1785 Apd     |void   |sv_replace     |SV* sv|SV* nsv
1786 Apd     |void   |sv_report_used
1787 Apd     |void   |sv_reset       |char* s|HV* stash
1788 Afpd    |void   |sv_setpvf      |SV* sv|const char* pat|...
1789 Ap      |void   |sv_vsetpvf     |SV* sv|const char* pat|va_list* args
1790 Apd     |void   |sv_setiv       |SV* sv|IV num
1791 Apd     |void   |sv_setpviv     |SV* sv|IV num
1792 Apd     |void   |sv_setuv       |SV* sv|UV num
1793 Apd     |void   |sv_setnv       |SV* sv|NV num
1794 Apd     |SV*    |sv_setref_iv   |SV* rv|const char* classname|IV iv
1795 Apd     |SV*    |sv_setref_uv   |SV* rv|const char* classname|UV uv
1796 Apd     |SV*    |sv_setref_nv   |SV* rv|const char* classname|NV nv
1797 Apd     |SV*    |sv_setref_pv   |SV* rv|const char* classname|void* pv
1798 Apd     |SV*    |sv_setref_pvn  |SV* rv|const char* classname|char* pv \
1799                                 |STRLEN n
1800 Apd     |void   |sv_setpv       |SV* sv|const char* ptr
1801 Apd     |void   |sv_setpvn      |SV* sv|const char* ptr|STRLEN len
1802 ACpd    |void   |sv_setsv       |SV* dsv|SV* ssv
1803 Apd     |void   |sv_taint       |SV* sv
1804 Apd     |bool   |sv_tainted     |SV* sv
1805 Apd     |int    |sv_unmagic     |SV* sv|int type
1806 Apd     |void   |sv_unref       |SV* sv
1807 Apd     |void   |sv_unref_flags |SV* sv|U32 flags
1808 Apd     |void   |sv_untaint     |SV* sv
1809 Apd     |bool   |sv_upgrade     |SV* sv|U32 mt
1810 Apd     |void   |sv_usepvn      |SV* sv|char* ptr|STRLEN len
1811 Apd     |void   |sv_vcatpvfn    |SV* sv|const char* pat|STRLEN patlen \
1812                                 |va_list* args|SV** svargs|I32 svmax \
1813                                 |bool *maybe_tainted
1814 Apd     |void   |sv_vsetpvfn    |SV* sv|const char* pat|STRLEN patlen \
1815                                 |va_list* args|SV** svargs|I32 svmax \
1816                                 |bool *maybe_tainted
1817 Ap      |NV     |str_to_version |SV *sv
1818 Ap      |SV*    |swash_init     |char* pkg|char* name|SV* listsv \
1819                                 |I32 minbits|I32 none
1820 Ap      |UV     |swash_fetch    |SV *sv|U8 *ptr|bool do_utf8
1821 Ap      |void   |taint_env
1822 Ap      |void   |taint_proper   |const char* f|const char* s
1823 Ap      |UV     |to_utf8_lower  |U8 *p
1824 Ap      |UV     |to_utf8_upper  |U8 *p
1825 Ap      |UV     |to_utf8_title  |U8 *p
1826 #if defined(UNLINK_ALL_VERSIONS)
1827 Ap      |I32    |unlnk          |char* f
1828 #endif
1829 #if defined(USE_5005THREADS)
1830 Ap      |void   |unlock_condpair|void* svv
1831 #endif
1832 Ap      |void   |unsharepvn     |const char* sv|I32 len|U32 hash
1833 p       |void   |unshare_hek    |HEK* hek
1834 p       |void   |utilize        |int aver|I32 floor|OP* version|OP* id|OP* arg
1835 Ap      |U8*    |utf16_to_utf8  |U8* p|U8 *d|I32 bytelen|I32 *newlen
1836 Ap      |U8*    |utf16_to_utf8_reversed|U8* p|U8 *d|I32 bytelen|I32 *newlen
1837 Adp     |STRLEN |utf8_length    |U8* s|U8 *e
1838 Apd     |IV     |utf8_distance  |U8 *a|U8 *b
1839 Apd     |U8*    |utf8_hop       |U8 *s|I32 off
1840 ApMd    |U8*    |utf8_to_bytes  |U8 *s|STRLEN *len
1841 ApMd    |U8*    |bytes_from_utf8|U8 *s|STRLEN *len|bool *is_utf8
1842 ApMd    |U8*    |bytes_to_utf8  |U8 *s|STRLEN *len
1843 Apd     |UV     |utf8_to_uvchr  |U8 *s|STRLEN* retlen
1844 Apd     |UV     |utf8_to_uvuni  |U8 *s|STRLEN* retlen
1845 Adp     |UV     |utf8n_to_uvchr |U8 *s|STRLEN curlen|STRLEN* retlen|U32 flags
1846 Adp     |UV     |utf8n_to_uvuni |U8 *s|STRLEN curlen|STRLEN* retlen|U32 flags
1847 Apd     |U8*    |uvchr_to_utf8  |U8 *d|UV uv
1848 Apd     |U8*    |uvuni_to_utf8  |U8 *d|UV uv
1849 p       |void   |vivify_defelem |SV* sv
1850 p       |void   |vivify_ref     |SV* sv|U32 to_what
1851 p       |I32    |wait4pid       |Pid_t pid|int* statusp|int flags
1852 p       |void   |report_evil_fh |GV *gv|IO *io|I32 op
1853 pd      |void   |report_uninit
1854 Afpd    |void   |warn           |const char* pat|...
1855 Ap      |void   |vwarn          |const char* pat|va_list* args
1856 Afp     |void   |warner         |U32 err|const char* pat|...
1857 Ap      |void   |vwarner        |U32 err|const char* pat|va_list* args
1858 p       |void   |watch          |char** addr
1859 Ap      |I32    |whichsig       |char* sig
1860 p       |int    |yyerror        |char* s
1861 #ifdef USE_PURE_BISON
1862 p       |int    |yylex_r        |YYSTYPE *lvalp|int *lcharp
1863 #endif
1864 p       |int    |yylex
1865 p       |int    |yyparse
1866 p       |int    |yywarn         |char* s
1867 #if defined(MYMALLOC)
1868 Ap      |void   |dump_mstats    |char* s
1869 Ap      |int    |get_mstats     |perl_mstats_t *buf|int buflen|int level
1870 #endif
1871 Anp     |Malloc_t|safesysmalloc |MEM_SIZE nbytes
1872 Anp     |Malloc_t|safesyscalloc |MEM_SIZE elements|MEM_SIZE size
1873 Anp     |Malloc_t|safesysrealloc|Malloc_t where|MEM_SIZE nbytes
1874 Anp     |Free_t |safesysfree    |Malloc_t where
1875 #if defined(LEAKTEST)
1876 Anp     |Malloc_t|safexmalloc   |I32 x|MEM_SIZE size
1877 Anp     |Malloc_t|safexcalloc   |I32 x|MEM_SIZE elements|MEM_SIZE size
1878 Anp     |Malloc_t|safexrealloc  |Malloc_t where|MEM_SIZE size
1879 Anp     |void   |safexfree      |Malloc_t where
1880 #endif
1881 #if defined(PERL_GLOBAL_STRUCT)
1882 Ap      |struct perl_vars *|GetVars
1883 #endif
1884 Ap      |int    |runops_standard
1885 Ap      |int    |runops_debug
1886 #if defined(USE_5005THREADS)
1887 Ap      |SV*    |sv_lock        |SV *sv
1888 #endif
1889 Afpd    |void   |sv_catpvf_mg   |SV *sv|const char* pat|...
1890 Ap      |void   |sv_vcatpvf_mg  |SV* sv|const char* pat|va_list* args
1891 Apd     |void   |sv_catpv_mg    |SV *sv|const char *ptr
1892 Apd     |void   |sv_catpvn_mg   |SV *sv|const char *ptr|STRLEN len
1893 Apd     |void   |sv_catsv_mg    |SV *dstr|SV *sstr
1894 Afpd    |void   |sv_setpvf_mg   |SV *sv|const char* pat|...
1895 Ap      |void   |sv_vsetpvf_mg  |SV* sv|const char* pat|va_list* args
1896 Apd     |void   |sv_setiv_mg    |SV *sv|IV i
1897 Apd     |void   |sv_setpviv_mg  |SV *sv|IV iv
1898 Apd     |void   |sv_setuv_mg    |SV *sv|UV u
1899 Apd     |void   |sv_setnv_mg    |SV *sv|NV num
1900 Apd     |void   |sv_setpv_mg    |SV *sv|const char *ptr
1901 Apd     |void   |sv_setpvn_mg   |SV *sv|const char *ptr|STRLEN len
1902 Apd     |void   |sv_setsv_mg    |SV *dstr|SV *sstr
1903 Apd     |void   |sv_usepvn_mg   |SV *sv|char *ptr|STRLEN len
1904 Ap      |MGVTBL*|get_vtbl       |int vtbl_id
1905 p       |char*  |pv_display     |SV *dsv|char *pv|STRLEN cur|STRLEN len \
1906                                 |STRLEN pvlim
1907 p       |char*  |sv_uni_display |SV *dsv|SV *ssv|STRLEN pvlim
1908 Afp     |void   |dump_indent    |I32 level|PerlIO *file|const char* pat|...
1909 Ap      |void   |dump_vindent   |I32 level|PerlIO *file|const char* pat \
1910                                 |va_list *args
1911 Ap      |void   |do_gv_dump     |I32 level|PerlIO *file|char *name|GV *sv
1912 Ap      |void   |do_gvgv_dump   |I32 level|PerlIO *file|char *name|GV *sv
1913 Ap      |void   |do_hv_dump     |I32 level|PerlIO *file|char *name|HV *sv
1914 Ap      |void   |do_magic_dump  |I32 level|PerlIO *file|MAGIC *mg|I32 nest \
1915                                 |I32 maxnest|bool dumpops|STRLEN pvlim
1916 Ap      |void   |do_op_dump     |I32 level|PerlIO *file|OP *o
1917 Ap      |void   |do_pmop_dump   |I32 level|PerlIO *file|PMOP *pm
1918 Ap      |void   |do_sv_dump     |I32 level|PerlIO *file|SV *sv|I32 nest \
1919                                 |I32 maxnest|bool dumpops|STRLEN pvlim
1920 Ap      |void   |magic_dump     |MAGIC *mg
1921 #if defined(PERL_FLEXIBLE_EXCEPTIONS)
1922 Ap      |void*  |default_protect|volatile JMPENV *je|int *excpt \
1923                                 |protect_body_t body|...
1924 Ap      |void*  |vdefault_protect|volatile JMPENV *je|int *excpt \
1925                                 |protect_body_t body|va_list *args
1926 #endif
1927 Ap      |void   |reginitcolors
1928 Apd     |char*  |sv_2pv_nolen   |SV* sv
1929 Apd     |char*  |sv_2pvutf8_nolen|SV* sv
1930 Apd     |char*  |sv_2pvbyte_nolen|SV* sv
1931 Apd     |char*  |sv_pv          |SV *sv
1932 Apd     |char*  |sv_pvutf8      |SV *sv
1933 Apd     |char*  |sv_pvbyte      |SV *sv
1934 ACpd    |STRLEN |sv_utf8_upgrade|SV *sv
1935 ApdM    |bool   |sv_utf8_downgrade|SV *sv|bool fail_ok
1936 Apd     |void   |sv_utf8_encode |SV *sv
1937 ApdM    |bool   |sv_utf8_decode |SV *sv
1938 Apd     |void   |sv_force_normal|SV *sv
1939 Apd     |void   |sv_force_normal_flags|SV *sv|U32 flags
1940 Ap      |void   |tmps_grow      |I32 n
1941 Apd     |SV*    |sv_rvweaken    |SV *sv
1942 p       |int    |magic_killbackrefs|SV *sv|MAGIC *mg
1943 Ap      |OP*    |newANONATTRSUB |I32 floor|OP *proto|OP *attrs|OP *block
1944 Ap      |CV*    |newATTRSUB     |I32 floor|OP *o|OP *proto|OP *attrs|OP *block
1945 Ap      |void   |newMYSUB       |I32 floor|OP *o|OP *proto|OP *attrs|OP *block
1946 p       |OP *   |my_attrs       |OP *o|OP *attrs
1947 p       |void   |boot_core_xsutils
1948 #if defined(USE_ITHREADS)
1949 Ap      |PERL_CONTEXT*|cx_dup   |PERL_CONTEXT* cx|I32 ix|I32 max|clone_params* param
1950 Ap      |PERL_SI*|si_dup        |PERL_SI* si|clone_params* param
1951 Ap      |ANY*   |ss_dup         |PerlInterpreter* proto_perl|clone_params* param
1952 Ap      |void*  |any_dup        |void* v|PerlInterpreter* proto_perl
1953 Ap      |HE*    |he_dup         |HE* e|bool shared|clone_params* param
1954 Ap      |REGEXP*|re_dup         |REGEXP* r|clone_params* param
1955 Ap      |PerlIO*|fp_dup         |PerlIO* fp|char type
1956 Ap      |DIR*   |dirp_dup       |DIR* dp
1957 Ap      |GP*    |gp_dup         |GP* gp|clone_params* param
1958 Ap      |MAGIC* |mg_dup         |MAGIC* mg|clone_params* param
1959 Ap      |SV*    |sv_dup         |SV* sstr|clone_params* param
1960 #if defined(HAVE_INTERP_INTERN)
1961 Ap      |void   |sys_intern_dup |struct interp_intern* src \
1962                                 |struct interp_intern* dst
1963 #endif
1964 Ap      |PTR_TBL_t*|ptr_table_new
1965 Ap      |void*  |ptr_table_fetch|PTR_TBL_t *tbl|void *sv
1966 Ap      |void   |ptr_table_store|PTR_TBL_t *tbl|void *oldsv|void *newsv
1967 Ap      |void   |ptr_table_split|PTR_TBL_t *tbl
1968 Ap      |void   |ptr_table_clear|PTR_TBL_t *tbl
1969 Ap      |void   |ptr_table_free|PTR_TBL_t *tbl
1970 #endif
1971 #if defined(HAVE_INTERP_INTERN)
1972 Ap      |void   |sys_intern_clear
1973 Ap      |void   |sys_intern_init
1974 #endif
1975
1976 Ap |char * |custom_op_name|OP* op
1977 Ap |char * |custom_op_desc|OP* op
1978
1979
1980 END_EXTERN_C
1981
1982 #if defined(PERL_IN_AV_C) || defined(PERL_DECL_PROT)
1983 s       |I32    |avhv_index_sv  |SV* sv
1984 s       |I32    |avhv_index     |AV* av|SV* sv|U32 hash
1985 #endif
1986
1987 #if defined(PERL_IN_DOOP_C) || defined(PERL_DECL_PROT)
1988 s       |I32    |do_trans_simple        |SV *sv
1989 s       |I32    |do_trans_count         |SV *sv
1990 s       |I32    |do_trans_complex       |SV *sv
1991 s       |I32    |do_trans_simple_utf8   |SV *sv
1992 s       |I32    |do_trans_count_utf8    |SV *sv
1993 s       |I32    |do_trans_complex_utf8  |SV *sv
1994 #endif
1995
1996 #if defined(PERL_IN_GV_C) || defined(PERL_DECL_PROT)
1997 s       |void   |gv_init_sv     |GV *gv|I32 sv_type
1998 s       |void   |require_errno  |GV *gv
1999 #endif
2000
2001 #if defined(PERL_IN_HV_C) || defined(PERL_DECL_PROT)
2002 s       |void   |hsplit         |HV *hv
2003 s       |void   |hfreeentries   |HV *hv
2004 s       |void   |more_he
2005 s       |HE*    |new_he
2006 s       |void   |del_he         |HE *p
2007 s       |HEK*   |save_hek       |const char *str|I32 len|U32 hash
2008 s       |void   |hv_magic_check |HV *hv|bool *needs_copy|bool *needs_store
2009 #endif
2010
2011 #if defined(PERL_IN_MG_C) || defined(PERL_DECL_PROT)
2012 s       |void   |save_magic     |I32 mgs_ix|SV *sv
2013 s       |int    |magic_methpack |SV *sv|MAGIC *mg|char *meth
2014 s       |int    |magic_methcall |SV *sv|MAGIC *mg|char *meth|I32 f \
2015                                 |int n|SV *val
2016 #endif
2017
2018 #if defined(PERL_IN_OP_C) || defined(PERL_DECL_PROT)
2019 s       |I32    |list_assignment|OP *o
2020 s       |void   |bad_type       |I32 n|char *t|char *name|OP *kid
2021 s       |void   |cop_free       |COP *cop
2022 s       |OP*    |modkids        |OP *o|I32 type
2023 s       |void   |no_bareword_allowed|OP *o
2024 s       |OP*    |no_fh_allowed  |OP *o
2025 s       |OP*    |scalarboolean  |OP *o
2026 s       |OP*    |too_few_arguments|OP *o|char* name
2027 s       |OP*    |too_many_arguments|OP *o|char* name
2028 s       |PADOFFSET|pad_addlex   |SV* name
2029 s       |PADOFFSET|pad_findlex  |char* name|PADOFFSET newoff|U32 seq \
2030                                 |CV* startcv|I32 cx_ix|I32 saweval|U32 flags
2031 s       |OP*    |newDEFSVOP
2032 s       |OP*    |new_logop      |I32 type|I32 flags|OP **firstp|OP **otherp
2033 s       |void   |simplify_sort  |OP *o
2034 s       |bool   |is_handle_constructor  |OP *o|I32 argnum
2035 s       |char*  |gv_ename       |GV *gv
2036 #  if defined(DEBUG_CLOSURES)
2037 s       |void   |cv_dump        |CV *cv
2038 #  endif
2039 s       |CV*    |cv_clone2      |CV *proto|CV *outside
2040 s       |bool   |scalar_mod_type|OP *o|I32 type
2041 s       |OP *   |my_kid         |OP *o|OP *attrs
2042 s       |OP *   |dup_attrlist   |OP *o
2043 s       |void   |apply_attrs    |HV *stash|SV *target|OP *attrs
2044 #  if defined(PL_OP_SLAB_ALLOC)
2045 s       |void*  |Slab_Alloc     |int m|size_t sz
2046 #  endif
2047 #endif
2048
2049 #if defined(PERL_IN_PERL_C) || defined(PERL_DECL_PROT)
2050 s       |void   |find_beginning
2051 s       |void   |forbid_setid   |char *
2052 s       |void   |incpush        |char *|int|int
2053 s       |void   |init_interp
2054 s       |void   |init_ids
2055 s       |void   |init_lexer
2056 s       |void   |init_main_stash
2057 s       |void   |init_perllib
2058 s       |void   |init_postdump_symbols|int|char **|char **
2059 s       |void   |init_predump_symbols
2060 rs      |void   |my_exit_jump
2061 s       |void   |nuke_stacks
2062 s       |void   |open_script    |char *|bool|SV *|int *fd
2063 s       |void   |usage          |char *
2064 s       |void   |validate_suid  |char *|char*|int
2065 #  if defined(IAMSUID)
2066 s       |int    |fd_on_nosuid_fs|int fd
2067 #  endif
2068 s       |void*  |parse_body     |char **env|XSINIT_t xsinit
2069 s       |void*  |run_body       |I32 oldscope
2070 s       |void   |call_body      |OP *myop|int is_eval
2071 s       |void*  |call_list_body |CV *cv
2072 #if defined(PERL_FLEXIBLE_EXCEPTIONS)
2073 s       |void*  |vparse_body    |va_list args
2074 s       |void*  |vrun_body      |va_list args
2075 s       |void*  |vcall_body     |va_list args
2076 s       |void*  |vcall_list_body|va_list args
2077 #endif
2078 #  if defined(USE_5005THREADS)
2079 s       |struct perl_thread *   |init_main_thread
2080 #  endif
2081 #endif
2082
2083 #if defined(PERL_IN_PP_C) || defined(PERL_DECL_PROT)
2084 s       |SV*    |refto          |SV* sv
2085 s       |U32    |seed
2086 #endif
2087
2088 #if defined(PERL_IN_PP_PACK_C) || defined(PERL_DECL_PROT)
2089 s       |void   |doencodes      |SV* sv|char* s|I32 len
2090 s       |SV*    |mul128         |SV *sv|U8 m
2091 s       |SV*    |is_an_int      |char *s|STRLEN l
2092 s       |int    |div128         |SV *pnum|bool *done
2093 #endif
2094
2095 #if defined(PERL_IN_PP_CTL_C) || defined(PERL_DECL_PROT)
2096 s       |OP*    |docatch        |OP *o
2097 s       |void*  |docatch_body
2098 #if defined(PERL_FLEXIBLE_EXCEPTIONS)
2099 s       |void*  |vdocatch_body  |va_list args
2100 #endif
2101 s       |OP*    |dofindlabel    |OP *o|char *label|OP **opstack|OP **oplimit
2102 s       |void   |doparseform    |SV *sv
2103 s       |I32    |dopoptoeval    |I32 startingblock
2104 s       |I32    |dopoptolabel   |char *label
2105 s       |I32    |dopoptoloop    |I32 startingblock
2106 s       |I32    |dopoptosub     |I32 startingblock
2107 s       |I32    |dopoptosub_at  |PERL_CONTEXT* cxstk|I32 startingblock
2108 s       |void   |save_lines     |AV *array|SV *sv
2109 s       |OP*    |doeval         |int gimme|OP** startop
2110 s       |PerlIO *|doopen_pmc    |const char *name|const char *mode
2111 #endif
2112
2113 #if defined(PERL_IN_PP_HOT_C) || defined(PERL_DECL_PROT)
2114 s       |int    |do_maybe_phash |AV *ary|SV **lelem|SV **firstlelem \
2115                                 |SV **relem|SV **lastrelem
2116 s       |void   |do_oddball     |HV *hash|SV **relem|SV **firstrelem
2117 s       |CV*    |get_db_sub     |SV **svp|CV *cv
2118 s       |SV*    |method_common  |SV* meth|U32* hashp
2119 #endif
2120
2121 #if defined(PERL_IN_PP_SYS_C) || defined(PERL_DECL_PROT)
2122 s       |OP*    |doform         |CV *cv|GV *gv|OP *retop
2123 s       |int    |emulate_eaccess|const char* path|Mode_t mode
2124 #  if !defined(HAS_MKDIR) || !defined(HAS_RMDIR)
2125 s       |int    |dooneliner     |char *cmd|char *filename
2126 #  endif
2127 #endif
2128
2129 #if defined(PERL_IN_REGCOMP_C) || defined(PERL_DECL_PROT)
2130 s       |regnode*|reg           |struct RExC_state_t*|I32|I32 *
2131 s       |regnode*|reganode      |struct RExC_state_t*|U8|U32
2132 s       |regnode*|regatom       |struct RExC_state_t*|I32 *
2133 s       |regnode*|regbranch     |struct RExC_state_t*|I32 *|I32
2134 s       |void   |reguni         |struct RExC_state_t*|UV|char *|STRLEN*
2135 s       |regnode*|regclass      |struct RExC_state_t*
2136 s       |I32    |regcurly       |char *
2137 s       |regnode*|reg_node      |struct RExC_state_t*|U8
2138 s       |regnode*|regpiece      |struct RExC_state_t*|I32 *
2139 s       |void   |reginsert      |struct RExC_state_t*|U8|regnode *
2140 s       |void   |regoptail      |struct RExC_state_t*|regnode *|regnode *
2141 s       |void   |regtail        |struct RExC_state_t*|regnode *|regnode *
2142 s       |char*|regwhite |char *|char *
2143 s       |char*|nextchar |struct RExC_state_t*
2144 #  ifdef DEBUGGING
2145 s       |regnode*|dumpuntil     |regnode *start|regnode *node \
2146                                 |regnode *last|SV* sv|I32 l
2147 s       |void   |put_byte       |SV* sv|int c
2148 #  endif
2149 s       |void   |scan_commit    |struct RExC_state_t*|struct scan_data_t *data
2150 s       |void   |cl_anything    |struct RExC_state_t*|struct regnode_charclass_class *cl
2151 s       |int    |cl_is_anything |struct regnode_charclass_class *cl
2152 s       |void   |cl_init        |struct RExC_state_t*|struct regnode_charclass_class *cl
2153 s       |void   |cl_init_zero   |struct RExC_state_t*|struct regnode_charclass_class *cl
2154 s       |void   |cl_and         |struct regnode_charclass_class *cl \
2155                                 |struct regnode_charclass_class *and_with
2156 s       |void   |cl_or          |struct RExC_state_t*|struct regnode_charclass_class *cl \
2157                                 |struct regnode_charclass_class *or_with
2158 s       |I32    |study_chunk    |struct RExC_state_t*|regnode **scanp|I32 *deltap \
2159                                 |regnode *last|struct scan_data_t *data \
2160                                 |U32 flags
2161 s       |I32    |add_data       |struct RExC_state_t*|I32 n|char *s
2162 rs      |void|re_croak2 |const char* pat1|const char* pat2|...
2163 s       |I32    |regpposixcc    |struct RExC_state_t*|I32 value
2164 s       |void   |checkposixcc   |struct RExC_state_t*
2165 #endif
2166
2167 #if defined(PERL_IN_REGEXEC_C) || defined(PERL_DECL_PROT)
2168 s       |I32    |regmatch       |regnode *prog
2169 s       |I32    |regrepeat      |regnode *p|I32 max
2170 s       |I32    |regrepeat_hard |regnode *p|I32 max|I32 *lp
2171 s       |I32    |regtry         |regexp *prog|char *startpos
2172 s       |bool   |reginclass     |regnode *n|U8 *p|bool do_utf8sv_is_utf8
2173 s       |CHECKPOINT|regcppush   |I32 parenfloor
2174 s       |char*|regcppop
2175 s       |char*|regcp_set_to     |I32 ss
2176 s       |void   |cache_re       |regexp *prog
2177 s       |U8*    |reghop         |U8 *pos|I32 off
2178 s       |U8*    |reghop3        |U8 *pos|I32 off|U8 *lim
2179 s       |U8*    |reghopmaybe    |U8 *pos|I32 off
2180 s       |U8*    |reghopmaybe3   |U8 *pos|I32 off|U8 *lim
2181 s       |char*  |find_byclass   |regexp * prog|regnode *c|char *s|char *strend|char *startpos|I32 norun
2182 #endif
2183
2184 #if defined(PERL_IN_RUN_C) || defined(PERL_DECL_PROT)
2185 #   ifdef DEBUGGING
2186 s       |CV*    |deb_curcv      |I32 ix
2187 s       |void   |debprof        |OP *o
2188 #   endif
2189 #endif
2190
2191 #if defined(PERL_IN_SCOPE_C) || defined(PERL_DECL_PROT)
2192 s       |SV*    |save_scalar_at |SV **sptr
2193 #endif
2194
2195 #if defined(USE_ITHREADS)
2196 Adp    |void        |sharedsv_init
2197 Adp    |shared_sv*  |sharedsv_new
2198 Adp    |shared_sv*  |sharedsv_find          |SV* sv
2199 Adp    |void        |sharedsv_lock          |shared_sv* ssv
2200 Adp    |void        |sharedsv_unlock        |shared_sv* ssv
2201 p      |void        |sharedsv_unlock_scope  |shared_sv* ssv
2202 Adp    |void        |sharedsv_thrcnt_inc    |shared_sv* ssv
2203 Adp    |void        |sharedsv_thrcnt_dec    |shared_sv* ssv
2204 #endif
2205
2206 #if defined(PERL_IN_SV_C) || defined(PERL_DECL_PROT)
2207 s       |IV     |asIV           |SV* sv
2208 s       |UV     |asUV           |SV* sv
2209 s       |SV*    |more_sv
2210 s       |void   |more_xiv
2211 s       |void   |more_xnv
2212 s       |void   |more_xpv
2213 s       |void   |more_xpviv
2214 s       |void   |more_xpvnv
2215 s       |void   |more_xpvcv
2216 s       |void   |more_xpvav
2217 s       |void   |more_xpvhv
2218 s       |void   |more_xpvmg
2219 s       |void   |more_xpvlv
2220 s       |void   |more_xpvbm
2221 s       |void   |more_xrv
2222 s       |XPVIV* |new_xiv
2223 s       |XPVNV* |new_xnv
2224 s       |XPV*   |new_xpv
2225 s       |XPVIV* |new_xpviv
2226 s       |XPVNV* |new_xpvnv
2227 s       |XPVCV* |new_xpvcv
2228 s       |XPVAV* |new_xpvav
2229 s       |XPVHV* |new_xpvhv
2230 s       |XPVMG* |new_xpvmg
2231 s       |XPVLV* |new_xpvlv
2232 s       |XPVBM* |new_xpvbm
2233 s       |XRV*   |new_xrv
2234 s       |void   |del_xiv        |XPVIV* p
2235 s       |void   |del_xnv        |XPVNV* p
2236 s       |void   |del_xpv        |XPV* p
2237 s       |void   |del_xpviv      |XPVIV* p
2238 s       |void   |del_xpvnv      |XPVNV* p
2239 s       |void   |del_xpvcv      |XPVCV* p
2240 s       |void   |del_xpvav      |XPVAV* p
2241 s       |void   |del_xpvhv      |XPVHV* p
2242 s       |void   |del_xpvmg      |XPVMG* p
2243 s       |void   |del_xpvlv      |XPVLV* p
2244 s       |void   |del_xpvbm      |XPVBM* p
2245 s       |void   |del_xrv        |XRV* p
2246 s       |void   |sv_unglob      |SV* sv
2247 s       |void   |not_a_number   |SV *sv
2248 s       |I32    |visit          |SVFUNC_t f
2249 s       |void   |sv_add_backref |SV *tsv|SV *sv
2250 s       |void   |sv_del_backref |SV *sv
2251 #  ifdef DEBUGGING
2252 s       |void   |del_sv |SV *p
2253 #  endif
2254 #  if !defined(NV_PRESERVES_UV)
2255 s      |int    |sv_2iuv_non_preserve   |SV *sv|I32 numtype
2256 #  endif
2257 s       |I32    |expect_number  |char** pattern
2258 #
2259 #  if defined(USE_ITHREADS)
2260 s       |SV*    |gv_share       |SV *sv
2261 #  endif
2262 #endif
2263
2264 #if defined(PERL_IN_TOKE_C) || defined(PERL_DECL_PROT)
2265 s       |void   |check_uni
2266 s       |void   |force_next     |I32 type
2267 s       |char*  |force_version  |char *start|int guessing
2268 s       |char*  |force_word     |char *start|int token|int check_keyword \
2269                                 |int allow_pack|int allow_tick
2270 s       |SV*    |tokeq          |SV *sv
2271 s       |int    |pending_ident
2272 s       |char*  |scan_const     |char *start
2273 s       |char*  |scan_formline  |char *s
2274 s       |char*  |scan_heredoc   |char *s
2275 s       |char*  |scan_ident     |char *s|char *send|char *dest \
2276                                 |STRLEN destlen|I32 ck_uni
2277 s       |char*  |scan_inputsymbol|char *start
2278 s       |char*  |scan_pat       |char *start|I32 type
2279 s       |char*  |scan_str       |char *start|int keep_quoted|int keep_delims
2280 s       |char*  |scan_subst     |char *start
2281 s       |char*  |scan_trans     |char *start
2282 s       |char*  |scan_word      |char *s|char *dest|STRLEN destlen \
2283                                 |int allow_package|STRLEN *slp
2284 s       |char*  |skipspace      |char *s
2285 s       |char*  |swallow_bom    |U8 *s
2286 s       |void   |checkcomma     |char *s|char *name|char *what
2287 s       |void   |force_ident    |char *s|int kind
2288 s       |void   |incline        |char *s
2289 s       |int    |intuit_method  |char *s|GV *gv
2290 s       |int    |intuit_more    |char *s
2291 s       |I32    |lop            |I32 f|int x|char *s
2292 s       |void   |missingterm    |char *s
2293 s       |void   |no_op          |char *what|char *s
2294 s       |void   |set_csh
2295 s       |I32    |sublex_done
2296 s       |I32    |sublex_push
2297 s       |I32    |sublex_start
2298 s       |char * |filter_gets    |SV *sv|PerlIO *fp|STRLEN append
2299 s       |HV *   |find_in_my_stash|char *pkgname|I32 len
2300 s       |SV*    |new_constant   |char *s|STRLEN len|const char *key|SV *sv \
2301                                 |SV *pv|const char *type
2302 #  if defined(DEBUGGING)
2303 s       |void   |tokereport     |char *thing|char *s|I32 rv
2304 #  endif
2305 s       |int    |ao             |int toketype
2306 s       |void   |depcom
2307 s       |char*  |incl_perldb
2308 #if 0
2309 s       |I32    |utf16_textfilter|int idx|SV *sv|int maxlen
2310 s       |I32    |utf16rev_textfilter|int idx|SV *sv|int maxlen
2311 #endif
2312 #  if defined(CRIPPLED_CC)
2313 s       |int    |uni            |I32 f|char *s
2314 #  endif
2315 #  if defined(PERL_CR_FILTER)
2316 s       |I32    |cr_textfilter  |int idx|SV *sv|int maxlen
2317 #  endif
2318 #endif
2319
2320 #if defined(PERL_IN_UNIVERSAL_C) || defined(PERL_DECL_PROT)
2321 s       |SV*|isa_lookup |HV *stash|const char *name|int len|int level
2322 #endif
2323
2324 #if defined(PERL_IN_LOCALE_C) || defined(PERL_DECL_PROT)
2325 s       |char*  |stdize_locale  |char* locs
2326 #endif
2327
2328 #if defined(PERL_IN_UTIL_C) || defined(PERL_DECL_PROT)
2329 s       |COP*   |closest_cop    |COP *cop|OP *o
2330 s       |SV*    |mess_alloc
2331 #  if defined(LEAKTEST)
2332 s       |void   |xstat          |int
2333 #  endif
2334 #endif
2335
2336 START_EXTERN_C
2337
2338 Apd     |void   |sv_setsv_flags |SV* dsv|SV* ssv|I32 flags
2339 Apd     |void   |sv_catpvn_flags|SV* sv|const char* ptr|STRLEN len|I32 flags
2340 Apd     |void   |sv_catsv_flags |SV* dsv|SV* ssv|I32 flags
2341 Apd     |STRLEN |sv_utf8_upgrade_flags|SV *sv|I32 flags
2342 Apd     |char*  |sv_pvn_force_flags|SV* sv|STRLEN* lp|I32 flags
2343 Apd     |char*  |sv_2pv_flags   |SV* sv|STRLEN* lp|I32 flags
2344 Ap      |char*  |my_atof2       |const char *s|NV* value
2345
2346 END_EXTERN_C
2347