2 % lltjcore.sty: derived from plcore.dtx in pLaTeX.
5 \NeedsTeXFormat{LaTeX2e}
6 \ProvidesPackage{lltjcore}[2017/11/12 Patch to LaTeX2e Kernel for LuaTeX-ja]
7 \RequirePackage{etoolbox}
9 \def\cleardoublepage{\clearpage\if@twoside
11 \ifnum\ltjgetparameter{direction}=3
12 \hbox{}\thispagestyle{empty}\newpage
13 \if@twocolumn\hbox{}\newpage\fi
16 \ifnum\ltjgetparameter{direction}=4
17 \hbox{}\thispagestyle{empty}\newpage
18 \if@twocolumn\hbox{}\newpage\fi
21 \newif\iftombow \tombowfalse
22 \newif\iftombowdate \tombowdatetrue
23 \newdimen\@tombowwidth
24 \setlength{\@tombowwidth}{.1\p@}
25 \newbox\@TL\newbox\@Tl
27 \newbox\@TR\newbox\@Tr
28 \newbox\@BL\newbox\@Bl
30 \newbox\@BR\newbox\@Br
33 \font\@bannerfont=cmtt9
37 \setbox\@TL\hbox to\z@{\yoko\hss
38 \vrule width13mm height\@tombowwidth depth\z@
39 \vrule height10mm width\@tombowwidth depth\z@
41 \raise4pt\hbox to\z@{\hskip5mm\@bannerfont\the\@bannertoken\hss}%
43 \setbox\@Tl\hbox to\z@{\yoko\hss
44 \vrule width10mm height\@tombowwidth depth\z@
45 \vrule height13mm width\@tombowwidth depth\z@}%
46 \setbox\@TC\hbox{\yoko
47 \vrule width10mm height\@tombowwidth depth\z@
48 \vrule height10mm width\@tombowwidth depth\z@
49 \vrule width10mm height\@tombowwidth depth\z@}%
50 \setbox\@TR\hbox to\z@{\yoko
51 \vrule height10mm width\@tombowwidth depth\z@
52 \vrule width13mm height\@tombowwidth depth\z@\hss}%
53 \setbox\@Tr\hbox to\z@{\yoko
54 \vrule height13mm width\@tombowwidth depth\z@
55 \vrule width10mm height\@tombowwidth depth\z@\hss}%
56 \setbox\@BL\hbox to\z@{\yoko\hss
57 \vrule width13mm depth\@tombowwidth height\z@
58 \vrule depth10mm width\@tombowwidth height\z@}%
59 \setbox\@Bl\hbox to\z@{\yoko\hss
60 \vrule width10mm depth\@tombowwidth height\z@
61 \vrule depth13mm width\@tombowwidth height\z@}%
62 \setbox\@BC\hbox{\yoko
63 \vrule width10mm depth\@tombowwidth height\z@
64 \vrule depth10mm width\@tombowwidth height\z@
65 \vrule width10mm depth\@tombowwidth height\z@}%
66 \setbox\@BR\hbox to\z@{\yoko
67 \vrule depth10mm width\@tombowwidth height\z@
68 \vrule width13mm depth\@tombowwidth height\z@\hss}%
69 \setbox\@Br\hbox to\z@{\yoko
70 \vrule depth13mm width\@tombowwidth height\z@
71 \vrule width10mm depth\@tombowwidth height\z@\hss}%
72 \setbox\@CL\hbox to\z@{\yoko\hss
73 \vrule width10mm height.5\@tombowwidth depth.5\@tombowwidth
74 \vrule height10mm depth10mm width\@tombowwidth}%
75 \setbox\@CR\hbox to\z@{\yoko
76 \vrule height10mm depth10mm width\@tombowwidth
77 \vrule height.5\@tombowwidth depth.5\@tombowwidth width10mm\hss}%
81 \vbox to\z@{\kern-13mm\relax
83 \moveleft3mm\vbox to\@@paperheight{%
84 \hbox to\@@paperwidth{\hskip3mm\relax
85 \copy\@TL\hfill\copy\@TC\hfill\copy\@TR\hskip3mm}%
87 \hbox to\@@paperwidth{\copy\@Tl\hfill\copy\@Tr}%
89 \hbox to\@@paperwidth{\copy\@CL\hfill\copy\@CR}%
91 \hbox to\@@paperwidth{\copy\@Bl\hfill\copy\@Br}%
93 \hbox to\@@paperwidth{\hskip3mm\relax
94 \copy\@BL\hfill\copy\@BC\hfill\copy\@BR\hskip3mm}%
99 \newdimen\@@paperheight
100 \newdimen\@@paperwidth
101 \newdimen\@@topmargin
103 \begingroup % the \endgroup is put in by \aftergroup
104 \ifnum\ltjgetparameter{direction}=4\else
105 \dimen\z@\textwidth \textwidth\textheight \textheight\dimen\z@
107 \let \protect \noexpand
108 \language\document@default@language %LaTeX2e 2017/05/01
110 \global\let\@@if@newlist\if@newlist
111 \global\@newlistfalse
116 \aftergroup\set@typeset@protect
118 \global\@specialpagefalse\@nameuse{ps@\@specialstyle}%
121 \ifodd\count\z@ \let\@thehead\@oddhead \let\@thefoot\@oddfoot
122 \ifnum\ltjgetparameter{direction}=3 \let\@themargin\evensidemargin
123 \else\let\@themargin\oddsidemargin\fi
124 \else \let\@thehead\@evenhead
125 \let\@thefoot\@evenfoot
126 \ifnum\ltjgetparameter{direction}=3 \let\@themargin\oddsidemargin
127 \else\let\@themargin\evensidemargin\fi
129 \@@topmargin\topmargin
131 \@@paperwidth\paperwidth \advance\@@paperwidth 6mm\relax
132 \@@paperheight\paperheight \advance\@@paperheight 16mm\relax
133 \advance\@@topmargin 1in\relax \advance\@themargin 1in\relax
140 \let\glossary\@gobble
141 \baselineskip\z@skip \lineskip\z@skip \lineskiplimit\z@
145 \moveright\@themargin\vbox{%
146 \setbox\@tempboxa \vbox to\headheight{%
150 \hb@xt@\textwidth{\@thehead}%
157 \baselineskip \footskip
160 \hb@xt@\textwidth{\@thefoot}%
164 \global\let\if@newlist\@@if@newlist
165 \global \@colht \textheight
167 \let\firstmark\botmark
170 %%% Remove extra xkanjiskip
171 \renewcommand\@makefnmark{%
172 \unless\ifnum\ltjgetparameter{direction}=3
173 \hbox{}\hbox{\@textsuperscript{\normalfont\@thefnmark}}\hbox{}%
174 \else\hbox{\yoko \@textsuperscript{\normalfont\@thefnmark}}\fi}
176 \@ifpackageloaded{hyperref}
177 {\def\ltj@setrefprefix{real}}
178 {\def\ltj@setrefprefix{}}
179 \expandafter\gdef\csname \ltj@setrefprefix @setref\endcsname#1#2#3{%
181 \protect\G@refundefinedtrue
182 \nfss@text{\reset@font\bfseries ??}%
183 \@latex@warning{Reference `#3' on page \thepage \space
186 \expandafter#2#1\protect\@setref@{}% change \null to \protect\@setref@{}
188 \gdef\@setref@{\ifhmode\spacefactor\@m\fi}
190 \if@compatibility\else
191 \def\verb{\relax\ifmmode\hbox\else\leavevmode\vadjust{}\fi
193 \verb@eol@error \let\do\@makeother \dospecials
194 \verbatim@font\@noligs
195 \language\l@nohyphenation
196 \@ifstar\@sverb\@verb}
198 \gdef\@stopfield{\null\color@endgroup\egroup}
201 \pretocmd{\footnote}{\inhibitglue}{}{}
202 \pretocmd{\footnotemark}{\inhibitglue}{}{}
203 \patchcmd{\@footnotemark}{\@makefnmark}{%
204 \unless\ifnum\ltjgetparameter{direction}=3 \@makefnmark%
205 \else\hbox to\z@{\hskip-.25\zw\raise.9\zh\@makefnmark\hss}\fi%
207 \patchcmd{\@tabular}{\leavevmode}{\leavevmode\null}{}{}
208 \apptocmd{\endtabular}{\null}{}{}
209 \expandafter \let \csname endtabular*\endcsname = \endtabular
210 \let\@parboxto\@empty
211 \long\def\@iiiparbox#1#2[#3]#4#5{%
214 \setlength\@tempdima{#4}%
215 \@begin@tempboxa\vbox{\hsize\@tempdima\@parboxrestore#5\@@par}%
217 \setlength\@tempdimb{#2}%
218 \edef\@parboxto{to\the\@tempdimb}%
222 \else\ifmmode\vcenter
223 \else\@pboxswtrue\null$\vcenter% !!!
225 \@parboxto{\let\hss\vss\let\unhbox\unvbox
226 \csname bm@#3\endcsname}%
227 \if@pboxsw \m@th$\null\fi% !!!
231 \ifmmode\@@underline{#1}%
232 \else \leavevmode\null$\@@underline{\hbox{#1}}\m@th$\null\relax\fi}
235 \def \AtBeginDvi #1{%
236 \global \setbox \@begindvibox
237 \vbox{\yoko\unvbox \@begindvibox #1}%
241 \newif\ifltj@ftn@unvboxed
245 \ltj@ftn@unvboxedfalse
246 \setbox\@outputbox \box\@cclv
248 \ltj@ftn@unvboxedtrue
249 \setbox\@outputbox \vbox {%
250 \boxmaxdepth \@maxdepth
252 \iffnfixbottom\vskip\z@ \@plus.0001fil\fi
262 \xdef\@freelist{\@freelist\@midlist}%
263 \global \let \@midlist \@empty
268 \setbox\@outputbox \vbox to\@colht {%
270 \dimen@ \dp\@outputbox
272 \ifnum\ltjgetparameter{direction}=4\else\vbox{\hskip\z@}\fi %%% LuaTeX-ja
274 \ifltj@ftn@unvboxed\iffnfixbottom\else\@textbottom\fi\else\@textbottom\fi
277 \global \maxdepth \@maxdepth
279 \let\ltj@orig@makecol=\@makecol
281 \patchcmd\@makespecialcolbox{\@textbottom}{\ifltj@ftn@unvboxed\iffnfixbottom\else\@textbottom\fi\else\@textbottom\fi}{}{}
287 \unskip \reserved@e {\reserved@f#1}\nobreak \hfil \break \null
288 % \null は \break の効果が行頭禁則文字で打ち消されないために必要
293 %%%%%% tabular (platex/#43) \@tabclassz
294 \def\ltj@sharp{\ltjfakeboxbdd\ignorespaces\@sharp\unskip\ltjfakeboxbdd}
307 \@firstampfalse\@acol
314 \hskip1sp\ltj@sharp\hfil
316 \hfil\hskip1sp\ltj@sharp
321 \everypar\expandafter{\the\everypar\ltjfakeboxbdd}\ignorespaces\@sharp\unskip
324 %%%%%% tabbing (platex/#53)
325 \patchcmd\@startline{\strut}{\strut\inhibitglue}{}{}
326 \def\ltj@unhbox@curfield{\ltjfakeboxbdd\unhbox\@curfield\ltjfakeboxbdd}
327 %\patchcmd\@contfield{\unhbox\@curfield}{\ltj@unhbox@curfield}{}{}
328 \patchcmd\@addfield{\unhbox\@curfield}{\ltj@unhbox@curfield}{}{}
329 \pretocmd\@stopfield{\inhibitglue}{}{}