diff options
Diffstat (limited to 'Master/texmf-dist/tex/context/base/node-res.lua')
-rw-r--r-- | Master/texmf-dist/tex/context/base/node-res.lua | 19 |
1 files changed, 17 insertions, 2 deletions
diff --git a/Master/texmf-dist/tex/context/base/node-res.lua b/Master/texmf-dist/tex/context/base/node-res.lua index 7f737ea7040..4522bef98ea 100644 --- a/Master/texmf-dist/tex/context/base/node-res.lua +++ b/Master/texmf-dist/tex/context/base/node-res.lua @@ -28,6 +28,7 @@ local pool = nodes.pool local whatsitcodes = nodes.whatsitcodes local skipcodes = nodes.skipcodes +local kerncodes = nodes.kerncodes local nodecodes = nodes.nodecodes local glyph_code = nodecodes.glyph @@ -75,7 +76,8 @@ function pool.usage() end local disc = register_node(new_node("disc")) -local kern = register_node(new_node("kern",1)) +local kern = register_node(new_node("kern",kerncodes.userkern)) +local fontkern = register_node(new_node("kern",kerncodes.fontkern)) local penalty = register_node(new_node("penalty")) local glue = register_node(new_node("glue")) -- glue.spec = nil local glue_spec = register_node(new_node("glue_spec")) @@ -83,6 +85,7 @@ local glyph = register_node(new_node("glyph",0)) local textdir = register_node(new_node("whatsit",whatsitcodes.dir)) local rule = register_node(new_node("rule")) local latelua = register_node(new_node("whatsit",whatsitcodes.latelua)) +local special = register_node(new_node("whatsit",whatsitcodes.special)) local user_n = register_node(new_node("whatsit",whatsitcodes.userdefined)) user_n.type = 100 -- 44 local user_l = register_node(new_node("whatsit",whatsitcodes.userdefined)) user_l.type = 110 -- 44 local user_s = register_node(new_node("whatsit",whatsitcodes.userdefined)) user_s.type = 115 -- 44 @@ -126,6 +129,12 @@ function pool.kern(k) return n end +function pool.fontkern(k) + local n = copy_node(fontkern) + n.kern = k + return n +end + function pool.gluespec(width,stretch,shrink,stretch_order,shrink_order) local s = copy_node(glue_spec) if width then s.width = width end @@ -363,8 +372,14 @@ function pool.usertokens(id,tokens) return n end +function pool.special(str) + local n = copy_node(special) + n.data = str + return n +end + statistics.register("cleaned up reserved nodes", function() - return format("%s nodes, %s lists of %s", pool.cleanup(tex.count["lastallocatedbox"])) + return format("%s nodes, %s lists of %s", pool.cleanup(tex.count["c_syst_last_allocated_box"])) end) -- \topofboxstack statistics.register("node memory usage", function() -- comes after cleanup ! |