From b4d11704aa33ec6d471479e60be0fdaade5d9b7d Mon Sep 17 00:00:00 2001
From: Drahflow <drahflow@gmx.de>
Date: Tue, 11 Mar 2014 19:41:09 +0100
Subject: Complex data types can now be done

---
 examples/working-compiler/mapping.test | 27 -------------------------
 examples/working-loaded/mapping.test   | 37 ++++++++++++++++++++++++++++++++++
 2 files changed, 37 insertions(+), 27 deletions(-)
 delete mode 100644 examples/working-compiler/mapping.test
 create mode 100644 examples/working-loaded/mapping.test

(limited to 'examples')

diff --git a/examples/working-compiler/mapping.test b/examples/working-compiler/mapping.test
deleted file mode 100644
index cf25036..0000000
--- a/examples/working-compiler/mapping.test
+++ /dev/null
@@ -1,27 +0,0 @@
-<
-  { .v -01 . } "#*" defmd
-  { -- [ 0 ] } "#in" defmd
-  { -- [ 0 ] } "#out" defmd
-  { .v keys } "#dom" defmd
-  { .v ==v =*f v keys { v -01 . f } each } "#each" defmd
-  { < < { defv }' > ==v "#=[]" =* > }
-> -- /map deffd
-
-map ==m
-
-0 "foo" m =[]
-1 "bar" m =[]
-2 "quux" m =[]
-
-"foo" m * dump
-"bar" m * dump
-"quux" m * dump
-
-m dom dump
-m { dump } each
-
-5 m mul ==mm
-
-"foo" mm * dump
-"bar" mm * dump
-"quux" mm * dump
diff --git a/examples/working-loaded/mapping.test b/examples/working-loaded/mapping.test
new file mode 100644
index 0000000..89bed82
--- /dev/null
+++ b/examples/working-loaded/mapping.test
@@ -0,0 +1,37 @@
+<
+  { .v -01 . } "#*" defmd
+  { [ 0 ] } "#in" deffd
+  { [ 0 ] } "#out" deffd
+  { .v keys } "#dom" defmd
+  { .v ==v =*f v keys { v -01 . f } each } "#each" defmd
+  { 0 } "#istart" deffd
+  { .v keys len eq } "#iend" defmd
+  { 1 add } "#istep" deffd
+  { .v keys * } "#itrans" defmd
+  { < < { defv }' > ==v "#=[]" =* > } _ "#iclone" deffd
+> -- /map deffd
+
+{ map } "(" deffd
+{ } ")" deffd
+{ -2102 =[] } "=>" deffd
+
+(
+  0 =>foo
+  1 =>bar
+  2 =>quux
+) ==m
+
+{ _ ==m dom {
+  _ ": " cat -01 m * txt .produce .u cat dump
+  } each 
+} /mdump deffd
+
+"foo" m * dump
+"bar" m * dump
+"quux" m * dump
+
+m mdump
+
+5 m add ==mm
+
+mm mdump
-- 
cgit v1.2.3