src/lltjfont.sty

   1 %%
   2 %% lltjfont.sty: derived from plfonts.dtx in pLaTeX.
   3 %%
   4 \makeatletter
   5 \let\k@encoding\@empty
   6 \let\ck@encoding\@empty
   7 % LuaTeX-ja uses JY3 and JT3 encodings.
   8 \def\cy@encoding{JY3}\def\ct@encoding{JT3}
   9
  10 \let\k@family\@empty
  11 \let\k@series\@empty
  12 \let\k@shape\@empty
  13 \def\curr@kfontshape{\k@encoding/\k@family/\k@series/\k@shape}
  14 \def\rel@fontshape{\f@encoding/\f@family/\f@series/\f@shape}
  15 \ifdefined\Cht\else\newdimen\Cht\fi
  16 \ifdefined\cht\else\newdimen\cht\fi
  17 \ifdefined\Cdp\else\newdimen\Cdp\fi
  18 \ifdefined\cdp\else\newdimen\cdp\fi
  19 \ifdefined\Cwd\else\newdimen\Cwd\fi
  20 \ifdefined\cwd\else\newdimen\cwd\fi
  21 \ifdefined\Cvs\else\newdimen\Cvs\fi
  22 \ifdefined\cvs\else\newdimen\cvs\fi
  23 \ifdefined\Chs\else\newdimen\Chs\fi
  24 \ifdefined\chs\else\newdimen\chs\fi
  25 \ifdefined\cHT\else\newdimen\cHT\fi
  26 %\let\afont\font
  27 \def\inlist@#1#2{%
  28   \def\in@@##1<#1>##2##3\in@@{%
  29     \ifx\in@##2\in@false\else\in@true\fi}%
  30   \in@@#2<#1>\in@\in@@}
  31 \def\fam@elt{\noexpand\fam@elt}
  32 \def\enc@elt{\noexpand\enc@elt}
  33 \let\kenc@list\@empty
  34 \let\kyenc@list\@empty
  35 \let\ktenc@list\@empty
  36 \newbox\tstrutbox
  37 \newbox\zstrutbox
  38 \def\strut{\relax
  39   \ifydir
  40     \ifmmode\copy\strutbox\else\unhcopy\strutbox\fi
  41   \else
  42     \ifmmode\copy\tstrutbox\else\unhcopy\tstrutbox\fi
  43   \fi
  44 }
  45 \def\tstrut{\relax\hbox{\tate
  46    \ifmmode\copy\tstrutbox\else\unhcopy\tstrutbox\fi}}
  47 \def\zstrut{\relax\hbox{\tate
  48    \ifmmode\copy\zstrutbox\else\unhcopy\zstrutbox\fi}}
  49 \def\DeclareFontEncoding{%
  50   \begingroup
  51   \nfss@catcodes
  52   \expandafter\endgroup
  53   \DeclareFontEncoding@}
  54 \def\DeclareFontEncoding@#1#2#3{%
  55   \expandafter
  56   \ifx\csname T@#1\endcsname\relax
  57      \def\cdp@elt{\noexpand\cdp@elt}%
  58      \xdef\cdp@list{\cdp@list\cdp@elt{#1}%
  59                     {\default@family}{\default@series}%
  60                     {\default@shape}}%
  61      \expandafter\let\csname#1-cmd\endcsname\@changed@cmd
  62      \def\enc@elt{\noexpand\enc@elt}%
  63   \else
  64      \@font@info{Redeclaring font encoding #1}%
  65   \fi
  66   \global\@namedef{T@#1}{#2}%
  67   \global\@namedef{M@#1}{\default@M#3}%
  68   \xdef\LastDeclaredEncoding{#1}%
  69   }
  70 \def\DeclareKanjiEncoding#1{%
  71   \@latex@warning{%
  72      The \string\DeclareKanjiEncoding\space is obsoleted command.  Please use
  73      \MessageBreak
  74      the \string\DeclareTateKanjiEncoding\space for `Tate-kumi' encoding, and
  75      \MessageBreak
  76      the \string\DeclareYokoKanjiEncoding\space for `Yoko-kumi' encoding.
  77      \MessageBreak
  78      I treat the `#1' encoding as `Yoko-kumi'.}
  79   \DeclareYokoKanjiEncoding{#1}%
  80 }
  81 \def\DeclareYokoKanjiEncoding{%
  82   \begingroup
  83   \nfss@catcodes
  84   \expandafter\endgroup
  85   \DeclareYokoKanjiEncoding@}
  86 \def\DeclareYokoKanjiEncoding@#1#2#3{%
  87   \expandafter
  88   \ifx\csname T@#1\endcsname\relax
  89     \def\cdp@elt{\noexpand\cdp@elt}%
  90     \xdef\cdp@list{\cdp@list\cdp@elt{#1}%
  91                     {\default@k@family}{\default@k@series}%
  92                     {\default@k@shape}}%
  93     \expandafter\let\csname#1-cmd\endcsname\@changed@kcmd
  94     \def\enc@elt{\noexpand\enc@elt}%
  95     \xdef\kyenc@list{\kyenc@list\enc@elt<#1>}%
  96     \xdef\kenc@list{\kenc@list\enc@elt<#1>}%
  97   \else
  98     \@font@info{Redeclaring KANJI (yoko) font encoding #1}%
  99   \fi
 100   \global\@namedef{T@#1}{#2}%
 101   \global\@namedef{M@#1}{\default@KM#3}%
 102   }
 103 \def\DeclareTateKanjiEncoding{%
 104   \begingroup
 105   \nfss@catcodes
 106   \expandafter\endgroup
 107   \DeclareTateKanjiEncoding@}
 108 \def\DeclareTateKanjiEncoding@#1#2#3{%
 109   \expandafter
 110   \ifx\csname T@#1\endcsname\relax
 111     \def\cdp@elt{\noexpand\cdp@elt}%
 112     \xdef\cdp@list{\cdp@list\cdp@elt{#1}%
 113                     {\default@k@family}{\default@k@series}%
 114                     {\default@k@shape}}%
 115     \expandafter\let\csname#1-cmd\endcsname\@changed@kcmd
 116     \def\enc@elt{\noexpand\enc@elt}%
 117     \xdef\ktenc@list{\ktenc@list\enc@elt<#1>}%
 118     \xdef\kenc@list{\kenc@list\enc@elt<#1>}%
 119   \else
 120     \@font@info{Redeclaring KANJI (tate) font encoding #1}%
 121   \fi
 122   \global\@namedef{T@#1}{#2}%
 123   \global\@namedef{M@#1}{\default@KM#3}%
 124   }
 125 \@onlypreamble\DeclareKanjiEncoding
 126 \@onlypreamble\DeclareYokoKanjiEncoding
 127 \@onlypreamble\DeclareYokoKanjiEncoding@
 128 \@onlypreamble\DeclareTateKanjiEncoding
 129 \@onlypreamble\DeclareTateKanjiEncoding@
 130 \def\DeclareKanjiEncodingDefaults#1#2{%
 131   \ifx\relax#1\else
 132     \ifx\default@KT\@empty\else
 133       \@font@info{Overwriting KANJI encoding scheme text defaults}%
 134     \fi
 135     \gdef\default@KT{#1}%
 136   \fi
 137   \ifx\relax#2\else
 138     \ifx\default@KM\@empty\else
 139       \@font@info{Overwriting KANJI encoding scheme math defaults}%
 140     \fi
 141     \gdef\default@KM{#2}%
 142   \fi}
 143 \let\default@KT\@empty
 144 \let\default@KM\@empty
 145 \@onlypreamble\DeclareKanjiEncodingDefaults
 146 \def\DeclareFontFamily#1#2#3{%
 147  \@ifundefined{T@#1}%
 148     {\@latex@error{Encoding scheme `#1' unknown}\@eha}%
 149     {\edef\tmp@item{{#2}}%
 150      \def\reserved@a{#3}%
 151      \global
 152      \expandafter\let\csname #1+#2\expandafter\endcsname
 153             \ifx \reserved@a\@empty
 154               \@empty
 155             \else \reserved@a
 156             \fi
 157     }%
 158 }
 159 \def\DeclareKanjiFamily#1#2#3{%
 160  \@ifundefined{T@#1}%
 161     {\@latex@error{KANJI Encoding scheme `#1' unknown}\@eha}%
 162     {\edef\tmp@item{{#2}}%
 163      \def\reserved@a{#3}%
 164      \global
 165      \expandafter\let\csname #1+#2\expandafter\endcsname
 166             \ifx \reserved@a\@empty
 167               \@empty
 168             \else \reserved@a
 169             \fi
 170      }%
 171 }
 172 \def\DeclareKanjiSubstitution#1#2#3#4{%
 173   \expandafter\ifx\csname T@#1\endcsname\relax
 174     \@latex@error{KANJI Encoding scheme `#1' unknown}\@eha
 175   \else
 176     \begingroup
 177        \def\reserved@a{#1}%
 178        \toks@{}%
 179        \def\cdp@elt##1##2##3##4{%
 180          \def\reserved@b{##1}%
 181          \ifx\reserved@a\reserved@b
 182            \addto@hook\toks@{\cdp@elt{#1}{#2}{#3}{#4}}%
 183          \else
 184            \addto@hook\toks@{\cdp@elt{##1}{##2}{##3}{##4}}%
 185          \fi}%
 186        \cdp@list
 187        \xdef\cdp@list{\the\toks@}%
 188     \endgroup
 189     \global\@namedef{D@#1}{\def\default@family{#2}%
 190                            \def\default@series{#3}%
 191                            \def\default@shape{#4}}%
 192   \fi}
 193 \def\DeclareErrorKanjiFont#1#2#3#4#5{%
 194    \xdef\error@kfontshape{%
 195       \noexpand\expandafter\noexpand\split@name\noexpand\string
 196       \expandafter\noexpand\csname#1/#2/#3/#4/#5\endcsname
 197       \noexpand\@nil}%
 198    \gdef\default@k@family{#2}%
 199    \gdef\default@k@series{#3}%
 200    \gdef\default@k@shape{#4}%
 201    \global\let\k@family\default@k@family
 202    \global\let\k@series\default@k@series
 203    \global\let\k@shape\default@k@shape
 204    \gdef\f@size{#5}%
 205    \gdef\f@baselineskip{#5pt}}
 206 \@onlypreamble\DeclareKanjiSubstitution
 207 \@onlypreamble\DeclareErrorKanjiFont
 208 \def\DeclareFixedFont#1#2#3#4#5#6{%
 209    \begingroup
 210       \math@fontsfalse
 211       \every@math@size{}%
 212       \fontsize{#6}\z@
 213       \edef\tmp@item{{#2}}%
 214       \expandafter\expandafter\expandafter
 215       \inlist@\expandafter\tmp@item\expandafter{\kyenc@list}%
 216       \ifin@
 217         \usekanji{#2}{#3}{#4}{#5}%
 218         \global\let#1\getjfont
 219       \else
 220         %\expandafter\expandafter\expandafter
 221         %\inlist@\expandafter\tmp@item\expandafter{\ktenc@list}%
 222         %\ifin@
 223         %  \usekanji{#2}{#3}{#4}{#5}%
 224         %  \let\font\tfont
 225         %\else
 226           \useroman{#2}{#3}{#4}{#5}%
 227           \global\expandafter\let\expandafter#1\the\font
 228         %\fi
 229       \fi
 230    \endgroup
 231   }
 232 \def\reDeclareMathAlphabet#1#2#3{%
 233   \edef#1{\noexpand\protect\expandafter\noexpand\csname%
 234     \expandafter\@gobble\string#1\space\space\endcsname}%
 235   \edef\@tempa{\expandafter\@gobble\string#2}%
 236   \edef\@tempb{\expandafter\@gobble\string#3}%
 237   \edef\@tempc{\string @\expandafter\@gobbletwo\string#2}%
 238   \ifx\@tempc\@tempa%
 239     \edef\@tempa{\expandafter\@gobbletwo\string#2}%
 240     \edef\@tempb{\expandafter\@gobbletwo\string#3}%
 241   \fi
 242   \expandafter\edef\csname\expandafter\@gobble\string#1\space\space\endcsname%
 243     {\noexpand\DualLang@mathalph@bet%
 244       {\expandafter\noexpand\csname\@tempa\space\endcsname}%
 245       {\expandafter\noexpand\csname\@tempb\space\endcsname}%
 246   }%
 247 }
 248 \@onlypreamble\reDeclareMathAlphabet
 249 \def\DualLang@mathalph@bet#1#2{%
 250   \relax\ifmmode
 251     \ifx\math@bgroup\bgroup%     2e normal style     (\mathrm{...})
 252       \bgroup\let\DualLang@Mfontsw\DLMfontsw@standard
 253     \else
 254       \ifx\math@bgroup\relax%    2e two letter style (\rm->\mathrm)
 255         \let\DualLang@Mfontsw\DLMfontsw@oldstyle
 256       \else
 257         \bgroup\let\DualLang@Mfontsw\DLMfontsw@standard
 258       \fi
 259     \fi
 260   \else
 261     \let\DualLang@Mfontsw\@firstoftwo
 262   \fi
 263   \DualLang@Mfontsw{#1}{#2}%
 264 }
 265 \def\DLMfontsw@standard#1#2#3{#1{#2{#3}}\egroup}
 266 \def\DLMfontsw@oldstyle#1#2{#1\relax\@fontswitch\relax{#2}}
 267 \def\DLMfontsw@oldlfont#1#2{#1\relax#2\relax}
 268 \def\all@shape{all}%
 269 \def\DeclareRelationFont#1#2#3#4#5#6#7#8{%
 270   \def\rel@shape{#4}%
 271   \ifx\rel@shape\@empty
 272      \global
 273      \expandafter\def\csname rel@#1/#2/#3/all\endcsname{%
 274        \romanencoding{#5}\romanfamily{#6}%
 275        \romanseries{#7}}%
 276   \else
 277      \global
 278      \expandafter\def\csname rel@#1/#2/#3/#4\endcsname{%
 279        \romanencoding{#5}\romanfamily{#6}%
 280        \romanseries{#7}\romanshape{#8}}%
 281   \fi
 282 }
 283 \def\SetRelationFont#1#2#3#4#5#6#7#8{%
 284   \def\rel@shape{#4}%
 285   \ifx\rel@shape\@empty
 286      \expandafter\def\csname rel@#1/#2/#3/all\endcsname{%
 287        \romanencoding{#5}\romanfamily{#6}%
 288        \romanseries{#7}}%
 289   \else
 290      \expandafter\def\csname rel@#1/#2/#3/#4\endcsname{%
 291        \romanencoding{#5}\romanfamily{#6}%
 292        \romanseries{#7}\romanshape{#8}}%
 293   \fi
 294 }
 295 \newif\if@knjcmd
 296 \def\userelfont{\@knjcmdtrue}
 297 \DeclareRobustCommand\selectfont{%
 298   \let\tmp@error@fontshape\error@fontshape
 299   \let\error@fontshape\error@kfontshape
 300   \edef\tmp@item{{\k@encoding}}%
 301   \expandafter\expandafter\expandafter
 302   \inlist@\expandafter\tmp@item\expandafter{\kyenc@list}%
 303   \ifin@
 304     \let\cy@encoding\k@encoding
 305     \edef\ct@encoding{\csname t@enc@\k@encoding\endcsname}%
 306   \else
 307     \expandafter\expandafter\expandafter
 308     \inlist@\expandafter\tmp@item\expandafter{\ktenc@list}%
 309     \ifin@
 310       \let\ct@encoding\k@encoding
 311       \edef\cy@encoding{\csname y@enc@\k@encoding\endcsname}%
 312     \else
 313       \@latex@error{KANJI Encoding scheme `\k@encoding' unknown}\@eha
 314     \fi
 315   \fi
 316   %\let\font\tfont
 317   %\let\k@encoding\ct@encoding
 318   %\xdef\font@name{\csname\curr@kfontshape/\f@size\endcsname}%
 319   %\pickup@font
 320   %\font@name
 321   \let\k@encoding\cy@encoding
 322   \xdef\font@name{\csname\curr@kfontshape/\f@size\endcsname}%
 323   \pickup@jfont
 324   \font@name
 325   \expandafter\def\expandafter\k@encoding\tmp@item
 326   \kenc@update
 327   \let\error@fontshape\tmp@error@fontshape
 328   \if@knjcmd \@knjcmdfalse
 329     \expandafter\ifx
 330     \csname rel@\k@encoding/\k@family/\k@series/\k@shape\endcsname\relax
 331       \expandafter\ifx
 332          \csname rel@\k@encoding/\k@family/\k@series/all\endcsname\relax
 333       \else
 334          \csname rel@\k@encoding/\k@family/\k@series/all\endcsname
 335       \fi
 336     \else
 337        \csname rel@\k@encoding/\k@family/\k@series/\k@shape\endcsname
 338     \fi
 339   \fi
 340   %\let\font\afont
 341   \xdef\font@name{\csname\curr@fontshape/\f@size\endcsname}%
 342   \pickup@font
 343   \font@name
 344   \enc@update
 345   \ifx\f@linespread\baselinestretch \else
 346     \set@fontsize\baselinestretch\f@size\f@baselineskip
 347   \fi
 348   \size@update}
 349 \def\KanjiEncodingPair#1#2{\@namedef{t@enc@#1}{#2}\@namedef{y@enc@#2}{#1}}
 350 \KanjiEncodingPair{JY3}{JT3}
 351 \def\set@fontsize#1#2#3{%
 352     \@defaultunits\@tempdimb#2pt\relax\@nnil
 353     \edef\f@size{\strip@pt\@tempdimb}%
 354     \@defaultunits\@tempskipa#3pt\relax\@nnil
 355     \edef\f@baselineskip{\the\@tempskipa}%
 356     \edef\f@linespread{#1}%
 357     \let\baselinestretch\f@linespread
 358     \def\size@update{%
 359       \baselineskip\f@baselineskip\relax
 360       \baselineskip\f@linespread\baselineskip
 361       \normalbaselineskip\baselineskip
 362       \adjustbaseline
 363       \setbox\strutbox\hbox{%\yoko
 364           \vrule\@width\z@
 365                 \@height.7\baselineskip \@depth.3\baselineskip}%
 366       \setbox\tstrutbox\hbox{%\tate
 367           \vrule\@width\z@
 368                 \@height.5\baselineskip \@depth.5\baselineskip}%
 369       \setbox\zstrutbox\hbox{%\tate
 370           \vrule\@width\z@
 371                 \@height.7\baselineskip \@depth.3\baselineskip}%
 372         \let\size@update\relax}}
 373 \newbox\adjust@box
 374 \newdimen\adjust@dimen
 375 \def\adjustbaseline{%
 376     \setbox\adjust@box\hbox{\ltjsetparameter{yjabaselineshift=\z@}あ}%
 377     \cht\ht\adjust@box
 378     \cdp\dp\adjust@box
 379     \cwd\wd\adjust@box
 380     \cvs\normalbaselineskip
 381     \chs\cwd
 382     \cHT\cht \advance\cHT\cdp
 383   % \iftdir
 384   %   \setbox\adjust@box\hbox{\tbaselineshift\z@ M}%
 385   %   \adjust@dimen\ht\adjust@box
 386   %   \advance\adjust@dimen\dp\adjust@box
 387   %   \advance\adjust@dimen-\cHT
 388   %   \divide\adjust@dimen\tw@
 389   %   \advance\adjust@dimen\cdp
 390   %   \advance\adjust@dimen-\dp\adjust@box
 391   %   \tbaselineshift\adjust@dimen
 392   % \fi
 393   }
 394 \DeclareRobustCommand\romanencoding[1]{%
 395     \expandafter\ifx\csname T@#1\endcsname\relax
 396       \@latex@error{Encoding scheme `#1' unknown}\@eha
 397     \else
 398       \edef\f@encoding{#1}%
 399       \ifx\cf@encoding\f@encoding
 400         \let\enc@update\relax
 401       \else
 402         \let\enc@update\@@enc@update
 403       \fi
 404     \fi
 405 }
 406 \DeclareRobustCommand\kanjiencoding[1]{%
 407     \expandafter\ifx\csname T@#1\endcsname\relax
 408       \@latex@error{KANJI Encoding scheme `#1' unknown}\@eha
 409     \else
 410       \edef\k@encoding{#1}%
 411       \ifx\ck@encoding\k@encoding
 412          \let\kenc@update\relax
 413       \else
 414          \let\kenc@update\@@kenc@update
 415       \fi
 416     \fi
 417 }
 418 \DeclareRobustCommand\fontencoding[1]{%
 419   \edef\tmp@item{{#1}}%
 420   \expandafter\expandafter\expandafter
 421   \inlist@\expandafter\tmp@item\expandafter{\kenc@list}%
 422   \ifin@ \kanjiencoding{#1}\else\romanencoding{#1}\fi}
 423 \def\@@kenc@update{%
 424   \default@KT
 425   \csname T@\k@encoding\endcsname
 426   \csname D@\k@encoding\endcsname
 427   \let\kenc@update\relax
 428   \let\ck@encoding\k@encoding
 429   \edef\tmp@item{{\k@encoding}}%
 430   \expandafter\expandafter\expandafter
 431   \inlist@\expandafter\tmp@item\expandafter{\kyenc@list}%
 432   \ifin@ \let\cy@encoding\k@encoding
 433   \else
 434     \expandafter\expandafter\expandafter
 435     \inlist@\expandafter\tmp@item\expandafter{\ktenc@list}%
 436     \ifin@ \let\ct@encoding\k@encoding
 437     \else
 438       \@latex@error{KANJI Encoding scheme `\k@encoding' unknown}\@eha
 439     \fi
 440   \fi
 441 }
 442 \let\kenc@update\relax
 443 \def\@changed@kcmd#1#2{%
 444    \ifx\protect\@typeset@protect
 445       \@inmathwarn#1%
 446       \expandafter\ifx\csname\ck@encoding\string#1\endcsname\relax
 447          \expandafter\ifx\csname ?\string#1\endcsname\relax
 448             \expandafter\def\csname ?\string#1\endcsname{%
 449                \TextSymbolUnavailable#1%
 450             }%
 451          \fi
 452          \global\expandafter\let
 453                \csname\cf@encoding \string#1\expandafter\endcsname
 454                \csname ?\string#1\endcsname
 455       \fi
 456       \csname\ck@encoding\string#1%
 457          \expandafter\endcsname
 458    \else
 459       \noexpand#1%
 460    \fi}
 461 \newif\if@notkfam
 462 \newif\if@notffam
 463 \newif\if@tempswz
 464 \DeclareRobustCommand\romanfamily[1]{\edef\f@family{#1}}
 465 \DeclareRobustCommand\kanjifamily[1]{\edef\k@family{#1}}
 466 % \notkfam@list@<enc>: list of non-defined kanji families under <enc>
 467 % \kfam@list@<enc>:    list of kanji families under <enc>, defined in a .fd file
 468 \DeclareRobustCommand\fontfamily[1]{%
 469   \@notkfamfalse\@notffamfalse\edef\tmp@item{{#1}}%
 470   \ifcsname \k@encoding+#1\endcsname % if \k@encoding+#1 is already defined
 471     \edef\k@family{#1}%
 472   \else % search font definition file...
 473      \ifcsname kfam@list@\k@encoding\endcsname\else
 474         \expandafter\let\csname kfam@list@\k@encoding\endcsname\@empty
 475        \expandafter\let\csname notkfam@list@\k@encoding\endcsname\@empty
 476      \fi
 477      \edef\@templist{\@nameuse{kfam@list@\k@encoding}}%
 478      \expandafter\expandafter\expandafter\inlist@\expandafter\tmp@item\expandafter{\@templist}%
 479      \ifin@\edef\k@family{#1}\else%
 480        \edef\@templist{\@nameuse{notkfam@list@\k@encoding}}%
 481        \expandafter\expandafter\expandafter\inlist@\expandafter\tmp@item\expandafter{\@templist}%
 482        \ifin@\@notkfamtrue\else%
 483          \def\@temp##1+{\lowercase{\def\@@temp{##1}}}\expandafter\@temp\k@encoding+%
 484          \message{(I search kanjifont definition file: \@@temp#1.fd)}%
 485          \IfFileExists{\@@temp#1.fd}{\@tempswztrue}{\@tempswzfalse}%
 486          \if@tempswz
 487            \expandafter\xdef\csname kfam@list@\k@encoding\endcsname
 488              {\@nameuse{kfam@list@\k@encoding}\fam@elt<#1>}\edef\k@family{#1}%
 489          \else
 490            \expandafter\xdef\csname notkfam@list@\k@encoding\endcsname
 491              {\@nameuse{notkfam@list@\k@encoding}\fam@elt<#1>}\@notkfamtrue%
 492          \fi
 493        \fi
 494      \fi
 495   \fi
 496   \ifcsname \f@encoding+#1\endcsname
 497     \edef\f@family{#1}%
 498   \else % search font definition file...
 499      \ifcsname ffam@list@\f@encoding\endcsname\else
 500        \expandafter\let\csname ffam@list@\f@encoding\endcsname\@empty
 501        \expandafter\let\csname notffam@list@\f@encoding\endcsname\@empty
 502      \fi
 503      \edef\@templist{\@nameuse{ffam@list@\f@encoding}}%
 504      \expandafter\expandafter\expandafter\inlist@\expandafter\tmp@item\expandafter{\@templist}%
 505      \ifin@\edef\f@family{#1}\else
 506        \edef\@templist{\@nameuse{notffam@list@\f@encoding}}%
 507        \expandafter\expandafter\expandafter\inlist@\expandafter\tmp@item\expandafter{\@templist}%
 508        \ifin@\@notffamtrue\else
 509          \def\@temp##1+{\lowercase{\def\@@temp{##1}}}\expandafter\@temp\f@encoding+%
 510          \message{(I search font definition file: \@@temp#1.fd)}%
 511          \IfFileExists{\@@temp#1.fd}{\@tempswztrue}{\@tempswzfalse}%
 512          \if@tempswz
 513            \expandafter\xdef\csname ffam@list@\f@encoding\endcsname
 514              {\@nameuse{ffam@list@\f@encoding}\fam@elt<#1>}\edef\f@family{#1}%
 515          \else
 516            \expandafter\xdef\csname notffam@list@\f@encoding\endcsname
 517              {\@nameuse{notffam@list@\f@encoding}\fam@elt<#1>}\@notffamtrue%
 518          \fi
 519        \fi
 520      \fi
 521   \fi
 522   \if@notkfam\if@notffam
 523       \edef\k@family{#1}\edef\f@family{#1}%
 524   \fi\fi
 525 }
 526 \DeclareRobustCommand\romanseries[1]{\edef\f@series{#1}}
 527 \DeclareRobustCommand\kanjiseries[1]{\edef\k@series{#1}}
 528 \DeclareRobustCommand\fontseries[1]{\kanjiseries{#1}\romanseries{#1}}
 529 \DeclareRobustCommand\romanshape[1]{\edef\f@shape{#1}}
 530 \DeclareRobustCommand\kanjishape[1]{\edef\k@shape{#1}}
 531 \DeclareRobustCommand\fontshape[1]{\kanjishape{#1}\romanshape{#1}}
 532 \def\usekanji#1#2#3#4{%
 533     \kanjiencoding{#1}\kanjifamily{#2}\kanjiseries{#3}\kanjishape{#4}%
 534     \selectfont\ignorespaces}
 535 \def\useroman#1#2#3#4{%
 536     \romanencoding{#1}\romanfamily{#2}\romanseries{#3}\romanshape{#4}%
 537     \selectfont\ignorespaces}
 538 \def\usefont#1#2#3#4{%
 539   \edef\tmp@item{{#1}}%
 540   \expandafter\expandafter\expandafter
 541   \inlist@\expandafter\tmp@item\expandafter{\kenc@list}%
 542   \ifin@ \usekanji{#1}{#2}{#3}{#4}%
 543   \else\useroman{#1}{#2}{#3}{#4}%
 544   \fi}
 545 \DeclareRobustCommand\normalfont{%
 546     \kanjiencoding{\kanjiencodingdefault}%
 547     \kanjifamily{\kanjifamilydefault}%
 548     \kanjiseries{\kanjiseriesdefault}%
 549     \kanjishape{\kanjishapedefault}%
 550     \romanencoding{\encodingdefault}%
 551     \romanfamily{\familydefault}%
 552     \romanseries{\seriesdefault}%
 553     \romanshape{\shapedefault}%
 554     \selectfont\ignorespaces}
 555 \adjustbaseline
 556 \let\reset@font\normalfont
 557 \DeclareRobustCommand\mcfamily
 558         {\not@math@alphabet\mcfamily\mathmc
 559          \kanjifamily\mcdefault\selectfont}
 560 \DeclareRobustCommand\gtfamily
 561         {\not@math@alphabet\gtfamily\mathgt
 562          \kanjifamily\gtdefault\selectfont}
 563 \let\romanprocess@table\process@table
 564 \def\kanjiprocess@table{%
 565   \kanjiencoding{\kanjiencodingdefault}%
 566   \kanjifamily{\kanjifamilydefault}%
 567   \kanjiseries{\kanjiseriesdefault}%
 568   \kanjishape{\kanjishapedefault}%
 569 }
 570 \def\process@table{%
 571   \romanprocess@table
 572   \kanjiprocess@table
 573 }
 574 \@onlypreamble\romanprocess@table
 575 \@onlypreamble\kanjiprocess@table
 576 \DeclareTextCommandDefault{\textunderscore}{%
 577   \leavevmode\kern.06em
 578   %\iftdir\raise-\tbaselineshift\fi
 579   \vbox{\hrule\@width.3em}}
 580
 581 %%%%%% LuaTeX-ja specific
 582
 583 % #1 の展開結果から encoding 部分をとりだし，それが和文用かどうかの結果を \ifin@ に代入
 584 \def\ltj@@IsFontJapanese#1{%
 585   \expandafter\ltj@@IsFontJapaneseX#1//:%
 586   \expandafter\expandafter\expandafter
 587   \inlist@\expandafter\tmp@item\expandafter{\kenc@list}}
 588 \def\ltj@@IsFontJapaneseX#1/#2/:{\edef\tmp@item{{\directlua{tex.print('#1')}}}}
 589
 590
 591 \let\extract@afont\extract@font
 592 \def\pickup@jfont{%
 593     \expandafter \ifx \font@name \relax
 594        \let\extract@font\extract@jfont
 595        \define@newfont
 596        \let\extract@font\extract@afont
 597     \fi
 598     \let\getjfont\font@name}
 599
 600 \def\extract@jfont{%
 601     \get@external@font
 602     \expandafter\globaljfont\font@name\external@font\relax
 603     \font@name%\global\zw=\zw\global\zh=\zh
 604     \csname \f@encoding+\f@family\endcsname
 605     \csname\curr@fontshape\endcsname}
 606
 607 \let\ltj@@al@do@subst@correction=\do@subst@correction
 608 \def\ltj@@ja@do@subst@correction{%
 609     \xdef\subst@correction{%
 610       \font@name
 611       \global\expandafter\let\csname \curr@fontshape/\f@size\endcsname\font@name%
 612       \relax}%
 613     \aftergroup\subst@correction
 614 }
 615 \def\do@subst@correction{%
 616    \ltj@@IsFontJapanese{\curr@fontshape}\ifin@
 617      \ltj@@ja@do@subst@correction
 618    \else
 619      \ltj@@al@do@subst@correction
 620    \fi
 621 }
 622 \let\@@italiccorr=\/
 623
 624 %%%%%% Japanese font for math mode
 625
 626 % \M@<enc> から その <enc> が和文用か調べる
 627 {\catcode`M=12%
 628 \gdef\ltj@@mathJapaneseFonts#1M#2#3\relax{\ltj@@IsFontJapanese{#3}}}
 629
 630 \let\ltj@@al@getanddefine@fonts=\getanddefine@fonts
 631 \def\ltj@@ja@getanddefine@fonts#1#2{%
 632   \xdef\font@name{\csname \string#2/\tf@size\endcsname}%
 633   \pickup@jfont\let\textfont@name\font@name
 634   \xdef\font@name{\csname \string#2/\sf@size\endcsname}%
 635   \pickup@jfont\let\scriptfont@name\font@name
 636   \xdef\font@name{\csname \string#2/\ssf@size\endcsname}%
 637   \pickup@jfont
 638   \edef\math@fonts{\math@fonts\ltjsetparameter{%
 639     jatextfont={#1,\textfont@name},%
 640     jascriptfont={#1,\scriptfont@name},%
 641     jascriptscriptfont={#1,\font@name}}}%
 642 }
 643
 644 \def\getanddefine@fonts#1#2{%
 645   \ltj@tempcnta=#1\ltj@@IsFontJapanese{\string#2}%
 646   \ifin@\let\ltj@temp=\ltj@@ja@getanddefine@fonts%
 647   \else \let\ltj@temp=\ltj@@al@getanddefine@fonts\fi
 648   \ltj@temp{#1}{#2}%
 649 }
 650 \def\use@mathgroup#1#2{\relax\ifmmode
 651   \math@bgroup
 652     \expandafter\ifx\csname M@\f@encoding\endcsname#1\else
 653     #1\fi\ltj@tempcnta=#2 \expandafter\ltj@@mathJapaneseFonts\string#1\relax%
 654     \ifin@\jfam#2\relax\else\mathgroup#2\relax\fi
 655   \expandafter\math@egroup\fi}%
 656
 657 \endinput