starting [nap] (nat archive project)

projects/nap/build.hxml

@@ -0,0 +1,5 @@
+-lib uuid
+-lib kiss
+-cp src
+--main Main
+--interp

projects/nap/src/Entry.hx

@@ -0,0 +1,8 @@
+package;
+
+import kiss.Kiss;
+import kiss.Prelude;
+import uuid.Uuid;
+
+@:build(kiss.Kiss.build())
+class Entry {}

projects/nap/src/Entry.kiss

@@ -0,0 +1,3 @@
+(defnew [&prop :String name]
+    [:String id (Uuid.v4)
+        :Map<String,kiss.List<Dynamic>> components (new Map)])

projects/nap/src/Main.hx

@@ -0,0 +1,7 @@
+package;
+
+import kiss.Kiss;
+import kiss.Prelude;
+
+@:build(kiss.Kiss.build())
+class Main {}

projects/nap/src/Main.kiss

@@ -0,0 +1,8 @@
+(defun :Void main []
+    (let [e (new Entry "name")]
+        (dictSet e.components "f" [5])
+        (dictSet e.components "b" [(object c "d")])
+        (let [s (haxe.Json.stringify e)
+                :Entry e2 (haxe.Json.parse s)]
+            // can't call Entry methods on e2
+            (print s))))

projects/nap/test.sh

@@ -0,0 +1,3 @@
+#! /bin/bash
+
+haxe build.hxml