diff options
Diffstat (limited to 'tex/context/base/typo-rep.lua')
| -rw-r--r-- | tex/context/base/typo-rep.lua | 135 |
1 files changed, 135 insertions, 0 deletions
diff --git a/tex/context/base/typo-rep.lua b/tex/context/base/typo-rep.lua new file mode 100644 index 000000000..6fde21482 --- /dev/null +++ b/tex/context/base/typo-rep.lua @@ -0,0 +1,135 @@ +if not modules then modules = { } end modules ['typo-rep'] = { + version = 1.001, + comment = "companion to node-ini.mkiv", + author = "Hans Hagen, PRAGMA-ADE, Hasselt NL", + copyright = "PRAGMA ADE / ConTeXt Development Team", + license = "see context related readme files" +} + +-- This was rather boring to program (more of the same) but I could +-- endure it by listening to a couple cd's by The Scene and The Lau +-- on the squeezebox on my desk. + +local trace_stripping = false trackers.register("nodes.stripping", function(v) trace_stripping = v end) + trackers.register("fonts.stripping", function(v) trace_stripping = v end) + +local delete_node = nodes.delete +local replace_node = nodes.replace +local copy_node = node.copy +local has_attribute = node.has_attribute + +local chardata = characters.data +local collected = false +local glyph = node.id("glyph") +local attribute = attributes.private("stripping") +local fontdata = fonts.ids + +nodes.stripping = nodes.stripping or { } +local stripping = nodes.stripping +stripping.glyphs = stripping.glyphs or { } +local glyphs = stripping.glyphs + +local function initialize() + for k,v in next, chardata do + if v.category == "cf" and v.visible ~= "yes" then + if not glyphs[k] then + glyphs[k] = true + end + end + end + initialize = nil +end + +local function process(what,head,current,char) + if what == true then + if trace_stripping then + logs.report("fonts","deleting 0x%05X from text",char) + end + head, current = delete_node(head,current) + elseif type(what) == "function" then + head, current = what(head,current) + current = current.next + if trace_stripping then + logs.report("fonts","processing 0x%05X in text",char) + end + elseif what then -- assume node + head, current = replace_node(head,current,copy_node(what)) + current = current.next + if trace_stripping then + logs.report("fonts","replacing 0x%05X in text",char) + end + end + return head, current +end + +function nodes.stripping.process(head) + local current, done = head, false + while current do + if current.id == glyph then + -- it's more efficient to keep track of what needs to be kept + local todo = has_attribute(current,attribute) + if todo == 1 then + local char = current.char + local what = glyphs[char] + if what then + head, current = process(what,head,current,char) + done = true + else -- handling of spacing etc has to be done elsewhere + current = current.next + end + else + current = current.next + end + else + current = current.next + end + end + return head, done +end + +tasks.appendaction("processors","fonts","nodes.stripping.process",nil,"nodes.process_characters") +tasks.disableaction("processors","nodes.stripping.process") + +function nodes.stripping.enable() + if initialize then initialize() end + tasks.enableaction("processors","nodes.stripping.process") + function nodes.stripping.enable() end +end + +-- bonus: + +local initializers, methods = fonts.initializers, fonts.methods + +local function processformatters(head,font) + local how = fontdata[font].shared.features.formatters -- slow + if how == nil or how == "strip" then -- nil when forced + local current, done = head, false + while current do + if current.id == glyph and current.subtype<256 and current.font == font then + local char = current.char + local what = glyphs[char] + if what then + head, current = process(what,head,current,char) + done = true + else -- handling of spacing etc has to be done elsewhere + current = current.next + end + else + current = current.next + end + end + return head, done + else + return head, false + end +end + +function initializers.common.formatters(tfmdata,value) + if initialize then initialize() end +end + +initializers.base.otf.formatters = initializers.common.formatters +initializers.node.otf.formatters = initializers.common.formatters + +methods.node.otf.formatters = processformatters +methods.base.otf.formatters = processformatters |