Bruce/nomsu
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Got nomsu codegen working again.

Browse Source
This commit is contained in:
Bruce Hill 2018-04-25 16:04:46 -07:00
parent cb28f52b41
commit 50a092e4b5
8 changed files with 87 additions and 63 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
core/operators.nom
View File

@ -26,7 +26,7 @@ immediately:
compile [%a is %b, %a = %b, %a == %b] to: compile [%a is %b, %a = %b, %a == %b] to:
lua> ".." lua> ".."
local safe = {Text=true, Number=true}; local safe = {Text=true, Number=true};
local a_lua, b_lua = nomsu:tree_to_lua(\%a), nomsu:tree_to_lua(\%b); local a_lua, b_lua = \%a:as_lua(nomsu), \%b:as_lua(nomsu);
if safe[\%a.type] or safe[\%b.type] then if safe[\%a.type] or safe[\%b.type] then
return Lua.Value(tree.source, "(", a_lua, " == ", b_lua, ")"); return Lua.Value(tree.source, "(", a_lua, " == ", b_lua, ")");
else else
@ -35,7 +35,7 @@ immediately:
compile [%a isn't %b, %a is not %b, %a not= %b, %a != %b] to: compile [%a isn't %b, %a is not %b, %a not= %b, %a != %b] to:
lua> ".." lua> ".."
local safe = {Text=true, Number=true}; local safe = {Text=true, Number=true};
local a_lua, b_lua = nomsu:tree_to_lua(\%a), nomsu:tree_to_lua(\%b); local a_lua, b_lua = \%a:as_lua(nomsu), \%b:as_lua(nomsu);
if safe[\%a.type] or safe[\%b.type] then if safe[\%a.type] or safe[\%b.type] then
return Lua.Value(tree.source, "(", a_lua, " ~= ", b_lua, ")"); return Lua.Value(tree.source, "(", a_lua, " ~= ", b_lua, ")");
else else
@ -47,9 +47,9 @@ immediately:
# Variable assignment operator # Variable assignment operator
immediately: immediately:
compile [%var <- %value] to: compile [%var <- %value] to:
lua> "local \%var_lua = nomsu:tree_to_lua(\%var);" lua> "local \%var_lua = \%var:as_lua(nomsu);"
assume %var_lua.is_value or barf "Invalid target for assignment: \(%var's source code)" assume %var_lua.is_value or barf "Invalid target for assignment: \(%var's source code)"
lua> "local \%value_lua = nomsu:tree_to_lua(\%value);" lua> "local \%value_lua = \%value:as_lua(nomsu);"
assume %value_lua.is_value or barf "Invalid value for assignment: \(%value's source code)" assume %value_lua.is_value or barf "Invalid value for assignment: \(%value's source code)"
lua> ".." lua> ".."
local lua = Lua(tree.source, \%var_lua, ' = ', \%value_lua, ';'); local lua = Lua(tree.source, \%var_lua, ' = ', \%value_lua, ';');
@ -67,9 +67,9 @@ immediately:
local lhs, rhs = Lua(tree.source), Lua(\%assignments.source); local lhs, rhs = Lua(tree.source), Lua(\%assignments.source);
for i, item in ipairs(\%assignments.value) do for i, item in ipairs(\%assignments.value) do
local target, value = item.key, item.value; local target, value = item.key, item.value;
local target_lua = nomsu:tree_to_lua(target); local target_lua = target:as_lua(nomsu);
if not target_lua.is_value then error("Invalid target for assignment: "..target:get_src()); end if not target_lua.is_value then error("Invalid target for assignment: "..target:get_src()); end
local value_lua = nomsu:tree_to_lua(value); local value_lua = value:as_lua(nomsu);
if not value_lua.is_value then error("Invalid value for assignment: "..value:get_src()); end if not value_lua.is_value then error("Invalid value for assignment: "..value:get_src()); end
if target.type == "Var" then if target.type == "Var" then
lhs:add_free_vars(target); lhs:add_free_vars(target);
@ -106,8 +106,8 @@ immediately:
if not target.type == "Var" then if not target.type == "Var" then
error("Invalid target for 'with' assignment: "..tostring(target.source:get_text())); error("Invalid target for 'with' assignment: "..tostring(target.source:get_text()));
end end
local target_lua = nomsu:tree_to_lua(target); local target_lua = target:as_lua(nomsu);
local value_lua = nomsu:tree_to_lua(value); local value_lua = value:as_lua(nomsu);
if not value_lua.is_value then if not value_lua.is_value then
error("Invalid value for assignment: "..tostring(value.source:get_text())); error("Invalid value for assignment: "..tostring(value.source:get_text()));
end end

