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