Merge pull request #13 from philburk/fixrom

[pforth] / fth / t_locals.fth

\ @(#) t_locals.fth 97/01/28 1.1\r
\ Test PForth LOCAL variables.\r
\\r
\ Copyright 1996 3DO, Phil Burk\r
\r
include? }T{  t_tools.fth\r
\r
anew task-t_locals.fth\r
decimal\r
\r
test{\r
\r
\ test value and locals\r
T{ 333 value  my-value   my-value }T{  333 }T\r
T{ 1000 -> my-value   my-value }T{ 1000 }T\r
T{ 35 +-> my-value   my-value }T{ 1035 }T\r
: test.value  ( -- ok )\r
	100 -> my-value\r
	my-value 100 =\r
	47 +-> my-value\r
	my-value 147 = AND\r
;\r
T{ test.value }T{ TRUE }T\r
\r
\ test locals in a word\r
: test.locs  { aa bb | cc -- ok }\r
	cc 0=\r
	aa bb + -> cc\r
	aa bb +   cc = AND\r
	aa -> cc\r
	bb +->  cc\r
	aa bb +   cc = AND\r
;\r
\r
T{ 200 59 test.locs }T{  TRUE }T\r
\r
.( Test warning when no locals defined.) cr\r
: loc.nonames { -- } 1234 ;\r
T{ loc.nonames }T{ 1234 }T\r
\r
\ try to put EOLs and comments in variable list\r
: calc.area {\r
	width    \ horizontal dimension\r
	height   \ vertical dimension\r
	-- area , calculate area of a rectangle }\r
	width height *\r
;\r
\r
T{ 5 20 calc.area }T{ 100 }T\r
\r
}test\r
\r