This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Make EMBED the default, unless overridden by -DNO_EMBED
[perl5.git] / embed.pl
1 #!/usr/bin/perl
2
3 open(EM, ">embed.h") || die "Can't create embed.h: $!\n";
4
5 print EM <<'END';
6 /* This file is derived from global.sym and interp.sym */
7
8 /* (Doing namespace management portably in C is really gross.) */
9
10 /*  EMBED has no run-time penalty, but helps keep the Perl namespace
11     from colliding with that used by other libraries pulled in
12     by extensions or by embedding perl.  Allow a cc -DNO_EMBED
13     override, however, to keep binary compatability with previous
14     versions of perl.
15 */
16 #ifndef NO_EMBED
17 #  define EMBED 1 
18 #endif
19
20 #ifdef EMBED
21
22 /* globals we need to hide from the world */
23 END
24
25 open(GL, "<global.sym") || die "Can't open global.sym: $!\n";
26
27 while(<GL>) {
28         s/[ \t]*#.*//;          # Delete comments.
29         next unless /\S/;
30         s/(.*)/#define $1\t\tPerl_$1/;
31         s/(................\t)\t/$1/;
32         print EM $_;
33 }
34
35 close(GL) || warn "Can't close global.sym: $!\n";
36
37 print EM <<'END';
38
39 #endif /* EMBED */
40
41 /* Put interpreter specific symbols into a struct? */
42
43 #ifdef MULTIPLICITY
44
45 END
46
47 open(INT, "<interp.sym") || die "Can't open interp.sym: $!\n";
48 while (<INT>) {
49         s/[ \t]*#.*//;          # Delete comments.
50         next unless /\S/;
51         s/(.*)/#define $1\t\t(curinterp->I$1)/;
52         s/(................\t)\t/$1/;
53         print EM $_;
54 }
55 close(INT) || warn "Can't close interp.sym: $!\n";
56
57 print EM <<'END';
58
59 #else   /* not multiple, so translate interpreter symbols the other way... */
60
61 END
62
63 open(INT, "<interp.sym") || die "Can't open interp.sym: $!\n";
64 while (<INT>) {
65         s/[ \t]*#.*//;          # Delete comments.
66         next unless /\S/;
67         s/(.*)/#define I$1\t\t$1/;
68         s/(................\t)\t/$1/;
69         print EM $_;
70 }
71 close(INT) || warn "Can't close interp.sym: $!\n";
72
73 print EM <<'END';
74
75 #endif /* MULTIPLICITY */
76 END
77