first_char = nil; last_char = nil; find_first_char = true
if check_box(box_ptr, box_end) then
if first_char then
first_char = nil; last_char = nil; find_first_char = true
if check_box(box_ptr, box_end) then
if first_char then
set_np_xspc_jachar(Nx, first_char)
else
set_np_xspc_alchar(Nx, first_char.char,first_char, ligature_head)
set_np_xspc_jachar(Nx, first_char)
else
set_np_xspc_alchar(Nx, first_char.char,first_char, ligature_head)
set_attr(lp, attr_icflag, get_attr_icflag(lp));
while lp~=last and lpa>=PACKED and lpa<BOXBDD do
Np.nuc = lp;
set_attr(lp, attr_icflag, get_attr_icflag(lp));
while lp~=last and lpa>=PACKED and lpa<BOXBDD do
Np.nuc = lp;
local calc_np_auxtable = {
[id_glyph] = function (lp)
Np.first, Np.nuc = (Np.first or lp), lp;
local calc_np_auxtable = {
[id_glyph] = function (lp)
Np.first, Np.nuc = (Np.first or lp), lp;
--set_attr_icflag_processed(lp) treated in ltj-setwidth.lua
return true, check_next_ickern(node_next(lp));
end,
--set_attr_icflag_processed(lp) treated in ltj-setwidth.lua
return true, check_next_ickern(node_next(lp));
end,
set_attr_icflag_processed(lp); lp = node_next(lp)
set_attr_icflag_processed(lp); lp = node_next(lp)
set_attr_icflag_processed(lp); Np.nuc = lp
set_attr_icflag_processed(lp); lp = node_next(lp)
set_attr_icflag_processed(lp); lp = node_next(lp)
set_attr_icflag_processed(lp); Np.nuc = lp
return true, check_next_ickern(node_next(lp));
else
Np.id = id_kern; set_attr_icflag_processed(lp);
return true, check_next_ickern(node_next(lp));
else
Np.id = id_kern; set_attr_icflag_processed(lp);
set_np_xspc_jachar(Nx, s)
else
set_np_xspc_alchar(Nx, s.char, s, ligature_tail)
set_np_xspc_jachar(Nx, s)
else
set_np_xspc_alchar(Nx, s.char, s, ligature_tail)