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}[2013/05/14 Patch to LaTeX2e Kernel for LuaTeX-ja]
10 \newif\iftombow \tombowfalse
11 \newif\iftombowdate \tombowdatetrue
12 \newdimen\@tombowwidth
13 \setlength{\@tombowwidth}{.1\p@}
14 \newbox\@TL\newbox\@Tl
16 \newbox\@TR\newbox\@Tr
17 \newbox\@BL\newbox\@Bl
19 \newbox\@BR\newbox\@Br
22 \font\@bannerfont=cmtt9
26 \setbox\@TL\hbox to\z@{\yoko\hss
27 \vrule width13mm height\@tombowwidth depth\z@
28 \vrule height10mm width\@tombowwidth depth\z@
30 \raise4pt\hbox to\z@{\hskip5mm\@bannerfont\the\@bannertoken\hss}%
32 \setbox\@Tl\hbox to\z@{\yoko\hss
33 \vrule width10mm height\@tombowwidth depth\z@
34 \vrule height13mm width\@tombowwidth depth\z@}%
35 \setbox\@TC\hbox{\yoko
36 \vrule width10mm height\@tombowwidth depth\z@
37 \vrule height10mm width\@tombowwidth depth\z@
38 \vrule width10mm height\@tombowwidth depth\z@}%
39 \setbox\@TR\hbox to\z@{\yoko
40 \vrule height10mm width\@tombowwidth depth\z@
41 \vrule width13mm height\@tombowwidth depth\z@\hss}%
42 \setbox\@Tr\hbox to\z@{\yoko
43 \vrule height13mm width\@tombowwidth depth\z@
44 \vrule width10mm height\@tombowwidth depth\z@\hss}%
45 \setbox\@BL\hbox to\z@{\yoko\hss
46 \vrule width13mm depth\@tombowwidth height\z@
47 \vrule depth10mm width\@tombowwidth height\z@}%
48 \setbox\@Bl\hbox to\z@{\yoko\hss
49 \vrule width10mm depth\@tombowwidth height\z@
50 \vrule depth13mm width\@tombowwidth height\z@}%
51 \setbox\@BC\hbox{\yoko
52 \vrule width10mm depth\@tombowwidth height\z@
53 \vrule depth10mm width\@tombowwidth height\z@
54 \vrule width10mm depth\@tombowwidth height\z@}%
55 \setbox\@BR\hbox to\z@{\yoko
56 \vrule depth10mm width\@tombowwidth height\z@
57 \vrule width13mm depth\@tombowwidth height\z@\hss}%
58 \setbox\@Br\hbox to\z@{\yoko
59 \vrule depth13mm width\@tombowwidth height\z@
60 \vrule width10mm depth\@tombowwidth height\z@\hss}%
61 \setbox\@CL\hbox to\z@{\yoko\hss
62 \vrule width10mm height.5\@tombowwidth depth.5\@tombowwidth
63 \vrule height10mm depth10mm width\@tombowwidth}%
64 \setbox\@CR\hbox to\z@{\yoko
65 \vrule height10mm depth10mm width\@tombowwidth
66 \vrule height.5\@tombowwidth depth.5\@tombowwidth width10mm\hss}%
70 \vbox to\z@{\kern-13mm\relax
71 \moveleft3mm\vbox to\@@paperheight{%
72 \hbox to\@@paperwidth{\hskip3mm\relax
73 \copy\@TL\hfill\copy\@TC\hfill\copy\@TR\hskip3mm}%
75 \hbox to\@@paperwidth{\copy\@Tl\hfill\copy\@Tr}%
77 \hbox to\@@paperwidth{\copy\@CL\hfill\copy\@CR}%
79 \hbox to\@@paperwidth{\copy\@Bl\hfill\copy\@Br}%
81 \hbox to\@@paperwidth{\hskip3mm\relax
82 \copy\@BL\hfill\copy\@BC\hfill\copy\@BR\hskip3mm}%
87 \newdimen\@@paperheight
88 \newdimen\@@paperwidth
91 \begingroup % the \endgroup is put in by \aftergroup
93 \dimen\z@\textwidth \textwidth\textheight \textheight\dimen\z@
95 \let \protect \noexpand
97 \global\let\@@if@newlist\if@newlist
103 \aftergroup\set@typeset@protect
105 \global\@specialpagefalse\@nameuse{ps@\@specialstyle}%
108 \ifodd\count\z@ \let\@thehead\@oddhead \let\@thefoot\@oddfoot
109 \iftdir\let\@themargin\evensidemargin
110 \else\let\@themargin\oddsidemargin\fi
111 \else \let\@thehead\@evenhead
112 \let\@thefoot\@evenfoot
113 \iftdir\let\@themargin\oddsidemargin
114 \else\let\@themargin\evensidemargin\fi
116 \@@topmargin\topmargin
118 \@@paperwidth\paperwidth \advance\@@paperwidth 6mm\relax
119 \@@paperheight\paperheight \advance\@@paperheight 16mm\relax
120 \advance\@@topmargin 1in\relax \advance\@themargin 1in\relax
127 \let\glossary\@gobble
128 \baselineskip\z@skip \lineskip\z@skip \lineskiplimit\z@
132 \moveright\@themargin\vbox{%
133 \setbox\@tempboxa \vbox to\headheight{%
137 \hb@xt@\textwidth{\@thehead}%
144 \baselineskip \footskip
147 \hb@xt@\textwidth{\@thefoot}%
151 \global\let\if@newlist\@@if@newlist
152 \global \@colht \textheight
154 \let\firstmark\botmark
159 \protect\G@refundefinedtrue
160 \nfss@text{\reset@font\bfseries ??}%
161 \@latex@warning{Reference `#3' on page \thepage \space
164 \expandafter#2#1\relax% change \null to \relax
166 \if@compatibility\else
167 \def\verb{\relax\ifmmode\hbox\else\leavevmode\fi
169 \verb@eol@error \let\do\@makeother \dospecials
170 \verbatim@font\@noligs
171 \@ifstar\@sverb\@verb}
172 \def\@makefnmark{\hbox{}\hbox{\@textsuperscript{\normalfont\@thefnmark}}\hbox{}}
174 \gdef\@stopfield{\null\color@endgroup\egroup}