add boolean tests and IF/ELSE/END
git-svn-id: http://skia.googlecode.com/svn/trunk@344 2bbb7eff-a529-9590-31e7-b0007b416f81
diff --git a/forth/SampleForth.cpp b/forth/SampleForth.cpp
index d207cb8..3de2fad 100644
--- a/forth/SampleForth.cpp
+++ b/forth/SampleForth.cpp
@@ -165,7 +165,8 @@
fBM.eraseColor(0);
fContext.init(fBM);
- fEnv.parse(": view.onClick ( x y -- ) 10. drawCircle ;");
+ fEnv.parse(": mycolor ( x. y. -- x. y. ) rot rot f< IF #FFFF0000 ELSE #FF0000FF THEN setColor ;");
+ fEnv.parse(": view.onClick ( x. y. -- ) mycolor 10. drawCircle ;");
fOnClickWord = fEnv.findWord("view.onClick");
#if 0
env.parse(
@@ -181,6 +182,9 @@
"draw1 "
);
#endif
+ ForthEnv env;
+ env.parse("3 5 = IF 42 . ELSE -42 . THEN 99 .");
+ env.run();
}
protected: