3 open(EM, ">embed.h") || die "Can't create embed.h: $!\n";
6 /* !!!!!!! DO NOT EDIT THIS FILE !!!!!!!
7 This file is built by embed.pl from global.sym and interp.sym.
8 Any changes made here will be lost
11 /* (Doing namespace management portably in C is really gross.) */
13 /* EMBED has no run-time penalty, but helps keep the Perl namespace
14 from colliding with that used by other libraries pulled in
15 by extensions or by embedding perl. Allow a cc -DNO_EMBED
16 override, however, to keep binary compatability with previous
25 /* globals we need to hide from the world */
28 open(GL, "<global.sym") || die "Can't open global.sym: $!\n";
31 s/[ \t]*#.*//; # Delete comments.
33 s/^\s*(\S+).*$/#define $1\t\tPerl_$1/;
35 s/(................\t)\t/$1/;
39 close(GL) || warn "Can't close global.sym: $!\n";
45 /* Put interpreter specific symbols into a struct? */
51 open(INT, "<interp.sym") || die "Can't open interp.sym: $!\n";
53 s/[ \t]*#.*//; # Delete comments.
55 s/^\s*(\S+).*$/#define $1\t\t(curinterp->I$1)/;
56 s/(................\t)\t/$1/;
59 close(INT) || warn "Can't close interp.sym: $!\n";
63 #else /* not multiple, so translate interpreter symbols the other way... */
67 open(INT, "<interp.sym") || die "Can't open interp.sym: $!\n";
69 s/[ \t]*#.*//; # Delete comments.
71 s/^\s*(\S+).*$/#define I$1\t\t$1/;
72 s/(................\t)\t/$1/;
75 close(INT) || warn "Can't close interp.sym: $!\n";
79 open(INT, "<interp.sym") || die "Can't open interp.sym: $!\n";
81 s/[ \t]*#.*//; # Delete comments.
83 s/^\s*(\S+).*$/#define $1\t\tPerl_$1/;
84 s/(................\t)\t/$1/;
87 close(INT) || warn "Can't close interp.sym: $!\n";
91 #endif /* MULTIPLICITY */