- Updated and changed a lot: strings, //-comments and {..}-comments working
- Added local function flush_whatever to handle spaces/tabs properly
This commit is contained in:
parent
1a58b65f42
commit
cb7d7e850c
108
pret-pas.lua
108
pret-pas.lua
|
|
@ -64,7 +64,7 @@ local states = {
|
|||
|
||||
local function flush_pas_word(word)
|
||||
if word then
|
||||
local id = known_words[word]
|
||||
local id = known_words[string.lower(word)]
|
||||
if id then
|
||||
tex.sprint(tex.ctxcatcodes, "\{\\bf ")
|
||||
tex.write(word)
|
||||
|
|
@ -75,6 +75,23 @@ local function flush_pas_word(word)
|
|||
end
|
||||
end
|
||||
|
||||
local function flush_whatever(str)
|
||||
if str then
|
||||
for c in string.utfcharacters(str) do
|
||||
if c == " " then
|
||||
tex.sprint(tex.ctxcatcodes, "\\obs")
|
||||
elseif c == "\t" then
|
||||
tex.sprint(tex.ctxcatcodes, "\\obs")
|
||||
if buffers.visualizers.enabletab then
|
||||
tex.sprint(tex.ctxcatcodes,rep("\\obs ", buffers.visualizers.tablength))
|
||||
end
|
||||
else
|
||||
tex.write(c);
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
local inlongcomment, incompdirec, inasm = false, false, false
|
||||
|
||||
function visualizer.reset()
|
||||
|
|
@ -98,8 +115,9 @@ end
|
|||
end]]
|
||||
|
||||
function visualizer.flush_line(str, nested)
|
||||
local state, word, lastc = 0, nil, nil
|
||||
local incomment = false
|
||||
local state, word = 0, nil
|
||||
local incomment, instring = false, false
|
||||
local code, comment = nil, nil
|
||||
buffers.currentcolors = colors
|
||||
|
||||
--[[
|
||||
|
|
@ -115,11 +133,62 @@ function visualizer.flush_line(str, nested)
|
|||
end
|
||||
until not identifier
|
||||
]]
|
||||
|
||||
--state = buffers.changestate(1, state)
|
||||
--TODO: handle inlongcomment etc.
|
||||
for c in string.utfcharacters(str) do
|
||||
if string.find(c, "^[%a_]$") then
|
||||
if inlongcomment then
|
||||
comment, code = string.match(str,"^(.-})(.*)$")
|
||||
if not comment then
|
||||
comment = str
|
||||
end
|
||||
state = buffers.changestate(3, state)
|
||||
tex.sprint(tex.ctxcatcodes, "\{\\bf")
|
||||
flush_whatever(comment)
|
||||
tex.sprint(tex.ctxcatcodes, "\}")
|
||||
if code then
|
||||
inlongcomment = false
|
||||
else
|
||||
code = ""
|
||||
end
|
||||
else
|
||||
code = str
|
||||
end
|
||||
|
||||
local c = nil
|
||||
--[[
|
||||
for nextc in string.utfcharacters(code .. " ") do
|
||||
if firstrun then
|
||||
firstrun = false
|
||||
else
|
||||
print(c, nextc)
|
||||
end
|
||||
c = nextc
|
||||
end
|
||||
]]
|
||||
|
||||
for nextc in string.utfcharacters(code .. " ") do
|
||||
if c then
|
||||
if instring then
|
||||
if c == "'" then
|
||||
-- string ends
|
||||
tex.write(c)
|
||||
state = buffers.finishstate(state)
|
||||
instring = false
|
||||
else
|
||||
-- inside the string
|
||||
flush_whatever(c)
|
||||
end
|
||||
elseif incomment then
|
||||
if inlongcomment and (c == "}") then
|
||||
-- long comment ends
|
||||
tex.write(c)
|
||||
tex.sprint(tex.ctxcatcodes, "\}")
|
||||
state = buffers.finishstate(state)
|
||||
inlongcomment = false
|
||||
incomment = false
|
||||
else
|
||||
-- inside the comment
|
||||
flush_whatever(c)
|
||||
end
|
||||
elseif string.find(c, "^[%a_]$") then
|
||||
-- char belongs to identifier
|
||||
if word then
|
||||
word = word .. c
|
||||
|
|
@ -141,27 +210,31 @@ function visualizer.flush_line(str, nested)
|
|||
if not incomment then
|
||||
state = buffers.finishstate(state)
|
||||
end
|
||||
-- identifier complete, check if it's a reserved word and flush
|
||||
flush_pas_word(word)
|
||||
word = nil
|
||||
if c == " " then
|
||||
--state = buffers.finishstate(state)
|
||||
tex.sprint(tex.ctxcatcodes, "\\obs")
|
||||
elseif c == "\t" then
|
||||
--state = buffers.finishstate(state)
|
||||
tex.sprint(tex.ctxcatcodes, "\\obs")
|
||||
if buffers.visualizers.enabletab then
|
||||
tex.sprint(tex.ctxcatcodes,rep("\\obs ", buffers.visualizers.tablength))
|
||||
end
|
||||
elseif c == "/" then
|
||||
if lastc == "/" then
|
||||
elseif c == "'" then
|
||||
if not incomment then -- "not instring" not necessary
|
||||
-- string starts
|
||||
instring = true
|
||||
state = buffers.changestate(3, state)
|
||||
end
|
||||
tex.write(c)
|
||||
elseif (c == "/") and (nextc == "/") then
|
||||
if not incomment then
|
||||
-- one-line comment starts
|
||||
incomment = true
|
||||
state = buffers.changestate(3, state)
|
||||
tex.sprint(tex.ctxcatcodes, "\{\\bf")
|
||||
end
|
||||
tex.write("//")
|
||||
end
|
||||
tex.write(c)
|
||||
elseif c == "{" then
|
||||
if not incomment then
|
||||
-- long comment starts
|
||||
|
|
@ -171,7 +244,7 @@ function visualizer.flush_line(str, nested)
|
|||
tex.sprint(tex.ctxcatcodes, "\{\\bf")
|
||||
end
|
||||
tex.write(c)
|
||||
-- TODO: (*, asm, {$, '
|
||||
-- TODO: (*, asm, {$
|
||||
else
|
||||
-- symbol
|
||||
if not incomment then
|
||||
|
|
@ -180,16 +253,19 @@ function visualizer.flush_line(str, nested)
|
|||
tex.write(c)
|
||||
end
|
||||
end
|
||||
lastc = c
|
||||
end
|
||||
c = nextc
|
||||
end
|
||||
if not incomment then
|
||||
state = buffers.finishstate(state)
|
||||
end
|
||||
-- maybe something left, check if it's a reserved word and flush
|
||||
flush_pas_word(word)
|
||||
if incomment then
|
||||
-- end the comment-line
|
||||
tex.sprint(tex.ctxcatcodes, "\}")
|
||||
end
|
||||
--word = nil
|
||||
|
||||
|
||||
--[[
|
||||
local code, comment = string.match(str,"^(.-)%-%-%[%[(.*)$")
|
||||
|
|
|
|||
Loading…
Reference in New Issue