X-Git-Url: http://git.osdn.jp/view?a=blobdiff_plain;f=src%2Fltj-direction.lua;h=089cc88bd81679f263945dd0ea92ad489a0840da;hb=1379fbf6aae445cdce3906e7b83cc1c8550e78d5;hp=16350dd0f2f9916e55b48592da431fe194cf88be;hpb=2e1c111353a84b661363f6129d126c61a38ca761;p=luatex-ja%2Fluatexja.git

diff --git a/src/ltj-direction.lua b/src/ltj-direction.lua
index 16350dd..089cc88 100644
--- a/src/ltj-direction.lua
+++ b/src/ltj-direction.lua
@@ -42,6 +42,8 @@ local sid_restore = node.subtype('pdf_restore')
 local sid_matrix = node.subtype('pdf_setmatrix')
 local sid_user = node.subtype('user_defined')
 
+local tex_getcount = tex.getcount
+local tex_set_attr = tex.setattribute
 local PROCESSED    = luatexja.icflag_table.PROCESSED
 local PROCESSED_BEGIN_FLAG = luatexja.icflag_table.PROCESSED_BEGIN_FLAG
 local PACKED       = luatexja.icflag_table.PACKED
@@ -50,54 +52,55 @@ local DIR  = luatexja.userid_table.DIR
 local dir_tate = luatexja.dir_table.dir_tate
 local dir_yoko = luatexja.dir_table.dir_yoko
 local dir_dtou = luatexja.dir_table.dir_dtou
+local dir_node_auto   = luatexja.dir_table.dir_node_auto
+local dir_node_manual = luatexja.dir_table.dir_node_manual
 
 
-local get_dir_count 
-do
-   local gc = tex.getcount
-   get_dir_count = function() return gc('ltj@dir@count') end
-end
-luatexja.direction.get_dir_count = get_dir_count 
-
+local get_dir_count
 -- \tate, \yoko
 do
-  local node_next = node.next
-  local node_set_attr = node.set_attribute
-  local function set_list_direction(v, name)
-     local lv, w = tex.nest[tex.nest.ptr], tex.lists.page_head
-     if lv.mode == 1 and w then
-        if w.id==id_whatsit and w.subtype==sid_user
-        and w.user_id==DIR then
-	   node_set_attr(w, attr_dir, v)
-	   
-        end
-     else
-        local w = node_next(to_direct(lv.head))
-        if to_node(w) then
-           if getid(w)==id_whatsit and getsubtype(w)==sid_user
-           and getfield(w, 'user_id')==DIR  then
-	      set_attr(w, attr_dir, v)
-	      tex.setattribute('global', attr_dir, 0)  
-	   else
+   local abs = math.abs
+   function get_dir_count()
+      return tex_getcount('ltj@dir@count')
+   end
+   luatexja.direction.get_dir_count = get_dir_count 
+
+   local node_next = node.next
+   local node_set_attr = node.set_attribute
+   local function set_list_direction(v, name)
+      local lv, w = tex.nest[tex.nest.ptr], tex.lists.page_head
+      if lv.mode == 1 and w then
+	 if w.id==id_whatsit and w.subtype==sid_user
+	 and w.user_id==DIR then
+	    node_set_attr(w, attr_dir, v)
+	 end
+      else
+	 local w = node_next(to_direct(lv.head))
+	 if to_node(w) then
+	    if getid(w)==id_whatsit and getsubtype(w)==sid_user
+	    and getfield(w, 'user_id')==DIR  then
+	       set_attr(w, attr_dir, v)
+	       tex_set_attr('global', attr_dir, 0)  
+	    else
               ltjb.package_error(
                  'luatexja',
                  "Use `\\" .. name .. "' at top of list",
                  'Direction change command by LuaTeX-ja is available\n'
-                 .. 'only while current list is null.')
-           end
-        else
-           local w = node_new(id_whatsit, sid_user)
-           setfield(w, 'next', hd)
-           setfield(w, 'user_id', DIR)
-           setfield(w, 'type', 110)
-           set_attr(w, attr_dir, v)
-           Dnode.write(w)
-	   tex.setattribute('global', attr_dir, 0)
-        end
-	tex.setattribute('global', attr_icflag, 0)
-     end
-  end
-  luatexja.direction.set_list_direction = set_list_direction
+		    .. 'only when the current list is null.')
+	    end
+	 else
+	    local w = node_new(id_whatsit, sid_user)
+	    setfield(w, 'next', hd)
+	    setfield(w, 'user_id', DIR)
+	    setfield(w, 'type', 110)
+	    set_attr(w, attr_dir, v)
+	    Dnode.write(w)
+	    tex_set_attr('global', attr_dir, 0)
+	 end
+	 tex_set_attr('global', attr_icflag, 0)
+      end
+   end
+   luatexja.direction.set_list_direction = set_list_direction
 end
 
 -- ボックスに dir whatsit を追加
