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