diff options
| author | s-ol <s-ol@users.noreply.github.com> | 2018-11-06 06:24:56 +0000 |
|---|---|---|
| committer | s-ol <s-ol@users.noreply.github.com> | 2018-11-06 06:24:56 +0000 |
| commit | 8c59c3152294fdbf48753c947cbda81281923f96 (patch) | |
| tree | 92bb38a7dd747cb8eb4ff06fb575e105dd7800d4 /dump_tree.moon | |
| parent | implement mmmfs on real fs (diff) | |
| download | mmm-8c59c3152294fdbf48753c947cbda81281923f96.tar.gz mmm-8c59c3152294fdbf48753c947cbda81281923f96.zip | |
fix client behaviour
Diffstat (limited to 'dump_tree.moon')
| -rw-r--r-- | dump_tree.moon | 49 |
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 |
