1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
|
--
-- This is file `pre_append_to_vlist_filter.lua',
-- generated with the docstrip utility.
--
-- The original source files were:
--
-- lua-ul.dtx (with options: `callback')
--
-- Copyright (C) 2020 by Marcel Krueger
--
-- This file may be distributed and/or modified under the
-- conditions of the LaTeX Project Public License, either
-- version 1.3c of this license or (at your option) any later
-- version. The latest version of this license is in:
--
-- http://www.latex-project.org/lppl.txt
--
-- and version 1.3 or later is part of all distributions of
-- LaTeX version 2005/12/01 or later.
if luatexbase.callbacktypes.pre_append_to_vlist_filter then
return
end
local call_callback = luatexbase.call_callback
local flush_node = node.flush_node
local prepend_prevdepth = node.prepend_prevdepth
local callback_define
for i=1,5 do
local name, func = debug.getupvalue(luatexbase.disable_callback, i)
if name == 'callback_register' then
callback_define = func
break
end
end
if not callback_define then
error[[Unable to find callback.define]]
end
local function filtered_append_to_vlist_filter(box,
locationcode,
prevdepth,
mirrored)
local current = call_callback("pre_append_to_vlist_filter",
box, locationcode, prevdepth,
mirrored)
if not current then
flush_node(box)
return
elseif current == true then
current = box
end
return call_callback("append_to_vlist_filter",
current, locationcode, prevdepth, mirrored)
end
callback_define('append_to_vlist_filter',
filtered_append_to_vlist_filter)
luatexbase.callbacktypes.append_to_vlist_filter = nil
luatexbase.create_callback('append_to_vlist_filter', 'exclusive',
function(n, _, prevdepth)
return prepend_prevdepth(n, prevdepth)
end)
luatexbase.create_callback('pre_append_to_vlist_filter',
'list', false)
--
--
-- End of file `pre_append_to_vlist_filter.lua'.
|