@@ -107,23 +110,22 @@ local function create_dir_whatsit(hd, gc, new_dir)
       setfield(w, 'user_id', DIR)
       setfield(w, 'type', 110)
       set_attr(w, attr_dir, new_dir)
-      tex.setattribute('global', attr_dir, 0)  
+      tex_set_attr('global', attr_dir, 0)  
       set_attr(w, attr_icflag, PROCESSED_BEGIN_FLAG)
       set_attr(hd, attr_icflag, (has_attr(hd, attr_icflag) or 0) + PROCESSED_BEGIN_FLAG)
-      tex.setattribute('global', attr_icflag, 0)
+      tex_set_attr('global', attr_icflag, 0)
       return w
 end
 
 -- hpack_filter, vpack_filter, post_line_break_filter
 -- の結果を組方向を明示するため，先頭に dir_node を設置
 do
-   local tex_getcount = tex.getcount
    local function create_dir_whatsit_hpack(h, gc)
       local hd = to_direct(h)
       if gc=='fin_row' or gc == 'preamble'  then
 	 if hd  then
 	    set_attr(hd, attr_icflag, PROCESSED_BEGIN_FLAG)
-	    tex.setattribute('global', attr_icflag, 0)
+	    tex_set_attr('global', attr_icflag, 0)
 	 end
 	 return h
       else
@@ -134,19 +136,37 @@ do
    luatexbase.add_to_callback('hpack_filter', 
 			      create_dir_whatsit_hpack, 'ltj.create_dir_whatsit', 10000)
 
+   local wh = {}
+   local id_glue, sid_parskip = node.id('glue'), 3
    local function create_dir_whatsit_vbox(h, gc)
-      local hd= to_direct(h)
+      local hd = to_direct(h)
       ltjs.list_dir = get_dir_count()
-      if getid(hd)==id_whatsit and getsubtype(hd)==sid_user
-      and getfield(hd, 'user_id')==DIR then
-         ltjs.list_dir = has_attr(hd, attr_dir)
-         return h
-      elseif gc=='fin_row' or gc == 'preamble'  then
+      -- remove dir whatsit
+      for x in traverse_id(id_whatsit, hd) do
+     	 if getsubtype(x)==sid_user and getfield(x, 'user_id')==DIR then
+     	    wh[#wh+1]=x
+     	 end
+      end
+      if hd==wh[1] then
+	 ltjs.list_dir = has_attr(hd,attr_dir)
+	 local x = node_next(hd)
+	 if getid(x)==id_glue and getsubtype(x)==sid_parskip then
+	    node_remove(hd,x); node_free(x)
+	 end
+      end
+      for i=1,#wh do  hd = node_remove(hd, wh[i]); node_free(wh[i]); wh[i] = nil end
+      if gc=='fin_row' or gc == 'preamble'  then
 	 if hd  then
 	    set_attr(hd, attr_icflag, PROCESSED_BEGIN_FLAG)
-	    tex.setattribute('global', attr_icflag, 0)
+	    tex_set_attr('global', attr_icflag, 0)
 	 end
-	 return h
+	 return to_node(hd)
+      elseif gc=='vtop' then
+	 local w = create_dir_whatsit(hd, gc, ltjs.list_dir)
+	 -- move  dir whatsit after hd
+	 local n = getfield(hd, 'next')
+	 setfield(hd, 'next', w); setfield(w, 'next', n)
+         return to_node(hd)
       else
          return to_node(create_dir_whatsit(hd, gc, ltjs.list_dir))
       end
@@ -161,9 +181,10 @@ do
       for line in traverse_id(id_hlist, hd) do
 	 set_attr(line, attr_dir, new_dir)
       end
+      tex_set_attr('global', attr_dir, 0)
       return to_node(create_dir_whatsit(hd, gc, new_dir))
    end
-   luatexbase.add_to_callback('post_linebreak_filter',
+   luatexbase.add_to_callback('post_linebreak_filter', 
 			      create_dir_whatsit_parbox, 'ltj.create_dir_whatsit', 10000)
 
 end
@@ -199,6 +220,7 @@ do
 	    [id_vlist] = {
 	       { 'whatsit', sid_save },
 	       { 'rotate', '0 1 -1 0' },
+	       { 'kern' , zero },
 	       { 'box' , get_w_neg },
 	       { 'kern', get_h_d_neg},
 	       { 'whatsit', sid_restore },
@@ -219,7 +241,7 @@ do
 	       { 'whatsit', sid_save },
 	       { 'rotate', '0 -1 1 0' },
 	       { 'kern', get_h_d_neg },
-	       { 'box' },
+	       { 'box', zero },
 	       { 'whatsit', sid_restore },
 	    },
 	 },
@@ -230,19 +252,17 @@ do
 	    height = get_w,
 	    depth  = zero,
 	    [id_hlist] = {
-	       { 'kern', get_d },
 	       { 'whatsit', sid_save },
 	       { 'rotate', '0 -1 1 0' },
 	       { 'kern', get_w_neg },
-	       { 'box' },
+	       { 'box' , get_d_neg },
 	       { 'whatsit', sid_restore },
 	    },
 	    [id_vlist] = {
 	       { 'whatsit', sid_save },
 	       { 'rotate', '0 -1 1 0' },
-	       { 'kern', get_h_neg },
-	       { 'kern', get_d_neg },
-	       { 'box' },
+	       { 'kern', get_h_d_neg },
+	       { 'box', zero },
 	       { 'whatsit', sid_restore },
 	    },
 	 },
