From 8c59c3152294fdbf48753c947cbda81281923f96 Mon Sep 17 00:00:00 2001
From: s-ol <s-ol@users.noreply.github.com>
Date: Tue, 6 Nov 2018 17:24:56 +1100
Subject: fix client behaviour

---
 dump_tree.moon | 49 +++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 49 insertions(+)
 create mode 100644 dump_tree.moon

(limited to 'dump_tree.moon')

diff --git a/dump_tree.moon b/dump_tree.moon
new file mode 100644
index 0000000..72259cd
--- /dev/null
+++ b/dump_tree.moon
@@ -0,0 +1,49 @@
+package.moonpath = './?.server.moon;./?/init.server.moon;' .. package.moonpath
+require 'mmm.init'
+import Key from require 'mmm.mmmfs'
+import load_fileder from require 'mmm.mmmfs.fs'
+import to_lua from require 'moonscript.base'
+
+-- usage:
+-- moon render.moon <output> [fileder_path]
+{ output_name, path } = arg
+
+assert output_name, "please specify the output filename as an argument"
+path or= '/'
+
+root = load_fileder 'root' .. path
+root\mount path
+
+-- dump a fileder subtree as Lua source
+dump_fileder = do
+  escape = (str) -> string.format '%q', tostring str
+
+  _dump = (fileder) ->
+    code = "Fileder {"
+
+    for key, val in pairs fileder.props
+      code ..= "
+        [#{escape key}] = #{escape val},"
+
+      if key.type\match '^text/moonscript %->'
+        newkey = Key key.name, key.type\gsub '^text/moonscript %-> (.*)', 'text/lua -> %1'
+        code ..= "
+          [#{escape newkey}] = #{escape to_lua val},"
+
+    for child in *fileder.children
+      code ..= "
+        #{_dump child},"
+
+    code ..= "
+      }"
+    code
+
+
+  (fileder) -> "
+    local Fileder = (require 'mmm.mmmfs').Fileder
+
+    return #{_dump fileder}
+  "
+
+with io.open output_name, 'w'
+  \write dump_fileder root
-- 
cgit v1.2.3


From a6fb6af3d2adacc6fecb7684f9b04909da6b08e5 Mon Sep 17 00:00:00 2001
From: s-ol <s-ol@users.noreply.github.com>
Date: Tue, 6 Nov 2018 18:19:03 +1100
Subject: add metadata for compilation

---
 dump_tree.moon | 16 ++++++++++++++--
 1 file changed, 14 insertions(+), 2 deletions(-)

(limited to 'dump_tree.moon')

diff --git a/dump_tree.moon b/dump_tree.moon
index 72259cd..a35a223 100644
--- a/dump_tree.moon
+++ b/dump_tree.moon
@@ -18,6 +18,12 @@ root\mount path
 dump_fileder = do
   escape = (str) -> string.format '%q', tostring str
 
+  compile = (old, new, val) -> escape "
+-- this property has been transpiled from '#{old}'
+-- to '#{new}' for execution in the browser.
+-- refer to the original property as the source.
+#{to_lua val}"
+
   _dump = (fileder) ->
     code = "Fileder {"
 
@@ -28,7 +34,7 @@ dump_fileder = do
       if key.type\match '^text/moonscript %->'
         newkey = Key key.name, key.type\gsub '^text/moonscript %-> (.*)', 'text/lua -> %1'
         code ..= "
-          [#{escape newkey}] = #{escape to_lua val},"
+          [fromcache(#{escape newkey}, #{escape key})] = #{compile key, newkey, val},"
 
     for child in *fileder.children
       code ..= "
@@ -40,7 +46,13 @@ dump_fileder = do
 
 
   (fileder) -> "
-    local Fileder = (require 'mmm.mmmfs').Fileder
+    local mmmfs = require 'mmm.mmmfs'
+    local Key, Fileder = mmmfs.Key, mmmfs.Fileder
+    local function fromcache(str, orig)
+      local key = Key(str)
+      key.original = Key(orig)
+      return key
+    end
 
     return #{_dump fileder}
   "
-- 
cgit v1.2.3