--
luatexbase.provides_module({
name = 'luatexja.jfmglue',
- date = '2015/01/13',
+ date = '2015/02/07',
description = 'Insertion process of JFM glues and kanjiskip',
})
module('luatexja.jfmglue', package.seeall)
local IC_PROCESSED = luatexja.icflag_table.IC_PROCESSED
local BOXBDD = luatexja.icflag_table.BOXBDD
local PROCESSED_BEGIN_FLAG = luatexja.icflag_table.PROCESSED_BEGIN_FLAG
+
+local attr_icflag = luatexbase.attributes['ltj@icflag']
local kanji_skip
local xkanji_skip
local table_current_stack
local set_np_xspc_jachar
local set_np_xspc_jachar_hbox
-local attr_icflag = luatexbase.attributes['ltj@icflag']
local ltjs_orig_char_table = ltjs.orig_char_table
local function get_attr_icflag(p)
last_char = s; found_visible_node = true
else
if getfield(p, 'shift')==0 then
+ last_char = nil
if check_box(getlist(p), nil) then found_visible_node = true end
else
find_first_char = false; last_char = nil
do
local traverse = Dnode.traverse
-local function set_attr_icflag_processed(p)
- if get_attr_icflag(p)<= ITALIC then
- set_attr(p, attr_icflag, PROCESSED)
- end
-end
-
local function check_next_ickern(lp)
if lp and getid(lp) == id_kern and ITALIC == get_attr_icflag(lp) then
set_attr(lp, attr_icflag, IC_PROCESSED)
end,
[id_kern] = function(lp)
if getsubtype(lp)==2 then
+ Np.first = Np.first or lp
set_attr(lp, attr_icflag, PROCESSED); lp = node_next(lp)
set_attr(lp, attr_icflag, PROCESSED); lp = node_next(lp)
set_attr(lp, attr_icflag, PROCESSED); lp = node_next(lp)
if k then return lp end
end
end
+ Np=nil
end
end
-- 和文文字間の JFM glue を node 化
local function new_jfm_glue(m, bc, ac)
-- bc, ac: char classes
- local g, d = m.char_type[bc][ac], 0
- local n
+ local g = m.char_type[bc][ac]
if g then
- n,d = node_copy(g[2]), g[3]
if g[1] then
local f = node_new(id_glue)
set_attr(f, attr_icflag, g[4])
- setfield(f, 'spec', n)
- return f, d
+ setfield(f, 'spec', node_copy(g[2]))
+ return f, g[3]
+ else
+ return node_copy(g[2]), g[3]
end
end
- return n, d
+ return nil, 0
end
-- Nq.last (kern w) .... (glue/kern g) Np.first
-------------------- 和文文字間空白量の決定
-
+local null_skip_table = {0, 0, 0}
-- get kanjiskip
local get_kanjiskip
local get_kanjiskip_normal, get_kanjiskip_jfm
local gx = node_new(id_glue_spec);
setfield(gx, 'stretch_order', 0); setfield(gx, 'shrink_order', 0)
local pm, qm = Np.met, Nq.met
- local bk = qm.kanjiskip or {0, 0, 0}
+ local bk = qm.kanjiskip or null_skip_table
if (pm.char_type==qm.char_type) and (qm.var==pm.var) then
setfield(gx, 'width', bk[1])
setfield(gx, 'stretch', bk[2])
setfield(gx, 'shrink', bk[3])
else
- local ak = pm.kanjiskip or {0, 0, 0}
+ local ak = pm.kanjiskip or null_skip_table
setfield(gx, 'width', round(diffmet_rule(bk[1], ak[1])))
setfield(gx, 'stretch', round(diffmet_rule(bk[2], ak[2])))
setfield(gx, 'shrink', -round(diffmet_rule(-bk[3], -ak[3])))
g = node_new(id_glue)
local gx = node_new(id_glue_spec);
setfield(gx, 'stretch_order', 0); setfield(gx, 'shrink_order', 0)
- local bk = Nn.met.xkanjiskip or {0, 0, 0}
+ local bk = Nn.met.xkanjiskip or null_skip_table
setfield(gx, 'width', bk[1])
setfield(gx, 'stretch', bk[2])
setfield(gx, 'shrink', bk[3])
-- Insert \jcharwidowpenalty
Bp = widow_Bp; Np = widow_Np
if Np.first then
- handle_penalty_normal(0,
- table_current_stack[JWP] or 0)
+ handle_penalty_normal(0, table_current_stack[JWP] or 0)
end
else
-- the current list is the contents of a hbox
local dir_tate = luatexja.dir_table.dir_tate
local attr_yablshift = luatexbase.attributes['ltj@yablshift']
local attr_tablshift = luatexbase.attributes['ltj@tablshift']
+ local table_pool = {
+ {}, {}, {first=nil},
+ { auto_kspc=nil, auto_xspc=nil, char=nil, class=nil,
+ first=nil, id=nil, last=nil, met=nil, nuc=nil,
+ post=nil, pre=nil, xspc=nil, },
+ { auto_kspc=nil, auto_xspc=nil, char=nil, class=nil,
+ first=nil, id=nil, last=nil, met=nil, nuc=nil,
+ post=nil, pre=nil, xspc=nil, },
+ }
init_var = function (mode,dir)
-- 1073741823: max_dimen
- Bp, widow_Bp, widow_Np = {}, {}, {first = nil}
+ Bp, widow_Bp, widow_Np, Np, Nq
+ = table_pool[1], table_pool[2], table_pool[3], table_pool[4], table_pool[5]
+ for i=1,5 do for j,_ in pairs(table_pool[i]) do table_pool[i][j]=nil end end
table_current_stack = ltjs.table_current_stack
- list_dir = ltjs.list_dir or dir_yoko
+ list_dir, tex_dir = (ltjs.list_dir or dir_yoko), (dir or 'TLT')
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)
+ local s = skip_table_to_spec(KSK)
+ setfield(kanji_skip, 'spec', s)
+ get_kanjiskip = (getfield(s, 'width') == 1073741823)
+ and get_kanjiskip_jfm or get_kanjiskip_normal
+ end
+
+ do
+ xkanji_skip = node_new(id_glue); set_attr(xkanji_skip, attr_icflag, XKANJI_SKIP)
+ local s = skip_table_to_spec(XSK)
+ setfield(xkanji_skip, 'spec', s)
+ get_xkanjiskip = (getfield(s, 'width') == 1073741823)
+ and get_xkanjiskip_jfm or get_xkanjiskip_normal
+ end
- tex_dir = dir or 'TLT'
- kanji_skip = node_new(id_glue)
- setfield(kanji_skip, 'spec', skip_table_to_spec(KSK))
- set_attr(kanji_skip, attr_icflag, KANJI_SKIP)
- get_kanjiskip = (getfield(getfield(kanji_skip, 'spec'), 'width') == 1073741823)
- and get_kanjiskip_jfm or get_kanjiskip_normal
-
- xkanji_skip = node_new(id_glue)
- setfield(xkanji_skip, 'spec', skip_table_to_spec(XSK))
- set_attr(xkanji_skip, attr_icflag, XKANJI_SKIP)
- get_xkanjiskip = (getfield(getfield(xkanji_skip, 'spec'), 'width') == 1073741823)
- and get_xkanjiskip_jfm or get_xkanjiskip_normal
-
- Np = {
- auto_kspc=nil, auto_xspc=nil, char=nil, class=nil,
- first=nil, id=nil, last=nil, met=nil, nuc=nil,
- post=nil, pre=nil, xspc=nil,
- }
- Nq = {
- auto_kspc=nil, auto_xspc=nil, char=nil, class=nil,
- first=nil, id=nil, last=nil, met=nil, nuc=nil,
- post=nil, pre=nil, xspc=nil,
- }
if mode then
-- the current list is to be line-breaked:
-- hbox from \parindent is skipped.
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
else
- return head, nil, 'boxbdd'
+ return head, nil, 'boxbdd', TEMP
end
end
end
-local tex_set_attr = tex.setattribute
-local function cleanup(mode)
+local ensure_tex_attr = ltjb.ensure_tex_attr
+local function cleanup(mode, TEMP)
-- adjust attr_icflag for avoiding error
- tex_set_attr('global', attr_icflag, 0)
- node_free(kanji_skip); node_free(xkanji_skip)
+ if tex.getattribute(attr_icflag)~=0 then ensure_tex_attr(attr_icflag, 0) end
+ node_free(kanji_skip); node_free(xkanji_skip); node_free(TEMP)
+
if mode then
local h = node_next(head)
if getid(h) == id_penalty and getfield(h, 'penalty') == 10000 then
function main(ahead, mode, dir)
if not ahead then return ahead end
head = ahead;
- local lp, last, par_indented = init_var(mode,dir)
- lp = calc_np(last,lp)
- if lp then
+ local lp, last, par_indented, TEMP = init_var(mode,dir)
+ lp = calc_np(last, lp)
+ if Np then
handle_list_head(par_indented)
- for lp in calc_np, last, lp do
+ lp = calc_np(last,lp); while Np do
adjust_nq();
local pid, pm = Np.id, Np.met
-- 挿入部
if Nq.id==id_hlist then handle_nq_ja_hlist()
else handle_nq_jachar() end
end
+ lp = calc_np(last,lp)
end
handle_list_tail(mode)
end
- return cleanup(mode)
+ return cleanup(mode, TEMP)
end
end