level1/99_misc_tests.f

   1 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   2 ;; UrForth level 1: self-hosting 32-bit Forth compiler
   3 ;; Copyright (C) 2020 Ketmar Dark // Invisible Vector
   4 ;; GPLv3 ONLY
   5 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   6
   7 $if 0
   8 vocabulary voc2
   9
  10 voc-set-active voc2
  11
  12 : v2 ." boo!\n" ;
  13
  14 voc-set-active forth
  15
  16 : v2 ." foo!\n" ;
  17
  18 ;; this multiplies number by PI
  19 : pi ( n -- n*pi) 355 113 */ ;
  20 $endif
  21
  22
  23 $if 0
  24 : scatter-test ... ." init complete\n" ;
  25
  26 ..: scatter-test ." init phase1\n" ;..
  27 ..: scatter-test ." init phase2\n" ;..
  28 ..: scatter-test ." init phase3\n" ;..
  29 ..: scatter-test ." init phase4\n" ;..
  30 $endif
  31
  32 $if 0
  33 10 value (val)
  34 2 var (test)
  35 $endif
  36
  37 $if 0
  38 10 value (val)
  39 (val) var (test)
  40 42 (test) +!
  41 10 (test) -!
  42 $endif