aboutsummaryrefslogtreecommitdiffstats
path: root/dump_tree.moon
diff options
context:
space:
mode:
authors-ol <s-ol@users.noreply.github.com>2018-11-06 06:24:56 +0000
committers-ol <s-ol@users.noreply.github.com>2018-11-06 06:24:56 +0000
commit8c59c3152294fdbf48753c947cbda81281923f96 (patch)
tree92bb38a7dd747cb8eb4ff06fb575e105dd7800d4 /dump_tree.moon
parentimplement mmmfs on real fs (diff)
downloadmmm-8c59c3152294fdbf48753c947cbda81281923f96.tar.gz
mmm-8c59c3152294fdbf48753c947cbda81281923f96.zip
fix client behaviour
Diffstat (limited to 'dump_tree.moon')
-rw-r--r--dump_tree.moon49
1 files changed, 49 insertions, 0 deletions
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