This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Put back the cygwin32 Configure fix of 3582 undone by 3597.
[perl5.git] / embed.pl
CommitLineData
5f05dabc 1#!/usr/bin/perl -w
e50aee73 2
5f05dabc
PP
3require 5.003;
4
cea2e8a9
GS
5#
6# See database of global and static function prototypes at the __END__.
7# This is used to generate prototype headers under various configurations,
8# export symbols lists for different platforms, and macros to provide an
9# implicit interpreter context argument.
10#
11
12my $END = tell DATA;
13
14# walk table providing an array of components in each line to
15# subroutine, printing the result
16sub walk_table (&@) {
17 my $function = shift;
18 my $filename = shift || '-';
19 my $leader = shift;
20 my $trailer = shift;
21 my $F;
22 local *F;
23 if (ref $filename) { # filehandle
24 $F = $filename;
25 }
26 else {
27 open F, ">$filename" or die "Can't open $filename: $!";
28 $F = \*F;
29 }
30 print $F $leader if $leader;
31 seek DATA, $END, 0; # so we may restart
32 while (<DATA>) {
33 chomp;
34 while (s|\\$||) {
35 $_ .= <DATA>;
36 chomp;
37 }
38 my @args;
39 if (/^\s*(#|$)/) {
40 @args = $_;
41 }
42 else {
43 @args = split /\s*\|\s*/, $_;
44 }
45 print $F $function->(@args);
46 }
47 print $F $trailer if $trailer;
48 close $F unless ref $filename;
49}
50
51sub munge_c_files () {
52 my $functions = {};
53 unless (@ARGV) {
54 warn "\@ARGV empty, nothing to do\n";
55 return;
56 }
57 walk_table {
58 if (@_ > 1) {
59 $functions->{$_[2]} = \@_ if $_[@_-1] =~ /\.\.\./;
60 }
61 } '/dev/null';
62 local $^I = '.bak';
63 while (<>) {
64# if (/^#\s*include\s+"perl.h"/) {
65# my $file = uc $ARGV;
66# $file =~ s/\./_/g;
67# print "#define PERL_IN_$file\n";
68# }
69# s{^(\w+)\s*\(}
70# {
71# my $f = $1;
72# my $repl = "$f(";
73# if (exists $functions->{$f}) {
74# my $flags = $functions->{$f}[0];
75# $repl = "Perl_$repl" if $flags =~ /p/;
76# unless ($flags =~ /n/) {
77# $repl .= "pTHX";
78# $repl .= "_ " if @{$functions->{$f}} > 3;
79# }
80# warn("$ARGV:$.:$repl\n");
81# }
82# $repl;
83# }e;
84 s{(\b(\w+)[ \t]*\([ \t]*(?!aTHX))}
85 {
86 my $repl = $1;
87 my $f = $2;
88 if (exists $functions->{$f}) {
89 $repl .= "aTHX_ ";
90 warn("$ARGV:$.:$`#$repl#$'");
91 }
92 $repl;
93 }eg;
94 print;
95 close ARGV if eof; # restart $.
96 }
97 exit;
98}
99
100#munge_c_files();
101
102# generate proto.h
0cb96387
GS
103my $wrote_protected = 0;
104
cea2e8a9
GS
105sub write_protos {
106 my $ret = "";
107 if (@_ == 1) {
108 my $arg = shift;
0cb96387
GS
109 $ret .= "$arg\n" if $arg =~ /^#\s*(if|ifdef|else|endif)\b/
110 or $arg =~ /^\s*(public|protected|private):/;
cea2e8a9
GS
111 }
112 else {
113 my ($flags,$retval,$func,@args) = @_;
114 if ($flags =~ /s/) {
115 $retval = "STATIC $retval";
116 $func = "S_$func";
117 }
0cb96387
GS
118 else {
119 $retval = "VIRTUAL $retval";
120 if ($flags =~ /p/) {
121 $func = "Perl_$func";
122 }
cea2e8a9
GS
123 }
124 $ret .= "$retval\t$func(";
125 unless ($flags =~ /n/) {
126 $ret .= "pTHX";
127 $ret .= "_ " if @args;
128 }
129 if (@args) {
130 $ret .= join ", ", @args;
131 }
132 else {
133 $ret .= "void" if $flags =~ /n/;
134 }
135 $ret .= ")";
136 $ret .= " __attribute__((noreturn))" if $flags =~ /r/;
137 $ret .= ";\n";
138 }
139 $ret;
140}
141
142# generates global.sym, and populates %global with global symbols
143sub write_global_sym {
144 my $ret = "";
145 if (@_ > 1) {
146 my ($flags,$retval,$func,@args) = @_;
147 unless ($flags =~ /s/) {
148 $func = "Perl_$func" if $flags =~ /p/;
149 $ret = "$func\n";
150 }
151 }
152 $ret;
153}
154
155
156walk_table(\&write_protos, 'proto.h', <<'EOT');
157/*
158 * !!!!!!! DO NOT EDIT THIS FILE !!!!!!!
159 * This file is autogenerated from data in embed.pl. Edit that file
160 * and run 'make regen_headers' to effect changes.
161 */
162
163EOT
164
165walk_table(\&write_global_sym, 'global.sym', <<'EOT');
166#
167# !!!!!!! DO NOT EDIT THIS FILE !!!!!!!
168# This file is autogenerated from data in embed.pl. Edit that file
169# and run 'make regen_headers' to effect changes.
170#
171
172EOT
173
709f4e38
GS
174# XXX others that may need adding
175# warnhook
176# hints
177# copline
84fee439
NIS
178my @extvars = qw(sv_undef sv_yes sv_no na dowarn
179 curcop compiling
180 tainting tainted stack_base stack_sp sv_arenaroot
256a4781 181 no_modify
84fee439
NIS
182 curstash DBsub DBsingle debstash
183 rsfp
184 stdingv
6b88bc9c
GS
185 defgv
186 errgv
3070f6ec
GS
187 rsfp_filters
188 perldb
709f4e38
GS
189 diehook
190 dirty
191 perl_destruct_level
84fee439
NIS
192 );
193
5f05dabc
PP
194sub readsyms (\%$) {
195 my ($syms, $file) = @_;
5f05dabc
PP
196 local (*FILE, $_);
197 open(FILE, "< $file")
198 or die "embed.pl: Can't open $file: $!\n";
199 while (<FILE>) {
200 s/[ \t]*#.*//; # Delete comments.
201 if (/^\s*(\S+)\s*$/) {
22c35a8c
GS
202 my $sym = $1;
203 warn "duplicate symbol $sym while processing $file\n"
204 if exists $$syms{$sym};
205 $$syms{$sym} = 1;
5f05dabc
PP
206 }
207 }
208 close(FILE);
209}
210
cea2e8a9
GS
211# Perl_pp_* and Perl_ck_* are in pp.sym
212readsyms my %ppsym, 'pp.sym';
5f05dabc 213
c6af7a1a
GS
214sub readvars(\%$$@) {
215 my ($syms, $file,$pre,$keep_pre) = @_;
d4cce5f1
NIS
216 local (*FILE, $_);
217 open(FILE, "< $file")
218 or die "embed.pl: Can't open $file: $!\n";
219 while (<FILE>) {
220 s/[ \t]*#.*//; # Delete comments.
3fe35a81 221 if (/PERLVARI?C?\($pre(\w+)/) {
22c35a8c 222 my $sym = $1;
c6af7a1a 223 $sym = $pre . $sym if $keep_pre;
22c35a8c
GS
224 warn "duplicate symbol $sym while processing $file\n"
225 if exists $$syms{$sym};
226 $$syms{$sym} = 1;
d4cce5f1
NIS
227 }
228 }
229 close(FILE);
230}
231
232my %intrp;
233my %thread;
234
235readvars %intrp, 'intrpvar.h','I';
236readvars %thread, 'thrdvar.h','T';
22239a37 237readvars %globvar, 'perlvars.h','G';
c6af7a1a 238readvars %objvar, 'intrpvar.h','pi', 1;
d4cce5f1 239
d4cce5f1
NIS
240foreach my $sym (sort keys %thread)
241 {
34b58025 242 warn "$sym in intrpvar.h as well as thrdvar.h\n" if exists $intrp{$sym};
d4cce5f1
NIS
243 }
244
c6af7a1a
GS
245sub undefine ($) {
246 my ($sym) = @_;
247 "#undef $sym\n";
248}
249
5f05dabc
PP
250sub hide ($$) {
251 my ($from, $to) = @_;
252 my $t = int(length($from) / 8);
253 "#define $from" . "\t" x ($t < 3 ? 3 - $t : 1) . "$to\n";
254}
c6af7a1a 255
c6af7a1a
GS
256sub objxsub_var ($) {
257 my ($sym) = @_;
258 undefine("PL_$sym") . hide("PL_$sym", "pPerl->PL_$sym");
259}
260
3280af22
NIS
261sub embedvar ($) {
262 my ($sym) = @_;
263# hide($sym, "Perl_$sym");
264 return '';
265}
266
d4cce5f1
NIS
267sub multon ($$$) {
268 my ($sym,$pre,$ptr) = @_;
3280af22 269 hide("PL_$sym", "($ptr$pre$sym)");
5f05dabc 270}
d4cce5f1
NIS
271sub multoff ($$) {
272 my ($sym,$pre) = @_;
533c011a 273 return hide("PL_$pre$sym", "PL_$sym");
5f05dabc
PP
274}
275
276unlink 'embed.h';
cea2e8a9 277open(EM, '> embed.h') or die "Can't create embed.h: $!\n";
e50aee73
AD
278
279print EM <<'END';
76b72cf1 280/* !!!!!!! DO NOT EDIT THIS FILE !!!!!!!
cea2e8a9 281 This file is built by embed.pl from data in embed.pl, pp.sym, intrpvar.h,
c6af7a1a 282 perlvars.h and thrdvar.h. Any changes made here will be lost!
76b72cf1 283*/
e50aee73
AD
284
285/* (Doing namespace management portably in C is really gross.) */
286
22c35a8c 287/* NO_EMBED is no longer supported. i.e. EMBED is always active. */
820c3be9 288
22c35a8c 289/* Hide global symbols */
5f05dabc 290
22c35a8c 291#if !defined(PERL_OBJECT)
cea2e8a9 292#if !defined(PERL_IMPLICIT_CONTEXT)
e50aee73 293
e50aee73
AD
294END
295
cea2e8a9
GS
296walk_table {
297 my $ret = "";
298 if (@_ == 1) {
299 my $arg = shift;
300 $ret .= "$arg\n" if $arg =~ /^#\s*(if|ifdef|else|endif)\b/;
301 }
302 else {
303 my ($flags,$retval,$func,@args) = @_;
304 unless ($flags =~ /o/) {
305 if ($flags =~ /s/) {
306 $ret .= hide($func,"S_$func");
307 }
308 elsif ($flags =~ /p/) {
309 $ret .= hide($func,"Perl_$func");
310 }
311 }
312 }
313 $ret;
314} \*EM;
315
316for $sym (sort keys %ppsym) {
317 $sym =~ s/^Perl_//;
318 print EM hide($sym, "Perl_$sym");
319}
320
321print EM <<'END';
322
323#else /* PERL_IMPLICIT_CONTEXT */
324
325END
326
327my @az = ('a'..'z');
328
329walk_table {
330 my $ret = "";
331 if (@_ == 1) {
332 my $arg = shift;
333 $ret .= "$arg\n" if $arg =~ /^#\s*(if|ifdef|else|endif)\b/;
334 }
335 else {
336 my ($flags,$retval,$func,@args) = @_;
337 unless ($flags =~ /o/) {
338 my $args = scalar @args;
339 if ($args and $args[$args-1] =~ /\.\.\./) {
340 # we're out of luck for varargs functions under CPP
341 }
342 elsif ($flags =~ /n/) {
343 if ($flags =~ /s/) {
344 $ret .= hide($func,"S_$func");
345 }
346 elsif ($flags =~ /p/) {
347 $ret .= hide($func,"Perl_$func");
348 }
349 }
350 else {
351 my $alist = join(",", @az[0..$args-1]);
352 $ret = "#define $func($alist)";
353 my $t = int(length($ret) / 8);
354 $ret .= "\t" x ($t < 4 ? 4 - $t : 1);
355 if ($flags =~ /s/) {
356 $ret .= "S_$func(aTHX";
357 }
358 elsif ($flags =~ /p/) {
359 $ret .= "Perl_$func(aTHX";
360 }
361 $ret .= "_ " if $alist;
362 $ret .= $alist . ")\n";
363 }
364 }
365 }
366 $ret;
367} \*EM;
368
369for $sym (sort keys %ppsym) {
370 $sym =~ s/^Perl_//;
371 if ($sym =~ /^ck_/) {
372 print EM hide("$sym(a)", "Perl_$sym(aTHX_ a)");
373 }
374 elsif ($sym =~ /^pp_/) {
375 print EM hide("$sym()", "Perl_$sym(aTHX)");
376 }
377 else {
378 warn "Illegal symbol '$sym' in pp.sym";
379 }
e50aee73
AD
380}
381
e50aee73
AD
382print EM <<'END';
383
cea2e8a9 384#endif /* PERL_IMPLICIT_CONTEXT */
22c35a8c
GS
385#else /* PERL_OBJECT */
386
387END
388
cea2e8a9
GS
389walk_table {
390 my $ret = "";
391 if (@_ == 1) {
392 my $arg = shift;
393 $ret .= "$arg\n" if $arg =~ /^#\s*(if|ifdef|else|endif)\b/;
394 }
395 else {
396 my ($flags,$retval,$func,@args) = @_;
0cb96387
GS
397 if ($flags =~ /s/) {
398 $ret .= hide("S_$func","CPerlObj::S_$func");
399 $ret .= hide($func,"S_$func");
400 }
401 elsif ($flags =~ /p/) {
402 $ret .= hide("Perl_$func","CPerlObj::Perl_$func");
403 $ret .= hide($func,"Perl_$func");
404 }
405 else {
406 $ret .= hide($func,"CPerlObj::$func");
cea2e8a9
GS
407 }
408 }
409 $ret;
410} \*EM;
411
412for $sym (sort keys %ppsym) {
413 $sym =~ s/^Perl_//;
0cb96387
GS
414 print EM hide("Perl_$sym", "CPerlObj::Perl_$sym");
415 print EM hide($sym, "Perl_$sym");
22c35a8c
GS
416}
417
418print EM <<'END';
419
420#endif /* PERL_OBJECT */
e50aee73 421
cea2e8a9
GS
422/* Compatibility stubs. Compile extensions with -DPERL_NOCOMPAT to
423 disable them.
424 */
425
426#if !defined(PERL_CORE) && !defined(PERL_NOCOMPAT)
427
428# define sv_setptrobj(rv,ptr,name) sv_setref_iv(rv,name,(IV)ptr)
429# define sv_setptrref(rv,ptr) sv_setref_iv(rv,Nullch,(IV)ptr)
430
431
432/* Compatibility for various misnamed functions. All functions
433 in the API that begin with "perl_" (not "Perl_") take an explicit
434 interpreter context pointer.
435 The following are not like that, but since they had a "perl_"
436 prefix in previous versions, we provide compatibility macros.
437 */
438# define perl_atexit call_atexit
439# define perl_call_argv call_argv
440# define perl_call_pv call_pv
441# define perl_call_method call_method
442# define perl_call_sv call_sv
443# define perl_eval_sv eval_sv
444# define perl_eval_pv eval_pv
445# define perl_require_pv require_pv
446# define perl_get_sv get_sv
447# define perl_get_av get_av
448# define perl_get_hv get_hv
449# define perl_get_cv get_cv
450# define perl_init_i18nl10n init_i18nl10n
451# define perl_init_i18nl14n init_i18nl14n
452# define perl_new_ctype new_ctype
453# define perl_new_collate new_collate
454# define perl_new_numeric new_numeric
455
456/* varargs functions can't be handled with CPP macros. :-(
457 This provides a set of compatibility functions that don't take
458 an extra argument but grab the context pointer using the macro
459 dTHX.
460 */
461#if defined(PERL_IMPLICIT_CONTEXT)
462# define croak Perl_croak_nocontext
463# define die Perl_die_nocontext
464# define form Perl_form_nocontext
465# define newSVpvf Perl_newSVpvf_nocontext
466# define sv_catpvf Perl_sv_catpvf_nocontext
467# define sv_setpvf Perl_sv_setpvf_nocontext
468# define warn Perl_warn_nocontext
469# define sv_catpvf_mg Perl_sv_catpvf_mg_nocontext
470# define sv_setpvf_mg Perl_sv_setpvf_mg_nocontext
471#endif
472
473#endif /* !defined(PERL_CORE) && !defined(PERL_NOCOMPAT) */
474
475#if !defined(PERL_IMPLICIT_CONTEXT)
476/* undefined symbols, point them back at the usual ones */
477# define Perl_croak_nocontext Perl_croak
478# define Perl_die_nocontext Perl_die
479# define Perl_form_nocontext Perl_form
480# define Perl_newSVpvf_nocontext Perl_newSVpvf
481# define Perl_sv_catpvf_nocontext Perl_sv_catpvf
482# define Perl_sv_setpvf_nocontext Perl_sv_setpvf
483# define Perl_warn_nocontext Perl_warn
484# define Perl_sv_catpvf_mg_nocontext Perl_sv_catpvf_mg
485# define Perl_sv_setpvf_mg_nocontext Perl_sv_setpvf_mg
486#endif
db5cf5a9 487
d4cce5f1
NIS
488END
489
490close(EM);
491
492unlink 'embedvar.h';
493open(EM, '> embedvar.h')
494 or die "Can't create embedvar.h: $!\n";
495
496print EM <<'END';
497/* !!!!!!! DO NOT EDIT THIS FILE !!!!!!!
cea2e8a9 498 This file is built by embed.pl from data in embed.pl, pp.sym, intrpvar.h,
c6af7a1a 499 perlvars.h and thrdvar.h. Any changes made here will be lost!
d4cce5f1
NIS
500*/
501
502/* (Doing namespace management portably in C is really gross.) */
503
5f05dabc 504/* Put interpreter-specific symbols into a struct? */
e50aee73
AD
505
506#ifdef MULTIPLICITY
507
d4cce5f1
NIS
508#ifndef USE_THREADS
509/* If we do not have threads then per-thread vars are per-interpreter */
510
cea2e8a9
GS
511#ifdef PERL_IMPLICIT_CONTEXT
512
513/* everything has an implicit context pointer */
514
515END
516
517for $sym (sort keys %thread) {
518 print EM multon($sym,'T','my_perl->');
519}
520
521print EM <<'END';
522
523#else /* !PERL_IMPLICIT_CONTEXT */
524
525/* traditional MULTIPLICITY (intepreter is in a global) */
526
e50aee73
AD
527END
528
cea2e8a9 529
d4cce5f1 530for $sym (sort keys %thread) {
8f872242 531 print EM multon($sym,'T','PL_curinterp->');
d4cce5f1
NIS
532}
533
534print EM <<'END';
535
cea2e8a9 536#endif /* !PERL_IMPLICIT_CONTEXT */
d4cce5f1
NIS
537#endif /* !USE_THREADS */
538
539/* These are always per-interpreter if there is more than one */
540
541END
542
543for $sym (sort keys %intrp) {
8f872242 544 print EM multon($sym,'I','PL_curinterp->');
760ac839 545}
760ac839 546
55497cff
PP
547print EM <<'END';
548
5f05dabc 549#else /* !MULTIPLICITY */
55497cff
PP
550
551END
760ac839 552
d4cce5f1
NIS
553for $sym (sort keys %intrp) {
554 print EM multoff($sym,'I');
e50aee73 555}
e50aee73 556
56d28764
CS
557print EM <<'END';
558
d4cce5f1
NIS
559#ifndef USE_THREADS
560
561END
562
563for $sym (sort keys %thread) {
564 print EM multoff($sym,'T');
565}
566
567print EM <<'END';
568
569#endif /* USE_THREADS */
570
571/* Hide what would have been interpreter-specific symbols? */
5f05dabc 572
56d28764 573END
e50aee73 574
d4cce5f1 575for $sym (sort keys %intrp) {
3280af22 576 print EM embedvar($sym);
d4cce5f1
NIS
577}
578
579print EM <<'END';
580
581#ifndef USE_THREADS
582
583END
584
585for $sym (sort keys %thread) {
3280af22 586 print EM embedvar($sym);
5f05dabc
PP
587}
588
589print EM <<'END';
590
d4cce5f1 591#endif /* USE_THREADS */
e50aee73 592#endif /* MULTIPLICITY */
d4cce5f1
NIS
593
594/* Now same trickey for per-thread variables */
595
596#ifdef USE_THREADS
597
598END
599
600for $sym (sort keys %thread) {
22239a37 601 print EM multon($sym,'T','thr->');
d4cce5f1
NIS
602}
603
604print EM <<'END';
605
606#endif /* USE_THREADS */
607
22239a37
NIS
608#ifdef PERL_GLOBAL_STRUCT
609
610END
611
612for $sym (sort keys %globvar) {
533c011a 613 print EM multon($sym,'G','PL_Vars.');
22239a37
NIS
614}
615
616print EM <<'END';
617
618#else /* !PERL_GLOBAL_STRUCT */
619
620END
621
622for $sym (sort keys %globvar) {
623 print EM multoff($sym,'G');
624}
625
626print EM <<'END';
627
22239a37
NIS
628END
629
630for $sym (sort keys %globvar) {
3280af22 631 print EM embedvar($sym);
22239a37
NIS
632}
633
634print EM <<'END';
635
22239a37
NIS
636#endif /* PERL_GLOBAL_STRUCT */
637
e50aee73
AD
638END
639
84fee439
NIS
640print EM <<'END';
641
db5cf5a9 642#ifdef PERL_POLLUTE /* disabled by default in 5.006 */
84fee439
NIS
643
644END
645
646for $sym (sort @extvars) {
647 print EM hide($sym,"PL_$sym");
648}
649
650print EM <<'END';
651
db5cf5a9 652#endif /* PERL_POLLUTE */
84fee439
NIS
653END
654
655
3fe35a81 656close(EM);
c6af7a1a
GS
657
658unlink 'objXSUB.h';
659open(OBX, '> objXSUB.h')
660 or die "Can't create objXSUB.h: $!\n";
661
662print OBX <<'EOT';
663/* !!!!!!! DO NOT EDIT THIS FILE !!!!!!!
cea2e8a9 664 This file is built by embed.pl from data in embed.pl, pp.sym, intrpvar.h,
c6af7a1a
GS
665 perlvars.h and thrdvar.h. Any changes made here will be lost!
666*/
667
668#ifndef __objXSUB_h__
669#define __objXSUB_h__
670
671/* Variables */
672
673EOT
674
675foreach my $sym (sort(keys(%intrp),
676 keys(%thread),
677 keys(%globvar),
678 keys(%objvar)))
679{
680 print OBX objxsub_var($sym);
681}
682
683print OBX <<'EOT';
684
685/* Functions */
686
687EOT
688
cea2e8a9
GS
689walk_table {
690 my $ret = "";
691 if (@_ == 1) {
692 my $arg = shift;
693 $ret .= "$arg\n" if $arg =~ /^#\s*(if|ifdef|else|endif)\b/;
694 }
695 else {
696 my ($flags,$retval,$func,@args) = @_;
0cb96387 697 unless ($flags =~ /s/) {
cea2e8a9 698 if ($flags =~ /p/) {
0cb96387
GS
699 $ret .= undefine("Perl_$func") . hide("Perl_$func","pPerl->Perl_$func");
700 $ret .= undefine($func) . hide($func,"Perl_$func");
701 }
702 else {
cea2e8a9
GS
703 $ret .= undefine($func) . hide($func,"pPerl->$func");
704 }
705 }
706 }
707 $ret;
708} \*OBX;
c6af7a1a 709
cea2e8a9
GS
710for $sym (sort keys %ppsym) {
711 $sym =~ s/^Perl_//;
0cb96387
GS
712 print OBX undefine("Perl_$sym") . hide("Perl_$sym", "pPerl->Perl_$sym");
713 print OBX undefine($sym) . hide($sym, "Perl_$sym");
c6af7a1a
GS
714}
715
c6af7a1a
GS
716print OBX <<'EOT';
717
718#endif /* __objXSUB_h__ */
719EOT
720
721close(OBX);
cea2e8a9
GS
722
723__END__
724
725# Lines are of the form:
726# flags|return_type|function_name|return_type|arg1|arg2|...|argN
727#
728# They may continue on multiple lines when \w| begins the next line.
729# Leading and trailing whitespace will be ignored in each component.
730#
731# flags are single letters with following meanings:
732# s static function, should have an S_ prefix in source
733# file
734# n has no implicit interpreter/thread context argument
735# p function has a Perl_ prefix
736# r function never returns
737# o has no compatibility macro (#define foo Perl_foo)
738#
739# Individual flags may be separated by whitespace.
740#
741# New global functions should be added at the end for binary compatibility
742# in some configurations.
743#
744# TODO: 1) Add a flag to mark the functions that are part of the public API.
745# 2) Add a field for documentation, so that L<perlguts/"API LISTING">
746# may be autogenerated.
747#
748
0cb96387
GS
749#if defined(PERL_OBJECT)
750public:
751#endif
cea2e8a9
GS
752p |SV* |amagic_call |SV* left|SV* right|int method|int dir
753p |bool |Gv_AMupdate |HV* stash
754p |OP* |append_elem |I32 optype|OP* head|OP* tail
755p |OP* |append_list |I32 optype|LISTOP* first|LISTOP* last
756p |I32 |apply |I32 type|SV** mark|SV** sp
757p |void |assertref |OP* o
758p |bool |avhv_exists_ent|AV *ar|SV* keysv|U32 hash
759p |SV** |avhv_fetch_ent |AV *ar|SV* keysv|I32 lval|U32 hash
760p |HE* |avhv_iternext |AV *ar
761p |SV* |avhv_iterval |AV *ar|HE* entry
762p |HV* |avhv_keys |AV *ar
763p |void |av_clear |AV* ar
764p |void |av_extend |AV* ar|I32 key
765p |AV* |av_fake |I32 size|SV** svp
766p |SV** |av_fetch |AV* ar|I32 key|I32 lval
767p |void |av_fill |AV* ar|I32 fill
768p |I32 |av_len |AV* ar
769p |AV* |av_make |I32 size|SV** svp
770p |SV* |av_pop |AV* ar
771p |void |av_push |AV* ar|SV* val
772p |void |av_reify |AV* ar
773p |SV* |av_shift |AV* ar
774p |SV** |av_store |AV* ar|I32 key|SV* val
775p |void |av_undef |AV* ar
776p |void |av_unshift |AV* ar|I32 num
777p |OP* |bind_match |I32 type|OP* left|OP* pat
778p |OP* |block_end |I32 floor|OP* seq
779p |I32 |block_gimme
780p |int |block_start |int full
781p |void |boot_core_UNIVERSAL
782p |void |call_list |I32 oldscope|AV* av_list
783p |I32 |cando |I32 bit|I32 effective|Stat_t* statbufp
784p |U32 |cast_ulong |double f
785p |I32 |cast_i32 |double f
786p |IV |cast_iv |double f
787p |UV |cast_uv |double f
788#if !defined(HAS_TRUNCATE) && !defined(HAS_CHSIZE) && defined(F_FREESP)
789p |I32 |my_chsize |int fd|Off_t length
790#endif
791#if defined(USE_THREADS)
792p |MAGIC* |condpair_magic |SV *sv
793#endif
794p |OP* |convert |I32 optype|I32 flags|OP* o
795pr |void |croak |const char* pat|...
796#if defined(PERL_IMPLICIT_CONTEXT)
797npr |void |croak_nocontext|const char* pat|...
798np |OP* |die_nocontext |const char* pat|...
799np |char* |form_nocontext |const char* pat|...
800np |void |warn_nocontext |const char* pat|...
801np |SV* |newSVpvf_nocontext|const char* pat|...
802np |void |sv_catpvf_nocontext|SV* sv|const char* pat|...
803np |void |sv_setpvf_nocontext|SV* sv|const char* pat|...
804np |void |sv_catpvf_mg_nocontext|SV* sv|const char* pat|...
805np |void |sv_setpvf_mg_nocontext|SV* sv|const char* pat|...
806#endif
807p |void |cv_ckproto |CV* cv|GV* gv|char* p
808p |CV* |cv_clone |CV* proto
809p |SV* |cv_const_sv |CV* cv
810p |SV* |op_const_sv |OP* o|CV* cv
811p |void |cv_undef |CV* cv
812p |void |cx_dump |PERL_CONTEXT* cs
813p |SV* |filter_add |filter_t funcp|SV* datasv
814p |void |filter_del |filter_t funcp
815p |I32 |filter_read |int idx|SV* buffer|int maxlen
816p |char** |get_op_descs
817p |char** |get_op_names
818p |char* |get_no_modify
819p |U32* |get_opargs
0cb96387 820p |PPADDR_t*|get_ppaddr
cea2e8a9
GS
821p |I32 |cxinc
822p |void |deb |const char* pat|...
823p |void |deb_growlevel
824p |void |debprofdump
825p |I32 |debop |OP* o
826p |I32 |debstack
827p |I32 |debstackptrs
828p |char* |delimcpy |char* to|char* toend|char* from \
829 |char* fromend|int delim|I32* retlen
830p |void |deprecate |char* s
831p |OP* |die |const char* pat|...
832p |OP* |die_where |char* message|STRLEN msglen
833p |void |dounwind |I32 cxix
834p |bool |do_aexec |SV* really|SV** mark|SV** sp
835p |int |do_binmode |PerlIO *fp|int iotype|int flag
836p |void |do_chop |SV* asv|SV* sv
837p |bool |do_close |GV* gv|bool not_implicit
838p |bool |do_eof |GV* gv
839p |bool |do_exec |char* cmd
840#if !defined(WIN32)
841p |bool |do_exec3 |char* cmd|int fd|int flag
842#endif
843p |void |do_execfree
844#if defined(HAS_MSG) || defined(HAS_SEM) || defined(HAS_SHM)
845p |I32 |do_ipcctl |I32 optype|SV** mark|SV** sp
846p |I32 |do_ipcget |I32 optype|SV** mark|SV** sp
847p |I32 |do_msgrcv |SV** mark|SV** sp
848p |I32 |do_msgsnd |SV** mark|SV** sp
849p |I32 |do_semop |SV** mark|SV** sp
850p |I32 |do_shmio |I32 optype|SV** mark|SV** sp
851#endif
852p |void |do_join |SV* sv|SV* del|SV** mark|SV** sp
853p |OP* |do_kv
854p |bool |do_open |GV* gv|char* name|I32 len|int as_raw \
855 |int rawmode|int rawperm|PerlIO* supplied_fp
856p |void |do_pipe |SV* sv|GV* rgv|GV* wgv
857p |bool |do_print |SV* sv|PerlIO* fp
858p |OP* |do_readline
859p |I32 |do_chomp |SV* sv
860p |bool |do_seek |GV* gv|Off_t pos|int whence
861p |void |do_sprintf |SV* sv|I32 len|SV** sarg
862p |Off_t |do_sysseek |GV* gv|Off_t pos|int whence
863p |Off_t |do_tell |GV* gv
864p |I32 |do_trans |SV* sv
865p |void |do_vecset |SV* sv
866p |void |do_vop |I32 optype|SV* sv|SV* left|SV* right
867p |OP* |dofile |OP* term
868p |I32 |dowantarray
869p |void |dump_all
870p |void |dump_eval
871#if defined(DUMP_FDS)
872p |void |dump_fds |char* s
873#endif
874p |void |dump_form |GV* gv
875p |void |gv_dump |GV* gv
876p |void |op_dump |OP* arg
877p |void |pmop_dump |PMOP* pm
878p |void |dump_packsubs |HV* stash
879p |void |dump_sub |GV* gv
880p |void |fbm_compile |SV* sv|U32 flags
881p |char* |fbm_instr |unsigned char* big|unsigned char* bigend \
882 |SV* littlesv|U32 flags
883p |char* |find_script |char *scriptname|bool dosearch \
884 |char **search_ext|I32 flags
885#if defined(USE_THREADS)
886p |PADOFFSET|find_threadsv|const char *name
887#endif
888p |OP* |force_list |OP* arg
889p |OP* |fold_constants |OP* arg
890p |char* |form |const char* pat|...
891p |void |free_tmps
892p |OP* |gen_constant_list|OP* o
893#if !defined(HAS_GETENV_LEN)
894p |char* |getenv_len |char* key|unsigned long *len
895#endif
896p |void |gp_free |GV* gv
897p |GP* |gp_ref |GP* gp
898p |GV* |gv_AVadd |GV* gv
899p |GV* |gv_HVadd |GV* gv
900p |GV* |gv_IOadd |GV* gv
901p |GV* |gv_autoload4 |HV* stash|const char* name|STRLEN len \
902 |I32 method
903p |void |gv_check |HV* stash
904p |void |gv_efullname |SV* sv|GV* gv
905p |void |gv_efullname3 |SV* sv|GV* gv|const char* prefix
906p |GV* |gv_fetchfile |const char* name
907p |GV* |gv_fetchmeth |HV* stash|const char* name|STRLEN len \
908 |I32 level
909p |GV* |gv_fetchmethod |HV* stash|const char* name
910p |GV* |gv_fetchmethod_autoload|HV* stash|const char* name \
911 |I32 autoload
912p |GV* |gv_fetchpv |const char* name|I32 add|I32 sv_type
913p |void |gv_fullname |SV* sv|GV* gv
914p |void |gv_fullname3 |SV* sv|GV* gv|const char* prefix
915p |void |gv_init |GV* gv|HV* stash|const char* name \
916 |STRLEN len|int multi
917p |HV* |gv_stashpv |const char* name|I32 create
918p |HV* |gv_stashpvn |const char* name|U32 namelen|I32 create
919p |HV* |gv_stashsv |SV* sv|I32 create
920p |void |hv_clear |HV* tb
921p |void |hv_delayfree_ent|HV* hv|HE* entry
922p |SV* |hv_delete |HV* tb|const char* key|U32 klen|I32 flags
923p |SV* |hv_delete_ent |HV* tb|SV* key|I32 flags|U32 hash
924p |bool |hv_exists |HV* tb|const char* key|U32 klen
925p |bool |hv_exists_ent |HV* tb|SV* key|U32 hash
926p |SV** |hv_fetch |HV* tb|const char* key|U32 klen|I32 lval
927p |HE* |hv_fetch_ent |HV* tb|SV* key|I32 lval|U32 hash
928p |void |hv_free_ent |HV* hv|HE* entry
929p |I32 |hv_iterinit |HV* tb
930p |char* |hv_iterkey |HE* entry|I32* retlen
931p |SV* |hv_iterkeysv |HE* entry
932p |HE* |hv_iternext |HV* tb
933p |SV* |hv_iternextsv |HV* hv|char** key|I32* retlen
934p |SV* |hv_iterval |HV* tb|HE* entry
935p |void |hv_ksplit |HV* hv|IV newmax
936p |void |hv_magic |HV* hv|GV* gv|int how
937p |SV** |hv_store |HV* tb|const char* key|U32 klen|SV* val \
938 |U32 hash
939p |HE* |hv_store_ent |HV* tb|SV* key|SV* val|U32 hash
940p |void |hv_undef |HV* tb
941p |I32 |ibcmp |const char* a|const char* b|I32 len
942p |I32 |ibcmp_locale |const char* a|const char* b|I32 len
943p |I32 |ingroup |I32 testgid|I32 effective
944p |void |init_stacks
945p |U32 |intro_my
946p |char* |instr |const char* big|const char* little
947p |bool |io_close |IO* io
948p |OP* |invert |OP* cmd
949p |bool |is_uni_alnum |U32 c
950p |bool |is_uni_idfirst |U32 c
951p |bool |is_uni_alpha |U32 c
952p |bool |is_uni_space |U32 c
953p |bool |is_uni_digit |U32 c
954p |bool |is_uni_upper |U32 c
955p |bool |is_uni_lower |U32 c
956p |bool |is_uni_print |U32 c
957p |U32 |to_uni_upper |U32 c
958p |U32 |to_uni_title |U32 c
959p |U32 |to_uni_lower |U32 c
960p |bool |is_uni_alnum_lc|U32 c
961p |bool |is_uni_idfirst_lc|U32 c
962p |bool |is_uni_alpha_lc|U32 c
963p |bool |is_uni_space_lc|U32 c
964p |bool |is_uni_digit_lc|U32 c
965p |bool |is_uni_upper_lc|U32 c
966p |bool |is_uni_lower_lc|U32 c
967p |bool |is_uni_print_lc|U32 c
968p |U32 |to_uni_upper_lc|U32 c
969p |U32 |to_uni_title_lc|U32 c
970p |U32 |to_uni_lower_lc|U32 c
971p |bool |is_utf8_alnum |U8 *p
972p |bool |is_utf8_idfirst|U8 *p
973p |bool |is_utf8_alpha |U8 *p
974p |bool |is_utf8_space |U8 *p
975p |bool |is_utf8_digit |U8 *p
976p |bool |is_utf8_upper |U8 *p
977p |bool |is_utf8_lower |U8 *p
978p |bool |is_utf8_print |U8 *p
979p |bool |is_utf8_mark |U8 *p
980p |OP* |jmaybe |OP* arg
981p |I32 |keyword |char* d|I32 len
982p |void |leave_scope |I32 base
983p |void |lex_end
984p |void |lex_start |SV* line
985p |OP* |linklist |OP* o
986p |OP* |list |OP* o
987p |OP* |listkids |OP* o
988p |OP* |localize |OP* arg|I32 lexical
989p |I32 |looks_like_number|SV* sv
990p |int |magic_clearenv |SV* sv|MAGIC* mg
991p |int |magic_clear_all_env|SV* sv|MAGIC* mg
992p |int |magic_clearpack|SV* sv|MAGIC* mg
993p |int |magic_clearsig |SV* sv|MAGIC* mg
994p |int |magic_existspack|SV* sv|MAGIC* mg
995p |int |magic_freeregexp|SV* sv|MAGIC* mg
996p |int |magic_get |SV* sv|MAGIC* mg
997p |int |magic_getarylen|SV* sv|MAGIC* mg
998p |int |magic_getdefelem|SV* sv|MAGIC* mg
999p |int |magic_getglob |SV* sv|MAGIC* mg
1000p |int |magic_getnkeys |SV* sv|MAGIC* mg
1001p |int |magic_getpack |SV* sv|MAGIC* mg
1002p |int |magic_getpos |SV* sv|MAGIC* mg
1003p |int |magic_getsig |SV* sv|MAGIC* mg
1004p |int |magic_getsubstr|SV* sv|MAGIC* mg
1005p |int |magic_gettaint |SV* sv|MAGIC* mg
1006p |int |magic_getuvar |SV* sv|MAGIC* mg
1007p |int |magic_getvec |SV* sv|MAGIC* mg
1008p |U32 |magic_len |SV* sv|MAGIC* mg
1009#if defined(USE_THREADS)
1010p |int |magic_mutexfree|SV* sv|MAGIC* mg
1011#endif
1012p |int |magic_nextpack |SV* sv|MAGIC* mg|SV* key
1013p |U32 |magic_regdata_cnt|SV* sv|MAGIC* mg
1014p |int |magic_regdatum_get|SV* sv|MAGIC* mg
1015p |int |magic_set |SV* sv|MAGIC* mg
1016p |int |magic_setamagic|SV* sv|MAGIC* mg
1017p |int |magic_setarylen|SV* sv|MAGIC* mg
1018p |int |magic_setbm |SV* sv|MAGIC* mg
1019p |int |magic_setdbline|SV* sv|MAGIC* mg
1020#if defined(USE_LOCALE_COLLATE)
1021p |int |magic_setcollxfrm|SV* sv|MAGIC* mg
1022#endif
1023p |int |magic_setdefelem|SV* sv|MAGIC* mg
1024p |int |magic_setenv |SV* sv|MAGIC* mg
1025p |int |magic_setfm |SV* sv|MAGIC* mg
1026p |int |magic_setisa |SV* sv|MAGIC* mg
1027p |int |magic_setglob |SV* sv|MAGIC* mg
1028p |int |magic_setmglob |SV* sv|MAGIC* mg
1029p |int |magic_setnkeys |SV* sv|MAGIC* mg
1030p |int |magic_setpack |SV* sv|MAGIC* mg
1031p |int |magic_setpos |SV* sv|MAGIC* mg
1032p |int |magic_setsig |SV* sv|MAGIC* mg
1033p |int |magic_setsubstr|SV* sv|MAGIC* mg
1034p |int |magic_settaint |SV* sv|MAGIC* mg
1035p |int |magic_setuvar |SV* sv|MAGIC* mg
1036p |int |magic_setvec |SV* sv|MAGIC* mg
1037p |int |magic_set_all_env|SV* sv|MAGIC* mg
1038p |U32 |magic_sizepack |SV* sv|MAGIC* mg
1039p |int |magic_wipepack |SV* sv|MAGIC* mg
1040p |void |magicname |char* sym|char* name|I32 namlen
cea2e8a9
GS
1041#if defined(MYMALLOC)
1042np |MEM_SIZE|malloced_size |void *p
1043#endif
1044p |void |markstack_grow
1045#if defined(USE_LOCALE_COLLATE)
1046p |char* |mem_collxfrm |const char* s|STRLEN len|STRLEN* xlen
1047#endif
1048p |SV* |mess |const char* pat|va_list* args
1049p |int |mg_clear |SV* sv
1050p |int |mg_copy |SV* sv|SV* nsv|const char* key|I32 klen
1051p |MAGIC* |mg_find |SV* sv|int type
1052p |int |mg_free |SV* sv
1053p |int |mg_get |SV* sv
1054p |U32 |mg_length |SV* sv
1055p |void |mg_magical |SV* sv
1056p |int |mg_set |SV* sv
1057p |I32 |mg_size |SV* sv
1058p |OP* |mod |OP* o|I32 type
1059p |char* |moreswitches |char* s
1060p |OP* |my |OP* o
097ee67d 1061p |double |my_atof |const char *s
cea2e8a9
GS
1062#if !defined(HAS_BCOPY) || !defined(HAS_SAFE_BCOPY)
1063p |char* |my_bcopy |const char* from|char* to|I32 len
1064#endif
1065#if !defined(HAS_BZERO) && !defined(HAS_MEMSET)
1066p |char* |my_bzero |char* loc|I32 len
1067#endif
1068pr |void |my_exit |U32 status
1069pr |void |my_failure_exit
1070p |I32 |my_fflush_all
1071p |I32 |my_lstat
1072#if !defined(HAS_MEMCMP) || !defined(HAS_SANE_MEMCMP)
1073p |I32 |my_memcmp |const char* s1|const char* s2|I32 len
1074#endif
1075#if !defined(HAS_MEMSET)
1076p |void* |my_memset |char* loc|I32 ch|I32 len
1077#endif
1078#if !defined(PERL_OBJECT)
1079p |I32 |my_pclose |PerlIO* ptr
1080p |PerlIO*|my_popen |char* cmd|char* mode
1081#endif
1082p |void |my_setenv |char* nam|char* val
1083p |I32 |my_stat
1084#if defined(MYSWAP)
1085p |short |my_swap |short s
1086p |long |my_htonl |long l
1087p |long |my_ntohl |long l
1088#endif
1089p |void |my_unexec
1090p |OP* |newANONLIST |OP* o
1091p |OP* |newANONHASH |OP* o
1092p |OP* |newANONSUB |I32 floor|OP* proto|OP* block
1093p |OP* |newASSIGNOP |I32 flags|OP* left|I32 optype|OP* right
1094p |OP* |newCONDOP |I32 flags|OP* expr|OP* trueop|OP* falseop
1095p |void |newCONSTSUB |HV* stash|char* name|SV* sv
1096p |void |newFORM |I32 floor|OP* o|OP* block
1097p |OP* |newFOROP |I32 flags|char* label|line_t forline \
1098 |OP* sclr|OP* expr|OP*block|OP*cont
1099p |OP* |newLOGOP |I32 optype|I32 flags|OP* left|OP* right
1100p |OP* |newLOOPEX |I32 type|OP* label
1101p |OP* |newLOOPOP |I32 flags|I32 debuggable|OP* expr|OP* block
1102p |OP* |newNULLLIST
1103p |OP* |newOP |I32 optype|I32 flags
1104p |void |newPROG |OP* o
1105p |OP* |newRANGE |I32 flags|OP* left|OP* right
1106p |OP* |newSLICEOP |I32 flags|OP* subscript|OP* listop
1107p |OP* |newSTATEOP |I32 flags|char* label|OP* o
1108p |CV* |newSUB |I32 floor|OP* o|OP* proto|OP* block
1109p |CV* |newXS |char* name|XSUBADDR_t f|char* filename
1110p |AV* |newAV
1111p |OP* |newAVREF |OP* o
1112p |OP* |newBINOP |I32 type|I32 flags|OP* first|OP* last
1113p |OP* |newCVREF |I32 flags|OP* o
1114p |OP* |newGVOP |I32 type|I32 flags|GV* gv
1115p |GV* |newGVgen |char* pack
1116p |OP* |newGVREF |I32 type|OP* o
1117p |OP* |newHVREF |OP* o
1118p |HV* |newHV
1119p |HV* |newHVhv |HV* hv
1120p |IO* |newIO
1121p |OP* |newLISTOP |I32 type|I32 flags|OP* first|OP* last
1122p |OP* |newPMOP |I32 type|I32 flags
1123p |OP* |newPVOP |I32 type|I32 flags|char* pv
1124p |SV* |newRV |SV* pref
1125p |SV* |newRV_noinc |SV *sv
1126p |SV* |newSV |STRLEN len
1127p |OP* |newSVREF |OP* o
1128p |OP* |newSVOP |I32 type|I32 flags|SV* sv
1129p |SV* |newSViv |IV i
1130p |SV* |newSVnv |double n
1131p |SV* |newSVpv |const char* s|STRLEN len
1132p |SV* |newSVpvn |const char* s|STRLEN len
1133p |SV* |newSVpvf |const char* pat|...
1134p |SV* |newSVrv |SV* rv|const char* classname
1135p |SV* |newSVsv |SV* old
1136p |OP* |newUNOP |I32 type|I32 flags|OP* first
1137p |OP* |newWHILEOP |I32 flags|I32 debuggable|LOOP* loop \
1138 |I32 whileline|OP* expr|OP* block|OP* cont
1139#if defined(USE_THREADS)
1140p |struct perl_thread*|new_struct_thread|struct perl_thread *t
1141#endif
1142p |PERL_SI*|new_stackinfo|I32 stitems|I32 cxitems
1143p |PerlIO*|nextargv |GV* gv
1144p |char* |ninstr |const char* big|const char* bigend \
1145 |const char* little|const char* lend
1146p |OP* |oopsCV |OP* o
1147p |void |op_free |OP* arg
1148p |void |package |OP* o
1149p |PADOFFSET|pad_alloc |I32 optype|U32 tmptype
1150p |PADOFFSET|pad_allocmy |char* name
1151p |PADOFFSET|pad_findmy |char* name
1152p |OP* |oopsAV |OP* o
1153p |OP* |oopsHV |OP* o
1154p |void |pad_leavemy |I32 fill
1155p |SV* |pad_sv |PADOFFSET po
1156p |void |pad_free |PADOFFSET po
1157p |void |pad_reset
1158p |void |pad_swipe |PADOFFSET po
1159p |void |peep |OP* o
0cb96387
GS
1160#if defined(PERL_OBJECT)
1161no |void |perl_construct
1162no |void |perl_destruct
1163no |void |perl_free
1164no |int |perl_run
1165no |int |perl_parse |XSINIT_t xsinit \
1166 |int argc|char** argv|char** env
1167#else
cea2e8a9 1168no |PerlInterpreter* |perl_alloc
0cb96387
GS
1169no |void |perl_construct |PerlInterpreter* sv_interp
1170no |void |perl_destruct |PerlInterpreter* sv_interp
1171no |void |perl_free |PerlInterpreter* sv_interp
1172no |int |perl_run |PerlInterpreter* sv_interp
1173no |int |perl_parse |PerlInterpreter* sv_interp|XSINIT_t xsinit \
1174 |int argc|char** argv|char** env
1175#endif
cea2e8a9
GS
1176p |void |call_atexit |ATEXIT_t fn|void *ptr
1177p |I32 |call_argv |const char* sub_name|I32 flags|char** argv
1178p |I32 |call_method |const char* methname|I32 flags
1179p |I32 |call_pv |const char* sub_name|I32 flags
1180p |I32 |call_sv |SV* sv|I32 flags
cea2e8a9
GS
1181p |SV* |eval_pv |const char* p|I32 croak_on_error
1182p |I32 |eval_sv |SV* sv|I32 flags
cea2e8a9
GS
1183p |SV* |get_sv |const char* name|I32 create
1184p |AV* |get_av |const char* name|I32 create
1185p |HV* |get_hv |const char* name|I32 create
1186p |CV* |get_cv |const char* name|I32 create
1187p |int |init_i18nl10n |int printwarn
1188p |int |init_i18nl14n |int printwarn
1189p |void |new_collate |const char* newcoll
1190p |void |new_ctype |const char* newctype
1191p |void |new_numeric |const char* newcoll
1192p |void |set_numeric_local
097ee67d 1193p |void |set_numeric_radix
cea2e8a9 1194p |void |set_numeric_standard
cea2e8a9 1195p |void |require_pv |const char* pv
cea2e8a9
GS
1196p |void |pidgone |int pid|int status
1197p |void |pmflag |U16* pmfl|int ch
1198p |OP* |pmruntime |OP* pm|OP* expr|OP* repl
1199p |OP* |pmtrans |OP* o|OP* expr|OP* repl
1200p |OP* |pop_return
1201p |void |pop_scope
1202p |OP* |prepend_elem |I32 optype|OP* head|OP* tail
1203p |void |push_return |OP* o
1204p |void |push_scope
1205p |OP* |ref |OP* o|I32 type
1206p |OP* |refkids |OP* o|I32 type
1207p |void |regdump |regexp* r
1208p |I32 |pregexec |regexp* prog|char* stringarg \
1209 |char* strend|char* strbeg|I32 minend \
1210 |SV* screamer|U32 nosave
1211p |void |pregfree |struct regexp* r
1212p |regexp*|pregcomp |char* exp|char* xend|PMOP* pm
1213p |I32 |regexec_flags |regexp* prog|char* stringarg \
1214 |char* strend|char* strbeg|I32 minend \
1215 |SV* screamer|void* data|U32 flags
1216p |regnode*|regnext |regnode* p
1217p |void |regprop |SV* sv|regnode* o
1218p |void |repeatcpy |char* to|const char* from|I32 len|I32 count
1219p |char* |rninstr |const char* big|const char* bigend \
1220 |const char* little|const char* lend
1221p |Sighandler_t|rsignal |int i|Sighandler_t t
1222p |int |rsignal_restore|int i|Sigsave_t* t
1223p |int |rsignal_save |int i|Sighandler_t t1|Sigsave_t* t2
1224p |Sighandler_t|rsignal_state|int i
1225p |void |rxres_free |void** rsp
1226p |void |rxres_restore |void** rsp|REGEXP* prx
1227p |void |rxres_save |void** rsp|REGEXP* prx
1228#if !defined(HAS_RENAME)
1229p |I32 |same_dirent |char* a|char* b
1230#endif
1231p |char* |savepv |const char* sv
1232p |char* |savepvn |const char* sv|I32 len
1233p |void |savestack_grow
1234p |void |save_aelem |AV* av|I32 idx|SV **sptr
1235p |I32 |save_alloc |I32 size|I32 pad
1236p |void |save_aptr |AV** aptr
1237p |AV* |save_ary |GV* gv
1238p |void |save_clearsv |SV** svp
1239p |void |save_delete |HV* hv|char* key|I32 klen
1240p |void |save_destructor|DESTRUCTORFUNC_t f|void* p
1241p |void |save_freesv |SV* sv
1242p |void |save_freeop |OP* o
1243p |void |save_freepv |char* pv
1244p |void |save_generic_svref|SV** sptr
1245p |void |save_gp |GV* gv|I32 empty
1246p |HV* |save_hash |GV* gv
1247p |void |save_helem |HV* hv|SV *key|SV **sptr
1248p |void |save_hints
1249p |void |save_hptr |HV** hptr
1250p |void |save_I16 |I16* intp
1251p |void |save_I32 |I32* intp
1252p |void |save_int |int* intp
1253p |void |save_item |SV* item
1254p |void |save_iv |IV* iv
1255p |void |save_list |SV** sarg|I32 maxsarg
1256p |void |save_long |long* longp
1257p |void |save_nogv |GV* gv
1258p |void |save_op
1259p |SV* |save_scalar |GV* gv
1260p |void |save_pptr |char** pptr
1261p |void |save_re_context
1262p |void |save_sptr |SV** sptr
1263p |SV* |save_svref |SV** sptr
1264p |SV** |save_threadsv |PADOFFSET i
1265p |OP* |sawparens |OP* o
1266p |OP* |scalar |OP* o
1267p |OP* |scalarkids |OP* o
1268p |OP* |scalarseq |OP* o
1269p |OP* |scalarvoid |OP* o
1270p |UV |scan_bin |char* start|I32 len|I32* retlen
1271p |UV |scan_hex |char* start|I32 len|I32* retlen
1272p |char* |scan_num |char* s
1273p |UV |scan_oct |char* start|I32 len|I32* retlen
1274p |OP* |scope |OP* o
1275p |char* |screaminstr |SV* bigsv|SV* littlesv|I32 start_shift \
1276 |I32 end_shift|I32 *state|I32 last
1277#if !defined(VMS)
1278p |I32 |setenv_getix |char* nam
1279#endif
1280p |void |setdefout |GV* gv
1281p |char* |sharepvn |const char* sv|I32 len|U32 hash
1282p |HEK* |share_hek |const char* sv|I32 len|U32 hash
1283np |Signal_t |sighandler |int sig
1284p |SV** |stack_grow |SV** sp|SV**p|int n
1285p |I32 |start_subparse |I32 is_format|U32 flags
1286p |void |sub_crush_depth|CV* cv
1287p |bool |sv_2bool |SV* sv
1288p |CV* |sv_2cv |SV* sv|HV** st|GV** gvp|I32 lref
1289p |IO* |sv_2io |SV* sv
1290p |IV |sv_2iv |SV* sv
1291p |SV* |sv_2mortal |SV* sv
1292p |double |sv_2nv |SV* sv
1293p |char* |sv_2pv |SV* sv|STRLEN* lp
1294p |UV |sv_2uv |SV* sv
1295p |IV |sv_iv |SV* sv
1296p |UV |sv_uv |SV* sv
1297p |double |sv_nv |SV* sv
1298p |char* |sv_pvn |SV *sv|STRLEN *len
1299p |I32 |sv_true |SV *sv
1300p |void |sv_add_arena |char* ptr|U32 size|U32 flags
1301p |int |sv_backoff |SV* sv
1302p |SV* |sv_bless |SV* sv|HV* stash
1303p |void |sv_catpvf |SV* sv|const char* pat|...
1304p |void |sv_catpv |SV* sv|const char* ptr
1305p |void |sv_catpvn |SV* sv|const char* ptr|STRLEN len
1306p |void |sv_catsv |SV* dsv|SV* ssv
1307p |void |sv_chop |SV* sv|char* ptr
1308p |void |sv_clean_all
1309p |void |sv_clean_objs
1310p |void |sv_clear |SV* sv
1311p |I32 |sv_cmp |SV* sv1|SV* sv2
1312p |I32 |sv_cmp_locale |SV* sv1|SV* sv2
1313#if defined(USE_LOCALE_COLLATE)
1314p |char* |sv_collxfrm |SV* sv|STRLEN* nxp
1315#endif
1316p |OP* |sv_compile_2op |SV* sv|OP** startp|char* code|AV** avp
1317p |void |sv_dec |SV* sv
1318p |void |sv_dump |SV* sv
1319p |bool |sv_derived_from|SV* sv|const char* name
1320p |I32 |sv_eq |SV* sv1|SV* sv2
1321p |void |sv_free |SV* sv
1322p |void |sv_free_arenas
1323p |char* |sv_gets |SV* sv|PerlIO* fp|I32 append
1324p |char* |sv_grow |SV* sv|STRLEN newlen
1325p |void |sv_inc |SV* sv
1326p |void |sv_insert |SV* bigsv|STRLEN offset|STRLEN len \
1327 |char* little|STRLEN littlelen
1328p |int |sv_isa |SV* sv|const char* name
1329p |int |sv_isobject |SV* sv
1330p |STRLEN |sv_len |SV* sv
1331p |STRLEN |sv_len_utf8 |SV* sv
1332p |void |sv_magic |SV* sv|SV* obj|int how|const char* name \
1333 |I32 namlen
1334p |SV* |sv_mortalcopy |SV* oldsv
1335p |SV* |sv_newmortal
1336p |SV* |sv_newref |SV* sv
1337p |char* |sv_peek |SV* sv
1338p |void |sv_pos_u2b |SV* sv|I32* offsetp|I32* lenp
1339p |void |sv_pos_b2u |SV* sv|I32* offsetp
1340p |char* |sv_pvn_force |SV* sv|STRLEN* lp
1341p |char* |sv_reftype |SV* sv|int ob
1342p |void |sv_replace |SV* sv|SV* nsv
1343p |void |sv_report_used
1344p |void |sv_reset |char* s|HV* stash
1345p |void |sv_setpvf |SV* sv|const char* pat|...
1346p |void |sv_setiv |SV* sv|IV num
1347p |void |sv_setpviv |SV* sv|IV num
1348p |void |sv_setuv |SV* sv|UV num
1349p |void |sv_setnv |SV* sv|double num
1350p |SV* |sv_setref_iv |SV* rv|const char* classname|IV iv
1351p |SV* |sv_setref_nv |SV* rv|const char* classname|double nv
1352p |SV* |sv_setref_pv |SV* rv|const char* classname|void* pv
1353p |SV* |sv_setref_pvn |SV* rv|const char* classname|char* pv \
1354 |STRLEN n
1355p |void |sv_setpv |SV* sv|const char* ptr
1356p |void |sv_setpvn |SV* sv|const char* ptr|STRLEN len
1357p |void |sv_setsv |SV* dsv|SV* ssv
1358p |void |sv_taint |SV* sv
1359p |bool |sv_tainted |SV* sv
1360p |int |sv_unmagic |SV* sv|int type
1361p |void |sv_unref |SV* sv
1362p |void |sv_untaint |SV* sv
1363p |bool |sv_upgrade |SV* sv|U32 mt
1364p |void |sv_usepvn |SV* sv|char* ptr|STRLEN len
1365p |void |sv_vcatpvfn |SV* sv|const char* pat|STRLEN patlen \
1366 |va_list* args|SV** svargs|I32 svmax \
1367 |bool *used_locale
1368p |void |sv_vsetpvfn |SV* sv|const char* pat|STRLEN patlen \
1369 |va_list* args|SV** svargs|I32 svmax \
1370 |bool *used_locale
1371p |SV* |swash_init |char* pkg|char* name|SV* listsv \
1372 |I32 minbits|I32 none
1373p |UV |swash_fetch |SV *sv|U8 *ptr
1374p |void |taint_env
1375p |void |taint_proper |const char* f|char* s
1376p |UV |to_utf8_lower |U8 *p
1377p |UV |to_utf8_upper |U8 *p
1378p |UV |to_utf8_title |U8 *p
1379#if defined(UNLINK_ALL_VERSIONS)
1380p |I32 |unlnk |char* f
1381#endif
1382#if defined(USE_THREADS)
1383p |void |unlock_condpair|void* svv
1384#endif
1385p |void |unsharepvn |const char* sv|I32 len|U32 hash
1386p |void |unshare_hek |HEK* hek
1387p |void |utilize |int aver|I32 floor|OP* version|OP* id|OP* arg
1388p |U8* |utf16_to_utf8 |U16* p|U8 *d|I32 bytelen
1389p |U8* |utf16_to_utf8_reversed|U16* p|U8 *d|I32 bytelen
1390p |I32 |utf8_distance |U8 *a|U8 *b
1391p |U8* |utf8_hop |U8 *s|I32 off
1392p |UV |utf8_to_uv |U8 *s|I32* retlen
1393p |U8* |uv_to_utf8 |U8 *d|UV uv
1394p |void |vivify_defelem |SV* sv
1395p |void |vivify_ref |SV* sv|U32 to_what
1396p |I32 |wait4pid |int pid|int* statusp|int flags
1397p |void |warn |const char* pat|...
1398p |void |warner |U32 err|const char* pat|...
1399p |void |watch |char** addr
1400p |I32 |whichsig |char* sig
1401p |int |yyerror |char* s
1402#if defined(USE_PURE_BISON)
1403p |int |yylex |YYSTYPE *lvalp|int *lcharp
1404#else
1405p |int |yylex
1406#endif
1407p |int |yyparse
1408p |int |yywarn |char* s
1409#if defined(MYMALLOC)
1410p |void |dump_mstats |char* s
1411pno |Malloc_t|malloc |MEM_SIZE nbytes
1412pno |Malloc_t|calloc |MEM_SIZE elements|MEM_SIZE size
1413pno |Malloc_t|realloc |Malloc_t where|MEM_SIZE nbytes
1414pno |Free_t |mfree |Malloc_t where
1415#endif
4f63d024
GS
1416pn |Malloc_t|safesysmalloc |MEM_SIZE nbytes
1417pn |Malloc_t|safesyscalloc |MEM_SIZE elements|MEM_SIZE size
1418pn |Malloc_t|safesysrealloc|Malloc_t where|MEM_SIZE nbytes
1419pn |Free_t |safesysfree |Malloc_t where
cea2e8a9 1420#if defined(LEAKTEST)
4f63d024
GS
1421pn |Malloc_t|safexmalloc |I32 x|MEM_SIZE size
1422pn |Malloc_t|safexcalloc |I32 x|MEM_SIZE elements|MEM_SIZE size
1423pn |Malloc_t|safexrealloc |Malloc_t where|MEM_SIZE size
1424pn |void |safexfree |Malloc_t where
cea2e8a9
GS
1425#endif
1426#if defined(PERL_GLOBAL_STRUCT)
1427p |struct perl_vars *|GetVars
1428#endif
1429p |void |yydestruct |void *ptr
1430p |int |runops_standard
1431p |int |runops_debug
1432
1433#if defined(WIN32)
0cb96387
GS
1434#if defined(PERL_OBJECT)
1435p |int& |ErrorNo
1436#else
43165c05 1437p |int* |ErrorNo
cea2e8a9 1438#endif
0cb96387 1439#endif
cea2e8a9
GS
1440p |void |sv_catpvf_mg |SV *sv|const char* pat|...
1441p |void |sv_catpv_mg |SV *sv|const char *ptr
1442p |void |sv_catpvn_mg |SV *sv|const char *ptr|STRLEN len
1443p |void |sv_catsv_mg |SV *dstr|SV *sstr
1444p |void |sv_setpvf_mg |SV *sv|const char* pat|...
1445p |void |sv_setiv_mg |SV *sv|IV i
1446p |void |sv_setpviv_mg |SV *sv|IV iv
1447p |void |sv_setuv_mg |SV *sv|UV u
1448p |void |sv_setnv_mg |SV *sv|double num
1449p |void |sv_setpv_mg |SV *sv|const char *ptr
1450p |void |sv_setpvn_mg |SV *sv|const char *ptr|STRLEN len
1451p |void |sv_setsv_mg |SV *dstr|SV *sstr
1452p |void |sv_usepvn_mg |SV *sv|char *ptr|STRLEN len
1453p |MGVTBL*|get_vtbl |int vtbl_id
1454p |char* |pv_display |SV *sv|char *pv|STRLEN cur|STRLEN len \
1455 |STRLEN pvlim
1456p |void |dump_indent |I32 level|PerlIO *file|const char* pat|...
1457p |void |do_gv_dump |I32 level|PerlIO *file|char *name|GV *sv
1458p |void |do_gvgv_dump |I32 level|PerlIO *file|char *name|GV *sv
1459p |void |do_hv_dump |I32 level|PerlIO *file|char *name|HV *sv
1460p |void |do_magic_dump |I32 level|PerlIO *file|MAGIC *mg|I32 nest \
1461 |I32 maxnest|bool dumpops|STRLEN pvlim
1462p |void |do_op_dump |I32 level|PerlIO *file|OP *o
1463p |void |do_pmop_dump |I32 level|PerlIO *file|PMOP *pm
1464p |void |do_sv_dump |I32 level|PerlIO *file|SV *sv|I32 nest \
1465 |I32 maxnest|bool dumpops|STRLEN pvlim
1466p |void |magic_dump |MAGIC *mg
1467p |void* |default_protect|int *excpt|protect_body_t body|...
1468p |void |reginitcolors
1469p |char* |sv_2pv_nolen |SV* sv
1470p |char* |sv_pv |SV *sv
1471p |void |sv_force_normal|SV *sv
1472p |void |tmps_grow |I32 n
1473p |SV* |sv_rvweaken |SV *sv
1474p |int |magic_killbackrefs|SV *sv|MAGIC *mg
1475
0cb96387
GS
1476#if defined(PERL_OBJECT)
1477protected:
1478#endif
1479#if defined(PERL_IN_AV_C) || defined(PERL_DECL_PROT)
cea2e8a9
GS
1480s |I32 |avhv_index_sv |SV* sv
1481#endif
1482
0cb96387 1483#if defined(PERL_IN_DOOP_C) || defined(PERL_DECL_PROT)
cea2e8a9
GS
1484s |I32 |do_trans_CC_simple |SV *sv
1485s |I32 |do_trans_CC_count |SV *sv
1486s |I32 |do_trans_CC_complex |SV *sv
1487s |I32 |do_trans_UU_simple |SV *sv
1488s |I32 |do_trans_UU_count |SV *sv
1489s |I32 |do_trans_UU_complex |SV *sv
1490s |I32 |do_trans_UC_simple |SV *sv
1491s |I32 |do_trans_CU_simple |SV *sv
1492s |I32 |do_trans_UC_trivial |SV *sv
1493s |I32 |do_trans_CU_trivial |SV *sv
1494#endif
1495
0cb96387 1496#if defined(PERL_IN_GV_C) || defined(PERL_DECL_PROT)
cea2e8a9
GS
1497s |void |gv_init_sv |GV *gv|I32 sv_type
1498#endif
1499
0cb96387 1500#if defined(PERL_IN_HV_C) || defined(PERL_DECL_PROT)
cea2e8a9
GS
1501s |void |hsplit |HV *hv
1502s |void |hfreeentries |HV *hv
1503s |void |more_he
1504s |HE* |new_he
1505s |void |del_he |HE *p
1506s |HEK* |save_hek |const char *str|I32 len|U32 hash
1507s |void |hv_magic_check |HV *hv|bool *needs_copy|bool *needs_store
1508#endif
1509
0cb96387 1510#if defined(PERL_IN_MG_C) || defined(PERL_DECL_PROT)
cea2e8a9
GS
1511s |void |save_magic |I32 mgs_ix|SV *sv
1512s |int |magic_methpack |SV *sv|MAGIC *mg|char *meth
1513s |int |magic_methcall |SV *sv|MAGIC *mg|char *meth|I32 f \
1514 |int n|SV *val
1515s |void |unwind_handler_stack |void *p
1516s |void |restore_magic |void *p
1517#endif
1518
0cb96387 1519#if defined(PERL_IN_OP_C) || defined(PERL_DECL_PROT)
cea2e8a9
GS
1520s |I32 |list_assignment|OP *o
1521s |void |bad_type |I32 n|char *t|char *name|OP *kid
1522s |OP* |modkids |OP *o|I32 type
1523s |void |no_bareword_allowed|OP *o
1524s |OP* |no_fh_allowed |OP *o
1525s |OP* |scalarboolean |OP *o
1526s |OP* |too_few_arguments|OP *o|char* name
1527s |OP* |too_many_arguments|OP *o|char* name
1528s |void |null |OP* o
1529s |PADOFFSET|pad_findlex |char* name|PADOFFSET newoff|U32 seq \
1530 |CV* startcv|I32 cx_ix|I32 saweval|U32 flags
1531s |OP* |newDEFSVOP
1532s |OP* |new_logop |I32 type|I32 flags|OP **firstp|OP **otherp
1533s |void |simplify_sort |OP *o
1534s |bool |is_handle_constructor |OP *o|I32 argnum
1535s |char* |gv_ename |GV *gv
1536s |CV* |cv_clone2 |CV *proto|CV *outside
1537s |bool |scalar_mod_type|OP *o|I32 type
1538# if defined(PL_OP_SLAB_ALLOC)
1539s |void* |Slab_Alloc |int m|size_t sz
1540# endif
1541#endif
1542
0cb96387 1543#if defined(PERL_IN_PERL_C) || defined(PERL_DECL_PROT)
cea2e8a9
GS
1544s |void |find_beginning
1545s |void |forbid_setid |char *
1546s |void |incpush |char *|int
1547s |void |init_interp
1548s |void |init_ids
1549s |void |init_debugger
1550s |void |init_lexer
1551s |void |init_main_stash
1552s |void |init_perllib
1553s |void |init_postdump_symbols|int|char **|char **
1554s |void |init_predump_symbols
1555rs |void |my_exit_jump
1556s |void |nuke_stacks
1557s |void |open_script |char *|bool|SV *|int *fd
1558s |void |usage |char *
1559s |void |validate_suid |char *|char*|int
cea2e8a9
GS
1560# if defined(IAMSUID)
1561s |int |fd_on_nosuid_fs|int fd
1562# endif
1563s |void* |parse_body |va_list args
1564s |void* |run_body |va_list args
1565s |void* |call_body |va_list args
1566s |void |call_xbody |OP *myop|int is_eval
1567s |void* |call_list_body |va_list args
1568# if defined(USE_THREADS)
1569s |struct perl_thread * |init_main_thread
1570# endif
1571#endif
1572
0cb96387 1573#if defined(PERL_IN_PP_C) || defined(PERL_DECL_PROT)
cea2e8a9
GS
1574s |void |doencodes |SV* sv|char* s|I32 len
1575s |SV* |refto |SV* sv
1576s |U32 |seed
1577s |SV* |mul128 |SV *sv|U8 m
1578s |SV* |is_an_int |char *s|STRLEN l
1579s |int |div128 |SV *pnum|bool *done
1580#endif
1581
0cb96387 1582#if defined(PERL_IN_PP_CTL_C) || defined(PERL_DECL_PROT)
cea2e8a9
GS
1583s |OP* |docatch |OP *o
1584s |void* |docatch_body |va_list args
1585s |OP* |dofindlabel |OP *o|char *label|OP **opstack|OP **oplimit
1586s |void |doparseform |SV *sv
1587s |I32 |dopoptoeval |I32 startingblock
1588s |I32 |dopoptolabel |char *label
1589s |I32 |dopoptoloop |I32 startingblock
1590s |I32 |dopoptosub |I32 startingblock
1591s |I32 |dopoptosub_at |PERL_CONTEXT* cxstk|I32 startingblock
1592s |void |free_closures
1593s |void |save_lines |AV *array|SV *sv
1594s |OP* |doeval |int gimme|OP** startop
1595s |PerlIO *|doopen_pmc |const char *name|const char *mode
1596s |void |qsortsv |SV ** array|size_t num_elts|SVCOMPARE_t f
1597s |I32 |sortcv |SV *a|SV *b
1598s |I32 |sv_ncmp |SV *a|SV *b
1599s |I32 |sv_i_ncmp |SV *a|SV *b
1600s |I32 |amagic_ncmp |SV *a|SV *b
1601s |I32 |amagic_i_ncmp |SV *a|SV *b
1602s |I32 |amagic_cmp |SV *str1|SV *str2
1603s |I32 |amagic_cmp_locale|SV *str1|SV *str2
1604#endif
1605
0cb96387 1606#if defined(PERL_IN_PP_HOT_C) || defined(PERL_DECL_PROT)
cea2e8a9
GS
1607s |CV* |get_db_sub |SV **svp|CV *cv
1608# if defined(USE_THREADS)
1609s |void |unset_cvowner |void *cvarg
1610# endif
1611#endif
1612
0cb96387 1613#if defined(PERL_IN_PP_SYS_C) || defined(PERL_DECL_PROT)
cea2e8a9
GS
1614s |OP* |doform |CV *cv|GV *gv|OP *retop
1615s |int |emulate_eaccess|const char* path|int mode
1616# if !defined(HAS_MKDIR) || !defined(HAS_RMDIR)
1617s |int |dooneliner |char *cmd|char *filename
1618# endif
1619#endif
1620
0cb96387 1621#if defined(PERL_IN_REGCOMP_C) || defined(PERL_DECL_PROT)
cea2e8a9
GS
1622s |regnode*|reg |I32|I32 *
1623s |regnode*|reganode |U8|U32
1624s |regnode*|regatom |I32 *
1625s |regnode*|regbranch |I32 *|I32
1626s |void |regc |U8|char *
1627s |void |reguni |UV|char *|I32*
1628s |regnode*|regclass
1629s |regnode*|regclassutf8
1630s |I32 |regcurly |char *
1631s |regnode*|reg_node |U8
1632s |regnode*|regpiece |I32 *
1633s |void |reginsert |U8|regnode *
1634s |void |regoptail |regnode *|regnode *
1635s |void |regtail |regnode *|regnode *
1636s |char*|regwhite |char *|char *
1637s |char*|nextchar
1638s |regnode*|dumpuntil |regnode *start|regnode *node \
1639 |regnode *last|SV* sv|I32 l
1640s |void |scan_commit |scan_data_t *data
1641s |I32 |study_chunk |regnode **scanp|I32 *deltap \
1642 |regnode *last|scan_data_t *data|U32 flags
1643s |I32 |add_data |I32 n|char *s
1644rs |void|re_croak2 |const char* pat1|const char* pat2|...
1645s |char*|regpposixcc |I32 value
1646s |void |clear_re |void *r
1647#endif
1648
0cb96387 1649#if defined(PERL_IN_REGEXEC_C) || defined(PERL_DECL_PROT)
cea2e8a9
GS
1650s |I32 |regmatch |regnode *prog
1651s |I32 |regrepeat |regnode *p|I32 max
1652s |I32 |regrepeat_hard |regnode *p|I32 max|I32 *lp
1653s |I32 |regtry |regexp *prog|char *startpos
1654s |bool |reginclass |char *p|I32 c
1655s |bool |reginclassutf8 |regnode *f|U8* p
1656s |CHECKPOINT|regcppush |I32 parenfloor
1657s |char*|regcppop
1658s |char*|regcp_set_to |I32 ss
1659s |void |cache_re |regexp *prog
1660s |void |restore_pos |void *arg
1661s |U8* |reghop |U8 *pos|I32 off
1662s |U8* |reghopmaybe |U8 *pos|I32 off
1663#endif
1664
0cb96387 1665#if defined(PERL_IN_RUN_C) || defined(PERL_DECL_PROT)
cea2e8a9
GS
1666s |void |debprof |OP *o
1667#endif
1668
0cb96387 1669#if defined(PERL_IN_SCOPE_C) || defined(PERL_DECL_PROT)
cea2e8a9
GS
1670s |SV* |save_scalar_at |SV **sptr
1671#endif
1672
0cb96387 1673#if defined(PERL_IN_SV_C) || defined(PERL_DECL_PROT)
cea2e8a9
GS
1674s |IV |asIV |SV* sv
1675s |UV |asUV |SV* sv
1676s |SV* |more_sv
1677s |void |more_xiv
1678s |void |more_xnv
1679s |void |more_xpv
1680s |void |more_xrv
1681s |XPVIV* |new_xiv
1682s |XPVNV* |new_xnv
1683s |XPV* |new_xpv
1684s |XRV* |new_xrv
1685s |void |del_xiv |XPVIV* p
1686s |void |del_xnv |XPVNV* p
1687s |void |del_xpv |XPV* p
1688s |void |del_xrv |XRV* p
1689s |void |sv_unglob |SV* sv
1690s |void |do_report_used |SV *sv
1691s |void |do_clean_objs |SV *sv
1692s |void |do_clean_named_objs|SV *sv
1693s |void |do_clean_all |SV *sv
1694s |void |not_a_number |SV *sv
1695s |void |visit |SVFUNC_t f
1696# if defined(PURIFY)
1697s |void |reg_add |SV *sv
1698s |void |reg_remove |SV *sv
1699# else
4f63d024 1700ns |void* |my_safemalloc |MEM_SIZE size
cea2e8a9
GS
1701# endif
1702s |void |sv_add_backref |SV *tsv|SV *sv
1703s |void |sv_del_backref |SV *sv
1704# if defined(DEBUGGING)
1705s |void |del_sv |SV *p
1706# endif
1707#endif
1708
0cb96387 1709#if defined(PERL_IN_TOKE_C) || defined(PERL_DECL_PROT)
cea2e8a9
GS
1710s |void |check_uni
1711s |void |force_next |I32 type
1712s |char* |force_version |char *start
1713s |char* |force_word |char *start|int token|int check_keyword \
1714 |int allow_pack|int allow_tick
1715s |SV* |tokeq |SV *sv
1716s |char* |scan_const |char *start
1717s |char* |scan_formline |char *s
1718s |char* |scan_heredoc |char *s
1719s |char* |scan_ident |char *s|char *send|char *dest \
1720 |STRLEN destlen|I32 ck_uni
1721s |char* |scan_inputsymbol|char *start
1722s |char* |scan_pat |char *start|I32 type
1723s |char* |scan_str |char *start
1724s |char* |scan_subst |char *start
1725s |char* |scan_trans |char *start
1726s |char* |scan_word |char *s|char *dest|STRLEN destlen \
1727 |int allow_package|STRLEN *slp
1728s |char* |skipspace |char *s
1729s |void |checkcomma |char *s|char *name|char *what
1730s |void |force_ident |char *s|int kind
1731s |void |incline |char *s
1732s |int |intuit_method |char *s|GV *gv
1733s |int |intuit_more |char *s
1734s |I32 |lop |I32 f|expectation x|char *s
1735s |void |missingterm |char *s
1736s |void |no_op |char *what|char *s
1737s |void |set_csh
1738s |I32 |sublex_done
1739s |I32 |sublex_push
1740s |I32 |sublex_start
1741s |char * |filter_gets |SV *sv|PerlIO *fp|STRLEN append
1742s |SV* |new_constant |char *s|STRLEN len|char *key|SV *sv \
1743 |SV *pv|char *type
1744s |int |ao |int toketype
1745s |void |depcom
1746s |char* |incl_perldb
1747s |I32 |utf16_textfilter|int idx|SV *sv|int maxlen
1748s |I32 |utf16rev_textfilter|int idx|SV *sv|int maxlen
1749s |void |restore_rsfp |void *f
1750s |void |restore_expect |void *e
1751s |void |restore_lex_expect |void *e
1752# if defined(CRIPPLED_CC)
1753s |int |uni |I32 f|char *s
1754# endif
1755# if defined(WIN32)
1756s |I32 |win32_textfilter |int idx|SV *sv|int maxlen
1757# endif
1758#endif
1759
0cb96387 1760#if defined(PERL_IN_UNIVERSAL_C) || defined(PERL_DECL_PROT)
cea2e8a9
GS
1761s |SV*|isa_lookup |HV *stash|const char *name|int len|int level
1762#endif
1763
0cb96387 1764#if defined(PERL_IN_UTIL_C) || defined(PERL_DECL_PROT)
cea2e8a9
GS
1765s |SV* |mess_alloc
1766rs |void |do_croak |const char *pat|va_list *args
1767s |void |do_warn |const char *pat|va_list *args
0cb96387 1768s |OP* |do_die |const char *pat|va_list *args
cea2e8a9
GS
1769# if defined(LEAKTEST)
1770s |void |xstat |int
1771# endif
1772#endif