summaryrefslogtreecommitdiff
path: root/tex/context/base/node-ini.lua
diff options
context:
space:
mode:
Diffstat (limited to 'tex/context/base/node-ini.lua')
-rw-r--r--tex/context/base/node-ini.lua69
1 files changed, 25 insertions, 44 deletions
diff --git a/tex/context/base/node-ini.lua b/tex/context/base/node-ini.lua
index a29af830b..fa53f1200 100644
--- a/tex/context/base/node-ini.lua
+++ b/tex/context/base/node-ini.lua
@@ -54,10 +54,12 @@ into the <l n='tex'/> engine, but this is a not so natural extension.</p>
also ignore the empty nodes. [This is obsolete!]</p>
--ldx]]--
-local traverse, traverse_id = node.traverse, node.traverse_id
-local free_node, remove_node = node.free, node.remove
-local insert_node_before, insert_node_after = node.insert_before, node.insert_after
-local slide_nodes = node.slide
+local traverse = node.traverse
+local traverse_id = node.traverse_id
+local free_node = node.free
+local remove_node = node.remove
+local insert_node_before = node.insert_before
+local insert_node_after = node.insert_after
local allocate = utilities.storage.allocate
@@ -69,25 +71,25 @@ nodes.handlers = nodes.handlers or { }
-- there will be more of this:
local skipcodes = allocate {
- [ 0] = "userskip",
- [ 1] = "lineskip",
- [ 2] = "baselineskip",
- [ 3] = "parskip",
- [ 4] = "abovedisplayskip",
- [ 5] = "belowdisplayskip",
- [ 6] = "abovedisplayshortskip",
- [ 7] = "belowdisplayshortskip",
- [ 8] = "leftskip",
- [ 9] = "rightskip",
- [10] = "topskip",
- [11] = "splittopskip",
- [12] = "tabskip",
- [13] = "spaceskip",
- [14] = "xspaceskip",
- [15] = "parfillskip",
- [16] = "thinmuskip",
- [17] = "medmuskip",
- [18] = "thickmuskip",
+ [ 0] = "userskip",
+ [ 1] = "lineskip",
+ [ 2] = "baselineskip",
+ [ 3] = "parskip",
+ [ 4] = "abovedisplayskip",
+ [ 5] = "belowdisplayskip",
+ [ 6] = "abovedisplayshortskip",
+ [ 7] = "belowdisplayshortskip",
+ [ 8] = "leftskip",
+ [ 9] = "rightskip",
+ [10] = "topskip",
+ [11] = "splittopskip",
+ [12] = "tabskip",
+ [13] = "spaceskip",
+ [14] = "xspaceskip",
+ [15] = "parfillskip",
+ [16] = "thinmuskip",
+ [17] = "medmuskip",
+ [18] = "thickmuskip",
}
local noadcodes = allocate {
@@ -347,27 +349,6 @@ function nodes.reference(n)
return lpegmatch(reference,tostring(n))
end
-function nodes.link(n,...) -- blobs ?
- if n then
- if type(n) ~= "table" then
- n = { n, ... }
- end
- local head = n[1]
- local tail = slide_nodes(head)
- for i=2,#n do
- local ni = n[i]
- tail.next = ni
- ni.prev = tail
- tail = slide_nodes(ni)
- end
- return head
- else
- -- sort of fatal error
- end
-end
-
---
-
if not node.next then
function node.next(n) return n and n.next end