home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Source Code / C / Applications / MacPerl 5.0.3 / Preinstalled MacPerl (FAT) / t / comp / cpp.t < prev    next >
Encoding:
Text File  |  1995-07-02  |  947 b   |  53 lines  |  [TEXT/McPL]
  1. #!./perl -P
  2.  
  3. # $RCSfile: cpp.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:18 $
  4.  
  5. # open(CONFIG,"../config.sh") || die;
  6. # 
  7. # while (<CONFIG>) {
  8. #     if (/^cppstdin/) {
  9. #     if (/^cppstdin='(.*cppstdin)'/ && ! -e $1) {
  10. #         print "1..0\n";
  11. #         exit;         # Cannot test till after install, alas.
  12. #     }
  13. #     last;
  14. #     }
  15. # }
  16. # close CONFIG;
  17.  
  18. print "1..3\n";
  19.  
  20. #this is a comment
  21. #define MESS "ok 1\n"
  22. print MESS;
  23.  
  24. #If you capitalize, it's a comment.
  25. #ifdef MESS
  26.     print "ok 2\n";
  27. #else
  28.     print "not ok 2\n";
  29. #endif
  30.  
  31. open(TRY,">Comp.cpp.tmp") || die "Can't open temp perl file.";
  32.  
  33. ($prog = <<'END') =~ s/X//g;
  34. X$ok = "not ok 3\n";
  35. X#include "Comp.cpp.inc"
  36. X#ifdef OK
  37. X$ok = OK;
  38. X#endif
  39. Xprint $ok;
  40. END
  41. print TRY $prog;
  42. close TRY;
  43.  
  44. open(TRY,">Comp.cpp.inc") || (die "Can't open temp include file.");
  45. print TRY '#define OK "ok 3\n"' . "\n";
  46. close TRY;
  47.  
  48. $pwd=`pwd`;
  49. $pwd =~ s/\n//;
  50. $x = `./perl -P Comp.cpp.tmp`;
  51. print $x;
  52. unlink "Comp.cpp.tmp", "Comp.cpp.inc";
  53.