2 % lltjcore.sty: derived from plcore.dtx in pLaTeX.
5 \NeedsTeXFormat{LaTeX2e}
6 \ProvidesPackage{lltjcore}[2023-02-26 Patch to LaTeX2e Kernel for LuaTeX-ja]
7 \RequirePackage{etoolbox}
10 \RequirePackage{expl3}
12 \cs_set_eq:NN \platex_direction_yoko: \yoko
13 \cs_set_eq:NN \platex_direction_tate: \tate
14 \cs_set_eq:NN \platex_direction_dtou: \dtou
15 \cs_set_eq:NN \platex_direction_utod: \utod % LuaTeX-ja specific
16 \prg_new_conditional:Npnn \platex_if_box_yoko:N #1 { p, T, F, TF }
17 { \if_int_compare:w \ltjgetparameter{boxdir}{#1} = 4 \scan_stop:
18 \prg_return_true: \else: \prg_return_false: \fi: }
19 \prg_new_conditional:Npnn \platex_if_box_utod:N #1 { p, T, F, TF }
20 { \if_int_compare:w \ltjgetparameter{boxdir}{#1} = 11 \scan_stop:
21 \prg_return_true: \else: \prg_return_false: \fi: }
22 \prg_new_eq_conditional:NNn \platex_if_box_tate_math:N \platex_if_box_utod:N { p, T, F, TF }
23 \prg_new_conditional:Npnn \platex_if_box_tate_nomath:N #1 { p, T, F, TF }
24 { \if_int_compare:w \ltjgetparameter{boxdir}{#1} = 3 \scan_stop:
25 \prg_return_true: \else: \prg_return_false: \fi: }
26 \prg_new_conditional:Npnn \platex_if_box_tate:N #1 { p, T, F, TF }
27 { \if_int_compare:w \ltjgetparameter{boxdir}{#1} = 3 \scan_stop:
29 \else: \if_int_compare:w \ltjgetparameter{boxdir}{#1} = 11 \scan_stop: % utod
34 \prg_new_conditional:Npnn \platex_if_box_dtou:N #1 { p, T, F, TF }
35 { \if_int_compare:w \ltjgetparameter{boxdir}{#1} = 1 \scan_stop:
36 \prg_return_true: \else: \prg_return_false: \fi: }
37 \prg_new_conditional:Npnn \platex_if_direction_yoko: { p, T, F, TF }
38 { \if_int_compare:w \ltjgetparameter{direction} = 4 \scan_stop:
39 \prg_return_true: \else: \prg_return_false: \fi: }
40 \prg_new_conditional:Npnn \platex_if_direction_utod: { p, T, F, TF }
41 { \if_int_compare:w \ltjgetparameter{direction} = 11 \scan_stop:
42 \prg_return_true: \else: \prg_return_false: \fi: }
43 \prg_new_eq_conditional:NNn
44 \platex_if_direction_tate_math: \platex_if_direction_utod: { p, T, F, TF }
45 \prg_new_conditional:Npnn \platex_if_direction_tate_nomath: { p, T, F, TF }
46 { \if_int_compare:w \ltjgetparameter{direction} = 3 \scan_stop:
47 \prg_return_true: \else: \prg_return_false: \fi: }
48 \prg_new_conditional:Npnn \platex_if_direction_tate: { p, T, F, TF }
49 { \if_int_compare:w \ltjgetparameter{direction} = 3 \scan_stop:
51 \else: \if_int_compare:w \ltjgetparameter{direction} = 11 \scan_stop: % utod
56 \prg_new_conditional:Npnn \platex_if_direction_dtou: { p, T, F, TF }
57 { \if_int_compare:w \ltjgetparameter{direction} = 1 \scan_stop:
58 \prg_return_true: \else: \prg_return_false: \fi: }
61 \def\cleardoublepage{\clearpage\if@twoside
63 \ifnum\ltjgetparameter{direction}=3
64 \hbox{}\thispagestyle{empty}\newpage
65 \if@twocolumn\hbox{}\newpage\fi
68 \ifnum\ltjgetparameter{direction}=4
69 \hbox{}\thispagestyle{empty}\newpage
70 \if@twocolumn\hbox{}\newpage\fi
74 \patchcmd\@vtryfc{\global\setbox\@outputbox\vbox{}}
75 {\global\setbox\@outputbox\vbox{%
76 \unless\ifnum\ltjgetparameter{direction}=4
77 \primitive\everypar{}\hskip\z@\fi
80 \newif\iftombow \tombowfalse
81 \newif\iftombowdate \tombowdatetrue
82 \newdimen\@tombowwidth
83 \setlength{\@tombowwidth}{.1\p@}
84 \newbox\@TL\newbox\@Tl
86 \newbox\@TR\newbox\@Tr
87 \newbox\@BL\newbox\@Bl
89 \newbox\@BR\newbox\@Br
92 \font\@bannerfont=file:lmmono9-regular.otf % cmtt9 in pLaTeX
96 \setbox\@TL\hbox to\z@{\yoko\hss
97 \vrule width\dimexpr 10mm+\@tombowbleed\relax height\@tombowwidth depth\z@
98 \vrule height10mm width\@tombowwidth depth\z@
100 \raise4pt\hbox to\z@{\hskip5mm\@bannerfont\the\@bannertoken\hss}%
102 \setbox\@Tl\hbox to\z@{\yoko\hss
103 \vrule width10mm height\@tombowwidth depth\z@
104 \vrule height\dimexpr 10mm+\@tombowbleed\relax width\@tombowwidth depth\z@}%
105 \setbox\@TC\hbox{\yoko
106 \vrule width10mm height\@tombowwidth depth\z@
107 \vrule height10mm width\@tombowwidth depth\z@
108 \vrule width10mm height\@tombowwidth depth\z@}%
109 \setbox\@TR\hbox to\z@{\yoko
110 \vrule height10mm width\@tombowwidth depth\z@
111 \vrule width\dimexpr 10mm+\@tombowbleed\relax height\@tombowwidth depth\z@\hss}%
112 \setbox\@Tr\hbox to\z@{\yoko
113 \vrule height\dimexpr 10mm+\@tombowbleed\relax width\@tombowwidth depth\z@
114 \vrule width10mm height\@tombowwidth depth\z@\hss}%
115 \setbox\@BL\hbox to\z@{\yoko\hss
116 \vrule width\dimexpr 10mm+\@tombowbleed\relax depth\@tombowwidth height\z@
117 \vrule depth10mm width\@tombowwidth height\z@}%
118 \setbox\@Bl\hbox to\z@{\yoko\hss
119 \vrule width10mm depth\@tombowwidth height\z@
120 \vrule depth\dimexpr 10mm+\@tombowbleed\relax width\@tombowwidth height\z@}%
121 \setbox\@BC\hbox{\yoko
122 \vrule width10mm depth\@tombowwidth height\z@
123 \vrule depth10mm width\@tombowwidth height\z@
124 \vrule width10mm depth\@tombowwidth height\z@}%
125 \setbox\@BR\hbox to\z@{\yoko
126 \vrule depth10mm width\@tombowwidth height\z@
127 \vrule width\dimexpr 10mm+\@tombowbleed\relax depth\@tombowwidth height\z@\hss}%
128 \setbox\@Br\hbox to\z@{\yoko
129 \vrule depth\dimexpr 10mm+\@tombowbleed\relax width\@tombowwidth height\z@
130 \vrule width10mm depth\@tombowwidth height\z@\hss}%
131 \setbox\@CL\hbox to\z@{\yoko\hss
132 \vrule width10mm height.5\@tombowwidth depth.5\@tombowwidth
133 \vrule height10mm depth10mm width\@tombowwidth}%
134 \setbox\@CR\hbox to\z@{\yoko
135 \vrule height10mm depth10mm width\@tombowwidth
136 \vrule height.5\@tombowwidth depth.5\@tombowwidth width10mm\hss}%
140 \vbox to\z@{\kern-\@tombowbleed\relax
141 \boxmaxdepth\maxdimen
142 \moveleft\@tombowbleed\vbox to\@@paperheight{%
145 \setbox\z@\hbox to\@@paperwidth{\hskip\@tombowbleed\relax
146 \copy\@TL\hss\copy\@TC\hss\copy\@TR\hskip\@tombowbleed}
147 \ht\z@=\z@\dp\z@=\z@\box\z@%
149 \setbox\z@\hbox to\@@paperwidth{\copy\@Tl\hfill\copy\@Tr}%
150 \ht\z@=\z@\dp\z@=\z@\box\z@%
152 \setbox\z@\hbox to\@@paperwidth{\copy\@CL\hfill\copy\@CR}%
153 \ht\z@=\z@\dp\z@=\z@\box\z@%
155 \setbox\z@\hbox to\@@paperwidth{\copy\@Bl\hfill\copy\@Br}%
156 \ht\z@=\z@\dp\z@=\z@\box\z@
158 \setbox\z@\hbox to\@@paperwidth{\hskip\@tombowbleed\relax
159 \copy\@BL\hss\copy\@BC\hss\copy\@BR\hskip\@tombowbleed}%
160 \ht\z@=\z@\dp\z@=\z@\box\z@%
167 \def\@tombowcolor{\normalcolor}
168 \def\@tombowbleed{3mm}
169 \def\@tombowreset@@paper{%
170 \@@topmargin \topmargin % only for compatibility
172 \@@paperwidth\dimexpr\paperwidth+2\dimexpr\@tombowbleed\relax
173 \@@paperheight\dimexpr\paperheight+10mm+2\dimexpr\@tombowbleed\relax
174 \advance\@@topmargin 1in\relax \advance\@themargin 1in\relax
177 \newdimen\@@paperheight
178 \newdimen\@@paperwidth
179 \newdimen\@@topmargin % not used by LuaTeX-ja; only to avoid existing codes
180 \patchcmd\@outputpage{\begingroup\let\protect\noexpand}{% tate direction
182 \ifnum\ltjgetparameter{direction}=4\else
183 \dimen\z@\textwidth \textwidth\textheight \textheight\dimen\z@
185 \let \protect \noexpand
187 \patchcmd\@outputpage{% supply \yoko
189 \aftergroup \endgroup
191 \yoko \set@typeset@protect
192 \aftergroup \endgroup
194 \patchcmd\@outputpage{\let\@thefoot\@oddfoot\let\@themargin\oddsidemargin}{% tate direction
195 \let\@thefoot\@oddfoot
196 \ifnum\ltjgetparameter{direction}=3 \let\@themargin\evensidemargin
197 \else\let\@themargin\oddsidemargin\fi
199 \patchcmd\@outputpage{\let\@thefoot\@evenfoot\let\@themargin\evensidemargin}{% tate direction
200 \let\@thefoot\@evenfoot
201 \ifnum\ltjgetparameter{direction}=3 \let\@themargin\oddsidemargin
202 \else\let\@themargin\evensidemargin\fi
205 % 将来は shipout hook で書き直したい
206 \patchcmd\@outputpage{\vskip\topmargin}{\vskip\topmargin\iftombow\vskip1in\fi}{}{}
207 \patchcmd\@outputpage{\reset@font}{\@tombowreset@@paper\reset@font}{}{}
208 \patchcmd\@outputpage{\@begindvi}{\@begindvi\@outputtombow}{}{}
211 \pretocmd\@floatboxreset{\pltx@save@float@dir}{}{}
212 \patchcmd\@endfloatbox{\outer@nobreak}{\outer@nobreak\pltx@check@float@dir}{}{}
213 \def\pltx@save@float@dir{%
214 \edef\pltx@float@dir@first{\ltjgetparameter{direction}}}
215 \def\pltx@check@float@dir{%
216 \ifx\pltx@float@dir@first\@undefined\else
217 \ifnum\ltjgetparameter{direction}=\pltx@float@dir@first\else
221 \def\pltx@err@float@dir{%
222 \@latex@error{Direction change inside float!?\MessageBreak
223 Use \noexpand\layoutcaption provided in \string\usepackage{lltjext}}\@ehc}
224 %%% Remove extra xkanjiskip
225 \renewcommand\@makefnmark{%
226 \unless\ifnum\ltjgetparameter{direction}=3
227 \hbox{}\hbox{\@textsuperscript{\normalfont\@thefnmark}}\hbox{}%
228 \else\hbox{\yoko \@textsuperscript{\normalfont\@thefnmark}}\fi}
230 \@ifpackageloaded{hyperref}
231 {\ifdefined\real@setref\def\ltj@setrefprefix{real}\else\def\ltj@setrefprefix{}\fi}
232 {\def\ltj@setrefprefix{}}
233 \expandafter\gdef\csname \ltj@setrefprefix @setref\endcsname#1#2#3{%
235 \protect\G@refundefinedtrue
236 \nfss@text{\reset@font\bfseries ??}%
237 \@latex@warning{Reference `#3' on page \thepage \space
240 \expandafter#2#1\protect\@setref@{}% change \null to \protect\@setref@{}
242 \gdef\@setref@{\ifhmode\spacefactor\@m\fi}
244 \if@compatibility\else
245 \def\verb{\relax\ifmmode\hbox\else\leavevmode\vadjust{}\fi
247 \verb@eol@error \let\do\@makeother \dospecials
248 \verbatim@font\@noligs
249 \language\l@nohyphenation
250 \@ifstar\@sverb\@verb}
252 \patchcmd{\do@noligs}{\kern\z@}{\vadjust{}}{}{} % reported by p_typo
254 \inhibitglue\@tempskipa\lastskip\unskip
255 \hskip\@tempskipa\color@endgroup\egroup}
256 \pretocmd{\footnote}{\inhibitglue}{}{}
257 \pretocmd{\footnotemark}{\inhibitglue}{}{}
258 \def\@ltj@process@makefnmark#1{%
259 \unless\ifnum\ltjgetparameter{direction}=3 #1%
260 \else\hbox to\z@{\hskip-.25\zw\raise.9\zh#1\hss}\fi%
262 \ifdefined\@kernel@process@makefnmark %% 2022-06-01 latex-lab?
263 \let\ltj@orig@kernel@process@makefnmark=\@kernel@process@makefnmark
264 \def\@kernel@process@makefnmark#1{\ltj@orig@kernel@process@makefnmark{\@ltj@process@makefnmark#1}}
266 \patchcmd{\@footnotemark}{\@makefnmark}{\@ltj@process@makefnmark\@makefnmark}{}{}
268 \long\def\@iiiparbox#1#2[#3]#4#5{%
271 \setlength\@tempdima{#4}%
272 \@begin@tempboxa\vbox{\hsize\@tempdima\@parboxrestore#5\@@par}%
274 \setlength\@tempdimb{#2}%
275 \edef\@parboxto{to\the\@tempdimb}%
279 \else\ifmmode\vcenter
280 \else\@pboxswtrue\null$\vcenter% !!!
282 \@parboxto{\let\hss\vss\let\unhbox\unvbox
283 \csname bm@#3\endcsname}%
284 \if@pboxsw \m@th$\null\fi% !!!
286 \DeclareRobustCommand\underline[1]{%
288 \ifmmode\@@underline{#1}%
289 \else \leavevmode\null$\@@underline{\hbox{#1}}\m@th$\null\relax\fi}
292 \newif\ifltj@ftn@unvboxed
294 \def\pltx@adjust@wd@outputbox{%
295 \unless\ifnum\ltjgetparameter{direction}=4
296 \vbox{\primitive\everypar{}\hskip\z@}%
298 \patchcmd\@makecol{\vskip -\dimen@\@textbottom}%
299 {\pltx@adjust@wd@outputbox
301 \ifltj@ftn@unvboxed\iffnfixbottom\else\@textbottom\fi\else\@textbottom\fi}{}{}
302 \patchcmd\@makecol{\vskip\skip\footins}{\iffnfixbottom\vskip\z@\@plus.0001fil\fi\vskip\skip\footins}{}{}
303 \patchcmd\@makecol{\ifvoid\footins}{\ifvoid\footins\ltj@ftn@unvboxedfalse}{}{}
304 \patchcmd\@makecol{\setbox\@outputbox \vbox}{\ltj@ftn@unvboxedtrue\setbox\@outputbox \vbox}{}{}
305 \let\ltj@orig@makecol=\@makecol
307 \patchcmd\@makespecialcolbox{\@textbottom}{\ifltj@ftn@unvboxed\iffnfixbottom\else\@textbottom\fi\else\@textbottom\fi}{}{}
313 \unskip \reserved@e {\reserved@f#1}\nobreak \hfil \break \null
314 % \null は \break の効果が行頭禁則文字で打ち消されないために必要
319 %%%%%% tabular (platex/#43) \@tabclassz
320 \def\ltj@sharp{\relax\pltx@next@inhibitglue\ltjfakeboxbdd\ignorespaces\@sharp\unskip\ltjfakeboxbdd}
333 \@firstampfalse\@acol
338 \hfil\hskip1sp\ltj@sharp\hfil
340 \hskip1sp\ltj@sharp\hfil
342 \hfil\hskip1sp\ltj@sharp
347 \everypar\expandafter{\the\everypar\ltjfakeboxbdd}\ignorespaces\@sharp\unskip
349 \patchcmd{\@tabular}{\leavevmode}{\leavevmode\null}{}{}
350 \apptocmd{\endtabular}{\null}{}{}
351 \expandafter \let \csname endtabular*\endcsname = \endtabular
353 %%%%%% tabbing (platex/#53)
354 \patchcmd\@startline{\strut}{\strut\inhibitglue}{}{}
355 \def\ltj@unhbox@curfield{\ltjfakeboxbdd\unhbox\@curfield\ltjfakeboxbdd}
356 %\patchcmd\@contfield{\unhbox\@curfield}{\ltj@unhbox@curfield}{}{}
357 \patchcmd\@addfield{\unhbox\@curfield}{\ltj@unhbox@curfield}{}{}