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

Updated.

Browse Source
This commit is contained in:
Bruce Hill 2018-04-19 19:23:15 -07:00
parent 310712385b
commit 928e78f252
1 changed files with 51 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

71
nomsu_tree.lua
View File

@ -46,6 +46,18 @@ Tree = function(name, methods)
end end
methods.type = name methods.type = name
methods.name = name methods.name = name
methods.as_nomsu = function(self)
local leading_space = 0
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
leading_space = leading_space + 1
end
if src_file:sub(self.source.start - leading_space - 1, self.source.start - leading_space - 1) ~= "\n" then
leading_space = 0
end
local ret = tostring(self.source:get_text()):gsub("\n" .. ((" "):rep(leading_space)), "\n")
return ret
end
end end
Types[name] = immutable({ Types[name] = immutable({
"value", "value",
@ -57,7 +69,6 @@ Tree("File", {
if #self.value == 1 then if #self.value == 1 then
return self.value[1]:as_lua(nomsu) return self.value[1]:as_lua(nomsu)
end end
local declared_locals = { }
local lua = Lua(self.source) local lua = Lua(self.source)
for i, line in ipairs(self.value) do for i, line in ipairs(self.value) do
local line_lua = line:as_lua(nomsu) local line_lua = line:as_lua(nomsu)
@ -76,7 +87,7 @@ Tree("File", {
}) })
Tree("Nomsu", { Tree("Nomsu", {
as_lua = function(self, nomsu) as_lua = function(self, nomsu)
return Lua.Value(self.source, "nomsu:parse(", repr(self.source:get_text()), ", ", repr(self.source.filename), ")") return Lua.Value(self.source, "nomsu:parse(Nomsu(", repr(self.value.source), ", ", repr(tostring(self.value.source:get_text())), ")).value[1]")
end end
}) })
Tree("Block", { Tree("Block", {
@ -96,7 +107,7 @@ Tree("Block", {
return lua return lua
end end
}) })
local math_patt = re.compile([[ "%" (" " [*/^+-] " %")+ ]]) local math_expression = re.compile([[ "%" (" " [*/^+-] " %")+ ]])
Tree("Action", { Tree("Action", {
as_lua = function(self, nomsu) as_lua = function(self, nomsu)
local stub = self:get_stub() local stub = self:get_stub()
@ -132,10 +143,11 @@ Tree("Action", {
end end
args = new_args args = new_args
end end
return action(Lua(self.source), unpack(args)) local ret = action(Lua(self.source), unpack(args))
return ret
end end
local lua = Lua.Value(self.source) local lua = Lua.Value(self.source)
if not metadata and math_patt:match(stub) then if not metadata and math_expression:match(stub) then
for i, tok in ipairs(self.value) do for i, tok in ipairs(self.value) do
if tok.type == "Word" then if tok.type == "Word" then
lua:append(tok.value) lua:append(tok.value)
@ -187,7 +199,7 @@ Tree("Action", {
args = _accum_0 args = _accum_0
end end
end end
lua:append("ACTIONS[", repr(stub), "(") lua:append("ACTIONS[", repr(stub), "](")
for i, arg in ipairs(args) do for i, arg in ipairs(args) do
lua:append(arg) lua:append(arg)
if i < #args then if i < #args then
@ -197,18 +209,37 @@ Tree("Action", {
lua:append(")") lua:append(")")
return lua return lua
end, end,
get_stub = function(self) get_stub = function(self, include_names)
return concat((function() if include_names == nil then
local _accum_0 = { } include_names = false
local _len_0 = 1 end
local _list_0 = self.value local bits
for _index_0 = 1, #_list_0 do if include_names then
local t = _list_0[_index_0] do
_accum_0[_len_0] = (t.type == "Word" and t.value or "%") local _accum_0 = { }
_len_0 = _len_0 + 1 local _len_0 = 1
local _list_0 = self.value
for _index_0 = 1, #_list_0 do
local t = _list_0[_index_0]
_accum_0[_len_0] = (t.type == "Word" and t.value or "%" .. tostring(t.value))
_len_0 = _len_0 + 1
end
bits = _accum_0
end end
return _accum_0 else
end)(), " ") do
local _accum_0 = { }
local _len_0 = 1
local _list_0 = self.value
for _index_0 = 1, #_list_0 do
local t = _list_0[_index_0]
_accum_0[_len_0] = (t.type == "Word" and t.value or "%")
_len_0 = _len_0 + 1
end
bits = _accum_0
end
end
return concat(bits, " ")
end end
}) })
Tree("Text", { Tree("Text", {
@ -343,8 +374,8 @@ Tree("IndexChain", {
local line, src = self.value[1].source:get_line(), self.value[1].source:get_text() local line, src = self.value[1].source:get_line(), self.value[1].source:get_text()
error(tostring(line) .. ": Cannot index " .. tostring(colored.yellow(src)) .. ", since it's not an expression.", 0) error(tostring(line) .. ": Cannot index " .. tostring(colored.yellow(src)) .. ", since it's not an expression.", 0)
end end
local last_char = tostring(lua):sub(-1, -1) local first_char = tostring(lua):sub(1, 1)
if last_char == "}" or last_char == '"' or last_char == "]" then if first_char == "{" or first_char == '"' or first_char == "[" then
lua:parenthesize() lua:parenthesize()
end end
for i = 2, #self.value do for i = 2, #self.value do
@ -356,7 +387,7 @@ Tree("IndexChain", {
_continue_0 = true _continue_0 = true
break break
end end
local key_lua = self:tree_to_lua(key) local key_lua = key:as_lua(nomsu)
if not (key_lua.is_value) then if not (key_lua.is_value) then
local line, src = key.source:get_line(), key.source:get_text() local line, src = key.source:get_line(), key.source:get_text()
error(tostring(line) .. ": Cannot use " .. tostring(colored.yellow(src)) .. " as an index, since it's not an expression.", 0) error(tostring(line) .. ": Cannot use " .. tostring(colored.yellow(src)) .. " as an index, since it's not an expression.", 0)