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