diff options
Diffstat (limited to 'Master/texmf-dist/tex/context/base/mkiv/trac-ctx.lua')
-rw-r--r-- | Master/texmf-dist/tex/context/base/mkiv/trac-ctx.lua | 70 |
1 files changed, 70 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/context/base/mkiv/trac-ctx.lua b/Master/texmf-dist/tex/context/base/mkiv/trac-ctx.lua new file mode 100644 index 00000000000..493ce793686 --- /dev/null +++ b/Master/texmf-dist/tex/context/base/mkiv/trac-ctx.lua @@ -0,0 +1,70 @@ +if not modules then modules = { } end modules ['trac-ctx'] = { + version = 1.001, + comment = "companion to trac-ctx.mkiv", + author = "Hans Hagen, PRAGMA-ADE, Hasselt NL", + copyright = "PRAGMA ADE / ConTeXt Development Team", + license = "see context related readme files" +} + +local context = context +local implement = interfaces.implement +local register = trackers.register + +local textrackers = tex.trackers or { } +local texdirectives = tex.directives or { } + +tex.trackers = textrackers +tex.directives = texdirectives + +storage.register("tex/trackers", textrackers, "tex.trackers") +storage.register("tex/directives",texdirectives,"tex.directives") + +local function doit(category,tag,v) + local tt = category[tag] + if tt then + context.unprotect() + context(v and tt[1] or tt[2]) -- could be one call + context.protect() + end +end + +local function initialize(category,register) + for tag, commands in next, category do + register(tag, function(v) doit(category,tag,v) end) -- todo: v,tag in caller + end +end + +local function install(category,register,tag,enable,disable) + category[tag] = { enable, disable } + register(tag, function(v) doit(category,tag,v) end) -- todo: v,tag in caller +end + +implement { + name = "initializetextrackers", + actions = function() + initialize(textrackers,trackers.register) + end +} + +implement { + name = "initializetexdirectives", + actions = function() + initialize(texdirectives,directives.register) + end +} + +implement { + name = "installtextracker", + actions = function(tag,enable,disable) + install(textrackers,trackers.register,tag,enable,disable) + end, + arguments = { "string", "string", "string" } +} + +implement { + name = "installtexdirective", + actions = function(tag,enable,disable) + install(texdirectives,directives.register,tag,enable,disable) + end, + arguments = { "string", "string", "string" } +} |