perl5.git.perl.org Git - perl5.git/blame_incremental

... / ...

Commit	Line	Data
	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\|bool ua\|I32 len1\|const char* b\|bool ub\|I32 len2
	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\|OPblock\|OPcont
	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