This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
integrate changes#6252..6256,6259..6260
[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
954c1994
GS
1378Ap |SV* |avhv_delete_ent|AV *ar|SV* keysv|I32 flags|U32 hash
1379Ap |bool |avhv_exists_ent|AV *ar|SV* keysv|U32 hash
1380Ap |SV** |avhv_fetch_ent |AV *ar|SV* keysv|I32 lval|U32 hash
10c8fecd 1381Ap |SV** |avhv_store_ent |AV *ar|SV* keysv|SV* val|U32 hash
954c1994
GS
1382Ap |HE* |avhv_iternext |AV *ar
1383Ap |SV* |avhv_iterval |AV *ar|HE* entry
1384Ap |HV* |avhv_keys |AV *ar
1385Apd |void |av_clear |AV* ar
1386Ap |SV* |av_delete |AV* ar|I32 key|I32 flags
1387Ap |bool |av_exists |AV* ar|I32 key
1388Apd |void |av_extend |AV* ar|I32 key
1389Ap |AV* |av_fake |I32 size|SV** svp
1390Apd |SV** |av_fetch |AV* ar|I32 key|I32 lval
1391Ap |void |av_fill |AV* ar|I32 fill
1392Apd |I32 |av_len |AV* ar
1393Apd |AV* |av_make |I32 size|SV** svp
1394Apd |SV* |av_pop |AV* ar
1395Apd |void |av_push |AV* ar|SV* val
1396Ap |void |av_reify |AV* ar
1397Apd |SV* |av_shift |AV* ar
1398Apd |SV** |av_store |AV* ar|I32 key|SV* val
1399Apd |void |av_undef |AV* ar
1400Apd |void |av_unshift |AV* ar|I32 num
cea2e8a9
GS
1401p |OP* |bind_match |I32 type|OP* left|OP* pat
1402p |OP* |block_end |I32 floor|OP* seq
954c1994 1403Ap |I32 |block_gimme
cea2e8a9
GS
1404p |int |block_start |int full
1405p |void |boot_core_UNIVERSAL
1be9d9c6 1406Ap |void |call_list |I32 oldscope|AV* av_list
7f4774ae 1407p |bool |cando |Mode_t mode|Uid_t effective|Stat_t* statbufp
954c1994
GS
1408Ap |U32 |cast_ulong |NV f
1409Ap |I32 |cast_i32 |NV f
1410Ap |IV |cast_iv |NV f
1411Ap |UV |cast_uv |NV f
cea2e8a9 1412#if !defined(HAS_TRUNCATE) && !defined(HAS_CHSIZE) && defined(F_FREESP)
954c1994 1413Ap |I32 |my_chsize |int fd|Off_t length
cea2e8a9
GS
1414#endif
1415#if defined(USE_THREADS)
1be9d9c6 1416Ap |MAGIC* |condpair_magic |SV *sv
cea2e8a9
GS
1417#endif
1418p |OP* |convert |I32 optype|I32 flags|OP* o
954c1994
GS
1419Afprd |void |croak |const char* pat|...
1420Apr |void |vcroak |const char* pat|va_list* args
cea2e8a9 1421#if defined(PERL_IMPLICIT_CONTEXT)
954c1994
GS
1422Afnrp |void |croak_nocontext|const char* pat|...
1423Afnp |OP* |die_nocontext |const char* pat|...
1424Afnp |void |deb_nocontext |const char* pat|...
1425Afnp |char* |form_nocontext |const char* pat|...
e4783991 1426Afnp |void |load_module_nocontext|U32 flags|SV* name|SV* ver|...
954c1994
GS
1427Afnp |SV* |mess_nocontext |const char* pat|...
1428Afnp |void |warn_nocontext |const char* pat|...
1429Afnp |void |warner_nocontext|U32 err|const char* pat|...
1430Afnp |SV* |newSVpvf_nocontext|const char* pat|...
1431Afnp |void |sv_catpvf_nocontext|SV* sv|const char* pat|...
1432Afnp |void |sv_setpvf_nocontext|SV* sv|const char* pat|...
1433Afnp |void |sv_catpvf_mg_nocontext|SV* sv|const char* pat|...
1434Afnp |void |sv_setpvf_mg_nocontext|SV* sv|const char* pat|...
1435Afnp |int |fprintf_nocontext|PerlIO* stream|const char* fmt|...
cea2e8a9
GS
1436#endif
1437p |void |cv_ckproto |CV* cv|GV* gv|char* p
1438p |CV* |cv_clone |CV* proto
d0674b55 1439Ap |SV* |cv_const_sv |CV* cv
cea2e8a9 1440p |SV* |op_const_sv |OP* o|CV* cv
d0674b55 1441Ap |void |cv_undef |CV* cv
954c1994
GS
1442Ap |void |cx_dump |PERL_CONTEXT* cs
1443Ap |SV* |filter_add |filter_t funcp|SV* datasv
1444Ap |void |filter_del |filter_t funcp
1445Ap |I32 |filter_read |int idx|SV* buffer|int maxlen
1446Ap |char** |get_op_descs
1447Ap |char** |get_op_names
cea2e8a9
GS
1448p |char* |get_no_modify
1449p |U32* |get_opargs
954c1994 1450Ap |PPADDR_t*|get_ppaddr
cea2e8a9 1451p |I32 |cxinc
954c1994
GS
1452Afp |void |deb |const char* pat|...
1453Ap |void |vdeb |const char* pat|va_list* args
1454Ap |void |debprofdump
1455Ap |I32 |debop |OP* o
1456Ap |I32 |debstack
1457Ap |I32 |debstackptrs
1458Ap |char* |delimcpy |char* to|char* toend|char* from \
cea2e8a9
GS
1459 |char* fromend|int delim|I32* retlen
1460p |void |deprecate |char* s
1be9d9c6 1461Afp |OP* |die |const char* pat|...
c5be433b 1462p |OP* |vdie |const char* pat|va_list* args
cea2e8a9 1463p |OP* |die_where |char* message|STRLEN msglen
1be9d9c6 1464Ap |void |dounwind |I32 cxix
cea2e8a9 1465p |bool |do_aexec |SV* really|SV** mark|SV** sp
d5a9bfb0 1466p |bool |do_aexec5 |SV* really|SV** mark|SV** sp|int fd|int flag
412d7f2a 1467Ap |int |do_binmode |PerlIO *fp|int iotype|int mode
cea2e8a9 1468p |void |do_chop |SV* asv|SV* sv
1c0ca838 1469Ap |bool |do_close |GV* gv|bool not_implicit
cea2e8a9
GS
1470p |bool |do_eof |GV* gv
1471p |bool |do_exec |char* cmd
1472#if !defined(WIN32)
1473p |bool |do_exec3 |char* cmd|int fd|int flag
1474#endif
1475p |void |do_execfree
1476#if defined(HAS_MSG) || defined(HAS_SEM) || defined(HAS_SHM)
1477p |I32 |do_ipcctl |I32 optype|SV** mark|SV** sp
1478p |I32 |do_ipcget |I32 optype|SV** mark|SV** sp
1479p |I32 |do_msgrcv |SV** mark|SV** sp
1480p |I32 |do_msgsnd |SV** mark|SV** sp
1481p |I32 |do_semop |SV** mark|SV** sp
1482p |I32 |do_shmio |I32 optype|SV** mark|SV** sp
1483#endif
412d7f2a 1484Ap |void |do_join |SV* sv|SV* del|SV** mark|SV** sp
cea2e8a9 1485p |OP* |do_kv
954c1994 1486Ap |bool |do_open |GV* gv|char* name|I32 len|int as_raw \
cea2e8a9 1487 |int rawmode|int rawperm|PerlIO* supplied_fp
954c1994 1488Ap |bool |do_open9 |GV *gv|char *name|I32 len|int as_raw \
6170680b
IZ
1489 |int rawmode|int rawperm|PerlIO *supplied_fp \
1490 |SV *svs|I32 num
cea2e8a9
GS
1491p |void |do_pipe |SV* sv|GV* rgv|GV* wgv
1492p |bool |do_print |SV* sv|PerlIO* fp
1493p |OP* |do_readline
1494p |I32 |do_chomp |SV* sv
1495p |bool |do_seek |GV* gv|Off_t pos|int whence
1496p |void |do_sprintf |SV* sv|I32 len|SV** sarg
1497p |Off_t |do_sysseek |GV* gv|Off_t pos|int whence
1498p |Off_t |do_tell |GV* gv
1499p |I32 |do_trans |SV* sv
81e118e0 1500p |UV |do_vecget |SV* sv|I32 offset|I32 size
cea2e8a9
GS
1501p |void |do_vecset |SV* sv
1502p |void |do_vop |I32 optype|SV* sv|SV* left|SV* right
1503p |OP* |dofile |OP* term
954c1994
GS
1504Ap |I32 |dowantarray
1505Ap |void |dump_all
1506Ap |void |dump_eval
cea2e8a9 1507#if defined(DUMP_FDS)
954c1994 1508Ap |void |dump_fds |char* s
cea2e8a9 1509#endif
954c1994
GS
1510Ap |void |dump_form |GV* gv
1511Ap |void |gv_dump |GV* gv
1512Ap |void |op_dump |OP* arg
1513Ap |void |pmop_dump |PMOP* pm
1514Ap |void |dump_packsubs |HV* stash
1515Ap |void |dump_sub |GV* gv
1516Apd |void |fbm_compile |SV* sv|U32 flags
1517Apd |char* |fbm_instr |unsigned char* big|unsigned char* bigend \
cea2e8a9
GS
1518 |SV* littlesv|U32 flags
1519p |char* |find_script |char *scriptname|bool dosearch \
1520 |char **search_ext|I32 flags
1521#if defined(USE_THREADS)
1522p |PADOFFSET|find_threadsv|const char *name
1523#endif
1524p |OP* |force_list |OP* arg
1525p |OP* |fold_constants |OP* arg
954c1994
GS
1526Afp |char* |form |const char* pat|...
1527Ap |char* |vform |const char* pat|va_list* args
1528Ap |void |free_tmps
cea2e8a9
GS
1529p |OP* |gen_constant_list|OP* o
1530#if !defined(HAS_GETENV_LEN)
c0c883f4 1531p |char* |getenv_len |const char* key|unsigned long *len
cea2e8a9 1532#endif
954c1994
GS
1533Ap |void |gp_free |GV* gv
1534Ap |GP* |gp_ref |GP* gp
1535Ap |GV* |gv_AVadd |GV* gv
1536Ap |GV* |gv_HVadd |GV* gv
1537Ap |GV* |gv_IOadd |GV* gv
1538Ap |GV* |gv_autoload4 |HV* stash|const char* name|STRLEN len \
cea2e8a9 1539 |I32 method
954c1994
GS
1540Ap |void |gv_check |HV* stash
1541Ap |void |gv_efullname |SV* sv|GV* gv
1542Ap |void |gv_efullname3 |SV* sv|GV* gv|const char* prefix
1543Ap |GV* |gv_fetchfile |const char* name
1544Apd |GV* |gv_fetchmeth |HV* stash|const char* name|STRLEN len \
cea2e8a9 1545 |I32 level
954c1994
GS
1546Apd |GV* |gv_fetchmethod |HV* stash|const char* name
1547Apd |GV* |gv_fetchmethod_autoload|HV* stash|const char* name \
cea2e8a9 1548 |I32 autoload
954c1994
GS
1549Ap |GV* |gv_fetchpv |const char* name|I32 add|I32 sv_type
1550Ap |void |gv_fullname |SV* sv|GV* gv
1551Ap |void |gv_fullname3 |SV* sv|GV* gv|const char* prefix
1552Ap |void |gv_init |GV* gv|HV* stash|const char* name \
cea2e8a9 1553 |STRLEN len|int multi
954c1994
GS
1554Apd |HV* |gv_stashpv |const char* name|I32 create
1555Ap |HV* |gv_stashpvn |const char* name|U32 namelen|I32 create
1556Apd |HV* |gv_stashsv |SV* sv|I32 create
1557Apd |void |hv_clear |HV* tb
1558Ap |void |hv_delayfree_ent|HV* hv|HE* entry
1559Apd |SV* |hv_delete |HV* tb|const char* key|U32 klen|I32 flags
1560Apd |SV* |hv_delete_ent |HV* tb|SV* key|I32 flags|U32 hash
1561Apd |bool |hv_exists |HV* tb|const char* key|U32 klen
1562Apd |bool |hv_exists_ent |HV* tb|SV* key|U32 hash
1563Apd |SV** |hv_fetch |HV* tb|const char* key|U32 klen|I32 lval
1564Apd |HE* |hv_fetch_ent |HV* tb|SV* key|I32 lval|U32 hash
1565Ap |void |hv_free_ent |HV* hv|HE* entry
1566Apd |I32 |hv_iterinit |HV* tb
1567Apd |char* |hv_iterkey |HE* entry|I32* retlen
1568Apd |SV* |hv_iterkeysv |HE* entry
1569Apd |HE* |hv_iternext |HV* tb
1570Apd |SV* |hv_iternextsv |HV* hv|char** key|I32* retlen
1571Apd |SV* |hv_iterval |HV* tb|HE* entry
1572Ap |void |hv_ksplit |HV* hv|IV newmax
1573Apd |void |hv_magic |HV* hv|GV* gv|int how
1574Apd |SV** |hv_store |HV* tb|const char* key|U32 klen|SV* val \
cea2e8a9 1575 |U32 hash
954c1994
GS
1576Apd |HE* |hv_store_ent |HV* tb|SV* key|SV* val|U32 hash
1577Apd |void |hv_undef |HV* tb
1578Ap |I32 |ibcmp |const char* a|const char* b|I32 len
1579Ap |I32 |ibcmp_locale |const char* a|const char* b|I32 len
d8eceb89 1580p |bool |ingroup |Gid_t testgid|Uid_t effective
1ee4443e 1581p |void |init_debugger
1be9d9c6 1582Ap |void |init_stacks
cea2e8a9 1583p |U32 |intro_my
954c1994 1584Ap |char* |instr |const char* big|const char* little
f2b5be74 1585p |bool |io_close |IO* io|bool not_implicit
cea2e8a9 1586p |OP* |invert |OP* cmd
c9d5ac95 1587dp |bool |is_gv_magical |char *name|STRLEN len|U32 flags
954c1994
GS
1588Ap |bool |is_uni_alnum |U32 c
1589Ap |bool |is_uni_alnumc |U32 c
1590Ap |bool |is_uni_idfirst |U32 c
1591Ap |bool |is_uni_alpha |U32 c
1592Ap |bool |is_uni_ascii |U32 c
1593Ap |bool |is_uni_space |U32 c
1594Ap |bool |is_uni_cntrl |U32 c
1595Ap |bool |is_uni_graph |U32 c
1596Ap |bool |is_uni_digit |U32 c
1597Ap |bool |is_uni_upper |U32 c
1598Ap |bool |is_uni_lower |U32 c
1599Ap |bool |is_uni_print |U32 c
1600Ap |bool |is_uni_punct |U32 c
1601Ap |bool |is_uni_xdigit |U32 c
1602Ap |U32 |to_uni_upper |U32 c
1603Ap |U32 |to_uni_title |U32 c
1604Ap |U32 |to_uni_lower |U32 c
1605Ap |bool |is_uni_alnum_lc|U32 c
1606Ap |bool |is_uni_alnumc_lc|U32 c
1607Ap |bool |is_uni_idfirst_lc|U32 c
1608Ap |bool |is_uni_alpha_lc|U32 c
1609Ap |bool |is_uni_ascii_lc|U32 c
1610Ap |bool |is_uni_space_lc|U32 c
1611Ap |bool |is_uni_cntrl_lc|U32 c
1612Ap |bool |is_uni_graph_lc|U32 c
1613Ap |bool |is_uni_digit_lc|U32 c
1614Ap |bool |is_uni_upper_lc|U32 c
1615Ap |bool |is_uni_lower_lc|U32 c
1616Ap |bool |is_uni_print_lc|U32 c
1617Ap |bool |is_uni_punct_lc|U32 c
1618Ap |bool |is_uni_xdigit_lc|U32 c
1619Ap |U32 |to_uni_upper_lc|U32 c
1620Ap |U32 |to_uni_title_lc|U32 c
1621Ap |U32 |to_uni_lower_lc|U32 c
386d01d6 1622Ap |int |is_utf8_char |U8 *p
fe406c08 1623Ap |bool |is_utf8_string |U8 *s|STRLEN len
954c1994
GS
1624Ap |bool |is_utf8_alnum |U8 *p
1625Ap |bool |is_utf8_alnumc |U8 *p
1626Ap |bool |is_utf8_idfirst|U8 *p
1627Ap |bool |is_utf8_alpha |U8 *p
1628Ap |bool |is_utf8_ascii |U8 *p
1629Ap |bool |is_utf8_space |U8 *p
1630Ap |bool |is_utf8_cntrl |U8 *p
1631Ap |bool |is_utf8_digit |U8 *p
1632Ap |bool |is_utf8_graph |U8 *p
1633Ap |bool |is_utf8_upper |U8 *p
1634Ap |bool |is_utf8_lower |U8 *p
1635Ap |bool |is_utf8_print |U8 *p
1636Ap |bool |is_utf8_punct |U8 *p
1637Ap |bool |is_utf8_xdigit |U8 *p
1638Ap |bool |is_utf8_mark |U8 *p
cea2e8a9
GS
1639p |OP* |jmaybe |OP* arg
1640p |I32 |keyword |char* d|I32 len
1be9d9c6 1641Ap |void |leave_scope |I32 base
cea2e8a9
GS
1642p |void |lex_end
1643p |void |lex_start |SV* line
1644p |OP* |linklist |OP* o
1645p |OP* |list |OP* o
1646p |OP* |listkids |OP* o
e4783991
GS
1647Afp |void |load_module|U32 flags|SV* name|SV* ver|...
1648Ap |void |vload_module|U32 flags|SV* name|SV* ver|va_list* args
cea2e8a9 1649p |OP* |localize |OP* arg|I32 lexical
954c1994 1650Apd |I32 |looks_like_number|SV* sv
cea2e8a9
GS
1651p |int |magic_clearenv |SV* sv|MAGIC* mg
1652p |int |magic_clear_all_env|SV* sv|MAGIC* mg
1653p |int |magic_clearpack|SV* sv|MAGIC* mg
1654p |int |magic_clearsig |SV* sv|MAGIC* mg
1655p |int |magic_existspack|SV* sv|MAGIC* mg
1656p |int |magic_freeregexp|SV* sv|MAGIC* mg
1657p |int |magic_get |SV* sv|MAGIC* mg
1658p |int |magic_getarylen|SV* sv|MAGIC* mg
1659p |int |magic_getdefelem|SV* sv|MAGIC* mg
1660p |int |magic_getglob |SV* sv|MAGIC* mg
1661p |int |magic_getnkeys |SV* sv|MAGIC* mg
1662p |int |magic_getpack |SV* sv|MAGIC* mg
1663p |int |magic_getpos |SV* sv|MAGIC* mg
1664p |int |magic_getsig |SV* sv|MAGIC* mg
1665p |int |magic_getsubstr|SV* sv|MAGIC* mg
1666p |int |magic_gettaint |SV* sv|MAGIC* mg
1667p |int |magic_getuvar |SV* sv|MAGIC* mg
1668p |int |magic_getvec |SV* sv|MAGIC* mg
1669p |U32 |magic_len |SV* sv|MAGIC* mg
1670#if defined(USE_THREADS)
1671p |int |magic_mutexfree|SV* sv|MAGIC* mg
1672#endif
1673p |int |magic_nextpack |SV* sv|MAGIC* mg|SV* key
1674p |U32 |magic_regdata_cnt|SV* sv|MAGIC* mg
1675p |int |magic_regdatum_get|SV* sv|MAGIC* mg
1676p |int |magic_set |SV* sv|MAGIC* mg
1677p |int |magic_setamagic|SV* sv|MAGIC* mg
1678p |int |magic_setarylen|SV* sv|MAGIC* mg
1679p |int |magic_setbm |SV* sv|MAGIC* mg
1680p |int |magic_setdbline|SV* sv|MAGIC* mg
1681#if defined(USE_LOCALE_COLLATE)
1682p |int |magic_setcollxfrm|SV* sv|MAGIC* mg
1683#endif
1684p |int |magic_setdefelem|SV* sv|MAGIC* mg
1685p |int |magic_setenv |SV* sv|MAGIC* mg
1686p |int |magic_setfm |SV* sv|MAGIC* mg
1687p |int |magic_setisa |SV* sv|MAGIC* mg
1688p |int |magic_setglob |SV* sv|MAGIC* mg
1689p |int |magic_setmglob |SV* sv|MAGIC* mg
1690p |int |magic_setnkeys |SV* sv|MAGIC* mg
1691p |int |magic_setpack |SV* sv|MAGIC* mg
1692p |int |magic_setpos |SV* sv|MAGIC* mg
1693p |int |magic_setsig |SV* sv|MAGIC* mg
1694p |int |magic_setsubstr|SV* sv|MAGIC* mg
1695p |int |magic_settaint |SV* sv|MAGIC* mg
1696p |int |magic_setuvar |SV* sv|MAGIC* mg
1697p |int |magic_setvec |SV* sv|MAGIC* mg
1698p |int |magic_set_all_env|SV* sv|MAGIC* mg
1699p |U32 |magic_sizepack |SV* sv|MAGIC* mg
1700p |int |magic_wipepack |SV* sv|MAGIC* mg
1701p |void |magicname |char* sym|char* name|I32 namlen
954c1994 1702Ap |void |markstack_grow
cea2e8a9
GS
1703#if defined(USE_LOCALE_COLLATE)
1704p |char* |mem_collxfrm |const char* s|STRLEN len|STRLEN* xlen
1705#endif
954c1994
GS
1706Afp |SV* |mess |const char* pat|...
1707Ap |SV* |vmess |const char* pat|va_list* args
5a844595 1708p |void |qerror |SV* err
954c1994
GS
1709Apd |int |mg_clear |SV* sv
1710Apd |int |mg_copy |SV* sv|SV* nsv|const char* key|I32 klen
1711Apd |MAGIC* |mg_find |SV* sv|int type
1712Apd |int |mg_free |SV* sv
1713Apd |int |mg_get |SV* sv
1714Apd |U32 |mg_length |SV* sv
1715Apd |void |mg_magical |SV* sv
1716Apd |int |mg_set |SV* sv
1717Ap |I32 |mg_size |SV* sv
cea2e8a9 1718p |OP* |mod |OP* o|I32 type
16fe6d59 1719p |int |mode_from_discipline|SV* discp
1be9d9c6 1720Ap |char* |moreswitches |char* s
cea2e8a9 1721p |OP* |my |OP* o
954c1994 1722Ap |NV |my_atof |const char *s
cea2e8a9 1723#if !defined(HAS_BCOPY) || !defined(HAS_SAFE_BCOPY)
954c1994 1724Anp |char* |my_bcopy |const char* from|char* to|I32 len
cea2e8a9
GS
1725#endif
1726#if !defined(HAS_BZERO) && !defined(HAS_MEMSET)
954c1994 1727Anp |char* |my_bzero |char* loc|I32 len
cea2e8a9 1728#endif
954c1994
GS
1729Apr |void |my_exit |U32 status
1730Apr |void |my_failure_exit
1731Ap |I32 |my_fflush_all
1732Ap |I32 |my_lstat
cea2e8a9 1733#if !defined(HAS_MEMCMP) || !defined(HAS_SANE_MEMCMP)
954c1994 1734Anp |I32 |my_memcmp |const char* s1|const char* s2|I32 len
cea2e8a9
GS
1735#endif
1736#if !defined(HAS_MEMSET)
954c1994 1737Anp |void* |my_memset |char* loc|I32 ch|I32 len
cea2e8a9
GS
1738#endif
1739#if !defined(PERL_OBJECT)
954c1994
GS
1740Ap |I32 |my_pclose |PerlIO* ptr
1741Ap |PerlIO*|my_popen |char* cmd|char* mode
cea2e8a9 1742#endif
954c1994
GS
1743Ap |void |my_setenv |char* nam|char* val
1744Ap |I32 |my_stat
cea2e8a9 1745#if defined(MYSWAP)
954c1994
GS
1746Ap |short |my_swap |short s
1747Ap |long |my_htonl |long l
1748Ap |long |my_ntohl |long l
cea2e8a9
GS
1749#endif
1750p |void |my_unexec
954c1994
GS
1751Ap |OP* |newANONLIST |OP* o
1752Ap |OP* |newANONHASH |OP* o
1753Ap |OP* |newANONSUB |I32 floor|OP* proto|OP* block
1754Ap |OP* |newASSIGNOP |I32 flags|OP* left|I32 optype|OP* right
1755Ap |OP* |newCONDOP |I32 flags|OP* expr|OP* trueop|OP* falseop
1756Apd |void |newCONSTSUB |HV* stash|char* name|SV* sv
1757Ap |void |newFORM |I32 floor|OP* o|OP* block
1758Ap |OP* |newFOROP |I32 flags|char* label|line_t forline \
cea2e8a9 1759 |OP* sclr|OP* expr|OP*block|OP*cont
954c1994
GS
1760Ap |OP* |newLOGOP |I32 optype|I32 flags|OP* left|OP* right
1761Ap |OP* |newLOOPEX |I32 type|OP* label
1762Ap |OP* |newLOOPOP |I32 flags|I32 debuggable|OP* expr|OP* block
1763Ap |OP* |newNULLLIST
1764Ap |OP* |newOP |I32 optype|I32 flags
1765Ap |void |newPROG |OP* o
1766Ap |OP* |newRANGE |I32 flags|OP* left|OP* right
1767Ap |OP* |newSLICEOP |I32 flags|OP* subscript|OP* listop
1768Ap |OP* |newSTATEOP |I32 flags|char* label|OP* o
1769Ap |CV* |newSUB |I32 floor|OP* o|OP* proto|OP* block
1770Apd |CV* |newXS |char* name|XSUBADDR_t f|char* filename
1771Apd |AV* |newAV
1772Ap |OP* |newAVREF |OP* o
1773Ap |OP* |newBINOP |I32 type|I32 flags|OP* first|OP* last
1774Ap |OP* |newCVREF |I32 flags|OP* o
1775Ap |OP* |newGVOP |I32 type|I32 flags|GV* gv
1776Ap |GV* |newGVgen |char* pack
1777Ap |OP* |newGVREF |I32 type|OP* o
1778Ap |OP* |newHVREF |OP* o
1779Apd |HV* |newHV
1780Ap |HV* |newHVhv |HV* hv
1781Ap |IO* |newIO
1782Ap |OP* |newLISTOP |I32 type|I32 flags|OP* first|OP* last
1783Ap |OP* |newPADOP |I32 type|I32 flags|SV* sv
1784Ap |OP* |newPMOP |I32 type|I32 flags
1785Ap |OP* |newPVOP |I32 type|I32 flags|char* pv
1786Ap |SV* |newRV |SV* pref
1787Apd |SV* |newRV_noinc |SV *sv
1788Ap |SV* |newSV |STRLEN len
1789Ap |OP* |newSVREF |OP* o
1790Ap |OP* |newSVOP |I32 type|I32 flags|SV* sv
1791Apd |SV* |newSViv |IV i
1a3327fb 1792Apd |SV* |newSVuv |UV u
954c1994
GS
1793Apd |SV* |newSVnv |NV n
1794Apd |SV* |newSVpv |const char* s|STRLEN len
1795Apd |SV* |newSVpvn |const char* s|STRLEN len
1796Afpd |SV* |newSVpvf |const char* pat|...
1797Ap |SV* |vnewSVpvf |const char* pat|va_list* args
1798Apd |SV* |newSVrv |SV* rv|const char* classname
1799Apd |SV* |newSVsv |SV* old
1800Ap |OP* |newUNOP |I32 type|I32 flags|OP* first
1801Ap |OP* |newWHILEOP |I32 flags|I32 debuggable|LOOP* loop \
cea2e8a9 1802 |I32 whileline|OP* expr|OP* block|OP* cont
c5be433b 1803
1be9d9c6 1804Ap |PERL_SI*|new_stackinfo|I32 stitems|I32 cxitems
cea2e8a9 1805p |PerlIO*|nextargv |GV* gv
954c1994 1806Ap |char* |ninstr |const char* big|const char* bigend \
cea2e8a9
GS
1807 |const char* little|const char* lend
1808p |OP* |oopsCV |OP* o
1be9d9c6 1809Ap |void |op_free |OP* arg
cea2e8a9
GS
1810p |void |package |OP* o
1811p |PADOFFSET|pad_alloc |I32 optype|U32 tmptype
1812p |PADOFFSET|pad_allocmy |char* name
1813p |PADOFFSET|pad_findmy |char* name
1814p |OP* |oopsAV |OP* o
1815p |OP* |oopsHV |OP* o
1816p |void |pad_leavemy |I32 fill
1be9d9c6 1817Ap |SV* |pad_sv |PADOFFSET po
cea2e8a9
GS
1818p |void |pad_free |PADOFFSET po
1819p |void |pad_reset
1820p |void |pad_swipe |PADOFFSET po
1821p |void |peep |OP* o
0cb96387 1822#if defined(PERL_OBJECT)
954c1994
GS
1823Aox |void |Perl_construct
1824Aox |void |Perl_destruct
1825Aox |void |Perl_free
1826Aox |int |Perl_run
1827Aox |int |Perl_parse |XSINIT_t xsinit \
0cb96387 1828 |int argc|char** argv|char** env
1d7c1841 1829#endif
c5be433b 1830#if defined(USE_THREADS)
954c1994 1831Ap |struct perl_thread* |new_struct_thread|struct perl_thread *t
c5be433b 1832#endif
954c1994
GS
1833Ap |void |call_atexit |ATEXIT_t fn|void *ptr
1834Apd |I32 |call_argv |const char* sub_name|I32 flags|char** argv
1835Apd |I32 |call_method |const char* methname|I32 flags
1836Apd |I32 |call_pv |const char* sub_name|I32 flags
1837Apd |I32 |call_sv |SV* sv|I32 flags
1838Apd |SV* |eval_pv |const char* p|I32 croak_on_error
1839Apd |I32 |eval_sv |SV* sv|I32 flags
1840Apd |SV* |get_sv |const char* name|I32 create
1841Apd |AV* |get_av |const char* name|I32 create
1842Apd |HV* |get_hv |const char* name|I32 create
1843Apd |CV* |get_cv |const char* name|I32 create
1be9d9c6
GS
1844Ap |int |init_i18nl10n |int printwarn
1845Ap |int |init_i18nl14n |int printwarn
954c1994
GS
1846Ap |void |new_collate |const char* newcoll
1847Ap |void |new_ctype |const char* newctype
1848Ap |void |new_numeric |const char* newcoll
1849Ap |void |set_numeric_local
1850Ap |void |set_numeric_radix
1851Ap |void |set_numeric_standard
1852Apd |void |require_pv |const char* pv
d8a83dd3 1853p |void |pidgone |Pid_t pid|int status
1be9d9c6 1854Ap |void |pmflag |U16* pmfl|int ch
cea2e8a9
GS
1855p |OP* |pmruntime |OP* pm|OP* expr|OP* repl
1856p |OP* |pmtrans |OP* o|OP* expr|OP* repl
1857p |OP* |pop_return
954c1994 1858Ap |void |pop_scope
cea2e8a9
GS
1859p |OP* |prepend_elem |I32 optype|OP* head|OP* tail
1860p |void |push_return |OP* o
954c1994 1861Ap |void |push_scope
cea2e8a9
GS
1862p |OP* |ref |OP* o|I32 type
1863p |OP* |refkids |OP* o|I32 type
954c1994 1864Ap |void |regdump |regexp* r
a86f0dc9 1865Ap |I32 |pregexec |regexp* prog|char* stringarg \
cea2e8a9
GS
1866 |char* strend|char* strbeg|I32 minend \
1867 |SV* screamer|U32 nosave
1be9d9c6
GS
1868Ap |void |pregfree |struct regexp* r
1869Ap |regexp*|pregcomp |char* exp|char* xend|PMOP* pm
1870Ap |char* |re_intuit_start|regexp* prog|SV* sv|char* strpos \
cad2e5aa
JH
1871 |char* strend|U32 flags \
1872 |struct re_scream_pos_data_s *data
1be9d9c6
GS
1873Ap |SV* |re_intuit_string|regexp* prog
1874Ap |I32 |regexec_flags |regexp* prog|char* stringarg \
cea2e8a9
GS
1875 |char* strend|char* strbeg|I32 minend \
1876 |SV* screamer|void* data|U32 flags
1be9d9c6 1877Ap |regnode*|regnext |regnode* p
cea2e8a9 1878p |void |regprop |SV* sv|regnode* o
1be9d9c6 1879Ap |void |repeatcpy |char* to|const char* from|I32 len|I32 count
954c1994 1880Ap |char* |rninstr |const char* big|const char* bigend \
cea2e8a9 1881 |const char* little|const char* lend
412d7f2a 1882Ap |Sighandler_t|rsignal |int i|Sighandler_t t
cea2e8a9
GS
1883p |int |rsignal_restore|int i|Sigsave_t* t
1884p |int |rsignal_save |int i|Sighandler_t t1|Sigsave_t* t2
1885p |Sighandler_t|rsignal_state|int i
1886p |void |rxres_free |void** rsp
1887p |void |rxres_restore |void** rsp|REGEXP* prx
1888p |void |rxres_save |void** rsp|REGEXP* prx
1889#if !defined(HAS_RENAME)
1890p |I32 |same_dirent |char* a|char* b
1891#endif
954c1994
GS
1892Apd |char* |savepv |const char* sv
1893Apd |char* |savepvn |const char* sv|I32 len
1894Ap |void |savestack_grow
1895Ap |void |save_aelem |AV* av|I32 idx|SV **sptr
1896Ap |I32 |save_alloc |I32 size|I32 pad
1897Ap |void |save_aptr |AV** aptr
1898Ap |AV* |save_ary |GV* gv
1899Ap |void |save_clearsv |SV** svp
1900Ap |void |save_delete |HV* hv|char* key|I32 klen
1901Ap |void |save_destructor|DESTRUCTORFUNC_NOCONTEXT_t f|void* p
1902Ap |void |save_destructor_x|DESTRUCTORFUNC_t f|void* p
1903Ap |void |save_freesv |SV* sv
cea2e8a9 1904p |void |save_freeop |OP* o
954c1994
GS
1905Ap |void |save_freepv |char* pv
1906Ap |void |save_generic_svref|SV** sptr
f4dd75d9 1907Ap |void |save_generic_pvref|char** str
954c1994
GS
1908Ap |void |save_gp |GV* gv|I32 empty
1909Ap |HV* |save_hash |GV* gv
1910Ap |void |save_helem |HV* hv|SV *key|SV **sptr
1911Ap |void |save_hints
1912Ap |void |save_hptr |HV** hptr
1913Ap |void |save_I16 |I16* intp
1914Ap |void |save_I32 |I32* intp
1915Ap |void |save_I8 |I8* bytep
1916Ap |void |save_int |int* intp
1917Ap |void |save_item |SV* item
1918Ap |void |save_iv |IV* iv
1919Ap |void |save_list |SV** sarg|I32 maxsarg
1920Ap |void |save_long |long* longp
1921Ap |void |save_nogv |GV* gv
cea2e8a9 1922p |void |save_op
954c1994
GS
1923Ap |SV* |save_scalar |GV* gv
1924Ap |void |save_pptr |char** pptr
1925Ap |void |save_vptr |void* pptr
1926Ap |void |save_re_context
1927Ap |void |save_sptr |SV** sptr
1928Ap |SV* |save_svref |SV** sptr
1929Ap |SV** |save_threadsv |PADOFFSET i
cea2e8a9
GS
1930p |OP* |sawparens |OP* o
1931p |OP* |scalar |OP* o
1932p |OP* |scalarkids |OP* o
1933p |OP* |scalarseq |OP* o
1934p |OP* |scalarvoid |OP* o
1be9d9c6
GS
1935Ap |NV |scan_bin |char* start|I32 len|I32* retlen
1936Ap |NV |scan_hex |char* start|I32 len|I32* retlen
1937Ap |char* |scan_num |char* s
1938Ap |NV |scan_oct |char* start|I32 len|I32* retlen
cea2e8a9 1939p |OP* |scope |OP* o
1be9d9c6 1940Ap |char* |screaminstr |SV* bigsv|SV* littlesv|I32 start_shift \
cea2e8a9
GS
1941 |I32 end_shift|I32 *state|I32 last
1942#if !defined(VMS)
1943p |I32 |setenv_getix |char* nam
1944#endif
1945p |void |setdefout |GV* gv
1be9d9c6 1946Ap |char* |sharepvn |const char* sv|I32 len|U32 hash
cea2e8a9
GS
1947p |HEK* |share_hek |const char* sv|I32 len|U32 hash
1948np |Signal_t |sighandler |int sig
954c1994
GS
1949Ap |SV** |stack_grow |SV** sp|SV**p|int n
1950Ap |I32 |start_subparse |I32 is_format|U32 flags
cea2e8a9 1951p |void |sub_crush_depth|CV* cv
954c1994
GS
1952Ap |bool |sv_2bool |SV* sv
1953Ap |CV* |sv_2cv |SV* sv|HV** st|GV** gvp|I32 lref
1954Ap |IO* |sv_2io |SV* sv
1955Ap |IV |sv_2iv |SV* sv
1956Apd |SV* |sv_2mortal |SV* sv
1957Ap |NV |sv_2nv |SV* sv
1958Ap |char* |sv_2pv |SV* sv|STRLEN* lp
1959Ap |char* |sv_2pvutf8 |SV* sv|STRLEN* lp
1960Ap |char* |sv_2pvbyte |SV* sv|STRLEN* lp
1961Ap |UV |sv_2uv |SV* sv
1962Ap |IV |sv_iv |SV* sv
1963Ap |UV |sv_uv |SV* sv
1964Ap |NV |sv_nv |SV* sv
1965Ap |char* |sv_pvn |SV *sv|STRLEN *len
1966Ap |char* |sv_pvutf8n |SV *sv|STRLEN *len
1967Ap |char* |sv_pvbyten |SV *sv|STRLEN *len
1968Ap |I32 |sv_true |SV *sv
cea2e8a9 1969p |void |sv_add_arena |char* ptr|U32 size|U32 flags
954c1994
GS
1970Ap |int |sv_backoff |SV* sv
1971Apd |SV* |sv_bless |SV* sv|HV* stash
1972Afpd |void |sv_catpvf |SV* sv|const char* pat|...
1973Ap |void |sv_vcatpvf |SV* sv|const char* pat|va_list* args
1974Apd |void |sv_catpv |SV* sv|const char* ptr
1975Apd |void |sv_catpvn |SV* sv|const char* ptr|STRLEN len
1976Apd |void |sv_catsv |SV* dsv|SV* ssv
1977Apd |void |sv_chop |SV* sv|char* ptr
cea2e8a9
GS
1978p |void |sv_clean_all
1979p |void |sv_clean_objs
954c1994
GS
1980Ap |void |sv_clear |SV* sv
1981Apd |I32 |sv_cmp |SV* sv1|SV* sv2
1982Ap |I32 |sv_cmp_locale |SV* sv1|SV* sv2
cea2e8a9 1983#if defined(USE_LOCALE_COLLATE)
954c1994 1984Ap |char* |sv_collxfrm |SV* sv|STRLEN* nxp
cea2e8a9 1985#endif
1be9d9c6 1986Ap |OP* |sv_compile_2op |SV* sv|OP** startp|char* code|AV** avp
954c1994
GS
1987Apd |void |sv_dec |SV* sv
1988Ap |void |sv_dump |SV* sv
1989Apd |bool |sv_derived_from|SV* sv|const char* name
1990Apd |I32 |sv_eq |SV* sv1|SV* sv2
1991Ap |void |sv_free |SV* sv
cea2e8a9 1992p |void |sv_free_arenas
1be9d9c6 1993Ap |char* |sv_gets |SV* sv|PerlIO* fp|I32 append
954c1994
GS
1994Apd |char* |sv_grow |SV* sv|STRLEN newlen
1995Apd |void |sv_inc |SV* sv
1996Apd |void |sv_insert |SV* bigsv|STRLEN offset|STRLEN len \
cea2e8a9 1997 |char* little|STRLEN littlelen
954c1994
GS
1998Apd |int |sv_isa |SV* sv|const char* name
1999Apd |int |sv_isobject |SV* sv
2000Apd |STRLEN |sv_len |SV* sv
2001Ap |STRLEN |sv_len_utf8 |SV* sv
2002Apd |void |sv_magic |SV* sv|SV* obj|int how|const char* name \
cea2e8a9 2003 |I32 namlen
954c1994
GS
2004Apd |SV* |sv_mortalcopy |SV* oldsv
2005Apd |SV* |sv_newmortal
2006Ap |SV* |sv_newref |SV* sv
2007Ap |char* |sv_peek |SV* sv
2008Ap |void |sv_pos_u2b |SV* sv|I32* offsetp|I32* lenp
2009Ap |void |sv_pos_b2u |SV* sv|I32* offsetp
2010Ap |char* |sv_pvn_force |SV* sv|STRLEN* lp
2011Ap |char* |sv_pvutf8n_force|SV* sv|STRLEN* lp
2012Ap |char* |sv_pvbyten_force|SV* sv|STRLEN* lp
2013Ap |char* |sv_reftype |SV* sv|int ob
2014Ap |void |sv_replace |SV* sv|SV* nsv
2015Ap |void |sv_report_used
2016Ap |void |sv_reset |char* s|HV* stash
2017Afpd |void |sv_setpvf |SV* sv|const char* pat|...
2018Ap |void |sv_vsetpvf |SV* sv|const char* pat|va_list* args
2019Apd |void |sv_setiv |SV* sv|IV num
2020Apd |void |sv_setpviv |SV* sv|IV num
2021Apd |void |sv_setuv |SV* sv|UV num
2022Apd |void |sv_setnv |SV* sv|NV num
2023Apd |SV* |sv_setref_iv |SV* rv|const char* classname|IV iv
2024Apd |SV* |sv_setref_nv |SV* rv|const char* classname|NV nv
2025Apd |SV* |sv_setref_pv |SV* rv|const char* classname|void* pv
2026Apd |SV* |sv_setref_pvn |SV* rv|const char* classname|char* pv \
cea2e8a9 2027 |STRLEN n
954c1994
GS
2028Apd |void |sv_setpv |SV* sv|const char* ptr
2029Apd |void |sv_setpvn |SV* sv|const char* ptr|STRLEN len
2030Apd |void |sv_setsv |SV* dsv|SV* ssv
2031Ap |void |sv_taint |SV* sv
2032Ap |bool |sv_tainted |SV* sv
2033Ap |int |sv_unmagic |SV* sv|int type
2034Apd |void |sv_unref |SV* sv
2035Ap |void |sv_untaint |SV* sv
2036Apd |bool |sv_upgrade |SV* sv|U32 mt
2037Apd |void |sv_usepvn |SV* sv|char* ptr|STRLEN len
2038Apd |void |sv_vcatpvfn |SV* sv|const char* pat|STRLEN patlen \
cea2e8a9 2039 |va_list* args|SV** svargs|I32 svmax \
5bc28da9 2040 |bool *maybe_tainted
954c1994 2041Apd |void |sv_vsetpvfn |SV* sv|const char* pat|STRLEN patlen \
cea2e8a9 2042 |va_list* args|SV** svargs|I32 svmax \
5bc28da9 2043 |bool *maybe_tainted
1571675a 2044Ap |NV |str_to_version |SV *sv
1be9d9c6 2045Ap |SV* |swash_init |char* pkg|char* name|SV* listsv \
cea2e8a9 2046 |I32 minbits|I32 none
1be9d9c6 2047Ap |UV |swash_fetch |SV *sv|U8 *ptr
954c1994
GS
2048Ap |void |taint_env
2049Ap |void |taint_proper |const char* f|const char* s
2050Ap |UV |to_utf8_lower |U8 *p
2051Ap |UV |to_utf8_upper |U8 *p
2052Ap |UV |to_utf8_title |U8 *p
cea2e8a9 2053#if defined(UNLINK_ALL_VERSIONS)
954c1994 2054Ap |I32 |unlnk |char* f
cea2e8a9
GS
2055#endif
2056#if defined(USE_THREADS)
1be9d9c6 2057Ap |void |unlock_condpair|void* svv
cea2e8a9 2058#endif
1be9d9c6 2059Ap |void |unsharepvn |const char* sv|I32 len|U32 hash
cea2e8a9
GS
2060p |void |unshare_hek |HEK* hek
2061p |void |utilize |int aver|I32 floor|OP* version|OP* id|OP* arg
954c1994
GS
2062Ap |U8* |utf16_to_utf8 |U16* p|U8 *d|I32 bytelen
2063Ap |U8* |utf16_to_utf8_reversed|U16* p|U8 *d|I32 bytelen
2064Ap |I32 |utf8_distance |U8 *a|U8 *b
2065Ap |U8* |utf8_hop |U8 *s|I32 off
e8f30f28 2066Ap |U8* |utf8_to_bytes |U8 *s|STRLEN len
fe406c08 2067Ap |U8* |bytes_to_utf8 |U8 *s|STRLEN *len
954c1994
GS
2068Ap |UV |utf8_to_uv |U8 *s|I32* retlen
2069Ap |U8* |uv_to_utf8 |U8 *d|UV uv
cea2e8a9
GS
2070p |void |vivify_defelem |SV* sv
2071p |void |vivify_ref |SV* sv|U32 to_what
d8a83dd3 2072p |I32 |wait4pid |Pid_t pid|int* statusp|int flags
69282e91 2073p |void |report_closed_fh|GV *gv|IO *io|const char *func|const char *obj
1d7c1841 2074p |void |report_uninit
954c1994
GS
2075Afpd |void |warn |const char* pat|...
2076Ap |void |vwarn |const char* pat|va_list* args
2077Afp |void |warner |U32 err|const char* pat|...
2078Ap |void |vwarner |U32 err|const char* pat|va_list* args
cea2e8a9 2079p |void |watch |char** addr
412d7f2a 2080Ap |I32 |whichsig |char* sig
cea2e8a9
GS
2081p |int |yyerror |char* s
2082#if defined(USE_PURE_BISON)
2083p |int |yylex |YYSTYPE *lvalp|int *lcharp
2084#else
2085p |int |yylex
2086#endif
2087p |int |yyparse
2088p |int |yywarn |char* s
2089#if defined(MYMALLOC)
954c1994 2090Ap |void |dump_mstats |char* s
827e134a 2091Ap |int |get_mstats |perl_mstats_t *buf|int buflen|int level
cea2e8a9 2092#endif
954c1994
GS
2093Anp |Malloc_t|safesysmalloc |MEM_SIZE nbytes
2094Anp |Malloc_t|safesyscalloc |MEM_SIZE elements|MEM_SIZE size
2095Anp |Malloc_t|safesysrealloc|Malloc_t where|MEM_SIZE nbytes
2096Anp |Free_t |safesysfree |Malloc_t where
cea2e8a9 2097#if defined(LEAKTEST)
954c1994
GS
2098Anp |Malloc_t|safexmalloc |I32 x|MEM_SIZE size
2099Anp |Malloc_t|safexcalloc |I32 x|MEM_SIZE elements|MEM_SIZE size
2100Anp |Malloc_t|safexrealloc |Malloc_t where|MEM_SIZE size
2101Anp |void |safexfree |Malloc_t where
cea2e8a9
GS
2102#endif
2103#if defined(PERL_GLOBAL_STRUCT)
954c1994 2104Ap |struct perl_vars *|GetVars
cea2e8a9 2105#endif
954c1994
GS
2106Ap |int |runops_standard
2107Ap |int |runops_debug
2108Afpd |void |sv_catpvf_mg |SV *sv|const char* pat|...
2109Ap |void |sv_vcatpvf_mg |SV* sv|const char* pat|va_list* args
2110Apd |void |sv_catpv_mg |SV *sv|const char *ptr
2111Apd |void |sv_catpvn_mg |SV *sv|const char *ptr|STRLEN len
2112Apd |void |sv_catsv_mg |SV *dstr|SV *sstr
2113Afpd |void |sv_setpvf_mg |SV *sv|const char* pat|...
2114Ap |void |sv_vsetpvf_mg |SV* sv|const char* pat|va_list* args
2115Apd |void |sv_setiv_mg |SV *sv|IV i
2116Apd |void |sv_setpviv_mg |SV *sv|IV iv
2117Apd |void |sv_setuv_mg |SV *sv|UV u
2118Apd |void |sv_setnv_mg |SV *sv|NV num
2119Apd |void |sv_setpv_mg |SV *sv|const char *ptr
2120Apd |void |sv_setpvn_mg |SV *sv|const char *ptr|STRLEN len
2121Apd |void |sv_setsv_mg |SV *dstr|SV *sstr
2122Apd |void |sv_usepvn_mg |SV *sv|char *ptr|STRLEN len
2123Ap |MGVTBL*|get_vtbl |int vtbl_id
cea2e8a9
GS
2124p |char* |pv_display |SV *sv|char *pv|STRLEN cur|STRLEN len \
2125 |STRLEN pvlim
954c1994
GS
2126Afp |void |dump_indent |I32 level|PerlIO *file|const char* pat|...
2127Ap |void |dump_vindent |I32 level|PerlIO *file|const char* pat \
c5be433b 2128 |va_list *args
954c1994
GS
2129Ap |void |do_gv_dump |I32 level|PerlIO *file|char *name|GV *sv
2130Ap |void |do_gvgv_dump |I32 level|PerlIO *file|char *name|GV *sv
2131Ap |void |do_hv_dump |I32 level|PerlIO *file|char *name|HV *sv
2132Ap |void |do_magic_dump |I32 level|PerlIO *file|MAGIC *mg|I32 nest \
cea2e8a9 2133 |I32 maxnest|bool dumpops|STRLEN pvlim
954c1994
GS
2134Ap |void |do_op_dump |I32 level|PerlIO *file|OP *o
2135Ap |void |do_pmop_dump |I32 level|PerlIO *file|PMOP *pm
2136Ap |void |do_sv_dump |I32 level|PerlIO *file|SV *sv|I32 nest \
cea2e8a9 2137 |I32 maxnest|bool dumpops|STRLEN pvlim
954c1994 2138Ap |void |magic_dump |MAGIC *mg
14dd3ad8 2139#if defined(PERL_FLEXIBLE_EXCEPTIONS)
954c1994 2140Ap |void* |default_protect|volatile JMPENV *je|int *excpt \
db36c5a1 2141 |protect_body_t body|...
954c1994 2142Ap |void* |vdefault_protect|volatile JMPENV *je|int *excpt \
db36c5a1 2143 |protect_body_t body|va_list *args
14dd3ad8 2144#endif
954c1994
GS
2145Ap |void |reginitcolors
2146Ap |char* |sv_2pv_nolen |SV* sv
2147Ap |char* |sv_2pvutf8_nolen|SV* sv
2148Ap |char* |sv_2pvbyte_nolen|SV* sv
2149Ap |char* |sv_pv |SV *sv
2150Ap |char* |sv_pvutf8 |SV *sv
2151Ap |char* |sv_pvbyte |SV *sv
560a288e
GS
2152Ap |void |sv_utf8_upgrade|SV *sv
2153Ap |bool |sv_utf8_downgrade|SV *sv|bool fail_ok
2154Ap |void |sv_utf8_encode |SV *sv
2155Ap |bool |sv_utf8_decode |SV *sv
954c1994
GS
2156Ap |void |sv_force_normal|SV *sv
2157Ap |void |tmps_grow |I32 n
2158Ap |SV* |sv_rvweaken |SV *sv
cea2e8a9 2159p |int |magic_killbackrefs|SV *sv|MAGIC *mg
954c1994
GS
2160Ap |OP* |newANONATTRSUB |I32 floor|OP *proto|OP *attrs|OP *block
2161Ap |CV* |newATTRSUB |I32 floor|OP *o|OP *proto|OP *attrs|OP *block
2162Ap |void |newMYSUB |I32 floor|OP *o|OP *proto|OP *attrs|OP *block
09bef843
SB
2163p |OP * |my_attrs |OP *o|OP *attrs
2164p |void |boot_core_xsutils
1d7c1841 2165#if defined(USE_ITHREADS)
954c1994
GS
2166Ap |PERL_CONTEXT*|cx_dup |PERL_CONTEXT* cx|I32 ix|I32 max
2167Ap |PERL_SI*|si_dup |PERL_SI* si
2168Ap |ANY* |ss_dup |PerlInterpreter* proto_perl
2169Ap |void* |any_dup |void* v|PerlInterpreter* proto_perl
2170Ap |HE* |he_dup |HE* e|bool shared
2171Ap |REGEXP*|re_dup |REGEXP* r
2172Ap |PerlIO*|fp_dup |PerlIO* fp|char type
2173Ap |DIR* |dirp_dup |DIR* dp
2174Ap |GP* |gp_dup |GP* gp
2175Ap |MAGIC* |mg_dup |MAGIC* mg
2176Ap |SV* |sv_dup |SV* sstr
1d7c1841 2177#if defined(HAVE_INTERP_INTERN)
954c1994 2178Ap |void |sys_intern_dup |struct interp_intern* src \
1d7c1841
GS
2179 |struct interp_intern* dst
2180#endif
954c1994
GS
2181Ap |PTR_TBL_t*|ptr_table_new
2182Ap |void* |ptr_table_fetch|PTR_TBL_t *tbl|void *sv
2183Ap |void |ptr_table_store|PTR_TBL_t *tbl|void *oldsv|void *newsv
2184Ap |void |ptr_table_split|PTR_TBL_t *tbl
1d7c1841 2185#endif
52853b95
GS
2186#if defined(HAVE_INTERP_INTERN)
2187Ap |void |sys_intern_init
2188#endif
cea2e8a9 2189
0cb96387
GS
2190#if defined(PERL_OBJECT)
2191protected:
1d7c1841
GS
2192#else
2193END_EXTERN_C
0cb96387 2194#endif
1d7c1841 2195
0cb96387 2196#if defined(PERL_IN_AV_C) || defined(PERL_DECL_PROT)
cea2e8a9 2197s |I32 |avhv_index_sv |SV* sv
10c8fecd 2198s |I32 |avhv_index |AV* av|SV* sv|U32 hash
cea2e8a9
GS
2199#endif
2200
0cb96387 2201#if defined(PERL_IN_DOOP_C) || defined(PERL_DECL_PROT)
b1fb3988
GS
2202s |I32 |do_trans_simple |SV *sv
2203s |I32 |do_trans_count |SV *sv
2204s |I32 |do_trans_complex |SV *sv
2205s |I32 |do_trans_simple_utf8 |SV *sv
2206s |I32 |do_trans_count_utf8 |SV *sv
2207s |I32 |do_trans_complex_utf8 |SV *sv
cea2e8a9
GS
2208#endif
2209
0cb96387 2210#if defined(PERL_IN_GV_C) || defined(PERL_DECL_PROT)
cea2e8a9
GS
2211s |void |gv_init_sv |GV *gv|I32 sv_type
2212#endif
2213
0cb96387 2214#if defined(PERL_IN_HV_C) || defined(PERL_DECL_PROT)
cea2e8a9
GS
2215s |void |hsplit |HV *hv
2216s |void |hfreeentries |HV *hv
2217s |void |more_he
2218s |HE* |new_he
2219s |void |del_he |HE *p
2220s |HEK* |save_hek |const char *str|I32 len|U32 hash
2221s |void |hv_magic_check |HV *hv|bool *needs_copy|bool *needs_store
2222#endif
2223
0cb96387 2224#if defined(PERL_IN_MG_C) || defined(PERL_DECL_PROT)
cea2e8a9
GS
2225s |void |save_magic |I32 mgs_ix|SV *sv
2226s |int |magic_methpack |SV *sv|MAGIC *mg|char *meth
2227s |int |magic_methcall |SV *sv|MAGIC *mg|char *meth|I32 f \
2228 |int n|SV *val
cea2e8a9
GS
2229#endif
2230
0cb96387 2231#if defined(PERL_IN_OP_C) || defined(PERL_DECL_PROT)
cea2e8a9
GS
2232s |I32 |list_assignment|OP *o
2233s |void |bad_type |I32 n|char *t|char *name|OP *kid
3eb57f73 2234s |void |cop_free |COP *cop
cea2e8a9
GS
2235s |OP* |modkids |OP *o|I32 type
2236s |void |no_bareword_allowed|OP *o
2237s |OP* |no_fh_allowed |OP *o
2238s |OP* |scalarboolean |OP *o
2239s |OP* |too_few_arguments|OP *o|char* name
2240s |OP* |too_many_arguments|OP *o|char* name
acb36ea4 2241s |void |op_clear |OP* o
cea2e8a9 2242s |void |null |OP* o
94f23f41 2243s |PADOFFSET|pad_addlex |SV* name
cea2e8a9
GS
2244s |PADOFFSET|pad_findlex |char* name|PADOFFSET newoff|U32 seq \
2245 |CV* startcv|I32 cx_ix|I32 saweval|U32 flags
2246s |OP* |newDEFSVOP
2247s |OP* |new_logop |I32 type|I32 flags|OP **firstp|OP **otherp
2248s |void |simplify_sort |OP *o
2249s |bool |is_handle_constructor |OP *o|I32 argnum
2250s |char* |gv_ename |GV *gv
1d7c1841 2251s |void |cv_dump |CV *cv
cea2e8a9
GS
2252s |CV* |cv_clone2 |CV *proto|CV *outside
2253s |bool |scalar_mod_type|OP *o|I32 type
09bef843
SB
2254s |OP * |my_kid |OP *o|OP *attrs
2255s |OP * |dup_attrlist |OP *o
2256s |void |apply_attrs |HV *stash|SV *target|OP *attrs
cea2e8a9
GS
2257# if defined(PL_OP_SLAB_ALLOC)
2258s |void* |Slab_Alloc |int m|size_t sz
2259# endif
2260#endif
2261
0cb96387 2262#if defined(PERL_IN_PERL_C) || defined(PERL_DECL_PROT)
cea2e8a9
GS
2263s |void |find_beginning
2264s |void |forbid_setid |char *
9c8a64f0 2265s |void |incpush |char *|int|int
cea2e8a9
GS
2266s |void |init_interp
2267s |void |init_ids
cea2e8a9
GS
2268s |void |init_lexer
2269s |void |init_main_stash
2270s |void |init_perllib
2271s |void |init_postdump_symbols|int|char **|char **
2272s |void |init_predump_symbols
2273rs |void |my_exit_jump
2274s |void |nuke_stacks
2275s |void |open_script |char *|bool|SV *|int *fd
2276s |void |usage |char *
2277s |void |validate_suid |char *|char*|int
cea2e8a9
GS
2278# if defined(IAMSUID)
2279s |int |fd_on_nosuid_fs|int fd
2280# endif
14dd3ad8
GS
2281s |void* |parse_body |char **env|XSINIT_t xsinit
2282s |void* |run_body |I32 oldscope
2283s |void |call_body |OP *myop|int is_eval
2284s |void* |call_list_body |CV *cv
2285#if defined(PERL_FLEXIBLE_EXCEPTIONS)
2286s |void* |vparse_body |va_list args
2287s |void* |vrun_body |va_list args
2288s |void* |vcall_body |va_list args
2289s |void* |vcall_list_body|va_list args
2290#endif
cea2e8a9
GS
2291# if defined(USE_THREADS)
2292s |struct perl_thread * |init_main_thread
2293# endif
2294#endif
2295
0cb96387 2296#if defined(PERL_IN_PP_C) || defined(PERL_DECL_PROT)
cea2e8a9
GS
2297s |void |doencodes |SV* sv|char* s|I32 len
2298s |SV* |refto |SV* sv
2299s |U32 |seed
2300s |SV* |mul128 |SV *sv|U8 m
2301s |SV* |is_an_int |char *s|STRLEN l
2302s |int |div128 |SV *pnum|bool *done
2303#endif
2304
0cb96387 2305#if defined(PERL_IN_PP_CTL_C) || defined(PERL_DECL_PROT)
cea2e8a9 2306s |OP* |docatch |OP *o
14dd3ad8
GS
2307s |void* |docatch_body
2308#if defined(PERL_FLEXIBLE_EXCEPTIONS)
2309s |void* |vdocatch_body |va_list args
2310#endif
cea2e8a9
GS
2311s |OP* |dofindlabel |OP *o|char *label|OP **opstack|OP **oplimit
2312s |void |doparseform |SV *sv
2313s |I32 |dopoptoeval |I32 startingblock
2314s |I32 |dopoptolabel |char *label
2315s |I32 |dopoptoloop |I32 startingblock
2316s |I32 |dopoptosub |I32 startingblock
2317s |I32 |dopoptosub_at |PERL_CONTEXT* cxstk|I32 startingblock
2318s |void |free_closures
2319s |void |save_lines |AV *array|SV *sv
2320s |OP* |doeval |int gimme|OP** startop
2321s |PerlIO *|doopen_pmc |const char *name|const char *mode
2322s |void |qsortsv |SV ** array|size_t num_elts|SVCOMPARE_t f
cea2e8a9
GS
2323#endif
2324
0cb96387 2325#if defined(PERL_IN_PP_HOT_C) || defined(PERL_DECL_PROT)
10c8fecd
GS
2326s |int |do_maybe_phash |AV *ary|SV **lelem|SV **firstlelem \
2327 |SV **relem|SV **lastrelem
2328s |void |do_oddball |HV *hash|SV **relem|SV **firstrelem
cea2e8a9 2329s |CV* |get_db_sub |SV **svp|CV *cv
f5d5a27c 2330s |SV* |method_common |SV* meth|U32* hashp
cea2e8a9
GS
2331#endif
2332
0cb96387 2333#if defined(PERL_IN_PP_SYS_C) || defined(PERL_DECL_PROT)
cea2e8a9 2334s |OP* |doform |CV *cv|GV *gv|OP *retop
7f4774ae 2335s |int |emulate_eaccess|const char* path|Mode_t mode
cea2e8a9
GS
2336# if !defined(HAS_MKDIR) || !defined(HAS_RMDIR)
2337s |int |dooneliner |char *cmd|char *filename
2338# endif
2339#endif
2340
0cb96387 2341#if defined(PERL_IN_REGCOMP_C) || defined(PERL_DECL_PROT)
cea2e8a9
GS
2342s |regnode*|reg |I32|I32 *
2343s |regnode*|reganode |U8|U32
2344s |regnode*|regatom |I32 *
2345s |regnode*|regbranch |I32 *|I32
cea2e8a9
GS
2346s |void |reguni |UV|char *|I32*
2347s |regnode*|regclass
2348s |regnode*|regclassutf8
2349s |I32 |regcurly |char *
2350s |regnode*|reg_node |U8
2351s |regnode*|regpiece |I32 *
2352s |void |reginsert |U8|regnode *
2353s |void |regoptail |regnode *|regnode *
2354s |void |regtail |regnode *|regnode *
2355s |char*|regwhite |char *|char *
2356s |char*|nextchar
2357s |regnode*|dumpuntil |regnode *start|regnode *node \
2358 |regnode *last|SV* sv|I32 l
1d7c1841 2359s |void |put_byte |SV* sv|int c
82ba1be6 2360s |void |scan_commit |struct scan_data_t *data
1d7c1841
GS
2361s |void |cl_anything |struct regnode_charclass_class *cl
2362s |int |cl_is_anything |struct regnode_charclass_class *cl
2363s |void |cl_init |struct regnode_charclass_class *cl
2364s |void |cl_init_zero |struct regnode_charclass_class *cl
2365s |void |cl_and |struct regnode_charclass_class *cl \
2366 |struct regnode_charclass_class *and_with
2367s |void |cl_or |struct regnode_charclass_class *cl \
2368 |struct regnode_charclass_class *or_with
cea2e8a9 2369s |I32 |study_chunk |regnode **scanp|I32 *deltap \
82ba1be6
IZ
2370 |regnode *last|struct scan_data_t *data \
2371 |U32 flags
cea2e8a9
GS
2372s |I32 |add_data |I32 n|char *s
2373rs |void|re_croak2 |const char* pat1|const char* pat2|...
b8c5462f
JH
2374s |I32 |regpposixcc |I32 value
2375s |void |checkposixcc
cea2e8a9
GS
2376#endif
2377
0cb96387 2378#if defined(PERL_IN_REGEXEC_C) || defined(PERL_DECL_PROT)
cea2e8a9
GS
2379s |I32 |regmatch |regnode *prog
2380s |I32 |regrepeat |regnode *p|I32 max
2381s |I32 |regrepeat_hard |regnode *p|I32 max|I32 *lp
2382s |I32 |regtry |regexp *prog|char *startpos
1d7c1841 2383s |bool |reginclass |regnode *p|I32 c
cea2e8a9
GS
2384s |bool |reginclassutf8 |regnode *f|U8* p
2385s |CHECKPOINT|regcppush |I32 parenfloor
2386s |char*|regcppop
2387s |char*|regcp_set_to |I32 ss
2388s |void |cache_re |regexp *prog
cea2e8a9
GS
2389s |U8* |reghop |U8 *pos|I32 off
2390s |U8* |reghopmaybe |U8 *pos|I32 off
1d7c1841 2391s |char* |find_byclass |regexp * prog|regnode *c|char *s|char *strend|char *startpos|I32 norun
cea2e8a9
GS
2392#endif
2393
0cb96387 2394#if defined(PERL_IN_RUN_C) || defined(PERL_DECL_PROT)
cea2e8a9
GS
2395s |void |debprof |OP *o
2396#endif
2397
0cb96387 2398#if defined(PERL_IN_SCOPE_C) || defined(PERL_DECL_PROT)
cea2e8a9
GS
2399s |SV* |save_scalar_at |SV **sptr
2400#endif
2401
0cb96387 2402#if defined(PERL_IN_SV_C) || defined(PERL_DECL_PROT)
cea2e8a9
GS
2403s |IV |asIV |SV* sv
2404s |UV |asUV |SV* sv
2405s |SV* |more_sv
2406s |void |more_xiv
2407s |void |more_xnv
2408s |void |more_xpv
932e9ff9
VB
2409s |void |more_xpviv
2410s |void |more_xpvnv
2411s |void |more_xpvcv
2412s |void |more_xpvav
2413s |void |more_xpvhv
2414s |void |more_xpvmg
2415s |void |more_xpvlv
2416s |void |more_xpvbm
cea2e8a9
GS
2417s |void |more_xrv
2418s |XPVIV* |new_xiv
2419s |XPVNV* |new_xnv
2420s |XPV* |new_xpv
932e9ff9
VB
2421s |XPVIV* |new_xpviv
2422s |XPVNV* |new_xpvnv
2423s |XPVCV* |new_xpvcv
2424s |XPVAV* |new_xpvav
2425s |XPVHV* |new_xpvhv
2426s |XPVMG* |new_xpvmg
2427s |XPVLV* |new_xpvlv
2428s |XPVBM* |new_xpvbm
cea2e8a9
GS
2429s |XRV* |new_xrv
2430s |void |del_xiv |XPVIV* p
2431s |void |del_xnv |XPVNV* p
2432s |void |del_xpv |XPV* p
932e9ff9
VB
2433s |void |del_xpviv |XPVIV* p
2434s |void |del_xpvnv |XPVNV* p
2435s |void |del_xpvcv |XPVCV* p
2436s |void |del_xpvav |XPVAV* p
2437s |void |del_xpvhv |XPVHV* p
2438s |void |del_xpvmg |XPVMG* p
2439s |void |del_xpvlv |XPVLV* p
2440s |void |del_xpvbm |XPVBM* p
cea2e8a9
GS
2441s |void |del_xrv |XRV* p
2442s |void |sv_unglob |SV* sv
cea2e8a9
GS
2443s |void |not_a_number |SV *sv
2444s |void |visit |SVFUNC_t f
cea2e8a9
GS
2445s |void |sv_add_backref |SV *tsv|SV *sv
2446s |void |sv_del_backref |SV *sv
2447# if defined(DEBUGGING)
2448s |void |del_sv |SV *p
2449# endif
2450#endif
2451
0cb96387 2452#if defined(PERL_IN_TOKE_C) || defined(PERL_DECL_PROT)
cea2e8a9
GS
2453s |void |check_uni
2454s |void |force_next |I32 type
2455s |char* |force_version |char *start
2456s |char* |force_word |char *start|int token|int check_keyword \
2457 |int allow_pack|int allow_tick
2458s |SV* |tokeq |SV *sv
2459s |char* |scan_const |char *start
2460s |char* |scan_formline |char *s
2461s |char* |scan_heredoc |char *s
2462s |char* |scan_ident |char *s|char *send|char *dest \
2463 |STRLEN destlen|I32 ck_uni
2464s |char* |scan_inputsymbol|char *start
2465s |char* |scan_pat |char *start|I32 type
09bef843 2466s |char* |scan_str |char *start|int keep_quoted|int keep_delims
cea2e8a9
GS
2467s |char* |scan_subst |char *start
2468s |char* |scan_trans |char *start
2469s |char* |scan_word |char *s|char *dest|STRLEN destlen \
2470 |int allow_package|STRLEN *slp
2471s |char* |skipspace |char *s
2472s |void |checkcomma |char *s|char *name|char *what
2473s |void |force_ident |char *s|int kind
2474s |void |incline |char *s
2475s |int |intuit_method |char *s|GV *gv
2476s |int |intuit_more |char *s
1d7c1841 2477s |I32 |lop |I32 f|int x|char *s
cea2e8a9
GS
2478s |void |missingterm |char *s
2479s |void |no_op |char *what|char *s
2480s |void |set_csh
2481s |I32 |sublex_done
2482s |I32 |sublex_push
2483s |I32 |sublex_start
2484s |char * |filter_gets |SV *sv|PerlIO *fp|STRLEN append
a5e3f89e 2485s |HV * |find_in_my_stash|char *pkgname|I32 len
1d7c1841
GS
2486s |SV* |new_constant |char *s|STRLEN len|const char *key|SV *sv \
2487 |SV *pv|const char *type
cea2e8a9
GS
2488s |int |ao |int toketype
2489s |void |depcom
2490s |char* |incl_perldb
155aba94 2491#if 0
cea2e8a9
GS
2492s |I32 |utf16_textfilter|int idx|SV *sv|int maxlen
2493s |I32 |utf16rev_textfilter|int idx|SV *sv|int maxlen
155aba94 2494#endif
cea2e8a9
GS
2495# if defined(CRIPPLED_CC)
2496s |int |uni |I32 f|char *s
2497# endif
c39cd008
GS
2498# if defined(PERL_CR_FILTER)
2499s |I32 |cr_textfilter |int idx|SV *sv|int maxlen
cea2e8a9
GS
2500# endif
2501#endif
2502
0cb96387 2503#if defined(PERL_IN_UNIVERSAL_C) || defined(PERL_DECL_PROT)
cea2e8a9
GS
2504s |SV*|isa_lookup |HV *stash|const char *name|int len|int level
2505#endif
2506
0cb96387 2507#if defined(PERL_IN_UTIL_C) || defined(PERL_DECL_PROT)
cea2e8a9 2508s |SV* |mess_alloc
cea2e8a9
GS
2509# if defined(LEAKTEST)
2510s |void |xstat |int
2511# endif
2512#endif
1d7c1841 2513
7a94d673
DS
2514Arp |SV* |lock |SV *sv
2515
1d7c1841
GS
2516#if defined(PERL_OBJECT)
2517};
2518#endif