This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Mention EPOC and SOCKS.
[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
cad2e5aa
JH
784p |U32 |cast_ulong |NV f
785p |I32 |cast_i32 |NV f
786p |IV |cast_iv |NV f
787p |UV |cast_uv |NV f
cea2e8a9
GS
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
cad2e5aa 1061p |NV |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
cad2e5aa 1130p |SV* |newSVnv |NV n
cea2e8a9
GS
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
cad2e5aa
JH
1213p |char* |re_intuit_start|regexp* prog|SV* sv|char* strpos \
1214 |char* strend|U32 flags \
1215 |struct re_scream_pos_data_s *data
1216p |SV* |re_intuit_string|regexp* prog
cea2e8a9
GS
1217p |I32 |regexec_flags |regexp* prog|char* stringarg \
1218 |char* strend|char* strbeg|I32 minend \
1219 |SV* screamer|void* data|U32 flags
1220p |regnode*|regnext |regnode* p
1221p |void |regprop |SV* sv|regnode* o
1222p |void |repeatcpy |char* to|const char* from|I32 len|I32 count
1223p |char* |rninstr |const char* big|const char* bigend \
1224 |const char* little|const char* lend
1225p |Sighandler_t|rsignal |int i|Sighandler_t t
1226p |int |rsignal_restore|int i|Sigsave_t* t
1227p |int |rsignal_save |int i|Sighandler_t t1|Sigsave_t* t2
1228p |Sighandler_t|rsignal_state|int i
1229p |void |rxres_free |void** rsp
1230p |void |rxres_restore |void** rsp|REGEXP* prx
1231p |void |rxres_save |void** rsp|REGEXP* prx
1232#if !defined(HAS_RENAME)
1233p |I32 |same_dirent |char* a|char* b
1234#endif
1235p |char* |savepv |const char* sv
1236p |char* |savepvn |const char* sv|I32 len
1237p |void |savestack_grow
1238p |void |save_aelem |AV* av|I32 idx|SV **sptr
1239p |I32 |save_alloc |I32 size|I32 pad
1240p |void |save_aptr |AV** aptr
1241p |AV* |save_ary |GV* gv
1242p |void |save_clearsv |SV** svp
1243p |void |save_delete |HV* hv|char* key|I32 klen
1244p |void |save_destructor|DESTRUCTORFUNC_t f|void* p
1245p |void |save_freesv |SV* sv
1246p |void |save_freeop |OP* o
1247p |void |save_freepv |char* pv
1248p |void |save_generic_svref|SV** sptr
1249p |void |save_gp |GV* gv|I32 empty
1250p |HV* |save_hash |GV* gv
1251p |void |save_helem |HV* hv|SV *key|SV **sptr
1252p |void |save_hints
1253p |void |save_hptr |HV** hptr
1254p |void |save_I16 |I16* intp
1255p |void |save_I32 |I32* intp
1256p |void |save_int |int* intp
1257p |void |save_item |SV* item
1258p |void |save_iv |IV* iv
1259p |void |save_list |SV** sarg|I32 maxsarg
1260p |void |save_long |long* longp
1261p |void |save_nogv |GV* gv
1262p |void |save_op
1263p |SV* |save_scalar |GV* gv
1264p |void |save_pptr |char** pptr
1265p |void |save_re_context
1266p |void |save_sptr |SV** sptr
1267p |SV* |save_svref |SV** sptr
1268p |SV** |save_threadsv |PADOFFSET i
1269p |OP* |sawparens |OP* o
1270p |OP* |scalar |OP* o
1271p |OP* |scalarkids |OP* o
1272p |OP* |scalarseq |OP* o
1273p |OP* |scalarvoid |OP* o
1274p |UV |scan_bin |char* start|I32 len|I32* retlen
1275p |UV |scan_hex |char* start|I32 len|I32* retlen
1276p |char* |scan_num |char* s
1277p |UV |scan_oct |char* start|I32 len|I32* retlen
1278p |OP* |scope |OP* o
1279p |char* |screaminstr |SV* bigsv|SV* littlesv|I32 start_shift \
1280 |I32 end_shift|I32 *state|I32 last
1281#if !defined(VMS)
1282p |I32 |setenv_getix |char* nam
1283#endif
1284p |void |setdefout |GV* gv
1285p |char* |sharepvn |const char* sv|I32 len|U32 hash
1286p |HEK* |share_hek |const char* sv|I32 len|U32 hash
1287np |Signal_t |sighandler |int sig
1288p |SV** |stack_grow |SV** sp|SV**p|int n
1289p |I32 |start_subparse |I32 is_format|U32 flags
1290p |void |sub_crush_depth|CV* cv
1291p |bool |sv_2bool |SV* sv
1292p |CV* |sv_2cv |SV* sv|HV** st|GV** gvp|I32 lref
1293p |IO* |sv_2io |SV* sv
1294p |IV |sv_2iv |SV* sv
1295p |SV* |sv_2mortal |SV* sv
cad2e5aa 1296p |NV |sv_2nv |SV* sv
cea2e8a9
GS
1297p |char* |sv_2pv |SV* sv|STRLEN* lp
1298p |UV |sv_2uv |SV* sv
1299p |IV |sv_iv |SV* sv
1300p |UV |sv_uv |SV* sv
cad2e5aa 1301p |NV |sv_nv |SV* sv
cea2e8a9
GS
1302p |char* |sv_pvn |SV *sv|STRLEN *len
1303p |I32 |sv_true |SV *sv
1304p |void |sv_add_arena |char* ptr|U32 size|U32 flags
1305p |int |sv_backoff |SV* sv
1306p |SV* |sv_bless |SV* sv|HV* stash
1307p |void |sv_catpvf |SV* sv|const char* pat|...
1308p |void |sv_catpv |SV* sv|const char* ptr
1309p |void |sv_catpvn |SV* sv|const char* ptr|STRLEN len
1310p |void |sv_catsv |SV* dsv|SV* ssv
1311p |void |sv_chop |SV* sv|char* ptr
1312p |void |sv_clean_all
1313p |void |sv_clean_objs
1314p |void |sv_clear |SV* sv
1315p |I32 |sv_cmp |SV* sv1|SV* sv2
1316p |I32 |sv_cmp_locale |SV* sv1|SV* sv2
1317#if defined(USE_LOCALE_COLLATE)
1318p |char* |sv_collxfrm |SV* sv|STRLEN* nxp
1319#endif
1320p |OP* |sv_compile_2op |SV* sv|OP** startp|char* code|AV** avp
1321p |void |sv_dec |SV* sv
1322p |void |sv_dump |SV* sv
1323p |bool |sv_derived_from|SV* sv|const char* name
1324p |I32 |sv_eq |SV* sv1|SV* sv2
1325p |void |sv_free |SV* sv
1326p |void |sv_free_arenas
1327p |char* |sv_gets |SV* sv|PerlIO* fp|I32 append
1328p |char* |sv_grow |SV* sv|STRLEN newlen
1329p |void |sv_inc |SV* sv
1330p |void |sv_insert |SV* bigsv|STRLEN offset|STRLEN len \
1331 |char* little|STRLEN littlelen
1332p |int |sv_isa |SV* sv|const char* name
1333p |int |sv_isobject |SV* sv
1334p |STRLEN |sv_len |SV* sv
1335p |STRLEN |sv_len_utf8 |SV* sv
1336p |void |sv_magic |SV* sv|SV* obj|int how|const char* name \
1337 |I32 namlen
1338p |SV* |sv_mortalcopy |SV* oldsv
1339p |SV* |sv_newmortal
1340p |SV* |sv_newref |SV* sv
1341p |char* |sv_peek |SV* sv
1342p |void |sv_pos_u2b |SV* sv|I32* offsetp|I32* lenp
1343p |void |sv_pos_b2u |SV* sv|I32* offsetp
1344p |char* |sv_pvn_force |SV* sv|STRLEN* lp
1345p |char* |sv_reftype |SV* sv|int ob
1346p |void |sv_replace |SV* sv|SV* nsv
1347p |void |sv_report_used
1348p |void |sv_reset |char* s|HV* stash
1349p |void |sv_setpvf |SV* sv|const char* pat|...
1350p |void |sv_setiv |SV* sv|IV num
1351p |void |sv_setpviv |SV* sv|IV num
1352p |void |sv_setuv |SV* sv|UV num
cad2e5aa 1353p |void |sv_setnv |SV* sv|NV num
cea2e8a9 1354p |SV* |sv_setref_iv |SV* rv|const char* classname|IV iv
cad2e5aa 1355p |SV* |sv_setref_nv |SV* rv|const char* classname|NV nv
cea2e8a9
GS
1356p |SV* |sv_setref_pv |SV* rv|const char* classname|void* pv
1357p |SV* |sv_setref_pvn |SV* rv|const char* classname|char* pv \
1358 |STRLEN n
1359p |void |sv_setpv |SV* sv|const char* ptr
1360p |void |sv_setpvn |SV* sv|const char* ptr|STRLEN len
1361p |void |sv_setsv |SV* dsv|SV* ssv
1362p |void |sv_taint |SV* sv
1363p |bool |sv_tainted |SV* sv
1364p |int |sv_unmagic |SV* sv|int type
1365p |void |sv_unref |SV* sv
1366p |void |sv_untaint |SV* sv
1367p |bool |sv_upgrade |SV* sv|U32 mt
1368p |void |sv_usepvn |SV* sv|char* ptr|STRLEN len
1369p |void |sv_vcatpvfn |SV* sv|const char* pat|STRLEN patlen \
1370 |va_list* args|SV** svargs|I32 svmax \
1371 |bool *used_locale
1372p |void |sv_vsetpvfn |SV* sv|const char* pat|STRLEN patlen \
1373 |va_list* args|SV** svargs|I32 svmax \
1374 |bool *used_locale
1375p |SV* |swash_init |char* pkg|char* name|SV* listsv \
1376 |I32 minbits|I32 none
1377p |UV |swash_fetch |SV *sv|U8 *ptr
1378p |void |taint_env
1379p |void |taint_proper |const char* f|char* s
1380p |UV |to_utf8_lower |U8 *p
1381p |UV |to_utf8_upper |U8 *p
1382p |UV |to_utf8_title |U8 *p
1383#if defined(UNLINK_ALL_VERSIONS)
1384p |I32 |unlnk |char* f
1385#endif
1386#if defined(USE_THREADS)
1387p |void |unlock_condpair|void* svv
1388#endif
1389p |void |unsharepvn |const char* sv|I32 len|U32 hash
1390p |void |unshare_hek |HEK* hek
1391p |void |utilize |int aver|I32 floor|OP* version|OP* id|OP* arg
1392p |U8* |utf16_to_utf8 |U16* p|U8 *d|I32 bytelen
1393p |U8* |utf16_to_utf8_reversed|U16* p|U8 *d|I32 bytelen
1394p |I32 |utf8_distance |U8 *a|U8 *b
1395p |U8* |utf8_hop |U8 *s|I32 off
1396p |UV |utf8_to_uv |U8 *s|I32* retlen
1397p |U8* |uv_to_utf8 |U8 *d|UV uv
1398p |void |vivify_defelem |SV* sv
1399p |void |vivify_ref |SV* sv|U32 to_what
1400p |I32 |wait4pid |int pid|int* statusp|int flags
1401p |void |warn |const char* pat|...
1402p |void |warner |U32 err|const char* pat|...
1403p |void |watch |char** addr
1404p |I32 |whichsig |char* sig
1405p |int |yyerror |char* s
1406#if defined(USE_PURE_BISON)
1407p |int |yylex |YYSTYPE *lvalp|int *lcharp
1408#else
1409p |int |yylex
1410#endif
1411p |int |yyparse
1412p |int |yywarn |char* s
1413#if defined(MYMALLOC)
1414p |void |dump_mstats |char* s
1415pno |Malloc_t|malloc |MEM_SIZE nbytes
1416pno |Malloc_t|calloc |MEM_SIZE elements|MEM_SIZE size
1417pno |Malloc_t|realloc |Malloc_t where|MEM_SIZE nbytes
1418pno |Free_t |mfree |Malloc_t where
1419#endif
4f63d024
GS
1420pn |Malloc_t|safesysmalloc |MEM_SIZE nbytes
1421pn |Malloc_t|safesyscalloc |MEM_SIZE elements|MEM_SIZE size
1422pn |Malloc_t|safesysrealloc|Malloc_t where|MEM_SIZE nbytes
1423pn |Free_t |safesysfree |Malloc_t where
cea2e8a9 1424#if defined(LEAKTEST)
4f63d024
GS
1425pn |Malloc_t|safexmalloc |I32 x|MEM_SIZE size
1426pn |Malloc_t|safexcalloc |I32 x|MEM_SIZE elements|MEM_SIZE size
1427pn |Malloc_t|safexrealloc |Malloc_t where|MEM_SIZE size
1428pn |void |safexfree |Malloc_t where
cea2e8a9
GS
1429#endif
1430#if defined(PERL_GLOBAL_STRUCT)
1431p |struct perl_vars *|GetVars
1432#endif
1433p |void |yydestruct |void *ptr
1434p |int |runops_standard
1435p |int |runops_debug
1436
1437#if defined(WIN32)
0cb96387
GS
1438#if defined(PERL_OBJECT)
1439p |int& |ErrorNo
1440#else
43165c05 1441p |int* |ErrorNo
cea2e8a9 1442#endif
0cb96387 1443#endif
cea2e8a9
GS
1444p |void |sv_catpvf_mg |SV *sv|const char* pat|...
1445p |void |sv_catpv_mg |SV *sv|const char *ptr
1446p |void |sv_catpvn_mg |SV *sv|const char *ptr|STRLEN len
1447p |void |sv_catsv_mg |SV *dstr|SV *sstr
1448p |void |sv_setpvf_mg |SV *sv|const char* pat|...
1449p |void |sv_setiv_mg |SV *sv|IV i
1450p |void |sv_setpviv_mg |SV *sv|IV iv
1451p |void |sv_setuv_mg |SV *sv|UV u
cad2e5aa 1452p |void |sv_setnv_mg |SV *sv|NV num
cea2e8a9
GS
1453p |void |sv_setpv_mg |SV *sv|const char *ptr
1454p |void |sv_setpvn_mg |SV *sv|const char *ptr|STRLEN len
1455p |void |sv_setsv_mg |SV *dstr|SV *sstr
1456p |void |sv_usepvn_mg |SV *sv|char *ptr|STRLEN len
1457p |MGVTBL*|get_vtbl |int vtbl_id
1458p |char* |pv_display |SV *sv|char *pv|STRLEN cur|STRLEN len \
1459 |STRLEN pvlim
1460p |void |dump_indent |I32 level|PerlIO *file|const char* pat|...
1461p |void |do_gv_dump |I32 level|PerlIO *file|char *name|GV *sv
1462p |void |do_gvgv_dump |I32 level|PerlIO *file|char *name|GV *sv
1463p |void |do_hv_dump |I32 level|PerlIO *file|char *name|HV *sv
1464p |void |do_magic_dump |I32 level|PerlIO *file|MAGIC *mg|I32 nest \
1465 |I32 maxnest|bool dumpops|STRLEN pvlim
1466p |void |do_op_dump |I32 level|PerlIO *file|OP *o
1467p |void |do_pmop_dump |I32 level|PerlIO *file|PMOP *pm
1468p |void |do_sv_dump |I32 level|PerlIO *file|SV *sv|I32 nest \
1469 |I32 maxnest|bool dumpops|STRLEN pvlim
1470p |void |magic_dump |MAGIC *mg
1471p |void* |default_protect|int *excpt|protect_body_t body|...
1472p |void |reginitcolors
1473p |char* |sv_2pv_nolen |SV* sv
1474p |char* |sv_pv |SV *sv
1475p |void |sv_force_normal|SV *sv
1476p |void |tmps_grow |I32 n
1477p |SV* |sv_rvweaken |SV *sv
1478p |int |magic_killbackrefs|SV *sv|MAGIC *mg
1479
0cb96387
GS
1480#if defined(PERL_OBJECT)
1481protected:
1482#endif
1483#if defined(PERL_IN_AV_C) || defined(PERL_DECL_PROT)
cea2e8a9
GS
1484s |I32 |avhv_index_sv |SV* sv
1485#endif
1486
0cb96387 1487#if defined(PERL_IN_DOOP_C) || defined(PERL_DECL_PROT)
cea2e8a9
GS
1488s |I32 |do_trans_CC_simple |SV *sv
1489s |I32 |do_trans_CC_count |SV *sv
1490s |I32 |do_trans_CC_complex |SV *sv
1491s |I32 |do_trans_UU_simple |SV *sv
1492s |I32 |do_trans_UU_count |SV *sv
1493s |I32 |do_trans_UU_complex |SV *sv
1494s |I32 |do_trans_UC_simple |SV *sv
1495s |I32 |do_trans_CU_simple |SV *sv
1496s |I32 |do_trans_UC_trivial |SV *sv
1497s |I32 |do_trans_CU_trivial |SV *sv
1498#endif
1499
0cb96387 1500#if defined(PERL_IN_GV_C) || defined(PERL_DECL_PROT)
cea2e8a9
GS
1501s |void |gv_init_sv |GV *gv|I32 sv_type
1502#endif
1503
0cb96387 1504#if defined(PERL_IN_HV_C) || defined(PERL_DECL_PROT)
cea2e8a9
GS
1505s |void |hsplit |HV *hv
1506s |void |hfreeentries |HV *hv
1507s |void |more_he
1508s |HE* |new_he
1509s |void |del_he |HE *p
1510s |HEK* |save_hek |const char *str|I32 len|U32 hash
1511s |void |hv_magic_check |HV *hv|bool *needs_copy|bool *needs_store
1512#endif
1513
0cb96387 1514#if defined(PERL_IN_MG_C) || defined(PERL_DECL_PROT)
cea2e8a9
GS
1515s |void |save_magic |I32 mgs_ix|SV *sv
1516s |int |magic_methpack |SV *sv|MAGIC *mg|char *meth
1517s |int |magic_methcall |SV *sv|MAGIC *mg|char *meth|I32 f \
1518 |int n|SV *val
1519s |void |unwind_handler_stack |void *p
1520s |void |restore_magic |void *p
1521#endif
1522
0cb96387 1523#if defined(PERL_IN_OP_C) || defined(PERL_DECL_PROT)
cea2e8a9
GS
1524s |I32 |list_assignment|OP *o
1525s |void |bad_type |I32 n|char *t|char *name|OP *kid
1526s |OP* |modkids |OP *o|I32 type
1527s |void |no_bareword_allowed|OP *o
1528s |OP* |no_fh_allowed |OP *o
1529s |OP* |scalarboolean |OP *o
1530s |OP* |too_few_arguments|OP *o|char* name
1531s |OP* |too_many_arguments|OP *o|char* name
1532s |void |null |OP* o
1533s |PADOFFSET|pad_findlex |char* name|PADOFFSET newoff|U32 seq \
1534 |CV* startcv|I32 cx_ix|I32 saweval|U32 flags
1535s |OP* |newDEFSVOP
1536s |OP* |new_logop |I32 type|I32 flags|OP **firstp|OP **otherp
1537s |void |simplify_sort |OP *o
1538s |bool |is_handle_constructor |OP *o|I32 argnum
1539s |char* |gv_ename |GV *gv
1540s |CV* |cv_clone2 |CV *proto|CV *outside
1541s |bool |scalar_mod_type|OP *o|I32 type
1542# if defined(PL_OP_SLAB_ALLOC)
1543s |void* |Slab_Alloc |int m|size_t sz
1544# endif
1545#endif
1546
0cb96387 1547#if defined(PERL_IN_PERL_C) || defined(PERL_DECL_PROT)
cea2e8a9
GS
1548s |void |find_beginning
1549s |void |forbid_setid |char *
1550s |void |incpush |char *|int
1551s |void |init_interp
1552s |void |init_ids
1553s |void |init_debugger
1554s |void |init_lexer
1555s |void |init_main_stash
1556s |void |init_perllib
1557s |void |init_postdump_symbols|int|char **|char **
1558s |void |init_predump_symbols
1559rs |void |my_exit_jump
1560s |void |nuke_stacks
1561s |void |open_script |char *|bool|SV *|int *fd
1562s |void |usage |char *
1563s |void |validate_suid |char *|char*|int
cea2e8a9
GS
1564# if defined(IAMSUID)
1565s |int |fd_on_nosuid_fs|int fd
1566# endif
1567s |void* |parse_body |va_list args
1568s |void* |run_body |va_list args
1569s |void* |call_body |va_list args
1570s |void |call_xbody |OP *myop|int is_eval
1571s |void* |call_list_body |va_list args
1572# if defined(USE_THREADS)
1573s |struct perl_thread * |init_main_thread
1574# endif
1575#endif
1576
0cb96387 1577#if defined(PERL_IN_PP_C) || defined(PERL_DECL_PROT)
cea2e8a9
GS
1578s |void |doencodes |SV* sv|char* s|I32 len
1579s |SV* |refto |SV* sv
1580s |U32 |seed
1581s |SV* |mul128 |SV *sv|U8 m
1582s |SV* |is_an_int |char *s|STRLEN l
1583s |int |div128 |SV *pnum|bool *done
1584#endif
1585
0cb96387 1586#if defined(PERL_IN_PP_CTL_C) || defined(PERL_DECL_PROT)
cea2e8a9
GS
1587s |OP* |docatch |OP *o
1588s |void* |docatch_body |va_list args
1589s |OP* |dofindlabel |OP *o|char *label|OP **opstack|OP **oplimit
1590s |void |doparseform |SV *sv
1591s |I32 |dopoptoeval |I32 startingblock
1592s |I32 |dopoptolabel |char *label
1593s |I32 |dopoptoloop |I32 startingblock
1594s |I32 |dopoptosub |I32 startingblock
1595s |I32 |dopoptosub_at |PERL_CONTEXT* cxstk|I32 startingblock
1596s |void |free_closures
1597s |void |save_lines |AV *array|SV *sv
1598s |OP* |doeval |int gimme|OP** startop
1599s |PerlIO *|doopen_pmc |const char *name|const char *mode
1600s |void |qsortsv |SV ** array|size_t num_elts|SVCOMPARE_t f
1601s |I32 |sortcv |SV *a|SV *b
1602s |I32 |sv_ncmp |SV *a|SV *b
1603s |I32 |sv_i_ncmp |SV *a|SV *b
1604s |I32 |amagic_ncmp |SV *a|SV *b
1605s |I32 |amagic_i_ncmp |SV *a|SV *b
1606s |I32 |amagic_cmp |SV *str1|SV *str2
1607s |I32 |amagic_cmp_locale|SV *str1|SV *str2
1608#endif
1609
0cb96387 1610#if defined(PERL_IN_PP_HOT_C) || defined(PERL_DECL_PROT)
cea2e8a9
GS
1611s |CV* |get_db_sub |SV **svp|CV *cv
1612# if defined(USE_THREADS)
1613s |void |unset_cvowner |void *cvarg
1614# endif
1615#endif
1616
0cb96387 1617#if defined(PERL_IN_PP_SYS_C) || defined(PERL_DECL_PROT)
cea2e8a9
GS
1618s |OP* |doform |CV *cv|GV *gv|OP *retop
1619s |int |emulate_eaccess|const char* path|int mode
1620# if !defined(HAS_MKDIR) || !defined(HAS_RMDIR)
1621s |int |dooneliner |char *cmd|char *filename
1622# endif
1623#endif
1624
0cb96387 1625#if defined(PERL_IN_REGCOMP_C) || defined(PERL_DECL_PROT)
cea2e8a9
GS
1626s |regnode*|reg |I32|I32 *
1627s |regnode*|reganode |U8|U32
1628s |regnode*|regatom |I32 *
1629s |regnode*|regbranch |I32 *|I32
1630s |void |regc |U8|char *
1631s |void |reguni |UV|char *|I32*
1632s |regnode*|regclass
1633s |regnode*|regclassutf8
1634s |I32 |regcurly |char *
1635s |regnode*|reg_node |U8
1636s |regnode*|regpiece |I32 *
1637s |void |reginsert |U8|regnode *
1638s |void |regoptail |regnode *|regnode *
1639s |void |regtail |regnode *|regnode *
1640s |char*|regwhite |char *|char *
1641s |char*|nextchar
1642s |regnode*|dumpuntil |regnode *start|regnode *node \
1643 |regnode *last|SV* sv|I32 l
1644s |void |scan_commit |scan_data_t *data
1645s |I32 |study_chunk |regnode **scanp|I32 *deltap \
1646 |regnode *last|scan_data_t *data|U32 flags
1647s |I32 |add_data |I32 n|char *s
1648rs |void|re_croak2 |const char* pat1|const char* pat2|...
1649s |char*|regpposixcc |I32 value
1650s |void |clear_re |void *r
1651#endif
1652
0cb96387 1653#if defined(PERL_IN_REGEXEC_C) || defined(PERL_DECL_PROT)
cea2e8a9
GS
1654s |I32 |regmatch |regnode *prog
1655s |I32 |regrepeat |regnode *p|I32 max
1656s |I32 |regrepeat_hard |regnode *p|I32 max|I32 *lp
1657s |I32 |regtry |regexp *prog|char *startpos
1658s |bool |reginclass |char *p|I32 c
1659s |bool |reginclassutf8 |regnode *f|U8* p
1660s |CHECKPOINT|regcppush |I32 parenfloor
1661s |char*|regcppop
1662s |char*|regcp_set_to |I32 ss
1663s |void |cache_re |regexp *prog
1664s |void |restore_pos |void *arg
1665s |U8* |reghop |U8 *pos|I32 off
1666s |U8* |reghopmaybe |U8 *pos|I32 off
1667#endif
1668
0cb96387 1669#if defined(PERL_IN_RUN_C) || defined(PERL_DECL_PROT)
cea2e8a9
GS
1670s |void |debprof |OP *o
1671#endif
1672
0cb96387 1673#if defined(PERL_IN_SCOPE_C) || defined(PERL_DECL_PROT)
cea2e8a9
GS
1674s |SV* |save_scalar_at |SV **sptr
1675#endif
1676
0cb96387 1677#if defined(PERL_IN_SV_C) || defined(PERL_DECL_PROT)
cea2e8a9
GS
1678s |IV |asIV |SV* sv
1679s |UV |asUV |SV* sv
1680s |SV* |more_sv
1681s |void |more_xiv
1682s |void |more_xnv
1683s |void |more_xpv
1684s |void |more_xrv
1685s |XPVIV* |new_xiv
1686s |XPVNV* |new_xnv
1687s |XPV* |new_xpv
1688s |XRV* |new_xrv
1689s |void |del_xiv |XPVIV* p
1690s |void |del_xnv |XPVNV* p
1691s |void |del_xpv |XPV* p
1692s |void |del_xrv |XRV* p
1693s |void |sv_unglob |SV* sv
1694s |void |do_report_used |SV *sv
1695s |void |do_clean_objs |SV *sv
1696s |void |do_clean_named_objs|SV *sv
1697s |void |do_clean_all |SV *sv
1698s |void |not_a_number |SV *sv
1699s |void |visit |SVFUNC_t f
1700# if defined(PURIFY)
1701s |void |reg_add |SV *sv
1702s |void |reg_remove |SV *sv
1703# else
4f63d024 1704ns |void* |my_safemalloc |MEM_SIZE size
cea2e8a9
GS
1705# endif
1706s |void |sv_add_backref |SV *tsv|SV *sv
1707s |void |sv_del_backref |SV *sv
1708# if defined(DEBUGGING)
1709s |void |del_sv |SV *p
1710# endif
1711#endif
1712
0cb96387 1713#if defined(PERL_IN_TOKE_C) || defined(PERL_DECL_PROT)
cea2e8a9
GS
1714s |void |check_uni
1715s |void |force_next |I32 type
1716s |char* |force_version |char *start
1717s |char* |force_word |char *start|int token|int check_keyword \
1718 |int allow_pack|int allow_tick
1719s |SV* |tokeq |SV *sv
1720s |char* |scan_const |char *start
1721s |char* |scan_formline |char *s
1722s |char* |scan_heredoc |char *s
1723s |char* |scan_ident |char *s|char *send|char *dest \
1724 |STRLEN destlen|I32 ck_uni
1725s |char* |scan_inputsymbol|char *start
1726s |char* |scan_pat |char *start|I32 type
1727s |char* |scan_str |char *start
1728s |char* |scan_subst |char *start
1729s |char* |scan_trans |char *start
1730s |char* |scan_word |char *s|char *dest|STRLEN destlen \
1731 |int allow_package|STRLEN *slp
1732s |char* |skipspace |char *s
1733s |void |checkcomma |char *s|char *name|char *what
1734s |void |force_ident |char *s|int kind
1735s |void |incline |char *s
1736s |int |intuit_method |char *s|GV *gv
1737s |int |intuit_more |char *s
1738s |I32 |lop |I32 f|expectation x|char *s
1739s |void |missingterm |char *s
1740s |void |no_op |char *what|char *s
1741s |void |set_csh
1742s |I32 |sublex_done
1743s |I32 |sublex_push
1744s |I32 |sublex_start
1745s |char * |filter_gets |SV *sv|PerlIO *fp|STRLEN append
1746s |SV* |new_constant |char *s|STRLEN len|char *key|SV *sv \
1747 |SV *pv|char *type
1748s |int |ao |int toketype
1749s |void |depcom
1750s |char* |incl_perldb
1751s |I32 |utf16_textfilter|int idx|SV *sv|int maxlen
1752s |I32 |utf16rev_textfilter|int idx|SV *sv|int maxlen
1753s |void |restore_rsfp |void *f
1754s |void |restore_expect |void *e
1755s |void |restore_lex_expect |void *e
1756# if defined(CRIPPLED_CC)
1757s |int |uni |I32 f|char *s
1758# endif
1759# if defined(WIN32)
1760s |I32 |win32_textfilter |int idx|SV *sv|int maxlen
1761# endif
1762#endif
1763
0cb96387 1764#if defined(PERL_IN_UNIVERSAL_C) || defined(PERL_DECL_PROT)
cea2e8a9
GS
1765s |SV*|isa_lookup |HV *stash|const char *name|int len|int level
1766#endif
1767
0cb96387 1768#if defined(PERL_IN_UTIL_C) || defined(PERL_DECL_PROT)
cea2e8a9
GS
1769s |SV* |mess_alloc
1770rs |void |do_croak |const char *pat|va_list *args
1771s |void |do_warn |const char *pat|va_list *args
0cb96387 1772s |OP* |do_die |const char *pat|va_list *args
cea2e8a9
GS
1773# if defined(LEAKTEST)
1774s |void |xstat |int
1775# endif
1776#endif