mirror of https://github.com/mgcaret/of816.git
17 lines
392 B
Forth
17 lines
392 B
Forth
testing 5.3.4.3 Get local arguments
|
|
|
|
: s= ( str len str len )
|
|
2 pick over = if
|
|
drop swap comp 0=
|
|
else
|
|
2drop 2drop false
|
|
then
|
|
;
|
|
|
|
t{ s" foo bar" bl left-parse-string s" foo" s= >r s" bar" s= r> -> true true }t
|
|
t{ s" foo/bar" ascii / left-parse-string s" foo" s= >r s" bar" s= r> -> true true }t
|
|
|
|
hex
|
|
t{ s" a5,f0" parse-2int -> f0 a5 }t
|
|
t{ s" babe,cafe" parse-2int -> cafe babe }t
|