summaryrefslogtreecommitdiff
path: root/tex/context/base/buff-vis.lua
diff options
context:
space:
mode:
Diffstat (limited to 'tex/context/base/buff-vis.lua')
-rw-r--r--tex/context/base/buff-vis.lua74
1 files changed, 0 insertions, 74 deletions
diff --git a/tex/context/base/buff-vis.lua b/tex/context/base/buff-vis.lua
deleted file mode 100644
index 1a97f2591..000000000
--- a/tex/context/base/buff-vis.lua
+++ /dev/null
@@ -1,74 +0,0 @@
-if not modules then modules = { } end modules ['buff-vis'] = {
- version = 1.001,
- comment = "companion to buff-vis.mkiv",
- author = "Hans Hagen, PRAGMA-ADE, Hasselt NL",
- copyright = "PRAGMA ADE / ConTeXt Development Team",
- license = "see context related readme files"
-}
-
-local type = type
-local format = string.format
-local C, P, V, patterns, lpegmatch = lpeg.C, lpeg.P, lpeg.V, lpeg.patterns, lpeg.match
-
-visualizers = visualizers or { }
-
-local patterns = { } visualizers.patterns = patterns
-
-local fallback = context.verbatim
-
-function visualizers.pattern(visualizer,kind,pattern)
- if type(visualizer) == "table" and type(kind) == "string" then
- kind = visualizer[kind] or visualizer.default or fallback
- else
- kind = fallback
- end
- return C(pattern)/kind
-end
-
-setmetatable(patterns, {
- __index = function(t,k)
- local v = require(format("v-%s.lua",k)) or false
- context.input(format("v-%s.mkiv",k))
- t[k] = v
- return v
- end
-} )
-
-local function visualizestring(method,content)
- if content and content ~= "" then
- lpegmatch(patterns[method],content)
- end
-end
-
-visualizers.visualizestring = visualizestring
-
-function visualizers.visualizefile(method,name)
- visualizestring(method,resolvers.loadtexfile(name))
-end
-
-function visualizers.visualizebuffer(method,name)
- lpegmatch(method,buffers.content(name))
-end
-
-local visualizer = {
- start = function() context.startSnippet() end,
- stop = function() context.stopSnippet() end ,
- default = context.verbatim,
-}
-
-local patterns = lpeg.patterns
-local pattern = visualizers.pattern
-
-local texvisualizer = P { "process",
- process =
- V("start") * V("content") * V("stop"),
- start =
- pattern(visualizer,"start",patterns.beginofstring),
- stop =
- pattern(visualizer,"stop",patterns.endofstring),
- content = (
- pattern(visualizer,"default",patterns.anything)
- )^1
-}
-
-return texvisualizer