test_preprocessor.cmn 411 B

12345678910111213141516171819202122232425262728293031
  1. # simple test for preprocessor, without file includes
  2. # DON'T FORGET TO RUN WITH PREPROCESSOR ENABLED
  3. [ MYCONST: "7" -> . ]
  4. [MYCONST] 8 *
  5. 56 = ?
  6. 0 10 "OK" -->
  7. ;
  8. 0 10 "ERROR (a)" -->
  9. !.
  10. .
  11. [ 0 ? ]
  12. 0 10 "ERROR (b)" -->
  13. !.
  14. [ ; ]
  15. 0 10 "OK" -->
  16. [ . ]
  17. [5 @']
  18. 0 10 "in loop" -->
  19. [-- .]
  20. 0 "Is there a way to print preproc brackets? (yes): " --> 91 -> 93 -> 10 ->
  21. [] # empty
  22. 0 10 "ALL SEEMS OK" -->