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