- Updated and changed a lot: strings, //-comments and {..}-comments working

- Added local function flush_whatever to handle spaces/tabs properly

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 state, word = 0, nil
-	local incomment = false
+	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 inlongcomment then
-		if string.find(c, "^[%a_]$") 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
+				elseif c == "'" then
-				if lastc == "/" 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("//")
+					tex.write(c)
-				end
 				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,"^(.-)%-%-%[%[(.*)$")