1 \ @(#) t_locals.fth 97/01/28 1.1
\r
2 \ Test PForth LOCAL variables.
\r
4 \ Copyright 1996 3DO, Phil Burk
\r
6 include? }T{ t_tools.fth
\r
8 anew task-t_locals.fth
\r
13 \ test value and locals
\r
14 T{ 333 value my-value my-value }T{ 333 }T
\r
15 T{ 1000 -> my-value my-value }T{ 1000 }T
\r
16 T{ 35 +-> my-value my-value }T{ 1035 }T
\r
17 : test.value ( -- ok )
\r
23 T{ test.value }T{ TRUE }T
\r
25 \ test locals in a word
\r
26 : test.locs { aa bb | cc -- ok }
\r
35 T{ 200 59 test.locs }T{ TRUE }T
\r
37 .( Test warning when no locals defined.) cr
\r
38 : loc.nonames { -- } 1234 ;
\r
39 T{ loc.nonames }T{ 1234 }T
\r
41 \ try to put EOLs and comments in variable list
\r
43 width \ horizontal dimension
\r
44 height \ vertical dimension
\r
45 -- area , calculate area of a rectangle }
\r
49 T{ 5 20 calc.area }T{ 100 }T
\r