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

Recompile.

Browse Source
This commit is contained in:
Bruce Hill 2017-10-19 18:16:48 -07:00
parent ca5896b7bd
commit 09cb00e106
1 changed files with 22 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
nomsu.lua
View File

@ -833,25 +833,33 @@ end)]]):format(concat(lua_bits, "\n"))
return self:error("Invalid type for %" .. tostring(varname) .. ". Expected " .. tostring(desired_type) .. ", but got " .. tostring(x.type) .. ".")
end,
initialize_core = function(self)
local nomsu_string_as_lua
nomsu_string_as_lua = function(self, code)
local concat_parts = { }
local _list_0 = code.value
for _index_0 = 1, #_list_0 do
local bit = _list_0[_index_0]
if type(bit) == "string" then
insert(concat_parts, bit)
else
local expr, statement = self:tree_to_lua(bit)
if statement then
self:error("Cannot use [[" .. tostring(bit.src) .. "]] as a string interpolation value, since it's not an expression.")
end
insert(concat_parts, expr)
end
end
return concat(concat_parts)
end
local lua_code
lua_code = function(self, vars)
local inner_vars = setmetatable({ }, {
__index = function(_, key)
return "vars[" .. tostring(repr(key)) .. "]"
end
})
local lua = self:tree_to_value(vars.code, inner_vars)
local lua = nomsu_string_as_lua(self, vars.code)
return nil, lua
end
self:defmacro("lua> %code", lua_code)
local lua_value
lua_value = function(self, vars)
local inner_vars = setmetatable({ }, {
__index = function(_, key)
return "vars[" .. tostring(repr(key)) .. "]"
end
})
local lua = self:tree_to_value(vars.code, inner_vars)
local lua = nomsu_string_as_lua(self, vars.code)
return lua, nil
end
self:defmacro("=lua %code", lua_value)