133366 words of node memory still in use:
21 hlist, 2 vlist, 6 rule, 5 glue, 6 kern, 4 penalty, 2 glyph, 63125 attribut
e, 50 glue_spec, 3075 attribute_list, 3 action, 1 write, 1 pdf_literal, 1 pdf_se
tmatrix, 2 pdf_save, 2 pdf_restore, 37 user_defined nodes
avail lists: 1:8,2:185249,3:3623,4:19052
local is_dir_tate = list_dir==dir_tate
capsule_glyph = is_dir_tate and ltjw.capsule_glyph_tate or ltjw.capsule_glyph_yoko
attr_ablshift = is_dir_tate and attr_tablshift or attr_yablshift
local is_dir_tate = list_dir==dir_tate
capsule_glyph = is_dir_tate and ltjw.capsule_glyph_tate or ltjw.capsule_glyph_yoko
attr_ablshift = is_dir_tate and attr_tablshift or attr_yablshift
+ local TEMP = node_new(id_glue)
+ -- TEMP is a dummy node, which will be freed at the end of the callback.
+ -- ithout this node, set_attr(kanji_skip, ...) somehow creates an "orphaned" attribute list.
do
kanji_skip = node_new(id_glue); set_attr(kanji_skip, attr_icflag, KANJI_SKIP)
do
kanji_skip = node_new(id_glue); set_attr(kanji_skip, attr_icflag, KANJI_SKIP)
Np.width = getfield(lp, 'width')
end
lp=node_next(lp); lpi, lps = getid(lp), getsubtype(lp) end
Np.width = getfield(lp, 'width')
end
lp=node_next(lp); lpi, lps = getid(lp), getsubtype(lp) end
- return lp, node_tail(head), par_indented
+ return lp, node_tail(head), par_indented, TEMP
- return head, nil, 'boxbdd'
+ return head, nil, 'boxbdd', TEMP
end
end
end
local ensure_tex_attr = ltjb.ensure_tex_attr
end
end
end
local ensure_tex_attr = ltjb.ensure_tex_attr
-local function cleanup(mode)
+local function cleanup(mode, TEMP)
-- adjust attr_icflag for avoiding error
if tex.getattribute(attr_icflag)~=0 then ensure_tex_attr(attr_icflag, 0) end
-- adjust attr_icflag for avoiding error
if tex.getattribute(attr_icflag)~=0 then ensure_tex_attr(attr_icflag, 0) end
- node_free(kanji_skip); node_free(xkanji_skip)
+ node_free(kanji_skip); node_free(xkanji_skip); node_free(TEMP)
if mode then
local h = node_next(head)
if mode then
local h = node_next(head)
function main(ahead, mode, dir)
if not ahead then return ahead end
head = ahead;
function main(ahead, mode, dir)
if not ahead then return ahead end
head = ahead;
- local lp, last, par_indented = init_var(mode,dir)
+ local lp, last, par_indented, TEMP = init_var(mode,dir)
lp = calc_np(last, lp)
if Np then
handle_list_head(par_indented)
lp = calc_np(last, lp)
if Np then
handle_list_head(par_indented)
end
handle_list_tail(mode)
end
end
handle_list_tail(mode)
end
+ return cleanup(mode, TEMP)