From 2dc84e18ca89147ac3621c4848edc76e929fb681 Mon Sep 17 00:00:00 2001
From: Hironori Kitagawa <h_kitagawa2001@yahoo.co.jp>
Date: Thu, 8 May 2014 11:26:54 +0900
Subject: [PATCH] check_box in tate direction

---
 src/ltj-direction.lua | 42 ++++++++++++++++++++++++++++++++----------
 src/ltj-jfmglue.lua   | 10 ++++++----
 src/ltjclasses.dtx    |  2 +-
 3 files changed, 39 insertions(+), 15 deletions(-)

diff --git a/src/ltj-direction.lua b/src/ltj-direction.lua
index 14a9871..bcaea43 100644
--- a/src/ltj-direction.lua
+++ b/src/ltj-direction.lua
@@ -47,6 +47,7 @@ local wh_DIR = luatexja.userid_table.DIR
 local dir_tate = 3
 local dir_yoko = 4
 
+-- \tate, \yoko
 do
   local node_next = node.next
   local function set_list_direction(v, name)
@@ -62,6 +63,7 @@ do
   luatexja.direction.set_list_direction = set_list_direction
 end
 
+-- ボックスに dir whatsit を追加
 do
    local tex_getcount = tex.getcount
    local function set_dir_flag(h, gc)
@@ -109,6 +111,8 @@ do
 
 end
 
+
+
 local make_dir_node
 do
    local get_h =function (w,h,d) return h end
@@ -166,25 +170,32 @@ do
       },
    }
 
-   remove_dir_whatsit = function (head, b)
+   clean_dir_whatsit = function(b)
       local bh = getlist(b)
-      if bh and getid(bh)==id_whatsit and getsubtype(bh)==sid_user
-          and getfield(bh, 'user_id')==wh_DIR then
-	     setfield(b, 'head', node_next(bh))
+      local dir
+      for x in traverse_id(id_whatsit, bh) do
+	 if getsubtype(bh)==sid_user and getfield(bh, 'user_id')==wh_DIR then
+	     setfield(b, 'head', (node_remove(bh, x)))
+	     dir = getfield(bh, 'value')
+	     set_attr(b, attr_dir, dir)
 	     set_attr(b, attr_icflag, PROCESSED)
+	     node_free(x); break
+	 end
       end
-      return head, node_next(b)
+      return dir
    end
+   luatexja.direction.clean_dir_whatsit = clean_dir_whatsit
    make_dir_node = function (head, b, new_dir, origin)
       -- head: list head, b: box
       -- origin: コール元 (for debug)
       -- return value: (new head), (next of b), (new b), (is_b_dir_node)
       -- (new b): b か dir_node に被せられた b
-      local old_dir= nil
+      local old_dir
       local bh = getlist(b)
       for x in traverse_id(id_whatsit, bh) do
 	 if getsubtype(bh)==sid_user and getfield(bh, 'user_id')==wh_DIR then
 	     old_dir = getfield(bh, 'value')
+	     set_attr(b, attr_dir, old_dir)
 	     setfield(b, 'head', (node_remove(bh, x)))
 	     set_attr(b, attr_icflag, PROCESSED)
 	     node_free(x); break
@@ -272,6 +283,8 @@ do
 			      process_dir_node, 'ltj.dir_node', 10001)
 end
 
+
+-- 縦書き用字形への変換テーブル
 local font_vert_table = {} -- key: fontnumber
 do
    local font_vert_basename = {} -- key: basename
@@ -292,7 +305,6 @@ do
          font_vert_table[n] = font_vert_table[id]; return
       elseif (not id) or font_vert_table[n]  then return
       end
-
       local fname = id.filename
       local bname = file.basename(fname)
       if not fname then
@@ -300,7 +312,6 @@ do
       elseif font_vert_basename[bname] then
          font_vert_table[n] = font_vert_basename[bname]; return
       end
-
       local vtable = {}
       local a = id.resources.sequences
       if a then
@@ -314,12 +325,11 @@ do
       font_vert_basename[bname] = vtable
       font_vert_table[n] = vtable
    end
-
+   -- 縦書き用字形への変換
    function luatexja.direction.get_vert_glyph(n, chr)
       local fn = font_vert_table[n]
       return fn and fn[chr] or chr
    end
-
    luatexbase.add_to_callback('luatexja.define_font',
 			      function (res, name, size, id)
 				 prepare_vert_data(id, res)
@@ -330,3 +340,15 @@ do
    luatexja.rmlgbm.vert_addfunc = a
 
 end
+
+-- PACKED の hbox から文字を取り出す
+-- luatexja.jfmglue.check_box などで使用
+do
+   local function glyph_from_packed(h)
+      local b = getlist(h)
+      return (getid(b)==id_kern) 
+	 and node_next(node_next(node_next(node_next(b)))) or b
+   end
+   luatexja.direction.glyph_from_packed = glyph_from_packed
+end
+
diff --git a/src/ltj-jfmglue.lua b/src/ltj-jfmglue.lua
index e37e687..a247bde 100644
--- a/src/ltj-jfmglue.lua
+++ b/src/ltj-jfmglue.lua
@@ -170,7 +170,8 @@ local ihb_flag -- JFM グルー挿入抑止用 flag
 -------------------- hlist 内の文字の検索
 
 local first_char, last_char, find_first_char
-
+do
+local ltjd_glyph_from_packed = ltjd.glyph_from_packed
 local function check_box(box_ptr, box_end)
    local p = box_ptr; local found_visible_node = false
    if not p then
@@ -208,10 +209,11 @@ local function check_box(box_ptr, box_end)
 	 end
       elseif pid==id_hlist then
 	 if PACKED == get_attr_icflag(p) then
+	    local s = ltjd_glyph_from_packed(p)
 	    if find_first_char then
-	       first_char = getlist(p); find_first_char = false
+	       first_char = s; find_first_char = false
 	    end
-	    last_char = getlist(p); found_visible_node = true
+	    last_char = s; found_visible_node = true
 	 else
 	    if getfield(p, 'shift')==0 then
 	       if check_box(getlist(p), nil) then found_visible_node = true end
@@ -254,7 +256,7 @@ function check_box_high(Nx, box_ptr, box_end)
    end
    return last_char
 end
-
+end
 -------------------- Np の計算と情報取得
 
 luatexbase.create_callback("luatexja.jfmglue.whatsit_getinfo", "data",
diff --git a/src/ltjclasses.dtx b/src/ltjclasses.dtx
index 6232f52..904eea8 100644
--- a/src/ltjclasses.dtx
+++ b/src/ltjclasses.dtx
@@ -147,7 +147,7 @@
 % 11pt    & 11ptサイズの設定を生成\\
 % 12pt    & 12ptサイズの設定を生成\\
 % bk      & bookクラス用のサイズの設定を生成\\
-% tate    & 縦組用の設定を生成（現在無効）\\
+% tate    & 縦組用の設定を生成\\
 % yoko    & 横組用の設定を生成\\
 % \end{tabular}
 % \end{center}
-- 
2.11.0