lot of work has been done, but lists are currently broken

[svn/Cll1h/.git] / demos / for_ints_strs.c

diff --git a/demos/for_ints_strs.c b/demos/for_ints_strs.c
new file mode 100644 (file)
index 0000000..f77d818
--- /dev/null
+++ b/demos/for_ints_strs.c
@@ -0,0 +1,15 @@
+#include "cll1.h"
+
+program
+{
+ int i;
+ char *s;
+ 
+ echo("for_ints(i, 8,1,2,745,32,64,27,4): ");
+ for_ints(i, 8,1,2,745,32,64,27,4) printf(" [%d]",i);
+ print("");
+
+ echo("for_strs(s, \"aasd\",\"snres\",\"sdfrm\",\"ojffgt\",\"wweqwe\"): ");
+ for_strs(s, "aasd","snres","sdfrm","ojffgt","wweqwe") echo(" [",s,"]");
+ print("");
+}