[perl5.git] / embed.pl

#!/usr/bin/perl -w

require 5.003;

# XXX others that may need adding
#       warnhook
#       hints
#       copline
my @extvars = qw(sv_undef sv_yes sv_no na dowarn
                 curcop compiling 
                 tainting tainted stack_base stack_sp sv_arenaroot
		 no_modify
                 curstash DBsub DBsingle debstash
                 rsfp 
                 stdingv
		 defgv
		 errgv
		 rsfp_filters
		 perldb
		 diehook
		 dirty
		 perl_destruct_level
                );

sub readsyms (\%$) {
    my ($syms, $file) = @_;
    local (*FILE, $_);
    open(FILE, "< $file")
	or die "embed.pl: Can't open $file: $!\n";
    while (<FILE>) {
	s/[ \t]*#.*//;		# Delete comments.
	if (/^\s*(\S+)\s*$/) {
	    my $sym = $1;
	    warn "duplicate symbol $sym while processing $file\n"
		if exists $$syms{$sym};
	    $$syms{$sym} = 1;
	}
    }
    close(FILE);
}

readsyms %global, 'global.sym';
readsyms %global, 'pp.sym';

sub readvars(\%$$@) {
    my ($syms, $file,$pre,$keep_pre) = @_;
    local (*FILE, $_);
    open(FILE, "< $file")
	or die "embed.pl: Can't open $file: $!\n";
    while (<FILE>) {
	s/[ \t]*#.*//;		# Delete comments.
	if (/PERLVARI?C?\($pre(\w+)/) {
	    my $sym = $1;
	    $sym = $pre . $sym if $keep_pre;
	    warn "duplicate symbol $sym while processing $file\n"
		if exists $$syms{$sym};
	    $$syms{$sym} = 1;
	}
    }
    close(FILE);
}

my %intrp;
my %thread;

readvars %intrp,  'intrpvar.h','I';
readvars %thread, 'thrdvar.h','T';
readvars %globvar, 'perlvars.h','G';
readvars %objvar, 'intrpvar.h','pi', 1;

foreach my $sym (sort keys %intrp)
 {
  if (exists $global{$sym})
   {
    delete $global{$sym};
    warn "$sym in {global,pp}.sym as well as intrpvar.h\n";
   }
 }

foreach my $sym (sort keys %globvar)
 {
  if (exists $global{$sym})
   {
    delete $global{$sym};
    warn "$sym in {global,pp}.sym as well as perlvars.h\n";
   }
 }

foreach my $sym (sort keys %thread)
 {
  warn "$sym in intrpvar.h as well as thrdvar.h\n" if exists $intrp{$sym};
  if (exists $global{$sym})
   {
    delete $global{$sym};
    warn "$sym in {global,pp}.sym as well as thrdvar.h\n";
   }
 }

sub undefine ($) {
    my ($sym) = @_;
    "#undef  $sym\n";
}

sub hide ($$) {
    my ($from, $to) = @_;
    my $t = int(length($from) / 8);
    "#define $from" . "\t" x ($t < 3 ? 3 - $t : 1) . "$to\n";
}

sub embed ($) {
    my ($sym) = @_;
    hide($sym, "Perl_$sym");
}

sub embedobj ($) {
    my ($sym) = @_;
    hide($sym, $sym =~ /^perl_/i ? "CPerlObj::$sym" : "CPerlObj::Perl_$sym");
}

sub objxsub_func ($) {
    my ($sym) = @_;
    undefine($sym) . hide($sym, $sym =~ /^perl_/i
			  	? "pPerl->$sym"
				: "pPerl->Perl_$sym");
}

sub objxsub_var ($) {
    my ($sym) = @_;
    undefine("PL_$sym") . hide("PL_$sym", "pPerl->PL_$sym");
}

sub embedvar ($) {
    my ($sym) = @_;
#   hide($sym, "Perl_$sym");
    return '';
}

sub multon ($$$) {
    my ($sym,$pre,$ptr) = @_;
    hide("PL_$sym", "($ptr$pre$sym)");
}
sub multoff ($$) {
    my ($sym,$pre) = @_;
    return hide("PL_$pre$sym", "PL_$sym");
}

unlink 'embed.h';
open(EM, '> embed.h')
    or die "Can't create embed.h: $!\n";

print EM <<'END';
/* !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!! 
   This file is built by embed.pl from global.sym, pp.sym, intrpvar.h,
   perlvars.h and thrdvar.h.  Any changes made here will be lost!
*/

/* (Doing namespace management portably in C is really gross.) */

/* NO_EMBED is no longer supported. i.e. EMBED is always active. */

/* Hide global symbols */

#if !defined(PERL_OBJECT)

END

for $sym (sort keys %global) {
    print EM embed($sym);
}

print EM <<'END';

#else	/* PERL_OBJECT */

END

# XXX these should be in a *.sym file
my @staticfuncs = qw(
    perl_init_i18nl10n
    perl_init_i18nl14n
    perl_new_collate
    perl_new_ctype
    perl_new_numeric
    perl_set_numeric_local
    perl_set_numeric_standard
    perl_construct
    perl_destruct
    perl_atexit
    perl_free
    perl_parse
    perl_run
    perl_get_sv
    perl_get_av
    perl_get_hv
    perl_get_cv
    perl_call_argv
    perl_call_pv
    perl_call_method
    perl_call_sv
    perl_eval_pv
    perl_eval_sv
    perl_require_pv

    hsplit
    hfreeentries
    more_he
    new_he
    del_he
    save_hek
    mess_alloc
    gv_init_sv
    save_scalar_at
    asIV
    asUV
    more_sv
    more_xiv
    more_xnv
    more_xpv
    more_xrv
    new_xiv
    new_xnv
    new_xpv
    new_xrv
    del_xiv
    del_xnv
    del_xpv
    del_xrv
    sv_unglob
    avhv_index_sv
    do_report_used
    do_clean_objs
    do_clean_named_objs
    do_clean_all
    not_a_number
    my_safemalloc
    visit
    qsortsv
    sortcv
    save_magic
    magic_methpack
    magic_methcall
    magic_methcall
    doform
    doencodes
    refto
    seed
    docatch
    docatch_body
    perl_parse_body
    perl_run_body
    perl_call_body
    perl_call_xbody
    call_list_body
    dofindlabel
    doparseform
    dopoptoeval
    dopoptolabel
    dopoptoloop
    dopoptosub
    dopoptosub_at
    save_lines
    doeval
    doopen_pmc
    sv_ncmp
    sv_i_ncmp
    amagic_ncmp
    amagic_i_ncmp
    amagic_cmp
    amagic_cmp_locale
    mul128
    is_an_int
    div128
    runops_standard
    runops_debug
    check_uni
    force_next
    force_version
    force_word
    tokeq
    scan_const
    scan_formline
    scan_heredoc
    scan_ident
    scan_inputsymbol
    scan_pat
    scan_str
    scan_subst
    scan_trans
    scan_word
    skipspace
    checkcomma
    force_ident
    incline
    intuit_method
    intuit_more
    lop
    missingterm
    no_op
    set_csh
    sublex_done
    sublex_push
    sublex_start
    uni
    filter_gets
    new_constant
    ao
    depcom
    win32_textfilter
    incl_perldb
    isa_lookup
    get_db_sub
    list_assignment
    bad_type
    modkids
    no_fh_allowed
    no_bareword_allowed
    scalarboolean
    too_few_arguments
    too_many_arguments
    null
    pad_findlex
    newDEFSVOP
    gv_ename
    cv_clone2
    find_beginning
    forbid_setid
    incpush
    init_interp
    init_ids
    init_debugger
    init_lexer
    init_main_stash
    init_perllib
    init_postdump_symbols
    init_predump_symbols
    my_exit_jump
    nuke_stacks
    open_script
    usage
    validate_suid
    emulate_eaccess
    reg
    reganode
    regatom
    regbranch
    regc
    reguni
    regclass
    regclassutf8
    regcurly
    reg_node
    regpiece
    reginsert
    regoptail
    regset
    regtail
    regwhite
    nextchar
    dumpuntil
    scan_commit
    study_chunk
    add_data
    re_croak2
    regpposixcc
    clear_re
    regmatch
    regrepeat
    regrepeat_hard
    regtry
    reginclass
    reginclassutf8
    regcppush
    regcppop
    regcp_set_to
    cache_re
    restore_pos
    reghop
    reghopmaybe
    dump
    do_aspawn
    debprof
    new_logop
    simplify_sort
    is_handle_constructor
    sv_add_backref
    sv_del_backref
    do_trans_CC_simple
    do_trans_CC_count
    do_trans_CC_complex
    do_trans_UU_simple
    do_trans_UU_count
    do_trans_UU_complex
    do_trans_UC_simple
    do_trans_CU_simple
    do_trans_UC_trivial
    do_trans_CU_trivial
    unwind_handler_stack
    restore_magic
    restore_rsfp
    restore_expect
    restore_lex_expect
    yydestruct
    del_sv
    fprintf
);

for $sym (sort(keys(%global),@staticfuncs)) {
    print EM embedobj($sym);
}

print EM <<'END';

#endif	/* PERL_OBJECT */

/* compatibility stubs */

#define sv_setptrobj(rv,ptr,name)	sv_setref_iv(rv,name,(IV)ptr)
#define sv_setptrref(rv,ptr)		sv_setref_iv(rv,Nullch,(IV)ptr)

END

close(EM);

unlink 'embedvar.h';
open(EM, '> embedvar.h')
    or die "Can't create embedvar.h: $!\n";

print EM <<'END';
/* !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!! 
   This file is built by embed.pl from global.sym, pp.sym, intrpvar.h,
   perlvars.h and thrdvar.h.  Any changes made here will be lost!
*/

/* (Doing namespace management portably in C is really gross.) */

/* Put interpreter-specific symbols into a struct? */

#ifdef MULTIPLICITY

#ifndef USE_THREADS
/* If we do not have threads then per-thread vars are per-interpreter */

END

for $sym (sort keys %thread) {
    print EM multon($sym,'T','PL_curinterp->');
}

print EM <<'END';

#endif /* !USE_THREADS */

/* These are always per-interpreter if there is more than one */

END

for $sym (sort keys %intrp) {
    print EM multon($sym,'I','PL_curinterp->');
}

print EM <<'END';

#else	/* !MULTIPLICITY */

END

for $sym (sort keys %intrp) {
    print EM multoff($sym,'I');
}

print EM <<'END';

#ifndef USE_THREADS

END

for $sym (sort keys %thread) {
    print EM multoff($sym,'T');
}

print EM <<'END';

#endif /* USE_THREADS */

/* Hide what would have been interpreter-specific symbols? */

END

for $sym (sort keys %intrp) {
    print EM embedvar($sym);
}

print EM <<'END';

#ifndef USE_THREADS

END

for $sym (sort keys %thread) {
    print EM embedvar($sym);
}

print EM <<'END';

#endif /* USE_THREADS */
#endif /* MULTIPLICITY */

/* Now same trickey for per-thread variables */

#ifdef USE_THREADS

END

for $sym (sort keys %thread) {
    print EM multon($sym,'T','thr->');
}

print EM <<'END';

#endif /* USE_THREADS */

#ifdef PERL_GLOBAL_STRUCT

END

for $sym (sort keys %globvar) {
    print EM multon($sym,'G','PL_Vars.');
}

print EM <<'END';

#else /* !PERL_GLOBAL_STRUCT */

END

for $sym (sort keys %globvar) {
    print EM multoff($sym,'G');
}

print EM <<'END';

END

for $sym (sort keys %globvar) {
    print EM embedvar($sym);
}

print EM <<'END';

#endif /* PERL_GLOBAL_STRUCT */

END

print EM <<'END';

#ifdef PERL_POLLUTE		/* disabled by default in 5.006 */

END

for $sym (sort @extvars) {
    print EM hide($sym,"PL_$sym");
}

print EM <<'END';

#endif /* PERL_POLLUTE */
END


close(EM);

unlink 'objXSUB.h';
open(OBX, '> objXSUB.h')
    or die "Can't create objXSUB.h: $!\n";

print OBX <<'EOT';
/* !!!!!!!   DO NOT EDIT THIS FILE   !!!!!!! 
   This file is built by embed.pl from global.sym, pp.sym, intrpvar.h,
   perlvars.h and thrdvar.h.  Any changes made here will be lost!
*/

#ifndef __objXSUB_h__
#define __objXSUB_h__

/* Variables */

EOT

foreach my $sym (sort(keys(%intrp),
		      keys(%thread),
		      keys(%globvar),
		      keys(%objvar)))
{
    print OBX objxsub_var($sym);
}

print OBX <<'EOT';

/* Functions */

EOT


for $sym (sort(keys(%global),@staticfuncs)) {
    print OBX objxsub_func($sym);
}


print OBX <<'EOT';

#endif	/* __objXSUB_h__ */
EOT

close(OBX);
Commit	Line	Data
5f05dabc	1	#!/usr/bin/perl -w
e50aee73	2
5f05dabc	3	require 5.003;
5f05dabc	4
709f4e38 GS	5	# XXX others that may need adding
	6	# warnhook
	7	# hints
	8	# copline
84fee439 NIS	9	my @extvars = qw(sv_undef sv_yes sv_no na dowarn
	10	curcop compiling
	11	tainting tainted stack_base stack_sp sv_arenaroot
256a4781	12	no_modify
84fee439 NIS	13	curstash DBsub DBsingle debstash
	14	rsfp
	15	stdingv
6b88bc9c GS	16	defgv
6b88bc9c GS	17	errgv
3070f6ec GS	18	rsfp_filters
3070f6ec GS	19	perldb
709f4e38 GS	20	diehook
	21	dirty
	22	perl_destruct_level
84fee439 NIS	23	);
84fee439 NIS	24
5f05dabc	25	sub readsyms (\%$) {
5f05dabc	26	my ($syms, $file) = @_;
5f05dabc	27	local (*FILE, $_);
	28	open(FILE, "< $file")
	29	or die "embed.pl: Can't open $file: $!\n";
	30	while (<FILE>) {
	31	s/[ \t]#.//; # Delete comments.
	32	if (/^\s(\S+)\s$/) {
22c35a8c GS	33	my $sym = $1;
	34	warn "duplicate symbol $sym while processing $file\n"
	35	if exists $$syms{$sym};
	36	$$syms{$sym} = 1;
5f05dabc	37	}
	38	}
	39	close(FILE);
	40	}
	41
	42	readsyms %global, 'global.sym';
22c35a8c	43	readsyms %global, 'pp.sym';
5f05dabc	44
c6af7a1a GS	45	sub readvars(\%$$@) {
c6af7a1a GS	46	my ($syms, $file,$pre,$keep_pre) = @_;
d4cce5f1 NIS	47	local (*FILE, $_);
	48	open(FILE, "< $file")
	49	or die "embed.pl: Can't open $file: $!\n";
	50	while (<FILE>) {
	51	s/[ \t]#.//; # Delete comments.
3fe35a81	52	if (/PERLVARI?C?\($pre(\w+)/) {
22c35a8c	53	my $sym = $1;
c6af7a1a	54	$sym = $pre . $sym if $keep_pre;
22c35a8c GS	55	warn "duplicate symbol $sym while processing $file\n"
	56	if exists $$syms{$sym};
	57	$$syms{$sym} = 1;
d4cce5f1 NIS	58	}
	59	}
	60	close(FILE);
	61	}
	62
	63	my %intrp;
	64	my %thread;
	65
	66	readvars %intrp, 'intrpvar.h','I';
	67	readvars %thread, 'thrdvar.h','T';
22239a37	68	readvars %globvar, 'perlvars.h','G';
c6af7a1a	69	readvars %objvar, 'intrpvar.h','pi', 1;
d4cce5f1 NIS	70
	71	foreach my $sym (sort keys %intrp)
	72	{
d4cce5f1 NIS	73	if (exists $global{$sym})
	74	{
	75	delete $global{$sym};
22c35a8c	76	warn "$sym in {global,pp}.sym as well as intrpvar.h\n";
d4cce5f1 NIS	77	}
	78	}
	79
22239a37 NIS	80	foreach my $sym (sort keys %globvar)
	81	{
	82	if (exists $global{$sym})
	83	{
	84	delete $global{$sym};
22c35a8c	85	warn "$sym in {global,pp}.sym as well as perlvars.h\n";
22239a37 NIS	86	}
	87	}
	88
d4cce5f1 NIS	89	foreach my $sym (sort keys %thread)
d4cce5f1 NIS	90	{
34b58025	91	warn "$sym in intrpvar.h as well as thrdvar.h\n" if exists $intrp{$sym};
d4cce5f1 NIS	92	if (exists $global{$sym})
	93	{
	94	delete $global{$sym};
22c35a8c	95	warn "$sym in {global,pp}.sym as well as thrdvar.h\n";
d4cce5f1 NIS	96	}
	97	}
	98
c6af7a1a GS	99	sub undefine ($) {
	100	my ($sym) = @_;
	101	"#undef $sym\n";
	102	}
	103
5f05dabc	104	sub hide ($$) {
	105	my ($from, $to) = @_;
	106	my $t = int(length($from) / 8);
	107	"#define $from" . "\t" x ($t < 3 ? 3 - $t : 1) . "$to\n";
	108	}
c6af7a1a	109
5f05dabc	110	sub embed ($) {
	111	my ($sym) = @_;
	112	hide($sym, "Perl_$sym");
	113	}
c6af7a1a	114
22c35a8c GS	115	sub embedobj ($) {
	116	my ($sym) = @_;
	117	hide($sym, $sym =~ /^perl_/i ? "CPerlObj::$sym" : "CPerlObj::Perl_$sym");
	118	}
c6af7a1a GS	119
	120	sub objxsub_func ($) {
	121	my ($sym) = @_;
	122	undefine($sym) . hide($sym, $sym =~ /^perl_/i
	123	? "pPerl->$sym"
	124	: "pPerl->Perl_$sym");
	125	}
	126
	127	sub objxsub_var ($) {
	128	my ($sym) = @_;
	129	undefine("PL_$sym") . hide("PL_$sym", "pPerl->PL_$sym");
	130	}
	131
3280af22 NIS	132	sub embedvar ($) {
	133	my ($sym) = @_;
	134	# hide($sym, "Perl_$sym");
	135	return '';
	136	}
	137
d4cce5f1 NIS	138	sub multon ($$$) {
d4cce5f1 NIS	139	my ($sym,$pre,$ptr) = @_;
3280af22	140	hide("PL_$sym", "($ptr$pre$sym)");
5f05dabc	141	}
d4cce5f1 NIS	142	sub multoff ($$) {
d4cce5f1 NIS	143	my ($sym,$pre) = @_;
533c011a	144	return hide("PL_$pre$sym", "PL_$sym");
5f05dabc	145	}
	146
	147	unlink 'embed.h';
	148	open(EM, '> embed.h')
	149	or die "Can't create embed.h: $!\n";
e50aee73 AD	150
e50aee73 AD	151	print EM <<'END';
76b72cf1	152	/* !!!!!!! DO NOT EDIT THIS FILE !!!!!!!
22c35a8c	153	This file is built by embed.pl from global.sym, pp.sym, intrpvar.h,
c6af7a1a	154	perlvars.h and thrdvar.h. Any changes made here will be lost!
76b72cf1	155	*/
e50aee73 AD	156
	157	/* (Doing namespace management portably in C is really gross.) */
	158
22c35a8c	159	/* NO_EMBED is no longer supported. i.e. EMBED is always active. */
820c3be9	160
22c35a8c	161	/* Hide global symbols */
5f05dabc	162
22c35a8c	163	#if !defined(PERL_OBJECT)
e50aee73	164
e50aee73 AD	165	END
e50aee73 AD	166
5f05dabc	167	for $sym (sort keys %global) {
dc86dda3	168	print EM embed($sym);
e50aee73 AD	169	}
e50aee73 AD	170
e50aee73 AD	171	print EM <<'END';
e50aee73 AD	172
22c35a8c GS	173	#else /* PERL_OBJECT */
	174
	175	END
	176
	177	# XXX these should be in a *.sym file
c6af7a1a	178	my @staticfuncs = qw(
22c35a8c GS	179	perl_init_i18nl10n
	180	perl_init_i18nl14n
	181	perl_new_collate
	182	perl_new_ctype
	183	perl_new_numeric
	184	perl_set_numeric_local
	185	perl_set_numeric_standard
	186	perl_construct
	187	perl_destruct
	188	perl_atexit
	189	perl_free
	190	perl_parse
	191	perl_run
	192	perl_get_sv
	193	perl_get_av
	194	perl_get_hv
	195	perl_get_cv
	196	perl_call_argv
	197	perl_call_pv
	198	perl_call_method
	199	perl_call_sv
	200	perl_eval_pv
	201	perl_eval_sv
	202	perl_require_pv
	203
	204	hsplit
	205	hfreeentries
	206	more_he
	207	new_he
	208	del_he
	209	save_hek
	210	mess_alloc
	211	gv_init_sv
	212	save_scalar_at
	213	asIV
	214	asUV
	215	more_sv
	216	more_xiv
	217	more_xnv
	218	more_xpv
	219	more_xrv
	220	new_xiv
	221	new_xnv
	222	new_xpv
	223	new_xrv
	224	del_xiv
	225	del_xnv
	226	del_xpv
	227	del_xrv
22c35a8c	228	sv_unglob
22c35a8c GS	229	avhv_index_sv
	230	do_report_used
	231	do_clean_objs
	232	do_clean_named_objs
	233	do_clean_all
	234	not_a_number
	235	my_safemalloc
	236	visit
	237	qsortsv
	238	sortcv
	239	save_magic
	240	magic_methpack
	241	magic_methcall
	242	magic_methcall
	243	doform
	244	doencodes
	245	refto
	246	seed
	247	docatch
a6c40364 GS	248	docatch_body
	249	perl_parse_body
	250	perl_run_body
	251	perl_call_body
	252	perl_call_xbody
	253	call_list_body
22c35a8c GS	254	dofindlabel
	255	doparseform
	256	dopoptoeval
	257	dopoptolabel
	258	dopoptoloop
	259	dopoptosub
	260	dopoptosub_at
	261	save_lines
	262	doeval
a6c40364	263	doopen_pmc
bda4119b GS	264	sv_ncmp
	265	sv_i_ncmp
	266	amagic_ncmp
	267	amagic_i_ncmp
22c35a8c GS	268	amagic_cmp
	269	amagic_cmp_locale
	270	mul128
	271	is_an_int
	272	div128
	273	runops_standard
	274	runops_debug
	275	check_uni
	276	force_next
	277	force_version
	278	force_word
	279	tokeq
	280	scan_const
	281	scan_formline
	282	scan_heredoc
	283	scan_ident
	284	scan_inputsymbol
	285	scan_pat
	286	scan_str
	287	scan_subst
	288	scan_trans
	289	scan_word
	290	skipspace
	291	checkcomma
	292	force_ident
	293	incline
	294	intuit_method
	295	intuit_more
	296	lop
	297	missingterm
	298	no_op
	299	set_csh
	300	sublex_done
	301	sublex_push
	302	sublex_start
	303	uni
	304	filter_gets
	305	new_constant
	306	ao
	307	depcom
	308	win32_textfilter
	309	incl_perldb
	310	isa_lookup
	311	get_db_sub
	312	list_assignment
	313	bad_type
	314	modkids
	315	no_fh_allowed
7a52d87a	316	no_bareword_allowed
22c35a8c GS	317	scalarboolean
	318	too_few_arguments
	319	too_many_arguments
	320	null
	321	pad_findlex
	322	newDEFSVOP
	323	gv_ename
	324	cv_clone2
	325	find_beginning
	326	forbid_setid
	327	incpush
	328	init_interp
	329	init_ids
	330	init_debugger
	331	init_lexer
	332	init_main_stash
	333	init_perllib
	334	init_postdump_symbols
	335	init_predump_symbols
	336	my_exit_jump
	337	nuke_stacks
	338	open_script
	339	usage
	340	validate_suid
	341	emulate_eaccess
	342	reg
	343	reganode
	344	regatom
	345	regbranch
	346	regc
	347	reguni
	348	regclass
	349	regclassutf8
	350	regcurly
	351	reg_node
	352	regpiece
	353	reginsert
	354	regoptail
	355	regset
	356	regtail
	357	regwhite
	358	nextchar
	359	dumpuntil
	360	scan_commit
	361	study_chunk
	362	add_data
	363	re_croak2
eb1ab10a	364	regpposixcc
4327152a	365	clear_re
22c35a8c GS	366	regmatch
	367	regrepeat
	368	regrepeat_hard
	369	regtry
	370	reginclass
	371	reginclassutf8
	372	regcppush
	373	regcppop
	374	regcp_set_to
	375	cache_re
9661b544	376	restore_pos
22c35a8c GS	377	reghop
	378	reghopmaybe
	379	dump
	380	do_aspawn
	381	debprof
22c35a8c	382	new_logop
bda4119b	383	simplify_sort
35cd451c	384	is_handle_constructor
810b8aa5 GS	385	sv_add_backref
810b8aa5 GS	386	sv_del_backref
22c35a8c GS	387	do_trans_CC_simple
	388	do_trans_CC_count
	389	do_trans_CC_complex
	390	do_trans_UU_simple
	391	do_trans_UU_count
	392	do_trans_UU_complex
	393	do_trans_UC_simple
	394	do_trans_CU_simple
	395	do_trans_UC_trivial
	396	do_trans_CU_trivial
	397	unwind_handler_stack
	398	restore_magic
	399	restore_rsfp
	400	restore_expect
	401	restore_lex_expect
	402	yydestruct
	403	del_sv
	404	fprintf
	405	);
	406
c6af7a1a	407	for $sym (sort(keys(%global),@staticfuncs)) {
22c35a8c GS	408	print EM embedobj($sym);
	409	}
	410
	411	print EM <<'END';
	412
	413	#endif /* PERL_OBJECT */
e50aee73	414
db5cf5a9 GS	415	/* compatibility stubs */
	416
	417	#define sv_setptrobj(rv,ptr,name) sv_setref_iv(rv,name,(IV)ptr)
	418	#define sv_setptrref(rv,ptr) sv_setref_iv(rv,Nullch,(IV)ptr)
	419
d4cce5f1 NIS	420	END
	421
	422	close(EM);
	423
	424	unlink 'embedvar.h';
	425	open(EM, '> embedvar.h')
	426	or die "Can't create embedvar.h: $!\n";
	427
	428	print EM <<'END';
	429	/* !!!!!!! DO NOT EDIT THIS FILE !!!!!!!
22c35a8c	430	This file is built by embed.pl from global.sym, pp.sym, intrpvar.h,
c6af7a1a	431	perlvars.h and thrdvar.h. Any changes made here will be lost!
d4cce5f1 NIS	432	*/
	433
	434	/* (Doing namespace management portably in C is really gross.) */
	435
5f05dabc	436	/* Put interpreter-specific symbols into a struct? */
e50aee73 AD	437
	438	#ifdef MULTIPLICITY
	439
d4cce5f1 NIS	440	#ifndef USE_THREADS
	441	/* If we do not have threads then per-thread vars are per-interpreter */
	442
e50aee73 AD	443	END
e50aee73 AD	444
d4cce5f1	445	for $sym (sort keys %thread) {
8f872242	446	print EM multon($sym,'T','PL_curinterp->');
d4cce5f1 NIS	447	}
	448
	449	print EM <<'END';
	450
	451	#endif /* !USE_THREADS */
	452
	453	/* These are always per-interpreter if there is more than one */
	454
	455	END
	456
	457	for $sym (sort keys %intrp) {
8f872242	458	print EM multon($sym,'I','PL_curinterp->');
760ac839	459	}
760ac839	460
55497cff	461	print EM <<'END';
55497cff	462
5f05dabc	463	#else /* !MULTIPLICITY */
55497cff	464
55497cff	465	END
760ac839	466
d4cce5f1 NIS	467	for $sym (sort keys %intrp) {
d4cce5f1 NIS	468	print EM multoff($sym,'I');
e50aee73	469	}
e50aee73	470
56d28764 CS	471	print EM <<'END';
56d28764 CS	472
d4cce5f1 NIS	473	#ifndef USE_THREADS
	474
	475	END
	476
	477	for $sym (sort keys %thread) {
	478	print EM multoff($sym,'T');
	479	}
	480
	481	print EM <<'END';
	482
	483	#endif /* USE_THREADS */
	484
	485	/* Hide what would have been interpreter-specific symbols? */
5f05dabc	486
56d28764	487	END
e50aee73	488
d4cce5f1	489	for $sym (sort keys %intrp) {
3280af22	490	print EM embedvar($sym);
d4cce5f1 NIS	491	}
	492
	493	print EM <<'END';
	494
	495	#ifndef USE_THREADS
	496
	497	END
	498
	499	for $sym (sort keys %thread) {
3280af22	500	print EM embedvar($sym);
5f05dabc	501	}
	502
	503	print EM <<'END';
	504
d4cce5f1	505	#endif /* USE_THREADS */
e50aee73	506	#endif /* MULTIPLICITY */
d4cce5f1 NIS	507
	508	/* Now same trickey for per-thread variables */
	509
	510	#ifdef USE_THREADS
	511
	512	END
	513
	514	for $sym (sort keys %thread) {
22239a37	515	print EM multon($sym,'T','thr->');
d4cce5f1 NIS	516	}
	517
	518	print EM <<'END';
	519
	520	#endif /* USE_THREADS */
	521
22239a37 NIS	522	#ifdef PERL_GLOBAL_STRUCT
	523
	524	END
	525
	526	for $sym (sort keys %globvar) {
533c011a	527	print EM multon($sym,'G','PL_Vars.');
22239a37 NIS	528	}
	529
	530	print EM <<'END';
	531
	532	#else /* !PERL_GLOBAL_STRUCT */
	533
	534	END
	535
	536	for $sym (sort keys %globvar) {
	537	print EM multoff($sym,'G');
	538	}
	539
	540	print EM <<'END';
	541
22239a37 NIS	542	END
	543
	544	for $sym (sort keys %globvar) {
3280af22	545	print EM embedvar($sym);
22239a37 NIS	546	}
	547
	548	print EM <<'END';
	549
22239a37 NIS	550	#endif /* PERL_GLOBAL_STRUCT */
22239a37 NIS	551
e50aee73 AD	552	END
e50aee73 AD	553
84fee439 NIS	554	print EM <<'END';
84fee439 NIS	555
db5cf5a9	556	#ifdef PERL_POLLUTE /* disabled by default in 5.006 */
84fee439 NIS	557
	558	END
	559
	560	for $sym (sort @extvars) {
	561	print EM hide($sym,"PL_$sym");
	562	}
	563
	564	print EM <<'END';
	565
db5cf5a9	566	#endif /* PERL_POLLUTE */
84fee439 NIS	567	END
	568
	569
3fe35a81	570	close(EM);
c6af7a1a GS	571
	572	unlink 'objXSUB.h';
	573	open(OBX, '> objXSUB.h')
	574	or die "Can't create objXSUB.h: $!\n";
	575
	576	print OBX <<'EOT';
	577	/* !!!!!!! DO NOT EDIT THIS FILE !!!!!!!
	578	This file is built by embed.pl from global.sym, pp.sym, intrpvar.h,
	579	perlvars.h and thrdvar.h. Any changes made here will be lost!
	580	*/
	581
	582	#ifndef __objXSUB_h__
	583	#define __objXSUB_h__
	584
	585	/* Variables */
	586
	587	EOT
	588
	589	foreach my $sym (sort(keys(%intrp),
	590	keys(%thread),
	591	keys(%globvar),
	592	keys(%objvar)))
	593	{
	594	print OBX objxsub_var($sym);
	595	}
	596
	597	print OBX <<'EOT';
	598
	599	/* Functions */
	600
	601	EOT
	602
	603
	604	for $sym (sort(keys(%global),@staticfuncs)) {
	605	print OBX objxsub_func($sym);
	606	}
	607
	608
	609	print OBX <<'EOT';
	610
	611	#endif /* __objXSUB_h__ */
	612	EOT
	613
	614	close(OBX);