This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Add a new flag character 'm' to embed.pl set to represent
[perl5.git] / embed.pl
CommitLineData
5f05dabc 1#!/usr/bin/perl -w
e50aee73 2
954c1994
GS
3require 5.003; # keep this compatible, an old perl is all we may have before
4 # we build the new one
5f05dabc 5
cea2e8a9
GS
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
GS
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
GS
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
PP
48 my @outs = &{$function}(@args);
49 print $F @outs; # $function->(@args) is not 5.003
cea2e8a9
GS
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
GS
107my $wrote_protected = 0;
108
cea2e8a9
GS
109sub write_protos {
110 my $ret = "";
111 if (@_ == 1) {
112 my $arg = shift;
1d7c1841 113 $ret .= "$arg\n";
cea2e8a9
GS
114 }
115 else {
116 my ($flags,$retval,$func,@args) = @_;
af3c7592 117 $ret .= '/* ' if $flags =~ /m/;
cea2e8a9
GS
118 if ($flags =~ /s/) {
119 $retval = "STATIC $retval";
120 $func = "S_$func";
121 }
0cb96387 122 else {
1d7c1841 123 $retval = "PERL_CALLCONV $retval";
0cb96387
GS
124 if ($flags =~ /p/) {
125 $func = "Perl_$func";
126 }
cea2e8a9
GS
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
GS
147 $ret .= "\n#endif\n";
148 }
af3c7592
NIS
149 $ret .= ";";
150 $ret .= ' */' if $flags =~ /m/;
151 $ret .= "\n";
cea2e8a9
GS
152 }
153 $ret;
154}
155
954c1994 156# generates global.sym (API export list), and populates %global with global symbols
cea2e8a9
GS
157sub write_global_sym {
158 my $ret = "";
159 if (@_ > 1) {
160 my ($flags,$retval,$func,@args) = @_;
af3c7592 161 if ($flags =~ /A/ && $flags !~ /[xm]/) { # public API, so export
cea2e8a9
GS
162 $func = "Perl_$func" if $flags =~ /p/;
163 $ret = "$func\n";
164 }
165 }
166 $ret;
167}
168
169
170walk_table(\&write_protos, 'proto.h', <<'EOT');
171/*
172 * !!!!!!! DO NOT EDIT THIS FILE !!!!!!!
173 * This file is autogenerated from data in embed.pl. Edit that file
174 * and run 'make regen_headers' to effect changes.
175 */
176
177EOT
178
179walk_table(\&write_global_sym, 'global.sym', <<'EOT');
180#
181# !!!!!!! DO NOT EDIT THIS FILE !!!!!!!
182# This file is autogenerated from data in embed.pl. Edit that file
183# and run 'make regen_headers' to effect changes.
184#
185
186EOT
187
709f4e38
GS
188# XXX others that may need adding
189# warnhook
190# hints
191# copline
84fee439 192my @extvars = qw(sv_undef sv_yes sv_no na dowarn
1c846c1f 193 curcop compiling
84fee439 194 tainting tainted stack_base stack_sp sv_arenaroot
256a4781 195 no_modify
84fee439 196 curstash DBsub DBsingle debstash
1c846c1f 197 rsfp
84fee439 198 stdingv
6b88bc9c
GS
199 defgv
200 errgv
3070f6ec
GS
201 rsfp_filters
202 perldb
709f4e38
GS
203 diehook
204 dirty
205 perl_destruct_level
ac634a9a 206 ppaddr
84fee439
NIS
207 );
208
5f05dabc
PP
209sub readsyms (\%$) {
210 my ($syms, $file) = @_;
5f05dabc
PP
211 local (*FILE, $_);
212 open(FILE, "< $file")
213 or die "embed.pl: Can't open $file: $!\n";
214 while (<FILE>) {
215 s/[ \t]*#.*//; # Delete comments.
216 if (/^\s*(\S+)\s*$/) {
22c35a8c
GS
217 my $sym = $1;
218 warn "duplicate symbol $sym while processing $file\n"
219 if exists $$syms{$sym};
220 $$syms{$sym} = 1;
5f05dabc
PP
221 }
222 }
223 close(FILE);
224}
225
cea2e8a9
GS
226# Perl_pp_* and Perl_ck_* are in pp.sym
227readsyms my %ppsym, 'pp.sym';
5f05dabc 228
c6af7a1a
GS
229sub readvars(\%$$@) {
230 my ($syms, $file,$pre,$keep_pre) = @_;
d4cce5f1
NIS
231 local (*FILE, $_);
232 open(FILE, "< $file")
233 or die "embed.pl: Can't open $file: $!\n";
234 while (<FILE>) {
235 s/[ \t]*#.*//; # Delete comments.
51371543 236 if (/PERLVARA?I?C?\($pre(\w+)/) {
22c35a8c 237 my $sym = $1;
c6af7a1a 238 $sym = $pre . $sym if $keep_pre;
22c35a8c
GS
239 warn "duplicate symbol $sym while processing $file\n"
240 if exists $$syms{$sym};
51371543 241 $$syms{$sym} = $pre || 1;
d4cce5f1
NIS
242 }
243 }
244 close(FILE);
245}
246
247my %intrp;
248my %thread;
249
250readvars %intrp, 'intrpvar.h','I';
251readvars %thread, 'thrdvar.h','T';
22239a37 252readvars %globvar, 'perlvars.h','G';
d4cce5f1 253
4543f4c0
PP
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
GS
259sub undefine ($) {
260 my ($sym) = @_;
261 "#undef $sym\n";
262}
263
5f05dabc
PP
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
GS
274}
275
d4cce5f1
NIS
276sub multon ($$$) {
277 my ($sym,$pre,$ptr) = @_;
3280af22 278 hide("PL_$sym", "($ptr$pre$sym)");
5f05dabc 279}
54aff467 280
d4cce5f1
NIS
281sub multoff ($$) {
282 my ($sym,$pre) = @_;
533c011a 283 return hide("PL_$pre$sym", "PL_$sym");
5f05dabc
PP
284}
285
286unlink 'embed.h';
cea2e8a9 287open(EM, '> embed.h') or die "Can't create embed.h: $!\n";
e50aee73
AD
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
AD
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
GS
299/* provide binary compatible (but inconsistent) names */
300#if defined(PERL_BINCOMPAT_5005)
c0e79ee6
GS
301# define Perl_call_atexit perl_atexit
302# define Perl_eval_sv perl_eval_sv
303# define Perl_eval_pv perl_eval_pv
538feb02
GS
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
GS
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
GS
333#endif
334
22c35a8c 335/* Hide global symbols */
5f05dabc 336
cea2e8a9 337#if !defined(PERL_IMPLICIT_CONTEXT)
e50aee73 338
e50aee73
AD
339END
340
cea2e8a9
GS
341walk_table {
342 my $ret = "";
343 if (@_ == 1) {
344 my $arg = shift;
12a98ad5 345 $ret .= "$arg\n" if $arg =~ /^#\s*(if|ifn?def|else|endif)\b/;
cea2e8a9
GS
346 }
347 else {
348 my ($flags,$retval,$func,@args) = @_;
af3c7592 349 unless ($flags =~ /[om]/) {
cea2e8a9
GS
350 if ($flags =~ /s/) {
351 $ret .= hide($func,"S_$func");
352 }
353 elsif ($flags =~ /p/) {
354 $ret .= hide($func,"Perl_$func");
355 }
356 }
357 }
358 $ret;
359} \*EM;
360
361for $sym (sort keys %ppsym) {
362 $sym =~ s/^Perl_//;
363 print EM hide($sym, "Perl_$sym");
364}
365
366print EM <<'END';
367
368#else /* PERL_IMPLICIT_CONTEXT */
369
370END
371
372my @az = ('a'..'z');
373
374walk_table {
375 my $ret = "";
376 if (@_ == 1) {
377 my $arg = shift;
12a98ad5 378 $ret .= "$arg\n" if $arg =~ /^#\s*(if|ifn?def|else|endif)\b/;
cea2e8a9
GS
379 }
380 else {
381 my ($flags,$retval,$func,@args) = @_;
af3c7592 382 unless ($flags =~ /[om]/) {
cea2e8a9
GS
383 my $args = scalar @args;
384 if ($args and $args[$args-1] =~ /\.\.\./) {
385 # we're out of luck for varargs functions under CPP
386 }
387 elsif ($flags =~ /n/) {
388 if ($flags =~ /s/) {
389 $ret .= hide($func,"S_$func");
390 }
391 elsif ($flags =~ /p/) {
392 $ret .= hide($func,"Perl_$func");
393 }
394 }
395 else {
396 my $alist = join(",", @az[0..$args-1]);
397 $ret = "#define $func($alist)";
398 my $t = int(length($ret) / 8);
399 $ret .= "\t" x ($t < 4 ? 4 - $t : 1);
400 if ($flags =~ /s/) {
401 $ret .= "S_$func(aTHX";
402 }
403 elsif ($flags =~ /p/) {
404 $ret .= "Perl_$func(aTHX";
405 }
406 $ret .= "_ " if $alist;
407 $ret .= $alist . ")\n";
408 }
409 }
410 }
411 $ret;
412} \*EM;
413
414for $sym (sort keys %ppsym) {
415 $sym =~ s/^Perl_//;
416 if ($sym =~ /^ck_/) {
417 print EM hide("$sym(a)", "Perl_$sym(aTHX_ a)");
418 }
419 elsif ($sym =~ /^pp_/) {
420 print EM hide("$sym()", "Perl_$sym(aTHX)");
421 }
422 else {
423 warn "Illegal symbol '$sym' in pp.sym";
424 }
e50aee73
AD
425}
426
e50aee73
AD
427print EM <<'END';
428
cea2e8a9 429#endif /* PERL_IMPLICIT_CONTEXT */
22c35a8c
GS
430
431END
432
22c35a8c
GS
433print EM <<'END';
434
cea2e8a9
GS
435/* Compatibility stubs. Compile extensions with -DPERL_NOCOMPAT to
436 disable them.
437 */
438
538feb02 439#if !defined(PERL_CORE)
5bc28da9
NIS
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
GS
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
GS
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
GS
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
GS
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
GS
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
GS
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
GS
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
GS
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
NIS
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
NIS
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
GS
528 and PERL_IMPLICIT_CONTEXT are supported:
529 1) none
530 2) MULTIPLICITY # supported for compatibility
531 3) MULTIPLICITY && PERL_IMPLICIT_CONTEXT
4d1ff10f
AB
532 4) USE_5005THREADS && PERL_IMPLICIT_CONTEXT
533 5) MULTIPLICITY && USE_5005THREADS && PERL_IMPLICIT_CONTEXT
54aff467
GS
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
GS
541#if defined(MULTIPLICITY)
542/* cases 2, 3 and 5 above */
cea2e8a9 543
54aff467
GS
544# if defined(PERL_IMPLICIT_CONTEXT)
545# define vTHX aTHX
546# else
547# define vTHX PERL_GET_INTERP
548# endif
cea2e8a9 549
e50aee73
AD
550END
551
d4cce5f1 552for $sym (sort keys %thread) {
54aff467 553 print EM multon($sym,'T','vTHX->');
d4cce5f1
NIS
554}
555
556print EM <<'END';
557
4d1ff10f 558# if defined(USE_5005THREADS)
54aff467 559/* case 5 above */
d4cce5f1
NIS
560
561END
562
563for $sym (sort keys %intrp) {
c5be433b 564 print EM multon($sym,'I','PERL_GET_INTERP->');
760ac839 565}
760ac839 566
55497cff
PP
567print EM <<'END';
568
4d1ff10f 569# else /* !USE_5005THREADS */
54aff467 570/* cases 2 and 3 above */
55497cff
PP
571
572END
760ac839 573
d4cce5f1 574for $sym (sort keys %intrp) {
54aff467 575 print EM multon($sym,'I','vTHX->');
d4cce5f1
NIS
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
NIS
590}
591
592print EM <<'END';
593
acfe0abc 594# if defined(USE_5005THREADS)
54aff467 595/* case 4 above */
d4cce5f1
NIS
596
597END
598
599for $sym (sort keys %thread) {
54aff467 600 print EM multon($sym,'T','aTHX->');
5f05dabc
PP
601}
602
603print EM <<'END';
604
acfe0abc 605# else /* !USE_5005THREADS */
1d7c1841 606/* case 1 above */
d4cce5f1
NIS
607
608END
609
610for $sym (sort keys %thread) {
54aff467 611 print EM multoff($sym,'T');
d4cce5f1
NIS
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
NIS
620
621END
622
623for $sym (sort keys %globvar) {
533c011a 624 print EM multon($sym,'G','PL_Vars.');
22239a37
NIS
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
NIS
639#endif /* PERL_GLOBAL_STRUCT */
640
85add8c2 641#ifdef PERL_POLLUTE /* disabled by default in 5.6.0 */
84fee439
NIS
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
NIS
652END
653
3fe35a81 654close(EM);
c6af7a1a 655
51371543
GS
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
GS
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
GS
668#ifndef __perlapi_h__
669#define __perlapi_h__
51371543 670
acfe0abc 671#if defined (MULTIPLICITY)
c5be433b 672
51371543
GS
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
GS
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
GS
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
GS
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
GS
732
733#endif /* PERL_NO_FORCE_LINK */
734
735#else /* !PERL_CORE */
51371543
GS
736
737EOT
738
4543f4c0 739foreach $sym (sort keys %intrp) {
6f4183fe
GS
740 print CAPIH bincompat_var('I',$sym);
741}
742
4543f4c0 743foreach $sym (sort keys %thread) {
6f4183fe
GS
744 print CAPIH bincompat_var('T',$sym);
745}
746
4543f4c0 747foreach $sym (sort keys %globvar) {
6f4183fe
GS
748 print CAPIH bincompat_var('G',$sym);
749}
750
751print CAPIH <<'EOT';
752
753#endif /* !PERL_CORE */
acfe0abc 754#endif /* MULTIPLICITY */
6f4183fe
GS
755
756#endif /* __perlapi_h__ */
757
758EOT
d98f61e7 759close CAPIH;
51371543
GS
760
761print CAPI <<'EOT';
1c846c1f 762/* !!!!!!! DO NOT EDIT THIS FILE !!!!!!!
51371543
GS
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
GS
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
GS
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
GS
788
789#include "thrdvar.h"
790#include "intrpvar.h"
c5be433b
GS
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
GS
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
GS
811EOT
812
acfe0abc
GS
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
GS
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
GS
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
GS
836# autogenerate documentation from comments in source files
837
838my %apidocs;
839my %gutsdocs;
840my %docfuncs;
841
60ed1d8c
GS
842sub autodoc ($$) { # parse a file and extract documentation info
843 my($fh,$file) = @_;
497711e7 844 my($in, $doc, $line);
954c1994
GS
845FUNC:
846 while (defined($in = <$fh>)) {
497711e7 847 $line++;
954c1994
GS
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
GS
857 if ($doc =~ m:^\*/$:) {
858 warn "=cut missing? $file:$line:$doc";;
859 last DOC;
860 }
954c1994
GS
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
GS
867 }
868 else {
60ed1d8c 869 $gutsdocs{$name} = [$flags, $docs, $ret, $file, @args];
954c1994
GS
870 }
871 }
872 else {
60ed1d8c 873 $docfuncs{$name} = [$flags, $docs, $ret, $file, @args];
954c1994 874 }
497711e7
GS
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
GS
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
JH
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
GS
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
GS
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
GS
916 close F or die "Error closing $file: $!\n";
917}
918
919unlink "pod/perlapi.pod";
1c846c1f 920open (DOC, ">pod/perlapi.pod") or
954c1994
GS
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
GS
933 $apidocs{$func} = [$docref->[0] . 'A', $docref->[1], $retval,
934 $docref->[3], @args];
954c1994
GS
935 } else {
936 my $docref = delete $docfuncs{$func};
60ed1d8c
GS
937 $gutsdocs{$func} = [$docref->[0], $docref->[1], $retval,
938 $docref->[3], @args];
954c1994
GS
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
GS
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
NIS
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
GS
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
NIS
1005unlink "pod/perlintern.pod";
1006
1c846c1f 1007open(GUTS, ">pod/perlintern.pod") or
954c1994
GS
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
GS
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
GS
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
NIS
1035The autodocumentation system was originally added to the Perl core by
1036Benjamin Stuhl. Documentation is by whoever was kind enough to
954c1994
GS
1037document their functions.
1038
1039=head1 SEE ALSO
1040
1041perlguts(1), perlapi(1)
1042
1043END
1044
1045close GUTS;
1046
1047
cea2e8a9
GS
1048__END__
1049
1d7c1841
GS
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
GS
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
GS
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
GS
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
GS
1074
1075START_EXTERN_C
1076
1077#if defined(PERL_IMPLICIT_SYS)
acfe0abc 1078Ano |PerlInterpreter* |perl_alloc_using \
1d7c1841
GS
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
GS
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
GS
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
GS
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
GS
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
GS
1112Anp |void* |get_context
1113Anp |void |set_context |void *thx
ba869deb 1114
1d7c1841
GS
1115END_EXTERN_C
1116
1117/* functions with flag 'n' should come before here */
1d7c1841 1118START_EXTERN_C
1d7c1841 1119# include "pp_proto.h"
954c1994
GS
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
GS
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
GS
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
GS
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
SC
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
GS
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
GS
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
GS
1150p |OP* |bind_match |I32 type|OP* left|OP* pat
1151p |OP* |block_end |I32 floor|OP* seq
954c1994 1152Ap |I32 |block_gimme
cea2e8a9
GS
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
GS
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
GS
1167#endif
1168p |OP* |convert |I32 optype|I32 flags|OP* o
954c1994
GS
1169Afprd |void |croak |const char* pat|...
1170Apr |void |vcroak |const char* pat|va_list* args
cea2e8a9 1171#if defined(PERL_IMPLICIT_CONTEXT)
954c1994
GS
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
GS
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
GS
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
GS
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
GS
1199p |char* |get_no_modify
1200p |U32* |get_opargs
954c1994 1201Ap |PPADDR_t*|get_ppaddr
cea2e8a9 1202p |I32 |cxinc
954c1994
GS
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
GS
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
GS
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
IZ
1240 |int rawmode|int rawperm|PerlIO *supplied_fp \
1241 |SV *svs|I32 num
a567e93b
NIS
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
GS
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
1250p |void |do_sprintf |SV* sv|I32 len|SV** sarg
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
GS
1255p |void |do_vecset |SV* sv
1256p |void |do_vop |I32 optype|SV* sv|SV* left|SV* right
1257p |OP* |dofile |OP* term
954c1994
GS
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
GS
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
GS
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
GS
1276p |PADOFFSET|find_threadsv|const char *name
1277#endif
1278p |OP* |force_list |OP* arg
1279p |OP* |fold_constants |OP* arg
954c1994
GS
1280Afp |char* |form |const char* pat|...
1281Ap |char* |vform |const char* pat|va_list* args
1282Ap |void |free_tmps
cea2e8a9
GS
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
GS
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
GS
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
GS
1298Ap |GV* |gv_fetchfile |const char* name
1299Apd |GV* |gv_fetchmeth |HV* stash|const char* name|STRLEN len \
cea2e8a9 1300 |I32 level
954c1994
GS
1301Apd |GV* |gv_fetchmethod |HV* stash|const char* name
1302Apd |GV* |gv_fetchmethod_autoload|HV* stash|const char* name \
cea2e8a9 1303 |I32 autoload
954c1994
GS
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
GS
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
GS
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
GS
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
1ee4443e 1337p |void |init_debugger
1be9d9c6 1338Ap |void |init_stacks
b93ec261 1339Ap |void |init_tm |struct tm *ptm
cea2e8a9 1340p |U32 |intro_my
954c1994 1341Ap |char* |instr |const char* big|const char* little
f2b5be74 1342p |bool |io_close |IO* io|bool not_implicit
cea2e8a9 1343p |OP* |invert |OP* cmd
c9d5ac95 1344dp |bool |is_gv_magical |char *name|STRLEN len|U32 flags
78f9721b 1345p |I32 |is_lvalue_sub
954c1994
GS
1346Ap |bool |is_uni_alnum |U32 c
1347Ap |bool |is_uni_alnumc |U32 c
1348Ap |bool |is_uni_idfirst |U32 c
1349Ap |bool |is_uni_alpha |U32 c
1350Ap |bool |is_uni_ascii |U32 c
1351Ap |bool |is_uni_space |U32 c
1352Ap |bool |is_uni_cntrl |U32 c
1353Ap |bool |is_uni_graph |U32 c
1354Ap |bool |is_uni_digit |U32 c
1355Ap |bool |is_uni_upper |U32 c
1356Ap |bool |is_uni_lower |U32 c
1357Ap |bool |is_uni_print |U32 c
1358Ap |bool |is_uni_punct |U32 c
1359Ap |bool |is_uni_xdigit |U32 c
a2a2844f
JH
1360Ap |U32 |to_uni_upper |U32 c|U8 *p|STRLEN *lenp
1361Ap |U32 |to_uni_title |U32 c|U8 *p|STRLEN *lenp
1362Ap |U32 |to_uni_lower |U32 c|U8 *p|STRLEN *lenp
954c1994
GS
1363Ap |bool |is_uni_alnum_lc|U32 c
1364Ap |bool |is_uni_alnumc_lc|U32 c
1365Ap |bool |is_uni_idfirst_lc|U32 c
1366Ap |bool |is_uni_alpha_lc|U32 c
1367Ap |bool |is_uni_ascii_lc|U32 c
1368Ap |bool |is_uni_space_lc|U32 c
1369Ap |bool |is_uni_cntrl_lc|U32 c
1370Ap |bool |is_uni_graph_lc|U32 c
1371Ap |bool |is_uni_digit_lc|U32 c
1372Ap |bool |is_uni_upper_lc|U32 c
1373Ap |bool |is_uni_lower_lc|U32 c
1374Ap |bool |is_uni_print_lc|U32 c
1375Ap |bool |is_uni_punct_lc|U32 c
1376Ap |bool |is_uni_xdigit_lc|U32 c
eebe1485
SC
1377Apd |STRLEN |is_utf8_char |U8 *p
1378Apd |bool |is_utf8_string |U8 *s|STRLEN len
954c1994
GS
1379Ap |bool |is_utf8_alnum |U8 *p
1380Ap |bool |is_utf8_alnumc |U8 *p
1381Ap |bool |is_utf8_idfirst|U8 *p
1382Ap |bool |is_utf8_alpha |U8 *p
1383Ap |bool |is_utf8_ascii |U8 *p
1384Ap |bool |is_utf8_space |U8 *p
1385Ap |bool |is_utf8_cntrl |U8 *p
1386Ap |bool |is_utf8_digit |U8 *p
1387Ap |bool |is_utf8_graph |U8 *p
1388Ap |bool |is_utf8_upper |U8 *p
1389Ap |bool |is_utf8_lower |U8 *p
1390Ap |bool |is_utf8_print |U8 *p
1391Ap |bool |is_utf8_punct |U8 *p
1392Ap |bool |is_utf8_xdigit |U8 *p
1393Ap |bool |is_utf8_mark |U8 *p
cea2e8a9
GS
1394p |OP* |jmaybe |OP* arg
1395p |I32 |keyword |char* d|I32 len
1be9d9c6 1396Ap |void |leave_scope |I32 base
cea2e8a9
GS
1397p |void |lex_end
1398p |void |lex_start |SV* line
1cadc447 1399Ap |void |op_null |OP* o
93c66552 1400p |void |op_clear |OP* o
cea2e8a9
GS
1401p |OP* |linklist |OP* o
1402p |OP* |list |OP* o
1403p |OP* |listkids |OP* o
7d3fb230 1404Apd |void |load_module|U32 flags|SV* name|SV* ver|...
e4783991 1405Ap |void |vload_module|U32 flags|SV* name|SV* ver|va_list* args
cea2e8a9 1406p |OP* |localize |OP* arg|I32 lexical
954c1994 1407Apd |I32 |looks_like_number|SV* sv
53305cf1
NC
1408Apd |UV |grok_bin |char* start|STRLEN* len|I32* flags|NV *result
1409Apd |UV |grok_hex |char* start|STRLEN* len|I32* flags|NV *result
dd5dc04f
JH
1410Apd |int |grok_number |const char *pv|STRLEN len|UV *valuep
1411Apd |bool |grok_numeric_radix|const char **sp|const char *send
53305cf1 1412Apd |UV |grok_oct |char* start|STRLEN* len|I32* flags|NV *result
cea2e8a9
GS
1413p |int |magic_clearenv |SV* sv|MAGIC* mg
1414p |int |magic_clear_all_env|SV* sv|MAGIC* mg
1415p |int |magic_clearpack|SV* sv|MAGIC* mg
1416p |int |magic_clearsig |SV* sv|MAGIC* mg
1417p |int |magic_existspack|SV* sv|MAGIC* mg
1418p |int |magic_freeregexp|SV* sv|MAGIC* mg
d460ef45 1419p |int |magic_freeovrld|SV* sv|MAGIC* mg
cea2e8a9
GS
1420p |int |magic_get |SV* sv|MAGIC* mg
1421p |int |magic_getarylen|SV* sv|MAGIC* mg
1422p |int |magic_getdefelem|SV* sv|MAGIC* mg
1423p |int |magic_getglob |SV* sv|MAGIC* mg
1424p |int |magic_getnkeys |SV* sv|MAGIC* mg
1425p |int |magic_getpack |SV* sv|MAGIC* mg
1426p |int |magic_getpos |SV* sv|MAGIC* mg
1427p |int |magic_getsig |SV* sv|MAGIC* mg
1428p |int |magic_getsubstr|SV* sv|MAGIC* mg
1429p |int |magic_gettaint |SV* sv|MAGIC* mg
1430p |int |magic_getuvar |SV* sv|MAGIC* mg
1431p |int |magic_getvec |SV* sv|MAGIC* mg
1432p |U32 |magic_len |SV* sv|MAGIC* mg
4d1ff10f 1433#if defined(USE_5005THREADS)
cea2e8a9
GS
1434p |int |magic_mutexfree|SV* sv|MAGIC* mg
1435#endif
1436p |int |magic_nextpack |SV* sv|MAGIC* mg|SV* key
1437p |U32 |magic_regdata_cnt|SV* sv|MAGIC* mg
1438p |int |magic_regdatum_get|SV* sv|MAGIC* mg
e4b89193 1439p |int |magic_regdatum_set|SV* sv|MAGIC* mg
cea2e8a9
GS
1440p |int |magic_set |SV* sv|MAGIC* mg
1441p |int |magic_setamagic|SV* sv|MAGIC* mg
1442p |int |magic_setarylen|SV* sv|MAGIC* mg
1443p |int |magic_setbm |SV* sv|MAGIC* mg
1444p |int |magic_setdbline|SV* sv|MAGIC* mg
1445#if defined(USE_LOCALE_COLLATE)
1446p |int |magic_setcollxfrm|SV* sv|MAGIC* mg
1447#endif
1448p |int |magic_setdefelem|SV* sv|MAGIC* mg
1449p |int |magic_setenv |SV* sv|MAGIC* mg
1450p |int |magic_setfm |SV* sv|MAGIC* mg
1451p |int |magic_setisa |SV* sv|MAGIC* mg
1452p |int |magic_setglob |SV* sv|MAGIC* mg
1453p |int |magic_setmglob |SV* sv|MAGIC* mg
1454p |int |magic_setnkeys |SV* sv|MAGIC* mg
1455p |int |magic_setpack |SV* sv|MAGIC* mg
1456p |int |magic_setpos |SV* sv|MAGIC* mg
1457p |int |magic_setsig |SV* sv|MAGIC* mg
1458p |int |magic_setsubstr|SV* sv|MAGIC* mg
1459p |int |magic_settaint |SV* sv|MAGIC* mg
1460p |int |magic_setuvar |SV* sv|MAGIC* mg
1461p |int |magic_setvec |SV* sv|MAGIC* mg
1462p |int |magic_set_all_env|SV* sv|MAGIC* mg
1463p |U32 |magic_sizepack |SV* sv|MAGIC* mg
1464p |int |magic_wipepack |SV* sv|MAGIC* mg
1465p |void |magicname |char* sym|char* name|I32 namlen
954c1994 1466Ap |void |markstack_grow
cea2e8a9
GS
1467#if defined(USE_LOCALE_COLLATE)
1468p |char* |mem_collxfrm |const char* s|STRLEN len|STRLEN* xlen
1469#endif
954c1994
GS
1470Afp |SV* |mess |const char* pat|...
1471Ap |SV* |vmess |const char* pat|va_list* args
5a844595 1472p |void |qerror |SV* err
8d344e3e 1473Apd |void |sortsv |SV ** array|size_t num_elts|SVCOMPARE_t f
954c1994
GS
1474Apd |int |mg_clear |SV* sv
1475Apd |int |mg_copy |SV* sv|SV* nsv|const char* key|I32 klen
1476Apd |MAGIC* |mg_find |SV* sv|int type
1477Apd |int |mg_free |SV* sv
1478Apd |int |mg_get |SV* sv
1479Apd |U32 |mg_length |SV* sv
1480Apd |void |mg_magical |SV* sv
1481Apd |int |mg_set |SV* sv
8fb26106 1482Ap |I32 |mg_size |SV* sv
b93ec261 1483Ap |void |mini_mktime |struct tm *pm
cea2e8a9 1484p |OP* |mod |OP* o|I32 type
16fe6d59 1485p |int |mode_from_discipline|SV* discp
1be9d9c6 1486Ap |char* |moreswitches |char* s
cea2e8a9 1487p |OP* |my |OP* o
954c1994 1488Ap |NV |my_atof |const char *s
2253333f 1489#if (!defined(HAS_MEMCPY) && !defined(HAS_BCOPY)) || (!defined(HAS_MEMMOVE) && !defined(HAS_SAFE_MEMCPY) && !defined(HAS_SAFE_BCOPY))
954c1994 1490Anp |char* |my_bcopy |const char* from|char* to|I32 len
cea2e8a9
GS
1491#endif
1492#if !defined(HAS_BZERO) && !defined(HAS_MEMSET)
954c1994 1493Anp |char* |my_bzero |char* loc|I32 len
cea2e8a9 1494#endif
954c1994
GS
1495Apr |void |my_exit |U32 status
1496Apr |void |my_failure_exit
1497Ap |I32 |my_fflush_all
52e18b1f
GS
1498Anp |Pid_t |my_fork
1499Anp |void |atfork_lock
1500Anp |void |atfork_unlock
954c1994 1501Ap |I32 |my_lstat
cea2e8a9 1502#if !defined(HAS_MEMCMP) || !defined(HAS_SANE_MEMCMP)
954c1994 1503Anp |I32 |my_memcmp |const char* s1|const char* s2|I32 len
cea2e8a9
GS
1504#endif
1505#if !defined(HAS_MEMSET)
954c1994 1506Anp |void* |my_memset |char* loc|I32 ch|I32 len
cea2e8a9 1507#endif
954c1994
GS
1508Ap |I32 |my_pclose |PerlIO* ptr
1509Ap |PerlIO*|my_popen |char* cmd|char* mode
4a7d1889 1510Ap |PerlIO*|my_popen_list |char* mode|int n|SV ** args
954c1994
GS
1511Ap |void |my_setenv |char* nam|char* val
1512Ap |I32 |my_stat
b93ec261 1513Ap |char * |my_strftime |char *fmt|int sec|int min|int hour|int mday|int mon|int year|int wday|int yday|int isdst
cea2e8a9 1514#if defined(MYSWAP)
954c1994
GS
1515Ap |short |my_swap |short s
1516Ap |long |my_htonl |long l
1517Ap |long |my_ntohl |long l
cea2e8a9
GS
1518#endif
1519p |void |my_unexec
954c1994
GS
1520Ap |OP* |newANONLIST |OP* o
1521Ap |OP* |newANONHASH |OP* o
1522Ap |OP* |newANONSUB |I32 floor|OP* proto|OP* block
1523Ap |OP* |newASSIGNOP |I32 flags|OP* left|I32 optype|OP* right
1524Ap |OP* |newCONDOP |I32 flags|OP* expr|OP* trueop|OP* falseop
beab0874 1525Apd |CV* |newCONSTSUB |HV* stash|char* name|SV* sv
954c1994
GS
1526Ap |void |newFORM |I32 floor|OP* o|OP* block
1527Ap |OP* |newFOROP |I32 flags|char* label|line_t forline \
cea2e8a9 1528 |OP* sclr|OP* expr|OP*block|OP*cont
954c1994
GS
1529Ap |OP* |newLOGOP |I32 optype|I32 flags|OP* left|OP* right
1530Ap |OP* |newLOOPEX |I32 type|OP* label
1531Ap |OP* |newLOOPOP |I32 flags|I32 debuggable|OP* expr|OP* block
1532Ap |OP* |newNULLLIST
1533Ap |OP* |newOP |I32 optype|I32 flags
1534Ap |void |newPROG |OP* o
1535Ap |OP* |newRANGE |I32 flags|OP* left|OP* right
1536Ap |OP* |newSLICEOP |I32 flags|OP* subscript|OP* listop
1537Ap |OP* |newSTATEOP |I32 flags|char* label|OP* o
1538Ap |CV* |newSUB |I32 floor|OP* o|OP* proto|OP* block
1539Apd |CV* |newXS |char* name|XSUBADDR_t f|char* filename
1540Apd |AV* |newAV
1541Ap |OP* |newAVREF |OP* o
1542Ap |OP* |newBINOP |I32 type|I32 flags|OP* first|OP* last
1543Ap |OP* |newCVREF |I32 flags|OP* o
1544Ap |OP* |newGVOP |I32 type|I32 flags|GV* gv
1545Ap |GV* |newGVgen |char* pack
1546Ap |OP* |newGVREF |I32 type|OP* o
1547Ap |OP* |newHVREF |OP* o
1548Apd |HV* |newHV
1549Ap |HV* |newHVhv |HV* hv
1550Ap |IO* |newIO
1551Ap |OP* |newLISTOP |I32 type|I32 flags|OP* first|OP* last
1552Ap |OP* |newPADOP |I32 type|I32 flags|SV* sv
1553Ap |OP* |newPMOP |I32 type|I32 flags
1554Ap |OP* |newPVOP |I32 type|I32 flags|char* pv
1555Ap |SV* |newRV |SV* pref
1556Apd |SV* |newRV_noinc |SV *sv
451be7b1 1557Apd |SV* |newSV |STRLEN len
954c1994
GS
1558Ap |OP* |newSVREF |OP* o
1559Ap |OP* |newSVOP |I32 type|I32 flags|SV* sv
1560Apd |SV* |newSViv |IV i
1a3327fb 1561Apd |SV* |newSVuv |UV u
954c1994
GS
1562Apd |SV* |newSVnv |NV n
1563Apd |SV* |newSVpv |const char* s|STRLEN len
1564Apd |SV* |newSVpvn |const char* s|STRLEN len
c3654f1a 1565Apd |SV* |newSVpvn_share |const char* s|I32 len|U32 hash
954c1994
GS
1566Afpd |SV* |newSVpvf |const char* pat|...
1567Ap |SV* |vnewSVpvf |const char* pat|va_list* args
1568Apd |SV* |newSVrv |SV* rv|const char* classname
1569Apd |SV* |newSVsv |SV* old
1570Ap |OP* |newUNOP |I32 type|I32 flags|OP* first
1571Ap |OP* |newWHILEOP |I32 flags|I32 debuggable|LOOP* loop \
cea2e8a9 1572 |I32 whileline|OP* expr|OP* block|OP* cont
c5be433b 1573
1be9d9c6 1574Ap |PERL_SI*|new_stackinfo|I32 stitems|I32 cxitems
cea2e8a9 1575p |PerlIO*|nextargv |GV* gv
954c1994 1576Ap |char* |ninstr |const char* big|const char* bigend \
cea2e8a9
GS
1577 |const char* little|const char* lend
1578p |OP* |oopsCV |OP* o
1be9d9c6 1579Ap |void |op_free |OP* arg
cea2e8a9
GS
1580p |void |package |OP* o
1581p |PADOFFSET|pad_alloc |I32 optype|U32 tmptype
1582p |PADOFFSET|pad_allocmy |char* name
1583p |PADOFFSET|pad_findmy |char* name
1584p |OP* |oopsAV |OP* o
1585p |OP* |oopsHV |OP* o
1586p |void |pad_leavemy |I32 fill
1be9d9c6 1587Ap |SV* |pad_sv |PADOFFSET po
cea2e8a9
GS
1588p |void |pad_free |PADOFFSET po
1589p |void |pad_reset
1590p |void |pad_swipe |PADOFFSET po
1591p |void |peep |OP* o
ae154d6d 1592dopM |PerlIO*|start_glob |SV* pattern|IO *io
4d1ff10f 1593#if defined(USE_5005THREADS)
954c1994 1594Ap |struct perl_thread* |new_struct_thread|struct perl_thread *t
c5be433b 1595#endif
954c1994
GS
1596Ap |void |call_atexit |ATEXIT_t fn|void *ptr
1597Apd |I32 |call_argv |const char* sub_name|I32 flags|char** argv
1598Apd |I32 |call_method |const char* methname|I32 flags
1599Apd |I32 |call_pv |const char* sub_name|I32 flags
1600Apd |I32 |call_sv |SV* sv|I32 flags
ce08f86c 1601p |void |despatch_signals
954c1994
GS
1602Apd |SV* |eval_pv |const char* p|I32 croak_on_error
1603Apd |I32 |eval_sv |SV* sv|I32 flags
1604Apd |SV* |get_sv |const char* name|I32 create
1605Apd |AV* |get_av |const char* name|I32 create
1606Apd |HV* |get_hv |const char* name|I32 create
1607Apd |CV* |get_cv |const char* name|I32 create
1be9d9c6
GS
1608Ap |int |init_i18nl10n |int printwarn
1609Ap |int |init_i18nl14n |int printwarn
ff4fed7c
VK
1610Ap |void |new_collate |char* newcoll
1611Ap |void |new_ctype |char* newctype
1612Ap |void |new_numeric |char* newcoll
954c1994
GS
1613Ap |void |set_numeric_local
1614Ap |void |set_numeric_radix
1615Ap |void |set_numeric_standard
1616Apd |void |require_pv |const char* pv
d8a83dd3 1617p |void |pidgone |Pid_t pid|int status
1be9d9c6 1618Ap |void |pmflag |U16* pmfl|int ch
cea2e8a9
GS
1619p |OP* |pmruntime |OP* pm|OP* expr|OP* repl
1620p |OP* |pmtrans |OP* o|OP* expr|OP* repl
1621p |OP* |pop_return
954c1994 1622Ap |void |pop_scope
cea2e8a9
GS
1623p |OP* |prepend_elem |I32 optype|OP* head|OP* tail
1624p |void |push_return |OP* o
954c1994 1625Ap |void |push_scope
cea2e8a9
GS
1626p |OP* |ref |OP* o|I32 type
1627p |OP* |refkids |OP* o|I32 type
954c1994 1628Ap |void |regdump |regexp* r
7ea3cd40 1629Ap |SV* |regclass_swash |struct regnode *n|bool doinit|SV **initsvp
a86f0dc9 1630Ap |I32 |pregexec |regexp* prog|char* stringarg \
cea2e8a9
GS
1631 |char* strend|char* strbeg|I32 minend \
1632 |SV* screamer|U32 nosave
1be9d9c6
GS
1633Ap |void |pregfree |struct regexp* r
1634Ap |regexp*|pregcomp |char* exp|char* xend|PMOP* pm
1635Ap |char* |re_intuit_start|regexp* prog|SV* sv|char* strpos \
cad2e5aa
JH
1636 |char* strend|U32 flags \
1637 |struct re_scream_pos_data_s *data
1be9d9c6
GS
1638Ap |SV* |re_intuit_string|regexp* prog
1639Ap |I32 |regexec_flags |regexp* prog|char* stringarg \
cea2e8a9
GS
1640 |char* strend|char* strbeg|I32 minend \
1641 |SV* screamer|void* data|U32 flags
1be9d9c6 1642Ap |regnode*|regnext |regnode* p
cea2e8a9 1643p |void |regprop |SV* sv|regnode* o
1be9d9c6 1644Ap |void |repeatcpy |char* to|const char* from|I32 len|I32 count
954c1994 1645Ap |char* |rninstr |const char* big|const char* bigend \
cea2e8a9 1646 |const char* little|const char* lend
412d7f2a 1647Ap |Sighandler_t|rsignal |int i|Sighandler_t t
cea2e8a9
GS
1648p |int |rsignal_restore|int i|Sigsave_t* t
1649p |int |rsignal_save |int i|Sighandler_t t1|Sigsave_t* t2
76d48558 1650Ap |Sighandler_t|rsignal_state|int i
cea2e8a9
GS
1651p |void |rxres_free |void** rsp
1652p |void |rxres_restore |void** rsp|REGEXP* prx
1653p |void |rxres_save |void** rsp|REGEXP* prx
1654#if !defined(HAS_RENAME)
1655p |I32 |same_dirent |char* a|char* b
1656#endif
954c1994
GS
1657Apd |char* |savepv |const char* sv
1658Apd |char* |savepvn |const char* sv|I32 len
1659Ap |void |savestack_grow
1660Ap |void |save_aelem |AV* av|I32 idx|SV **sptr
1661Ap |I32 |save_alloc |I32 size|I32 pad
1662Ap |void |save_aptr |AV** aptr
1663Ap |AV* |save_ary |GV* gv
1664Ap |void |save_clearsv |SV** svp
1665Ap |void |save_delete |HV* hv|char* key|I32 klen
1666Ap |void |save_destructor|DESTRUCTORFUNC_NOCONTEXT_t f|void* p
1667Ap |void |save_destructor_x|DESTRUCTORFUNC_t f|void* p
1668Ap |void |save_freesv |SV* sv
cea2e8a9 1669p |void |save_freeop |OP* o
954c1994
GS
1670Ap |void |save_freepv |char* pv
1671Ap |void |save_generic_svref|SV** sptr
f4dd75d9 1672Ap |void |save_generic_pvref|char** str
954c1994
GS
1673Ap |void |save_gp |GV* gv|I32 empty
1674Ap |HV* |save_hash |GV* gv
1675Ap |void |save_helem |HV* hv|SV *key|SV **sptr
1676Ap |void |save_hints
1677Ap |void |save_hptr |HV** hptr
1678Ap |void |save_I16 |I16* intp
1679Ap |void |save_I32 |I32* intp
1680Ap |void |save_I8 |I8* bytep
1681Ap |void |save_int |int* intp
1682Ap |void |save_item |SV* item
1683Ap |void |save_iv |IV* iv
1684Ap |void |save_list |SV** sarg|I32 maxsarg
1685Ap |void |save_long |long* longp
26d9b02f 1686Ap |void |save_mortalizesv|SV* sv
954c1994 1687Ap |void |save_nogv |GV* gv
cea2e8a9 1688p |void |save_op
954c1994
GS
1689Ap |SV* |save_scalar |GV* gv
1690Ap |void |save_pptr |char** pptr
1691Ap |void |save_vptr |void* pptr
1692Ap |void |save_re_context
c3564e5c 1693Ap |void |save_padsv |PADOFFSET off
954c1994
GS
1694Ap |void |save_sptr |SV** sptr
1695Ap |SV* |save_svref |SV** sptr
1696Ap |SV** |save_threadsv |PADOFFSET i
cea2e8a9
GS
1697p |OP* |sawparens |OP* o
1698p |OP* |scalar |OP* o
1699p |OP* |scalarkids |OP* o
1700p |OP* |scalarseq |OP* o
1701p |OP* |scalarvoid |OP* o
53305cf1
NC
1702Apd |NV |scan_bin |char* start|STRLEN len|STRLEN* retlen
1703Apd |NV |scan_hex |char* start|STRLEN len|STRLEN* retlen
b73d6f50 1704Ap |char* |scan_num |char* s|YYSTYPE *lvalp
53305cf1 1705Apd |NV |scan_oct |char* start|STRLEN len|STRLEN* retlen
cea2e8a9 1706p |OP* |scope |OP* o
1be9d9c6 1707Ap |char* |screaminstr |SV* bigsv|SV* littlesv|I32 start_shift \
cea2e8a9
GS
1708 |I32 end_shift|I32 *state|I32 last
1709#if !defined(VMS)
1710p |I32 |setenv_getix |char* nam
1711#endif
1712p |void |setdefout |GV* gv
1be9d9c6 1713Ap |char* |sharepvn |const char* sv|I32 len|U32 hash
cea2e8a9
GS
1714p |HEK* |share_hek |const char* sv|I32 len|U32 hash
1715np |Signal_t |sighandler |int sig
954c1994
GS
1716Ap |SV** |stack_grow |SV** sp|SV**p|int n
1717Ap |I32 |start_subparse |I32 is_format|U32 flags
cea2e8a9 1718p |void |sub_crush_depth|CV* cv
645c22ef
DM
1719Apd |bool |sv_2bool |SV* sv
1720Apd |CV* |sv_2cv |SV* sv|HV** st|GV** gvp|I32 lref
1721Apd |IO* |sv_2io |SV* sv
1722Apd |IV |sv_2iv |SV* sv
954c1994 1723Apd |SV* |sv_2mortal |SV* sv
645c22ef 1724Apd |NV |sv_2nv |SV* sv
af3c7592 1725Am |char* |sv_2pv |SV* sv|STRLEN* lp
451be7b1
DM
1726Apd |char* |sv_2pvutf8 |SV* sv|STRLEN* lp
1727Apd |char* |sv_2pvbyte |SV* sv|STRLEN* lp
5e26c890 1728Ap |char* |sv_pvn_nomg |SV* sv|STRLEN* lp
645c22ef
DM
1729Apd |UV |sv_2uv |SV* sv
1730Apd |IV |sv_iv |SV* sv
1731Apd |UV |sv_uv |SV* sv
1732Apd |NV |sv_nv |SV* sv
451be7b1 1733Apd |char* |sv_pvn |SV *sv|STRLEN *len
645c22ef
DM
1734Apd |char* |sv_pvutf8n |SV *sv|STRLEN *len
1735Apd |char* |sv_pvbyten |SV *sv|STRLEN *len
c461cf8f 1736Apd |I32 |sv_true |SV *sv
645c22ef
DM
1737pd |void |sv_add_arena |char* ptr|U32 size|U32 flags
1738Apd |int |sv_backoff |SV* sv
954c1994
GS
1739Apd |SV* |sv_bless |SV* sv|HV* stash
1740Afpd |void |sv_catpvf |SV* sv|const char* pat|...
1741Ap |void |sv_vcatpvf |SV* sv|const char* pat|va_list* args
1742Apd |void |sv_catpv |SV* sv|const char* ptr
af3c7592
NIS
1743Amd |void |sv_catpvn |SV* sv|const char* ptr|STRLEN len
1744Amd |void |sv_catsv |SV* dsv|SV* ssv
954c1994 1745Apd |void |sv_chop |SV* sv|char* ptr
645c22ef
DM
1746pd |I32 |sv_clean_all
1747pd |void |sv_clean_objs
c461cf8f 1748Apd |void |sv_clear |SV* sv
954c1994 1749Apd |I32 |sv_cmp |SV* sv1|SV* sv2
c461cf8f 1750Apd |I32 |sv_cmp_locale |SV* sv1|SV* sv2
cea2e8a9 1751#if defined(USE_LOCALE_COLLATE)
645c22ef 1752Apd |char* |sv_collxfrm |SV* sv|STRLEN* nxp
cea2e8a9 1753#endif
1be9d9c6 1754Ap |OP* |sv_compile_2op |SV* sv|OP** startp|char* code|AV** avp
89423764 1755Apd |int |getcwd_sv |SV* sv
954c1994
GS
1756Apd |void |sv_dec |SV* sv
1757Ap |void |sv_dump |SV* sv
1758Apd |bool |sv_derived_from|SV* sv|const char* name
1759Apd |I32 |sv_eq |SV* sv1|SV* sv2
c461cf8f 1760Apd |void |sv_free |SV* sv
645c22ef 1761pd |void |sv_free_arenas
c461cf8f 1762Apd |char* |sv_gets |SV* sv|PerlIO* fp|I32 append
954c1994
GS
1763Apd |char* |sv_grow |SV* sv|STRLEN newlen
1764Apd |void |sv_inc |SV* sv
1765Apd |void |sv_insert |SV* bigsv|STRLEN offset|STRLEN len \
cea2e8a9 1766 |char* little|STRLEN littlelen
954c1994
GS
1767Apd |int |sv_isa |SV* sv|const char* name
1768Apd |int |sv_isobject |SV* sv
1769Apd |STRLEN |sv_len |SV* sv
c461cf8f 1770Apd |STRLEN |sv_len_utf8 |SV* sv
954c1994 1771Apd |void |sv_magic |SV* sv|SV* obj|int how|const char* name \
cea2e8a9 1772 |I32 namlen
954c1994
GS
1773Apd |SV* |sv_mortalcopy |SV* oldsv
1774Apd |SV* |sv_newmortal
645c22ef 1775Apd |SV* |sv_newref |SV* sv
954c1994 1776Ap |char* |sv_peek |SV* sv
645c22ef
DM
1777Apd |void |sv_pos_u2b |SV* sv|I32* offsetp|I32* lenp
1778Apd |void |sv_pos_b2u |SV* sv|I32* offsetp
af3c7592 1779Amd |char* |sv_pvn_force |SV* sv|STRLEN* lp
c461cf8f 1780Apd |char* |sv_pvutf8n_force|SV* sv|STRLEN* lp
645c22ef 1781Apd |char* |sv_pvbyten_force|SV* sv|STRLEN* lp
c461cf8f
JH
1782Apd |char* |sv_reftype |SV* sv|int ob
1783Apd |void |sv_replace |SV* sv|SV* nsv
645c22ef 1784Apd |void |sv_report_used
451be7b1 1785Apd |void |sv_reset |char* s|HV* stash
954c1994
GS
1786Afpd |void |sv_setpvf |SV* sv|const char* pat|...
1787Ap |void |sv_vsetpvf |SV* sv|const char* pat|va_list* args
1788Apd |void |sv_setiv |SV* sv|IV num
1789Apd |void |sv_setpviv |SV* sv|IV num
1790Apd |void |sv_setuv |SV* sv|UV num
1791Apd |void |sv_setnv |SV* sv|NV num
1792Apd |SV* |sv_setref_iv |SV* rv|const char* classname|IV iv
e1c57cef 1793Apd |SV* |sv_setref_uv |SV* rv|const char* classname|UV uv
954c1994
GS
1794Apd |SV* |sv_setref_nv |SV* rv|const char* classname|NV nv
1795Apd |SV* |sv_setref_pv |SV* rv|const char* classname|void* pv
1796Apd |SV* |sv_setref_pvn |SV* rv|const char* classname|char* pv \
cea2e8a9 1797 |STRLEN n
954c1994
GS
1798Apd |void |sv_setpv |SV* sv|const char* ptr
1799Apd |void |sv_setpvn |SV* sv|const char* ptr|STRLEN len
af3c7592 1800Amd |void |sv_setsv |SV* dsv|SV* ssv
645c22ef 1801Apd |void |sv_taint |SV* sv
451be7b1 1802Apd |bool |sv_tainted |SV* sv
c461cf8f 1803Apd |int |sv_unmagic |SV* sv|int type
954c1994 1804Apd |void |sv_unref |SV* sv
840a7b70 1805Apd |void |sv_unref_flags |SV* sv|U32 flags
451be7b1 1806Apd |void |sv_untaint |SV* sv
954c1994
GS
1807Apd |bool |sv_upgrade |SV* sv|U32 mt
1808Apd |void |sv_usepvn |SV* sv|char* ptr|STRLEN len
1809Apd |void |sv_vcatpvfn |SV* sv|const char* pat|STRLEN patlen \
cea2e8a9 1810 |va_list* args|SV** svargs|I32 svmax \
5bc28da9 1811 |bool *maybe_tainted
954c1994 1812Apd |void |sv_vsetpvfn |SV* sv|const char* pat|STRLEN patlen \
cea2e8a9 1813 |va_list* args|SV** svargs|I32 svmax \
5bc28da9 1814 |bool *maybe_tainted
1571675a 1815Ap |NV |str_to_version |SV *sv
1be9d9c6 1816Ap |SV* |swash_init |char* pkg|char* name|SV* listsv \
cea2e8a9 1817 |I32 minbits|I32 none
3568d838 1818Ap |UV |swash_fetch |SV *sv|U8 *ptr|bool do_utf8
954c1994
GS
1819Ap |void |taint_env
1820Ap |void |taint_proper |const char* f|const char* s
a2a2844f
JH
1821Ap |UV |to_utf8_lower |U8 *p|U8* ustrp|STRLEN *lenp
1822Ap |UV |to_utf8_upper |U8 *p|U8* ustrp|STRLEN *lenp
1823Ap |UV |to_utf8_title |U8 *p|U8* ustrp|STRLEN *lenp
cea2e8a9 1824#if defined(UNLINK_ALL_VERSIONS)
954c1994 1825Ap |I32 |unlnk |char* f
cea2e8a9 1826#endif
4d1ff10f 1827#if defined(USE_5005THREADS)
1be9d9c6 1828Ap |void |unlock_condpair|void* svv
cea2e8a9 1829#endif
1be9d9c6 1830Ap |void |unsharepvn |const char* sv|I32 len|U32 hash
cea2e8a9
GS
1831p |void |unshare_hek |HEK* hek
1832p |void |utilize |int aver|I32 floor|OP* version|OP* id|OP* arg
dea0fc0b
JH
1833Ap |U8* |utf16_to_utf8 |U8* p|U8 *d|I32 bytelen|I32 *newlen
1834Ap |U8* |utf16_to_utf8_reversed|U8* p|U8 *d|I32 bytelen|I32 *newlen
eebe1485
SC
1835Adp |STRLEN |utf8_length |U8* s|U8 *e
1836Apd |IV |utf8_distance |U8 *a|U8 *b
1837Apd |U8* |utf8_hop |U8 *s|I32 off
1838ApMd |U8* |utf8_to_bytes |U8 *s|STRLEN *len
f9a63242 1839ApMd |U8* |bytes_from_utf8|U8 *s|STRLEN *len|bool *is_utf8
eebe1485 1840ApMd |U8* |bytes_to_utf8 |U8 *s|STRLEN *len
9041c2e3
NIS
1841Apd |UV |utf8_to_uvchr |U8 *s|STRLEN* retlen
1842Apd |UV |utf8_to_uvuni |U8 *s|STRLEN* retlen
1843Adp |UV |utf8n_to_uvchr |U8 *s|STRLEN curlen|STRLEN* retlen|U32 flags
1844Adp |UV |utf8n_to_uvuni |U8 *s|STRLEN curlen|STRLEN* retlen|U32 flags
1845Apd |U8* |uvchr_to_utf8 |U8 *d|UV uv
1846Apd |U8* |uvuni_to_utf8 |U8 *d|UV uv
cea2e8a9
GS
1847p |void |vivify_defelem |SV* sv
1848p |void |vivify_ref |SV* sv|U32 to_what
d8a83dd3 1849p |I32 |wait4pid |Pid_t pid|int* statusp|int flags
bc37a18f 1850p |void |report_evil_fh |GV *gv|IO *io|I32 op
645c22ef 1851pd |void |report_uninit
954c1994
GS
1852Afpd |void |warn |const char* pat|...
1853Ap |void |vwarn |const char* pat|va_list* args
1854Afp |void |warner |U32 err|const char* pat|...
1855Ap |void |vwarner |U32 err|const char* pat|va_list* args
cea2e8a9 1856p |void |watch |char** addr
412d7f2a 1857Ap |I32 |whichsig |char* sig
cea2e8a9 1858p |int |yyerror |char* s
dba4d153
JH
1859#ifdef USE_PURE_BISON
1860p |int |yylex_r |YYSTYPE *lvalp|int *lcharp
cea2e8a9 1861#endif
48cf72c8 1862p |int |yylex
cea2e8a9
GS
1863p |int |yyparse
1864p |int |yywarn |char* s
1865#if defined(MYMALLOC)
954c1994 1866Ap |void |dump_mstats |char* s
827e134a 1867Ap |int |get_mstats |perl_mstats_t *buf|int buflen|int level
cea2e8a9 1868#endif
954c1994
GS
1869Anp |Malloc_t|safesysmalloc |MEM_SIZE nbytes
1870Anp |Malloc_t|safesyscalloc |MEM_SIZE elements|MEM_SIZE size
1871Anp |Malloc_t|safesysrealloc|Malloc_t where|MEM_SIZE nbytes
1872Anp |Free_t |safesysfree |Malloc_t where
cea2e8a9 1873#if defined(LEAKTEST)
954c1994
GS
1874Anp |Malloc_t|safexmalloc |I32 x|MEM_SIZE size
1875Anp |Malloc_t|safexcalloc |I32 x|MEM_SIZE elements|MEM_SIZE size
1876Anp |Malloc_t|safexrealloc |Malloc_t where|MEM_SIZE size
1877Anp |void |safexfree |Malloc_t where
cea2e8a9
GS
1878#endif
1879#if defined(PERL_GLOBAL_STRUCT)
954c1994 1880Ap |struct perl_vars *|GetVars
cea2e8a9 1881#endif
954c1994
GS
1882Ap |int |runops_standard
1883Ap |int |runops_debug
4d1ff10f 1884#if defined(USE_5005THREADS)
4755096e
GS
1885Ap |SV* |sv_lock |SV *sv
1886#endif
954c1994
GS
1887Afpd |void |sv_catpvf_mg |SV *sv|const char* pat|...
1888Ap |void |sv_vcatpvf_mg |SV* sv|const char* pat|va_list* args
1889Apd |void |sv_catpv_mg |SV *sv|const char *ptr
1890Apd |void |sv_catpvn_mg |SV *sv|const char *ptr|STRLEN len
1891Apd |void |sv_catsv_mg |SV *dstr|SV *sstr
1892Afpd |void |sv_setpvf_mg |SV *sv|const char* pat|...
1893Ap |void |sv_vsetpvf_mg |SV* sv|const char* pat|va_list* args
1894Apd |void |sv_setiv_mg |SV *sv|IV i
1895Apd |void |sv_setpviv_mg |SV *sv|IV iv
1896Apd |void |sv_setuv_mg |SV *sv|UV u
1897Apd |void |sv_setnv_mg |SV *sv|NV num
1898Apd |void |sv_setpv_mg |SV *sv|const char *ptr
1899Apd |void |sv_setpvn_mg |SV *sv|const char *ptr|STRLEN len
1900Apd |void |sv_setsv_mg |SV *dstr|SV *sstr
1901Apd |void |sv_usepvn_mg |SV *sv|char *ptr|STRLEN len
1902Ap |MGVTBL*|get_vtbl |int vtbl_id
e6abe6d8 1903p |char* |pv_display |SV *dsv|char *pv|STRLEN cur|STRLEN len \
cea2e8a9 1904 |STRLEN pvlim
e6abe6d8 1905p |char* |sv_uni_display |SV *dsv|SV *ssv|STRLEN pvlim
954c1994
GS
1906Afp |void |dump_indent |I32 level|PerlIO *file|const char* pat|...
1907Ap |void |dump_vindent |I32 level|PerlIO *file|const char* pat \
c5be433b 1908 |va_list *args
954c1994
GS
1909Ap |void |do_gv_dump |I32 level|PerlIO *file|char *name|GV *sv
1910Ap |void |do_gvgv_dump |I32 level|PerlIO *file|char *name|GV *sv
1911Ap |void |do_hv_dump |I32 level|PerlIO *file|char *name|HV *sv
1912Ap |void |do_magic_dump |I32 level|PerlIO *file|MAGIC *mg|I32 nest \
cea2e8a9 1913 |I32 maxnest|bool dumpops|STRLEN pvlim
954c1994
GS
1914Ap |void |do_op_dump |I32 level|PerlIO *file|OP *o
1915Ap |void |do_pmop_dump |I32 level|PerlIO *file|PMOP *pm
1916Ap |void |do_sv_dump |I32 level|PerlIO *file|SV *sv|I32 nest \
cea2e8a9 1917 |I32 maxnest|bool dumpops|STRLEN pvlim
954c1994 1918Ap |void |magic_dump |MAGIC *mg
14dd3ad8 1919#if defined(PERL_FLEXIBLE_EXCEPTIONS)
954c1994 1920Ap |void* |default_protect|volatile JMPENV *je|int *excpt \
db36c5a1 1921 |protect_body_t body|...
954c1994 1922Ap |void* |vdefault_protect|volatile JMPENV *je|int *excpt \
db36c5a1 1923 |protect_body_t body|va_list *args
14dd3ad8 1924#endif
954c1994 1925Ap |void |reginitcolors
645c22ef
DM
1926Apd |char* |sv_2pv_nolen |SV* sv
1927Apd |char* |sv_2pvutf8_nolen|SV* sv
1928Apd |char* |sv_2pvbyte_nolen|SV* sv
451be7b1 1929Apd |char* |sv_pv |SV *sv
645c22ef
DM
1930Apd |char* |sv_pvutf8 |SV *sv
1931Apd |char* |sv_pvbyte |SV *sv
af3c7592 1932Amd |STRLEN |sv_utf8_upgrade|SV *sv
4411f3b6
NIS
1933ApdM |bool |sv_utf8_downgrade|SV *sv|bool fail_ok
1934Apd |void |sv_utf8_encode |SV *sv
1935ApdM |bool |sv_utf8_decode |SV *sv
645c22ef
DM
1936Apd |void |sv_force_normal|SV *sv
1937Apd |void |sv_force_normal_flags|SV *sv|U32 flags
954c1994 1938Ap |void |tmps_grow |I32 n
c461cf8f 1939Apd |SV* |sv_rvweaken |SV *sv
cea2e8a9 1940p |int |magic_killbackrefs|SV *sv|MAGIC *mg
954c1994
GS
1941Ap |OP* |newANONATTRSUB |I32 floor|OP *proto|OP *attrs|OP *block
1942Ap |CV* |newATTRSUB |I32 floor|OP *o|OP *proto|OP *attrs|OP *block
1943Ap |void |newMYSUB |I32 floor|OP *o|OP *proto|OP *attrs|OP *block
09bef843
SB
1944p |OP * |my_attrs |OP *o|OP *attrs
1945p |void |boot_core_xsutils
1d7c1841 1946#if defined(USE_ITHREADS)
8cf8f3d1
NIS
1947Ap |PERL_CONTEXT*|cx_dup |PERL_CONTEXT* cx|I32 ix|I32 max|CLONE_PARAMS* param
1948Ap |PERL_SI*|si_dup |PERL_SI* si|CLONE_PARAMS* param
1949Ap |ANY* |ss_dup |PerlInterpreter* proto_perl|CLONE_PARAMS* param
954c1994 1950Ap |void* |any_dup |void* v|PerlInterpreter* proto_perl
8cf8f3d1
NIS
1951Ap |HE* |he_dup |HE* e|bool shared|CLONE_PARAMS* param
1952Ap |REGEXP*|re_dup |REGEXP* r|CLONE_PARAMS* param
1953Ap |PerlIO*|fp_dup |PerlIO* fp|char type|CLONE_PARAMS* param
954c1994 1954Ap |DIR* |dirp_dup |DIR* dp
8cf8f3d1
NIS
1955Ap |GP* |gp_dup |GP* gp|CLONE_PARAMS* param
1956Ap |MAGIC* |mg_dup |MAGIC* mg|CLONE_PARAMS* param
1957Ap |SV* |sv_dup |SV* sstr|CLONE_PARAMS* param
1d7c1841 1958#if defined(HAVE_INTERP_INTERN)
954c1994 1959Ap |void |sys_intern_dup |struct interp_intern* src \
1d7c1841
GS
1960 |struct interp_intern* dst
1961#endif
954c1994
GS
1962Ap |PTR_TBL_t*|ptr_table_new
1963Ap |void* |ptr_table_fetch|PTR_TBL_t *tbl|void *sv
1964Ap |void |ptr_table_store|PTR_TBL_t *tbl|void *oldsv|void *newsv
1965Ap |void |ptr_table_split|PTR_TBL_t *tbl
a0739874
DM
1966Ap |void |ptr_table_clear|PTR_TBL_t *tbl
1967Ap |void |ptr_table_free|PTR_TBL_t *tbl
1d7c1841 1968#endif
3dbbd0f5
GS
1969#if defined(HAVE_INTERP_INTERN)
1970Ap |void |sys_intern_clear
1971Ap |void |sys_intern_init
1972#endif
19e8ce8e 1973
53e06cf0
SC
1974Ap |char * |custom_op_name|OP* op
1975Ap |char * |custom_op_desc|OP* op
19e8ce8e 1976
cea2e8a9 1977
1d7c1841 1978END_EXTERN_C
1d7c1841 1979
0cb96387 1980#if defined(PERL_IN_AV_C) || defined(PERL_DECL_PROT)
cea2e8a9 1981s |I32 |avhv_index_sv |SV* sv
10c8fecd 1982s |I32 |avhv_index |AV* av|SV* sv|U32 hash
cea2e8a9
GS
1983#endif
1984
0cb96387 1985#if defined(PERL_IN_DOOP_C) || defined(PERL_DECL_PROT)
036b4402
GS
1986s |I32 |do_trans_simple |SV *sv
1987s |I32 |do_trans_count |SV *sv
1988s |I32 |do_trans_complex |SV *sv
1989s |I32 |do_trans_simple_utf8 |SV *sv
1990s |I32 |do_trans_count_utf8 |SV *sv
1991s |I32 |do_trans_complex_utf8 |SV *sv
cea2e8a9
GS
1992#endif
1993
0cb96387 1994#if defined(PERL_IN_GV_C) || defined(PERL_DECL_PROT)
cea2e8a9 1995s |void |gv_init_sv |GV *gv|I32 sv_type
d2c93421 1996s |void |require_errno |GV *gv
cea2e8a9
GS
1997#endif
1998
0cb96387 1999#if defined(PERL_IN_HV_C) || defined(PERL_DECL_PROT)
cea2e8a9
GS
2000s |void |hsplit |HV *hv
2001s |void |hfreeentries |HV *hv
2002s |void |more_he
2003s |HE* |new_he
2004s |void |del_he |HE *p
2005s |HEK* |save_hek |const char *str|I32 len|U32 hash
2006s |void |hv_magic_check |HV *hv|bool *needs_copy|bool *needs_store
2007#endif
2008
0cb96387 2009#if defined(PERL_IN_MG_C) || defined(PERL_DECL_PROT)
8fb26106 2010s |void |save_magic |I32 mgs_ix|SV *sv
cea2e8a9
GS
2011s |int |magic_methpack |SV *sv|MAGIC *mg|char *meth
2012s |int |magic_methcall |SV *sv|MAGIC *mg|char *meth|I32 f \
2013 |int n|SV *val
cea2e8a9
GS
2014#endif
2015
0cb96387 2016#if defined(PERL_IN_OP_C) || defined(PERL_DECL_PROT)
cea2e8a9
GS
2017s |I32 |list_assignment|OP *o
2018s |void |bad_type |I32 n|char *t|char *name|OP *kid
3eb57f73 2019s |void |cop_free |COP *cop
cea2e8a9
GS
2020s |OP* |modkids |OP *o|I32 type
2021s |void |no_bareword_allowed|OP *o
2022s |OP* |no_fh_allowed |OP *o
2023s |OP* |scalarboolean |OP *o
2024s |OP* |too_few_arguments|OP *o|char* name
2025s |OP* |too_many_arguments|OP *o|char* name
94f23f41 2026s |PADOFFSET|pad_addlex |SV* name
cea2e8a9
GS
2027s |PADOFFSET|pad_findlex |char* name|PADOFFSET newoff|U32 seq \
2028 |CV* startcv|I32 cx_ix|I32 saweval|U32 flags
2029s |OP* |newDEFSVOP
2030s |OP* |new_logop |I32 type|I32 flags|OP **firstp|OP **otherp
2031s |void |simplify_sort |OP *o
2032s |bool |is_handle_constructor |OP *o|I32 argnum
2033s |char* |gv_ename |GV *gv
9cbac4c7 2034# if defined(DEBUG_CLOSURES)
1d7c1841 2035s |void |cv_dump |CV *cv
9cbac4c7 2036# endif
cea2e8a9
GS
2037s |CV* |cv_clone2 |CV *proto|CV *outside
2038s |bool |scalar_mod_type|OP *o|I32 type
09bef843
SB
2039s |OP * |my_kid |OP *o|OP *attrs
2040s |OP * |dup_attrlist |OP *o
2041s |void |apply_attrs |HV *stash|SV *target|OP *attrs
cea2e8a9
GS
2042# if defined(PL_OP_SLAB_ALLOC)
2043s |void* |Slab_Alloc |int m|size_t sz
2044# endif
2045#endif
2046
0cb96387 2047#if defined(PERL_IN_PERL_C) || defined(PERL_DECL_PROT)
cea2e8a9
GS
2048s |void |find_beginning
2049s |void |forbid_setid |char *
9c8a64f0 2050s |void |incpush |char *|int|int
cea2e8a9
GS
2051s |void |init_interp
2052s |void |init_ids
cea2e8a9
GS
2053s |void |init_lexer
2054s |void |init_main_stash
2055s |void |init_perllib
2056s |void |init_postdump_symbols|int|char **|char **
2057s |void |init_predump_symbols
2058rs |void |my_exit_jump
2059s |void |nuke_stacks
2060s |void |open_script |char *|bool|SV *|int *fd
2061s |void |usage |char *
2062s |void |validate_suid |char *|char*|int
cea2e8a9
GS
2063# if defined(IAMSUID)
2064s |int |fd_on_nosuid_fs|int fd
2065# endif
14dd3ad8
GS
2066s |void* |parse_body |char **env|XSINIT_t xsinit
2067s |void* |run_body |I32 oldscope
2068s |void |call_body |OP *myop|int is_eval
2069s |void* |call_list_body |CV *cv
2070#if defined(PERL_FLEXIBLE_EXCEPTIONS)
2071s |void* |vparse_body |va_list args
2072s |void* |vrun_body |va_list args
2073s |void* |vcall_body |va_list args
2074s |void* |vcall_list_body|va_list args
2075#endif
4d1ff10f 2076# if defined(USE_5005THREADS)
cea2e8a9
GS
2077s |struct perl_thread * |init_main_thread
2078# endif
2079#endif
2080
0cb96387 2081#if defined(PERL_IN_PP_C) || defined(PERL_DECL_PROT)
cea2e8a9
GS
2082s |SV* |refto |SV* sv
2083s |U32 |seed
a6ec74c1
JH
2084#endif
2085
2086#if defined(PERL_IN_PP_PACK_C) || defined(PERL_DECL_PROT)
2087s |void |doencodes |SV* sv|char* s|I32 len
cea2e8a9
GS
2088s |SV* |mul128 |SV *sv|U8 m
2089s |SV* |is_an_int |char *s|STRLEN l
2090s |int |div128 |SV *pnum|bool *done
2091#endif
2092
0cb96387 2093#if defined(PERL_IN_PP_CTL_C) || defined(PERL_DECL_PROT)
cea2e8a9 2094s |OP* |docatch |OP *o
14dd3ad8
GS
2095s |void* |docatch_body
2096#if defined(PERL_FLEXIBLE_EXCEPTIONS)
2097s |void* |vdocatch_body |va_list args
2098#endif
cea2e8a9
GS
2099s |OP* |dofindlabel |OP *o|char *label|OP **opstack|OP **oplimit
2100s |void |doparseform |SV *sv
2101s |I32 |dopoptoeval |I32 startingblock
2102s |I32 |dopoptolabel |char *label
2103s |I32 |dopoptoloop |I32 startingblock
2104s |I32 |dopoptosub |I32 startingblock
2105s |I32 |dopoptosub_at |PERL_CONTEXT* cxstk|I32 startingblock
cea2e8a9
GS
2106s |void |save_lines |AV *array|SV *sv
2107s |OP* |doeval |int gimme|OP** startop
2108s |PerlIO *|doopen_pmc |const char *name|const char *mode
cea2e8a9
GS
2109#endif
2110
0cb96387 2111#if defined(PERL_IN_PP_HOT_C) || defined(PERL_DECL_PROT)
10c8fecd
GS
2112s |int |do_maybe_phash |AV *ary|SV **lelem|SV **firstlelem \
2113 |SV **relem|SV **lastrelem
2114s |void |do_oddball |HV *hash|SV **relem|SV **firstrelem
cea2e8a9 2115s |CV* |get_db_sub |SV **svp|CV *cv
f5d5a27c 2116s |SV* |method_common |SV* meth|U32* hashp
cea2e8a9
GS
2117#endif
2118
0cb96387 2119#if defined(PERL_IN_PP_SYS_C) || defined(PERL_DECL_PROT)
cea2e8a9 2120s |OP* |doform |CV *cv|GV *gv|OP *retop
7f4774ae 2121s |int |emulate_eaccess|const char* path|Mode_t mode
cea2e8a9
GS
2122# if !defined(HAS_MKDIR) || !defined(HAS_RMDIR)
2123s |int |dooneliner |char *cmd|char *filename
2124# endif
2125#endif
2126
0cb96387 2127#if defined(PERL_IN_REGCOMP_C) || defined(PERL_DECL_PROT)
830247a4
IZ
2128s |regnode*|reg |struct RExC_state_t*|I32|I32 *
2129s |regnode*|reganode |struct RExC_state_t*|U8|U32
2130s |regnode*|regatom |struct RExC_state_t*|I32 *
2131s |regnode*|regbranch |struct RExC_state_t*|I32 *|I32
2132s |void |reguni |struct RExC_state_t*|UV|char *|STRLEN*
2133s |regnode*|regclass |struct RExC_state_t*
cea2e8a9 2134s |I32 |regcurly |char *
830247a4
IZ
2135s |regnode*|reg_node |struct RExC_state_t*|U8
2136s |regnode*|regpiece |struct RExC_state_t*|I32 *
2137s |void |reginsert |struct RExC_state_t*|U8|regnode *
2138s |void |regoptail |struct RExC_state_t*|regnode *|regnode *
2139s |void |regtail |struct RExC_state_t*|regnode *|regnode *
cea2e8a9 2140s |char*|regwhite |char *|char *
830247a4 2141s |char*|nextchar |struct RExC_state_t*
8fa7f367 2142# ifdef DEBUGGING
cea2e8a9
GS
2143s |regnode*|dumpuntil |regnode *start|regnode *node \
2144 |regnode *last|SV* sv|I32 l
1d7c1841 2145s |void |put_byte |SV* sv|int c
8fa7f367 2146# endif
830247a4
IZ
2147s |void |scan_commit |struct RExC_state_t*|struct scan_data_t *data
2148s |void |cl_anything |struct RExC_state_t*|struct regnode_charclass_class *cl
1d7c1841 2149s |int |cl_is_anything |struct regnode_charclass_class *cl
830247a4
IZ
2150s |void |cl_init |struct RExC_state_t*|struct regnode_charclass_class *cl
2151s |void |cl_init_zero |struct RExC_state_t*|struct regnode_charclass_class *cl
1d7c1841
GS
2152s |void |cl_and |struct regnode_charclass_class *cl \
2153 |struct regnode_charclass_class *and_with
830247a4 2154s |void |cl_or |struct RExC_state_t*|struct regnode_charclass_class *cl \
1d7c1841 2155 |struct regnode_charclass_class *or_with
830247a4 2156s |I32 |study_chunk |struct RExC_state_t*|regnode **scanp|I32 *deltap \
82ba1be6
IZ
2157 |regnode *last|struct scan_data_t *data \
2158 |U32 flags
830247a4 2159s |I32 |add_data |struct RExC_state_t*|I32 n|char *s
cea2e8a9 2160rs |void|re_croak2 |const char* pat1|const char* pat2|...
830247a4
IZ
2161s |I32 |regpposixcc |struct RExC_state_t*|I32 value
2162s |void |checkposixcc |struct RExC_state_t*
cea2e8a9
GS
2163#endif
2164
0cb96387 2165#if defined(PERL_IN_REGEXEC_C) || defined(PERL_DECL_PROT)
cea2e8a9
GS
2166s |I32 |regmatch |regnode *prog
2167s |I32 |regrepeat |regnode *p|I32 max
2168s |I32 |regrepeat_hard |regnode *p|I32 max|I32 *lp
2169s |I32 |regtry |regexp *prog|char *startpos
7ea3cd40 2170s |bool |reginclass |regnode *n|U8 *p|bool do_utf8sv_is_utf8
cea2e8a9
GS
2171s |CHECKPOINT|regcppush |I32 parenfloor
2172s |char*|regcppop
2173s |char*|regcp_set_to |I32 ss
2174s |void |cache_re |regexp *prog
cea2e8a9 2175s |U8* |reghop |U8 *pos|I32 off
60aeb6fd 2176s |U8* |reghop3 |U8 *pos|I32 off|U8 *lim
cea2e8a9 2177s |U8* |reghopmaybe |U8 *pos|I32 off
60aeb6fd 2178s |U8* |reghopmaybe3 |U8 *pos|I32 off|U8 *lim
1d7c1841 2179s |char* |find_byclass |regexp * prog|regnode *c|char *s|char *strend|char *startpos|I32 norun
cea2e8a9
GS
2180#endif
2181
0cb96387 2182#if defined(PERL_IN_RUN_C) || defined(PERL_DECL_PROT)
8fa7f367 2183# ifdef DEBUGGING
53a2efa2 2184s |CV* |deb_curcv |I32 ix
cea2e8a9 2185s |void |debprof |OP *o
8fa7f367 2186# endif
cea2e8a9
GS
2187#endif
2188
0cb96387 2189#if defined(PERL_IN_SCOPE_C) || defined(PERL_DECL_PROT)
cea2e8a9
GS
2190s |SV* |save_scalar_at |SV **sptr
2191#endif
2192
5961b034 2193#if defined(USE_ITHREADS)
cd1ee231 2194Adp |void |sharedsv_init
0776ebf0
AMS
2195Adp |shared_sv* |sharedsv_new
2196Adp |shared_sv* |sharedsv_find |SV* sv
2197Adp |void |sharedsv_lock |shared_sv* ssv
2198Adp |void |sharedsv_unlock |shared_sv* ssv
2199p |void |sharedsv_unlock_scope |shared_sv* ssv
cd1ee231
JH
2200Adp |void |sharedsv_thrcnt_inc |shared_sv* ssv
2201Adp |void |sharedsv_thrcnt_dec |shared_sv* ssv
2202#endif
2203
0cb96387 2204#if defined(PERL_IN_SV_C) || defined(PERL_DECL_PROT)
cea2e8a9
GS
2205s |IV |asIV |SV* sv
2206s |UV |asUV |SV* sv
2207s |SV* |more_sv
2208s |void |more_xiv
2209s |void |more_xnv
2210s |void |more_xpv
932e9ff9
VB
2211s |void |more_xpviv
2212s |void |more_xpvnv
2213s |void |more_xpvcv
2214s |void |more_xpvav
2215s |void |more_xpvhv
2216s |void |more_xpvmg
2217s |void |more_xpvlv
2218s |void |more_xpvbm
cea2e8a9
GS
2219s |void |more_xrv
2220s |XPVIV* |new_xiv
2221s |XPVNV* |new_xnv
2222s |XPV* |new_xpv
932e9ff9
VB
2223s |XPVIV* |new_xpviv
2224s |XPVNV* |new_xpvnv
2225s |XPVCV* |new_xpvcv
2226s |XPVAV* |new_xpvav
2227s |XPVHV* |new_xpvhv
2228s |XPVMG* |new_xpvmg
2229s |XPVLV* |new_xpvlv
2230s |XPVBM* |new_xpvbm
cea2e8a9
GS
2231s |XRV* |new_xrv
2232s |void |del_xiv |XPVIV* p
2233s |void |del_xnv |XPVNV* p
2234s |void |del_xpv |XPV* p
932e9ff9
VB
2235s |void |del_xpviv |XPVIV* p
2236s |void |del_xpvnv |XPVNV* p
2237s |void |del_xpvcv |XPVCV* p
2238s |void |del_xpvav |XPVAV* p
2239s |void |del_xpvhv |XPVHV* p
2240s |void |del_xpvmg |XPVMG* p
2241s |void |del_xpvlv |XPVLV* p
2242s |void |del_xpvbm |XPVBM* p
cea2e8a9
GS
2243s |void |del_xrv |XRV* p
2244s |void |sv_unglob |SV* sv
cea2e8a9 2245s |void |not_a_number |SV *sv
5226ed68 2246s |I32 |visit |SVFUNC_t f
cea2e8a9
GS
2247s |void |sv_add_backref |SV *tsv|SV *sv
2248s |void |sv_del_backref |SV *sv
8fa7f367 2249# ifdef DEBUGGING
cea2e8a9
GS
2250s |void |del_sv |SV *p
2251# endif
28e5dec8 2252# if !defined(NV_PRESERVES_UV)
28e5dec8
JH
2253s |int |sv_2iuv_non_preserve |SV *sv|I32 numtype
2254# endif
6b1bfb71 2255s |I32 |expect_number |char** pattern
9cbac4c7
DM
2256#
2257# if defined(USE_ITHREADS)
2258s |SV* |gv_share |SV *sv
2259# endif
cea2e8a9
GS
2260#endif
2261
0cb96387 2262#if defined(PERL_IN_TOKE_C) || defined(PERL_DECL_PROT)
cea2e8a9
GS
2263s |void |check_uni
2264s |void |force_next |I32 type
e759cc13 2265s |char* |force_version |char *start|int guessing
cea2e8a9
GS
2266s |char* |force_word |char *start|int token|int check_keyword \
2267 |int allow_pack|int allow_tick
2268s |SV* |tokeq |SV *sv
8eceec63 2269s |int |pending_ident
cea2e8a9
GS
2270s |char* |scan_const |char *start
2271s |char* |scan_formline |char *s
2272s |char* |scan_heredoc |char *s
2273s |char* |scan_ident |char *s|char *send|char *dest \
2274 |STRLEN destlen|I32 ck_uni
2275s |char* |scan_inputsymbol|char *start
2276s |char* |scan_pat |char *start|I32 type
09bef843 2277s |char* |scan_str |char *start|int keep_quoted|int keep_delims
cea2e8a9
GS
2278s |char* |scan_subst |char *start
2279s |char* |scan_trans |char *start
2280s |char* |scan_word |char *s|char *dest|STRLEN destlen \
2281 |int allow_package|STRLEN *slp
2282s |char* |skipspace |char *s
78ae23f5 2283s |char* |swallow_bom |U8 *s
cea2e8a9
GS
2284s |void |checkcomma |char *s|char *name|char *what
2285s |void |force_ident |char *s|int kind
2286s |void |incline |char *s
2287s |int |intuit_method |char *s|GV *gv
2288s |int |intuit_more |char *s
1d7c1841 2289s |I32 |lop |I32 f|int x|char *s
cea2e8a9
GS
2290s |void |missingterm |char *s
2291s |void |no_op |char *what|char *s
2292s |void |set_csh
2293s |I32 |sublex_done
2294s |I32 |sublex_push
2295s |I32 |sublex_start
2296s |char * |filter_gets |SV *sv|PerlIO *fp|STRLEN append
def3634b 2297s |HV * |find_in_my_stash|char *pkgname|I32 len
1d7c1841
GS
2298s |SV* |new_constant |char *s|STRLEN len|const char *key|SV *sv \
2299 |SV *pv|const char *type
8fa7f367 2300# if defined(DEBUGGING)
998054bd 2301s |void |tokereport |char *thing|char *s|I32 rv
8fa7f367 2302# endif
cea2e8a9
GS
2303s |int |ao |int toketype
2304s |void |depcom
2305s |char* |incl_perldb
155aba94 2306#if 0
cea2e8a9
GS
2307s |I32 |utf16_textfilter|int idx|SV *sv|int maxlen
2308s |I32 |utf16rev_textfilter|int idx|SV *sv|int maxlen
155aba94 2309#endif
cea2e8a9
GS
2310# if defined(CRIPPLED_CC)
2311s |int |uni |I32 f|char *s
2312# endif
c39cd008
GS
2313# if defined(PERL_CR_FILTER)
2314s |I32 |cr_textfilter |int idx|SV *sv|int maxlen
cea2e8a9
GS
2315# endif
2316#endif
2317
0cb96387 2318#if defined(PERL_IN_UNIVERSAL_C) || defined(PERL_DECL_PROT)
cea2e8a9
GS
2319s |SV*|isa_lookup |HV *stash|const char *name|int len|int level
2320#endif
2321
2d31dd6a 2322#if defined(PERL_IN_LOCALE_C) || defined(PERL_DECL_PROT)
ff4fed7c 2323s |char* |stdize_locale |char* locs
2d31dd6a
NIS
2324#endif
2325
2326#if defined(PERL_IN_UTIL_C) || defined(PERL_DECL_PROT)
ae7d165c 2327s |COP* |closest_cop |COP *cop|OP *o
cea2e8a9 2328s |SV* |mess_alloc
cea2e8a9
GS
2329# if defined(LEAKTEST)
2330s |void |xstat |int
2331# endif
2332#endif
1d7c1841 2333
902f5b58
JH
2334START_EXTERN_C
2335
8d6d96c1
HS
2336Apd |void |sv_setsv_flags |SV* dsv|SV* ssv|I32 flags
2337Apd |void |sv_catpvn_flags|SV* sv|const char* ptr|STRLEN len|I32 flags
2338Apd |void |sv_catsv_flags |SV* dsv|SV* ssv|I32 flags
2339Apd |STRLEN |sv_utf8_upgrade_flags|SV *sv|I32 flags
2340Apd |char* |sv_pvn_force_flags|SV* sv|STRLEN* lp|I32 flags
645c22ef 2341Apd |char* |sv_2pv_flags |SV* sv|STRLEN* lp|I32 flags
1f727ac0 2342Ap |char* |my_atof2 |const char *s|NV* value
902f5b58
JH
2343
2344END_EXTERN_C
2345