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

Extended text comprehensions to Lua constructors.

Browse Source
This commit is contained in:
Bruce Hill 2018-11-29 14:51:09 -08:00
parent 7a7dcefc44
commit 09e571ffa6
2 changed files with 31 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
nomsu_compiler.lua
View File

@ -96,24 +96,24 @@ local compile = setmetatable({
if code.type ~= "Text" then if code.type ~= "Text" then
return LuaCode("LuaCode:from(", tostring(code.source):as_lua(), ", ", compile(code), ")") return LuaCode("LuaCode:from(", tostring(code.source):as_lua(), ", ", compile(code), ")")
end end
local add_bit_lua
add_bit_lua = function(lua, bit_lua)
local bit_leading_len = #(bit_lua:match("^[^\n]*"))
lua:append(lua:trailing_line_len() + bit_leading_len > MAX_LINE and ",\n " or ", ")
return lua:append(bit_lua)
end
local operate_on_text local operate_on_text
operate_on_text = function(text) operate_on_text = function(text)
local lua = LuaCode:from(text.source, "LuaCode:from(", tostring(text.source):as_lua()) local lua = LuaCode:from(text.source, "LuaCode:from(", tostring(text.source):as_lua())
for _index_0 = 1, #text do for _index_0 = 1, #text do
local bit = text[_index_0] local bit = text[_index_0]
local bit_lua
if type(bit) == "string" then if type(bit) == "string" then
add_bit_lua(lua, bit:as_lua()) bit_lua = bit:as_lua()
elseif bit.type == "Text" then elseif bit.type == "Text" then
add_bit_lua(lua, operate_on_text(bit)) bit_lua = operate_on_text(bit)
elseif bit.type == "Block" then
bit_lua = LuaCode:from(bit.source, "(function()", "\n local _lua = LuaCode:from(", tostring(bit.source):as_lua(), ")", "\n local function add(bit) _lua:append(bit) end", "\n local function join_with(glue)", "\n local old_bits = _lua.bits", "\n _lua = LuaCode:from(_lua.source)", "\n _lua:concat_append(old_bits, glue)", "\n end", "\n ", compile(bit), "\n return _lua", "\nend)()")
else else
add_bit_lua(lua, compile(bit)) bit_lua = compile(bit)
end end
local bit_leading_len = #(bit_lua:match("^[^\n]*"))
lua:append(lua:trailing_line_len() + bit_leading_len > MAX_LINE and ",\n " or ", ")
lua:append(bit_lua)
end end
lua:append(")") lua:append(")")
return lua return lua

29
nomsu_compiler.moon
View File

@ -68,21 +68,36 @@ compile = setmetatable({
return LuaCode("LuaCode()") return LuaCode("LuaCode()")
if code.type != "Text" if code.type != "Text"
return LuaCode("LuaCode:from(", tostring(code.source)\as_lua!, ", ", compile(code), ")") return LuaCode("LuaCode:from(", tostring(code.source)\as_lua!, ", ", compile(code), ")")
add_bit_lua = (lua, bit_lua)->
bit_leading_len = #(bit_lua\match("^[^\n]*"))
lua\append(lua\trailing_line_len! + bit_leading_len > MAX_LINE and ",\n " or ", ")
lua\append(bit_lua)
operate_on_text = (text)-> operate_on_text = (text)->
lua = LuaCode\from(text.source, "LuaCode:from(", tostring(text.source)\as_lua!) lua = LuaCode\from(text.source, "LuaCode:from(", tostring(text.source)\as_lua!)
for bit in *text for bit in *text
local bit_lua
if type(bit) == "string" if type(bit) == "string"
add_bit_lua(lua, bit\as_lua!) bit_lua = bit\as_lua!
elseif bit.type == "Text" elseif bit.type == "Text"
add_bit_lua(lua, operate_on_text(bit)) bit_lua = operate_on_text(bit)
elseif bit.type == "Block"
bit_lua = LuaCode\from bit.source, "(function()",
"\n local _lua = LuaCode:from(", tostring(bit.source)\as_lua!, ")",
"\n local function add(bit) _lua:append(bit) end",
"\n local function join_with(glue)",
"\n local old_bits = _lua.bits",
"\n _lua = LuaCode:from(_lua.source)",
"\n _lua:concat_append(old_bits, glue)",
"\n end",
"\n ", compile(bit),
"\n return _lua",
"\nend)()"
else else
add_bit_lua(lua, compile(bit)) bit_lua = compile(bit)
bit_leading_len = #(bit_lua\match("^[^\n]*"))
lua\append(lua\trailing_line_len! + bit_leading_len > MAX_LINE and ",\n " or ", ")
lua\append(bit_lua)
lua\append ")" lua\append ")"
return lua return lua
return operate_on_text code return operate_on_text code
["lua >"]: (compile, code)-> ["lua >"]: (compile, code)->