src/luatexja/jfmglue.lua

   1 --
   2 -- luatexja/jfmglue.lua
   3 --
   4 luatexbase.provides_module({
   5   name = 'luatexja.jfmglue',
   6   date = '2011/06/27',
   7   version = '0.2',
   8   description = 'Insertion process of JFM glues and kanjiskip',
   9 })
  10 module('luatexja.jfmglue', package.seeall)
  11 local err, warn, info, log = luatexbase.errwarinf(_NAME)
  12
  13 require('luatexja.base');      local ltjb = luatexja.base
  14 require('luatexja.stack');     local ltjs = luatexja.stack
  15 require('luatexja.jfont');     local ltjf = luatexja.jfont
  16 require('luatexja.pretreat');  local ltjp = luatexja.pretreat
  17
  18 local node_type = node.type
  19 local node_new = node.new
  20 local node_remove = node.remove
  21 local node_prev = node.prev
  22 local node_next = node.next
  23 local node_copy = node.copy
  24 local node_tail = node.tail
  25 local node_free = node.free
  26 local has_attr = node.has_attribute
  27 local set_attr = node.set_attribute
  28 local node_insert_before = node.insert_before
  29 local node_insert_after = node.insert_after
  30 local round = tex.round
  31 local table_insert = table.insert
  32
  33 local id_glyph = node.id('glyph')
  34 local id_hlist = node.id('hlist')
  35 local id_vlist = node.id('vlist')
  36 local id_rule = node.id('rule')
  37 local id_ins = node.id('ins')
  38 local id_mark = node.id('mark')
  39 local id_adjust = node.id('adjust')
  40 local id_disc = node.id('disc')
  41 local id_whatsit = node.id('whatsit')
  42 local id_math = node.id('math')
  43 local id_glue = node.id('glue')
  44 local id_kern = node.id('kern')
  45 local id_penalty = node.id('penalty')
  46
  47 local id_glue_spec = node.id('glue_spec')
  48 local id_jglyph = node.id('glyph') + 256
  49 local id_box_like = node.id('hlist') + 256
  50 local id_pbox = node.id('hlist') + 512
  51 local sid_user = node.subtype('user_defined')
  52
  53 local ITALIC = 1
  54 local PACKED = 2
  55 local KINSOKU = 3
  56 local FROM_JFM = 4
  57 local LINE_END = 5
  58 local KANJI_SKIP = 6
  59 local XKANJI_SKIP = 7
  60 local PROCESSED = 8
  61 local IC_PROCESSED = 9
  62 local BOXBDD = 15
  63
  64 local kanji_skip
  65 local xkanji_skip
  66
  67 local attr_jchar_class = luatexbase.attributes['ltj@charclass']
  68 local attr_curjfnt = luatexbase.attributes['ltj@curjfnt']
  69 local attr_icflag = luatexbase.attributes['ltj@icflag']
  70 local attr_autospc = luatexbase.attributes['ltj@autospc']
  71 local attr_autoxspc = luatexbase.attributes['ltj@autoxspc']
  72 local max_dimen = 1073741823
  73
  74 local ltjs_get_penalty_table = ltjs.get_penalty_table
  75 local ltjs_get_skip_table = ltjs.get_skip_table
  76 local ltjf_find_char_class = ltjf.find_char_class
  77 local ltjf_font_metric_table = ltjf.font_metric_table
  78 local ltjf_metrics = ltjf.metrics
  79 local box_stack_level
  80 local par_indented -- is the paragraph indented?
  81
  82 -------------------- Helper functions
  83
  84 -- This function is called only for acquiring `special' characters.
  85 local function fast_find_char_class(c,m)
  86    return m.chars[c] or 0
  87 end
  88
  89 local spec_zero_glue = node_new(id_glue_spec)
  90    spec_zero_glue.width = 0; spec_zero_glue.stretch_order = 0; spec_zero_glue.stretch = 0
  91    spec_zero_glue.shrink_order = 0; spec_zero_glue.shrink = 0
  92
  93 local function get_zero_glue()
  94    return node_copy(spec_zero_glue)
  95 end
  96
  97 local function skip_table_to_spec(n)
  98    local g = node_new(id_glue_spec)
  99    local st = ltjs_get_skip_table(n, box_stack_level)
 100    g.width = st.width; g.stretch = st.stretch; g.shrink = st.shrink
 101    g.stretch_order = st.stretch_order; g.shrink_order = st.shrink_order
 102    return g
 103 end
 104
 105 -- penalty 値の計算
 106 local function add_penalty(p,e)
 107    if p.penalty>=10000 then
 108       if e<=-10000 then p.penalty = 0 end
 109    elseif p.penalty<=-10000 then
 110       if e>=10000 then p.penalty = 0 end
 111    else
 112       p.penalty = p.penalty + e
 113       if p.penalty>=10000 then p.penalty = 10000
 114       elseif p.penalty<=-10000 then p.penalty = -10000 end
 115    end
 116    return
 117 end
 118
 119 -- 「異なる JFM」の間の調整方法
 120 diffmet_rule = math.two_average
 121 function math.two_add(a,b) return a+b end
 122 function math.two_average(a,b) return (a+b)/2 end
 123
 124 -------------------- idea
 125 -- 2 node の間に glue/kern/penalty を挿入する．
 126 -- 基本方針: char node q と char node p の間
 127
 128 -- 　Np: 「p を核とする塊」
 129 -- 　　first: 最初の node，nuc: p，last: 最後の node
 130 -- 　　id: 核 node の種類
 131 -- 　Nq: 「q を核とする塊」
 132 -- 　　実際の glue は Np.last, Nq.first の間に挿入される
 133 -- 　Bp: Np.last, Nq.first の間の penalty node 達の配列
 134
 135 -- Np, Nq, Bp, widow_Bp について
 136 -- Np, Nq は別々のテーブル．
 137 -- 1回のループごとに Nq = Np, Np = (new table) となるのは効率が悪いので，
 138 -- Np <-> Nq 入れ替え，その後 Np をクリアすることでテーブルを再利用．
 139 -- 同様の関係は Bp, widow_Bp にも．
 140
 141
 142 -- 核の定義：
 143 -- 　node x が non-char node のときは，x のみ
 144 -- 　x が char_node のときは，
 145 -- 　- x が \accent の第二引数だったとき
 146 -- 　  [kern2 kern y kern2] x の 3 node が核に加わる
 147 -- 　- x の直後に \/ 由来 kern があったとき
 148 -- 　  その \/ 由来の kern が核に加わる
 149 -- p, q の走査で無視するもの：
 150 -- 　ins, mark, adjust, whatsit, penalty
 151 --
 152 -- Nq.last .. + .. Bp.first .... Bp[last] .... * .. Np.first
 153 -- +: kern from LINEEND はここに入る
 154 -- *: jfm glue はここに入る
 155
 156 local head -- the head of current list
 157 local last -- the last node of current list
 158 local lp   -- 外側での list 走査時のカーソル
 159
 160 local Np, Nq, Bp
 161 local widow_Bp, widow_Np -- \jcharwidowpenalty 挿入位置管理用
 162
 163 local ihb_flag -- JFM グルー挿入抑止用 flag
 164                -- on: \inhibitglue 指定時，hlist の周囲
 165
 166 -------------------- hlist 内の文字の検索
 167
 168 local first_char, last_char, find_first_char
 169
 170 local function check_box(box_ptr, box_end)
 171    local p = box_ptr; local found_visible_node = false
 172    if not p then
 173       find_first_char = false; first_char = nil; last_char = nil
 174       return true
 175    end
 176    while p and p~=box_end do
 177       local pid = p.id
 178       if pid==id_kern then
 179          if p.subtype==2 then
 180             p = node_next(node_next(node_next(p))); pid = p.id
 181          elseif has_attr(p, attr_icflag)==IC_PROCESSED then
 182             p = node_next(p); pid = p.id
 183          end
 184       end
 185       if pid==id_glyph then
 186          repeat
 187             if find_first_char then
 188                first_char = p; find_first_char = false
 189             end
 190             last_char = p; found_visible_node = true; p=node_next(p)
 191             if (not p) or p==box_end then return found_visible_node end
 192          until p.id~=id_glyph
 193       end
 194       if pid==id_hlist then
 195          if has_attr(p, attr_icflag)==PACKED then
 196             for q in node.traverse_id(id_glyph, p.head) do
 197                if find_first_char then
 198                   first_char = q; find_first_char = false
 199                end
 200                last_char = q; found_visible_node = true; break
 201             end
 202          else
 203             if p.shift==0 then
 204                if check_box(p.head, nil) then found_visible_node = true end
 205             else if find_first_char then
 206                   find_first_char = false
 207                else
 208                   last_char = nil
 209                end
 210             end
 211          end
 212       elseif not (pid==id_ins   or pid==id_mark
 213                   or pid==id_adjust or pid==id_whatsit
 214                   or pid==id_penalty) then
 215          found_visible_node = true
 216          if find_first_char then
 217             find_first_char = false
 218          else
 219             last_char = nil
 220          end
 221       end
 222       p = node_next(p)
 223    end
 224    return found_visible_node
 225 end
 226
 227 -------------------- Np の計算と情報取得
 228 -- calc next Np
 229 local function set_attr_icflag_processed(p)
 230    local a = has_attr(p, attr_icflag) or 0
 231    if a<=1 then set_attr(p, attr_icflag, PROCESSED) end
 232 end
 233
 234 local function check_next_ickern()
 235    if lp.id == id_kern and has_attr(lp, attr_icflag)==ITALIC then
 236       set_attr(lp, attr_icflag, IC_PROCESSED); Np.last = lp; lp = node_next(lp)
 237    else Np.last = Np.nuc end
 238 end
 239
 240 local function calc_np_pbox()
 241    Np.first = lp; Np.id = id_pbox
 242    lpa = KINSOKU -- dummy
 243    while lp~=last and lpa>=PACKED and lpa~=BOXBDD do
 244       Np.nuc = lp; lp = node_next(lp); lpa = has_attr(lp, attr_icflag) or 0
 245    end
 246    check_next_ickern()
 247 end
 248
 249 local calc_np_auxtable = {
 250    [id_glyph] = function()
 251                    Np.first = lp
 252                    if lp.font == has_attr(lp, attr_curjfnt) then
 253                       Np.id = id_jglyph
 254                    else
 255                       Np.id = id_glyph
 256                    end
 257                    Np.first = lp; Np.nuc = lp; set_attr_icflag_processed(lp)
 258                    lp = node_next(lp); check_next_ickern(); return true
 259                 end,
 260    [id_hlist] = function()
 261                    Np.first = lp; Np.last = lp; Np.nuc = lp;
 262                    set_attr_icflag_processed(lp)
 263                    if lp.shift~=0 then
 264                       Np.id = id_box_like
 265                    else
 266                       Np.id = id_hlist
 267                    end
 268                    lp = node_next(lp); return true
 269                 end,
 270    [id_vlist] = function()
 271                    Np.first = lp; Np.nuc = lp; Np.last = lp;
 272                    Np.id = id_box_like; set_attr_icflag_processed(lp);
 273                    lp = node_next(lp); return true
 274                 end,
 275    [id_rule] = function()
 276                   Np.first = lp; Np.nuc = lp; Np.last = lp;
 277                   Np.id = id_box_like; set_attr_icflag_processed(lp);
 278                   lp = node_next(lp); return true
 279                end,
 280    [id_ins] = function()
 281                  set_attr_icflag_processed(lp); lp = node_next(lp)
 282                  return false
 283               end,
 284    [id_mark] = function()
 285                   set_attr_icflag_processed(lp); lp = node_next(lp)
 286                   return false
 287                end,
 288    [id_adjust] = function()
 289                     set_attr_icflag_processed(lp); lp = node_next(lp)
 290                     return false
 291                  end,
 292    [id_disc] = function()
 293                   Np.first = lp; Np.nuc = lp; set_attr_icflag_processed(lp);
 294                   Np.last = lp; Np.id = id_disc; lp = node_next(lp); return true
 295                end,
 296    [id_whatsit] = function()
 297                      if lp.subtype==sid_user and lp.user_id==30111 then
 298                         local lq = node_next(lp)
 299                         head = node_remove(head, lp); node_free(lp); lp = lq; ihb_flag = true
 300                      else
 301                         set_attr_icflag_processed(lp); lp = node_next(lp)
 302                      end
 303                      return false
 304                   end,
 305    [id_math] = function()
 306                   Np.first = lp; Np.nuc = lp;
 307                   set_attr_icflag_processed(lp); lp  = node_next(lp)
 308                   while lp.id~=id_math do
 309                      set_attr_icflag_processed(lp); lp  = node_next(lp)
 310                   end
 311                   Np.last = lp; Np.id = id_math; lp = node_next(lp)
 312                   return true
 313                end,
 314    [id_glue] = function()
 315                   Np.first = lp; Np.nuc = lp; set_attr_icflag_processed(lp);
 316                   Np.last = lp; Np.id = id_glue; lp = node_next(lp); return true
 317                end,
 318    [id_kern] = function()
 319                   Np.first = lp
 320                   if lp.subtype==2 then
 321                      set_attr_icflag_processed(lp); lp = node_next(lp)
 322                      set_attr_icflag_processed(lp); lp = node_next(lp)
 323                      set_attr_icflag_processed(lp); lp = node_next(lp)
 324                      set_attr_icflag_processed(lp); Np.nuc = lp
 325                      if lp.font == has_attr(lp, attr_curjfnt) then
 326                         Np.id = id_jglyph
 327                      else
 328                         Np.id = id_glyph
 329                      end
 330                      lp = node_next(lp); check_next_ickern();
 331                   else
 332                      Np.id = id_kern; set_attr_icflag_processed(lp);
 333                      Np.last = lp; lp = node_next(lp)
 334                   end
 335                   return true
 336                end,
 337    [id_penalty] = function()
 338                      Bp[#Bp+1] = lp; set_attr_icflag_processed(lp);
 339                      lp = node_next(lp); return false
 340                   end,
 341    [13] = function()
 342                   Np.first = lp; Np.nuc = lp; Np.last = lp;
 343                   Np.id = id_box_like; set_attr_icflag_processed(lp);
 344                   lp = node_next(lp); return true
 345                end,
 346 }
 347
 348 local function calc_np()
 349    -- We assume lp = node_next(Np.last)
 350    local lpi, lpa, Nr
 351    Nr = Nq; for k in pairs(Nr) do Nr[k] = nil end
 352    Nq = Np; Np = Nr
 353    for k in pairs(Bp) do Bp[k] = nil end
 354    ihb_flag = false
 355    while lp ~= last do
 356       lpa = has_attr(lp, attr_icflag) or 0
 357       if lpa>=PACKED then
 358          if lpa == BOXBDD then
 359             local lq = node_next(lp)
 360             head = node_remove(head, lp); node_free(lp); lp = lq
 361          else calc_np_pbox(); return end -- id_pbox
 362       elseif calc_np_auxtable[lp.id]() then return end
 363    end
 364    Np = nil; return
 365 end
 366
 367 -- extract informations from Np
 368 -- We think that "Np is a Japanese character" if Np.met~=nil,
 369 --            "Np is an alphabetic character" if Np.pre~=nil,
 370 --            "Np is not a character" otherwise.
 371
 372 -- 和文文字のデータを取得
 373 local function set_np_xspc_jachar(x)
 374    local z = ltjf_font_metric_table[x.font]
 375    local c = x.char
 376    local cls = ltjf_find_char_class(c, z)
 377    local m = ltjf_metrics[z.jfm]
 378    set_attr(x, attr_jchar_class, cls)
 379    Np.class = cls
 380    Np.char = c
 381    Np.size= z.size
 382    Np.met = m
 383    Np.var = z.var
 384    Np.pre = ltjs_get_penalty_table('pre', c, 0, box_stack_level)
 385    Np.post = ltjs_get_penalty_table('post', c, 0, box_stack_level)
 386    z = fast_find_char_class('lineend', m)
 387    local y = m.size_cache[Np.size].char_type[Np.class]
 388    if y.kern and y.kern[z] then
 389       Np.lend = y.kern[z]
 390    else
 391       Np.lend = 0
 392    end
 393    y = ltjs_get_penalty_table('xsp', c, 3, box_stack_level)
 394    Np.xspc_before = (y%2==1)
 395    Np.xspc_after  = (y>=2)
 396    Np.auto_kspc = (has_attr(x, attr_autospc)==1)
 397    Np.auto_xspc = (has_attr(x, attr_autoxspc)==1)
 398 end
 399
 400 -- 欧文文字のデータを取得
 401 local ligature_head = 1
 402 local ligature_tail = 2
 403 local function set_np_xspc_alchar(c,x, lig)
 404    if c~=-1 then
 405       if lig == ligature_head then
 406          while x.components and x.subtype and math.floor(x.subtype/2)%2==1 do
 407             x = x.components; c = x.char
 408          end
 409       else
 410          while x.components and x.subtype and math.floor(x.subtype/2)%2==1 do
 411             x = node_tail(x.components); c = x.char
 412          end
 413       end
 414       Np.pre = ltjs_get_penalty_table('pre', c, 0, box_stack_level)
 415       Np.post = ltjs_get_penalty_table('post', c, 0, box_stack_level)
 416    else
 417       Np.pre = 0; Np.post = 0
 418    end
 419    Np.met = nil
 420    local y = ltjs_get_penalty_table('xsp', c, 3, box_stack_level)
 421    Np.xspc_before = (y%2==1)
 422    Np.xspc_after  = (y>=2)
 423    Np.auto_xspc = (has_attr(x, attr_autoxspc)==1)
 424 end
 425
 426 -- Np の情報取得メインルーチン
 427 local function extract_np()
 428    local x = Np.nuc
 429    if Np.id ==  id_jglyph then
 430       set_np_xspc_jachar(x)
 431    elseif Np.id == id_glyph then
 432       set_np_xspc_alchar(x.char, x, ligature_head)
 433    elseif Np.id == id_hlist then
 434       find_first_char = true; first_char = nil; last_char = nil
 435       if check_box(x.head, nil) then
 436          if first_char then
 437             if first_char.font == has_attr(first_char, attr_curjfnt) then
 438                set_np_xspc_jachar(first_char)
 439             else
 440                set_np_xspc_alchar(first_char.char,first_char, ligature_head)
 441             end
 442          end
 443       end
 444    elseif Np.id == id_pbox then --  mikann
 445       find_first_char = true; first_char = nil; last_char = nil
 446       if check_box(Np.first, node_next(Np.last)) then
 447          if first_char then
 448             if first_char.font == has_attr(first_char, attr_curjfnt) then
 449                set_np_xspc_jachar(first_char)
 450             else
 451                set_np_xspc_alchar(first_char.char,first_char, ligature_head)
 452             end
 453          end
 454       end
 455    elseif Np.id == id_disc then
 456       find_first_char = true; first_char = nil; last_char = nil
 457       if check_box(x.replace, nil) then
 458          if first_char then
 459             if first_char.font == has_attr(first_char, attr_curjfnt) then
 460                set_np_xspc_jachar(first_char)
 461             else
 462                set_np_xspc_alchar(first_char.char,first_char, ligature_head)
 463             end
 464          end
 465       end
 466    elseif Np.id == id_math then
 467       set_np_xspc_alchar(-1, x)
 468    end
 469 end
 470
 471 -- change the information for the next loop
 472 -- (will be done if Np is an alphabetic character or a hlist)
 473 local function after_hlist()
 474    if last_char then
 475       if last_char.font == has_attr(last_char, attr_curjfnt) then
 476          set_np_xspc_jachar(last_char, ligature_after)
 477       else
 478          set_np_xspc_alchar(last_char.char,last_char, ligature_after)
 479       end
 480    else
 481       Np.pre = nil; Np.met = nil
 482    end
 483 end
 484 local function after_alchar()
 485    local x = Np.nuc
 486    set_np_xspc_alchar(x.char,x, ligature_after)
 487 end
 488
 489
 490 -------------------- 最下層の処理
 491
 492 local function lineend_fix(g)
 493    if g and g.id==id_kern then
 494       Nq.lend = 0
 495    elseif Nq.lend~=0 then
 496       if not g then
 497          g = node_new(id_kern); g.subtype = 1
 498          g.kern = -Nq.lend; set_attr(g, attr_icflag, LINEEND)
 499       elseif g.id==id_kern then
 500          g.kern = g.kern - Nq.lend
 501       else
 502          g.spec.width = g.spec.width - Nq.lend
 503       end
 504    end
 505    return g
 506 end
 507
 508 -- change penalties (or create a new penalty, if needed)
 509 local function handle_penalty_normal(post, pre, g)
 510    local a = (pre or 0) + (post or 0)
 511    if #Bp == 0 then
 512       if (a~=0 and not(g and g.id==id_kern)) or Nq.lend~=0 then
 513          local p = node_new(id_penalty)
 514          if a<-10000 then a = -10000 elseif a>10000 then a = 10000 end
 515          p.penalty = a
 516          head = node_insert_before(head, Np.first, p)
 517          table_insert(Bp, p); set_attr(p, attr_icflag, KINSOKU)
 518       end
 519    else for i, v in pairs(Bp) do add_penalty(v,a) end
 520    end
 521 end
 522
 523 local function handle_penalty_always(post, pre, g)
 524    local a = (pre or 0) + (post or 0)
 525    if #Bp == 0 then
 526       if not (g and g.id==id_glue) or Nq.lend~=0 then
 527          local p = node_new(id_penalty)
 528          if a<-10000 then a = -10000 elseif a>10000 then a = 10000 end
 529          p.penalty = a
 530          head = node_insert_before(head, Np.first, p)
 531          table_insert(Bp, p); set_attr(p, attr_icflag, KINSOKU)
 532       end
 533    else for i, v in pairs(Bp) do add_penalty(v,a) end
 534    end
 535 end
 536
 537 local function handle_penalty_suppress(post, pre, g)
 538    local a = (pre or 0) + (post or 0)
 539    if #Bp == 0 then
 540       if g and g.id==id_glue then
 541          local p = node_new(id_penalty)
 542          p.penalty = 10000; head = node_insert_before(head, Np.first, p)
 543          table_insert(Bp, p); set_attr(p, attr_icflag, KINSOKU)
 544       end
 545    else for i, v in pairs(Bp) do add_penalty(v,a) end
 546    end
 547 end
 548
 549 -- 和文文字間の JFM glue を node 化
 550 local function new_jfm_glue(Nn, bc, ac)
 551 -- bc, ac: char classes
 552    local g = nil
 553    local z = Nn.met.size_cache[Nn.size].char_type[bc]
 554    if z.glue and z.glue[ac] then
 555       local h = node_new(id_glue_spec)
 556       h.width   = z.glue[ac][1]
 557       h.stretch = z.glue[ac][2]
 558       h.shrink  = z.glue[ac][3]
 559       h.stretch_order=0; h.shrink_order=0
 560       g = node_new(id_glue)
 561       g.subtype = 0; g.spec = h
 562    elseif z.kern and z.kern[ac] then
 563       g = node_new(id_kern)
 564       g.subtype = 1; g.kern = z.kern[ac]
 565    end
 566    if g then set_attr(g, attr_icflag, FROM_JFM) end
 567    return g
 568 end
 569
 570 -- Nq.last (kern w) .... (glue/kern g) Np.first
 571 local function real_insert(w, g)
 572    if w~=0 then
 573       local h = node_new(id_kern)
 574       set_attr(h, attr_icflag, LINE_END)
 575       h.kern = w; h.subtype = 1
 576       head = node_insert_after(head, Nq.last, h)
 577    end
 578    if g then
 579       head = node_insert_before(head, Np.first, g)
 580       Np.first = g
 581    end
 582 end
 583
 584 -------------------- 和文文字間空白量の決定
 585
 586 -- get kanjiskip
 587 local function get_kanji_skip_from_jfm(Nn)
 588    local i = Nn.met.size_cache[Nn.size].kanjiskip
 589    if i then
 590       return { i[1], i[2], i[3] }
 591    else return nil
 592    end
 593 end
 594 local function get_kanjiskip()
 595    local g = node_new(id_glue)
 596    if Np.auto_kspc or Nq.auto_kspc then
 597       if kanji_skip.width == max_dimen then
 598          local gx = node_new(id_glue_spec);
 599          gx.stretch_order = 0; gx.shrink_order = 0
 600          local bk = get_kanji_skip_from_jfm(Nq)
 601          local ak
 602          if (Np.met==Nq.met) and (Nq.size==Np.size) and (Nq.var==Np.var) then
 603             ak = nil
 604          else
 605             ak = get_kanji_skip_from_jfm(Np)
 606          end
 607          if bk then
 608             if ak then
 609                gx.width = round(diffmet_rule(bk[1], ak[1]))
 610                gx.stretch = round(diffmet_rule(bk[2], ak[2]))
 611                gx.shrink = -round(diffmet_rule(-bk[3], -ak[3]))
 612             else
 613                gx.width = bk[1]; gx.stretch = bk[2]; gx.shrink = bk[3]
 614             end
 615          elseif ak then
 616             gx.width = ak[1]; gx.stretch = ak[2]; gx.shrink = ak[3]
 617          else node_free(gx); gx = get_zero_glue() -- fallback
 618          end
 619          g.spec = gx
 620       else g.spec=node_copy(kanji_skip); node_free(gx) end
 621    else
 622       g.spec =  get_zero_glue(); node_free(gx)
 623    end
 624    set_attr(g, attr_icflag, KANJI_SKIP)
 625    return g
 626 end
 627
 628 local function calc_ja_ja_aux(gb,ga)
 629    if not gb then
 630       return ga
 631    else
 632       if not ga then return gb end
 633       local k = node.type(gb.id) .. node.type(ga.id)
 634       if k == 'glueglue' then
 635          -- 両方とも glue．
 636          gb.spec.width   = round(diffmet_rule(gb.spec.width, ga.spec.width))
 637          gb.spec.stretch = round(diffmet_rule(gb.spec.stretch,ga.spec.shrink))
 638          gb.spec.shrink  = -round(diffmet_rule(-gb.spec.shrink, -ga.spec.shrink))
 639          node_free(ga)
 640          return gb
 641       elseif k == 'kernkern' then
 642          -- 両方とも kern．
 643          gb.kern = round(diffmet_rule(gb.kern, ga.kern))
 644          node_free(ga)
 645          return gb
 646       elseif k == 'kernglue' then
 647          -- gb: kern, ga: glue
 648          ga.spec.width   = round(diffmet_rule(gb.kern,ga.spec.width))
 649          ga.spec.stretch = round(diffmet_rule(ga.spec.stretch, 0))
 650          ga.spec.shrink  = -round(diffmet_rule(-ga.spec.shrink, 0))
 651          node_free(gb)
 652          return ga
 653       else
 654          -- gb: glue, ga: kern
 655          gb.spec.width   = round(diffmet_rule(ga.kern, gb.spec.width))
 656          gb.spec.stretch = round(diffmet_rule(gb.spec.stretch, 0))
 657          gb.spec.shrink  = -round(diffmet_rule(-gb.spec.shrink, 0))
 658          node_free(ga)
 659          return gb
 660       end
 661    end
 662 end
 663
 664 local function calc_ja_ja_glue()
 665    if  ihb_flag then return nil
 666    elseif (Nq.size==Np.size) and (Nq.met==Np.met) and (Nq.var==Np.var) then
 667       return new_jfm_glue(Nq, Nq.class, Np.class)
 668    else
 669       local g = new_jfm_glue(Nq, Nq.class,
 670                              fast_find_char_class('diffmet',Nq.met))
 671       local h = new_jfm_glue(Np, fast_find_char_class('diffmet',Np.met),
 672                              Np.class)
 673       return calc_ja_ja_aux(g,h)
 674    end
 675 end
 676
 677 -------------------- 和欧文間空白量の決定
 678
 679 -- get xkanjiskip
 680 local function get_xkanji_skip_from_jfm(Nn)
 681    local i = Nn.met.size_cache[Nn.size].xkanjiskip
 682    if i then
 683       return { i[1], i[2], i[3] }
 684    else return nil
 685    end
 686 end
 687 local function get_xkanjiskip(Nn)
 688    local g = node_new(id_glue)
 689    if Nq.xspc_after and Np.xspc_before and (Nq.auto_xspc or Np.auto_xspc) then
 690       if xkanji_skip.width == max_dimen then
 691          local gx = node_new(id_glue_spec);
 692          gx.stretch_order = 0; gx.shrink_order = 0
 693          local bk = get_xkanji_skip_from_jfm(Nn)
 694          if bk then
 695             gx.width = bk[1]; gx.stretch = bk[2]; gx.shrink = bk[3]
 696          else node_free(gx); gx = get_zero_glue() -- fallback
 697          end
 698          g.spec = gx
 699       else g.spec=node_copy(xkanji_skip) end
 700    else
 701       g.spec = get_zero_glue()
 702    end
 703    set_attr(g, attr_icflag, XKANJI_SKIP)
 704    return g
 705 end
 706
 707
 708 -------------------- 隣接した「塊」間の処理
 709
 710 local function get_OA_skip()
 711    if not ihb_flag then
 712       local c
 713       if Nq.id == id_math then c = -1 else c = 'jcharbdd' end
 714       return new_jfm_glue(Np, fast_find_char_class(c,Np.met), Np.class)
 715    else return nil
 716    end
 717 end
 718 local function get_OB_skip()
 719    if not ihb_flag then
 720       local c
 721       if Np.id == id_math then c = -1 else c = 'jcharbdd' end
 722       return new_jfm_glue(Nq, Nq.class, fast_find_char_class(c,Nq.met))
 723    else return nil
 724    end
 725 end
 726
 727 -- (anything) .. jachar
 728 local function handle_np_jachar()
 729    local g
 730    if Nq.id==id_jglyph or (Nq.id==id_pbox and Nq.met) then
 731       g = calc_ja_ja_glue() or get_kanjiskip() -- M->K
 732       g = lineend_fix(g)
 733       handle_penalty_normal(Nq.post, Np.pre, g); real_insert(Nq.lend, g)
 734    elseif Nq.met then  -- Nq.id==id_hlist
 735       g = get_OA_skip() or get_kanjiskip() -- O_A->K
 736       handle_penalty_normal(0, Np.pre, g); real_insert(0, g)
 737    elseif Nq.pre then
 738       g = get_OA_skip() or get_xkanjiskip(Np) -- O_A->X
 739       handle_penalty_normal(Nq.post, Np.pre, g); real_insert(0, g)
 740    else
 741       g = get_OA_skip() -- O_A
 742       if Nq.id==id_glue then handle_penalty_normal(0, Np.pre, g)
 743       elseif Nq.id==id_kern then handle_penalty_suppress(0, Np.pre, g)
 744       else handle_penalty_always(0, Np.pre, g)
 745       end
 746       real_insert(0, g)
 747    end
 748    -- \jcharwidowpenalty 挿入予定箇所更新
 749    if mode and ltjs_get_penalty_table('kcat', Np.char, 0, box_stack_level)%2~=1 then
 750       widow_Np.first = Np.first;
 751       local Bpr = widow_Bp; widow_Bp = Bp; Bp = Bpr
 752    end
 753 end
 754
 755 -- jachar .. (anything)
 756 local function handle_nq_jachar()
 757    local g
 758    if Np.pre then
 759       g = get_OB_skip() or get_xkanjiskip(Nq) -- O_B->X
 760       g = lineend_fix(g)
 761       handle_penalty_normal(Nq.post, Np.pre, g); real_insert(Nq.lend, g)
 762    else
 763       g = get_OB_skip(); g = lineend_fix(g) -- O_B
 764       if Np.id==id_glue then handle_penalty_normal(Nq.post, 0, g)
 765       elseif Np.id==id_kern then handle_penalty_suppress(Nq.post, 0, g)
 766       else handle_penalty_always(Nq.post, 0, g)
 767       end
 768       real_insert(Nq.lend, g)
 769    end
 770 end
 771
 772 -- (anything) .. (和文文字で終わる hlist)
 773 local function handle_np_ja_hlist()
 774    local g
 775    if Nq.id==id_jglyph or (Nq.id==id_pbox and Nq.met) then
 776       g = get_OB_skip() or get_kanjiskip() -- O_B->K
 777       g = lineend_fix(g)
 778       handle_penalty_normal(Nq.post, 0, g); real_insert(Nq.lend, g)
 779    elseif Nq.met then  -- Nq.id==id_hlist
 780       g = get_kanjiskip() -- K
 781       handle_penalty_suppress(0, 0, g); real_insert(0, g)
 782    elseif Nq.pre then
 783       g = get_xkanjiskip(Np) -- X
 784       handle_penalty_suppress(0, 0, g); real_insert(0, g)
 785    end
 786 end
 787
 788 -- (和文文字で終わる hlist) .. (anything)
 789 local function handle_nq_ja_hlist()
 790    local g = nil
 791    if Np.pre then
 792       g = get_xkanjiskip(Nq) -- X
 793       handle_penalty_suppress(0, 0, g); real_insert(0, g)
 794    end
 795 end
 796
 797 -------------------- 開始・終了時の処理
 798
 799 -- リスト末尾の処理
 800 local function handle_list_tail()
 801    Np = Nq
 802    if mode then
 803       -- the current list is to be line-breaked:
 804       if Np.id == id_jglyph or (Np.id==id_pbox and Np.met) then
 805          if Np.lend~=0 then
 806             g = node_new(id_kern); g.subtype = 0; g.kern = Np.lend
 807             set_attr(g, attr_icflag, BOXBDD)
 808             node_insert_after(head, Np.last, g)
 809          end
 810       end
 811       -- Insert \jcharwidowpenalty
 812       Bp = widow_Bp; Np = widow_Np; Nq.lend = 0
 813       if Np.first then
 814          handle_penalty_normal(0,
 815                                ltjs_get_penalty_table('jwp', 0, 0, box_stack_level))
 816       end
 817    else
 818       -- the current list is the contents of a hbox
 819       if Np.id == id_jglyph or (Np.id==id_pbox and Np.met) then
 820          local g = new_jfm_glue(Np, Np.class, fast_find_char_class('boxbdd',Np.met))
 821          if g then
 822             set_attr(g, attr_icflag, BOXBDD)
 823             head = node_insert_after(head, Np.last, g)
 824          end
 825       end
 826       head = node_remove(head, last); node_free(last);-- remove the sentinel
 827    end
 828    node_free(kanji_skip); node_free(xkanji_skip)
 829 end
 830
 831 -- リスト先頭の処理
 832 local function handle_list_head()
 833    if Np.id ==  id_jglyph or (Np.id==id_pbox and Np.met) then
 834       if not ihb_flag then
 835          local g
 836          if par_indented then
 837             g = new_jfm_glue(Np, fast_find_char_class('parbdd',Np.met), Np.class)
 838          else
 839             g = new_jfm_glue(Np, fast_find_char_class('boxbdd',Np.met), Np.class)
 840          end
 841          if g then
 842             set_attr(g, attr_icflag, BOXBDD)
 843             if g.id==id_glue and #Bp==0 then
 844                local h = node_new(id_penalty)
 845                h.penalty = 10000; set_attr(h, attr_icflag, BOXBDD)
 846             end
 847             head = node_insert_before(head, Np.first, g)
 848          end
 849       end
 850    end
 851 end
 852
 853 -- initialize
 854 local function init_var()
 855    lp = head; Bp = {}; widow_Bp = {}; widow_Np = {first = nil}
 856    par_indented = false
 857    box_stack_level = ltjp.box_stack_level
 858    kanji_skip=skip_table_to_spec('kanjiskip')
 859    xkanji_skip=skip_table_to_spec('xkanjiskip')
 860    Np = {
 861       auto_kspc=nil, auto_xspc=nil, char=nil, class=nil,
 862       first=nil, id=nil, last=nil, lend=0, met=nil, nuc=nil,
 863       post=nil, pre=nil, var=nil, xspc_after=nil, xspc_before=nil,
 864    }
 865    Nq = {
 866       auto_kspc=nil, auto_xspc=nil, char=nil, class=nil,
 867       first=nil, id=nil, last=nil, lend=0, met=nil, nuc=nil,
 868       post=nil, pre=nil, var=nil, xspc_after=nil, xspc_before=nil,
 869    }
 870    if mode then
 871       -- the current list is to be line-breaked:
 872       -- hbox from \parindent is skipped.
 873       while lp and ((lp.id==id_whatsit and lp.subtype~=sid_user)
 874                  or ((lp.id==id_hlist) and (lp.subtype==3))) do
 875          if (lp.id==id_hlist) and (lp.subtype==3) then par_indented = true end
 876          lp=node_next(lp) end
 877       last=node.tail(head)
 878    else
 879       -- the current list is the contents of a hbox:
 880       -- insert a sentinel
 881       last=node.tail(head); local g = node_new(id_kern)
 882       node_insert_after(head, last, g); last = g
 883    end
 884 end
 885
 886 -------------------- 外部から呼ばれる関数
 887
 888 -- main interface
 889 function main(ahead, amode)
 890    if not ahead then return ahead end
 891    head = ahead; mode = amode; init_var(); calc_np()
 892    if Np then
 893       extract_np(); handle_list_head()
 894       if Np.id==id_glyph then after_alchar()
 895       elseif Np.id==id_hlist or Np.id==id_pbox or Np.id==id_disc then after_hlist()
 896       end
 897    else
 898       if not mode then head = node_remove(head, last); node_free(last) end
 899       return head
 900    end
 901    calc_np()
 902    while Np do
 903       extract_np()
 904       -- 挿入部
 905       if Np.id == id_jglyph then
 906          handle_np_jachar()
 907       elseif Np.met then
 908          if Np.id==id_hlist then handle_np_ja_hlist()
 909          else handle_np_jachar() end
 910       elseif Nq.met then
 911          if Nq.id==id_hlist then handle_nq_ja_hlist()
 912          else handle_nq_jachar() end
 913       end
 914       -- Np の後処理
 915       if Np.id==id_glyph then after_alchar()
 916       elseif Np.id==id_hlist or Np.id==id_pbox or Np.id==id_disc then after_hlist()
 917       end
 918       calc_np()
 919    end
 920    handle_list_tail()
 921    -- adjust attr_icflag
 922    tex.attribute[attr_icflag] = -(0x7FFFFFFF)
 923    return head
 924 end
 925
 926 -- \inhibitglue
 927 local inhibitglue_node=node_new(id_whatsit, sid_user)
 928 inhibitglue_node.user_id=30111; inhibitglue_node.type=100; inhibitglue_node.value=1
 929
 930 function create_inhibitglue_node()
 931    node.write(node.copy(inhibitglue_node))
 932 end