perl 5.003_03: perl.h
[perl.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 /* !!!!!!!   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 
9 */
10
11 /* (Doing namespace management portably in C is really gross.) */
12
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
17     versions of perl.
18 */
19 #ifndef NO_EMBED
20 #  define EMBED 1 
21 #endif
22
23 #ifdef EMBED
24
25 /* globals we need to hide from the world */
26 END
27
28 open(GL, "<global.sym") || die "Can't open global.sym: $!\n";
29
30 while(<GL>) {
31         s/[ \t]*#.*//;          # Delete comments.
32         next unless /\S/;
33         s/^\s*(\S+).*$/#define $1\t\tPerl_$1/;
34         $global{$1} = 1; 
35         s/(................\t)\t/$1/;
36         print EM $_;
37 }
38
39 close(GL) || warn "Can't close global.sym: $!\n";
40
41 print EM <<'END';
42
43 #endif /* EMBED */
44
45 /* Put interpreter specific symbols into a struct? */
46
47 #ifdef MULTIPLICITY
48
49 /* Undefine symbols that were defined by EMBED. Somewhat ugly */
50
51 END
52
53
54 open(INT, "<interp.sym") || die "Can't open interp.sym: $!\n";
55 while (<INT>) {
56         s/[ \t]*#.*//;          # Delete comments.
57         next unless /\S/;
58         s/^\s*(\S*).*$/#undef $1/;
59         print EM $_ if (exists $global{$1});
60 }
61 close(INT) || warn "Can't close interp.sym: $!\n";
62
63 print EM "\n";
64
65 open(INT, "<interp.sym") || die "Can't open interp.sym: $!\n";
66 while (<INT>) {
67         s/[ \t]*#.*//;          # Delete comments.
68         next unless /\S/;
69         s/^\s*(\S+).*$/#define $1\t\t(curinterp->I$1)/;
70         s/(................\t)\t/$1/;
71         print EM $_;
72 }
73 close(INT) || warn "Can't close interp.sym: $!\n";
74
75 print EM <<'END';
76
77 #else   /* not multiple, so translate interpreter symbols the other way... */
78
79 END
80
81 open(INT, "<interp.sym") || die "Can't open interp.sym: $!\n";
82 while (<INT>) {
83         s/[ \t]*#.*//;          # Delete comments.
84         next unless /\S/;
85         s/^\s*(\S+).*$/#define I$1\t\t$1/;
86         s/(................\t)\t/$1/;
87         print EM $_;
88 }
89 close(INT) || warn "Can't close interp.sym: $!\n";
90
91 print EM <<'END';
92
93 #endif /* MULTIPLICITY */
94 END
95