summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/context/base/pret-xml.lua
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/tex/context/base/pret-xml.lua')
-rw-r--r--Master/texmf-dist/tex/context/base/pret-xml.lua136
1 files changed, 0 insertions, 136 deletions
diff --git a/Master/texmf-dist/tex/context/base/pret-xml.lua b/Master/texmf-dist/tex/context/base/pret-xml.lua
deleted file mode 100644
index b11dccb99c3..00000000000
--- a/Master/texmf-dist/tex/context/base/pret-xml.lua
+++ /dev/null
@@ -1,136 +0,0 @@
-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