3 # $RCSfile: cpp.t,v $$Revision: 4.0.1.1 $$Date: 92/06/08 15:42:08 $
5 open(CONFIG,"../config.sh") || die;
8 if (/^cppstdin='(.*cppstdin)'/ && ! -e $1) {
10 exit; # Can't test till after install, alas.
23 #If you capitalize, it's a comment.
30 open(TRY,">Comp.cpp.tmp") || die "Can't open temp perl file.";
32 ($prog = <<'END') =~ s/X//g;
34 X#include "Comp.cpp.inc"
43 open(TRY,">Comp.cpp.inc") || (die "Can't open temp include file.");
44 print TRY '#define OK "ok 3\n"' . "\n";
49 $x = `./perl -P Comp.cpp.tmp`;
51 unlink "Comp.cpp.tmp", "Comp.cpp.inc";