3 require 5.003; # keep this compatible, an old perl is all we may have before
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.
15 # walk table providing an array of components in each line to
16 # subroutine, printing the result
19 my $filename = shift || '-';
24 if (ref $filename) { # filehandle
29 open F, ">$filename" or die "Can't open $filename: $!";
32 print $F $leader if $leader;
33 seek DATA, $END, 0; # so we may restart
46 @args = split /\s*\|\s*/, $_;
48 my @outs = &{$function}(@args);
49 print $F @outs; # $function->(@args) is not 5.003
51 print $F $trailer if $trailer;
52 close $F unless ref $filename;
55 sub munge_c_files () {
58 warn "\@ARGV empty, nothing to do\n";
63 $functions->{$_[2]} = \@_ if $_[@_-1] =~ /\.\.\./;
68 # if (/^#\s*include\s+"perl.h"/) {
69 # my $file = uc $ARGV;
71 # print "#define PERL_IN_$file\n";
77 # if (exists $functions->{$f}) {
78 # my $flags = $functions->{$f}[0];
79 # $repl = "Perl_$repl" if $flags =~ /p/;
80 # unless ($flags =~ /n/) {
82 # $repl .= "_ " if @{$functions->{$f}} > 3;
84 # warn("$ARGV:$.:$repl\n");
88 s{(\b(\w+)[ \t]*\([ \t]*(?!aTHX))}
92 if (exists $functions->{$f}) {
94 warn("$ARGV:$.:$`#$repl#$'");
99 close ARGV if eof; # restart $.
107 my $wrote_protected = 0;
116 my ($flags,$retval,$func,@args) = @_;
118 $retval = "STATIC $retval";
122 $retval = "PERL_CALLCONV $retval";
124 $func = "Perl_$func";
127 $ret .= "$retval\t$func(";
128 unless ($flags =~ /n/) {
130 $ret .= "_ " if @args;
133 $ret .= join ", ", @args;
136 $ret .= "void" if $flags =~ /n/;
139 $ret .= " __attribute__((noreturn))" if $flags =~ /r/;
140 if( $flags =~ /f/ ) {
141 my $prefix = $flags =~ /n/ ? '' : 'pTHX_';
142 my $args = scalar @args;
143 $ret .= "\n#ifdef CHECK_FORMAT\n";
144 $ret .= sprintf " __attribute__((format(printf,%s%d,%s%d)))",
145 $prefix, $args - 1, $prefix, $args;
146 $ret .= "\n#endif\n";
153 # generates global.sym (API export list), and populates %global with global symbols
154 sub write_global_sym {
157 my ($flags,$retval,$func,@args) = @_;
158 if ($flags =~ /A/ && $flags !~ /x/) { # public API, so export
159 $func = "Perl_$func" if $flags =~ /p/;
167 walk_table(\&write_protos, 'proto.h', <<'EOT');
169 * !!!!!!! DO NOT EDIT THIS FILE !!!!!!!
170 * This file is autogenerated from data in embed.pl. Edit that file
171 * and run 'make regen_headers' to effect changes.
176 walk_table(\&write_global_sym, 'global.sym', <<'EOT');
178 # !!!!!!! DO NOT EDIT THIS FILE !!!!!!!
179 # This file is autogenerated from data in embed.pl. Edit that file
180 # and run 'make regen_headers' to effect changes.
185 # XXX others that may need adding
189 my @extvars = qw(sv_undef sv_yes sv_no na dowarn
191 tainting tainted stack_base stack_sp sv_arenaroot
193 curstash DBsub DBsingle debstash
207 my ($syms, $file) = @_;
209 open(FILE, "< $file")
210 or die "embed.pl: Can't open $file: $!\n";
212 s/[ \t]*#.*//; # Delete comments.
213 if (/^\s*(\S+)\s*$/) {
215 warn "duplicate symbol $sym while processing $file\n"
216 if exists $$syms{$sym};
223 # Perl_pp_* and Perl_ck_* are in pp.sym
224 readsyms my %ppsym, 'pp.sym';
226 sub readvars(\%$$@) {
227 my ($syms, $file,$pre,$keep_pre) = @_;
229 open(FILE, "< $file")
230 or die "embed.pl: Can't open $file: $!\n";
232 s/[ \t]*#.*//; # Delete comments.
233 if (/PERLVARA?I?C?\($pre(\w+)/) {
235 $sym = $pre . $sym if $keep_pre;
236 warn "duplicate symbol $sym while processing $file\n"
237 if exists $$syms{$sym};
238 $$syms{$sym} = $pre || 1;
247 readvars %intrp, 'intrpvar.h','I';
248 readvars %thread, 'thrdvar.h','T';
249 readvars %globvar, 'perlvars.h','G';
252 foreach $sym (sort keys %thread) {
253 warn "$sym in intrpvar.h as well as thrdvar.h\n" if exists $intrp{$sym};
262 my ($from, $to) = @_;
263 my $t = int(length($from) / 8);
264 "#define $from" . "\t" x ($t < 3 ? 3 - $t : 1) . "$to\n";
267 sub bincompat_var ($$) {
268 my ($pfx, $sym) = @_;
269 my $arg = ($pfx eq 'G' ? 'NULL' : 'aTHXo');
270 undefine("PL_$sym") . hide("PL_$sym", "(*Perl_${pfx}${sym}_ptr($arg))");
274 my ($sym,$pre,$ptr) = @_;
275 hide("PL_$sym", "($ptr$pre$sym)");
280 return hide("PL_$pre$sym", "PL_$sym");
284 open(EM, '> embed.h') or die "Can't create embed.h: $!\n";
287 /* !!!!!!! DO NOT EDIT THIS FILE !!!!!!!
288 This file is built by embed.pl from data in embed.pl, pp.sym, intrpvar.h,
289 perlvars.h and thrdvar.h. Any changes made here will be lost!
292 /* (Doing namespace management portably in C is really gross.) */
294 /* NO_EMBED is no longer supported. i.e. EMBED is always active. */
296 /* provide binary compatible (but inconsistent) names */
297 #if defined(PERL_BINCOMPAT_5005)
298 # define Perl_call_atexit perl_atexit
299 # define Perl_eval_sv perl_eval_sv
300 # define Perl_eval_pv perl_eval_pv
301 # define Perl_call_argv perl_call_argv
302 # define Perl_call_method perl_call_method
303 # define Perl_call_pv perl_call_pv
304 # define Perl_call_sv perl_call_sv
305 # define Perl_get_av perl_get_av
306 # define Perl_get_cv perl_get_cv
307 # define Perl_get_hv perl_get_hv
308 # define Perl_get_sv perl_get_sv
309 # define Perl_init_i18nl10n perl_init_i18nl10n
310 # define Perl_init_i18nl14n perl_init_i18nl14n
311 # define Perl_new_collate perl_new_collate
312 # define Perl_new_ctype perl_new_ctype
313 # define Perl_new_numeric perl_new_numeric
314 # define Perl_require_pv perl_require_pv
315 # define Perl_safesyscalloc Perl_safecalloc
316 # define Perl_safesysfree Perl_safefree
317 # define Perl_safesysmalloc Perl_safemalloc
318 # define Perl_safesysrealloc Perl_saferealloc
319 # define Perl_set_numeric_local perl_set_numeric_local
320 # define Perl_set_numeric_standard perl_set_numeric_standard
321 /* malloc() pollution was the default in earlier versions, so enable
322 * it for bincompat; but not for systems that used to do prevent that,
323 * or when they ask for {HIDE,EMBED}MYMALLOC */
324 # if !defined(EMBEDMYMALLOC) && !defined(HIDEMYMALLOC)
325 # if !defined(NeXT) && !defined(__NeXT) && !defined(__MACHTEN__) && \
327 # define PERL_POLLUTE_MALLOC
332 /* Hide global symbols */
334 #if !defined(PERL_OBJECT)
335 #if !defined(PERL_IMPLICIT_CONTEXT)
343 $ret .= "$arg\n" if $arg =~ /^#\s*(if|ifn?def|else|endif)\b/;
346 my ($flags,$retval,$func,@args) = @_;
347 unless ($flags =~ /o/) {
349 $ret .= hide($func,"S_$func");
351 elsif ($flags =~ /p/) {
352 $ret .= hide($func,"Perl_$func");
359 for $sym (sort keys %ppsym) {
361 print EM hide($sym, "Perl_$sym");
366 #else /* PERL_IMPLICIT_CONTEXT */
376 $ret .= "$arg\n" if $arg =~ /^#\s*(if|ifn?def|else|endif)\b/;
379 my ($flags,$retval,$func,@args) = @_;
380 unless ($flags =~ /o/) {
381 my $args = scalar @args;
382 if ($args and $args[$args-1] =~ /\.\.\./) {
383 # we're out of luck for varargs functions under CPP
385 elsif ($flags =~ /n/) {
387 $ret .= hide($func,"S_$func");
389 elsif ($flags =~ /p/) {
390 $ret .= hide($func,"Perl_$func");
394 my $alist = join(",", @az[0..$args-1]);
395 $ret = "#define $func($alist)";
396 my $t = int(length($ret) / 8);
397 $ret .= "\t" x ($t < 4 ? 4 - $t : 1);
399 $ret .= "S_$func(aTHX";
401 elsif ($flags =~ /p/) {
402 $ret .= "Perl_$func(aTHX";
404 $ret .= "_ " if $alist;
405 $ret .= $alist . ")\n";
412 for $sym (sort keys %ppsym) {
414 if ($sym =~ /^ck_/) {
415 print EM hide("$sym(a)", "Perl_$sym(aTHX_ a)");
417 elsif ($sym =~ /^pp_/) {
418 print EM hide("$sym()", "Perl_$sym(aTHX)");
421 warn "Illegal symbol '$sym' in pp.sym";
427 #endif /* PERL_IMPLICIT_CONTEXT */
428 #else /* PERL_OBJECT */
436 $ret .= "$arg\n" if $arg =~ /^#\s*(if|ifn?def|else|endif)\b/;
439 my ($flags,$retval,$func,@args) = @_;
441 $ret .= hide("S_$func","CPerlObj::S_$func") if $flags !~ /j/;
442 $ret .= hide($func,"S_$func");
444 elsif ($flags =~ /p/) {
445 $ret .= hide("Perl_$func","CPerlObj::Perl_$func") if $flags !~ /j/;
446 $ret .= hide($func,"Perl_$func");
449 $ret .= hide($func,"CPerlObj::$func") if $flags !~ /j/;
455 for $sym (sort keys %ppsym) {
457 print EM hide("Perl_$sym", "CPerlObj::Perl_$sym");
458 print EM hide($sym, "Perl_$sym");
463 #endif /* PERL_OBJECT */
465 /* Compatibility stubs. Compile extensions with -DPERL_NOCOMPAT to
469 #if !defined(PERL_CORE)
470 # define sv_setptrobj(rv,ptr,name) sv_setref_iv(rv,name,PTR2IV(ptr))
471 # define sv_setptrref(rv,ptr) sv_setref_iv(rv,Nullch,PTR2IV(ptr))
474 #if !defined(PERL_CORE) && !defined(PERL_NOCOMPAT) && !defined(PERL_BINCOMPAT_5005)
476 /* Compatibility for various misnamed functions. All functions
477 in the API that begin with "perl_" (not "Perl_") take an explicit
478 interpreter context pointer.
479 The following are not like that, but since they had a "perl_"
480 prefix in previous versions, we provide compatibility macros.
482 # define perl_atexit(a,b) call_atexit(a,b)
483 # define perl_call_argv(a,b,c) call_argv(a,b,c)
484 # define perl_call_pv(a,b) call_pv(a,b)
485 # define perl_call_method(a,b) call_method(a,b)
486 # define perl_call_sv(a,b) call_sv(a,b)
487 # define perl_eval_sv(a,b) eval_sv(a,b)
488 # define perl_eval_pv(a,b) eval_pv(a,b)
489 # define perl_require_pv(a) require_pv(a)
490 # define perl_get_sv(a,b) get_sv(a,b)
491 # define perl_get_av(a,b) get_av(a,b)
492 # define perl_get_hv(a,b) get_hv(a,b)
493 # define perl_get_cv(a,b) get_cv(a,b)
494 # define perl_init_i18nl10n(a) init_i18nl10n(a)
495 # define perl_init_i18nl14n(a) init_i18nl14n(a)
496 # define perl_new_ctype(a) new_ctype(a)
497 # define perl_new_collate(a) new_collate(a)
498 # define perl_new_numeric(a) new_numeric(a)
500 /* varargs functions can't be handled with CPP macros. :-(
501 This provides a set of compatibility functions that don't take
502 an extra argument but grab the context pointer using the macro
505 #if defined(PERL_IMPLICIT_CONTEXT) && !defined(PERL_OBJECT)
506 # define croak Perl_croak_nocontext
507 # define deb Perl_deb_nocontext
508 # define die Perl_die_nocontext
509 # define form Perl_form_nocontext
510 # define load_module Perl_load_module_nocontext
511 # define mess Perl_mess_nocontext
512 # define newSVpvf Perl_newSVpvf_nocontext
513 # define sv_catpvf Perl_sv_catpvf_nocontext
514 # define sv_setpvf Perl_sv_setpvf_nocontext
515 # define warn Perl_warn_nocontext
516 # define warner Perl_warner_nocontext
517 # define sv_catpvf_mg Perl_sv_catpvf_mg_nocontext
518 # define sv_setpvf_mg Perl_sv_setpvf_mg_nocontext
521 #endif /* !defined(PERL_CORE) && !defined(PERL_NOCOMPAT) */
523 #if !defined(PERL_IMPLICIT_CONTEXT)
524 /* undefined symbols, point them back at the usual ones */
525 # define Perl_croak_nocontext Perl_croak
526 # define Perl_die_nocontext Perl_die
527 # define Perl_deb_nocontext Perl_deb
528 # define Perl_form_nocontext Perl_form
529 # define Perl_load_module_nocontext Perl_load_module
530 # define Perl_mess_nocontext Perl_mess
531 # define Perl_newSVpvf_nocontext Perl_newSVpvf
532 # define Perl_sv_catpvf_nocontext Perl_sv_catpvf
533 # define Perl_sv_setpvf_nocontext Perl_sv_setpvf
534 # define Perl_warn_nocontext Perl_warn
535 # define Perl_warner_nocontext Perl_warner
536 # define Perl_sv_catpvf_mg_nocontext Perl_sv_catpvf_mg
537 # define Perl_sv_setpvf_mg_nocontext Perl_sv_setpvf_mg
545 open(EM, '> embedvar.h')
546 or die "Can't create embedvar.h: $!\n";
549 /* !!!!!!! DO NOT EDIT THIS FILE !!!!!!!
550 This file is built by embed.pl from data in embed.pl, pp.sym, intrpvar.h,
551 perlvars.h and thrdvar.h. Any changes made here will be lost!
554 /* (Doing namespace management portably in C is really gross.) */
557 The following combinations of MULTIPLICITY, USE_THREADS, PERL_OBJECT
558 and PERL_IMPLICIT_CONTEXT are supported:
560 2) MULTIPLICITY # supported for compatibility
561 3) MULTIPLICITY && PERL_IMPLICIT_CONTEXT
562 4) USE_THREADS && PERL_IMPLICIT_CONTEXT
563 5) MULTIPLICITY && USE_THREADS && PERL_IMPLICIT_CONTEXT
564 6) PERL_OBJECT && PERL_IMPLICIT_CONTEXT
566 All other combinations of these flags are errors.
568 #3, #4, #5, and #6 are supported directly, while #2 is a special
569 case of #3 (supported by redefining vTHX appropriately).
572 #if defined(MULTIPLICITY)
573 /* cases 2, 3 and 5 above */
575 # if defined(PERL_IMPLICIT_CONTEXT)
578 # define vTHX PERL_GET_INTERP
583 for $sym (sort keys %thread) {
584 print EM multon($sym,'T','vTHX->');
589 # if defined(PERL_OBJECT)
590 # include "error: PERL_OBJECT + MULTIPLICITY don't go together"
593 # if defined(USE_THREADS)
598 for $sym (sort keys %intrp) {
599 print EM multon($sym,'I','PERL_GET_INTERP->');
604 # else /* !USE_THREADS */
605 /* cases 2 and 3 above */
609 for $sym (sort keys %intrp) {
610 print EM multon($sym,'I','vTHX->');
615 # endif /* USE_THREADS */
617 #else /* !MULTIPLICITY */
619 # if defined(PERL_OBJECT)
624 for $sym (sort keys %thread) {
625 print EM multon($sym,'T','aTHXo->interp.');
629 for $sym (sort keys %intrp) {
630 print EM multon($sym,'I','aTHXo->interp.');
635 # else /* !PERL_OBJECT */
637 /* cases 1 and 4 above */
641 for $sym (sort keys %intrp) {
642 print EM multoff($sym,'I');
647 # if defined(USE_THREADS)
652 for $sym (sort keys %thread) {
653 print EM multon($sym,'T','aTHX->');
658 # else /* !USE_THREADS */
663 for $sym (sort keys %thread) {
664 print EM multoff($sym,'T');
669 # endif /* USE_THREADS */
670 # endif /* PERL_OBJECT */
671 #endif /* MULTIPLICITY */
673 #if defined(PERL_GLOBAL_STRUCT)
677 for $sym (sort keys %globvar) {
678 print EM multon($sym,'G','PL_Vars.');
683 #else /* !PERL_GLOBAL_STRUCT */
687 for $sym (sort keys %globvar) {
688 print EM multoff($sym,'G');
693 #endif /* PERL_GLOBAL_STRUCT */
695 #ifdef PERL_POLLUTE /* disabled by default in 5.6.0 */
699 for $sym (sort @extvars) {
700 print EM hide($sym,"PL_$sym");
705 #endif /* PERL_POLLUTE */
711 open(OBX, '> objXSUB.h')
712 or die "Can't create objXSUB.h: $!\n";
715 /* !!!!!!! DO NOT EDIT THIS FILE !!!!!!!
716 This file is built by embed.pl from data in embed.pl, pp.sym, intrpvar.h,
717 perlvars.h and thrdvar.h. Any changes made here will be lost!
720 #ifndef __objXSUB_h__
721 #define __objXSUB_h__
723 /* method calls via pPerl (static functions without a "this" pointer need these) */
725 #if defined(PERL_CORE) && defined(PERL_OBJECT)
727 /* XXX soon to be eliminated, only a few things in PERLCORE need these now */
735 $ret .= "$arg\n" if $arg =~ /^#\s*(if|ifn?def|else|endif)\b/;
738 my ($flags,$retval,$func,@args) = @_;
739 if ($flags =~ /A/ && $flags !~ /j/) { # API function needing macros
741 $ret .= undefine("Perl_$func") . hide("Perl_$func","pPerl->Perl_$func");
742 $ret .= undefine($func) . hide($func,"Perl_$func");
745 $ret .= undefine($func) . hide($func,"pPerl->$func");
752 # NOTE: not part of API
753 #for $sym (sort keys %ppsym) {
754 # $sym =~ s/^Perl_//;
755 # print OBX undefine("Perl_$sym") . hide("Perl_$sym", "pPerl->Perl_$sym");
756 # print OBX undefine($sym) . hide($sym, "Perl_$sym");
761 #endif /* PERL_CORE && PERL_OBJECT */
762 #endif /* __objXSUB_h__ */
769 open(CAPI, '> perlapi.c') or die "Can't create perlapi.c: $!\n";
770 open(CAPIH, '> perlapi.h') or die "Can't create perlapi.h: $!\n";
773 /* !!!!!!! DO NOT EDIT THIS FILE !!!!!!!
774 This file is built by embed.pl from data in embed.pl, pp.sym, intrpvar.h,
775 perlvars.h and thrdvar.h. Any changes made here will be lost!
778 /* declare accessor functions for Perl variables */
779 #ifndef __perlapi_h__
780 #define __perlapi_h__
782 #if defined(PERL_OBJECT) || defined (MULTIPLICITY)
784 #if defined(PERL_OBJECT)
788 # define aTHXo_ aTHXo,
789 #endif /* PERL_OBJECT */
797 #define PERLVAR(v,t) EXTERN_C t* Perl_##v##_ptr(pTHXo);
798 #define PERLVARA(v,n,t) typedef t PL_##v##_t[n]; \
799 EXTERN_C PL_##v##_t* Perl_##v##_ptr(pTHXo);
800 #define PERLVARI(v,t,i) PERLVAR(v,t)
801 #define PERLVARIC(v,t,i) PERLVAR(v, const t)
804 #include "intrpvar.h"
805 #include "perlvars.h"
814 #if defined(PERL_CORE)
816 /* accessor functions for Perl variables (provide binary compatibility) */
818 /* these need to be mentioned here, or most linkers won't put them in
819 the perl executable */
821 #ifndef PERL_NO_FORCE_LINK
826 EXT void *PL_force_link_funcs[];
828 EXT void *PL_force_link_funcs[] = {
833 #define PERLVAR(v,t) (void*)Perl_##v##_ptr,
834 #define PERLVARA(v,n,t) PERLVAR(v,t)
835 #define PERLVARI(v,t,i) PERLVAR(v,t)
836 #define PERLVARIC(v,t,i) PERLVAR(v,t)
839 #include "intrpvar.h"
840 #include "perlvars.h"
851 #endif /* PERL_NO_FORCE_LINK */
853 #else /* !PERL_CORE */
857 foreach $sym (sort keys %intrp) {
858 print CAPIH bincompat_var('I',$sym);
861 foreach $sym (sort keys %thread) {
862 print CAPIH bincompat_var('T',$sym);
865 foreach $sym (sort keys %globvar) {
866 print CAPIH bincompat_var('G',$sym);
871 #endif /* !PERL_CORE */
872 #endif /* PERL_OBJECT || MULTIPLICITY */
874 #endif /* __perlapi_h__ */
880 /* !!!!!!! DO NOT EDIT THIS FILE !!!!!!!
881 This file is built by embed.pl from data in embed.pl, pp.sym, intrpvar.h,
882 perlvars.h and thrdvar.h. Any changes made here will be lost!
889 #if defined(PERL_OBJECT) || defined (MULTIPLICITY)
891 /* accessor functions for Perl variables (provides binary compatibility) */
899 #if defined(PERL_OBJECT)
900 #define PERLVAR(v,t) t* Perl_##v##_ptr(pTHXo) \
901 { return &(aTHXo->interp.v); }
902 #define PERLVARA(v,n,t) PL_##v##_t* Perl_##v##_ptr(pTHXo) \
903 { return &(aTHXo->interp.v); }
904 #else /* MULTIPLICITY */
905 #define PERLVAR(v,t) t* Perl_##v##_ptr(pTHX) \
906 { return &(aTHX->v); }
907 #define PERLVARA(v,n,t) PL_##v##_t* Perl_##v##_ptr(pTHX) \
908 { return &(aTHX->v); }
911 #define PERLVARI(v,t,i) PERLVAR(v,t)
912 #define PERLVARIC(v,t,i) PERLVAR(v, const t)
915 #include "intrpvar.h"
919 #define PERLVAR(v,t) t* Perl_##v##_ptr(pTHXo) \
920 { return &(PL_##v); }
921 #define PERLVARA(v,n,t) PL_##v##_t* Perl_##v##_ptr(pTHXo) \
922 { return &(PL_##v); }
924 #define PERLVARIC(v,t,i) const t* Perl_##v##_ptr(pTHXo) \
925 { return (const t *)&(PL_##v); }
926 #include "perlvars.h"
933 #if defined(PERL_OBJECT)
935 /* C-API layer for PERL_OBJECT */
939 # functions that take va_list* for implementing vararg functions
940 # NOTE: makedef.pl must be updated if you add symbols to %vfuncs
942 Perl_croak Perl_vcroak
944 Perl_warner Perl_vwarner
947 Perl_load_module Perl_vload_module
950 Perl_newSVpvf Perl_vnewSVpvf
951 Perl_sv_setpvf Perl_sv_vsetpvf
952 Perl_sv_setpvf_mg Perl_sv_vsetpvf_mg
953 Perl_sv_catpvf Perl_sv_vcatpvf
954 Perl_sv_catpvf_mg Perl_sv_vcatpvf_mg
955 Perl_dump_indent Perl_dump_vindent
956 Perl_default_protect Perl_vdefault_protect
960 my ($addcontext, $rettype,$func,@args) = @_;
963 for $a (@aargs) { $a =~ s/^.*\b(\w+)$/$1/ }
965 if (not $addcontext) {
967 $ctxarg .= '_ ' if @args;
971 $decl .= " dTHXo;\n";
974 my $return = ($rettype =~ /^\s*(void|Free_t|Signal_t)\s*$/
977 if (@args and $args[$#args] =~ /\.\.\./) {
981 $ctxfunc =~ s/_nocontext$//;
982 return $emitval unless exists $vfuncs{$ctxfunc};
983 if (length $return) {
984 $decl .= " $rettype retval;\n";
985 $retarg .= "retval = ";
986 $return = "\n " . $return . "retval;\n";
993 va_start(args, $aargs[$#aargs]);
994 $retarg((CPerlObj*)pPerl)->$vfuncs{$ctxfunc}(@aargs, &args);
1004 $decl $return((CPerlObj*)pPerl)->$func(@aargs);
1011 # XXXX temporary hack
1020 $skipapi_funcs{$sym}++;
1027 $ret .= "$arg\n" if $arg =~ /^#\s*(if|ifn?def|else|endif)\b/;
1030 my ($flags,$retval,$func,@args) = @_;
1031 return $ret if exists $skipapi_funcs{$func};
1032 if ($flags =~ /A/ && $flags !~ /j/) { # in public API, needed for XSUBS
1034 my $addctx = 1 if $flags =~ /n/;
1035 if ($flags =~ /p/) {
1036 $ret .= undefine("Perl_$func");
1037 $ret .= emit_func($addctx,$retval,"Perl_$func",@args);
1040 $ret .= undefine($func);
1041 $ret .= emit_func($addctx,$retval,$func,@args);
1048 # NOTE: not part of the API
1049 #for $sym (sort keys %ppsym) {
1050 # $sym =~ s/^Perl_//;
1052 # print CAPI undefine("Perl_$sym");
1053 # if ($sym =~ /^ck_/) {
1054 # print CAPI emit_func(0, 'OP *',"Perl_$sym",'OP *o');
1057 # print CAPI emit_func(0, 'OP *',"Perl_$sym");
1063 #undef Perl_fprintf_nocontext
1065 Perl_fprintf_nocontext(PerlIO *stream, const char *format, ...)
1069 va_start(arglist, format);
1070 return (*PL_StdIO->pVprintf)(PL_StdIO, stream, format, arglist);
1073 #undef Perl_printf_nocontext
1075 Perl_printf_nocontext(const char *format, ...)
1079 va_start(arglist, format);
1080 return (*PL_StdIO->pVprintf)(PL_StdIO, PerlIO_stdout(), format, arglist);
1085 #endif /* PERL_OBJECT */
1086 #endif /* PERL_OBJECT || MULTIPLICITY */
1091 # autogenerate documentation from comments in source files
1097 sub autodoc ($$) { # parse a file and extract documentation info
1099 my($in, $doc, $line);
1101 while (defined($in = <$fh>)) {
1103 if ($in =~ /^=for\s+apidoc\s+(.*)\n/) {
1105 $proto = "||$proto" unless $proto =~ /\|/;
1106 my($flags, $ret, $name, @args) = split /\|/, $proto;
1109 while (defined($doc = <$fh>)) {
1111 last DOC if $doc =~ /^=\w+/;
1112 if ($doc =~ m:^\*/$:) {
1113 warn "=cut missing? $file:$line:$doc";;
1118 $docs = "\n$docs" if $docs and $docs !~ /^\n/;
1119 if ($flags =~ /m/) {
1120 if ($flags =~ /A/) {
1121 $apidocs{$name} = [$flags, $docs, $ret, $file, @args];
1124 $gutsdocs{$name} = [$flags, $docs, $ret, $file, @args];
1128 $docfuncs{$name} = [$flags, $docs, $ret, $file, @args];
1131 if ($doc =~ /^=for/) {
1136 warn "$file:$line:$in (=cut missing?)";
1142 sub docout ($$$) { # output the docs for one function
1143 my($fh, $name, $docref) = @_;
1144 my($flags, $docs, $ret, $file, @args) = @$docref;
1146 $docs .= "NOTE: this function is experimental and may change or be
1147 removed without notice.\n\n" if $flags =~ /x/;
1148 $docs .= "NOTE: the perl_ form of this function is deprecated.\n\n"
1151 print $fh "=item $name\n$docs";
1153 if ($flags =~ /U/) { # no usage
1155 } elsif ($flags =~ /s/) { # semicolon ("dTHR;")
1156 print $fh "\t\t$name;\n\n";
1157 } elsif ($flags =~ /n/) { # no args
1158 print $fh "\t$ret\t$name\n\n";
1159 } else { # full usage
1160 print $fh "\t$ret\t$name";
1161 print $fh "(" . join(", ", @args) . ")";
1164 print $fh "=for hackers\nFound in file $file\n\n";
1168 for $file (glob('*.c'), glob('*.h')) {
1169 open F, "< $file" or die "Cannot open $file for docs: $!\n";
1171 close F or die "Error closing $file: $!\n";
1174 unlink "pod/perlapi.pod";
1175 open (DOC, ">pod/perlapi.pod") or
1176 die "Can't create pod/perlapi.pod: $!\n";
1178 walk_table { # load documented functions into approriate hash
1180 my($flags, $retval, $func, @args) = @_;
1181 return "" unless $flags =~ /d/;
1182 $func =~ s/\t//g; $flags =~ s/p//; # clean up fields from embed.pl
1184 if ($flags =~ /A/) {
1185 my $docref = delete $docfuncs{$func};
1186 warn "no docs for $func\n" unless $docref and @$docref;
1187 $docref->[0].="x" if $flags =~ /M/;
1188 $apidocs{$func} = [$docref->[0] . 'A', $docref->[1], $retval,
1189 $docref->[3], @args];
1191 my $docref = delete $docfuncs{$func};
1192 $gutsdocs{$func} = [$docref->[0], $docref->[1], $retval,
1193 $docref->[3], @args];
1199 for (sort keys %docfuncs) {
1200 # Have you used a full for apidoc or just a func name?
1201 # Have you used Ap instead of Am in the for apidoc?
1202 warn "Unable to place $_!\n";
1205 print DOC <<'_EOB_';
1208 perlapi - autogenerated documentation for the perl public API
1212 This file contains the documentation of the perl public API generated by
1213 embed.pl, specifically a listing of functions, macros, flags, and variables
1214 that may be used by extension writers. The interfaces of any functions that
1215 are not listed here are subject to change without notice. For this reason,
1216 blindly using functions listed in proto.h is to be avoided when writing
1219 Note that all Perl API global variables must be referenced with the C<PL_>
1220 prefix. Some macros are provided for compatibility with the older,
1221 unadorned names, but this support may be disabled in a future release.
1223 The listing is alphabetical, case insensitive.
1230 for $key (sort { uc($a) cmp uc($b); } keys %apidocs) { # case insensitive sort
1231 docout(\*DOC, $key, $apidocs{$key});
1234 print DOC <<'_EOE_';
1239 Until May 1997, this document was maintained by Jeff Okamoto
1240 <okamoto@corp.hp.com>. It is now maintained as part of Perl itself.
1242 With lots of help and suggestions from Dean Roehrich, Malcolm Beattie,
1243 Andreas Koenig, Paul Hudson, Ilya Zakharevich, Paul Marquess, Neil
1244 Bowers, Matthew Green, Tim Bunce, Spider Boardman, Ulrich Pfeifer,
1245 Stephen McCamant, and Gurusamy Sarathy.
1247 API Listing originally by Dean Roehrich <roehrich@cray.com>.
1249 Updated to be autogenerated from comments in the source by Benjamin Stuhl.
1253 perlguts(1), perlxs(1), perlxstut(1), perlintern(1)
1260 unlink "pod/perlintern.pod";
1262 open(GUTS, ">pod/perlintern.pod") or
1263 die "Unable to create pod/perlintern.pod: $!\n";
1267 perlintern - autogenerated documentation of purely B<internal>
1272 This file is the autogenerated documentation of functions in the
1273 Perl interpreter that are documented using Perl's internal documentation
1274 format but are not marked as part of the Perl API. In other words,
1275 B<they are not for use in extensions>!
1281 for $key (sort { uc($a) cmp uc($b); } keys %gutsdocs) {
1282 docout(\*GUTS, $key, $gutsdocs{$key});
1290 The autodocumentation system was originally added to the Perl core by
1291 Benjamin Stuhl. Documentation is by whoever was kind enough to
1292 document their functions.
1296 perlguts(1), perlapi(1)
1305 : Lines are of the form:
1306 : flags|return_type|function_name|arg1|arg2|...|argN
1308 : A line may be continued on another by ending it with a backslash.
1309 : Leading and trailing whitespace will be ignored in each component.
1311 : flags are single letters with following meanings:
1312 : A member of public API
1313 : d function has documentation with its source
1314 : s static function, should have an S_ prefix in source
1316 : n has no implicit interpreter/thread context argument
1317 : p function has a Perl_ prefix
1318 : f function takes printf style format string, varargs
1319 : r function never returns
1320 : o has no compatibility macro (#define foo Perl_foo)
1321 : j not a member of CPerlObj
1325 : Individual flags may be separated by whitespace.
1327 : New global functions should be added at the end for binary compatibility
1328 : in some configurations.
1332 #if defined(PERL_IMPLICIT_SYS)
1333 Ajno |PerlInterpreter* |perl_alloc_using \
1334 |struct IPerlMem* m|struct IPerlMem* ms \
1335 |struct IPerlMem* mp|struct IPerlEnv* e \
1336 |struct IPerlStdIO* io|struct IPerlLIO* lio \
1337 |struct IPerlDir* d|struct IPerlSock* s \
1338 |struct IPerlProc* p
1340 Ajnod |PerlInterpreter* |perl_alloc
1341 Ajnod |void |perl_construct |PerlInterpreter* interp
1342 Ajnod |void |perl_destruct |PerlInterpreter* interp
1343 Ajnod |void |perl_free |PerlInterpreter* interp
1344 Ajnod |int |perl_run |PerlInterpreter* interp
1345 Ajnod |int |perl_parse |PerlInterpreter* interp|XSINIT_t xsinit \
1346 |int argc|char** argv|char** env
1347 #if defined(USE_ITHREADS)
1348 Ajnod |PerlInterpreter*|perl_clone|PerlInterpreter* interp, UV flags
1349 # if defined(PERL_IMPLICIT_SYS)
1350 Ajno |PerlInterpreter*|perl_clone_using|PerlInterpreter *interp|UV flags \
1351 |struct IPerlMem* m|struct IPerlMem* ms \
1352 |struct IPerlMem* mp|struct IPerlEnv* e \
1353 |struct IPerlStdIO* io|struct IPerlLIO* lio \
1354 |struct IPerlDir* d|struct IPerlSock* s \
1355 |struct IPerlProc* p
1359 Ajnop |Malloc_t|malloc |MEM_SIZE nbytes
1360 Ajnop |Malloc_t|calloc |MEM_SIZE elements|MEM_SIZE size
1361 Ajnop |Malloc_t|realloc |Malloc_t where|MEM_SIZE nbytes
1362 Ajnop |Free_t |mfree |Malloc_t where
1363 #if defined(MYMALLOC)
1364 jnp |MEM_SIZE|malloced_size |void *p
1367 Ajnp |void* |get_context
1368 Ajnp |void |set_context |void *thx
1372 /* functions with flag 'n' should come before here */
1373 #if defined(PERL_OBJECT)
1376 struct interpreter interp;
1377 CPerlObj(IPerlMem*, IPerlMem*, IPerlMem*, IPerlEnv*, IPerlStdIO*,
1378 IPerlLIO*, IPerlDir*, IPerlSock*, IPerlProc*);
1379 void* operator new(size_t nSize, IPerlMem *pvtbl);
1380 #ifndef __BORLANDC__
1381 static void operator delete(void* pPerl, IPerlMem *pvtbl);
1383 int do_aspawn (void *vreally, void **vmark, void **vsp);
1385 #if defined(PERL_OBJECT)
1390 # include "pp_proto.h"
1391 Ap |SV* |amagic_call |SV* left|SV* right|int method|int dir
1392 Ap |bool |Gv_AMupdate |HV* stash
1393 Ap |CV* |gv_handler |HV* stash|I32 id
1394 p |OP* |append_elem |I32 optype|OP* head|OP* tail
1395 p |OP* |append_list |I32 optype|LISTOP* first|LISTOP* last
1396 p |I32 |apply |I32 type|SV** mark|SV** sp
1397 Ap |void |apply_attrs_string|char *stashpv|CV *cv|char *attrstr|STRLEN len
1398 Ap |SV* |avhv_delete_ent|AV *ar|SV* keysv|I32 flags|U32 hash
1399 Ap |bool |avhv_exists_ent|AV *ar|SV* keysv|U32 hash
1400 Ap |SV** |avhv_fetch_ent |AV *ar|SV* keysv|I32 lval|U32 hash
1401 Ap |SV** |avhv_store_ent |AV *ar|SV* keysv|SV* val|U32 hash
1402 Ap |HE* |avhv_iternext |AV *ar
1403 Ap |SV* |avhv_iterval |AV *ar|HE* entry
1404 Ap |HV* |avhv_keys |AV *ar
1405 Apd |void |av_clear |AV* ar
1406 Apd |SV* |av_delete |AV* ar|I32 key|I32 flags
1407 Apd |bool |av_exists |AV* ar|I32 key
1408 Apd |void |av_extend |AV* ar|I32 key
1409 p |AV* |av_fake |I32 size|SV** svp
1410 Apd |SV** |av_fetch |AV* ar|I32 key|I32 lval
1411 Apd |void |av_fill |AV* ar|I32 fill
1412 Apd |I32 |av_len |AV* ar
1413 Apd |AV* |av_make |I32 size|SV** svp
1414 Apd |SV* |av_pop |AV* ar
1415 Apd |void |av_push |AV* ar|SV* val
1416 p |void |av_reify |AV* ar
1417 Apd |SV* |av_shift |AV* ar
1418 Apd |SV** |av_store |AV* ar|I32 key|SV* val
1419 Apd |void |av_undef |AV* ar
1420 Apd |void |av_unshift |AV* ar|I32 num
1421 p |OP* |bind_match |I32 type|OP* left|OP* pat
1422 p |OP* |block_end |I32 floor|OP* seq
1423 Ap |I32 |block_gimme
1424 p |int |block_start |int full
1425 p |void |boot_core_UNIVERSAL
1426 p |void |boot_core_PerlIO
1427 Ap |void |call_list |I32 oldscope|AV* av_list
1428 p |bool |cando |Mode_t mode|Uid_t effective|Stat_t* statbufp
1429 Ap |U32 |cast_ulong |NV f
1430 Ap |I32 |cast_i32 |NV f
1431 Ap |IV |cast_iv |NV f
1432 Ap |UV |cast_uv |NV f
1433 #if !defined(HAS_TRUNCATE) && !defined(HAS_CHSIZE) && defined(F_FREESP)
1434 Ap |I32 |my_chsize |int fd|Off_t length
1436 #if defined(USE_THREADS)
1437 Ap |MAGIC* |condpair_magic |SV *sv
1439 p |OP* |convert |I32 optype|I32 flags|OP* o
1440 Afprd |void |croak |const char* pat|...
1441 Apr |void |vcroak |const char* pat|va_list* args
1442 #if defined(PERL_IMPLICIT_CONTEXT)
1443 Afnrp |void |croak_nocontext|const char* pat|...
1444 Afnp |OP* |die_nocontext |const char* pat|...
1445 Afnp |void |deb_nocontext |const char* pat|...
1446 Afnp |char* |form_nocontext |const char* pat|...
1447 Anp |void |load_module_nocontext|U32 flags|SV* name|SV* ver|...
1448 Afnp |SV* |mess_nocontext |const char* pat|...
1449 Afnp |void |warn_nocontext |const char* pat|...
1450 Afnp |void |warner_nocontext|U32 err|const char* pat|...
1451 Afnp |SV* |newSVpvf_nocontext|const char* pat|...
1452 Afnp |void |sv_catpvf_nocontext|SV* sv|const char* pat|...
1453 Afnp |void |sv_setpvf_nocontext|SV* sv|const char* pat|...
1454 Afnp |void |sv_catpvf_mg_nocontext|SV* sv|const char* pat|...
1455 Afnp |void |sv_setpvf_mg_nocontext|SV* sv|const char* pat|...
1456 Afnp |int |fprintf_nocontext|PerlIO* stream|const char* fmt|...
1457 Afnp |int |printf_nocontext|const char* fmt|...
1459 p |void |cv_ckproto |CV* cv|GV* gv|char* p
1460 p |CV* |cv_clone |CV* proto
1461 Apd |SV* |cv_const_sv |CV* cv
1462 p |SV* |op_const_sv |OP* o|CV* cv
1463 Ap |void |cv_undef |CV* cv
1464 Ap |void |cx_dump |PERL_CONTEXT* cs
1465 Ap |SV* |filter_add |filter_t funcp|SV* datasv
1466 Ap |void |filter_del |filter_t funcp
1467 Ap |I32 |filter_read |int idx|SV* buffer|int maxlen
1468 Ap |char** |get_op_descs
1469 Ap |char** |get_op_names
1470 p |char* |get_no_modify
1472 Ap |PPADDR_t*|get_ppaddr
1474 Afp |void |deb |const char* pat|...
1475 Ap |void |vdeb |const char* pat|va_list* args
1476 Ap |void |debprofdump
1477 Ap |I32 |debop |OP* o
1479 Ap |I32 |debstackptrs
1480 Ap |char* |delimcpy |char* to|char* toend|char* from \
1481 |char* fromend|int delim|I32* retlen
1482 p |void |deprecate |char* s
1483 Afp |OP* |die |const char* pat|...
1484 p |OP* |vdie |const char* pat|va_list* args
1485 p |OP* |die_where |char* message|STRLEN msglen
1486 Ap |void |dounwind |I32 cxix
1487 p |bool |do_aexec |SV* really|SV** mark|SV** sp
1488 p |bool |do_aexec5 |SV* really|SV** mark|SV** sp|int fd|int flag
1489 Ap |int |do_binmode |PerlIO *fp|int iotype|int mode
1490 p |void |do_chop |SV* asv|SV* sv
1491 Ap |bool |do_close |GV* gv|bool not_implicit
1492 p |bool |do_eof |GV* gv
1493 p |bool |do_exec |char* cmd
1495 p |bool |do_exec3 |char* cmd|int fd|int flag
1497 p |void |do_execfree
1498 #if defined(HAS_MSG) || defined(HAS_SEM) || defined(HAS_SHM)
1499 p |I32 |do_ipcctl |I32 optype|SV** mark|SV** sp
1500 p |I32 |do_ipcget |I32 optype|SV** mark|SV** sp
1501 p |I32 |do_msgrcv |SV** mark|SV** sp
1502 p |I32 |do_msgsnd |SV** mark|SV** sp
1503 p |I32 |do_semop |SV** mark|SV** sp
1504 p |I32 |do_shmio |I32 optype|SV** mark|SV** sp
1506 Ap |void |do_join |SV* sv|SV* del|SV** mark|SV** sp
1508 Ap |bool |do_open |GV* gv|char* name|I32 len|int as_raw \
1509 |int rawmode|int rawperm|PerlIO* supplied_fp
1510 Ap |bool |do_open9 |GV *gv|char *name|I32 len|int as_raw \
1511 |int rawmode|int rawperm|PerlIO *supplied_fp \
1513 Ap |bool |do_openn |GV *gv|char *name|I32 len|int as_raw \
1514 |int rawmode|int rawperm|PerlIO *supplied_fp \
1516 p |void |do_pipe |SV* sv|GV* rgv|GV* wgv
1517 p |bool |do_print |SV* sv|PerlIO* fp
1519 p |I32 |do_chomp |SV* sv
1520 p |bool |do_seek |GV* gv|Off_t pos|int whence
1521 p |void |do_sprintf |SV* sv|I32 len|SV** sarg
1522 p |Off_t |do_sysseek |GV* gv|Off_t pos|int whence
1523 p |Off_t |do_tell |GV* gv
1524 p |I32 |do_trans |SV* sv
1525 p |UV |do_vecget |SV* sv|I32 offset|I32 size
1526 p |void |do_vecset |SV* sv
1527 p |void |do_vop |I32 optype|SV* sv|SV* left|SV* right
1528 p |OP* |dofile |OP* term
1529 Ap |I32 |dowantarray
1532 #if defined(DUMP_FDS)
1533 Ap |void |dump_fds |char* s
1535 Ap |void |dump_form |GV* gv
1536 Ap |void |gv_dump |GV* gv
1537 Ap |void |op_dump |OP* arg
1538 Ap |void |pmop_dump |PMOP* pm
1539 Ap |void |dump_packsubs |HV* stash
1540 Ap |void |dump_sub |GV* gv
1541 Apd |void |fbm_compile |SV* sv|U32 flags
1542 Apd |char* |fbm_instr |unsigned char* big|unsigned char* bigend \
1543 |SV* littlesv|U32 flags
1544 p |char* |find_script |char *scriptname|bool dosearch \
1545 |char **search_ext|I32 flags
1546 #if defined(USE_THREADS)
1547 p |PADOFFSET|find_threadsv|const char *name
1549 p |OP* |force_list |OP* arg
1550 p |OP* |fold_constants |OP* arg
1551 Afp |char* |form |const char* pat|...
1552 Ap |char* |vform |const char* pat|va_list* args
1554 p |OP* |gen_constant_list|OP* o
1555 #if !defined(HAS_GETENV_LEN)
1556 p |char* |getenv_len |const char* key|unsigned long *len
1558 Ap |void |gp_free |GV* gv
1559 Ap |GP* |gp_ref |GP* gp
1560 Ap |GV* |gv_AVadd |GV* gv
1561 Ap |GV* |gv_HVadd |GV* gv
1562 Ap |GV* |gv_IOadd |GV* gv
1563 Ap |GV* |gv_autoload4 |HV* stash|const char* name|STRLEN len \
1565 Ap |void |gv_check |HV* stash
1566 Ap |void |gv_efullname |SV* sv|GV* gv
1567 Ap |void |gv_efullname3 |SV* sv|GV* gv|const char* prefix
1568 Ap |void |gv_efullname4 |SV* sv|GV* gv|const char* prefix|bool keepmain
1569 Ap |GV* |gv_fetchfile |const char* name
1570 Apd |GV* |gv_fetchmeth |HV* stash|const char* name|STRLEN len \
1572 Apd |GV* |gv_fetchmethod |HV* stash|const char* name
1573 Apd |GV* |gv_fetchmethod_autoload|HV* stash|const char* name \
1575 Ap |GV* |gv_fetchpv |const char* name|I32 add|I32 sv_type
1576 Ap |void |gv_fullname |SV* sv|GV* gv
1577 Ap |void |gv_fullname3 |SV* sv|GV* gv|const char* prefix
1578 Ap |void |gv_fullname4 |SV* sv|GV* gv|const char* prefix|bool keepmain
1579 Ap |void |gv_init |GV* gv|HV* stash|const char* name \
1580 |STRLEN len|int multi
1581 Apd |HV* |gv_stashpv |const char* name|I32 create
1582 Ap |HV* |gv_stashpvn |const char* name|U32 namelen|I32 create
1583 Apd |HV* |gv_stashsv |SV* sv|I32 create
1584 Apd |void |hv_clear |HV* tb
1585 Ap |void |hv_delayfree_ent|HV* hv|HE* entry
1586 Apd |SV* |hv_delete |HV* tb|const char* key|I32 klen|I32 flags
1587 Apd |SV* |hv_delete_ent |HV* tb|SV* key|I32 flags|U32 hash
1588 Apd |bool |hv_exists |HV* tb|const char* key|I32 klen
1589 Apd |bool |hv_exists_ent |HV* tb|SV* key|U32 hash
1590 Apd |SV** |hv_fetch |HV* tb|const char* key|I32 klen|I32 lval
1591 Apd |HE* |hv_fetch_ent |HV* tb|SV* key|I32 lval|U32 hash
1592 Ap |void |hv_free_ent |HV* hv|HE* entry
1593 Apd |I32 |hv_iterinit |HV* tb
1594 Apd |char* |hv_iterkey |HE* entry|I32* retlen
1595 Apd |SV* |hv_iterkeysv |HE* entry
1596 Apd |HE* |hv_iternext |HV* tb
1597 Apd |SV* |hv_iternextsv |HV* hv|char** key|I32* retlen
1598 Apd |SV* |hv_iterval |HV* tb|HE* entry
1599 Ap |void |hv_ksplit |HV* hv|IV newmax
1600 Apd |void |hv_magic |HV* hv|GV* gv|int how
1601 Apd |SV** |hv_store |HV* tb|const char* key|I32 klen|SV* val \
1603 Apd |HE* |hv_store_ent |HV* tb|SV* key|SV* val|U32 hash
1604 Apd |void |hv_undef |HV* tb
1605 Ap |I32 |ibcmp |const char* a|const char* b|I32 len
1606 Ap |I32 |ibcmp_locale |const char* a|const char* b|I32 len
1607 p |bool |ingroup |Gid_t testgid|Uid_t effective
1608 p |void |init_debugger
1609 Ap |void |init_stacks
1610 Ap |void |init_tm |struct tm *ptm
1612 Ap |char* |instr |const char* big|const char* little
1613 p |bool |io_close |IO* io|bool not_implicit
1614 p |OP* |invert |OP* cmd
1615 dp |bool |is_gv_magical |char *name|STRLEN len|U32 flags
1616 p |I32 |is_lvalue_sub
1617 Ap |bool |is_uni_alnum |U32 c
1618 Ap |bool |is_uni_alnumc |U32 c
1619 Ap |bool |is_uni_idfirst |U32 c
1620 Ap |bool |is_uni_alpha |U32 c
1621 Ap |bool |is_uni_ascii |U32 c
1622 Ap |bool |is_uni_space |U32 c
1623 Ap |bool |is_uni_cntrl |U32 c
1624 Ap |bool |is_uni_graph |U32 c
1625 Ap |bool |is_uni_digit |U32 c
1626 Ap |bool |is_uni_upper |U32 c
1627 Ap |bool |is_uni_lower |U32 c
1628 Ap |bool |is_uni_print |U32 c
1629 Ap |bool |is_uni_punct |U32 c
1630 Ap |bool |is_uni_xdigit |U32 c
1631 Ap |U32 |to_uni_upper |U32 c
1632 Ap |U32 |to_uni_title |U32 c
1633 Ap |U32 |to_uni_lower |U32 c
1634 Ap |bool |is_uni_alnum_lc|U32 c
1635 Ap |bool |is_uni_alnumc_lc|U32 c
1636 Ap |bool |is_uni_idfirst_lc|U32 c
1637 Ap |bool |is_uni_alpha_lc|U32 c
1638 Ap |bool |is_uni_ascii_lc|U32 c
1639 Ap |bool |is_uni_space_lc|U32 c
1640 Ap |bool |is_uni_cntrl_lc|U32 c
1641 Ap |bool |is_uni_graph_lc|U32 c
1642 Ap |bool |is_uni_digit_lc|U32 c
1643 Ap |bool |is_uni_upper_lc|U32 c
1644 Ap |bool |is_uni_lower_lc|U32 c
1645 Ap |bool |is_uni_print_lc|U32 c
1646 Ap |bool |is_uni_punct_lc|U32 c
1647 Ap |bool |is_uni_xdigit_lc|U32 c
1648 Ap |U32 |to_uni_upper_lc|U32 c
1649 Ap |U32 |to_uni_title_lc|U32 c
1650 Ap |U32 |to_uni_lower_lc|U32 c
1651 Apd |STRLEN |is_utf8_char |U8 *p
1652 Apd |bool |is_utf8_string |U8 *s|STRLEN len
1653 Ap |bool |is_utf8_alnum |U8 *p
1654 Ap |bool |is_utf8_alnumc |U8 *p
1655 Ap |bool |is_utf8_idfirst|U8 *p
1656 Ap |bool |is_utf8_alpha |U8 *p
1657 Ap |bool |is_utf8_ascii |U8 *p
1658 Ap |bool |is_utf8_space |U8 *p
1659 Ap |bool |is_utf8_cntrl |U8 *p
1660 Ap |bool |is_utf8_digit |U8 *p
1661 Ap |bool |is_utf8_graph |U8 *p
1662 Ap |bool |is_utf8_upper |U8 *p
1663 Ap |bool |is_utf8_lower |U8 *p
1664 Ap |bool |is_utf8_print |U8 *p
1665 Ap |bool |is_utf8_punct |U8 *p
1666 Ap |bool |is_utf8_xdigit |U8 *p
1667 Ap |bool |is_utf8_mark |U8 *p
1668 p |OP* |jmaybe |OP* arg
1669 p |I32 |keyword |char* d|I32 len
1670 Ap |void |leave_scope |I32 base
1672 p |void |lex_start |SV* line
1673 Ap |void |op_null |OP* o
1674 p |void |op_clear |OP* o
1675 p |OP* |linklist |OP* o
1677 p |OP* |listkids |OP* o
1678 Apd |void |load_module|U32 flags|SV* name|SV* ver|...
1679 Ap |void |vload_module|U32 flags|SV* name|SV* ver|va_list* args
1680 p |OP* |localize |OP* arg|I32 lexical
1681 Apd |I32 |looks_like_number|SV* sv
1682 Apd |int |grok_number |const char *pv|STRLEN len|UV *valuep
1683 Apd |bool |grok_numeric_radix|const char **sp|const char *send
1684 p |int |magic_clearenv |SV* sv|MAGIC* mg
1685 p |int |magic_clear_all_env|SV* sv|MAGIC* mg
1686 p |int |magic_clearpack|SV* sv|MAGIC* mg
1687 p |int |magic_clearsig |SV* sv|MAGIC* mg
1688 p |int |magic_existspack|SV* sv|MAGIC* mg
1689 p |int |magic_freeregexp|SV* sv|MAGIC* mg
1690 p |int |magic_freeovrld|SV* sv|MAGIC* mg
1691 p |int |magic_get |SV* sv|MAGIC* mg
1692 p |int |magic_getarylen|SV* sv|MAGIC* mg
1693 p |int |magic_getdefelem|SV* sv|MAGIC* mg
1694 p |int |magic_getglob |SV* sv|MAGIC* mg
1695 p |int |magic_getnkeys |SV* sv|MAGIC* mg
1696 p |int |magic_getpack |SV* sv|MAGIC* mg
1697 p |int |magic_getpos |SV* sv|MAGIC* mg
1698 p |int |magic_getsig |SV* sv|MAGIC* mg
1699 p |int |magic_getsubstr|SV* sv|MAGIC* mg
1700 p |int |magic_gettaint |SV* sv|MAGIC* mg
1701 p |int |magic_getuvar |SV* sv|MAGIC* mg
1702 p |int |magic_getvec |SV* sv|MAGIC* mg
1703 p |U32 |magic_len |SV* sv|MAGIC* mg
1704 #if defined(USE_THREADS)
1705 p |int |magic_mutexfree|SV* sv|MAGIC* mg
1707 p |int |magic_nextpack |SV* sv|MAGIC* mg|SV* key
1708 p |U32 |magic_regdata_cnt|SV* sv|MAGIC* mg
1709 p |int |magic_regdatum_get|SV* sv|MAGIC* mg
1710 p |int |magic_regdatum_set|SV* sv|MAGIC* mg
1711 p |int |magic_set |SV* sv|MAGIC* mg
1712 p |int |magic_setamagic|SV* sv|MAGIC* mg
1713 p |int |magic_setarylen|SV* sv|MAGIC* mg
1714 p |int |magic_setbm |SV* sv|MAGIC* mg
1715 p |int |magic_setdbline|SV* sv|MAGIC* mg
1716 #if defined(USE_LOCALE_COLLATE)
1717 p |int |magic_setcollxfrm|SV* sv|MAGIC* mg
1719 p |int |magic_setdefelem|SV* sv|MAGIC* mg
1720 p |int |magic_setenv |SV* sv|MAGIC* mg
1721 p |int |magic_setfm |SV* sv|MAGIC* mg
1722 p |int |magic_setisa |SV* sv|MAGIC* mg
1723 p |int |magic_setglob |SV* sv|MAGIC* mg
1724 p |int |magic_setmglob |SV* sv|MAGIC* mg
1725 p |int |magic_setnkeys |SV* sv|MAGIC* mg
1726 p |int |magic_setpack |SV* sv|MAGIC* mg
1727 p |int |magic_setpos |SV* sv|MAGIC* mg
1728 p |int |magic_setsig |SV* sv|MAGIC* mg
1729 p |int |magic_setsubstr|SV* sv|MAGIC* mg
1730 p |int |magic_settaint |SV* sv|MAGIC* mg
1731 p |int |magic_setuvar |SV* sv|MAGIC* mg
1732 p |int |magic_setvec |SV* sv|MAGIC* mg
1733 p |int |magic_set_all_env|SV* sv|MAGIC* mg
1734 p |U32 |magic_sizepack |SV* sv|MAGIC* mg
1735 p |int |magic_wipepack |SV* sv|MAGIC* mg
1736 p |void |magicname |char* sym|char* name|I32 namlen
1737 Ap |void |markstack_grow
1738 #if defined(USE_LOCALE_COLLATE)
1739 p |char* |mem_collxfrm |const char* s|STRLEN len|STRLEN* xlen
1741 Afp |SV* |mess |const char* pat|...
1742 Ap |SV* |vmess |const char* pat|va_list* args
1743 p |void |qerror |SV* err
1744 Apd |int |mg_clear |SV* sv
1745 Apd |int |mg_copy |SV* sv|SV* nsv|const char* key|I32 klen
1746 Apd |MAGIC* |mg_find |SV* sv|int type
1747 Apd |int |mg_free |SV* sv
1748 Apd |int |mg_get |SV* sv
1749 Apd |U32 |mg_length |SV* sv
1750 Apd |void |mg_magical |SV* sv
1751 Apd |int |mg_set |SV* sv
1752 Ap |I32 |mg_size |SV* sv
1753 Ap |void |mini_mktime |struct tm *pm
1754 p |OP* |mod |OP* o|I32 type
1755 p |int |mode_from_discipline|SV* discp
1756 Ap |char* |moreswitches |char* s
1758 Ap |NV |my_atof |const char *s
1759 #if (!defined(HAS_MEMCPY) && !defined(HAS_BCOPY)) || (!defined(HAS_MEMMOVE) && !defined(HAS_SAFE_MEMCPY) && !defined(HAS_SAFE_BCOPY))
1760 Anp |char* |my_bcopy |const char* from|char* to|I32 len
1762 #if !defined(HAS_BZERO) && !defined(HAS_MEMSET)
1763 Anp |char* |my_bzero |char* loc|I32 len
1765 Apr |void |my_exit |U32 status
1766 Apr |void |my_failure_exit
1767 Ap |I32 |my_fflush_all
1769 Anp |void |atfork_lock
1770 Anp |void |atfork_unlock
1772 #if !defined(HAS_MEMCMP) || !defined(HAS_SANE_MEMCMP)
1773 Anp |I32 |my_memcmp |const char* s1|const char* s2|I32 len
1775 #if !defined(HAS_MEMSET)
1776 Anp |void* |my_memset |char* loc|I32 ch|I32 len
1778 #if !defined(PERL_OBJECT)
1779 Ap |I32 |my_pclose |PerlIO* ptr
1780 Ap |PerlIO*|my_popen |char* cmd|char* mode
1781 Ap |PerlIO*|my_popen_list |char* mode|int n|SV ** args
1783 Ap |void |my_setenv |char* nam|char* val
1785 Ap |char * |my_strftime |char *fmt|int sec|int min|int hour|int mday|int mon|int year|int wday|int yday|int isdst
1787 Ap |short |my_swap |short s
1788 Ap |long |my_htonl |long l
1789 Ap |long |my_ntohl |long l
1792 Ap |OP* |newANONLIST |OP* o
1793 Ap |OP* |newANONHASH |OP* o
1794 Ap |OP* |newANONSUB |I32 floor|OP* proto|OP* block
1795 Ap |OP* |newASSIGNOP |I32 flags|OP* left|I32 optype|OP* right
1796 Ap |OP* |newCONDOP |I32 flags|OP* expr|OP* trueop|OP* falseop
1797 Apd |CV* |newCONSTSUB |HV* stash|char* name|SV* sv
1798 Ap |void |newFORM |I32 floor|OP* o|OP* block
1799 Ap |OP* |newFOROP |I32 flags|char* label|line_t forline \
1800 |OP* sclr|OP* expr|OP*block|OP*cont
1801 Ap |OP* |newLOGOP |I32 optype|I32 flags|OP* left|OP* right
1802 Ap |OP* |newLOOPEX |I32 type|OP* label
1803 Ap |OP* |newLOOPOP |I32 flags|I32 debuggable|OP* expr|OP* block
1804 Ap |OP* |newNULLLIST
1805 Ap |OP* |newOP |I32 optype|I32 flags
1806 Ap |void |newPROG |OP* o
1807 Ap |OP* |newRANGE |I32 flags|OP* left|OP* right
1808 Ap |OP* |newSLICEOP |I32 flags|OP* subscript|OP* listop
1809 Ap |OP* |newSTATEOP |I32 flags|char* label|OP* o
1810 Ap |CV* |newSUB |I32 floor|OP* o|OP* proto|OP* block
1811 Apd |CV* |newXS |char* name|XSUBADDR_t f|char* filename
1813 Ap |OP* |newAVREF |OP* o
1814 Ap |OP* |newBINOP |I32 type|I32 flags|OP* first|OP* last
1815 Ap |OP* |newCVREF |I32 flags|OP* o
1816 Ap |OP* |newGVOP |I32 type|I32 flags|GV* gv
1817 Ap |GV* |newGVgen |char* pack
1818 Ap |OP* |newGVREF |I32 type|OP* o
1819 Ap |OP* |newHVREF |OP* o
1821 Ap |HV* |newHVhv |HV* hv
1823 Ap |OP* |newLISTOP |I32 type|I32 flags|OP* first|OP* last
1824 Ap |OP* |newPADOP |I32 type|I32 flags|SV* sv
1825 Ap |OP* |newPMOP |I32 type|I32 flags
1826 Ap |OP* |newPVOP |I32 type|I32 flags|char* pv
1827 Ap |SV* |newRV |SV* pref
1828 Apd |SV* |newRV_noinc |SV *sv
1829 Apd |SV* |newSV |STRLEN len
1830 Ap |OP* |newSVREF |OP* o
1831 Ap |OP* |newSVOP |I32 type|I32 flags|SV* sv
1832 Apd |SV* |newSViv |IV i
1833 Apd |SV* |newSVuv |UV u
1834 Apd |SV* |newSVnv |NV n
1835 Apd |SV* |newSVpv |const char* s|STRLEN len
1836 Apd |SV* |newSVpvn |const char* s|STRLEN len
1837 Apd |SV* |newSVpvn_share |const char* s|I32 len|U32 hash
1838 Afpd |SV* |newSVpvf |const char* pat|...
1839 Ap |SV* |vnewSVpvf |const char* pat|va_list* args
1840 Apd |SV* |newSVrv |SV* rv|const char* classname
1841 Apd |SV* |newSVsv |SV* old
1842 Ap |OP* |newUNOP |I32 type|I32 flags|OP* first
1843 Ap |OP* |newWHILEOP |I32 flags|I32 debuggable|LOOP* loop \
1844 |I32 whileline|OP* expr|OP* block|OP* cont
1846 Ap |PERL_SI*|new_stackinfo|I32 stitems|I32 cxitems
1847 p |PerlIO*|nextargv |GV* gv
1848 Ap |char* |ninstr |const char* big|const char* bigend \
1849 |const char* little|const char* lend
1850 p |OP* |oopsCV |OP* o
1851 Ap |void |op_free |OP* arg
1852 p |void |package |OP* o
1853 p |PADOFFSET|pad_alloc |I32 optype|U32 tmptype
1854 p |PADOFFSET|pad_allocmy |char* name
1855 p |PADOFFSET|pad_findmy |char* name
1856 p |OP* |oopsAV |OP* o
1857 p |OP* |oopsHV |OP* o
1858 p |void |pad_leavemy |I32 fill
1859 Ap |SV* |pad_sv |PADOFFSET po
1860 p |void |pad_free |PADOFFSET po
1862 p |void |pad_swipe |PADOFFSET po
1863 p |void |peep |OP* o
1864 dopM |PerlIO*|start_glob |SV* pattern|IO *io
1865 #if defined(PERL_OBJECT)
1866 Aox |void |Perl_construct
1867 Aox |void |Perl_destruct
1868 Aox |void |Perl_free
1870 Aox |int |Perl_parse |XSINIT_t xsinit \
1871 |int argc|char** argv|char** env
1873 #if defined(USE_THREADS)
1874 Ap |struct perl_thread* |new_struct_thread|struct perl_thread *t
1876 Ap |void |call_atexit |ATEXIT_t fn|void *ptr
1877 Apd |I32 |call_argv |const char* sub_name|I32 flags|char** argv
1878 Apd |I32 |call_method |const char* methname|I32 flags
1879 Apd |I32 |call_pv |const char* sub_name|I32 flags
1880 Apd |I32 |call_sv |SV* sv|I32 flags
1881 p |void |despatch_signals
1882 Apd |SV* |eval_pv |const char* p|I32 croak_on_error
1883 Apd |I32 |eval_sv |SV* sv|I32 flags
1884 Apd |SV* |get_sv |const char* name|I32 create
1885 Apd |AV* |get_av |const char* name|I32 create
1886 Apd |HV* |get_hv |const char* name|I32 create
1887 Apd |CV* |get_cv |const char* name|I32 create
1888 Ap |int |init_i18nl10n |int printwarn
1889 Ap |int |init_i18nl14n |int printwarn
1890 Ap |void |new_collate |char* newcoll
1891 Ap |void |new_ctype |char* newctype
1892 Ap |void |new_numeric |char* newcoll
1893 Ap |void |set_numeric_local
1894 Ap |void |set_numeric_radix
1895 Ap |void |set_numeric_standard
1896 Apd |void |require_pv |const char* pv
1897 p |void |pidgone |Pid_t pid|int status
1898 Ap |void |pmflag |U16* pmfl|int ch
1899 p |OP* |pmruntime |OP* pm|OP* expr|OP* repl
1900 p |OP* |pmtrans |OP* o|OP* expr|OP* repl
1903 p |OP* |prepend_elem |I32 optype|OP* head|OP* tail
1904 p |void |push_return |OP* o
1905 Ap |void |push_scope
1906 p |OP* |ref |OP* o|I32 type
1907 p |OP* |refkids |OP* o|I32 type
1908 Ap |void |regdump |regexp* r
1909 Ap |SV* |regclass_swash |struct regnode *n|bool doinit|SV **initsvp
1910 Ap |I32 |pregexec |regexp* prog|char* stringarg \
1911 |char* strend|char* strbeg|I32 minend \
1912 |SV* screamer|U32 nosave
1913 Ap |void |pregfree |struct regexp* r
1914 Ap |regexp*|pregcomp |char* exp|char* xend|PMOP* pm
1915 Ap |char* |re_intuit_start|regexp* prog|SV* sv|char* strpos \
1916 |char* strend|U32 flags \
1917 |struct re_scream_pos_data_s *data
1918 Ap |SV* |re_intuit_string|regexp* prog
1919 Ap |I32 |regexec_flags |regexp* prog|char* stringarg \
1920 |char* strend|char* strbeg|I32 minend \
1921 |SV* screamer|void* data|U32 flags
1922 Ap |regnode*|regnext |regnode* p
1923 p |void |regprop |SV* sv|regnode* o
1924 Ap |void |repeatcpy |char* to|const char* from|I32 len|I32 count
1925 Ap |char* |rninstr |const char* big|const char* bigend \
1926 |const char* little|const char* lend
1927 Ap |Sighandler_t|rsignal |int i|Sighandler_t t
1928 p |int |rsignal_restore|int i|Sigsave_t* t
1929 p |int |rsignal_save |int i|Sighandler_t t1|Sigsave_t* t2
1930 Ap |Sighandler_t|rsignal_state|int i
1931 p |void |rxres_free |void** rsp
1932 p |void |rxres_restore |void** rsp|REGEXP* prx
1933 p |void |rxres_save |void** rsp|REGEXP* prx
1934 #if !defined(HAS_RENAME)
1935 p |I32 |same_dirent |char* a|char* b
1937 Apd |char* |savepv |const char* sv
1938 Apd |char* |savepvn |const char* sv|I32 len
1939 Ap |void |savestack_grow
1940 Ap |void |save_aelem |AV* av|I32 idx|SV **sptr
1941 Ap |I32 |save_alloc |I32 size|I32 pad
1942 Ap |void |save_aptr |AV** aptr
1943 Ap |AV* |save_ary |GV* gv
1944 Ap |void |save_clearsv |SV** svp
1945 Ap |void |save_delete |HV* hv|char* key|I32 klen
1946 Ap |void |save_destructor|DESTRUCTORFUNC_NOCONTEXT_t f|void* p
1947 Ap |void |save_destructor_x|DESTRUCTORFUNC_t f|void* p
1948 Ap |void |save_freesv |SV* sv
1949 p |void |save_freeop |OP* o
1950 Ap |void |save_freepv |char* pv
1951 Ap |void |save_generic_svref|SV** sptr
1952 Ap |void |save_generic_pvref|char** str
1953 Ap |void |save_gp |GV* gv|I32 empty
1954 Ap |HV* |save_hash |GV* gv
1955 Ap |void |save_helem |HV* hv|SV *key|SV **sptr
1956 Ap |void |save_hints
1957 Ap |void |save_hptr |HV** hptr
1958 Ap |void |save_I16 |I16* intp
1959 Ap |void |save_I32 |I32* intp
1960 Ap |void |save_I8 |I8* bytep
1961 Ap |void |save_int |int* intp
1962 Ap |void |save_item |SV* item
1963 Ap |void |save_iv |IV* iv
1964 Ap |void |save_list |SV** sarg|I32 maxsarg
1965 Ap |void |save_long |long* longp
1966 Ap |void |save_mortalizesv|SV* sv
1967 Ap |void |save_nogv |GV* gv
1969 Ap |SV* |save_scalar |GV* gv
1970 Ap |void |save_pptr |char** pptr
1971 Ap |void |save_vptr |void* pptr
1972 Ap |void |save_re_context
1973 Ap |void |save_padsv |PADOFFSET off
1974 Ap |void |save_sptr |SV** sptr
1975 Ap |SV* |save_svref |SV** sptr
1976 Ap |SV** |save_threadsv |PADOFFSET i
1977 p |OP* |sawparens |OP* o
1978 p |OP* |scalar |OP* o
1979 p |OP* |scalarkids |OP* o
1980 p |OP* |scalarseq |OP* o
1981 p |OP* |scalarvoid |OP* o
1982 Ap |NV |scan_bin |char* start|STRLEN len|STRLEN* retlen
1983 Ap |NV |scan_hex |char* start|STRLEN len|STRLEN* retlen
1984 Ap |char* |scan_num |char* s|YYSTYPE *lvalp
1985 Ap |NV |scan_oct |char* start|STRLEN len|STRLEN* retlen
1986 p |OP* |scope |OP* o
1987 Ap |char* |screaminstr |SV* bigsv|SV* littlesv|I32 start_shift \
1988 |I32 end_shift|I32 *state|I32 last
1990 p |I32 |setenv_getix |char* nam
1992 p |void |setdefout |GV* gv
1993 Ap |char* |sharepvn |const char* sv|I32 len|U32 hash
1994 p |HEK* |share_hek |const char* sv|I32 len|U32 hash
1995 np |Signal_t |sighandler |int sig
1996 Ap |SV** |stack_grow |SV** sp|SV**p|int n
1997 Ap |I32 |start_subparse |I32 is_format|U32 flags
1998 p |void |sub_crush_depth|CV* cv
1999 Apd |bool |sv_2bool |SV* sv
2000 Apd |CV* |sv_2cv |SV* sv|HV** st|GV** gvp|I32 lref
2001 Apd |IO* |sv_2io |SV* sv
2002 Apd |IV |sv_2iv |SV* sv
2003 Apd |SV* |sv_2mortal |SV* sv
2004 Apd |NV |sv_2nv |SV* sv
2005 Aop |char* |sv_2pv |SV* sv|STRLEN* lp
2006 Apd |char* |sv_2pvutf8 |SV* sv|STRLEN* lp
2007 Apd |char* |sv_2pvbyte |SV* sv|STRLEN* lp
2008 Apd |UV |sv_2uv |SV* sv
2009 Apd |IV |sv_iv |SV* sv
2010 Apd |UV |sv_uv |SV* sv
2011 Apd |NV |sv_nv |SV* sv
2012 Apd |char* |sv_pvn |SV *sv|STRLEN *len
2013 Apd |char* |sv_pvutf8n |SV *sv|STRLEN *len
2014 Apd |char* |sv_pvbyten |SV *sv|STRLEN *len
2015 Apd |I32 |sv_true |SV *sv
2016 pd |void |sv_add_arena |char* ptr|U32 size|U32 flags
2017 Apd |int |sv_backoff |SV* sv
2018 Apd |SV* |sv_bless |SV* sv|HV* stash
2019 Afpd |void |sv_catpvf |SV* sv|const char* pat|...
2020 Ap |void |sv_vcatpvf |SV* sv|const char* pat|va_list* args
2021 Apd |void |sv_catpv |SV* sv|const char* ptr
2022 Aopd |void |sv_catpvn |SV* sv|const char* ptr|STRLEN len
2023 Aopd |void |sv_catsv |SV* dsv|SV* ssv
2024 Apd |void |sv_chop |SV* sv|char* ptr
2025 pd |I32 |sv_clean_all
2026 pd |void |sv_clean_objs
2027 Apd |void |sv_clear |SV* sv
2028 Apd |I32 |sv_cmp |SV* sv1|SV* sv2
2029 Apd |I32 |sv_cmp_locale |SV* sv1|SV* sv2
2030 #if defined(USE_LOCALE_COLLATE)
2031 Apd |char* |sv_collxfrm |SV* sv|STRLEN* nxp
2033 Ap |OP* |sv_compile_2op |SV* sv|OP** startp|char* code|AV** avp
2034 Apd |int |getcwd_sv |SV* sv
2035 Apd |void |sv_dec |SV* sv
2036 Ap |void |sv_dump |SV* sv
2037 Apd |bool |sv_derived_from|SV* sv|const char* name
2038 Apd |I32 |sv_eq |SV* sv1|SV* sv2
2039 Apd |void |sv_free |SV* sv
2040 pd |void |sv_free_arenas
2041 Apd |char* |sv_gets |SV* sv|PerlIO* fp|I32 append
2042 Apd |char* |sv_grow |SV* sv|STRLEN newlen
2043 Apd |void |sv_inc |SV* sv
2044 Apd |void |sv_insert |SV* bigsv|STRLEN offset|STRLEN len \
2045 |char* little|STRLEN littlelen
2046 Apd |int |sv_isa |SV* sv|const char* name
2047 Apd |int |sv_isobject |SV* sv
2048 Apd |STRLEN |sv_len |SV* sv
2049 Apd |STRLEN |sv_len_utf8 |SV* sv
2050 Apd |void |sv_magic |SV* sv|SV* obj|int how|const char* name \
2052 Apd |SV* |sv_mortalcopy |SV* oldsv
2053 Apd |SV* |sv_newmortal
2054 Apd |SV* |sv_newref |SV* sv
2055 Ap |char* |sv_peek |SV* sv
2056 Apd |void |sv_pos_u2b |SV* sv|I32* offsetp|I32* lenp
2057 Apd |void |sv_pos_b2u |SV* sv|I32* offsetp
2058 Aopd |char* |sv_pvn_force |SV* sv|STRLEN* lp
2059 Apd |char* |sv_pvutf8n_force|SV* sv|STRLEN* lp
2060 Apd |char* |sv_pvbyten_force|SV* sv|STRLEN* lp
2061 Apd |char* |sv_reftype |SV* sv|int ob
2062 Apd |void |sv_replace |SV* sv|SV* nsv
2063 Apd |void |sv_report_used
2064 Apd |void |sv_reset |char* s|HV* stash
2065 Afpd |void |sv_setpvf |SV* sv|const char* pat|...
2066 Ap |void |sv_vsetpvf |SV* sv|const char* pat|va_list* args
2067 Apd |void |sv_setiv |SV* sv|IV num
2068 Apd |void |sv_setpviv |SV* sv|IV num
2069 Apd |void |sv_setuv |SV* sv|UV num
2070 Apd |void |sv_setnv |SV* sv|NV num
2071 Apd |SV* |sv_setref_iv |SV* rv|const char* classname|IV iv
2072 Apd |SV* |sv_setref_uv |SV* rv|const char* classname|UV uv
2073 Apd |SV* |sv_setref_nv |SV* rv|const char* classname|NV nv
2074 Apd |SV* |sv_setref_pv |SV* rv|const char* classname|void* pv
2075 Apd |SV* |sv_setref_pvn |SV* rv|const char* classname|char* pv \
2077 Apd |void |sv_setpv |SV* sv|const char* ptr
2078 Apd |void |sv_setpvn |SV* sv|const char* ptr|STRLEN len
2079 Aopd |void |sv_setsv |SV* dsv|SV* ssv
2080 Apd |void |sv_taint |SV* sv
2081 Apd |bool |sv_tainted |SV* sv
2082 Apd |int |sv_unmagic |SV* sv|int type
2083 Apd |void |sv_unref |SV* sv
2084 Apd |void |sv_unref_flags |SV* sv|U32 flags
2085 Apd |void |sv_untaint |SV* sv
2086 Apd |bool |sv_upgrade |SV* sv|U32 mt
2087 Apd |void |sv_usepvn |SV* sv|char* ptr|STRLEN len
2088 Apd |void |sv_vcatpvfn |SV* sv|const char* pat|STRLEN patlen \
2089 |va_list* args|SV** svargs|I32 svmax \
2090 |bool *maybe_tainted
2091 Apd |void |sv_vsetpvfn |SV* sv|const char* pat|STRLEN patlen \
2092 |va_list* args|SV** svargs|I32 svmax \
2093 |bool *maybe_tainted
2094 Ap |NV |str_to_version |SV *sv
2095 Ap |SV* |swash_init |char* pkg|char* name|SV* listsv \
2096 |I32 minbits|I32 none
2097 Ap |UV |swash_fetch |SV *sv|U8 *ptr|bool do_utf8
2099 Ap |void |taint_proper |const char* f|const char* s
2100 Ap |UV |to_utf8_lower |U8 *p
2101 Ap |UV |to_utf8_upper |U8 *p
2102 Ap |UV |to_utf8_title |U8 *p
2103 #if defined(UNLINK_ALL_VERSIONS)
2104 Ap |I32 |unlnk |char* f
2106 #if defined(USE_THREADS)
2107 Ap |void |unlock_condpair|void* svv
2109 Ap |void |unsharepvn |const char* sv|I32 len|U32 hash
2110 p |void |unshare_hek |HEK* hek
2111 p |void |utilize |int aver|I32 floor|OP* version|OP* id|OP* arg
2112 Ap |U8* |utf16_to_utf8 |U8* p|U8 *d|I32 bytelen|I32 *newlen
2113 Ap |U8* |utf16_to_utf8_reversed|U8* p|U8 *d|I32 bytelen|I32 *newlen
2114 Adp |STRLEN |utf8_length |U8* s|U8 *e
2115 Apd |IV |utf8_distance |U8 *a|U8 *b
2116 Apd |U8* |utf8_hop |U8 *s|I32 off
2117 ApMd |U8* |utf8_to_bytes |U8 *s|STRLEN *len
2118 ApMd |U8* |bytes_from_utf8|U8 *s|STRLEN *len|bool *is_utf8
2119 ApMd |U8* |bytes_to_utf8 |U8 *s|STRLEN *len
2120 Apd |UV |utf8_to_uvchr |U8 *s|STRLEN* retlen
2121 Apd |UV |utf8_to_uvuni |U8 *s|STRLEN* retlen
2122 Adp |UV |utf8n_to_uvchr |U8 *s|STRLEN curlen|STRLEN* retlen|U32 flags
2123 Adp |UV |utf8n_to_uvuni |U8 *s|STRLEN curlen|STRLEN* retlen|U32 flags
2124 Apd |U8* |uvchr_to_utf8 |U8 *d|UV uv
2125 Apd |U8* |uvuni_to_utf8 |U8 *d|UV uv
2126 p |void |vivify_defelem |SV* sv
2127 p |void |vivify_ref |SV* sv|U32 to_what
2128 p |I32 |wait4pid |Pid_t pid|int* statusp|int flags
2129 p |void |report_evil_fh |GV *gv|IO *io|I32 op
2130 pd |void |report_uninit
2131 Afpd |void |warn |const char* pat|...
2132 Ap |void |vwarn |const char* pat|va_list* args
2133 Afp |void |warner |U32 err|const char* pat|...
2134 Ap |void |vwarner |U32 err|const char* pat|va_list* args
2135 p |void |watch |char** addr
2136 Ap |I32 |whichsig |char* sig
2137 p |int |yyerror |char* s
2138 #ifdef USE_PURE_BISON
2139 p |int |yylex_r |YYSTYPE *lvalp|int *lcharp
2143 p |int |yywarn |char* s
2144 #if defined(MYMALLOC)
2145 Ap |void |dump_mstats |char* s
2146 Ap |int |get_mstats |perl_mstats_t *buf|int buflen|int level
2148 Anp |Malloc_t|safesysmalloc |MEM_SIZE nbytes
2149 Anp |Malloc_t|safesyscalloc |MEM_SIZE elements|MEM_SIZE size
2150 Anp |Malloc_t|safesysrealloc|Malloc_t where|MEM_SIZE nbytes
2151 Anp |Free_t |safesysfree |Malloc_t where
2152 #if defined(LEAKTEST)
2153 Anp |Malloc_t|safexmalloc |I32 x|MEM_SIZE size
2154 Anp |Malloc_t|safexcalloc |I32 x|MEM_SIZE elements|MEM_SIZE size
2155 Anp |Malloc_t|safexrealloc |Malloc_t where|MEM_SIZE size
2156 Anp |void |safexfree |Malloc_t where
2158 #if defined(PERL_GLOBAL_STRUCT)
2159 Ap |struct perl_vars *|GetVars
2161 Ap |int |runops_standard
2162 Ap |int |runops_debug
2163 #if defined(USE_THREADS)
2164 Ap |SV* |sv_lock |SV *sv
2166 Afpd |void |sv_catpvf_mg |SV *sv|const char* pat|...
2167 Ap |void |sv_vcatpvf_mg |SV* sv|const char* pat|va_list* args
2168 Apd |void |sv_catpv_mg |SV *sv|const char *ptr
2169 Apd |void |sv_catpvn_mg |SV *sv|const char *ptr|STRLEN len
2170 Apd |void |sv_catsv_mg |SV *dstr|SV *sstr
2171 Afpd |void |sv_setpvf_mg |SV *sv|const char* pat|...
2172 Ap |void |sv_vsetpvf_mg |SV* sv|const char* pat|va_list* args
2173 Apd |void |sv_setiv_mg |SV *sv|IV i
2174 Apd |void |sv_setpviv_mg |SV *sv|IV iv
2175 Apd |void |sv_setuv_mg |SV *sv|UV u
2176 Apd |void |sv_setnv_mg |SV *sv|NV num
2177 Apd |void |sv_setpv_mg |SV *sv|const char *ptr
2178 Apd |void |sv_setpvn_mg |SV *sv|const char *ptr|STRLEN len
2179 Apd |void |sv_setsv_mg |SV *dstr|SV *sstr
2180 Apd |void |sv_usepvn_mg |SV *sv|char *ptr|STRLEN len
2181 Ap |MGVTBL*|get_vtbl |int vtbl_id
2182 p |char* |pv_display |SV *sv|char *pv|STRLEN cur|STRLEN len \
2184 Afp |void |dump_indent |I32 level|PerlIO *file|const char* pat|...
2185 Ap |void |dump_vindent |I32 level|PerlIO *file|const char* pat \
2187 Ap |void |do_gv_dump |I32 level|PerlIO *file|char *name|GV *sv
2188 Ap |void |do_gvgv_dump |I32 level|PerlIO *file|char *name|GV *sv
2189 Ap |void |do_hv_dump |I32 level|PerlIO *file|char *name|HV *sv
2190 Ap |void |do_magic_dump |I32 level|PerlIO *file|MAGIC *mg|I32 nest \
2191 |I32 maxnest|bool dumpops|STRLEN pvlim
2192 Ap |void |do_op_dump |I32 level|PerlIO *file|OP *o
2193 Ap |void |do_pmop_dump |I32 level|PerlIO *file|PMOP *pm
2194 Ap |void |do_sv_dump |I32 level|PerlIO *file|SV *sv|I32 nest \
2195 |I32 maxnest|bool dumpops|STRLEN pvlim
2196 Ap |void |magic_dump |MAGIC *mg
2197 #if defined(PERL_FLEXIBLE_EXCEPTIONS)
2198 Ap |void* |default_protect|volatile JMPENV *je|int *excpt \
2199 |protect_body_t body|...
2200 Ap |void* |vdefault_protect|volatile JMPENV *je|int *excpt \
2201 |protect_body_t body|va_list *args
2203 Ap |void |reginitcolors
2204 Apd |char* |sv_2pv_nolen |SV* sv
2205 Apd |char* |sv_2pvutf8_nolen|SV* sv
2206 Apd |char* |sv_2pvbyte_nolen|SV* sv
2207 Apd |char* |sv_pv |SV *sv
2208 Apd |char* |sv_pvutf8 |SV *sv
2209 Apd |char* |sv_pvbyte |SV *sv
2210 Aopd |STRLEN |sv_utf8_upgrade|SV *sv
2211 ApdM |bool |sv_utf8_downgrade|SV *sv|bool fail_ok
2212 Apd |void |sv_utf8_encode |SV *sv
2213 ApdM |bool |sv_utf8_decode |SV *sv
2214 Apd |void |sv_force_normal|SV *sv
2215 Apd |void |sv_force_normal_flags|SV *sv|U32 flags
2216 Ap |void |tmps_grow |I32 n
2217 Apd |SV* |sv_rvweaken |SV *sv
2218 p |int |magic_killbackrefs|SV *sv|MAGIC *mg
2219 Ap |OP* |newANONATTRSUB |I32 floor|OP *proto|OP *attrs|OP *block
2220 Ap |CV* |newATTRSUB |I32 floor|OP *o|OP *proto|OP *attrs|OP *block
2221 Ap |void |newMYSUB |I32 floor|OP *o|OP *proto|OP *attrs|OP *block
2222 p |OP * |my_attrs |OP *o|OP *attrs
2223 p |void |boot_core_xsutils
2224 #if defined(USE_ITHREADS)
2225 Ap |PERL_CONTEXT*|cx_dup |PERL_CONTEXT* cx|I32 ix|I32 max|clone_params* param
2226 Ap |PERL_SI*|si_dup |PERL_SI* si|clone_params* param
2227 Ap |ANY* |ss_dup |PerlInterpreter* proto_perl|clone_params* param
2228 Ap |void* |any_dup |void* v|PerlInterpreter* proto_perl
2229 Ap |HE* |he_dup |HE* e|bool shared|clone_params* param
2230 Ap |REGEXP*|re_dup |REGEXP* r|clone_params* param
2231 Ap |PerlIO*|fp_dup |PerlIO* fp|char type
2232 Ap |DIR* |dirp_dup |DIR* dp
2233 Ap |GP* |gp_dup |GP* gp|clone_params* param
2234 Ap |MAGIC* |mg_dup |MAGIC* mg|clone_params* param
2235 Ap |SV* |sv_dup |SV* sstr|clone_params* param
2236 #if defined(HAVE_INTERP_INTERN)
2237 Ap |void |sys_intern_dup |struct interp_intern* src \
2238 |struct interp_intern* dst
2240 Ap |PTR_TBL_t*|ptr_table_new
2241 Ap |void* |ptr_table_fetch|PTR_TBL_t *tbl|void *sv
2242 Ap |void |ptr_table_store|PTR_TBL_t *tbl|void *oldsv|void *newsv
2243 Ap |void |ptr_table_split|PTR_TBL_t *tbl
2244 Ap |void |ptr_table_clear|PTR_TBL_t *tbl
2245 Ap |void |ptr_table_free|PTR_TBL_t *tbl
2247 #if defined(HAVE_INTERP_INTERN)
2248 Ap |void |sys_intern_clear
2249 Ap |void |sys_intern_init
2252 #if defined(PERL_OBJECT)
2258 #if defined(PERL_IN_AV_C) || defined(PERL_DECL_PROT)
2259 s |I32 |avhv_index_sv |SV* sv
2260 s |I32 |avhv_index |AV* av|SV* sv|U32 hash
2263 #if defined(PERL_IN_DOOP_C) || defined(PERL_DECL_PROT)
2264 s |I32 |do_trans_simple |SV *sv
2265 s |I32 |do_trans_count |SV *sv
2266 s |I32 |do_trans_complex |SV *sv
2267 s |I32 |do_trans_simple_utf8 |SV *sv
2268 s |I32 |do_trans_count_utf8 |SV *sv
2269 s |I32 |do_trans_complex_utf8 |SV *sv
2272 #if defined(PERL_IN_GV_C) || defined(PERL_DECL_PROT)
2273 s |void |gv_init_sv |GV *gv|I32 sv_type
2274 s |void |require_errno |GV *gv
2277 #if defined(PERL_IN_HV_C) || defined(PERL_DECL_PROT)
2278 s |void |hsplit |HV *hv
2279 s |void |hfreeentries |HV *hv
2282 s |void |del_he |HE *p
2283 s |HEK* |save_hek |const char *str|I32 len|U32 hash
2284 s |void |hv_magic_check |HV *hv|bool *needs_copy|bool *needs_store
2287 #if defined(PERL_IN_MG_C) || defined(PERL_DECL_PROT)
2288 s |void |save_magic |I32 mgs_ix|SV *sv
2289 s |int |magic_methpack |SV *sv|MAGIC *mg|char *meth
2290 s |int |magic_methcall |SV *sv|MAGIC *mg|char *meth|I32 f \
2294 #if defined(PERL_IN_OP_C) || defined(PERL_DECL_PROT)
2295 s |I32 |list_assignment|OP *o
2296 s |void |bad_type |I32 n|char *t|char *name|OP *kid
2297 s |void |cop_free |COP *cop
2298 s |OP* |modkids |OP *o|I32 type
2299 s |void |no_bareword_allowed|OP *o
2300 s |OP* |no_fh_allowed |OP *o
2301 s |OP* |scalarboolean |OP *o
2302 s |OP* |too_few_arguments|OP *o|char* name
2303 s |OP* |too_many_arguments|OP *o|char* name
2304 s |PADOFFSET|pad_addlex |SV* name
2305 s |PADOFFSET|pad_findlex |char* name|PADOFFSET newoff|U32 seq \
2306 |CV* startcv|I32 cx_ix|I32 saweval|U32 flags
2308 s |OP* |new_logop |I32 type|I32 flags|OP **firstp|OP **otherp
2309 s |void |simplify_sort |OP *o
2310 s |bool |is_handle_constructor |OP *o|I32 argnum
2311 s |char* |gv_ename |GV *gv
2312 # if defined(DEBUG_CLOSURES)
2313 s |void |cv_dump |CV *cv
2315 s |CV* |cv_clone2 |CV *proto|CV *outside
2316 s |bool |scalar_mod_type|OP *o|I32 type
2317 s |OP * |my_kid |OP *o|OP *attrs
2318 s |OP * |dup_attrlist |OP *o
2319 s |void |apply_attrs |HV *stash|SV *target|OP *attrs
2320 # if defined(PL_OP_SLAB_ALLOC)
2321 s |void* |Slab_Alloc |int m|size_t sz
2325 #if defined(PERL_IN_PERL_C) || defined(PERL_DECL_PROT)
2326 s |void |find_beginning
2327 s |void |forbid_setid |char *
2328 s |void |incpush |char *|int|int
2329 s |void |init_interp
2332 s |void |init_main_stash
2333 s |void |init_perllib
2334 s |void |init_postdump_symbols|int|char **|char **
2335 s |void |init_predump_symbols
2336 rs |void |my_exit_jump
2337 s |void |nuke_stacks
2338 s |void |open_script |char *|bool|SV *|int *fd
2339 s |void |usage |char *
2340 s |void |validate_suid |char *|char*|int
2341 # if defined(IAMSUID)
2342 s |int |fd_on_nosuid_fs|int fd
2344 s |void* |parse_body |char **env|XSINIT_t xsinit
2345 s |void* |run_body |I32 oldscope
2346 s |void |call_body |OP *myop|int is_eval
2347 s |void* |call_list_body |CV *cv
2348 #if defined(PERL_FLEXIBLE_EXCEPTIONS)
2349 s |void* |vparse_body |va_list args
2350 s |void* |vrun_body |va_list args
2351 s |void* |vcall_body |va_list args
2352 s |void* |vcall_list_body|va_list args
2354 # if defined(USE_THREADS)
2355 s |struct perl_thread * |init_main_thread
2359 #if defined(PERL_IN_PP_C) || defined(PERL_DECL_PROT)
2360 s |SV* |refto |SV* sv
2364 #if defined(PERL_IN_PP_PACK_C) || defined(PERL_DECL_PROT)
2365 s |void |doencodes |SV* sv|char* s|I32 len
2366 s |SV* |mul128 |SV *sv|U8 m
2367 s |SV* |is_an_int |char *s|STRLEN l
2368 s |int |div128 |SV *pnum|bool *done
2371 #if defined(PERL_IN_PP_CTL_C) || defined(PERL_DECL_PROT)
2372 s |OP* |docatch |OP *o
2373 s |void* |docatch_body
2374 #if defined(PERL_FLEXIBLE_EXCEPTIONS)
2375 s |void* |vdocatch_body |va_list args
2377 s |OP* |dofindlabel |OP *o|char *label|OP **opstack|OP **oplimit
2378 s |void |doparseform |SV *sv
2379 s |I32 |dopoptoeval |I32 startingblock
2380 s |I32 |dopoptolabel |char *label
2381 s |I32 |dopoptoloop |I32 startingblock
2382 s |I32 |dopoptosub |I32 startingblock
2383 s |I32 |dopoptosub_at |PERL_CONTEXT* cxstk|I32 startingblock
2384 s |void |save_lines |AV *array|SV *sv
2385 s |OP* |doeval |int gimme|OP** startop
2386 s |PerlIO *|doopen_pmc |const char *name|const char *mode
2387 s |void |qsortsv |SV ** array|size_t num_elts|SVCOMPARE_t f
2390 #if defined(PERL_IN_PP_HOT_C) || defined(PERL_DECL_PROT)
2391 s |int |do_maybe_phash |AV *ary|SV **lelem|SV **firstlelem \
2392 |SV **relem|SV **lastrelem
2393 s |void |do_oddball |HV *hash|SV **relem|SV **firstrelem
2394 s |CV* |get_db_sub |SV **svp|CV *cv
2395 s |SV* |method_common |SV* meth|U32* hashp
2398 #if defined(PERL_IN_PP_SYS_C) || defined(PERL_DECL_PROT)
2399 s |OP* |doform |CV *cv|GV *gv|OP *retop
2400 s |int |emulate_eaccess|const char* path|Mode_t mode
2401 # if !defined(HAS_MKDIR) || !defined(HAS_RMDIR)
2402 s |int |dooneliner |char *cmd|char *filename
2406 #if defined(PERL_IN_REGCOMP_C) || defined(PERL_DECL_PROT)
2407 s |regnode*|reg |struct RExC_state_t*|I32|I32 *
2408 s |regnode*|reganode |struct RExC_state_t*|U8|U32
2409 s |regnode*|regatom |struct RExC_state_t*|I32 *
2410 s |regnode*|regbranch |struct RExC_state_t*|I32 *|I32
2411 s |void |reguni |struct RExC_state_t*|UV|char *|STRLEN*
2412 s |regnode*|regclass |struct RExC_state_t*
2413 s |I32 |regcurly |char *
2414 s |regnode*|reg_node |struct RExC_state_t*|U8
2415 s |regnode*|regpiece |struct RExC_state_t*|I32 *
2416 s |void |reginsert |struct RExC_state_t*|U8|regnode *
2417 s |void |regoptail |struct RExC_state_t*|regnode *|regnode *
2418 s |void |regtail |struct RExC_state_t*|regnode *|regnode *
2419 s |char*|regwhite |char *|char *
2420 s |char*|nextchar |struct RExC_state_t*
2422 s |regnode*|dumpuntil |regnode *start|regnode *node \
2423 |regnode *last|SV* sv|I32 l
2424 s |void |put_byte |SV* sv|int c
2426 s |void |scan_commit |struct RExC_state_t*|struct scan_data_t *data
2427 s |void |cl_anything |struct RExC_state_t*|struct regnode_charclass_class *cl
2428 s |int |cl_is_anything |struct regnode_charclass_class *cl
2429 s |void |cl_init |struct RExC_state_t*|struct regnode_charclass_class *cl
2430 s |void |cl_init_zero |struct RExC_state_t*|struct regnode_charclass_class *cl
2431 s |void |cl_and |struct regnode_charclass_class *cl \
2432 |struct regnode_charclass_class *and_with
2433 s |void |cl_or |struct RExC_state_t*|struct regnode_charclass_class *cl \
2434 |struct regnode_charclass_class *or_with
2435 s |I32 |study_chunk |struct RExC_state_t*|regnode **scanp|I32 *deltap \
2436 |regnode *last|struct scan_data_t *data \
2438 s |I32 |add_data |struct RExC_state_t*|I32 n|char *s
2439 rs |void|re_croak2 |const char* pat1|const char* pat2|...
2440 s |I32 |regpposixcc |struct RExC_state_t*|I32 value
2441 s |void |checkposixcc |struct RExC_state_t*
2444 #if defined(PERL_IN_REGEXEC_C) || defined(PERL_DECL_PROT)
2445 s |I32 |regmatch |regnode *prog
2446 s |I32 |regrepeat |regnode *p|I32 max
2447 s |I32 |regrepeat_hard |regnode *p|I32 max|I32 *lp
2448 s |I32 |regtry |regexp *prog|char *startpos
2449 s |bool |reginclass |regnode *n|U8 *p|bool do_utf8sv_is_utf8
2450 s |CHECKPOINT|regcppush |I32 parenfloor
2452 s |char*|regcp_set_to |I32 ss
2453 s |void |cache_re |regexp *prog
2454 s |U8* |reghop |U8 *pos|I32 off
2455 s |U8* |reghop3 |U8 *pos|I32 off|U8 *lim
2456 s |U8* |reghopmaybe |U8 *pos|I32 off
2457 s |U8* |reghopmaybe3 |U8 *pos|I32 off|U8 *lim
2458 s |char* |find_byclass |regexp * prog|regnode *c|char *s|char *strend|char *startpos|I32 norun
2461 #if defined(PERL_IN_RUN_C) || defined(PERL_DECL_PROT)
2463 s |CV* |deb_curcv |I32 ix
2464 s |void |debprof |OP *o
2468 #if defined(PERL_IN_SCOPE_C) || defined(PERL_DECL_PROT)
2469 s |SV* |save_scalar_at |SV **sptr
2472 #if defined(PERL_IN_SV_C) || defined(PERL_DECL_PROT)
2491 s |XPVIV* |new_xpviv
2492 s |XPVNV* |new_xpvnv
2493 s |XPVCV* |new_xpvcv
2494 s |XPVAV* |new_xpvav
2495 s |XPVHV* |new_xpvhv
2496 s |XPVMG* |new_xpvmg
2497 s |XPVLV* |new_xpvlv
2498 s |XPVBM* |new_xpvbm
2500 s |void |del_xiv |XPVIV* p
2501 s |void |del_xnv |XPVNV* p
2502 s |void |del_xpv |XPV* p
2503 s |void |del_xpviv |XPVIV* p
2504 s |void |del_xpvnv |XPVNV* p
2505 s |void |del_xpvcv |XPVCV* p
2506 s |void |del_xpvav |XPVAV* p
2507 s |void |del_xpvhv |XPVHV* p
2508 s |void |del_xpvmg |XPVMG* p
2509 s |void |del_xpvlv |XPVLV* p
2510 s |void |del_xpvbm |XPVBM* p
2511 s |void |del_xrv |XRV* p
2512 s |void |sv_unglob |SV* sv
2513 s |void |not_a_number |SV *sv
2514 s |I32 |visit |SVFUNC_t f
2515 s |void |sv_add_backref |SV *tsv|SV *sv
2516 s |void |sv_del_backref |SV *sv
2518 s |void |del_sv |SV *p
2520 # if !defined(NV_PRESERVES_UV)
2521 s |int |sv_2iuv_non_preserve |SV *sv|I32 numtype
2523 s |I32 |expect_number |char** pattern
2525 # if defined(USE_ITHREADS)
2526 s |SV* |gv_share |SV *sv
2530 #if defined(PERL_IN_TOKE_C) || defined(PERL_DECL_PROT)
2532 s |void |force_next |I32 type
2533 s |char* |force_version |char *start
2534 s |char* |force_word |char *start|int token|int check_keyword \
2535 |int allow_pack|int allow_tick
2536 s |SV* |tokeq |SV *sv
2537 s |int |pending_ident
2538 s |char* |scan_const |char *start
2539 s |char* |scan_formline |char *s
2540 s |char* |scan_heredoc |char *s
2541 s |char* |scan_ident |char *s|char *send|char *dest \
2542 |STRLEN destlen|I32 ck_uni
2543 s |char* |scan_inputsymbol|char *start
2544 s |char* |scan_pat |char *start|I32 type
2545 s |char* |scan_str |char *start|int keep_quoted|int keep_delims
2546 s |char* |scan_subst |char *start
2547 s |char* |scan_trans |char *start
2548 s |char* |scan_word |char *s|char *dest|STRLEN destlen \
2549 |int allow_package|STRLEN *slp
2550 s |char* |skipspace |char *s
2551 s |char* |swallow_bom |U8 *s
2552 s |void |checkcomma |char *s|char *name|char *what
2553 s |void |force_ident |char *s|int kind
2554 s |void |incline |char *s
2555 s |int |intuit_method |char *s|GV *gv
2556 s |int |intuit_more |char *s
2557 s |I32 |lop |I32 f|int x|char *s
2558 s |void |missingterm |char *s
2559 s |void |no_op |char *what|char *s
2563 s |I32 |sublex_start
2564 s |char * |filter_gets |SV *sv|PerlIO *fp|STRLEN append
2565 s |HV * |find_in_my_stash|char *pkgname|I32 len
2566 s |SV* |new_constant |char *s|STRLEN len|const char *key|SV *sv \
2567 |SV *pv|const char *type
2568 # if defined(DEBUGGING)
2569 s |void |tokereport |char *thing|char *s|I32 rv
2571 s |int |ao |int toketype
2573 s |char* |incl_perldb
2575 s |I32 |utf16_textfilter|int idx|SV *sv|int maxlen
2576 s |I32 |utf16rev_textfilter|int idx|SV *sv|int maxlen
2578 # if defined(CRIPPLED_CC)
2579 s |int |uni |I32 f|char *s
2581 # if defined(PERL_CR_FILTER)
2582 s |I32 |cr_textfilter |int idx|SV *sv|int maxlen
2586 #if defined(PERL_IN_UNIVERSAL_C) || defined(PERL_DECL_PROT)
2587 s |SV*|isa_lookup |HV *stash|const char *name|int len|int level
2590 #if defined(PERL_IN_LOCALE_C) || defined(PERL_DECL_PROT)
2591 s |char* |stdize_locale |char* locs
2594 #if defined(PERL_IN_UTIL_C) || defined(PERL_DECL_PROT)
2595 s |COP* |closest_cop |COP *cop|OP *o
2597 # if defined(LEAKTEST)
2602 #if defined(PERL_OBJECT)
2608 Apd |void |sv_setsv_flags |SV* dsv|SV* ssv|I32 flags
2609 Apd |void |sv_catpvn_flags|SV* sv|const char* ptr|STRLEN len|I32 flags
2610 Apd |void |sv_catsv_flags |SV* dsv|SV* ssv|I32 flags
2611 Apd |STRLEN |sv_utf8_upgrade_flags|SV *sv|I32 flags
2612 Apd |char* |sv_pvn_force_flags|SV* sv|STRLEN* lp|I32 flags
2613 Apd |char* |sv_2pv_flags |SV* sv|STRLEN* lp|I32 flags
2614 Ap |char* |my_atof2 |const char *s|NV* value