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