long comments work now
This commit is contained in:
parent
f56e1bd7e7
commit
772e7a9755
|
@ -484,12 +484,11 @@ do local tmaybe_comment = setmetatable({["-"] = "comment"}, {__index=defs})
|
|||
mknewline(tmcomment, 1, defs)
|
||||
mknewline(tmcomment.comment_proper, 1, defs)
|
||||
tmcomment.comment_proper[""] = "self"
|
||||
do local tlongcomment = {}
|
||||
tmcomment.longcomment = tlongcomment
|
||||
do local tllongcomment_proper = selfify({[""] = "self", ["]"] = function(state, token) state.longcomment_close = 0 return "maybe_end" end})
|
||||
do local tllmaybe_end = selfify({comment = tcomment}, "maybe_end")
|
||||
tmcomment.longcomment = tllongcomment_proper
|
||||
do local tllmaybe_end = selfify({defs = defs}, "maybe_end")
|
||||
tllongcomment_proper.maybe_end = tllmaybe_end
|
||||
tllmaybe_end = tllongcomment_proper
|
||||
tllmaybe_end.longcomment_proper = tllongcomment_proper
|
||||
tllmaybe_end["="] = function(state, token)
|
||||
state.longcomment_close = state.longcomment_close + 1
|
||||
return "maybe_end"
|
||||
|
@ -512,10 +511,7 @@ do local tmaybe_comment = setmetatable({["-"] = "comment"}, {__index=defs})
|
|||
end
|
||||
end
|
||||
|
||||
tlongcomment.longcomment_proper = tllongcomment_proper
|
||||
mknewline(tlongcomment, 1, tllongcomment_proper)
|
||||
setmetatable(tlongcomment, {__index=tllongcomment_proper})
|
||||
end
|
||||
mknewline(tllongcomment_proper, 1, tllongcomment_proper)
|
||||
end
|
||||
|
||||
tmcomment.maybe_longcomment = setmetatable({
|
||||
|
@ -536,7 +532,7 @@ do local tmaybe_comment = setmetatable({["-"] = "comment"}, {__index=defs})
|
|||
return "longcomment_count"
|
||||
elseif token == "[" then
|
||||
state.longcomment_count = 0
|
||||
return "longstring"
|
||||
return "longcomment"
|
||||
end
|
||||
end,
|
||||
}, {__index=tmcomment})
|
||||
|
|
3
test.lua
3
test.lua
|
@ -385,6 +385,7 @@ do -- long comments
|
|||
local luatokens = require "luatokens"
|
||||
local tokens = luatokens.defs
|
||||
local state, err, etoken, estate = parser.parse(tokens, [==[--[[
|
||||
|
||||
--]]]==])
|
||||
local case = case()
|
||||
if not state then
|
||||
|
@ -396,7 +397,7 @@ do -- long comments
|
|||
print(case, "---- OUT TOKENS ----")
|
||||
else
|
||||
assert(table.remove(state, 1) == nil)
|
||||
assert(state.line == 2)
|
||||
assert(state.line == 3)
|
||||
end
|
||||
end -- long comments
|
||||
|
||||
|
|
Loading…
Reference in New Issue