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