☰

bidi 文件分組、列表環境和顯示數學交互

tag-icon • tag-icon spacing lists babel bidi
bidi 文件分組、列表環境和顯示數學交互

我正在嘗試調試一些程式碼，這些程式碼在所有內容均為 LTR 時有效，在所有內容均為 RTL 時有效，但當主文件方向與我的環境之一內的方向不同時會失敗。

我已經設法將我的程式碼簡化為相當簡單的東西，但我承認，從「為什麼我到底想做我正在做的事情」這個問題中並不清楚……而且，這種行為與我的行為略有不同現實世界的程式碼要複雜得多，所以我可能仍然錯過了一些東西。

問題

  • 在下面的程式碼中，我用來\predisplaysize測量段落最後一行的長度。
  • 當您執行此操作時，您需要\prevgraf從顯示數學內部獲取，以便隨後重置它以保持間距。
  • 在下面的程式碼中，\prevgraf在每個清單環境結束時重設 4 次。但它的值是不同的，這取決於我是在第一個列表環境之前還是在列表環境開始時更改語言。在下面的 MWE 中，每次連續呼叫\measureline都會給予\prevgraf1、1、1，然後是 0。

為什麼是這樣？我怎樣才能獲得一致的行為？

\setlanguage{ukenglish}我知道這個例子很奇怪，但是為什麼根據我是否之前調用listenva而不是裡面的第一件事而有所不同listenva？

\prevgraf（我想要下面 MWE 中第二個範例的行為。這就是的四個呼叫的模式\measureline應該是： 1, 0, 1, 0。當您註解掉 時，您可以看到這一點\babelprovide[import, main]{persian}，確保 之前的語言start oflistenva與裡面設定的相同listenva）

我注意到的事情

  • 在環境中\@noparlistfalse之前呼叫是確保第二次呼叫時為 0。換句話說，如果我註解掉這一行，則4 次呼叫中的每一次呼叫都是 1 。\endlist\listenvb\prevgraf\prevgraf\measureline

  • 當主文檔語言是 LTR 並且我的環境將語言設定為 RTL 語言時，也會出現相同的問題。

  • 分組也會影響一些事情：

    這有效：

    \listenva
  \begin{listenvb}
    Test.
  \end{listenvb}
\endlistenva

    但這失敗了：

    \begingroup
\selectlanguage{ukenglish}
\begin{listenva}
  \begin{listenvb}
    Test.
  \end{listenvb}
\end{listenva}
\endgroup

微量元素

%! TeX Program = lualatex

\documentclass{article}
\pagestyle{empty}
\usepackage[bidi=basic, layout=lists]{babel}
\babelprovide[import, main]{persian}
\babelprovide[import]{ukenglish}
\newdimen\linelen
\newcommand{\measureline}{%
  \abovedisplayshortskip -\baselineskip
  \abovedisplayskip\abovedisplayshortskip
  \belowdisplayshortskip 0pt
  \belowdisplayskip\belowdisplayshortskip
  $$
    \ifdim\predisplaysize>0pt
      \global\linelen\dimexpr\predisplaysize-2em
    \fi
    \global\def\resetspacing{%
      \predisplaysize\the\predisplaysize
      \prevgraf\the\prevgraf
    }%
  $$
  \resetspacing
  \ifdim\linelen>0pt
    \vskip-\baselineskip
  \fi
}
\newcommand{\nolistspaces}{%
  \leftmargin 0pt
  \rightmargin 0pt
  \itemindent 0pt
  \partopsep 0pt
  \parsep 0pt
  \topsep 0pt
}
\newenvironment{listenva}{%
  \selectlanguage{ukenglish}%
  \list{}{\nolistspaces}%
  \item\relax
}{%
  \measureline
  \strut\hskip\linelen+++%
  \csname @noparlistfalse\endcsname
  \endlist
}
\newenvironment{listenvb}{%
  \list{}{\nolistspaces}%
  \item\relax
}{%
  \measureline
  \csname @noparlistfalse\endcsname
  \endlist
}
\begin{document}
\begin{listenva}
  \begin{listenvb}
    Test.
  \end{listenvb}
\end{listenva}

\selectlanguage{ukenglish}

\begin{listenva}
  \begin{listenvb}
    Test.
  \end{listenvb}
\end{listenva}
\end{document}

我得到的輸出錯誤

錯誤的輸出

所需輸出

期望的輸出

答案1

考慮以下

\showboxdepth\maxdimen\showboxbreadth\maxdimen
\tracingonline1\tracingoutput1
\everypar{\setbox0=\lastbox}
{%\textdirection=0
$$
$$\par}
\bye

這給出了輸出

\vbox(667.20255+0.0)x469.75499, direction TLT
.\vbox(0.0+0.0)x469.75499, glue set 14.0fil, direction TLT
..\glue -22.5
..\hbox(8.5+0.0)x469.75499, glue set 469.755fil, direction TLT
...\vbox(8.5+0.0)x0.0, direction TLT
...\glue 0.0 plus 1.0fil
..\glue 0.0 plus 1.0fil minus 1.0fil
.\vbox(643.20255+0.0)x234.8775, glue set 626.20251fill, direction TLT
..\glue(\topskip) 10.0
..\hbox(0.0+0.0)x0.0, shifted 234.8775, direction TLT
..\penalty 0
..\glue(\belowdisplayshortskip) 7.0 plus 3.0 minus 4.0
..\glue 0.0 plus 1.0fill
.\glue(\baselineskip) 17.55556
.\hbox(6.44444+0.0)x469.75499, glue set 232.37749fil, direction TLT
..\glue 0.0 plus 1.0fil minus 1.0fil
..\tenrm 1
..\glue 0.0 plus 1.0fil minus 1.0fil

