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