home *** CD-ROM | disk | FTP | other *** search
/ Netscape Plug-Ins Developer's Kit / Netscape_Plug-Ins_Developers_Kit.iso / CGIPERL / MACPERL / MSRCE418.HQX / Perl Source ƒ / Perl / t / comp / cpp.t < prev    next >
Encoding:
Text File  |  1994-01-01  |  694 b   |  40 lines
  1. #!./perl -P
  2.  
  3. # $RCSfile: cpp.t,v $$Revision: 4.0.1.1 $$Date: 92/06/08 15:42:08 $
  4.  
  5. print "1..3\n";
  6.  
  7. #this is a comment
  8. #define MESS "ok 1\n"
  9. print MESS;
  10.  
  11. #If you capitalize, it's a comment.
  12. #ifdef MESS
  13.     print "ok 2\n";
  14. #else
  15.     print "not ok 2\n";
  16. #endif
  17.  
  18. open(TRY,">Comp.cpp.tmp") || die "Can't open temp perl file.";
  19.  
  20. ($prog = <<'END') =~ s/X/#/g;
  21. $ok = "not ok 3\n";
  22. Xinclude "Comp.cpp.inc"
  23. Xifdef OK
  24. $ok = OK;
  25. Xendif
  26. print $ok;
  27. END
  28. print TRY $prog;
  29. close TRY;
  30.  
  31. open(TRY,">Comp.cpp.inc") || (die "Can't open temp include file.");
  32. print TRY '#define OK "ok 3\n"' . "\n";
  33. close TRY;
  34.  
  35. $pwd=`directory`;
  36. $pwd =~ s/\n//;
  37. $x = `perl -P Comp.cpp.tmp`;
  38. print $x;
  39. unlink "Comp.cpp.tmp", "Comp.cpp.inc";
  40.