2 % lltjcore.sty: derived from plcore.dtx in pLaTeX.
3 % This file does not include the code relating to "tategaki".
6 \NeedsTeXFormat{LaTeX2e}
7 \ProvidesPackage{lltjcore}[2016/05/05 Patch to LaTeX2e Kernel for LuaTeX-ja]
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
109 \global\let\@@if@newlist\if@newlist
110 \global\@newlistfalse
115 \aftergroup\set@typeset@protect
117 \global\@specialpagefalse\@nameuse{ps@\@specialstyle}%
120 \ifodd\count\z@ \let\@thehead\@oddhead \let\@thefoot\@oddfoot
121 \ifnum\ltjgetparameter{direction}=3 \let\@themargin\evensidemargin
122 \else\let\@themargin\oddsidemargin\fi
123 \else \let\@thehead\@evenhead
124 \let\@thefoot\@evenfoot
125 \ifnum\ltjgetparameter{direction}=3 \let\@themargin\oddsidemargin
126 \else\let\@themargin\evensidemargin\fi
128 \@@topmargin\topmargin
130 \@@paperwidth\paperwidth \advance\@@paperwidth 6mm\relax
131 \@@paperheight\paperheight \advance\@@paperheight 16mm\relax
132 \advance\@@topmargin 1in\relax \advance\@themargin 1in\relax
139 \let\glossary\@gobble
140 \baselineskip\z@skip \lineskip\z@skip \lineskiplimit\z@
144 \moveright\@themargin\vbox{%
145 \setbox\@tempboxa \vbox to\headheight{%
149 \hb@xt@\textwidth{\@thehead}%
156 \baselineskip \footskip
159 \hb@xt@\textwidth{\@thefoot}%
163 \global\let\if@newlist\@@if@newlist
164 \global \@colht \textheight
166 \let\firstmark\botmark
169 %%% Remove extra xkanjiskip
170 \renewcommand\@makefnmark{%
171 \unless\ifnum\ltjgetparameter{direction}=3
172 \hbox{}\hbox{\@textsuperscript{\normalfont\@thefnmark}}\hbox{}%
173 \else\hbox{\yoko \@textsuperscript{\normalfont\@thefnmark}}\fi}
175 \@ifpackageloaded{hyperref}
176 {\def\ltj@setrefprefix{real}}
177 {\def\ltj@setrefprefix{}}
178 \expandafter\gdef\csname \ltj@setrefprefix @setref\endcsname#1#2#3{%
180 \protect\G@refundefinedtrue
181 \nfss@text{\reset@font\bfseries ??}%
182 \@latex@warning{Reference `#3' on page \thepage \space
185 \expandafter#2#1\relax% change \null to \relax
188 \if@compatibility\else
189 \def\verb{\relax\ifmmode\hbox\else\leavevmode\fi
191 \verb@eol@error \let\do\@makeother \dospecials
192 \verbatim@font\@noligs
193 \@ifstar\@sverb\@verb}
195 \gdef\@stopfield{\null\color@endgroup\egroup}
198 %%% etoolbox is loaded by everyhook
199 \ifltj@everyhook@avail
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
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}
238 \unskip \reserved@e {\reserved@f#1}\nobreak \hfil \break \hskip\z@
244 \def \AtBeginDvi #1{%
245 \global \setbox \@begindvibox
246 \vbox{\yoko\unvbox \@begindvibox #1}%
252 \setbox\@outputbox \box\@cclv
254 \setbox\@outputbox \vbox {%
255 \boxmaxdepth \@maxdepth
266 \xdef\@freelist{\@freelist\@midlist}%
267 \global \let \@midlist \@empty
272 \setbox\@outputbox \vbox to\@colht {%
274 \dimen@ \dp\@outputbox
276 \ifnum\ltjgetparameter{direction}=4\else\vbox{\hskip\z@}\fi %%% LuaTeX-ja
281 \global \maxdepth \@maxdepth