t/comp/cpp.aux

   1 #!./perl -P
   2
   3 print "1..3\n";
   4
   5 #define MESS "ok 1\n"
   6 print MESS;
   7
   8 #ifdef MESS
   9         print "ok 2\n";
  10 #else
  11         print "not ok 2\n";
  12 #endif
  13
  14 open(TRY,">Comp.cpp.tmp") || die "Can't open temp perl file.";
  15
  16 ($prog = <<'END') =~ s/X//g;
  17 X$ok = "not ok 3\n";
  18 X#include "Comp.cpp.inc"
  19 X#ifdef OK
  20 X$ok = OK;
  21 X#endif
  22 Xprint $ok;
  23 END
  24 print TRY $prog;
  25 close TRY;
  26
  27 open(TRY,">Comp.cpp.inc") || (die "Can't open temp include file.");
  28 print TRY '#define OK "ok 3\n"' . "\n";
  29 close TRY;
  30
  31 $pwd=`pwd`;
  32 $pwd =~ s/\n//;
  33 $x = `./perl -P Comp.cpp.tmp`;
  34 print $x;
  35 unlink "Comp.cpp.tmp", "Comp.cpp.inc";