diff options
Diffstat (limited to 'Master/texmf-dist/tex/context/base/pret-xml.lua')
-rw-r--r-- | Master/texmf-dist/tex/context/base/pret-xml.lua | 136 |
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 |