This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Integrate change #9108 from maintperl to mainline.
[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
51371543
GS
1076END_EXTERN_C
1077
1078#endif /* PERL_OBJECT */
6f4183fe 1079#endif /* PERL_OBJECT || MULTIPLICITY */
51371543
GS
1080EOT
1081
954c1994
GS
1082close(CAPI);
1083
1084# autogenerate documentation from comments in source files
1085
1086my %apidocs;
1087my %gutsdocs;
1088my %docfuncs;
1089
60ed1d8c
GS
1090sub autodoc ($$) { # parse a file and extract documentation info
1091 my($fh,$file) = @_;
497711e7 1092 my($in, $doc, $line);
954c1994
GS
1093FUNC:
1094 while (defined($in = <$fh>)) {
497711e7 1095 $line++;
954c1994
GS
1096 if ($in =~ /^=for\s+apidoc\s+(.*)\n/) {
1097 my $proto = $1;
1098 $proto = "||$proto" unless $proto =~ /\|/;
1099 my($flags, $ret, $name, @args) = split /\|/, $proto;
1100 my $docs = "";
1101DOC:
1102 while (defined($doc = <$fh>)) {
497711e7 1103 $line++;
954c1994 1104 last DOC if $doc =~ /^=\w+/;
497711e7
GS
1105 if ($doc =~ m:^\*/$:) {
1106 warn "=cut missing? $file:$line:$doc";;
1107 last DOC;
1108 }
954c1994
GS
1109 $docs .= $doc;
1110 }
1111 $docs = "\n$docs" if $docs and $docs !~ /^\n/;
1112 if ($flags =~ /m/) {
1113 if ($flags =~ /A/) {
60ed1d8c 1114 $apidocs{$name} = [$flags, $docs, $ret, $file, @args];
954c1994
GS
1115 }
1116 else {
60ed1d8c 1117 $gutsdocs{$name} = [$flags, $docs, $ret, $file, @args];
954c1994
GS
1118 }
1119 }
1120 else {
60ed1d8c 1121 $docfuncs{$name} = [$flags, $docs, $ret, $file, @args];
954c1994 1122 }
497711e7
GS
1123 if (defined $doc) {
1124 if ($doc =~ /^=for/) {
1125 $in = $doc;
1126 redo FUNC;
1127 }
1128 } else {
1129 warn "$file:$line:$in";
954c1994
GS
1130 }
1131 }
1132 }
1133}
1134
1135sub docout ($$$) { # output the docs for one function
1136 my($fh, $name, $docref) = @_;
60ed1d8c 1137 my($flags, $docs, $ret, $file, @args) = @$docref;
954c1994 1138
c461cf8f
JH
1139 $docs .= "NOTE: this function is experimental and may change or be
1140removed without notice.\n\n" if $flags =~ /x/;
1c846c1f 1141 $docs .= "NOTE: the perl_ form of this function is deprecated.\n\n"
954c1994
GS
1142 if $flags =~ /p/;
1143
1144 print $fh "=item $name\n$docs";
1145
1146 if ($flags =~ /U/) { # no usage
1147 # nothing
1148 } elsif ($flags =~ /s/) { # semicolon ("dTHR;")
1149 print $fh "\t\t$name;\n\n";
1150 } elsif ($flags =~ /n/) { # no args
1151 print $fh "\t$ret\t$name\n\n";
1152 } else { # full usage
1153 print $fh "\t$ret\t$name";
1154 print $fh "(" . join(", ", @args) . ")";
1155 print $fh "\n\n";
1156 }
60ed1d8c 1157 print $fh "=for hackers\nFound in file $file\n\n";
954c1994
GS
1158}
1159
1160my $file;
1161for $file (glob('*.c'), glob('*.h')) {
1162 open F, "< $file" or die "Cannot open $file for docs: $!\n";
60ed1d8c 1163 autodoc(\*F,$file);
954c1994
GS
1164 close F or die "Error closing $file: $!\n";
1165}
1166
1167unlink "pod/perlapi.pod";
1c846c1f 1168open (DOC, ">pod/perlapi.pod") or
954c1994
GS
1169 die "Can't create pod/perlapi.pod: $!\n";
1170
1171walk_table { # load documented functions into approriate hash
1172 if (@_ > 1) {
1173 my($flags, $retval, $func, @args) = @_;
1174 return "" unless $flags =~ /d/;
1175 $func =~ s/\t//g; $flags =~ s/p//; # clean up fields from embed.pl
1176 $retval =~ s/\t//;
1177 if ($flags =~ /A/) {
1178 my $docref = delete $docfuncs{$func};
1179 warn "no docs for $func\n" unless $docref and @$docref;
c461cf8f 1180 $docref->[0].="x" if $flags =~ /M/;
60ed1d8c
GS
1181 $apidocs{$func} = [$docref->[0] . 'A', $docref->[1], $retval,
1182 $docref->[3], @args];
954c1994
GS
1183 } else {
1184 my $docref = delete $docfuncs{$func};
60ed1d8c
GS
1185 $gutsdocs{$func} = [$docref->[0], $docref->[1], $retval,
1186 $docref->[3], @args];
954c1994
GS
1187 }
1188 }
1189 return "";
1190} \*DOC;
1191
1192for (sort keys %docfuncs) {
1c846c1f 1193 # Have you used a full for apidoc or just a func name?
497711e7 1194 # Have you used Ap instead of Am in the for apidoc?
954c1994
GS
1195 warn "Unable to place $_!\n";
1196}
1197
1198print DOC <<'_EOB_';
1199=head1 NAME
1200
1201perlapi - autogenerated documentation for the perl public API
1202
1203=head1 DESCRIPTION
1204
1c846c1f
NIS
1205This file contains the documentation of the perl public API generated by
1206embed.pl, specifically a listing of functions, macros, flags, and variables
1207that may be used by extension writers. The interfaces of any functions that
954c1994
GS
1208are not listed here are subject to change without notice. For this reason,
1209blindly using functions listed in proto.h is to be avoided when writing
1210extensions.
1211
1212Note that all Perl API global variables must be referenced with the C<PL_>
1213prefix. Some macros are provided for compatibility with the older,
1214unadorned names, but this support may be disabled in a future release.
1215
1216The listing is alphabetical, case insensitive.
1217
1218=over 8
1219
1220_EOB_
1221
1222my $key;
1223for $key (sort { uc($a) cmp uc($b); } keys %apidocs) { # case insensitive sort
1224 docout(\*DOC, $key, $apidocs{$key});
1225}
1226
1227print DOC <<'_EOE_';
1228=back
1229
1230=head1 AUTHORS
1231
1232Until May 1997, this document was maintained by Jeff Okamoto
1233<okamoto@corp.hp.com>. It is now maintained as part of Perl itself.
1234
1235With lots of help and suggestions from Dean Roehrich, Malcolm Beattie,
1236Andreas Koenig, Paul Hudson, Ilya Zakharevich, Paul Marquess, Neil
1237Bowers, Matthew Green, Tim Bunce, Spider Boardman, Ulrich Pfeifer,
1238Stephen McCamant, and Gurusamy Sarathy.
1239
1240API Listing originally by Dean Roehrich <roehrich@cray.com>.
1241
1242Updated to be autogenerated from comments in the source by Benjamin Stuhl.
1243
1244=head1 SEE ALSO
1245
1246perlguts(1), perlxs(1), perlxstut(1), perlintern(1)
1247
1248_EOE_
1249
1250
1251close(DOC);
1252
1c846c1f 1253open(GUTS, ">pod/perlintern.pod") or
954c1994
GS
1254 die "Unable to create pod/perlintern.pod: $!\n";
1255print GUTS <<'END';
1256=head1 NAME
1257
1c846c1f 1258perlintern - autogenerated documentation of purely B<internal>
954c1994
GS
1259 Perl functions
1260
1261=head1 DESCRIPTION
1262
1c846c1f 1263This file is the autogenerated documentation of functions in the
4375e838 1264Perl interpreter that are documented using Perl's internal documentation
1c846c1f 1265format but are not marked as part of the Perl API. In other words,
954c1994
GS
1266B<they are not for use in extensions>!
1267
1268=over 8
1269
1270END
1271
1272for $key (sort { uc($a) cmp uc($b); } keys %gutsdocs) {
1273 docout(\*GUTS, $key, $gutsdocs{$key});
1274}
1275
1276print GUTS <<'END';
1277=back
1278
1279=head1 AUTHORS
1280
1c846c1f
NIS
1281The autodocumentation system was originally added to the Perl core by
1282Benjamin Stuhl. Documentation is by whoever was kind enough to
954c1994
GS
1283document their functions.
1284
1285=head1 SEE ALSO
1286
1287perlguts(1), perlapi(1)
1288
1289END
1290
1291close GUTS;
1292
1293
cea2e8a9
GS
1294__END__
1295
1d7c1841
GS
1296: Lines are of the form:
1297: flags|return_type|function_name|arg1|arg2|...|argN
1298:
1299: A line may be continued on another by ending it with a backslash.
1300: Leading and trailing whitespace will be ignored in each component.
1301:
1302: flags are single letters with following meanings:
954c1994
GS
1303: A member of public API
1304: d function has documentation with its source
1d7c1841 1305: s static function, should have an S_ prefix in source
954c1994 1306: file
1d7c1841
GS
1307: n has no implicit interpreter/thread context argument
1308: p function has a Perl_ prefix
894356b3 1309: f function takes printf style format string, varargs
1d7c1841
GS
1310: r function never returns
1311: o has no compatibility macro (#define foo Perl_foo)
1312: j not a member of CPerlObj
1313: x not exported
c461cf8f 1314: M may change
1d7c1841
GS
1315:
1316: Individual flags may be separated by whitespace.
1317:
1318: New global functions should be added at the end for binary compatibility
1319: in some configurations.
1d7c1841
GS
1320
1321START_EXTERN_C
1322
1323#if defined(PERL_IMPLICIT_SYS)
954c1994 1324Ajno |PerlInterpreter* |perl_alloc_using \
1d7c1841
GS
1325 |struct IPerlMem* m|struct IPerlMem* ms \
1326 |struct IPerlMem* mp|struct IPerlEnv* e \
1327 |struct IPerlStdIO* io|struct IPerlLIO* lio \
1328 |struct IPerlDir* d|struct IPerlSock* s \
1329 |struct IPerlProc* p
1d7c1841 1330#endif
b46bc2b6 1331Ajnod |PerlInterpreter* |perl_alloc
954c1994
GS
1332Ajnod |void |perl_construct |PerlInterpreter* interp
1333Ajnod |void |perl_destruct |PerlInterpreter* interp
1334Ajnod |void |perl_free |PerlInterpreter* interp
1335Ajnod |int |perl_run |PerlInterpreter* interp
1336Ajnod |int |perl_parse |PerlInterpreter* interp|XSINIT_t xsinit \
1d7c1841
GS
1337 |int argc|char** argv|char** env
1338#if defined(USE_ITHREADS)
954c1994
GS
1339: XXX: perl_clone needs docs
1340Ajno |PerlInterpreter*|perl_clone|PerlInterpreter* interp, UV flags
1d7c1841 1341# if defined(PERL_IMPLICIT_SYS)
954c1994 1342Ajno |PerlInterpreter*|perl_clone_using|PerlInterpreter *interp|UV flags \
1d7c1841
GS
1343 |struct IPerlMem* m|struct IPerlMem* ms \
1344 |struct IPerlMem* mp|struct IPerlEnv* e \
1345 |struct IPerlStdIO* io|struct IPerlLIO* lio \
1346 |struct IPerlDir* d|struct IPerlSock* s \
1347 |struct IPerlProc* p
1348# endif
1349#endif
1350
1351#if defined(MYMALLOC)
954c1994
GS
1352Ajnop |Malloc_t|malloc |MEM_SIZE nbytes
1353Ajnop |Malloc_t|calloc |MEM_SIZE elements|MEM_SIZE size
1354Ajnop |Malloc_t|realloc |Malloc_t where|MEM_SIZE nbytes
1355Ajnop |Free_t |mfree |Malloc_t where
1d7c1841
GS
1356jnp |MEM_SIZE|malloced_size |void *p
1357#endif
cea2e8a9 1358
ba869deb
GS
1359Ajnp |void* |get_context
1360Ajnp |void |set_context |void *thx
1361
1d7c1841
GS
1362END_EXTERN_C
1363
1364/* functions with flag 'n' should come before here */
0cb96387 1365#if defined(PERL_OBJECT)
1d7c1841 1366class CPerlObj {
0cb96387 1367public:
1d7c1841
GS
1368 struct interpreter interp;
1369 CPerlObj(IPerlMem*, IPerlMem*, IPerlMem*, IPerlEnv*, IPerlStdIO*,
1370 IPerlLIO*, IPerlDir*, IPerlSock*, IPerlProc*);
1371 void* operator new(size_t nSize, IPerlMem *pvtbl);
12a98ad5 1372#ifndef __BORLANDC__
1d7c1841 1373 static void operator delete(void* pPerl, IPerlMem *pvtbl);
12a98ad5 1374#endif
1d7c1841
GS
1375 int do_aspawn (void *vreally, void **vmark, void **vsp);
1376#endif
1377#if defined(PERL_OBJECT)
1378public:
1379#else
1380START_EXTERN_C
0cb96387 1381#endif
1d7c1841 1382# include "pp_proto.h"
954c1994
GS
1383Ap |SV* |amagic_call |SV* left|SV* right|int method|int dir
1384Ap |bool |Gv_AMupdate |HV* stash
32251b26 1385Ap |CV* |gv_handler |HV* stash|I32 id
cea2e8a9
GS
1386p |OP* |append_elem |I32 optype|OP* head|OP* tail
1387p |OP* |append_list |I32 optype|LISTOP* first|LISTOP* last
1388p |I32 |apply |I32 type|SV** mark|SV** sp
01ec43d0 1389Ap |void |apply_attrs_string|char *stashpv|CV *cv|char *attrstr|STRLEN len
954c1994
GS
1390Ap |SV* |avhv_delete_ent|AV *ar|SV* keysv|I32 flags|U32 hash
1391Ap |bool |avhv_exists_ent|AV *ar|SV* keysv|U32 hash
1392Ap |SV** |avhv_fetch_ent |AV *ar|SV* keysv|I32 lval|U32 hash
10c8fecd 1393Ap |SV** |avhv_store_ent |AV *ar|SV* keysv|SV* val|U32 hash
954c1994
GS
1394Ap |HE* |avhv_iternext |AV *ar
1395Ap |SV* |avhv_iterval |AV *ar|HE* entry
1396Ap |HV* |avhv_keys |AV *ar
1397Apd |void |av_clear |AV* ar
f3b76584
SC
1398Apd |SV* |av_delete |AV* ar|I32 key|I32 flags
1399Apd |bool |av_exists |AV* ar|I32 key
954c1994 1400Apd |void |av_extend |AV* ar|I32 key
f3b76584 1401p |AV* |av_fake |I32 size|SV** svp
954c1994 1402Apd |SV** |av_fetch |AV* ar|I32 key|I32 lval
f3b76584 1403Apd |void |av_fill |AV* ar|I32 fill
954c1994
GS
1404Apd |I32 |av_len |AV* ar
1405Apd |AV* |av_make |I32 size|SV** svp
1406Apd |SV* |av_pop |AV* ar
1407Apd |void |av_push |AV* ar|SV* val
f3b76584 1408p |void |av_reify |AV* ar
954c1994
GS
1409Apd |SV* |av_shift |AV* ar
1410Apd |SV** |av_store |AV* ar|I32 key|SV* val
1411Apd |void |av_undef |AV* ar
1412Apd |void |av_unshift |AV* ar|I32 num
cea2e8a9
GS
1413p |OP* |bind_match |I32 type|OP* left|OP* pat
1414p |OP* |block_end |I32 floor|OP* seq
954c1994 1415Ap |I32 |block_gimme
cea2e8a9
GS
1416p |int |block_start |int full
1417p |void |boot_core_UNIVERSAL
1be9d9c6 1418Ap |void |call_list |I32 oldscope|AV* av_list
7f4774ae 1419p |bool |cando |Mode_t mode|Uid_t effective|Stat_t* statbufp
954c1994
GS
1420Ap |U32 |cast_ulong |NV f
1421Ap |I32 |cast_i32 |NV f
1422Ap |IV |cast_iv |NV f
1423Ap |UV |cast_uv |NV f
cea2e8a9 1424#if !defined(HAS_TRUNCATE) && !defined(HAS_CHSIZE) && defined(F_FREESP)
954c1994 1425Ap |I32 |my_chsize |int fd|Off_t length
cea2e8a9
GS
1426#endif
1427#if defined(USE_THREADS)
1be9d9c6 1428Ap |MAGIC* |condpair_magic |SV *sv
cea2e8a9
GS
1429#endif
1430p |OP* |convert |I32 optype|I32 flags|OP* o
954c1994
GS
1431Afprd |void |croak |const char* pat|...
1432Apr |void |vcroak |const char* pat|va_list* args
cea2e8a9 1433#if defined(PERL_IMPLICIT_CONTEXT)
954c1994
GS
1434Afnrp |void |croak_nocontext|const char* pat|...
1435Afnp |OP* |die_nocontext |const char* pat|...
1436Afnp |void |deb_nocontext |const char* pat|...
1437Afnp |char* |form_nocontext |const char* pat|...
d2560b70 1438Anp |void |load_module_nocontext|U32 flags|SV* name|SV* ver|...
954c1994
GS
1439Afnp |SV* |mess_nocontext |const char* pat|...
1440Afnp |void |warn_nocontext |const char* pat|...
1441Afnp |void |warner_nocontext|U32 err|const char* pat|...
1442Afnp |SV* |newSVpvf_nocontext|const char* pat|...
1443Afnp |void |sv_catpvf_nocontext|SV* sv|const char* pat|...
1444Afnp |void |sv_setpvf_nocontext|SV* sv|const char* pat|...
1445Afnp |void |sv_catpvf_mg_nocontext|SV* sv|const char* pat|...
1446Afnp |void |sv_setpvf_mg_nocontext|SV* sv|const char* pat|...
1447Afnp |int |fprintf_nocontext|PerlIO* stream|const char* fmt|...
cea2e8a9
GS
1448#endif
1449p |void |cv_ckproto |CV* cv|GV* gv|char* p
1450p |CV* |cv_clone |CV* proto
beab0874 1451Apd |SV* |cv_const_sv |CV* cv
cea2e8a9 1452p |SV* |op_const_sv |OP* o|CV* cv
d0674b55 1453Ap |void |cv_undef |CV* cv
954c1994
GS
1454Ap |void |cx_dump |PERL_CONTEXT* cs
1455Ap |SV* |filter_add |filter_t funcp|SV* datasv
1456Ap |void |filter_del |filter_t funcp
1457Ap |I32 |filter_read |int idx|SV* buffer|int maxlen
1458Ap |char** |get_op_descs
1459Ap |char** |get_op_names
cea2e8a9
GS
1460p |char* |get_no_modify
1461p |U32* |get_opargs
954c1994 1462Ap |PPADDR_t*|get_ppaddr
cea2e8a9 1463p |I32 |cxinc
954c1994
GS
1464Afp |void |deb |const char* pat|...
1465Ap |void |vdeb |const char* pat|va_list* args
1466Ap |void |debprofdump
1467Ap |I32 |debop |OP* o
1468Ap |I32 |debstack
1469Ap |I32 |debstackptrs
1470Ap |char* |delimcpy |char* to|char* toend|char* from \
cea2e8a9
GS
1471 |char* fromend|int delim|I32* retlen
1472p |void |deprecate |char* s
1be9d9c6 1473Afp |OP* |die |const char* pat|...
c5be433b 1474p |OP* |vdie |const char* pat|va_list* args
cea2e8a9 1475p |OP* |die_where |char* message|STRLEN msglen
1be9d9c6 1476Ap |void |dounwind |I32 cxix
cea2e8a9 1477p |bool |do_aexec |SV* really|SV** mark|SV** sp
d5a9bfb0 1478p |bool |do_aexec5 |SV* really|SV** mark|SV** sp|int fd|int flag
412d7f2a 1479Ap |int |do_binmode |PerlIO *fp|int iotype|int mode
cea2e8a9 1480p |void |do_chop |SV* asv|SV* sv
1c0ca838 1481Ap |bool |do_close |GV* gv|bool not_implicit
cea2e8a9
GS
1482p |bool |do_eof |GV* gv
1483p |bool |do_exec |char* cmd
1484#if !defined(WIN32)
1485p |bool |do_exec3 |char* cmd|int fd|int flag
1486#endif
1487p |void |do_execfree
1488#if defined(HAS_MSG) || defined(HAS_SEM) || defined(HAS_SHM)
1489p |I32 |do_ipcctl |I32 optype|SV** mark|SV** sp
1490p |I32 |do_ipcget |I32 optype|SV** mark|SV** sp
1491p |I32 |do_msgrcv |SV** mark|SV** sp
1492p |I32 |do_msgsnd |SV** mark|SV** sp
1493p |I32 |do_semop |SV** mark|SV** sp
1494p |I32 |do_shmio |I32 optype|SV** mark|SV** sp
1495#endif
412d7f2a 1496Ap |void |do_join |SV* sv|SV* del|SV** mark|SV** sp
cea2e8a9 1497p |OP* |do_kv
954c1994 1498Ap |bool |do_open |GV* gv|char* name|I32 len|int as_raw \
cea2e8a9 1499 |int rawmode|int rawperm|PerlIO* supplied_fp
954c1994 1500Ap |bool |do_open9 |GV *gv|char *name|I32 len|int as_raw \
6170680b
IZ
1501 |int rawmode|int rawperm|PerlIO *supplied_fp \
1502 |SV *svs|I32 num
a567e93b
NIS
1503Ap |bool |do_openn |GV *gv|char *name|I32 len|int as_raw \
1504 |int rawmode|int rawperm|PerlIO *supplied_fp \
1505 |SV **svp|I32 num
cea2e8a9
GS
1506p |void |do_pipe |SV* sv|GV* rgv|GV* wgv
1507p |bool |do_print |SV* sv|PerlIO* fp
1508p |OP* |do_readline
1509p |I32 |do_chomp |SV* sv
1510p |bool |do_seek |GV* gv|Off_t pos|int whence
1511p |void |do_sprintf |SV* sv|I32 len|SV** sarg
1512p |Off_t |do_sysseek |GV* gv|Off_t pos|int whence
1513p |Off_t |do_tell |GV* gv
1514p |I32 |do_trans |SV* sv
81e118e0 1515p |UV |do_vecget |SV* sv|I32 offset|I32 size
cea2e8a9
GS
1516p |void |do_vecset |SV* sv
1517p |void |do_vop |I32 optype|SV* sv|SV* left|SV* right
1518p |OP* |dofile |OP* term
954c1994
GS
1519Ap |I32 |dowantarray
1520Ap |void |dump_all
1521Ap |void |dump_eval
cea2e8a9 1522#if defined(DUMP_FDS)
954c1994 1523Ap |void |dump_fds |char* s
cea2e8a9 1524#endif
954c1994
GS
1525Ap |void |dump_form |GV* gv
1526Ap |void |gv_dump |GV* gv
1527Ap |void |op_dump |OP* arg
1528Ap |void |pmop_dump |PMOP* pm
1529Ap |void |dump_packsubs |HV* stash
1530Ap |void |dump_sub |GV* gv
1531Apd |void |fbm_compile |SV* sv|U32 flags
1532Apd |char* |fbm_instr |unsigned char* big|unsigned char* bigend \
cea2e8a9
GS
1533 |SV* littlesv|U32 flags
1534p |char* |find_script |char *scriptname|bool dosearch \
1535 |char **search_ext|I32 flags
1536#if defined(USE_THREADS)
1537p |PADOFFSET|find_threadsv|const char *name
1538#endif
1539p |OP* |force_list |OP* arg
1540p |OP* |fold_constants |OP* arg
954c1994
GS
1541Afp |char* |form |const char* pat|...
1542Ap |char* |vform |const char* pat|va_list* args
1543Ap |void |free_tmps
cea2e8a9
GS
1544p |OP* |gen_constant_list|OP* o
1545#if !defined(HAS_GETENV_LEN)
c0c883f4 1546p |char* |getenv_len |const char* key|unsigned long *len
cea2e8a9 1547#endif
954c1994
GS
1548Ap |void |gp_free |GV* gv
1549Ap |GP* |gp_ref |GP* gp
1550Ap |GV* |gv_AVadd |GV* gv
1551Ap |GV* |gv_HVadd |GV* gv
1552Ap |GV* |gv_IOadd |GV* gv
1553Ap |GV* |gv_autoload4 |HV* stash|const char* name|STRLEN len \
cea2e8a9 1554 |I32 method
954c1994
GS
1555Ap |void |gv_check |HV* stash
1556Ap |void |gv_efullname |SV* sv|GV* gv
1557Ap |void |gv_efullname3 |SV* sv|GV* gv|const char* prefix
43693395 1558Ap |void |gv_efullname4 |SV* sv|GV* gv|const char* prefix|bool keepmain
954c1994
GS
1559Ap |GV* |gv_fetchfile |const char* name
1560Apd |GV* |gv_fetchmeth |HV* stash|const char* name|STRLEN len \
cea2e8a9 1561 |I32 level
954c1994
GS
1562Apd |GV* |gv_fetchmethod |HV* stash|const char* name
1563Apd |GV* |gv_fetchmethod_autoload|HV* stash|const char* name \
cea2e8a9 1564 |I32 autoload
954c1994
GS
1565Ap |GV* |gv_fetchpv |const char* name|I32 add|I32 sv_type
1566Ap |void |gv_fullname |SV* sv|GV* gv
1567Ap |void |gv_fullname3 |SV* sv|GV* gv|const char* prefix
43693395 1568Ap |void |gv_fullname4 |SV* sv|GV* gv|const char* prefix|bool keepmain
954c1994 1569Ap |void |gv_init |GV* gv|HV* stash|const char* name \
cea2e8a9 1570 |STRLEN len|int multi
954c1994
GS
1571Apd |HV* |gv_stashpv |const char* name|I32 create
1572Ap |HV* |gv_stashpvn |const char* name|U32 namelen|I32 create
1573Apd |HV* |gv_stashsv |SV* sv|I32 create
1574Apd |void |hv_clear |HV* tb
1575Ap |void |hv_delayfree_ent|HV* hv|HE* entry
da58a35d 1576Apd |SV* |hv_delete |HV* tb|const char* key|I32 klen|I32 flags
954c1994 1577Apd |SV* |hv_delete_ent |HV* tb|SV* key|I32 flags|U32 hash
da58a35d 1578Apd |bool |hv_exists |HV* tb|const char* key|I32 klen
954c1994 1579Apd |bool |hv_exists_ent |HV* tb|SV* key|U32 hash
da58a35d 1580Apd |SV** |hv_fetch |HV* tb|const char* key|I32 klen|I32 lval
954c1994
GS
1581Apd |HE* |hv_fetch_ent |HV* tb|SV* key|I32 lval|U32 hash
1582Ap |void |hv_free_ent |HV* hv|HE* entry
1583Apd |I32 |hv_iterinit |HV* tb
1584Apd |char* |hv_iterkey |HE* entry|I32* retlen
1585Apd |SV* |hv_iterkeysv |HE* entry
1586Apd |HE* |hv_iternext |HV* tb
1587Apd |SV* |hv_iternextsv |HV* hv|char** key|I32* retlen
1588Apd |SV* |hv_iterval |HV* tb|HE* entry
1589Ap |void |hv_ksplit |HV* hv|IV newmax
1590Apd |void |hv_magic |HV* hv|GV* gv|int how
da58a35d 1591Apd |SV** |hv_store |HV* tb|const char* key|I32 klen|SV* val \
cea2e8a9 1592 |U32 hash
954c1994
GS
1593Apd |HE* |hv_store_ent |HV* tb|SV* key|SV* val|U32 hash
1594Apd |void |hv_undef |HV* tb
1595Ap |I32 |ibcmp |const char* a|const char* b|I32 len
1596Ap |I32 |ibcmp_locale |const char* a|const char* b|I32 len
d8eceb89 1597p |bool |ingroup |Gid_t testgid|Uid_t effective
1ee4443e 1598p |void |init_debugger
1be9d9c6 1599Ap |void |init_stacks
cea2e8a9 1600p |U32 |intro_my
954c1994 1601Ap |char* |instr |const char* big|const char* little
f2b5be74 1602p |bool |io_close |IO* io|bool not_implicit
cea2e8a9 1603p |OP* |invert |OP* cmd
c9d5ac95 1604dp |bool |is_gv_magical |char *name|STRLEN len|U32 flags
78f9721b 1605p |I32 |is_lvalue_sub
954c1994
GS
1606Ap |bool |is_uni_alnum |U32 c
1607Ap |bool |is_uni_alnumc |U32 c
1608Ap |bool |is_uni_idfirst |U32 c
1609Ap |bool |is_uni_alpha |U32 c
1610Ap |bool |is_uni_ascii |U32 c
1611Ap |bool |is_uni_space |U32 c
1612Ap |bool |is_uni_cntrl |U32 c
1613Ap |bool |is_uni_graph |U32 c
1614Ap |bool |is_uni_digit |U32 c
1615Ap |bool |is_uni_upper |U32 c
1616Ap |bool |is_uni_lower |U32 c
1617Ap |bool |is_uni_print |U32 c
1618Ap |bool |is_uni_punct |U32 c
1619Ap |bool |is_uni_xdigit |U32 c
1620Ap |U32 |to_uni_upper |U32 c
1621Ap |U32 |to_uni_title |U32 c
1622Ap |U32 |to_uni_lower |U32 c
1623Ap |bool |is_uni_alnum_lc|U32 c
1624Ap |bool |is_uni_alnumc_lc|U32 c
1625Ap |bool |is_uni_idfirst_lc|U32 c
1626Ap |bool |is_uni_alpha_lc|U32 c
1627Ap |bool |is_uni_ascii_lc|U32 c
1628Ap |bool |is_uni_space_lc|U32 c
1629Ap |bool |is_uni_cntrl_lc|U32 c
1630Ap |bool |is_uni_graph_lc|U32 c
1631Ap |bool |is_uni_digit_lc|U32 c
1632Ap |bool |is_uni_upper_lc|U32 c
1633Ap |bool |is_uni_lower_lc|U32 c
1634Ap |bool |is_uni_print_lc|U32 c
1635Ap |bool |is_uni_punct_lc|U32 c
1636Ap |bool |is_uni_xdigit_lc|U32 c
1637Ap |U32 |to_uni_upper_lc|U32 c
1638Ap |U32 |to_uni_title_lc|U32 c
1639Ap |U32 |to_uni_lower_lc|U32 c
eebe1485
SC
1640Apd |STRLEN |is_utf8_char |U8 *p
1641Apd |bool |is_utf8_string |U8 *s|STRLEN len
954c1994
GS
1642Ap |bool |is_utf8_alnum |U8 *p
1643Ap |bool |is_utf8_alnumc |U8 *p
1644Ap |bool |is_utf8_idfirst|U8 *p
1645Ap |bool |is_utf8_alpha |U8 *p
1646Ap |bool |is_utf8_ascii |U8 *p
1647Ap |bool |is_utf8_space |U8 *p
1648Ap |bool |is_utf8_cntrl |U8 *p
1649Ap |bool |is_utf8_digit |U8 *p
1650Ap |bool |is_utf8_graph |U8 *p
1651Ap |bool |is_utf8_upper |U8 *p
1652Ap |bool |is_utf8_lower |U8 *p
1653Ap |bool |is_utf8_print |U8 *p
1654Ap |bool |is_utf8_punct |U8 *p
1655Ap |bool |is_utf8_xdigit |U8 *p
1656Ap |bool |is_utf8_mark |U8 *p
cea2e8a9
GS
1657p |OP* |jmaybe |OP* arg
1658p |I32 |keyword |char* d|I32 len
1be9d9c6 1659Ap |void |leave_scope |I32 base
cea2e8a9
GS
1660p |void |lex_end
1661p |void |lex_start |SV* line
1662p |OP* |linklist |OP* o
1663p |OP* |list |OP* o
1664p |OP* |listkids |OP* o
d2560b70 1665Ap |void |load_module|U32 flags|SV* name|SV* ver|...
e4783991 1666Ap |void |vload_module|U32 flags|SV* name|SV* ver|va_list* args
cea2e8a9 1667p |OP* |localize |OP* arg|I32 lexical
954c1994 1668Apd |I32 |looks_like_number|SV* sv
cea2e8a9
GS
1669p |int |magic_clearenv |SV* sv|MAGIC* mg
1670p |int |magic_clear_all_env|SV* sv|MAGIC* mg
1671p |int |magic_clearpack|SV* sv|MAGIC* mg
1672p |int |magic_clearsig |SV* sv|MAGIC* mg
1673p |int |magic_existspack|SV* sv|MAGIC* mg
1674p |int |magic_freeregexp|SV* sv|MAGIC* mg
d460ef45 1675p |int |magic_freeovrld|SV* sv|MAGIC* mg
cea2e8a9
GS
1676p |int |magic_get |SV* sv|MAGIC* mg
1677p |int |magic_getarylen|SV* sv|MAGIC* mg
1678p |int |magic_getdefelem|SV* sv|MAGIC* mg
1679p |int |magic_getglob |SV* sv|MAGIC* mg
1680p |int |magic_getnkeys |SV* sv|MAGIC* mg
1681p |int |magic_getpack |SV* sv|MAGIC* mg
1682p |int |magic_getpos |SV* sv|MAGIC* mg
1683p |int |magic_getsig |SV* sv|MAGIC* mg
1684p |int |magic_getsubstr|SV* sv|MAGIC* mg
1685p |int |magic_gettaint |SV* sv|MAGIC* mg
1686p |int |magic_getuvar |SV* sv|MAGIC* mg
1687p |int |magic_getvec |SV* sv|MAGIC* mg
1688p |U32 |magic_len |SV* sv|MAGIC* mg
1689#if defined(USE_THREADS)
1690p |int |magic_mutexfree|SV* sv|MAGIC* mg
1691#endif
1692p |int |magic_nextpack |SV* sv|MAGIC* mg|SV* key
1693p |U32 |magic_regdata_cnt|SV* sv|MAGIC* mg
1694p |int |magic_regdatum_get|SV* sv|MAGIC* mg
e4b89193 1695p |int |magic_regdatum_set|SV* sv|MAGIC* mg
cea2e8a9
GS
1696p |int |magic_set |SV* sv|MAGIC* mg
1697p |int |magic_setamagic|SV* sv|MAGIC* mg
1698p |int |magic_setarylen|SV* sv|MAGIC* mg
1699p |int |magic_setbm |SV* sv|MAGIC* mg
1700p |int |magic_setdbline|SV* sv|MAGIC* mg
1701#if defined(USE_LOCALE_COLLATE)
1702p |int |magic_setcollxfrm|SV* sv|MAGIC* mg
1703#endif
1704p |int |magic_setdefelem|SV* sv|MAGIC* mg
1705p |int |magic_setenv |SV* sv|MAGIC* mg
1706p |int |magic_setfm |SV* sv|MAGIC* mg
1707p |int |magic_setisa |SV* sv|MAGIC* mg
1708p |int |magic_setglob |SV* sv|MAGIC* mg
1709p |int |magic_setmglob |SV* sv|MAGIC* mg
1710p |int |magic_setnkeys |SV* sv|MAGIC* mg
1711p |int |magic_setpack |SV* sv|MAGIC* mg
1712p |int |magic_setpos |SV* sv|MAGIC* mg
1713p |int |magic_setsig |SV* sv|MAGIC* mg
1714p |int |magic_setsubstr|SV* sv|MAGIC* mg
1715p |int |magic_settaint |SV* sv|MAGIC* mg
1716p |int |magic_setuvar |SV* sv|MAGIC* mg
1717p |int |magic_setvec |SV* sv|MAGIC* mg
1718p |int |magic_set_all_env|SV* sv|MAGIC* mg
1719p |U32 |magic_sizepack |SV* sv|MAGIC* mg
1720p |int |magic_wipepack |SV* sv|MAGIC* mg
1721p |void |magicname |char* sym|char* name|I32 namlen
954c1994 1722Ap |void |markstack_grow
cea2e8a9
GS
1723#if defined(USE_LOCALE_COLLATE)
1724p |char* |mem_collxfrm |const char* s|STRLEN len|STRLEN* xlen
1725#endif
954c1994
GS
1726Afp |SV* |mess |const char* pat|...
1727Ap |SV* |vmess |const char* pat|va_list* args
5a844595 1728p |void |qerror |SV* err
954c1994
GS
1729Apd |int |mg_clear |SV* sv
1730Apd |int |mg_copy |SV* sv|SV* nsv|const char* key|I32 klen
1731Apd |MAGIC* |mg_find |SV* sv|int type
1732Apd |int |mg_free |SV* sv
1733Apd |int |mg_get |SV* sv
1734Apd |U32 |mg_length |SV* sv
1735Apd |void |mg_magical |SV* sv
1736Apd |int |mg_set |SV* sv
1737Ap |I32 |mg_size |SV* sv
cea2e8a9 1738p |OP* |mod |OP* o|I32 type
16fe6d59 1739p |int |mode_from_discipline|SV* discp
1be9d9c6 1740Ap |char* |moreswitches |char* s
cea2e8a9 1741p |OP* |my |OP* o
954c1994 1742Ap |NV |my_atof |const char *s
cea2e8a9 1743#if !defined(HAS_BCOPY) || !defined(HAS_SAFE_BCOPY)
954c1994 1744Anp |char* |my_bcopy |const char* from|char* to|I32 len
cea2e8a9
GS
1745#endif
1746#if !defined(HAS_BZERO) && !defined(HAS_MEMSET)
954c1994 1747Anp |char* |my_bzero |char* loc|I32 len
cea2e8a9 1748#endif
954c1994
GS
1749Apr |void |my_exit |U32 status
1750Apr |void |my_failure_exit
1751Ap |I32 |my_fflush_all
1752Ap |I32 |my_lstat
cea2e8a9 1753#if !defined(HAS_MEMCMP) || !defined(HAS_SANE_MEMCMP)
954c1994 1754Anp |I32 |my_memcmp |const char* s1|const char* s2|I32 len
cea2e8a9
GS
1755#endif
1756#if !defined(HAS_MEMSET)
954c1994 1757Anp |void* |my_memset |char* loc|I32 ch|I32 len
cea2e8a9
GS
1758#endif
1759#if !defined(PERL_OBJECT)
954c1994
GS
1760Ap |I32 |my_pclose |PerlIO* ptr
1761Ap |PerlIO*|my_popen |char* cmd|char* mode
cea2e8a9 1762#endif
954c1994
GS
1763Ap |void |my_setenv |char* nam|char* val
1764Ap |I32 |my_stat
cea2e8a9 1765#if defined(MYSWAP)
954c1994
GS
1766Ap |short |my_swap |short s
1767Ap |long |my_htonl |long l
1768Ap |long |my_ntohl |long l
cea2e8a9
GS
1769#endif
1770p |void |my_unexec
954c1994
GS
1771Ap |OP* |newANONLIST |OP* o
1772Ap |OP* |newANONHASH |OP* o
1773Ap |OP* |newANONSUB |I32 floor|OP* proto|OP* block
1774Ap |OP* |newASSIGNOP |I32 flags|OP* left|I32 optype|OP* right
1775Ap |OP* |newCONDOP |I32 flags|OP* expr|OP* trueop|OP* falseop
beab0874 1776Apd |CV* |newCONSTSUB |HV* stash|char* name|SV* sv
954c1994
GS
1777Ap |void |newFORM |I32 floor|OP* o|OP* block
1778Ap |OP* |newFOROP |I32 flags|char* label|line_t forline \
cea2e8a9 1779 |OP* sclr|OP* expr|OP*block|OP*cont
954c1994
GS
1780Ap |OP* |newLOGOP |I32 optype|I32 flags|OP* left|OP* right
1781Ap |OP* |newLOOPEX |I32 type|OP* label
1782Ap |OP* |newLOOPOP |I32 flags|I32 debuggable|OP* expr|OP* block
1783Ap |OP* |newNULLLIST
1784Ap |OP* |newOP |I32 optype|I32 flags
1785Ap |void |newPROG |OP* o
1786Ap |OP* |newRANGE |I32 flags|OP* left|OP* right
1787Ap |OP* |newSLICEOP |I32 flags|OP* subscript|OP* listop
1788Ap |OP* |newSTATEOP |I32 flags|char* label|OP* o
1789Ap |CV* |newSUB |I32 floor|OP* o|OP* proto|OP* block
1790Apd |CV* |newXS |char* name|XSUBADDR_t f|char* filename
1791Apd |AV* |newAV
1792Ap |OP* |newAVREF |OP* o
1793Ap |OP* |newBINOP |I32 type|I32 flags|OP* first|OP* last
1794Ap |OP* |newCVREF |I32 flags|OP* o
1795Ap |OP* |newGVOP |I32 type|I32 flags|GV* gv
1796Ap |GV* |newGVgen |char* pack
1797Ap |OP* |newGVREF |I32 type|OP* o
1798Ap |OP* |newHVREF |OP* o
1799Apd |HV* |newHV
1800Ap |HV* |newHVhv |HV* hv
1801Ap |IO* |newIO
1802Ap |OP* |newLISTOP |I32 type|I32 flags|OP* first|OP* last
1803Ap |OP* |newPADOP |I32 type|I32 flags|SV* sv
1804Ap |OP* |newPMOP |I32 type|I32 flags
1805Ap |OP* |newPVOP |I32 type|I32 flags|char* pv
1806Ap |SV* |newRV |SV* pref
1807Apd |SV* |newRV_noinc |SV *sv
1808Ap |SV* |newSV |STRLEN len
1809Ap |OP* |newSVREF |OP* o
1810Ap |OP* |newSVOP |I32 type|I32 flags|SV* sv
1811Apd |SV* |newSViv |IV i
1a3327fb 1812Apd |SV* |newSVuv |UV u
954c1994
GS
1813Apd |SV* |newSVnv |NV n
1814Apd |SV* |newSVpv |const char* s|STRLEN len
1815Apd |SV* |newSVpvn |const char* s|STRLEN len
c3654f1a 1816Apd |SV* |newSVpvn_share |const char* s|I32 len|U32 hash
954c1994
GS
1817Afpd |SV* |newSVpvf |const char* pat|...
1818Ap |SV* |vnewSVpvf |const char* pat|va_list* args
1819Apd |SV* |newSVrv |SV* rv|const char* classname
1820Apd |SV* |newSVsv |SV* old
1821Ap |OP* |newUNOP |I32 type|I32 flags|OP* first
1822Ap |OP* |newWHILEOP |I32 flags|I32 debuggable|LOOP* loop \
cea2e8a9 1823 |I32 whileline|OP* expr|OP* block|OP* cont
c5be433b 1824
1be9d9c6 1825Ap |PERL_SI*|new_stackinfo|I32 stitems|I32 cxitems
cea2e8a9 1826p |PerlIO*|nextargv |GV* gv
954c1994 1827Ap |char* |ninstr |const char* big|const char* bigend \
cea2e8a9
GS
1828 |const char* little|const char* lend
1829p |OP* |oopsCV |OP* o
1be9d9c6 1830Ap |void |op_free |OP* arg
cea2e8a9
GS
1831p |void |package |OP* o
1832p |PADOFFSET|pad_alloc |I32 optype|U32 tmptype
1833p |PADOFFSET|pad_allocmy |char* name
1834p |PADOFFSET|pad_findmy |char* name
1835p |OP* |oopsAV |OP* o
1836p |OP* |oopsHV |OP* o
1837p |void |pad_leavemy |I32 fill
1be9d9c6 1838Ap |SV* |pad_sv |PADOFFSET po
cea2e8a9
GS
1839p |void |pad_free |PADOFFSET po
1840p |void |pad_reset
1841p |void |pad_swipe |PADOFFSET po
1842p |void |peep |OP* o
ae154d6d 1843dopM |PerlIO*|start_glob |SV* pattern|IO *io
0cb96387 1844#if defined(PERL_OBJECT)
954c1994
GS
1845Aox |void |Perl_construct
1846Aox |void |Perl_destruct
1847Aox |void |Perl_free
1848Aox |int |Perl_run
1849Aox |int |Perl_parse |XSINIT_t xsinit \
0cb96387 1850 |int argc|char** argv|char** env
1d7c1841 1851#endif
c5be433b 1852#if defined(USE_THREADS)
954c1994 1853Ap |struct perl_thread* |new_struct_thread|struct perl_thread *t
c5be433b 1854#endif
954c1994
GS
1855Ap |void |call_atexit |ATEXIT_t fn|void *ptr
1856Apd |I32 |call_argv |const char* sub_name|I32 flags|char** argv
1857Apd |I32 |call_method |const char* methname|I32 flags
1858Apd |I32 |call_pv |const char* sub_name|I32 flags
1859Apd |I32 |call_sv |SV* sv|I32 flags
ce08f86c 1860p |void |despatch_signals
954c1994
GS
1861Apd |SV* |eval_pv |const char* p|I32 croak_on_error
1862Apd |I32 |eval_sv |SV* sv|I32 flags
1863Apd |SV* |get_sv |const char* name|I32 create
1864Apd |AV* |get_av |const char* name|I32 create
1865Apd |HV* |get_hv |const char* name|I32 create
1866Apd |CV* |get_cv |const char* name|I32 create
1be9d9c6
GS
1867Ap |int |init_i18nl10n |int printwarn
1868Ap |int |init_i18nl14n |int printwarn
ff4fed7c
VK
1869Ap |void |new_collate |char* newcoll
1870Ap |void |new_ctype |char* newctype
1871Ap |void |new_numeric |char* newcoll
954c1994
GS
1872Ap |void |set_numeric_local
1873Ap |void |set_numeric_radix
1874Ap |void |set_numeric_standard
1875Apd |void |require_pv |const char* pv
d8a83dd3 1876p |void |pidgone |Pid_t pid|int status
1be9d9c6 1877Ap |void |pmflag |U16* pmfl|int ch
cea2e8a9
GS
1878p |OP* |pmruntime |OP* pm|OP* expr|OP* repl
1879p |OP* |pmtrans |OP* o|OP* expr|OP* repl
1880p |OP* |pop_return
954c1994 1881Ap |void |pop_scope
cea2e8a9
GS
1882p |OP* |prepend_elem |I32 optype|OP* head|OP* tail
1883p |void |push_return |OP* o
954c1994 1884Ap |void |push_scope
cea2e8a9
GS
1885p |OP* |ref |OP* o|I32 type
1886p |OP* |refkids |OP* o|I32 type
954c1994 1887Ap |void |regdump |regexp* r
7ea3cd40 1888Ap |SV* |regclass_swash |struct regnode *n|bool doinit|SV **initsvp
a86f0dc9 1889Ap |I32 |pregexec |regexp* prog|char* stringarg \
cea2e8a9
GS
1890 |char* strend|char* strbeg|I32 minend \
1891 |SV* screamer|U32 nosave
1be9d9c6
GS
1892Ap |void |pregfree |struct regexp* r
1893Ap |regexp*|pregcomp |char* exp|char* xend|PMOP* pm
1894Ap |char* |re_intuit_start|regexp* prog|SV* sv|char* strpos \
cad2e5aa
JH
1895 |char* strend|U32 flags \
1896 |struct re_scream_pos_data_s *data
1be9d9c6
GS
1897Ap |SV* |re_intuit_string|regexp* prog
1898Ap |I32 |regexec_flags |regexp* prog|char* stringarg \
cea2e8a9
GS
1899 |char* strend|char* strbeg|I32 minend \
1900 |SV* screamer|void* data|U32 flags
1be9d9c6 1901Ap |regnode*|regnext |regnode* p
cea2e8a9 1902p |void |regprop |SV* sv|regnode* o
1be9d9c6 1903Ap |void |repeatcpy |char* to|const char* from|I32 len|I32 count
954c1994 1904Ap |char* |rninstr |const char* big|const char* bigend \
cea2e8a9 1905 |const char* little|const char* lend
412d7f2a 1906Ap |Sighandler_t|rsignal |int i|Sighandler_t t
cea2e8a9
GS
1907p |int |rsignal_restore|int i|Sigsave_t* t
1908p |int |rsignal_save |int i|Sighandler_t t1|Sigsave_t* t2
1909p |Sighandler_t|rsignal_state|int i
1910p |void |rxres_free |void** rsp
1911p |void |rxres_restore |void** rsp|REGEXP* prx
1912p |void |rxres_save |void** rsp|REGEXP* prx
1913#if !defined(HAS_RENAME)
1914p |I32 |same_dirent |char* a|char* b
1915#endif
954c1994
GS
1916Apd |char* |savepv |const char* sv
1917Apd |char* |savepvn |const char* sv|I32 len
1918Ap |void |savestack_grow
1919Ap |void |save_aelem |AV* av|I32 idx|SV **sptr
1920Ap |I32 |save_alloc |I32 size|I32 pad
1921Ap |void |save_aptr |AV** aptr
1922Ap |AV* |save_ary |GV* gv
1923Ap |void |save_clearsv |SV** svp
1924Ap |void |save_delete |HV* hv|char* key|I32 klen
1925Ap |void |save_destructor|DESTRUCTORFUNC_NOCONTEXT_t f|void* p
1926Ap |void |save_destructor_x|DESTRUCTORFUNC_t f|void* p
1927Ap |void |save_freesv |SV* sv
cea2e8a9 1928p |void |save_freeop |OP* o
954c1994
GS
1929Ap |void |save_freepv |char* pv
1930Ap |void |save_generic_svref|SV** sptr
f4dd75d9 1931Ap |void |save_generic_pvref|char** str
954c1994
GS
1932Ap |void |save_gp |GV* gv|I32 empty
1933Ap |HV* |save_hash |GV* gv
1934Ap |void |save_helem |HV* hv|SV *key|SV **sptr
1935Ap |void |save_hints
1936Ap |void |save_hptr |HV** hptr
1937Ap |void |save_I16 |I16* intp
1938Ap |void |save_I32 |I32* intp
1939Ap |void |save_I8 |I8* bytep
1940Ap |void |save_int |int* intp
1941Ap |void |save_item |SV* item
1942Ap |void |save_iv |IV* iv
1943Ap |void |save_list |SV** sarg|I32 maxsarg
1944Ap |void |save_long |long* longp
1945Ap |void |save_nogv |GV* gv
cea2e8a9 1946p |void |save_op
954c1994
GS
1947Ap |SV* |save_scalar |GV* gv
1948Ap |void |save_pptr |char** pptr
1949Ap |void |save_vptr |void* pptr
1950Ap |void |save_re_context
c3564e5c 1951Ap |void |save_padsv |PADOFFSET off
954c1994
GS
1952Ap |void |save_sptr |SV** sptr
1953Ap |SV* |save_svref |SV** sptr
1954Ap |SV** |save_threadsv |PADOFFSET i
cea2e8a9
GS
1955p |OP* |sawparens |OP* o
1956p |OP* |scalar |OP* o
1957p |OP* |scalarkids |OP* o
1958p |OP* |scalarseq |OP* o
1959p |OP* |scalarvoid |OP* o
ba210ebe
JH
1960Ap |NV |scan_bin |char* start|STRLEN len|STRLEN* retlen
1961Ap |NV |scan_hex |char* start|STRLEN len|STRLEN* retlen
b73d6f50 1962Ap |char* |scan_num |char* s|YYSTYPE *lvalp
ba210ebe 1963Ap |NV |scan_oct |char* start|STRLEN len|STRLEN* retlen
cea2e8a9 1964p |OP* |scope |OP* o
1be9d9c6 1965Ap |char* |screaminstr |SV* bigsv|SV* littlesv|I32 start_shift \
cea2e8a9
GS
1966 |I32 end_shift|I32 *state|I32 last
1967#if !defined(VMS)
1968p |I32 |setenv_getix |char* nam
1969#endif
1970p |void |setdefout |GV* gv
1be9d9c6 1971Ap |char* |sharepvn |const char* sv|I32 len|U32 hash
cea2e8a9
GS
1972p |HEK* |share_hek |const char* sv|I32 len|U32 hash
1973np |Signal_t |sighandler |int sig
954c1994
GS
1974Ap |SV** |stack_grow |SV** sp|SV**p|int n
1975Ap |I32 |start_subparse |I32 is_format|U32 flags
cea2e8a9 1976p |void |sub_crush_depth|CV* cv
954c1994
GS
1977Ap |bool |sv_2bool |SV* sv
1978Ap |CV* |sv_2cv |SV* sv|HV** st|GV** gvp|I32 lref
1979Ap |IO* |sv_2io |SV* sv
1980Ap |IV |sv_2iv |SV* sv
1981Apd |SV* |sv_2mortal |SV* sv
1982Ap |NV |sv_2nv |SV* sv
1983Ap |char* |sv_2pv |SV* sv|STRLEN* lp
1984Ap |char* |sv_2pvutf8 |SV* sv|STRLEN* lp
1985Ap |char* |sv_2pvbyte |SV* sv|STRLEN* lp
1986Ap |UV |sv_2uv |SV* sv
1987Ap |IV |sv_iv |SV* sv
1988Ap |UV |sv_uv |SV* sv
1989Ap |NV |sv_nv |SV* sv
1990Ap |char* |sv_pvn |SV *sv|STRLEN *len
1991Ap |char* |sv_pvutf8n |SV *sv|STRLEN *len
1992Ap |char* |sv_pvbyten |SV *sv|STRLEN *len
c461cf8f 1993Apd |I32 |sv_true |SV *sv
cea2e8a9 1994p |void |sv_add_arena |char* ptr|U32 size|U32 flags
954c1994
GS
1995Ap |int |sv_backoff |SV* sv
1996Apd |SV* |sv_bless |SV* sv|HV* stash
1997Afpd |void |sv_catpvf |SV* sv|const char* pat|...
1998Ap |void |sv_vcatpvf |SV* sv|const char* pat|va_list* args
1999Apd |void |sv_catpv |SV* sv|const char* ptr
2000Apd |void |sv_catpvn |SV* sv|const char* ptr|STRLEN len
2001Apd |void |sv_catsv |SV* dsv|SV* ssv
2002Apd |void |sv_chop |SV* sv|char* ptr
cea2e8a9
GS
2003p |void |sv_clean_all
2004p |void |sv_clean_objs
c461cf8f 2005Apd |void |sv_clear |SV* sv
954c1994 2006Apd |I32 |sv_cmp |SV* sv1|SV* sv2
c461cf8f 2007Apd |I32 |sv_cmp_locale |SV* sv1|SV* sv2
cea2e8a9 2008#if defined(USE_LOCALE_COLLATE)
954c1994 2009Ap |char* |sv_collxfrm |SV* sv|STRLEN* nxp
cea2e8a9 2010#endif
1be9d9c6 2011Ap |OP* |sv_compile_2op |SV* sv|OP** startp|char* code|AV** avp
954c1994
GS
2012Apd |void |sv_dec |SV* sv
2013Ap |void |sv_dump |SV* sv
2014Apd |bool |sv_derived_from|SV* sv|const char* name
2015Apd |I32 |sv_eq |SV* sv1|SV* sv2
c461cf8f 2016Apd |void |sv_free |SV* sv
cea2e8a9 2017p |void |sv_free_arenas
c461cf8f 2018Apd |char* |sv_gets |SV* sv|PerlIO* fp|I32 append
954c1994
GS
2019Apd |char* |sv_grow |SV* sv|STRLEN newlen
2020Apd |void |sv_inc |SV* sv
2021Apd |void |sv_insert |SV* bigsv|STRLEN offset|STRLEN len \
cea2e8a9 2022 |char* little|STRLEN littlelen
954c1994
GS
2023Apd |int |sv_isa |SV* sv|const char* name
2024Apd |int |sv_isobject |SV* sv
2025Apd |STRLEN |sv_len |SV* sv
c461cf8f 2026Apd |STRLEN |sv_len_utf8 |SV* sv
954c1994 2027Apd |void |sv_magic |SV* sv|SV* obj|int how|const char* name \
cea2e8a9 2028 |I32 namlen
954c1994
GS
2029Apd |SV* |sv_mortalcopy |SV* oldsv
2030Apd |SV* |sv_newmortal
2031Ap |SV* |sv_newref |SV* sv
2032Ap |char* |sv_peek |SV* sv
2033Ap |void |sv_pos_u2b |SV* sv|I32* offsetp|I32* lenp
2034Ap |void |sv_pos_b2u |SV* sv|I32* offsetp
c461cf8f
JH
2035Apd |char* |sv_pvn_force |SV* sv|STRLEN* lp
2036Apd |char* |sv_pvutf8n_force|SV* sv|STRLEN* lp
954c1994 2037Ap |char* |sv_pvbyten_force|SV* sv|STRLEN* lp
c461cf8f
JH
2038Apd |char* |sv_reftype |SV* sv|int ob
2039Apd |void |sv_replace |SV* sv|SV* nsv
954c1994
GS
2040Ap |void |sv_report_used
2041Ap |void |sv_reset |char* s|HV* stash
2042Afpd |void |sv_setpvf |SV* sv|const char* pat|...
2043Ap |void |sv_vsetpvf |SV* sv|const char* pat|va_list* args
2044Apd |void |sv_setiv |SV* sv|IV num
2045Apd |void |sv_setpviv |SV* sv|IV num
2046Apd |void |sv_setuv |SV* sv|UV num
2047Apd |void |sv_setnv |SV* sv|NV num
2048Apd |SV* |sv_setref_iv |SV* rv|const char* classname|IV iv
e1c57cef 2049Apd |SV* |sv_setref_uv |SV* rv|const char* classname|UV uv
954c1994
GS
2050Apd |SV* |sv_setref_nv |SV* rv|const char* classname|NV nv
2051Apd |SV* |sv_setref_pv |SV* rv|const char* classname|void* pv
2052Apd |SV* |sv_setref_pvn |SV* rv|const char* classname|char* pv \
cea2e8a9 2053 |STRLEN n
954c1994
GS
2054Apd |void |sv_setpv |SV* sv|const char* ptr
2055Apd |void |sv_setpvn |SV* sv|const char* ptr|STRLEN len
2056Apd |void |sv_setsv |SV* dsv|SV* ssv
2057Ap |void |sv_taint |SV* sv
2058Ap |bool |sv_tainted |SV* sv
c461cf8f 2059Apd |int |sv_unmagic |SV* sv|int type
954c1994 2060Apd |void |sv_unref |SV* sv
840a7b70 2061Apd |void |sv_unref_flags |SV* sv|U32 flags
954c1994
GS
2062Ap |void |sv_untaint |SV* sv
2063Apd |bool |sv_upgrade |SV* sv|U32 mt
2064Apd |void |sv_usepvn |SV* sv|char* ptr|STRLEN len
2065Apd |void |sv_vcatpvfn |SV* sv|const char* pat|STRLEN patlen \
cea2e8a9 2066 |va_list* args|SV** svargs|I32 svmax \
5bc28da9 2067 |bool *maybe_tainted
954c1994 2068Apd |void |sv_vsetpvfn |SV* sv|const char* pat|STRLEN patlen \
cea2e8a9 2069 |va_list* args|SV** svargs|I32 svmax \
5bc28da9 2070 |bool *maybe_tainted
1571675a 2071Ap |NV |str_to_version |SV *sv
1be9d9c6 2072Ap |SV* |swash_init |char* pkg|char* name|SV* listsv \
cea2e8a9 2073 |I32 minbits|I32 none
1be9d9c6 2074Ap |UV |swash_fetch |SV *sv|U8 *ptr
954c1994
GS
2075Ap |void |taint_env
2076Ap |void |taint_proper |const char* f|const char* s
2077Ap |UV |to_utf8_lower |U8 *p
2078Ap |UV |to_utf8_upper |U8 *p
2079Ap |UV |to_utf8_title |U8 *p
cea2e8a9 2080#if defined(UNLINK_ALL_VERSIONS)
954c1994 2081Ap |I32 |unlnk |char* f
cea2e8a9
GS
2082#endif
2083#if defined(USE_THREADS)
1be9d9c6 2084Ap |void |unlock_condpair|void* svv
cea2e8a9 2085#endif
1be9d9c6 2086Ap |void |unsharepvn |const char* sv|I32 len|U32 hash
cea2e8a9
GS
2087p |void |unshare_hek |HEK* hek
2088p |void |utilize |int aver|I32 floor|OP* version|OP* id|OP* arg
dea0fc0b
JH
2089Ap |U8* |utf16_to_utf8 |U8* p|U8 *d|I32 bytelen|I32 *newlen
2090Ap |U8* |utf16_to_utf8_reversed|U8* p|U8 *d|I32 bytelen|I32 *newlen
eebe1485
SC
2091Adp |STRLEN |utf8_length |U8* s|U8 *e
2092Apd |IV |utf8_distance |U8 *a|U8 *b
2093Apd |U8* |utf8_hop |U8 *s|I32 off
2094ApMd |U8* |utf8_to_bytes |U8 *s|STRLEN *len
f9a63242 2095ApMd |U8* |bytes_from_utf8|U8 *s|STRLEN *len|bool *is_utf8
eebe1485 2096ApMd |U8* |bytes_to_utf8 |U8 *s|STRLEN *len
9041c2e3
NIS
2097Apd |UV |utf8_to_uvchr |U8 *s|STRLEN* retlen
2098Apd |UV |utf8_to_uvuni |U8 *s|STRLEN* retlen
2099Adp |UV |utf8n_to_uvchr |U8 *s|STRLEN curlen|STRLEN* retlen|U32 flags
2100Adp |UV |utf8n_to_uvuni |U8 *s|STRLEN curlen|STRLEN* retlen|U32 flags
2101Apd |U8* |uvchr_to_utf8 |U8 *d|UV uv
2102Apd |U8* |uvuni_to_utf8 |U8 *d|UV uv
cea2e8a9
GS
2103p |void |vivify_defelem |SV* sv
2104p |void |vivify_ref |SV* sv|U32 to_what
d8a83dd3 2105p |I32 |wait4pid |Pid_t pid|int* statusp|int flags
bc37a18f 2106p |void |report_evil_fh |GV *gv|IO *io|I32 op
1d7c1841 2107p |void |report_uninit
954c1994
GS
2108Afpd |void |warn |const char* pat|...
2109Ap |void |vwarn |const char* pat|va_list* args
2110Afp |void |warner |U32 err|const char* pat|...
2111Ap |void |vwarner |U32 err|const char* pat|va_list* args
cea2e8a9 2112p |void |watch |char** addr
412d7f2a 2113Ap |I32 |whichsig |char* sig
cea2e8a9 2114p |int |yyerror |char* s
dba4d153
JH
2115#ifdef USE_PURE_BISON
2116p |int |yylex_r |YYSTYPE *lvalp|int *lcharp
cea2e8a9 2117#endif
48cf72c8 2118p |int |yylex
cea2e8a9
GS
2119p |int |yyparse
2120p |int |yywarn |char* s
2121#if defined(MYMALLOC)
954c1994 2122Ap |void |dump_mstats |char* s
827e134a 2123Ap |int |get_mstats |perl_mstats_t *buf|int buflen|int level
cea2e8a9 2124#endif
954c1994
GS
2125Anp |Malloc_t|safesysmalloc |MEM_SIZE nbytes
2126Anp |Malloc_t|safesyscalloc |MEM_SIZE elements|MEM_SIZE size
2127Anp |Malloc_t|safesysrealloc|Malloc_t where|MEM_SIZE nbytes
2128Anp |Free_t |safesysfree |Malloc_t where
cea2e8a9 2129#if defined(LEAKTEST)
954c1994
GS
2130Anp |Malloc_t|safexmalloc |I32 x|MEM_SIZE size
2131Anp |Malloc_t|safexcalloc |I32 x|MEM_SIZE elements|MEM_SIZE size
2132Anp |Malloc_t|safexrealloc |Malloc_t where|MEM_SIZE size
2133Anp |void |safexfree |Malloc_t where
cea2e8a9
GS
2134#endif
2135#if defined(PERL_GLOBAL_STRUCT)
954c1994 2136Ap |struct perl_vars *|GetVars
cea2e8a9 2137#endif
954c1994
GS
2138Ap |int |runops_standard
2139Ap |int |runops_debug
4755096e
GS
2140#if defined(USE_THREADS)
2141Ap |SV* |sv_lock |SV *sv
2142#endif
954c1994
GS
2143Afpd |void |sv_catpvf_mg |SV *sv|const char* pat|...
2144Ap |void |sv_vcatpvf_mg |SV* sv|const char* pat|va_list* args
2145Apd |void |sv_catpv_mg |SV *sv|const char *ptr
2146Apd |void |sv_catpvn_mg |SV *sv|const char *ptr|STRLEN len
2147Apd |void |sv_catsv_mg |SV *dstr|SV *sstr
2148Afpd |void |sv_setpvf_mg |SV *sv|const char* pat|...
2149Ap |void |sv_vsetpvf_mg |SV* sv|const char* pat|va_list* args
2150Apd |void |sv_setiv_mg |SV *sv|IV i
2151Apd |void |sv_setpviv_mg |SV *sv|IV iv
2152Apd |void |sv_setuv_mg |SV *sv|UV u
2153Apd |void |sv_setnv_mg |SV *sv|NV num
2154Apd |void |sv_setpv_mg |SV *sv|const char *ptr
2155Apd |void |sv_setpvn_mg |SV *sv|const char *ptr|STRLEN len
2156Apd |void |sv_setsv_mg |SV *dstr|SV *sstr
2157Apd |void |sv_usepvn_mg |SV *sv|char *ptr|STRLEN len
2158Ap |MGVTBL*|get_vtbl |int vtbl_id
cea2e8a9
GS
2159p |char* |pv_display |SV *sv|char *pv|STRLEN cur|STRLEN len \
2160 |STRLEN pvlim
954c1994
GS
2161Afp |void |dump_indent |I32 level|PerlIO *file|const char* pat|...
2162Ap |void |dump_vindent |I32 level|PerlIO *file|const char* pat \
c5be433b 2163 |va_list *args
954c1994
GS
2164Ap |void |do_gv_dump |I32 level|PerlIO *file|char *name|GV *sv
2165Ap |void |do_gvgv_dump |I32 level|PerlIO *file|char *name|GV *sv
2166Ap |void |do_hv_dump |I32 level|PerlIO *file|char *name|HV *sv
2167Ap |void |do_magic_dump |I32 level|PerlIO *file|MAGIC *mg|I32 nest \
cea2e8a9 2168 |I32 maxnest|bool dumpops|STRLEN pvlim
954c1994
GS
2169Ap |void |do_op_dump |I32 level|PerlIO *file|OP *o
2170Ap |void |do_pmop_dump |I32 level|PerlIO *file|PMOP *pm
2171Ap |void |do_sv_dump |I32 level|PerlIO *file|SV *sv|I32 nest \
cea2e8a9 2172 |I32 maxnest|bool dumpops|STRLEN pvlim
954c1994 2173Ap |void |magic_dump |MAGIC *mg
14dd3ad8 2174#if defined(PERL_FLEXIBLE_EXCEPTIONS)
954c1994 2175Ap |void* |default_protect|volatile JMPENV *je|int *excpt \
db36c5a1 2176 |protect_body_t body|...
954c1994 2177Ap |void* |vdefault_protect|volatile JMPENV *je|int *excpt \
db36c5a1 2178 |protect_body_t body|va_list *args
14dd3ad8 2179#endif
954c1994
GS
2180Ap |void |reginitcolors
2181Ap |char* |sv_2pv_nolen |SV* sv
2182Ap |char* |sv_2pvutf8_nolen|SV* sv
2183Ap |char* |sv_2pvbyte_nolen|SV* sv
2184Ap |char* |sv_pv |SV *sv
2185Ap |char* |sv_pvutf8 |SV *sv
2186Ap |char* |sv_pvbyte |SV *sv
4411f3b6
NIS
2187Apd |STRLEN |sv_utf8_upgrade|SV *sv
2188ApdM |bool |sv_utf8_downgrade|SV *sv|bool fail_ok
2189Apd |void |sv_utf8_encode |SV *sv
2190ApdM |bool |sv_utf8_decode |SV *sv
954c1994 2191Ap |void |sv_force_normal|SV *sv
840a7b70 2192Ap |void |sv_force_normal_flags|SV *sv|U32 flags
954c1994 2193Ap |void |tmps_grow |I32 n
c461cf8f 2194Apd |SV* |sv_rvweaken |SV *sv
cea2e8a9 2195p |int |magic_killbackrefs|SV *sv|MAGIC *mg
954c1994
GS
2196Ap |OP* |newANONATTRSUB |I32 floor|OP *proto|OP *attrs|OP *block
2197Ap |CV* |newATTRSUB |I32 floor|OP *o|OP *proto|OP *attrs|OP *block
2198Ap |void |newMYSUB |I32 floor|OP *o|OP *proto|OP *attrs|OP *block
09bef843
SB
2199p |OP * |my_attrs |OP *o|OP *attrs
2200p |void |boot_core_xsutils
1d7c1841 2201#if defined(USE_ITHREADS)
954c1994
GS
2202Ap |PERL_CONTEXT*|cx_dup |PERL_CONTEXT* cx|I32 ix|I32 max
2203Ap |PERL_SI*|si_dup |PERL_SI* si
2204Ap |ANY* |ss_dup |PerlInterpreter* proto_perl
2205Ap |void* |any_dup |void* v|PerlInterpreter* proto_perl
2206Ap |HE* |he_dup |HE* e|bool shared
2207Ap |REGEXP*|re_dup |REGEXP* r
2208Ap |PerlIO*|fp_dup |PerlIO* fp|char type
2209Ap |DIR* |dirp_dup |DIR* dp
2210Ap |GP* |gp_dup |GP* gp
2211Ap |MAGIC* |mg_dup |MAGIC* mg
2212Ap |SV* |sv_dup |SV* sstr
1d7c1841 2213#if defined(HAVE_INTERP_INTERN)
954c1994 2214Ap |void |sys_intern_dup |struct interp_intern* src \
1d7c1841
GS
2215 |struct interp_intern* dst
2216#endif
954c1994
GS
2217Ap |PTR_TBL_t*|ptr_table_new
2218Ap |void* |ptr_table_fetch|PTR_TBL_t *tbl|void *sv
2219Ap |void |ptr_table_store|PTR_TBL_t *tbl|void *oldsv|void *newsv
2220Ap |void |ptr_table_split|PTR_TBL_t *tbl
a0739874
DM
2221Ap |void |ptr_table_clear|PTR_TBL_t *tbl
2222Ap |void |ptr_table_free|PTR_TBL_t *tbl
1d7c1841 2223#endif
3dbbd0f5
GS
2224#if defined(HAVE_INTERP_INTERN)
2225Ap |void |sys_intern_clear
2226Ap |void |sys_intern_init
2227#endif
cea2e8a9 2228
0cb96387
GS
2229#if defined(PERL_OBJECT)
2230protected:
1d7c1841
GS
2231#else
2232END_EXTERN_C
0cb96387 2233#endif
1d7c1841 2234
0cb96387 2235#if defined(PERL_IN_AV_C) || defined(PERL_DECL_PROT)
cea2e8a9 2236s |I32 |avhv_index_sv |SV* sv
10c8fecd 2237s |I32 |avhv_index |AV* av|SV* sv|U32 hash
cea2e8a9
GS
2238#endif
2239
0cb96387 2240#if defined(PERL_IN_DOOP_C) || defined(PERL_DECL_PROT)
036b4402
GS
2241s |I32 |do_trans_simple |SV *sv
2242s |I32 |do_trans_count |SV *sv
2243s |I32 |do_trans_complex |SV *sv
2244s |I32 |do_trans_simple_utf8 |SV *sv
2245s |I32 |do_trans_count_utf8 |SV *sv
2246s |I32 |do_trans_complex_utf8 |SV *sv
cea2e8a9
GS
2247#endif
2248
0cb96387 2249#if defined(PERL_IN_GV_C) || defined(PERL_DECL_PROT)
cea2e8a9
GS
2250s |void |gv_init_sv |GV *gv|I32 sv_type
2251#endif
2252
0cb96387 2253#if defined(PERL_IN_HV_C) || defined(PERL_DECL_PROT)
cea2e8a9
GS
2254s |void |hsplit |HV *hv
2255s |void |hfreeentries |HV *hv
2256s |void |more_he
2257s |HE* |new_he
2258s |void |del_he |HE *p
2259s |HEK* |save_hek |const char *str|I32 len|U32 hash
2260s |void |hv_magic_check |HV *hv|bool *needs_copy|bool *needs_store
2261#endif
2262
0cb96387 2263#if defined(PERL_IN_MG_C) || defined(PERL_DECL_PROT)
cea2e8a9
GS
2264s |void |save_magic |I32 mgs_ix|SV *sv
2265s |int |magic_methpack |SV *sv|MAGIC *mg|char *meth
2266s |int |magic_methcall |SV *sv|MAGIC *mg|char *meth|I32 f \
2267 |int n|SV *val
cea2e8a9
GS
2268#endif
2269
0cb96387 2270#if defined(PERL_IN_OP_C) || defined(PERL_DECL_PROT)
cea2e8a9
GS
2271s |I32 |list_assignment|OP *o
2272s |void |bad_type |I32 n|char *t|char *name|OP *kid
3eb57f73 2273s |void |cop_free |COP *cop
cea2e8a9
GS
2274s |OP* |modkids |OP *o|I32 type
2275s |void |no_bareword_allowed|OP *o
2276s |OP* |no_fh_allowed |OP *o
2277s |OP* |scalarboolean |OP *o
2278s |OP* |too_few_arguments|OP *o|char* name
2279s |OP* |too_many_arguments|OP *o|char* name
9b877dbb 2280s |U8* |trlist_upgrade |U8** sp|U8** ep
acb36ea4 2281s |void |op_clear |OP* o
cea2e8a9 2282s |void |null |OP* o
94f23f41 2283s |PADOFFSET|pad_addlex |SV* name
cea2e8a9
GS
2284s |PADOFFSET|pad_findlex |char* name|PADOFFSET newoff|U32 seq \
2285 |CV* startcv|I32 cx_ix|I32 saweval|U32 flags
2286s |OP* |newDEFSVOP
2287s |OP* |new_logop |I32 type|I32 flags|OP **firstp|OP **otherp
2288s |void |simplify_sort |OP *o
2289s |bool |is_handle_constructor |OP *o|I32 argnum
2290s |char* |gv_ename |GV *gv
9cbac4c7 2291# if defined(DEBUG_CLOSURES)
1d7c1841 2292s |void |cv_dump |CV *cv
9cbac4c7 2293# endif
cea2e8a9
GS
2294s |CV* |cv_clone2 |CV *proto|CV *outside
2295s |bool |scalar_mod_type|OP *o|I32 type
09bef843
SB
2296s |OP * |my_kid |OP *o|OP *attrs
2297s |OP * |dup_attrlist |OP *o
2298s |void |apply_attrs |HV *stash|SV *target|OP *attrs
cea2e8a9
GS
2299# if defined(PL_OP_SLAB_ALLOC)
2300s |void* |Slab_Alloc |int m|size_t sz
2301# endif
2302#endif
2303
0cb96387 2304#if defined(PERL_IN_PERL_C) || defined(PERL_DECL_PROT)
cea2e8a9
GS
2305s |void |find_beginning
2306s |void |forbid_setid |char *
9c8a64f0 2307s |void |incpush |char *|int|int
cea2e8a9
GS
2308s |void |init_interp
2309s |void |init_ids
cea2e8a9
GS
2310s |void |init_lexer
2311s |void |init_main_stash
2312s |void |init_perllib
2313s |void |init_postdump_symbols|int|char **|char **
2314s |void |init_predump_symbols
2315rs |void |my_exit_jump
2316s |void |nuke_stacks
2317s |void |open_script |char *|bool|SV *|int *fd
2318s |void |usage |char *
2319s |void |validate_suid |char *|char*|int
cea2e8a9
GS
2320# if defined(IAMSUID)
2321s |int |fd_on_nosuid_fs|int fd
2322# endif
14dd3ad8
GS
2323s |void* |parse_body |char **env|XSINIT_t xsinit
2324s |void* |run_body |I32 oldscope
2325s |void |call_body |OP *myop|int is_eval
2326s |void* |call_list_body |CV *cv
2327#if defined(PERL_FLEXIBLE_EXCEPTIONS)
2328s |void* |vparse_body |va_list args
2329s |void* |vrun_body |va_list args
2330s |void* |vcall_body |va_list args
2331s |void* |vcall_list_body|va_list args
2332#endif
cea2e8a9
GS
2333# if defined(USE_THREADS)
2334s |struct perl_thread * |init_main_thread
2335# endif
2336#endif
2337
0cb96387 2338#if defined(PERL_IN_PP_C) || defined(PERL_DECL_PROT)
cea2e8a9
GS
2339s |void |doencodes |SV* sv|char* s|I32 len
2340s |SV* |refto |SV* sv
2341s |U32 |seed
2342s |SV* |mul128 |SV *sv|U8 m
2343s |SV* |is_an_int |char *s|STRLEN l
2344s |int |div128 |SV *pnum|bool *done
2345#endif
2346
0cb96387 2347#if defined(PERL_IN_PP_CTL_C) || defined(PERL_DECL_PROT)
cea2e8a9 2348s |OP* |docatch |OP *o
14dd3ad8
GS
2349s |void* |docatch_body
2350#if defined(PERL_FLEXIBLE_EXCEPTIONS)
2351s |void* |vdocatch_body |va_list args
2352#endif
cea2e8a9
GS
2353s |OP* |dofindlabel |OP *o|char *label|OP **opstack|OP **oplimit
2354s |void |doparseform |SV *sv
2355s |I32 |dopoptoeval |I32 startingblock
2356s |I32 |dopoptolabel |char *label
2357s |I32 |dopoptoloop |I32 startingblock
2358s |I32 |dopoptosub |I32 startingblock
2359s |I32 |dopoptosub_at |PERL_CONTEXT* cxstk|I32 startingblock
cea2e8a9
GS
2360s |void |save_lines |AV *array|SV *sv
2361s |OP* |doeval |int gimme|OP** startop
2362s |PerlIO *|doopen_pmc |const char *name|const char *mode
2363s |void |qsortsv |SV ** array|size_t num_elts|SVCOMPARE_t f
cea2e8a9
GS
2364#endif
2365
0cb96387 2366#if defined(PERL_IN_PP_HOT_C) || defined(PERL_DECL_PROT)
10c8fecd
GS
2367s |int |do_maybe_phash |AV *ary|SV **lelem|SV **firstlelem \
2368 |SV **relem|SV **lastrelem
2369s |void |do_oddball |HV *hash|SV **relem|SV **firstrelem
cea2e8a9 2370s |CV* |get_db_sub |SV **svp|CV *cv
f5d5a27c 2371s |SV* |method_common |SV* meth|U32* hashp
cea2e8a9
GS
2372#endif
2373
0cb96387 2374#if defined(PERL_IN_PP_SYS_C) || defined(PERL_DECL_PROT)
cea2e8a9 2375s |OP* |doform |CV *cv|GV *gv|OP *retop
7f4774ae 2376s |int |emulate_eaccess|const char* path|Mode_t mode
cea2e8a9
GS
2377# if !defined(HAS_MKDIR) || !defined(HAS_RMDIR)
2378s |int |dooneliner |char *cmd|char *filename
2379# endif
2380#endif
2381
0cb96387 2382#if defined(PERL_IN_REGCOMP_C) || defined(PERL_DECL_PROT)
830247a4
IZ
2383s |regnode*|reg |struct RExC_state_t*|I32|I32 *
2384s |regnode*|reganode |struct RExC_state_t*|U8|U32
2385s |regnode*|regatom |struct RExC_state_t*|I32 *
2386s |regnode*|regbranch |struct RExC_state_t*|I32 *|I32
2387s |void |reguni |struct RExC_state_t*|UV|char *|STRLEN*
2388s |regnode*|regclass |struct RExC_state_t*
cea2e8a9 2389s |I32 |regcurly |char *
830247a4
IZ
2390s |regnode*|reg_node |struct RExC_state_t*|U8
2391s |regnode*|regpiece |struct RExC_state_t*|I32 *
2392s |void |reginsert |struct RExC_state_t*|U8|regnode *
2393s |void |regoptail |struct RExC_state_t*|regnode *|regnode *
2394s |void |regtail |struct RExC_state_t*|regnode *|regnode *
cea2e8a9 2395s |char*|regwhite |char *|char *
830247a4 2396s |char*|nextchar |struct RExC_state_t*
cea2e8a9
GS
2397s |regnode*|dumpuntil |regnode *start|regnode *node \
2398 |regnode *last|SV* sv|I32 l
1d7c1841 2399s |void |put_byte |SV* sv|int c
830247a4
IZ
2400s |void |scan_commit |struct RExC_state_t*|struct scan_data_t *data
2401s |void |cl_anything |struct RExC_state_t*|struct regnode_charclass_class *cl
1d7c1841 2402s |int |cl_is_anything |struct regnode_charclass_class *cl
830247a4
IZ
2403s |void |cl_init |struct RExC_state_t*|struct regnode_charclass_class *cl
2404s |void |cl_init_zero |struct RExC_state_t*|struct regnode_charclass_class *cl
1d7c1841
GS
2405s |void |cl_and |struct regnode_charclass_class *cl \
2406 |struct regnode_charclass_class *and_with
830247a4 2407s |void |cl_or |struct RExC_state_t*|struct regnode_charclass_class *cl \
1d7c1841 2408 |struct regnode_charclass_class *or_with
830247a4 2409s |I32 |study_chunk |struct RExC_state_t*|regnode **scanp|I32 *deltap \
82ba1be6
IZ
2410 |regnode *last|struct scan_data_t *data \
2411 |U32 flags
830247a4 2412s |I32 |add_data |struct RExC_state_t*|I32 n|char *s
cea2e8a9 2413rs |void|re_croak2 |const char* pat1|const char* pat2|...
830247a4
IZ
2414s |I32 |regpposixcc |struct RExC_state_t*|I32 value
2415s |void |checkposixcc |struct RExC_state_t*
cea2e8a9
GS
2416#endif
2417
0cb96387 2418#if defined(PERL_IN_REGEXEC_C) || defined(PERL_DECL_PROT)
cea2e8a9
GS
2419s |I32 |regmatch |regnode *prog
2420s |I32 |regrepeat |regnode *p|I32 max
2421s |I32 |regrepeat_hard |regnode *p|I32 max|I32 *lp
2422s |I32 |regtry |regexp *prog|char *startpos
7ea3cd40 2423s |bool |reginclass |regnode *n|U8 *p|bool do_utf8sv_is_utf8
cea2e8a9
GS
2424s |CHECKPOINT|regcppush |I32 parenfloor
2425s |char*|regcppop
2426s |char*|regcp_set_to |I32 ss
2427s |void |cache_re |regexp *prog
cea2e8a9 2428s |U8* |reghop |U8 *pos|I32 off
60aeb6fd 2429s |U8* |reghop3 |U8 *pos|I32 off|U8 *lim
cea2e8a9 2430s |U8* |reghopmaybe |U8 *pos|I32 off
60aeb6fd 2431s |U8* |reghopmaybe3 |U8 *pos|I32 off|U8 *lim
1d7c1841 2432s |char* |find_byclass |regexp * prog|regnode *c|char *s|char *strend|char *startpos|I32 norun
cea2e8a9
GS
2433#endif
2434
0cb96387 2435#if defined(PERL_IN_RUN_C) || defined(PERL_DECL_PROT)
cea2e8a9
GS
2436s |void |debprof |OP *o
2437#endif
2438
0cb96387 2439#if defined(PERL_IN_SCOPE_C) || defined(PERL_DECL_PROT)
cea2e8a9
GS
2440s |SV* |save_scalar_at |SV **sptr
2441#endif
2442
0cb96387 2443#if defined(PERL_IN_SV_C) || defined(PERL_DECL_PROT)
cea2e8a9
GS
2444s |IV |asIV |SV* sv
2445s |UV |asUV |SV* sv
2446s |SV* |more_sv
2447s |void |more_xiv
2448s |void |more_xnv
2449s |void |more_xpv
932e9ff9
VB
2450s |void |more_xpviv
2451s |void |more_xpvnv
2452s |void |more_xpvcv
2453s |void |more_xpvav
2454s |void |more_xpvhv
2455s |void |more_xpvmg
2456s |void |more_xpvlv
2457s |void |more_xpvbm
cea2e8a9
GS
2458s |void |more_xrv
2459s |XPVIV* |new_xiv
2460s |XPVNV* |new_xnv
2461s |XPV* |new_xpv
932e9ff9
VB
2462s |XPVIV* |new_xpviv
2463s |XPVNV* |new_xpvnv
2464s |XPVCV* |new_xpvcv
2465s |XPVAV* |new_xpvav
2466s |XPVHV* |new_xpvhv
2467s |XPVMG* |new_xpvmg
2468s |XPVLV* |new_xpvlv
2469s |XPVBM* |new_xpvbm
cea2e8a9
GS
2470s |XRV* |new_xrv
2471s |void |del_xiv |XPVIV* p
2472s |void |del_xnv |XPVNV* p
2473s |void |del_xpv |XPV* p
932e9ff9
VB
2474s |void |del_xpviv |XPVIV* p
2475s |void |del_xpvnv |XPVNV* p
2476s |void |del_xpvcv |XPVCV* p
2477s |void |del_xpvav |XPVAV* p
2478s |void |del_xpvhv |XPVHV* p
2479s |void |del_xpvmg |XPVMG* p
2480s |void |del_xpvlv |XPVLV* p
2481s |void |del_xpvbm |XPVBM* p
cea2e8a9
GS
2482s |void |del_xrv |XRV* p
2483s |void |sv_unglob |SV* sv
cea2e8a9
GS
2484s |void |not_a_number |SV *sv
2485s |void |visit |SVFUNC_t f
cea2e8a9
GS
2486s |void |sv_add_backref |SV *tsv|SV *sv
2487s |void |sv_del_backref |SV *sv
2488# if defined(DEBUGGING)
2489s |void |del_sv |SV *p
2490# endif
28e5dec8
JH
2491# if !defined(NV_PRESERVES_UV)
2492s |int |sv_2inuv_non_preserve |SV *sv|I32 numtype
2493s |int |sv_2iuv_non_preserve |SV *sv|I32 numtype
2494# endif
6b1bfb71 2495s |I32 |expect_number |char** pattern
9cbac4c7
DM
2496#
2497# if defined(USE_ITHREADS)
2498s |SV* |gv_share |SV *sv
2499# endif
cea2e8a9
GS
2500#endif
2501
0cb96387 2502#if defined(PERL_IN_TOKE_C) || defined(PERL_DECL_PROT)
cea2e8a9
GS
2503s |void |check_uni
2504s |void |force_next |I32 type
2505s |char* |force_version |char *start
2506s |char* |force_word |char *start|int token|int check_keyword \
2507 |int allow_pack|int allow_tick
2508s |SV* |tokeq |SV *sv
2509s |char* |scan_const |char *start
2510s |char* |scan_formline |char *s
2511s |char* |scan_heredoc |char *s
2512s |char* |scan_ident |char *s|char *send|char *dest \
2513 |STRLEN destlen|I32 ck_uni
2514s |char* |scan_inputsymbol|char *start
2515s |char* |scan_pat |char *start|I32 type
09bef843 2516s |char* |scan_str |char *start|int keep_quoted|int keep_delims
cea2e8a9
GS
2517s |char* |scan_subst |char *start
2518s |char* |scan_trans |char *start
2519s |char* |scan_word |char *s|char *dest|STRLEN destlen \
2520 |int allow_package|STRLEN *slp
2521s |char* |skipspace |char *s
78ae23f5 2522s |char* |swallow_bom |U8 *s
cea2e8a9
GS
2523s |void |checkcomma |char *s|char *name|char *what
2524s |void |force_ident |char *s|int kind
2525s |void |incline |char *s
2526s |int |intuit_method |char *s|GV *gv
2527s |int |intuit_more |char *s
1d7c1841 2528s |I32 |lop |I32 f|int x|char *s
cea2e8a9
GS
2529s |void |missingterm |char *s
2530s |void |no_op |char *what|char *s
2531s |void |set_csh
2532s |I32 |sublex_done
2533s |I32 |sublex_push
2534s |I32 |sublex_start
2535s |char * |filter_gets |SV *sv|PerlIO *fp|STRLEN append
def3634b 2536s |HV * |find_in_my_stash|char *pkgname|I32 len
1d7c1841
GS
2537s |SV* |new_constant |char *s|STRLEN len|const char *key|SV *sv \
2538 |SV *pv|const char *type
998054bd 2539s |void |tokereport |char *thing|char *s|I32 rv
cea2e8a9
GS
2540s |int |ao |int toketype
2541s |void |depcom
2542s |char* |incl_perldb
155aba94 2543#if 0
cea2e8a9
GS
2544s |I32 |utf16_textfilter|int idx|SV *sv|int maxlen
2545s |I32 |utf16rev_textfilter|int idx|SV *sv|int maxlen
155aba94 2546#endif
cea2e8a9
GS
2547# if defined(CRIPPLED_CC)
2548s |int |uni |I32 f|char *s
2549# endif
c39cd008
GS
2550# if defined(PERL_CR_FILTER)
2551s |I32 |cr_textfilter |int idx|SV *sv|int maxlen
cea2e8a9
GS
2552# endif
2553#endif
2554
0cb96387 2555#if defined(PERL_IN_UNIVERSAL_C) || defined(PERL_DECL_PROT)
cea2e8a9
GS
2556s |SV*|isa_lookup |HV *stash|const char *name|int len|int level
2557#endif
2558
0cb96387 2559#if defined(PERL_IN_UTIL_C) || defined(PERL_DECL_PROT)
ff4fed7c 2560s |char* |stdize_locale |char* locs
cea2e8a9 2561s |SV* |mess_alloc
cea2e8a9
GS
2562# if defined(LEAKTEST)
2563s |void |xstat |int
2564# endif
2565#endif
1d7c1841
GS
2566
2567#if defined(PERL_OBJECT)
2568};
2569#endif