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