@@ -254,7 +274,7 @@ do
 	       { 'whatsit', sid_save },
 	       { 'rotate', '-1 0 0 -1' },
 	       { 'kern', get_w_neg },
-	       { 'box' },
+	       { 'box', zero },
 	       { 'whatsit', sid_restore },
 	    },
 	    [id_vlist] = {
@@ -269,23 +289,22 @@ do
       [dir_dtou] = { -- dtou を
 	 [dir_yoko] = { -- yoko 中で組む
 	    width  = get_h_d,
-	    height = zero,
-	    depth  = get_w,
+	    height = get_w, 
+	    depth  = zero,
 	    [id_hlist] = {
-	       { 'kern', get_h },
 	       { 'whatsit', sid_save },
 	       { 'rotate', '0 1 -1 0' },
-               { 'kern', get_w_neg },
-	       { 'box' },
+	       { 'kern', zero },
+	       { 'box', get_h },
+	       { 'kern', get_w_neg },
 	       { 'whatsit', sid_restore },
 	    },
 	    [id_vlist] = {
-               { 'kern', get_w },
+               { 'kern', zero },
 	       { 'whatsit', sid_save },
 	       { 'rotate', '0 1 -1 0' },
-	       { 'box' },
-	       { 'kern', get_h_neg },
-	       { 'kern', get_d_neg },
+	       { 'box', get_w_neg },
+	       { 'kern', get_h_d_neg },
 	       { 'whatsit', sid_restore },
 	    },
 	 },
@@ -297,10 +316,10 @@ do
 	       { 'whatsit', sid_save },
 	       { 'rotate', '-1 0 0 -1' },
 	       { 'kern', get_w_neg },
-	       { 'box' },
+	       { 'box', zero },
 	       { 'whatsit', sid_restore },
 	    },
-	    [id_vlist] = {-- TODO
+	    [id_vlist] = {
 	       { 'whatsit', sid_save },
 	       { 'rotate', ' -1 0 0 -1' },
 	       { 'kern', get_h_d_neg }, 
@@ -318,50 +337,65 @@ local function get_box_dir(b, default)
    local dir = has_attr(b, attr_dir) or 0
    local bh = getlist(b)
    local c
-   if bh and getid(bh)==id_whatsit
-   and getsubtype(bh)==sid_user and getfield(bh, 'user_id')==DIR then
-     c = bh
-      if dir==0 then
-	 dir = has_attr(bh, attr_dir)
-	 set_attr(b, attr_dir, dir)
-	 tex.setattribute('global', attr_dir, 0)
+   for i=1,2 do
+      if bh and getid(bh)==id_whatsit
+      and getsubtype(bh)==sid_user and getfield(bh, 'user_id')==DIR then
+	 c = bh
+	 if dir==0 then
+	    dir = has_attr(bh, attr_dir)
+	    set_attr(b, attr_dir, dir)
+	    tex_set_attr('global', attr_dir, 0)
+	 end
       end
+      bh = node_next(bh)
    end
    return (dir==0 and default or dir), c
 end
 
 -- dir_node に包まれている「本来の中身」を取り出し，
--- dir_node 自体は DIR whatsit にカプセル化する
-local function unwrap_dir_node(b, head)
-   -- head: nil or nil-nil
-   -- if head is non-nil, return values are (new head), (next of b), (contents)
+-- dir_node を全部消去
+local function unwrap_dir_node(b, head, box_dir)
+   -- b: dir_node, head: the head of list, box_dir: 
+   -- return values are (new head), (next of b), (contents), (dir of contents)
    local bh = getlist(b)
-   local bc = node_next(node_next(node_next(node_next(bh))))
+   local bc = node_next(node_next(node_next(bh)))
    local nh, nb
    node_remove(bh, bc); 
+   Dnode.flush_list(bh)
    if head then
       nh = insert_before(head, b, bc)
       nh, nb = node_remove(nh, b)
+      setfield(b, 'next', nil)
+      setfield(b, 'head', nil)
+      node_free(b)
+   end
+   local shift_old, b_dir, wh = nil, get_box_dir(bc, 0)
+   if wh then
+      Dnode.flush_list(getfield(wh, 'value'))
+      setfield(wh, 'value', nil)
    end
-   setfield(b, 'list', nil); Dnode.flush_list(bh)
-   local d, wh = get_box_dir(bc, 0)
-   if not wh then
-      wh = create_dir_whatsit(getlist(bc), 'unwrap', d)
-      setfield(bc, 'head', wh)
+   -- recalc. info
+   local info = dir_node_aux[b_dir][box_dir%dir_node_auto][getid(bc)]
+   for _,v in ipairs(info) do 
+      if v[1]=='box' then
+	 shift_old = v[2](
+	    getfield(bc,'width'), getfield(bc, 'height'), getfield(bc, 'depth'))
+	 break
+      end
    end
-   local h = getfield(wh, 'value')
-   if h then setfield(b, 'next', h) end
-   setfield(wh, 'value', to_node(b))
-   return nh, nb, bc
+   setfield(bc, 'shift', getfield(bc, 'shift') - shift_old)
+   return nh, nb, bc, b_dir
 end
 
-local function create_dir_node(b, b_dir, new_dir)
+-- is_manual: 寸法変更に伴うものか？
+local function create_dir_node(b, b_dir, new_dir, is_manual)
    local info = dir_node_aux[b_dir][new_dir]
    local w = getfield(b, 'width')
    local h = getfield(b, 'height')
    local d = getfield(b, 'depth')
    local db = node_new(getid(b))
-   set_attr(db, attr_dir, -new_dir)
+   set_attr(db, attr_dir, 
+	    new_dir + (is_manual and dir_node_manual or dir_node_auto))
    set_attr(db, attr_icflag, PROCESSED)
    set_attr(b, attr_icflag, PROCESSED)
    setfield(db, 'dir', getfield(b, 'dir'))
@@ -385,23 +419,35 @@ do
       -- 既に b の中身にあるwhatsit
       if box_dir==new_dir then
 	 return head, node_next(b), b, false
-      elseif  -box_dir == new_dir  then
+      elseif  box_dir%dir_node_auto == new_dir  then
+	 local bc = node_next(node_next(node_next(bh)))
+	 local _, dnc = get_box_dir(b, 0)
+	 if dnc then -- free all other dir_node
+	    Dnode.flush_list(getfield(dnc, 'value'))
+	    setfield(dnc, 'value', nil)
+	 end
+	 set_attr(b, attr_dir, box_dir%dir_node_auto + dir_node_auto)
 	 return head, node_next(b), b, true
       else
          local nh, nb, ret, flag
-	 if box_dir < 0 then -- unwrap
-            nh, nb, ret = unwrap_dir_node(b,head)
-            flag = false
-         else
+	 if box_dir>= dir_node_auto then -- unwrap
+	    local b_dir
+            head, nb, b, b_dir = unwrap_dir_node(b, head, box_dir)
+	    bh = getlist(b)
+	    if b_dir==new_dir then -- no need to create new dir_node
+	       return head, nb, b, false 
+	    else box_dir = b_dir end
+	 end
             local db
             local dnh = getfield(dn, 'value')
             for x in traverse(dnh) do
-               if has_attr(x, attr_dir) == -new_dir then
+               if has_attr(x, attr_dir)%dir_node_auto == new_dir then
                   setfield(dn, 'value', to_node(node_remove(dnh, x)))
                   db=x; break
                end
             end
-            db = db or create_dir_node(b, box_dir, new_dir)
+	    Dnode.flush_list(dnh)
+            db = db or create_dir_node(b, box_dir, new_dir, false)
             local w = getfield(b, 'width')
             local h = getfield(b, 'height')
             local d = getfield(b, 'depth')
@@ -420,7 +466,7 @@ do
                   setfield(nn, 'data', arg)
                elseif cmd=='box' then
                   nn = b; setfield(b, 'next', nil)
-                  if arg then setfield(nn, 'shift', arg(w,h,d)) end
+		  setfield(nn, 'shift', getfield(nn, 'shift') + arg(w,h,d))
                end
                if db_head then
                   insert_after(db_head, db_tail, nn)
@@ -428,7 +474,7 @@ do
 	       else
 		  db_head, db_tail = nn, nn
 	       end
-	    end
+	    --end
 	    setfield(db, 'head', db_head)
 	    ret, flag = db, true
 	 end
@@ -458,14 +504,14 @@ end
 
 -- \wd, \ht, \dp の代わり
 do
-   local getbox = tex.getbox
+   local getbox, setdimen = tex.getbox, tex.setdimen
    local function get_box_dim_common(key, s, l_dir)
       local s_dir, wh = get_box_dir(s, dir_yoko)
       if s_dir ~= l_dir then
          local not_found = true
          for x in traverse(getfield(wh, 'value')) do
-            if l_dir == -has_attr(x, attr_dir) then
-               tex.setdimen('ltj@tempdima', getfield(x, key))
+            if l_dir == has_attr(x, attr_dir)%dir_node_auto then
+               setdimen('ltj@tempdima', getfield(x, key))
                not_found = false; break
             end
          end
@@ -473,11 +519,11 @@ do
             local w = getfield(s, 'width')
             local h = getfield(s, 'height')
             local d = getfield(s, 'depth')
-            tex.setdimen('ltj@tempdima', 
+            setdimen('ltj@tempdima', 
                          dir_node_aux[s_dir][l_dir][key](w,h,d))
          end
       else
-         tex.setdimen('ltj@tempdima', getfield(s, key))
+         setdimen('ltj@tempdima', getfield(s, key))
       end
    end
    local function get_box_dim(key, n)
@@ -487,23 +533,22 @@ do
          local l_dir = get_dir_count()
          s = to_direct(s)
          local b_dir = has_attr(s, attr_dir) or 0
-         if b_dir>=0 then
+         if b_dir<dir_node_auto then
             get_box_dim_common(key, s, l_dir)
-         elseif b_dir==-l_dir then -- dir_node case 1
-            tex.setdimen('ltj@tempdima', getfield(s, key))
+         elseif b_dir%dir_node_auto==l_dir then
+            setdimen('ltj@tempdima', getfield(s, key))
          else
-            get_box_dim_common(
-               key, 
-               node_next(node_next(node_next(node_next(getlist(s))))),
-               l_dir)
+            get_box_dim_common(key, 
+			       node_next(node_next(node_next(getlist(s)))), l_dir)
          end
       else
-         tex.setdimen('ltj@tempdima', 0)
+         setdimen('ltj@tempdima', 0)
       end
       tex.globaldefs = gt
    end
    luatexja.direction.get_box_dim = get_box_dim
 
+   -- return value: (changed dimen of box itself?)
    local function set_box_dim_common(key, s, l_dir)
       local s_dir, wh = get_box_dir(s, dir_yoko)
       if s_dir ~= l_dir then
@@ -514,42 +559,112 @@ do
          local db
          local dnh = getfield(wh, 'value')
          for x in traverse(dnh) do
-            if has_attr(x, attr_dir)==-l_dir then
+            if has_attr(x, attr_dir)%dir_node_auto==l_dir then
                db = x; break
             end
          end
          if not db then
-            db = create_dir_node(s, s_dir, l_dir)
+            db = create_dir_node(s, s_dir, l_dir, true)
             setfield(db, 'next', dnh)
             setfield(wh, 'value',to_node(db))
          end
          setfield(db, key, tex.getdimen('ltj@tempdima'))
+	 return false
       else
          setfield(s, key, tex.getdimen('ltj@tempdima'))
+	 if wh then
+	    -- change dimension of dir_nodes which are created "automatically"
+	       local bw, bh, bd 
+		  = getfield(s,'width'), getfield(s, 'height'), getfield(s, 'depth')
+	    for x in traverse(getfield(wh, 'value')) do
+	       local x_dir = has_attr(x, attr_dir)
+	       if x_dir<dir_node_manual then
+		  local info = dir_node_aux[s_dir][x_dir%dir_node_auto]
+		  setfield(x, 'width',  info.width(bw,bh,bd))
+		  setfield(x, 'height', info.height(bw,bh,bd))
+		  setfield(x, 'depth',  info.depth(bw,bh,bd))
+	       end
+	    end
+	 end
+	 return true
       end
    end
    local function set_box_dim(key)
-      local n = tex.getcount('ltj@tempcnta')
+      local n = tex_getcount('ltj@tempcnta')
       local s = getbox(n)
       if s then
 	 local l_dir = get_dir_count()
 	 s = to_direct(s)
          local b_dir = has_attr(s, attr_dir) or 0
-         if b_dir>=0 then
+         if b_dir<dir_node_auto then
             set_box_dim_common(key, s, l_dir)
-            elseif b_dir == -l_dir then
-               setfield(s, key, tex.getdimen('ltj@tempdima'))
+	 elseif b_dir%dir_node_auto == l_dir then
+	    setfield(s, key, tex.getdimen('ltj@tempdima'))
+	    if b_dir<dir_node_manual then
+	       set_attr(s, attr_dir, b_dir%dir_node_auto + dir_node_manual)
+	    end
          else
-            set_box_dim_common(
-               key, 
-               node_next(node_next(node_next(node_next(getlist(s))))),
-               l_dir)
+	    local sid, sl = getid(s), getlist(s)
+	    local b = node_next(node_next(node_next(sl)))
+	    local info = dir_node_aux[get_box_dir(b)][b_dir%dir_node_auto]
+	    local shift_old
+	    for _,v in ipairs(info[sid]) do 
+	       if v[1]=='box' then
+		  shift_old = v[2](
+		     getfield(b,'width'), getfield(b, 'height'), getfield(b, 'depth'))
+		  break
+	       end
+	    end
+           if set_box_dim_common(key, b, l_dir) then
+	       local bw, bh, bd 
+		  = getfield(b,'width'), getfield(b, 'height'), getfield(b, 'depth')
+	       -- re-calculate shift
+	       for i,v in ipairs(info[sid]) do 
+		  if getid(sl)==id_kern then
+		     setfield(sl, 'kern', v[2](bw,bh,bd) )
+		  elseif getid(sl)==sid then
+		     local d = getfield(sl, 'shift')
+		     setfield(sl, 'shift', 
+			      getfield(sl, 'shift') - shift_old + v[2](bw,bh,bd) )
+		  end
+		  sl = node_next(sl)
+	       end
+	       -- re-calculate dimension of s, if s is created "automatically"
+	       if b_dir<dir_node_manual then
+		  setfield(s, 'width',  info.width(bw,bh,bd))
+		  setfield(s, 'height', info.height(bw,bh,bd))
+		  setfield(s, 'depth',  info.depth(bw,bh,bd))
+	       end
+	    end
          end
       end
    end
    luatexja.direction.set_box_dim = set_box_dim
 end
 
+-- \ifydir, \iftdir, \ifddir
+do
+   local cat_lp = luatexbase.catcodetables['latex-package']
+   local getbox = tex.getbox
+   local function dir_conditional(n, mode)
+      local s = getbox(n)
+      local res = false
+      if s then
+         s = to_direct(s)
+         local b_dir = get_box_dir(s, dir_yoko)
+         if b_dir<dir_node_auto then
+	    res = (b_dir==mode)
+         else
+	    local b_dir = get_box_dir(
+	       node_next(node_next(node_next(getlist(s)))), dir_yoko)
+	    res = (b_dir==mode)
+         end
+      end
+      tex.sprint(cat_lp, '\\if' .. tostring(res))
+   end
+   luatexja.direction.dir_conditional = dir_conditional
+end
+
 -- 縦書き用字形への変換テーブル
 local font_vert_table = {} -- key: fontnumber
 do