summaryrefslogtreecommitdiff
path: root/tex/context/base/pret-tex.lua
diff options
context:
space:
mode:
Diffstat (limited to 'tex/context/base/pret-tex.lua')
-rw-r--r--tex/context/base/pret-tex.lua92
1 files changed, 0 insertions, 92 deletions
diff --git a/tex/context/base/pret-tex.lua b/tex/context/base/pret-tex.lua
deleted file mode 100644
index 0baf576c8..000000000
--- a/tex/context/base/pret-tex.lua
+++ /dev/null
@@ -1,92 +0,0 @@
-if not modules then modules = { } end modules ['pret-tex'] = {
- 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"
-}
-
-local utf = unicode.utf8
-
-local utfcharacters, utfvalues = string.utfcharacters, string.utfvalues
-local utfbyte, utffind = utf.byte, utf.find
-local texwrite = tex.write
-
-local buffers = buffers
-local context = context
-
-local changestate, finishstate = buffers.changestate, buffers.finishstate
-
-local visualizer = buffers.newvisualizer("tex")
-
-local colors = {
- "prettytwo",
- "prettyone",
- "prettythree",
- "prettyfour"
-}
-
-local states = {
- ['$']=2, ['{']=2, ['}']=2,
- ['[']=3, [']']=3, ['(']=3, [')']=3, ['<']=3, ['>']=3, ['#']=3, ['=']=3, ['"']=3,
- ['/']=4, ['^']=4, ['_']=4, ['-']=4, ['&']=4, ['+']=4, ["'"]=4, ['`']=4, ['|']=4, ['%']=4
-}
-
--- some day I'll make an lpeg
-
-local chardata = characters.data
-local is_letter = characters.is_letter
-
-local space = context.obs
-
-function visualizer.flush_line(str,nested)
- local state, first, i = 0, false, 0
- buffers.currentcolors = colors
- for c in utfcharacters(str) do
- i = i + 1
- if c == " " then
- state = finishstate(state)
- space()
- first = false
- elseif c == "\t" then
- state = finishstate(state)
- space()
- if buffers.visualizers.enabletab then
- for i=1,i%buffers.visualizers.tablength do
- space()
- end
- i = 0
- end
- first = false
- elseif first then
- state = 1
- texwrite(c)
- if not utffind(c,"^[%a%!%?%@]$") then
- state = finishstate(state)
- end
- first = false
- elseif state == 1 then
- if utffind(c,"^[%a%!%?%@]$") then
- texwrite(c)
- first = false
- elseif c == "\\" then
- state = changestate(1, state)
- texwrite(c)
- first = true
- else
- state = changestate(states[c], state)
- texwrite(c)
- first = false
- end
- elseif c == "\\" then
- first = true
- state = changestate(1, state)
- texwrite(c)
- else
- state = changestate(states[c], state)
- texwrite(c)
- first = false
- end
- end
- state = finishstate(state)
-end