summaryrefslogtreecommitdiff
path: root/otfl-node-pro.lua
diff options
context:
space:
mode:
authorKhaled Hosny <khaledhosny@eglug.org>2010-04-05 12:25:17 +0200
committerKhaled Hosny <khaledhosny@eglug.org>2010-04-05 12:25:17 +0200
commitb091e21a00b4636d3c6f4d147304c56a2a51afd8 (patch)
treeb3bb0994fd46701ff3943a4d70c7e8dfeae70e9c /otfl-node-pro.lua
parentffd5d4830688ca36153885c0336d3e2090abe0ce (diff)
downloadluaotfload-b091e21a00b4636d3c6f4d147304c56a2a51afd8.tar.gz
Revert "Import ConTeXt math modules"
This code proved to cause harm than good; unicode-math is doing better without it. So, revert it back, until we are ready for it.
Diffstat (limited to 'otfl-node-pro.lua')
-rw-r--r--otfl-node-pro.lua149
1 files changed, 0 insertions, 149 deletions
diff --git a/otfl-node-pro.lua b/otfl-node-pro.lua
deleted file mode 100644
index 4f5b3dc..0000000
--- a/otfl-node-pro.lua
+++ /dev/null
@@ -1,149 +0,0 @@
-if not modules then modules = { } end modules ['node-pro'] = {
- 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"
-}
-
-local utf = unicode.utf8
-local format, concat = string.format, table.concat
-
-local trace_callbacks = false trackers.register("nodes.callbacks", function(v) trace_callbacks = v end)
-
-local glyph = node.id('glyph')
-
-local free_node = node.free
-local first_character = node.first_character
-
-nodes.processors = nodes.processors or { }
-
--- vbox: grouptype: vbox vtop output split_off split_keep | box_type: exactly|aditional
--- hbox: grouptype: hbox adjusted_hbox(=hbox_in_vmode) | box_type: exactly|aditional
-
-lists = lists or { }
-chars = chars or { }
-words = words or { } -- not used yet
-
-local actions = tasks.actions("processors",4)
-
-local n = 0
-
-local function reconstruct(head)
- local t = { }
- local h = head
- while h do
- local id = h.id
- if id == glyph then
- t[#t+1] = utf.char(h.char)
- else
- t[#t+1] = "[]"
- end
- h = h.next
- end
- return concat(t)
-end
-
-local function tracer(what,state,head,groupcode,before,after,show)
- if not groupcode then
- groupcode = "unknown"
- elseif groupcode == "" then
- groupcode = "mvl"
- end
- n = n + 1
- if show then
- logs.report("nodes","%s %s: %s, group: %s, nodes: %s -> %s, string: %s",what,n,state,groupcode,before,after,reconstruct(head))
- else
- logs.report("nodes","%s %s: %s, group: %s, nodes: %s -> %s",what,n,state,groupcode,before,after)
- end
-end
-
-nodes.processors.enabled = true -- thsi will become a proper state (like trackers)
-
-function nodes.processors.pre_linebreak_filter(head,groupcode,size,packtype,direction)
- local first, found = first_character(head)
- if found then
- if trace_callbacks then
- local before = nodes.count(head,true)
- local head, done = actions(head,groupcode,size,packtype,direction)
- local after = nodes.count(head,true)
- if done then
- tracer("pre_linebreak","changed",head,groupcode,before,after,true)
- else
- tracer("pre_linebreak","unchanged",head,groupcode,before,after,true)
- end
- return (done and head) or true
- else
- local head, done = actions(head,groupcode,size,packtype,direction)
- return (done and head) or true
- end
- elseif trace_callbacks then
- local n = nodes.count(head,false)
- tracer("pre_linebreak","no chars",head,groupcode,n,n)
- end
- return true
-end
-
-function nodes.processors.hpack_filter(head,groupcode,size,packtype,direction)
- local first, found = first_character(head)
- if found then
- if trace_callbacks then
- local before = nodes.count(head,true)
- local head, done = actions(head,groupcode,size,packtype,direction)
- local after = nodes.count(head,true)
- if done then
- tracer("hpack","changed",head,groupcode,before,after,true)
- else
- tracer("hpack","unchanged",head,groupcode,before,after,true)
- end
- return (done and head) or true
- else
- local head, done = actions(head,groupcode,size,packtype,direction)
- return (done and head) or true
- end
- elseif trace_callbacks then
- local n = nodes.count(head,false)
- tracer("hpack","no chars",head,groupcode,n,n)
- end
- return true
-end
-
-callbacks.register('pre_linebreak_filter', nodes.processors.pre_linebreak_filter,"all kind of horizontal manipulations (before par break)")
-callbacks.register('hpack_filter' , nodes.processors.hpack_filter,"all kind of horizontal manipulations")
-
-local actions = tasks.actions("finalizers",1) -- head, where
-
--- beware, these are packaged boxes so no first_character test
--- maybe some day a hash with valid groupcodes
---
--- beware, much can pass twice, for instance vadjust passes two times
-
-function nodes.processors.post_linebreak_filter(head,groupcode)
---~ local first, found = first_character(head)
---~ if found then
- if trace_callbacks then
- local before = nodes.count(head,true)
- local head, done = actions(head,groupcode)
- local after = nodes.count(head,true)
- if done then
- tracer("finalizer","changed",head,groupcode,before,after,true)
- else
- tracer("finalizer","unchanged",head,groupcode,before,after,true)
- end
- return (done and head) or true
- else
- local head, done = actions(head,groupcode)
- return (done and head) or true
- end
---~ elseif trace_callbacks then
---~ local n = nodes.count(head,false)
---~ tracer("finalizer","no chars",head,groupcode,n,n)
---~ end
---~ return true
-end
-
-callbacks.register('post_linebreak_filter', nodes.processors.post_linebreak_filter,"all kind of horizontal manipulations (after par break)")
-
-statistics.register("h-node processing time", function()
- return statistics.elapsedseconds(nodes,"including kernel") -- hm, ok here?
-end)