而如果我取消註解\textdirection=0輸出是

\vbox(667.20255+0.0)x469.75499, direction TLT
.\vbox(0.0+0.0)x469.75499, glue set 14.0fil, direction TLT
..\glue -22.5
..\hbox(8.5+0.0)x469.75499, glue set 469.755fil, direction TLT
...\vbox(8.5+0.0)x0.0, direction TLT
...\glue 0.0 plus 1.0fil
..\glue 0.0 plus 1.0fil minus 1.0fil
.\vbox(643.20255+0.0)x469.75499, glue set 614.20251fill, direction TLT
..\glue(\topskip) 10.0
..\hbox(0.0+0.0)x469.75499, glue set 469.755fil, direction TLT
...\localpar
....\localinterlinepenalty=0
....\localbrokenpenalty=0
....\localleftbox=null
....\localrightbox=null
...\begindir TLT
...\penalty 10000
...\enddir TLT
...\glue(\parfillskip) 0.0 plus 1.0fil
...\glue(\rightskip) 0.0
..\penalty 10000
..\glue(\abovedisplayshortskip) 0.0 plus 3.0
..\glue(\baselineskip) 12.0
..\hbox(0.0+0.0)x0.0, shifted 234.8775, direction TLT
..\penalty 0
..\glue(\belowdisplayshortskip) 7.0 plus 3.0 minus 4.0
..\glue 0.0 plus 1.0fill
.\glue(\baselineskip) 17.55556
.\hbox(6.44444+0.0)x469.75499, glue set 232.37749fil, direction TLT
..\glue 0.0 plus 1.0fil minus 1.0fil
..\tenrm 1
..\glue 0.0 plus 1.0fil minus 1.0fil

看起來當你\textdir在群組中明確推送 dir 節點（使用 ）時，LuaTeX 不會丟棄顯示先前的空白行（也許它不會因為懲罰周圍的 dir 節點而認為它是空的）。不確定這是否應該被視為錯誤。

我不精通 babel 的程式碼，但我的猜測是 babel 不會在不需要時插入 dir 節點，因此當您放在\selectlanguage{ukenglish}頂部分組層級時，babel 不會在您的群組內註入更多 dir 節點環境。

如果你願意使用一些 lua，你可能可以不使用顯示技巧來獲得最後一行的長度：

\documentclass{article}
\pagestyle{empty}
\usepackage[bidi=basic, layout=lists]{babel}
\babelprovide[import, main]{persian}
\babelprovide[import]{ukenglish}
\newdimen\linelen
\directlua{
 local disabled = true
 local function lastline_length(head,c)
    if disabled then 
        return head
    end
    local last_line = node.tail(head)
    local parfill_node
    for n in node.traverse_id(node.id('glue'),last_line.list) do
        if n.subtype == 15 then parfill_node = n end 
    end
    local length, _, _ = node.rangedimensions(last_line,last_line.head,parfill_node)
    tex.setdimen('global', 'linelen',length)
    return head
 end
 local getlastlinelength = luatexbase.new_luafunction"getlastlinelength"
 lua.get_functions_table()[getlastlinelength] = function() disabled = false end
 token.set_lua("getlastlinelength", getlastlinelength, "protected")
 local dontgetlastlinelength = luatexbase.new_luafunction"dontgetlastlinelength"
 lua.get_functions_table()[dontgetlastlinelength] = function() disabled = true end
 token.set_lua("dontgetlastlinelength", dontgetlastlinelength, "protected")
 luatexbase.add_to_callback('post_linebreak_filter',lastline_length,'lastline')
}
\newcommand{\nolistspaces}{%
  \leftmargin 0pt
  \rightmargin 0pt
  \itemindent 0pt
  \partopsep 0pt
  \parsep 0pt
  \topsep 0pt
}
\newenvironment{listenva}{%
  \selectlanguage{ukenglish}%
  \list{}{\nolistspaces}%
  \item\relax
}{%
  \ifdim\linelen>0pt
    \vskip-\baselineskip
  \fi
  \strut\hskip\linelen+++%
  \csname @noparlistfalse\endcsname
  \endlist
}
\newenvironment{listenvb}{%
  \global\linelen=0pt
  \getlastlinelength
  \list{}{\nolistspaces}%
  \item\relax
}{%
  \csname @noparlistfalse\endcsname
  \endlist
  \dontgetlastlinelength
}
\begin{document}
\begin{listenva}
  \begin{listenvb}
    Test.
  \end{listenvb}
\end{listenva}

\selectlanguage{ukenglish}

\begin{listenva}
  \begin{listenvb}
    Test.
  \end{listenvb}
\end{listenva}
\end{document}

在此輸入影像描述

相關內容