2 % lltjcore.sty: derived from plcore.dtx in pLaTeX.
5 \NeedsTeXFormat{LaTeX2e}
6 \ProvidesPackage{lltjcore}[2017/08/27 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\spacefactor\@m{}% change \null to \spacefactor\@m{}
189 \if@compatibility\else
190 \def\verb{\relax\ifmmode\hbox\else\leavevmode\vadjust{}\fi
192 \verb@eol@error \let\do\@makeother \dospecials
193 \verbatim@font\@noligs
194 \language\l@nohyphenation
195 \@ifstar\@sverb\@verb}
197 \gdef\@stopfield{\null\color@endgroup\egroup}
200 \pretocmd{\footnote}{\inhibitglue}{}{}
201 \pretocmd{\footnotemark}{\inhibitglue}{}{}
202 \patchcmd{\@footnotemark}{\@makefnmark}{%
203 \unless\ifnum\ltjgetparameter{direction}=3 \@makefnmark%
204 \else\hbox to\z@{\hskip-.25\zw\raise.9\zh\@makefnmark\hss}\fi%
206 \patchcmd{\@tabular}{\leavevmode}{\leavevmode\null}{}{}
207 \apptocmd{\endtabular}{\null}{}{}
208 \expandafter \let \csname endtabular*\endcsname = \endtabular
209 \let\@parboxto\@empty
210 \long\def\@iiiparbox#1#2[#3]#4#5{%
213 \setlength\@tempdima{#4}%
214 \@begin@tempboxa\vbox{\hsize\@tempdima\@parboxrestore#5\@@par}%
216 \setlength\@tempdimb{#2}%
217 \edef\@parboxto{to\the\@tempdimb}%
221 \else\ifmmode\vcenter
222 \else\@pboxswtrue\null$\vcenter% !!!
224 \@parboxto{\let\hss\vss\let\unhbox\unvbox
225 \csname bm@#3\endcsname}%
226 \if@pboxsw \m@th$\null\fi% !!!
230 \ifmmode\@@underline{#1}%
231 \else \leavevmode\null$\@@underline{\hbox{#1}}\m@th$\null\relax\fi}
234 \def \AtBeginDvi #1{%
235 \global \setbox \@begindvibox
236 \vbox{\yoko\unvbox \@begindvibox #1}%
240 \newif\ifltj@ftn@unvboxed
244 \ltj@ftn@unvboxedfalse
245 \setbox\@outputbox \box\@cclv
247 \ltj@ftn@unvboxedtrue
248 \setbox\@outputbox \vbox {%
249 \boxmaxdepth \@maxdepth
251 \iffnfixbottom\vskip\z@ \@plus.0001fil\fi
261 \xdef\@freelist{\@freelist\@midlist}%
262 \global \let \@midlist \@empty
267 \setbox\@outputbox \vbox to\@colht {%
269 \dimen@ \dp\@outputbox
271 \ifnum\ltjgetparameter{direction}=4\else\vbox{\hskip\z@}\fi %%% LuaTeX-ja
273 \ifltj@ftn@unvboxed\iffnfixbottom\else\@textbottom\fi\else\@textbottom\fi
276 \global \maxdepth \@maxdepth
278 \let\ltj@orig@makecol=\@makecol
280 \patchcmd\@makespecialcolbox{\@textbottom}{\ifltj@ftn@unvboxed\iffnfixbottom\else\@textbottom\fi\else\@textbottom\fi}{}{}
286 \unskip \reserved@e {\reserved@f#1}\nobreak \hfil \break \null
287 % \null は \break の効果が行頭禁則文字で打ち消されないために必要
292 %%%%%% tabular (platex/#43) \@tabclassz
293 \def\ltj@sharp{\ltjfakeboxbdd\ignorespaces\@sharp\unskip\ltjfakeboxbdd}
306 \@firstampfalse\@acol
313 \hskip1sp\ltj@sharp\hfil
315 \hfil\hskip1sp\ltj@sharp
320 \everypar\expandafter{\the\everypar\ltjfakeboxbdd}\ignorespaces\@sharp\unskip
323 %%%%%% tabbing (platex/#53)
324 \patchcmd\@startline{\strut}{\strut\inhibitglue}{}{}
325 \def\ltj@unhbox@curfield{\ltjfakeboxbdd\unhbox\@curfield\ltjfakeboxbdd}
326 %\patchcmd\@contfield{\unhbox\@curfield}{\ltj@unhbox@curfield}{}{}
327 \patchcmd\@addfield{\unhbox\@curfield}{\ltj@unhbox@curfield}{}{}
328 \pretocmd\@stopfield{\inhibitglue}{}{}