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