stable 2010-05-24 13:10

1 files changed, 136 insertions, 0 deletions

diff --git a/tex/context/base/pret-xml.lua b/tex/context/base/pret-xml.lua
new file mode 100644
index 000000000..b11dccb99
--- /dev/null
+++ b/tex/context/base/pret-xml.lua
@@ -0,0 +1,136 @@
+if not modules then modules = { } end modules ['pret-xml'] = {
+    version   = 1.001,
+    comment   = "companion to buff-ver.mkiv",
+    author    = "Hans Hagen, PRAGMA-ADE, Hasselt NL",
+    copyright = "PRAGMA ADE / ConTeXt Development Team",
+    license   = "see context related readme files"
+}
+
+-- line by line, no check because can be snippet (educational) and
+-- a somewhat simplified view on xml; we forget about dtd's and
+-- cdata (some day i'll make a visualizer for valid xml using the
+-- built in parser)
+
+local utf = unicode.utf8
+
+local utfcharacters, utfvalues = string.utfcharacters, string.utfvalues
+local utfbyte, utffind = utf.byte, utf.find
+local rep = string.rep
+local texsprint, texwrite = tex.sprint, tex.write
+local ctxcatcodes = tex.ctxcatcodes
+
+local visualizer = buffers.newvisualizer("xml")
+
+local colors = {
+    "prettytwo",
+    "prettyone",
+    "prettythree",
+    "prettyfour"
+}
+
+local states = {
+    ['"']=2, ["'"]=2,
+    ["-"]=1, ["?"]=1, ["!"]=1, [":"]=1, ["_"]=1, ["/"]=1,
+}
+
+local change_state, finish_state = buffers.change_state, buffers.finish_state
+
+local state, intag, dotag, inentity, inquote
+
+function visualizer.reset()
+    state, intag, dotag, inentity, inquote = 0, false, false, false, false
+end
+
+function visualizer.flush_line(str,nested)
+    buffers.currentcolors = colors
+    for c in utfcharacters(str) do
+        if c == "&" then
+            inentity = true -- no further checking
+            state = change_state(3, state)
+            texwrite(c)
+        elseif c == ";" then
+            if inentity then
+                inentity = false
+                state = change_state(3, state)
+                texwrite(c)
+                state = finish_state(state)
+            else
+                texwrite(c)
+            end
+        elseif inentity then
+            state = change_state(3, state)
+            texwrite(c)
+        elseif c == " " then
+            state = finish_state(state)
+            texsprint(ctxcatcodes,"\\obs")
+            intag = false
+        elseif c == "\t" then
+            state = finish_state(state)
+            texsprint(ctxcatcodes,"\\obs")
+            if buffers.visualizers.enabletab then
+                texsprint(ctxcatcodes,rep("\\obs ",i%buffers.visualizers.tablength))
+            end
+            intag = false
+        elseif c == "<" then
+            if intag then
+                state = finish_state(state)
+                -- error
+            else
+                intag = 1
+                dotag = true
+                state = change_state(1, state)
+            end
+            texwrite(c)
+        elseif c == ">" then
+            if intag then
+                texwrite(c)
+                state = finish_state(state)
+                intag, dotag = false, false
+            elseif dotag then
+                state = change_state(1, state)
+                texwrite(c)
+                state = finish_state(state)
+                intag, dotag = false, false
+            else
+                state = finish_state(state)
+                texwrite(c)
+            end
+        elseif intag then
+            if utffind(c,"^[%S]$") then
+                state = change_state(1, state)
+                texwrite(c)
+                intag = intag + 1
+            else
+                intag = false
+                state = finish_state(state)
+                texwrite(c)
+            end
+        elseif dotag then
+            if c == "'" or c == '"' then
+                if inquote then
+                    if c == inquote then
+                        state = change_state(states[c], state) -- 2
+                        texwrite(c)
+                        state = finish_state(state)
+                        inquote = false
+                    else
+                        texwrite(c)
+                    end
+                else
+                    inquote = c
+                    state = change_state(states[c], state)
+                    texwrite(c)
+                    state = finish_state(state)
+                end
+            elseif inquote then
+                texwrite(c)
+            else
+                state = change_state(states[c], state)
+                texwrite(c)
+            end
+        else
+            texwrite(c)
+        end
+    end
+    state = finish_state(state)
+end