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