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