2
core/text.nom
View File

@ -49,7 +49,7 @@ lua> ".."
local reset = "'"..colors["reset color"].."'"; local reset = "'"..colors["reset color"].."'";
nomsu:define_compile_action(name, \(!! code location !!), function(tree) return Lua.Value(tree.source, color); end); nomsu:define_compile_action(name, \(!! code location !!), function(tree) return Lua.Value(tree.source, color); end);
nomsu:define_compile_action(name.." %", \(!! code location !!), function(\%) nomsu:define_compile_action(name.." %", \(!! code location !!), function(\%)
return Lua.Value(tree.source, color, "..", nomsu:tree_to_lua(\%), "..", reset); return Lua.Value(tree.source, color, "..", \%:as_lua(nomsu), "..", reset);
end); end);
end end
end end

2
lua_obj.lua
View File

@ -104,6 +104,7 @@ do
local bits = self.bits local bits = self.bits
for i = 1, n do for i = 1, n do
local b = select(i, ...) local b = select(i, ...)
assert(b ~= self, "No recursion please.")
bits[#bits + 1] = b bits[#bits + 1] = b
if type(b) == 'string' then if type(b) == 'string' then
do do
@ -129,6 +130,7 @@ do
end end
self.current_indent = 0 self.current_indent = 0
for i, b in ipairs(bits) do for i, b in ipairs(bits) do
assert(b ~= self, "No recursion please.")
if type(b) == 'string' then if type(b) == 'string' then
do do
local spaces = b:match("\n([ ]*)[^\n]*$") local spaces = b:match("\n([ ]*)[^\n]*$")

6
lua_obj.moon
View File

@ -95,6 +95,7 @@ class Code
bits = @bits bits = @bits
for i=1,n for i=1,n
b = select(i, ...) b = select(i, ...)
assert(b != self, "No recursion please.")
bits[#bits+1] = b bits[#bits+1] = b
if type(b) == 'string' if type(b) == 'string'
if spaces = b\match("\n([ ]*)[^\n]*$") if spaces = b\match("\n([ ]*)[^\n]*$")
@ -112,6 +113,7 @@ class Code
bits[i] = select(i, ...) bits[i] = select(i, ...)
@current_indent = 0 @current_indent = 0
for i,b in ipairs(bits) for i,b in ipairs(bits)
assert(b != self, "No recursion please.")
if type(b) == 'string' if type(b) == 'string'
if spaces = b\match("\n([ ]*)[^\n]*$") if spaces = b\match("\n([ ]*)[^\n]*$")
@current_indent = #spaces @current_indent = #spaces
@ -245,4 +247,8 @@ class Nomsu extends Code
__len: => __len: =>
#tostring(self) #tostring(self)
parenthesize: =>
@prepend "("
@append ")"
return {:Code, :Nomsu, :Lua, :Source} return {:Code, :Nomsu, :Lua, :Source}

2
nomsu.lua
View File

@ -1133,6 +1133,6 @@ if arg and debug_getinfo(2).func ~= require then
end end
return os.exit(false, true) return os.exit(false, true)
end end
xpcall(run, err_hand) require('ldt').guard(run)
end end
return NomsuCompiler return NomsuCompiler

26
nomsu.moon
View File

@ -317,7 +317,7 @@ class NomsuCompiler
tree = @parse(nomsu_code) tree = @parse(nomsu_code)
assert tree, "Failed to parse: #{nomsu_code}" assert tree, "Failed to parse: #{nomsu_code}"
assert tree.type == "File", "Attempt to run non-file: #{tree.type}" assert tree.type == "File", "Attempt to run non-file: #{tree.type}"
lua = @tree_to_lua(tree) lua = tree\as_lua(@)
lua\convert_to_statements! lua\convert_to_statements!
lua\declare_locals! lua\declare_locals!
lua\prepend "-- File: #{nomsu_code.source or ""}\n" lua\prepend "-- File: #{nomsu_code.source or ""}\n"
@ -387,12 +387,9 @@ class NomsuCompiler
-- Special case for text literals -- Special case for text literals
if tree.type == 'Text' and #tree.value == 1 and type(tree.value[1]) == 'string' if tree.type == 'Text' and #tree.value == 1 and type(tree.value[1]) == 'string'
return tree.value[1] return tree.value[1]
lua = Lua(tree.source, "return ",@tree_to_lua(tree),";") lua = Lua(tree.source, "return ",tree\as_lua(@),";")
return @run_lua(lua) return @run_lua(lua)
tree_to_nomsu: (tree)=>
return tree\as_nomsu!
value_to_nomsu: (value)=> value_to_nomsu: (value)=>
switch type(value) switch type(value)
when "nil" when "nil"
@ -418,9 +415,6 @@ class NomsuCompiler
else else
error("Unsupported value_to_nomsu type: #{type(value)}", 0) error("Unsupported value_to_nomsu type: #{type(value)}", 0)
tree_to_lua: (tree)=>
return tree\as_lua(self)
walk_tree: (tree, depth=0)=> walk_tree: (tree, depth=0)=>
coroutine.yield(tree, depth) coroutine.yield(tree, depth)
return unless Types.is_node(tree) return unless Types.is_node(tree)
@ -567,7 +561,7 @@ class NomsuCompiler
get_line_no = -> "nomsu.moon:#{debug_getinfo(2).currentline}" get_line_no = -> "nomsu.moon:#{debug_getinfo(2).currentline}"
nomsu = self nomsu = self
@define_compile_action "immediately %block", get_line_no!, (_block)=> @define_compile_action "immediately %block", get_line_no!, (_block)=>
lua = nomsu\tree_to_lua(_block) lua = _block\as_lua(nomsu)
lua\convert_to_statements! lua\convert_to_statements!
lua\declare_locals! lua\declare_locals!
nomsu\run_lua(lua) nomsu\run_lua(lua)
@ -582,7 +576,7 @@ class NomsuCompiler
if type(bit) == "string" if type(bit) == "string"
lua\append repr(bit) lua\append repr(bit)
else else
bit_lua = nomsu\tree_to_lua bit bit_lua = bit\as_lua(nomsu)
unless bit_lua.is_value unless bit_lua.is_value
line, src = bit.source\get_line!, bit.source\get_text! line, src = bit.source\get_line!, bit.source\get_text!
error "#{line}: Cannot use #{colored.yellow src} as a string interpolation value, since it's not an expression." error "#{line}: Cannot use #{colored.yellow src} as a string interpolation value, since it's not an expression."
@ -615,14 +609,14 @@ class NomsuCompiler
@define_compile_action "lua> %code", get_line_no!, (_code)=> @define_compile_action "lua> %code", get_line_no!, (_code)=>
if _code.type != "Text" if _code.type != "Text"
return Lua.Value @source, "nomsu:run_lua(Lua(",repr(_code.source), return Lua.Value @source, "nomsu:run_lua(Lua(",repr(_code.source),
", ",repr(tostring(nomsu\tree_to_lua(_code))),"))" ", ",repr(tostring(_code\as_lua(nomsu))),"))"
lua = Lua(_code.source) lua = Lua(_code.source)
for bit in *_code.value for bit in *_code.value
if type(bit) == "string" if type(bit) == "string"
lua\append bit lua\append bit
else else
bit_lua = nomsu\tree_to_lua bit bit_lua = bit\as_lua(nomsu)
unless bit_lua.is_value unless bit_lua.is_value
line, src = bit.source\get_line!, bit.source\get_text! line, src = bit.source\get_line!, bit.source\get_text!
error "#{line}: Cannot use #{colored.yellow src} as a string interpolation value, since it's not an expression.", 0 error "#{line}: Cannot use #{colored.yellow src} as a string interpolation value, since it's not an expression.", 0
@ -632,14 +626,14 @@ class NomsuCompiler
@define_compile_action "=lua %code", get_line_no!, (_code)=> @define_compile_action "=lua %code", get_line_no!, (_code)=>
if _code.type != "Text" if _code.type != "Text"
return Lua.Value @source, "nomsu:run_lua(Lua(",repr(_code.source), return Lua.Value @source, "nomsu:run_lua(Lua(",repr(_code.source),
", ",repr(tostring(nomsu\tree_to_lua(_code))),"))" ", ",repr(tostring(_code\as_lua(nomsu))),"))"
lua = Lua.Value(@source) lua = Lua.Value(@source)
for bit in *_code.value for bit in *_code.value
if type(bit) == "string" if type(bit) == "string"
lua\append bit lua\append bit
else else
bit_lua = nomsu\tree_to_lua bit bit_lua = bit\as_lua(nomsu)
unless lua.is_value unless lua.is_value
line, src = bit.source\get_line!, bit.source\get_text! line, src = bit.source\get_line!, bit.source\get_text!
error "#{line}: Cannot use #{colored.yellow src} as a string interpolation value, since it's not an expression.", 0 error "#{line}: Cannot use #{colored.yellow src} as a string interpolation value, since it's not an expression.", 0
@ -819,8 +813,8 @@ if arg and debug_getinfo(2).func != require
--ProFi = require 'ProFi' --ProFi = require 'ProFi'
--ProFi\start() --ProFi\start()
--require('ldt').guard run require('ldt').guard run
xpcall(run, err_hand) --xpcall(run, err_hand)
--ProFi\stop() --ProFi\stop()
--ProFi\writeReport( 'MyProfilingReport.txt' ) --ProFi\writeReport( 'MyProfilingReport.txt' )

48
nomsu_tree.lua
View File

@ -35,7 +35,7 @@ Tree = function(name, methods)
end end
methods.type = name methods.type = name
methods.name = name methods.name = name
methods.as_nomsuXXXX = function(self) methods.original_nomsu = function(self)
local leading_space = 0 local leading_space = 0
local src_file = FILE_CACHE[self.source.filename] local src_file = FILE_CACHE[self.source.filename]
while src_file:sub(self.source.start - leading_space - 1, self.source.start - leading_space - 1) == " " do while src_file:sub(self.source.start - leading_space - 1, self.source.start - leading_space - 1) == " " do
@ -82,7 +82,8 @@ Tree("File", {
end end
local nomsu = Nomsu(self.source) local nomsu = Nomsu(self.source)
for i, line in ipairs(self.value) do for i, line in ipairs(self.value) do
nomsu:append(assert(line:as_nomsu(), "Could not convert line to nomsu: " .. tostring(line))) line = assert(line:as_nomsu(), "Could not convert line to nomsu")
nomsu:append(line)
if i < #self.value then if i < #self.value then
nomsu:append("\n") nomsu:append("\n")
end end
@ -126,16 +127,16 @@ Tree("Block", {
if inline == nil then if inline == nil then
inline = false inline = false
end end
if inline then
if #self.value == 1 then if #self.value == 1 then
return self.value[1]:as_nomsu(true) return self.value[1]:as_nomsu(inline)
else
return nil
end end
if inline then
return nil
end end
local nomsu = Nomsu(self.source) local nomsu = Nomsu(self.source)
for i, line in ipairs(self.value) do for i, line in ipairs(self.value) do
nomsu:append(assert(line:as_nomsu(), "Could not convert line to nomsu: " .. tostring(line))) line = assert(line:as_nomsu(), "Could not convert line to nomsu")
nomsu:append(line)
if i < #self.value then if i < #self.value then
nomsu:append("\n") nomsu:append("\n")
end end
@ -297,7 +298,7 @@ Tree("Action", {
if not (i == 1) then if not (i == 1) then
nomsu:append(" ") nomsu:append(" ")
end end
if bit.type == "Action" then if bit.type == "Action" or bit.type == "Block" then
arg_nomsu:parenthesize() arg_nomsu:parenthesize()
end end
nomsu:append(arg_nomsu) nomsu:append(arg_nomsu)
@ -321,7 +322,7 @@ Tree("Action", {
else else
local arg_nomsu = bit:as_nomsu(true) local arg_nomsu = bit:as_nomsu(true)
if arg_nomsu and #arg_nomsu < 80 then if arg_nomsu and #arg_nomsu < 80 then
if bit.type == "Action" then if bit.type == "Action" or bit.type == "Block" then
arg_nomsu:parenthesize() arg_nomsu:parenthesize()
end end
spacer = " " spacer = " "
@ -330,8 +331,8 @@ Tree("Action", {
if not (nomsu) then if not (nomsu) then
return nil return nil
end end
if bit.type == "Action" then if bit.type == "Action" or bit.type == "Block" then
nomsu:append("\n ", nomsu) nomsu:append("\n ")
end end
spacer = "\n.." spacer = "\n.."
end end
@ -419,22 +420,25 @@ Tree("Text", {
end end
end end
nomsu:append('"') nomsu:append('"')
if #nomsu > 80 then return nomsu
return nil
end
else else
local inline_version = self:as_nomsu(true)
if inline_version and #inline_version <= 80 then
return inline_version
end
local nomsu = Nomsu(self.source, '".."\n ') local nomsu = Nomsu(self.source, '".."\n ')
for i, bit in ipairs(self.value) do for i, bit in ipairs(self.value) do
if type(bit) == 'string' then if type(bit) == 'string' then
nomsu:append((bit:gsub("\\", "\\\\"):gsub("\n", "\n "))) nomsu:append((bit:gsub("\\", "\\\\"):gsub("\n", "\n ")))
else else
local interp_nomsu = bit:as_nomsu(true)
if interp_nomsu then if interp_nomsu then
if bit.type ~= "Word" and bit.type ~= "List" and bit.type ~= "Dict" and bit.type ~= "Text" then if bit.type ~= "Word" and bit.type ~= "List" and bit.type ~= "Dict" and bit.type ~= "Text" then
interp_nomsu:parenthesize() interp_nomsu:parenthesize()
end end
nomsu:append("\\", interp_nomsu) nomsu:append("\\", interp_nomsu)
else else
local interp_nomsu = bit:as_nomsu() interp_nomsu = bit:as_nomsu()
if not (interp_nomsu) then if not (interp_nomsu) then
return nil return nil
end end
@ -499,6 +503,10 @@ Tree("List", {
nomsu:append("]") nomsu:append("]")
return nomsu return nomsu
else else
local inline_version = self:as_nomsu(true)
if inline_version and #inline_version <= 80 then
return inline_version
end
local nomsu = Nomsu(self.source, "[..]") local nomsu = Nomsu(self.source, "[..]")
local line = Nomsu(self.source, "\n ") local line = Nomsu(self.source, "\n ")
local _list_0 = self.value local _list_0 = self.value
@ -519,7 +527,7 @@ Tree("List", {
end end
if #line.bits > 1 then if #line.bits > 1 then
nomsu:append(line) nomsu:append(line)
line = Nomsu(bit.source, "\n ") line = Nomsu(item.source, "\n ")
end end
line:append(item_nomsu) line:append(item_nomsu)
end end
@ -584,7 +592,7 @@ Tree("Dict", {
if not (key_nomsu) then if not (key_nomsu) then
return nil return nil
end end
if entry.key.type == "Action" then if entry.key.type == "Action" or entry.key.type == "Block" then
key_nomsu:parenthesize() key_nomsu:parenthesize()
end end
local value_nomsu = entry.value:as_nomsu(true) local value_nomsu = entry.value:as_nomsu(true)
@ -599,6 +607,10 @@ Tree("Dict", {
nomsu:append("}") nomsu:append("}")
return nomsu return nomsu
else else
local inline_version = self:as_nomsu(true)
if inline_version then
return inline_version
end
local nomsu = Nomsu(self.source, "{..}") local nomsu = Nomsu(self.source, "{..}")
local line = Nomsu(self.source, "\n ") local line = Nomsu(self.source, "\n ")
local _list_0 = self.value local _list_0 = self.value
@ -608,7 +620,7 @@ Tree("Dict", {
if not (key_nomsu) then if not (key_nomsu) then
return nil return nil
end end
if entry.key.type == "Action" then if entry.key.type == "Action" or entry.key.type == "Block" then
key_nomsu:parenthesize() key_nomsu:parenthesize()
end end
local value_nomsu = entry.value:as_nomsu(true) local value_nomsu = entry.value:as_nomsu(true)

40
nomsu_tree.moon
View File

@ -6,7 +6,7 @@ lpeg = require 'lpeg'
{:repr, :stringify, :min, :max, :equivalent, :set, :is_list, :sum} = utils {:repr, :stringify, :min, :max, :equivalent, :set, :is_list, :sum} = utils
immutable = require 'immutable' immutable = require 'immutable'
{:insert, :remove, :concat} = table {:insert, :remove, :concat} = table
{:Lua, :Location} = require "lua_obj" {:Lua, :Nomsu, :Location} = require "lua_obj"
Types = {} Types = {}
@ -21,7 +21,7 @@ Tree = (name, methods)->
.with_value = (value)=> getmetatable(self)(value, @source) .with_value = (value)=> getmetatable(self)(value, @source)
.type = name .type = name
.name = name .name = name
.as_nomsu = => .original_nomsu = =>
leading_space = 0 leading_space = 0
src_file = FILE_CACHE[@source.filename] src_file = FILE_CACHE[@source.filename]
while src_file\sub(@source.start-leading_space-1, @source.start-leading_space-1) == " " while src_file\sub(@source.start-leading_space-1, @source.start-leading_space-1) == " "
@ -54,7 +54,8 @@ Tree "File",
return nil if inline return nil if inline
nomsu = Nomsu(@source) nomsu = Nomsu(@source)
for i, line in ipairs @value for i, line in ipairs @value
nomsu\append assert(line\as_nomsu!, "Could not convert line to nomsu: #{line}") line = assert(line\as_nomsu!, "Could not convert line to nomsu")
nomsu\append line
if i < #@value if i < #@value
nomsu\append "\n" nomsu\append "\n"
return nomsu return nomsu
@ -84,13 +85,13 @@ Tree "Block",
return lua return lua
as_nomsu: (inline=false)=> as_nomsu: (inline=false)=>
if inline
if #@value == 1 if #@value == 1
return @value[1]\as_nomsu(true) return @value[1]\as_nomsu(inline)
else return nil return nil if inline
nomsu = Nomsu(@source) nomsu = Nomsu(@source)
for i, line in ipairs @value for i, line in ipairs @value
nomsu\append assert(line\as_nomsu!, "Could not convert line to nomsu: #{line}") line = assert(line\as_nomsu!, "Could not convert line to nomsu")
nomsu\append line
if i < #@value if i < #@value
nomsu\append "\n" nomsu\append "\n"
return nomsu return nomsu
@ -170,7 +171,7 @@ Tree "Action",
return nil unless arg_nomsu return nil unless arg_nomsu
unless i == 1 unless i == 1
nomsu\append " " nomsu\append " "
if bit.type == "Action" if bit.type == "Action" or bit.type == "Block"
arg_nomsu\parenthesize! arg_nomsu\parenthesize!
nomsu\append arg_nomsu nomsu\append arg_nomsu
return nomsu return nomsu
@ -190,14 +191,14 @@ Tree "Action",
else else
arg_nomsu = bit\as_nomsu(true) arg_nomsu = bit\as_nomsu(true)
if arg_nomsu and #arg_nomsu < 80 if arg_nomsu and #arg_nomsu < 80
if bit.type == "Action" if bit.type == "Action" or bit.type == "Block"
arg_nomsu\parenthesize! arg_nomsu\parenthesize!
spacer = " " spacer = " "
else else
arg_nomsu = bit\as_nomsu! arg_nomsu = bit\as_nomsu!
return nil unless nomsu return nil unless nomsu
if bit.type == "Action" if bit.type == "Action" or bit.type == "Block"
nomsu\append "\n ", nomsu nomsu\append "\n "
spacer = "\n.." spacer = "\n.."
nomsu\append arg_nomsu nomsu\append arg_nomsu
return nomsu return nomsu
@ -249,13 +250,17 @@ Tree "Text",
nomsu\append "\\", interp_nomsu nomsu\append "\\", interp_nomsu
else return nil else return nil
nomsu\append '"' nomsu\append '"'
if #nomsu > 80 then return nil return nomsu
else else
inline_version = @as_nomsu(true)
if inline_version and #inline_version <= 80
return inline_version
nomsu = Nomsu(@source, '".."\n ') nomsu = Nomsu(@source, '".."\n ')
for i, bit in ipairs @value for i, bit in ipairs @value
if type(bit) == 'string' if type(bit) == 'string'
nomsu\append (bit\gsub("\\","\\\\")\gsub("\n","\n ")) nomsu\append (bit\gsub("\\","\\\\")\gsub("\n","\n "))
else else
interp_nomsu = bit\as_nomsu(true)
if interp_nomsu if interp_nomsu
if bit.type != "Word" and bit.type != "List" and bit.type != "Dict" and bit.type != "Text" if bit.type != "Word" and bit.type != "List" and bit.type != "Dict" and bit.type != "Text"
interp_nomsu\parenthesize! interp_nomsu\parenthesize!
@ -306,6 +311,9 @@ Tree "List",
nomsu\append "]" nomsu\append "]"
return nomsu return nomsu
else else
inline_version = @as_nomsu(true)
if inline_version and #inline_version <= 80
return inline_version
nomsu = Nomsu(@source, "[..]") nomsu = Nomsu(@source, "[..]")
line = Nomsu(@source, "\n ") line = Nomsu(@source, "\n ")
for item in *@value for item in *@value
@ -320,7 +328,7 @@ Tree "List",
return nil unless item_nomsu return nil unless item_nomsu
if #line.bits > 1 if #line.bits > 1
nomsu\append line nomsu\append line
line = Nomsu(bit.source, "\n ") line = Nomsu(item.source, "\n ")
line\append item_nomsu line\append item_nomsu
if #line.bits > 1 if #line.bits > 1
nomsu\append line nomsu\append line
@ -372,7 +380,7 @@ Tree "Dict",
for i, entry in ipairs @value for i, entry in ipairs @value
key_nomsu = entry.key\as_nomsu(true) key_nomsu = entry.key\as_nomsu(true)
return nil unless key_nomsu return nil unless key_nomsu
if entry.key.type == "Action" if entry.key.type == "Action" or entry.key.type == "Block"
key_nomsu\parenthesize! key_nomsu\parenthesize!
value_nomsu = entry.value\as_nomsu(true) value_nomsu = entry.value\as_nomsu(true)
return nil unless value_nomsu return nil unless value_nomsu
@ -382,12 +390,14 @@ Tree "Dict",
nomsu\append "}" nomsu\append "}"
return nomsu return nomsu
else else
inline_version = @as_nomsu(true)
if inline_version then return inline_version
nomsu = Nomsu(@source, "{..}") nomsu = Nomsu(@source, "{..}")
line = Nomsu(@source, "\n ") line = Nomsu(@source, "\n ")
for entry in *@value for entry in *@value
key_nomsu = entry.key\as_nomsu(true) key_nomsu = entry.key\as_nomsu(true)
return nil unless key_nomsu return nil unless key_nomsu
if entry.key.type == "Action" if entry.key.type == "Action" or entry.key.type == "Block"
key_nomsu\parenthesize! key_nomsu\parenthesize!
value_nomsu = entry.value\as_nomsu(true) value_nomsu = entry.value\as_nomsu(true)
if value_nomsu and #line + #", " + #key_nomsu + #":" + #value_nomsu <= 80 if value_nomsu and #line + #", " + #key_nomsu + #":" + #value_nomsu <= 80