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-loaded/mapping.test | 37 ++++++++++++++++++++++++++++++++++++
 1 file changed, 37 insertions(+)
 create mode 100644 examples/working-loaded/mapping.test

(limited to 'examples/working-loaded')

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