summaryrefslogtreecommitdiff
path: root/tex/context/base/mkiv/node-nut.lua
diff options
context:
space:
mode:
Diffstat (limited to 'tex/context/base/mkiv/node-nut.lua')
-rw-r--r--tex/context/base/mkiv/node-nut.lua252
1 files changed, 0 insertions, 252 deletions
diff --git a/tex/context/base/mkiv/node-nut.lua b/tex/context/base/mkiv/node-nut.lua
index 3282c3914..689a9d1e8 100644
--- a/tex/context/base/mkiv/node-nut.lua
+++ b/tex/context/base/mkiv/node-nut.lua
@@ -144,245 +144,6 @@ nodes.tonut = tonut
-- helpers
-if not direct.getdirection then
-
- local getdir = direct.getdir
- local setdir = direct.setdir
-
- direct.getdirection = function(n)
- local d = getdir(n)
- if d == "TLT" then return 0 end
- if d == "+TLT" then return 0, false end
- if d == "-TLT" then return 0, true end
- if d == "TRT" then return 1 end
- if d == "+TRT" then return 1, false end
- if d == "-TRT" then return 1, true end
- if d == "LTL" then return 2 end
- if d == "+LTL" then return 2, false end
- if d == "-LTL" then return 2, true end
- if d == "RTT" then return 3 end
- if d == "+RTT" then return 3, false end
- if d == "-RTT" then return 3, true end
- end
-
- direct.setdirection = function(n,d,c)
- if d == 0 then if c == true then setdir(n,"-TLT") elseif c == false then setdir(n,"+TLT") else setdir(n,"TLT") end
- elseif d == 1 then if c == true then setdir(n,"-TRT") elseif c == false then setdir(n,"+TRT") else setdir(n,"TRT") end
- elseif d == 2 then if c == true then setdir(n,"-LTL") elseif c == false then setdir(n,"+LTL") else setdir(n,"LTL") end
- elseif d == 3 then if c == true then setdir(n,"-RTT") elseif c == false then setdir(n,"+RTT") else setdir(n,"RTT") end
- else if c == true then setdir(n,"-TLT") elseif c == false then setdir(n,"+TLT") else setdir(n,"TLT") end end
- end
-
-end
-
-if not direct.getexpansion then
-
- local getfield = direct.getfield
- local setfield = direct.setfield
- local getid = direct.getid
-
- local nodecodes = nodes.nodecodes
- local whatsitcodes = nodes.whatsitcodes
-
- local glyph_code = nodecodes.glyph
- local kern_code = nodecodes.kern
-
- function direct.getexpansion(n)
- local id = getid(n)
- if id == glyph_code or id == kern_code then
- return getfield(n,"expansion_factor")
- end
- end
-
- function direct.setexpansion(n,e)
- local id = getid(n)
- if id == glyph_code or id == kern_code then
- setfield(n,"expansion_factor",e)
- end
- end
-
-end
-
-if not direct.getdata then
-
- local getid = direct.getid
- local getsubtype = direct.getsubtype
- local getfield = direct.getfield
- local setfield = direct.setfield
-
- local nodecodes = nodes.nodecodes
- local whatsitcodes = nodes.whatsitcodes
-
- local glyph_code = nodecodes.glyph
- local boundary_code = nodecodes.boundary
- local whatsit_code = nodecodes.whatsit
-
- local user_defined_code = whatsitcodes.userdefined
- local pdf_literal_code = whatsitcodes.pdfliteral
- local pdf_setmatrix_code = whatsitcodes.pdfsetmatrix
- local late_lua_code = whatsitcodes.latelua
- local special_code = whatsitcodes.special
- local write_code = whatsitcodes.write
-
- function direct.getdata(n)
- local id = getid(n)
- if id == glyph_code then
- return getfield(n,"data")
- elseif id == boundary_code then
- return getfield(n,"value")
- elseif id == whatsit_code then
- local subtype = getsubtype(n)
- if subtype == user_defined_code then
- return getfield(n,"value")
- elseif subtype == pdf_literal_code then
- return getfield(n,"data"), getfield(n,"mode")
- elseif subtype == late_lua_code then
- return getfield(n,"string")
- elseif subtype == pdf_setmatrix_code then
- return getfield(n,"data")
- elseif subtype == special_code then
- return getfield(n,"data")
- elseif subtype == write_code then
- return getfield(n,"data")
- end
- end
- end
-
- function direct.setdata(n,v,vv)
- local id = getid(n)
- if id == glyph_code then
- return setfield(n,"data",v)
- elseif id == boundary_code then
- return setfield(n,"value",v)
- elseif id == whatsit_code then
- local subtype = getsubtype(n)
- if subtype == user_defined_code then
- setfield(n,"value",v)
- elseif subtype == pdf_literal_code then
- setfield(n,"data",v)
- if m then
- setfield(n,"mode",vv)
- end
- elseif subtype == late_lua_code then
- setfield(n,"string",v)
- elseif subtype == pdf_setmatrix_code then
- setfield(n,"data",v)
- elseif subtype == special_code then
- setfield(n,"data",v)
- elseif subtype == write_code then
- setfield(n,"data",v)
- end
- end
- end
-
-end
-
-if not node.direct.traverse_glyph or not node.direct.traverse_list then
-
- logs.report("system","using fake node list traversers")
-
- local direct = node.direct
-
- local getnext = direct.getnext
- local getid = direct.getid
- local getsubtype = direct.getsubtype
- local getchar = direct.getchar
- local getfont = direct.getfont
- local getlist = direct.getlist
-
- local function iterate(h,n)
- if n then
- n = getnext(n)
- else
- n = h
- end
- if n then
- return n, getid(n), getsubtype(n)
- end
- end
-
- function direct.traverse(h)
- return iterate, h
- end
-
- function node.direct.traverse_id(id,h)
- local function iterate(h,n)
- if n then
- n = getnext(n)
- else
- n = h
- end
- while n do
- if getid(n) == id then
- return n, getsubtype(n)
- else
- n = getnext(n)
- end
- end
- end
- return iterate, h
- end
-
- local function iterate(h,n)
- if n then
- n = getnext(n)
- else
- n = h
- end
- while n do
- if getid(n) == glyph_code then
- return n, getfont(n), getchar(n)
- else
- n = getnext(n)
- end
- end
- end
-
- function node.direct.traverse_glyph(h)
- return iterate, h
- end
-
- local function iterate(h,n)
- if n then
- n = getnext(n)
- else
- n = h
- end
- while n do
- if getid(n) == glyph_code and subtype(n) < 256 then
- return n, getfont(n), getchar(n)
- else
- n = getnext(n)
- end
- end
- end
-
- function node.direct.traverse_char(h)
- return iterate, h
- end
-
- local function iterate(h,n)
- if n then
- n = getnext(n)
- else
- n = h
- end
- while n do
- local id = getid(n)
- if id == hlist_code or id == vlist_code then
- return n, id, getsubtype(n), getlist(n)
- else
- n = getnext(n)
- end
- end
- end
-
- function node.direct.traverse_list(h)
- return iterate, h
- end
-
-end
-
local nuts = nodes.nuts
nuts.check_discretionaries = direct.check_discretionaries
@@ -1024,16 +785,3 @@ function nuts.copy_properties(source,target,what)
end
return newprops -- for checking
end
-
-if LUATEXFUNCTIONALITY < 6894 then
-
- local sal = nuts.setattrlist
- local cal = nuts.current_attr
-
- function nuts.setattrlist(n,a)
- return sal(n,a == true and cal() or a)
- end
-
- nuts.setattributelist = nuts.setattrlist
-
-end