src/patches/lltjfont.sty

   1 %
   2 % lltjfont.sty: derived from plfonts.dtx in pLaTeX.
   3 %
   4
   5 \NeedsTeXFormat{LaTeX2e}
   6 \ProvidesPackage{lltjfont}[2016/04/01 Patch to NFSS2 for LuaTeX-ja]
   7
   8 \def\ltj@chardef@text@cmd#1{%
   9   \edef\ltj@chardef@text@cmd@name{\expandafter\@gobble\string#1}%
  10   \afterassignment\ltj@chardef@text@cmd@\ltj@tempcnta
  11 }
  12 \def\ltj@chardef@text@cmd@{%
  13   \ifnum\ltj@tempcnta>"7F
  14     \expandafter\edef\csname \ltj@chardef@text@cmd@name\endcsname{%
  15       \noexpand\ltjalchar\the\ltj@tempcnta\space
  16     }%
  17   \else
  18     \expandafter\chardef\csname \ltj@chardef@text@cmd@name\endcsname\ltj@tempcnta
  19   \fi
  20 }
  21 \def\DeclareTextSymbol#1#2#3{%
  22   \@dec@text@cmd\ltj@chardef@text@cmd#1{#2}#3\relax
  23 }
  24
  25 \ifdefined\UnicodeEncodingName
  26   \input{tuenc.def}
  27 \fi
  28
  29
  30 \let\k@encoding\@empty
  31 \let\ck@encoding\@empty
  32 % LuaTeX-ja uses JY3 and JT3 encodings.
  33 \def\cy@encoding{JY3}\def\ct@encoding{JT3}
  34
  35 \let\k@family\@empty
  36 \let\k@series\@empty
  37 \let\k@shape\@empty
  38 \def\curr@kfontshape{\k@encoding/\k@family/\k@series/\k@shape}
  39 \def\rel@fontshape{\f@encoding/\f@family/\f@series/\f@shape}
  40 \ifdefined\Cht\else\newdimen\Cht\fi
  41 \ifdefined\cht\else\newdimen\cht\fi
  42 \ifdefined\Cdp\else\newdimen\Cdp\fi
  43 \ifdefined\cdp\else\newdimen\cdp\fi
  44 \ifdefined\Cwd\else\newdimen\Cwd\fi
  45 \ifdefined\cwd\else\newdimen\cwd\fi
  46 \ifdefined\Cvs\else\newdimen\Cvs\fi
  47 \ifdefined\cvs\else\newdimen\cvs\fi
  48 \ifdefined\Chs\else\newdimen\Chs\fi
  49 \ifdefined\chs\else\newdimen\chs\fi
  50 \ifdefined\cHT\else\newdimen\cHT\fi
  51 %\let\afont\font
  52
  53 \newbox\dstrutbox
  54 \newbox\tstrutbox
  55 \newbox\zstrutbox
  56 \def\strut{\relax
  57   \ifnum\ltjgetparameter{direction}=1 % dtou
  58     \ifmmode\copy\dstrutbox\else\unhcopy\dstrutbox\fi
  59   \else\ifnum\ltjgetparameter{direction}=4 % yoko
  60     \ifmmode\copy\strutbox\else\unhcopy\strutbox\fi
  61   \else % tate and utod
  62     \ifmmode\copy\tstrutbox\else\unhcopy\tstrutbox\fi
  63   \fi\fi
  64 }
  65 \def\tstrut{\relax\hbox{\tate
  66    \ifmmode\copy\tstrutbox\else\unhcopy\tstrutbox\fi}}
  67 \def\zstrut{\relax\hbox{\tate
  68    \ifmmode\copy\zstrutbox\else\unhcopy\zstrutbox\fi}}
  69
  70 {%
  71   \def\cdp@elt#1#2#3#4{%
  72     \directlua{luatexja.jfont.add_fenc_list('\luatexluaescapestring{#1}')}}%
  73   \cdp@list%
  74 }
  75
  76 \def\DeclareFontEncoding{%
  77   \begingroup
  78   \nfss@catcodes
  79   \expandafter\endgroup
  80   \DeclareFontEncoding@}
  81 \def\DeclareFontEncoding@#1#2#3{%
  82   \expandafter
  83   \ifx\csname T@#1\endcsname\relax
  84      \def\cdp@elt{\noexpand\cdp@elt}%
  85      \xdef\cdp@list{\cdp@list\cdp@elt{#1}%
  86                     {\default@family}{\default@series}%
  87                     {\default@shape}}%
  88      \expandafter\let\csname#1-cmd\endcsname\@changed@cmd
  89      \directlua{luatexja.jfont.add_fenc_list('\luatexluaescapestring{#1}')}%
  90   \else
  91      \@font@info{Redeclaring font encoding #1}%
  92   \fi
  93   \global\@namedef{T@#1}{#2}%
  94   \global\@namedef{M@#1}{\default@M#3}%
  95   \xdef\LastDeclaredEncoding{#1}%
  96   }
  97 \def\DeclareKanjiEncoding#1{%
  98   \@latex@warning{%
  99      The \string\DeclareKanjiEncoding\space is obsoleted command.  Please use
 100      \MessageBreak
 101      the \string\DeclareTateKanjiEncoding\space for `Tate-kumi' encoding, and
 102      \MessageBreak
 103      the \string\DeclareYokoKanjiEncoding\space for `Yoko-kumi' encoding.
 104      \MessageBreak
 105      I treat the `#1' encoding as `Yoko-kumi'.}
 106   \DeclareYokoKanjiEncoding{#1}%
 107 }
 108 \def\DeclareYokoKanjiEncoding{%
 109   \begingroup
 110   \nfss@catcodes
 111   \expandafter\endgroup
 112   \DeclareYokoKanjiEncoding@}
 113 \def\DeclareYokoKanjiEncoding@#1#2#3{%
 114   \expandafter\ifx\csname T@#1\endcsname\relax
 115     \def\cdp@elt{\noexpand\cdp@elt}%
 116     \xdef\cdp@list{\cdp@list\cdp@elt{#1}%
 117                     {\default@k@family}{\default@k@series}%
 118                     {\default@k@shape}}%
 119     \expandafter\let\csname#1-cmd\endcsname\@changed@kcmd
 120     \directlua{luatexja.jfont.add_kyenc_list('\luatexluaescapestring{#1}')}%
 121   \else
 122     \@font@info{Redeclaring KANJI (yoko) font encoding #1}%
 123   \fi
 124   \global\@namedef{T@#1}{#2}%
 125   \global\@namedef{M@#1}{\default@KM#3}%
 126   }
 127 \def\DeclareTateKanjiEncoding{%
 128   \begingroup
 129   \nfss@catcodes
 130   \expandafter\endgroup
 131   \DeclareTateKanjiEncoding@}
 132 \def\DeclareTateKanjiEncoding@#1#2#3{%
 133   \expandafter\ifx\csname T@#1\endcsname\relax
 134     \def\cdp@elt{\noexpand\cdp@elt}%
 135     \xdef\cdp@list{\cdp@list\cdp@elt{#1}%
 136                     {\default@k@family}{\default@k@series}%
 137                     {\default@k@shape}}%
 138     \expandafter\let\csname#1-cmd\endcsname\@changed@kcmd
 139     \directlua{luatexja.jfont.add_ktenc_list('\luatexluaescapestring{#1}')}%
 140   \else
 141     \@font@info{Redeclaring KANJI (tate) font encoding #1}%
 142   \fi
 143   \global\@namedef{T@#1}{#2}%
 144   \global\@namedef{M@#1}{\default@KM#3}%
 145   }
 146 \@onlypreamble\DeclareKanjiEncoding
 147 \@onlypreamble\DeclareYokoKanjiEncoding
 148 \@onlypreamble\DeclareYokoKanjiEncoding@
 149 \@onlypreamble\DeclareTateKanjiEncoding
 150 \@onlypreamble\DeclareTateKanjiEncoding@
 151 \def\DeclareKanjiEncodingDefaults#1#2{%
 152   \ifx\relax#1\else
 153     \ifx\default@KT\@empty\else
 154       \@font@info{Overwriting KANJI encoding scheme text defaults}%
 155     \fi
 156     \gdef\default@KT{#1}%
 157   \fi
 158   \ifx\relax#2\else
 159     \ifx\default@KM\@empty\else
 160       \@font@info{Overwriting KANJI encoding scheme math defaults}%
 161     \fi
 162     \gdef\default@KM{#2}%
 163   \fi}
 164 \let\default@KT\@empty
 165 \let\default@KM\@empty
 166 \@onlypreamble\DeclareKanjiEncodingDefaults
 167 \def\DeclareFontFamily#1#2#3{%
 168  \@ifundefined{T@#1}%
 169     {\@latex@error{Encoding scheme `#1' unknown}\@eha}%
 170     {\def\reserved@a{#3}%
 171      \global
 172      \expandafter\let\csname #1+#2\expandafter\endcsname
 173             \ifx \reserved@a\@empty
 174               \@empty
 175             \else \reserved@a
 176             \fi
 177      \directlua{luatexja.jfont.add_ffam('\luatexluaescapestring{#2}')}%
 178     }%
 179 }
 180 \def\DeclareKanjiFamily#1#2#3{%
 181  \@ifundefined{T@#1}%
 182     {\@latex@error{KANJI Encoding scheme `#1' unknown}\@eha}%
 183     {\def\reserved@a{#3}%
 184      \global
 185      \expandafter\let\csname #1+#2\expandafter\endcsname
 186             \ifx \reserved@a\@empty
 187               \@empty
 188             \else \reserved@a
 189             \fi
 190      \directlua{luatexja.jfont.add_kfam('\luatexluaescapestring{#2}')}%
 191      }%
 192 }
 193 \def\DeclareKanjiSubstitution#1#2#3#4{%
 194   \expandafter\ifx\csname T@#1\endcsname\relax
 195     \@latex@error{KANJI Encoding scheme `#1' unknown}\@eha
 196   \else
 197     \begingroup
 198        \def\reserved@a{#1}%
 199        \toks@{}%
 200        \def\cdp@elt##1##2##3##4{%
 201          \def\reserved@b{##1}%
 202          \ifx\reserved@a\reserved@b
 203            \addto@hook\toks@{\cdp@elt{#1}{#2}{#3}{#4}}%
 204          \else
 205            \addto@hook\toks@{\cdp@elt{##1}{##2}{##3}{##4}}%
 206          \fi}%
 207        \cdp@list
 208        \xdef\cdp@list{\the\toks@}%
 209     \endgroup
 210     \global\@namedef{D@#1}{\def\default@family{#2}%
 211                            \def\default@series{#3}%
 212                            \def\default@shape{#4}}%
 213   \fi}
 214 \def\DeclareErrorKanjiFont#1#2#3#4#5{%
 215    \xdef\error@kfontshape{%
 216       \noexpand\expandafter\noexpand\split@name\noexpand\string
 217       \expandafter\noexpand\csname#1/#2/#3/#4/#5\endcsname
 218       \noexpand\@nil}%
 219    \gdef\default@k@family{#2}%
 220    \gdef\default@k@series{#3}%
 221    \gdef\default@k@shape{#4}%
 222    \global\let\k@family\default@k@family
 223    \global\let\k@series\default@k@series
 224    \global\let\k@shape\default@k@shape
 225    \gdef\f@size{#5}%
 226    \gdef\f@baselineskip{#5pt}}
 227 \@onlypreamble\DeclareKanjiSubstitution
 228 \@onlypreamble\DeclareErrorKanjiFont
 229 \def\DeclareFixedFont#1#2#3#4#5#6{%
 230    \begingroup
 231       \math@fontsfalse
 232       \every@math@size{}%
 233       \fontsize{#6}\z@
 234       \directlua{luatexja.jfont.is_kyenc('\luatexluaescapestring{#2}')}\ifin@%
 235         \usekanji{#2}{#3}{#4}{#5}%
 236         \global\let#1\getjfont
 237       \else
 238         \directlua{luatexja.jfont.is_ktenc('\luatexluaescapestring{#2}')}\ifin@%
 239           \usekanji{#2}{#3}{#4}{#5}%
 240           \global\let#1\gettfont
 241         \else
 242           \useroman{#2}{#3}{#4}{#5}%
 243           \global\expandafter\let\expandafter#1\the\font
 244         \fi
 245       \fi
 246    \endgroup
 247   }
 248 \def\DLMfontsw@standard#1#2#3{#1{#2{#3}}}
 249 \def\reDeclareMathAlphabet#1#2#3{%
 250   \ifdefined#2
 251     \@temptokena\expandafter{#2}%
 252   \else
 253     \@temptokena{#2}%
 254   \fi
 255   \ifdefined#3
 256     \toks0\expandafter{#3}%
 257   \else
 258     \toks0{#3}%
 259   \fi
 260   \long\protected\edef#1{%
 261     \noexpand\DLMfontsw@standard{\the\@temptokena}{\the\toks0}}%
 262 }
 263 \@onlypreamble\reDeclareMathAlphabet
 264 \def\all@shape{all}%
 265 \def\DeclareRelationFont#1#2#3#4#5#6#7#8{%
 266   \def\rel@shape{#4}%
 267   \ifx\rel@shape\@empty
 268      \global
 269      \expandafter\def\csname rel@#1/#2/#3/all\endcsname{%
 270        \romanencoding{#5}\romanfamily{#6}%
 271        \romanseries{#7}}%
 272   \else
 273      \global
 274      \expandafter\def\csname rel@#1/#2/#3/#4\endcsname{%
 275        \romanencoding{#5}\romanfamily{#6}%
 276        \romanseries{#7}\romanshape{#8}}%
 277   \fi
 278 }
 279 \def\SetRelationFont#1#2#3#4#5#6#7#8{%
 280   \def\rel@shape{#4}%
 281   \ifx\rel@shape\@empty
 282      \expandafter\def\csname rel@#1/#2/#3/all\endcsname{%
 283        \romanencoding{#5}\romanfamily{#6}%
 284        \romanseries{#7}}%
 285   \else
 286      \expandafter\def\csname rel@#1/#2/#3/#4\endcsname{%
 287        \romanencoding{#5}\romanfamily{#6}%
 288        \romanseries{#7}\romanshape{#8}}%
 289   \fi
 290 }
 291 \newif\if@knjcmd
 292 \def\userelfont{\@knjcmdtrue}
 293
 294
 295 \RequirePackage{everysel}
 296 \let\ltj@@EverySelectfont@Init=\@EverySelectfont@Init
 297 \expandafter\expandafter\expandafter\let
 298 \expandafter\expandafter\csname ltj@@orig@selectfont\endcsname\csname selectfont\space\endcsname
 299 \@EverySelectfont@Init
 300 \def\@EverySelectfont@Init{%
 301   \expandafter\let\csname selectfont\space \endcsname \ltj@@orig@selectfont
 302   \ltj@@EverySelectfont@Init
 303 }
 304 \def\ltj@selectfont@patch{%
 305  \directlua{luatexja.base.start_time_measure('selectfont')}%
 306  \let\tmp@error@fontshape\error@fontshape
 307   \let\error@fontshape\error@kfontshape
 308   \directlua{luatexja.jfont.is_kyenc('\luatexluaescapestring{\k@encoding}')}\ifin@%
 309     \let\cy@encoding\k@encoding
 310     \edef\ct@encoding{\csname t@enc@\k@encoding\endcsname}%
 311   \else
 312     \directlua{luatexja.jfont.is_ktenc('\luatexluaescapestring{\k@encoding}')}\ifin@%
 313      \let\ct@encoding\k@encoding
 314      \edef\cy@encoding{\csname y@enc@\k@encoding\endcsname}%
 315     \else
 316       \@latex@error{KANJI Encoding scheme `\k@encoding' unknown}\@eha
 317     \fi
 318   \fi
 319 %
 320   \let\k@encoding\ct@encoding
 321   \xdef\font@name{\csname\curr@kfontshape/\f@size\endcsname}%
 322   \pickup@tfont
 323   \font@name
 324   \ltj@@does@alt@set{\curr@kfontshape}%
 325     % alt fonts の定義
 326     \directlua{luatexja.jfont.output_alt_font_cmd('t', '\luatexluaescapestring{\curr@kfontshape}')}%
 327     % 定義した alt fonts のデータを \ltjdeclarealtfont に渡すのと同等の処理をする
 328     \directlua{luatexja.jfont.pickup_alt_font_a('\f@size')}%
 329   \fi
 330 %
 331   \let\k@encoding\cy@encoding
 332   \xdef\font@name{\csname\curr@kfontshape/\f@size\endcsname}%
 333   \pickup@jfont
 334   \font@name
 335   \ltj@@does@alt@set{\curr@kfontshape}%
 336     % alt fonts の定義
 337     \directlua{luatexja.jfont.output_alt_font_cmd('y', '\luatexluaescapestring{\curr@kfontshape}')}%
 338     % 定義した alt fonts のデータを \ltjdeclarealtfont に渡すのと同等の処理をする
 339     \directlua{luatexja.jfont.pickup_alt_font_a('\f@size')}%
 340   \fi
 341 %
 342   \edef\tmp@item{{\k@encoding}}\expandafter\def\expandafter\k@encoding\tmp@item
 343   \kenc@update
 344   \let\error@fontshape\tmp@error@fontshape
 345 %
 346   \if@knjcmd \@knjcmdfalse
 347     \expandafter\ifx
 348     \csname rel@\k@encoding/\k@family/\k@series/\k@shape\endcsname\relax
 349       \expandafter\ifx
 350          \csname rel@\k@encoding/\k@family/\k@series/all\endcsname\relax
 351       \else
 352          \csname rel@\k@encoding/\k@family/\k@series/all\endcsname\selectfont
 353          % 警告: 再び \selectfont を呼んでいる．無限ループの可能性あり
 354       \fi
 355     \else
 356        \csname rel@\k@encoding/\k@family/\k@series/\k@shape\endcsname\selectfont
 357        % 警告: 再び \selectfont を呼んでいる．無限ループの可能性あり
 358     \fi
 359   \fi
 360   \directlua{luatexja.base.stop_time_measure('selectfont')}%
 361 }
 362 \EverySelectfont{\ltj@selectfont@patch}
 363
 364 \def\KanjiEncodingPair#1#2{\@namedef{t@enc@#1}{#2}\@namedef{y@enc@#2}{#1}}
 365 \def\set@fontsize#1#2#3{%
 366     \@defaultunits\@tempdimb#2pt\relax\@nnil
 367     \edef\f@size{\strip@pt\@tempdimb}%
 368     \@defaultunits\@tempskipa#3pt\relax\@nnil
 369     \edef\f@baselineskip{\the\@tempskipa}%
 370     \edef\f@linespread{#1}%
 371     \let\baselinestretch\f@linespread
 372     \def\size@update{%
 373       \baselineskip\f@baselineskip\relax
 374       \baselineskip\f@linespread\baselineskip
 375       \normalbaselineskip\baselineskip
 376       \adjustbaseline
 377       \setbox\strutbox\hbox{\yoko
 378           \vrule\@width\z@
 379                 \@height.7\baselineskip \@depth.3\baselineskip}%
 380       \setbox\dstrutbox\hbox{\dtou
 381           \vrule\@width\z@
 382                 \@height.7\baselineskip \@depth.3\baselineskip}%
 383       \setbox\tstrutbox\hbox{\tate
 384           \vrule\@width\z@
 385                 \@height.5\baselineskip \@depth.5\baselineskip}%
 386       \setbox\zstrutbox\hbox{\tate
 387           \vrule\@width\z@
 388                 \@height.7\baselineskip \@depth.3\baselineskip}%
 389         \let\size@update\relax}}
 390
 391 \ifdefined\newluafunction
 392   \newluafunction\ltj@@adjust@baseline@inner
 393   \begingroup\catcode`\~=12
 394   \directlua{%
 395     local nulltable = {}
 396     local t = lua.get_functions_table()
 397     local getfont, dir_tate = font.getfont, luatexja.dir_table.dir_tate
 398     local fmt, get_attr = luatexja.jfont.font_metric_table, tex.getattribute
 399     local setdimen, set_attr = tex.setdimen, tex.setattribute
 400     local dir = luatexja.unary_pars.direction
 401     t[\the\ltj@@adjust@baseline@inner] = function()
 402       local ft = fmt[get_attr('ltj@curtfnt')] or nulltable
 403       ft = ft and ft.char_type or nulltable
 404       local fk = ft and ft[0] or nulltable
 405       local ht, dp, wd = fk.height or 0, fk.depth or 0,
 406                          fk.width or ft.zw or 0
 407       local fm
 408         = ((getfont(font.current()) or nulltable)
 409           .characters or nulltable)[77] or nulltable %% 'M'
 410       set_attr('ltj@tablshift',
 411         0.5*((fm.height or 0)- (fm.depth or 0) - ht+ dp))
 412       if dir() ~= dir_tate then
 413         ft = fmt[get_attr('ltj@curjfnt')] or nulltable
 414         ft = ft and ft.char_type or nulltable
 415         fk = ft and ft[0] or nulltable
 416         ht, dp, wd = fk.height or 0, fk.depth or 0,
 417                      fk.width or ft.zw or 0
 418       end
 419       setdimen('cht', ht); setdimen('cdp', dp)
 420       setdimen('cwd', wd); setdimen('chs', wd)
 421       setdimen('cHT', ht+dp)
 422     end
 423   }\endgroup
 424   \def\adjustbaseline{\luafunction\ltj@@adjust@baseline@inner
 425      \cvs\normalbaselineskip}
 426 \else
 427   \newbox\adjust@box
 428   \newbox\adjust@box@aux
 429   \newdimen\adjust@dimen
 430   \def\adjustbaseline{%
 431     \setbox\adjust@box\hbox{%
 432       \ltj@ykblshift\z@\ltj@tkblshift\z@ 漢}%
 433     \cht\ht\adjust@box
 434     \cdp\dp\adjust@box
 435     \cwd\wd\adjust@box
 436     \cvs\normalbaselineskip
 437     \chs\cwd
 438     \cHT\cht \advance\cHT\cdp
 439     \setbox\adjust@box@aux\hbox{\tate\ltj@tkblshift\z@ 漢}%
 440     \setbox\adjust@box\hbox{\tate\ltj@tablshift\z@ M}%
 441     \adjust@dimen\ht\adjust@box
 442     \advance\adjust@dimen\dp\adjust@box
 443     \advance\adjust@dimen-\ht\adjust@box@aux
 444     \divide\adjust@dimen\tw@
 445     \advance\adjust@dimen0.5\dp\adjust@box@aux
 446     \advance\adjust@dimen-\dp\adjust@box
 447     \ltj@tablshift=\adjust@dimen
 448   }
 449 \fi
 450 \DeclareRobustCommand\romanencoding[1]{%
 451     \expandafter\ifx\csname T@#1\endcsname\relax
 452       \@latex@error{Encoding scheme `#1' unknown}\@eha
 453     \else
 454       \edef\f@encoding{#1}%
 455       \ifx\cf@encoding\f@encoding
 456         \let\enc@update\relax
 457       \else
 458         \let\enc@update\@@enc@update
 459       \fi
 460     \fi
 461 }
 462 \DeclareRobustCommand\kanjiencoding[1]{%
 463     \expandafter\ifx\csname T@#1\endcsname\relax
 464       \@latex@error{KANJI Encoding scheme `#1' unknown}\@eha
 465     \else
 466       \edef\k@encoding{#1}%
 467       \ifx\ck@encoding\k@encoding
 468          \let\kenc@update\relax
 469       \else
 470          \let\kenc@update\@@kenc@update
 471       \fi
 472     \fi
 473 }
 474 \DeclareRobustCommand\fontencoding[1]{%
 475   \directlua{luatexja.jfont.is_kyenc('\luatexluaescapestring{#1}')}\ifin@%
 476   \kanjiencoding{#1}\else\romanencoding{#1}\fi}
 477 \def\@@kenc@update{%
 478   \default@KT
 479   \csname T@\k@encoding\endcsname
 480   \csname D@\k@encoding\endcsname
 481   \let\kenc@update\relax
 482   \let\ck@encoding\k@encoding
 483   \edef\tmp@enc{'\luatexluaescapestring{\k@encoding}'}
 484   \directlua{luatexja.jfont.is_kyenc(\tmp@enc)}\ifin@%
 485     \let\cy@encoding\k@encoding
 486   \else
 487     \directlua{luatexja.jfont.is_ktenc(\tmp@enc)}\ifin@%
 488       \let\ct@encoding\k@encoding
 489     \else
 490       \@latex@error{KANJI Encoding scheme `\k@encoding' unknown}\@eha
 491     \fi
 492   \fi
 493 }
 494 \let\kenc@update\relax
 495 \def\@changed@kcmd#1#2{%
 496    \ifx\protect\@typeset@protect
 497       \@inmathwarn#1%
 498       \expandafter\ifx\csname\ck@encoding\string#1\endcsname\relax
 499          \expandafter\ifx\csname ?\string#1\endcsname\relax
 500             \expandafter\def\csname ?\string#1\endcsname{%
 501                \TextSymbolUnavailable#1%
 502             }%
 503          \fi
 504          \global\expandafter\let
 505                \csname\cf@encoding \string#1\expandafter\endcsname
 506                \csname ?\string#1\endcsname
 507       \fi
 508       \csname\ck@encoding\string#1%
 509          \expandafter\endcsname
 510    \else
 511       \noexpand#1%
 512    \fi}
 513 \newif\if@notkfam
 514 \newif\if@notffam
 515 \newif\if@tempswz
 516 \def\@ltj@use@fd{true}
 517 \DeclareRobustCommand\romanfamily[1]{\edef\f@family{#1}}
 518 \DeclareRobustCommand\kanjifamily[1]{\edef\k@family{#1}}
 519 \DeclareRobustCommand\fontfamily[1]{%
 520   \@notkfamfalse\@notffamfalse
 521   \edef\tmp@item{'\luatexluaescapestring{#1}'}%
 522   %
 523   \directlua{luatexja.jfont.search_kfam(\tmp@item, \@ltj@use@fd)}%
 524   \ifin@\edef\k@family{#1}\else\@notkfamtrue\fi
 525   %
 526   % alphabetic fonts part
 527   \directlua{luatexja.jfont.is_ffam(\tmp@item)}%
 528   \ifin@\edef\f@family{#1}\else
 529     % checking is_stored_ffam is not sufficient,
 530     % since LuaTeX-ja doesn't know whats fonts are defined before LuaTeX-ja is loaded.
 531     \ifcsname \f@encoding+#1\endcsname % easy case
 532       \directlua{luatexja.jfont.add_ffam(\tmp@item)}\edef\f@family{#1}%
 533     \else
 534       \@tempswafalse
 535       \def\cdp@elt##1{\ifcsname ##1+#1\endcsname\@tempswatrue\fi}%
 536       \directlua{luatexja.jfont.search_ffam_declared()}%
 537       \if@tempswz
 538         \directlua{luatexja.jfont.add_ffam(\tmp@item)}\edef\f@family{#1}%
 539       \else
 540         % now we search Nffam_list and font definition files.
 541         \directlua{luatexja.jfont.search_ffam_fd(\tmp@item)}%
 542         \ifin@\edef\f@family{#1}\else\@notffamtrue\fi
 543       \fi
 544     \fi
 545   \fi
 546   %
 547   \if@notkfam\if@notffam
 548     \edef\k@family{#1}\edef\f@family{#1}%
 549   \fi\fi
 550 }
 551 \DeclareRobustCommand\romanseries[1]{\edef\f@series{#1}}
 552 \DeclareRobustCommand\kanjiseries[1]{\edef\k@series{#1}}
 553 \DeclareRobustCommand\fontseries[1]{\kanjiseries{#1}\romanseries{#1}}
 554 \DeclareRobustCommand\romanshape[1]{\edef\f@shape{#1}}
 555 \DeclareRobustCommand\kanjishape[1]{\edef\k@shape{#1}}
 556 \DeclareRobustCommand\fontshape[1]{\kanjishape{#1}\romanshape{#1}}
 557 \def\usekanji#1#2#3#4{%
 558     \kanjiencoding{#1}\kanjifamily{#2}\kanjiseries{#3}\kanjishape{#4}%
 559     \selectfont\ignorespaces}
 560 \def\useroman#1#2#3#4{%
 561     \romanencoding{#1}\romanfamily{#2}\romanseries{#3}\romanshape{#4}%
 562     \selectfont\ignorespaces}
 563 \protected\def\usefont#1#2#3#4{%
 564   \directlua{luatexja.jfont.is_kenc('\luatexluaescapestring{#1}')}\ifin@%
 565   \usekanji{#1}{#2}{#3}{#4}%
 566   \else\useroman{#1}{#2}{#3}{#4}%
 567   \fi}
 568 \DeclareRobustCommand\normalfont{%
 569     \kanjiencoding{\kanjiencodingdefault}%
 570     \kanjifamily{\kanjifamilydefault}%
 571     \kanjiseries{\kanjiseriesdefault}%
 572     \kanjishape{\kanjishapedefault}%
 573     \romanencoding{\encodingdefault}%
 574     \romanfamily{\familydefault}%
 575     \romanseries{\seriesdefault}%
 576     \romanshape{\shapedefault}%
 577     \selectfont\ignorespaces}
 578 \let\reset@font\normalfont
 579 \DeclareRobustCommand\mcfamily
 580         {\not@math@alphabet\mcfamily\mathmc
 581          \kanjifamily\mcdefault\selectfont}
 582 \DeclareRobustCommand\gtfamily
 583         {\not@math@alphabet\gtfamily\mathgt
 584          \kanjifamily\gtdefault\selectfont}
 585 \let\romanprocess@table\process@table
 586 \def\kanjiprocess@table{%
 587   \kanjiencoding{\kanjiencodingdefault}%
 588   \kanjifamily{\kanjifamilydefault}%
 589   \kanjiseries{\kanjiseriesdefault}%
 590   \kanjishape{\kanjishapedefault}%
 591 }
 592 \def\process@table{%
 593   \romanprocess@table
 594   \kanjiprocess@table
 595 }
 596 \@onlypreamble\romanprocess@table
 597 \@onlypreamble\kanjiprocess@table
 598 \DeclareTextCommandDefault{\textunderscore}{%
 599   \leavevmode\kern.06em
 600   \vbox{\hrule\@width.3em}}
 601
 602 %%%%%% LuaTeX-ja specific
 603
 604 % #1 の展開結果から encoding 部分をとりだし，それが和文用かどうかの結果を \ifin@ に代入
 605 \def\ltj@@IsFontJapanese#1{%
 606   \directlua{luatexja.jfont.is_kenc(string.match(
 607       '\luatexluaescapestring{#1}', '[^/]+'))}}
 608
 609
 610 \let\extract@afont\extract@font
 611 \def\pickup@jfont{%
 612     \expandafter \ifx \font@name \relax
 613        \let\extract@font\extract@jfont
 614        \define@newfont
 615        \let\extract@font\extract@afont
 616     \fi
 617     \let\getjfont\font@name}
 618 \def\pickup@tfont{%
 619     \expandafter \ifx \font@name \relax
 620        \let\extract@font\extract@tfont
 621        \define@newfont
 622        \let\extract@font\extract@afont
 623     \fi
 624     \let\gettfont\font@name}
 625
 626 % 異なる和文 enc/fam/ser/shape からは異なるフォント番号が振られるように
 627 % わざと「ゴミをつける」
 628 \def\ltj@@patch@external@font#1 at{%
 629   #1\directlua{luatexja.jfont.print_aftl_address()}\space at%
 630 }
 631 \def\extract@jfont{%
 632    \get@external@font
 633     \ltj@@does@alt@set{\f@encoding/\f@family/\f@series/\f@shape}%
 634       \edef\external@font{\expandafter\ltj@@patch@external@font\external@font}%
 635     \fi
 636     \expandafter\globaljfont\font@name\external@font\relax% ここで時間がかかる
 637     \font@name%\global\zw=\zw\global\zh=\zh
 638     \csname \f@encoding+\f@family\endcsname
 639     \csname\curr@fontshape\endcsname}
 640 \def\extract@tfont{%
 641    \get@external@font
 642     \ltj@@does@alt@set{\f@encoding/\f@family/\f@series/\f@shape}%
 643       \edef\external@font{\expandafter\ltj@@patch@external@font\external@font}%
 644     \fi
 645     \expandafter\globaltfont\font@name\external@font\relax
 646     \font@name%\global\zw=\zw\global\zh=\zh
 647     \csname \f@encoding+\f@family\endcsname
 648     \csname\curr@fontshape\endcsname}
 649
 650 \let\ltj@@al@do@subst@correction=\do@subst@correction
 651 \def\ltj@@ja@do@subst@correction{%
 652     \xdef\subst@correction{%
 653       \font@name
 654       \global\expandafter\let\csname \curr@fontshape/\f@size\endcsname\font@name%
 655       \relax}%
 656     \aftergroup\subst@correction
 657 }
 658 \def\do@subst@correction{%
 659    \ltj@@IsFontJapanese{\curr@fontshape}\ifin@%
 660      \ltj@@ja@do@subst@correction
 661    \else
 662      \ltj@@al@do@subst@correction
 663    \fi
 664 }
 665 \let\@@italiccorr=\/
 666
 667 %%%%%% Japanese font for math mode
 668
 669 % \M@<enc> から その <enc> が和文用か調べる
 670 {\catcode`M=12%
 671 \gdef\ltj@@mathJapaneseFonts#1M#2#3\relax{\ltj@@IsFontJapanese{#3}}}
 672
 673 \let\ltj@@al@getanddefine@fonts=\getanddefine@fonts
 674 \def\ltj@@ja@getanddefine@fonts#1#2{%
 675   \xdef\font@name{\csname \string#2/\tf@size\endcsname}%
 676   \pickup@jfont\let\textfont@name\font@name
 677   \xdef\font@name{\csname \string#2/\sf@size\endcsname}%
 678   \pickup@jfont\let\scriptfont@name\font@name
 679   \xdef\font@name{\csname \string#2/\ssf@size\endcsname}%
 680   \pickup@jfont
 681   \edef\math@fonts{\math@fonts\ltj@setpar@global%
 682     \ltj@@set@stackfont#1,\textfont@name:{MJT}%
 683     \ltj@@set@stackfont#1,\scriptfont@name:{MJS}%
 684     \ltj@@set@stackfont#1,\font@name:{MJSS}%
 685   }%
 686 }
 687
 688 \def\getanddefine@fonts#1#2{%
 689   \ltj@tempcnta=#1\ltj@@IsFontJapanese{\string#2}%
 690   \ifin@\let\ltj@temp=\ltj@@ja@getanddefine@fonts%
 691   \else \let\ltj@temp=\ltj@@al@getanddefine@fonts\fi
 692   \ltj@temp{#1}{#2}%
 693 }
 694 \def\use@mathgroup#1#2{\relax\ifmmode
 695   \math@bgroup
 696     \expandafter\ifx\csname M@\f@encoding\endcsname#1\else
 697     #1\fi\ltj@tempcnta=#2 \expandafter\ltj@@mathJapaneseFonts\string#1\relax%
 698     \ifin@\jfam#2\relax\else\mathgroup#2\relax\fi
 699   \expandafter\math@egroup\fi}%
 700
 701 %%%%%% Alternate Japanese Fonts
 702 %%%% \DeclareAlternateKanjiFont<Benc><Bfam><Bser><Bshape><Aenc><Afam><Aser><Ashape><range>
 703 % いつも global
 704 \def\DeclareAlternateKanjiFont#1#2#3#4#5#6#7#8#9{%
 705   \edef\@temp{#9}%
 706   \ifx\@temp\@empty\else
 707     {\def\ltj@temp@bfont{#1/#2/#3/#4}\def\ltj@temp@afont{#5/#6/#7/#8}%
 708      \expandafter\ltj@@altfont@latex#9,,}\ignorespaces
 709   \fi}
 710 \def\ltj@@altfont@latex#1,{\def\ltj@temp{#1}%
 711   \ifx\ltj@temp\empty\let\@next=\relax\else
 712   \ltj@@altfont@latexA{#1}\let\@next=\ltj@@altfont@latex\fi\@next}
 713 \def\ltj@@altfont@latexA#1{\ltj@@altfont@latexB#1--\@nil}
 714 \def\ltj@@altfont@latexB#1-#2-#3\@nil{\def\ltj@temp{#3}%
 715   \ifx\ltj@temp\empty
 716     \ltj@tempcnta=#1\relax\ltj@tempcntb=\ltj@tempcnta
 717   \else
 718     \def\ltj@temp{#1}%
 719     \ifx\ltj@temp\empty\ltj@tempcnta='200\else\ltj@tempcnta=#1\fi\relax
 720     \def\ltj@temp{#2}%
 721     \ifx\ltj@temp\empty\ltj@tempcntb="10FFFF\else\ltj@tempcntb=#2\fi\relax%"
 722   \fi
 723   \directlua{luatexja.jfont.set_alt_font_latex(
 724     \the\ltj@tempcnta,\the\ltj@tempcntb,
 725     '\luatexluaescapestring{\ltj@temp@afont}',
 726     '\luatexluaescapestring{\ltj@temp@bfont}')}%
 727   }
 728
 729 %%%% \ClearAlternateKanjiFont<Benc><Bfam><Bser><Bshape>
 730 % いつも global
 731 \def\ClearAlternateKanjiFont#1#2#3#4{%
 732    \directlua{luatexja.jfont.clear_alt_font_latex('\luatexluaescapestring{#1/#2/#3/#4}')}}
 733
 734 \def\ltj@pickup@altfont@auxy#1{%
 735   \begingroup\edef\font@name{\csname #1/\f@size\endcsname}\pickup@jfont\endgroup%
 736 }
 737 \def\ltj@pickup@altfont@auxt#1{%
 738   \begingroup\edef\font@name{\csname #1/\f@size\endcsname}\pickup@tfont\endgroup%
 739 }
 740 \def\ltj@pickup@altfont@copy#1#2{%
 741   \ltj@@getjfontnumber#1%
 742   \directlua{luatexja.jfont.pickup_alt_font_b(\the\ltj@tempcntc,'\luatexluaescapestring{#2}')}%
 743 }
 744
 745 \def\ltj@@does@alt@set#1{%
 746   \directlua{luatexja.jfont.does_alt_set'\luatexluaescapestring{#1}'}}
 747
 748 %%%% patch \@text@composite because of {y,t}albaselineshift
 749
 750 % %% \pltx@isletter from plfonts.dtx
 751 % \def\pltx@mark{\pltx@mark@}
 752 % \let\pltx@scanstop\relax
 753 % \long\def\pltx@cond#1\fi{%
 754 %   #1\expandafter\@firstoftwo\else\expandafter\@secondoftwo\fi}
 755 % \long\def\pltx@isletter#1{%
 756 %   \expandafter\pltx@isletter@i#1\pltx@scanstop}
 757 % \long\def\pltx@isletter@i#1\pltx@scanstop{%
 758 %   \pltx@cond\ifx\pltx@mark#1\pltx@mark\fi{\@firstoftwo}%
 759 %     {\pltx@isletter@ii\pltx@scanstop#1\pltx@scanstop{}#1\pltx@mark}}
 760 % \long\def\pltx@isletter@ii#1\pltx@scanstop#{%
 761 %   \pltx@cond\ifx\pltx@mark#1\pltx@mark\fi%
 762 %     {\pltx@isletter@iii}{\pltx@isletter@iv}}
 763 % \long\def\pltx@isletter@iii#1\pltx@mark{\@secondoftwo}
 764 % \long\def\pltx@isletter@iv#1#2#3\pltx@mark{%
 765 %   \pltx@cond\ifx\pltx@mark#3\pltx@mark\fi{%
 766 %     \pltx@cond{\ifnum0\ifcat A\noexpand#21\fi\ifcat=\noexpand#21\fi>\z@}\fi
 767 %       {\@firstoftwo}{\@secondoftwo}%
 768 %   }{\@secondoftwo}}
 769 %
 770 % \def\@text@composite@x#1#2{%
 771 %   \ifx#1\relax
 772 %     #2%
 773 %   \else\pltx@isletter{#1}{#1}{%
 774 %     \begingroup
 775 %     \setbox\z@\hbox\bgroup%
 776 %       \ltj@yablshift\z@ \ltj@tablshift\z@
 777 %       #1%
 778 %       \@tempcntb\directlua{luatexja.pltx_composite_last_node_char()}%)
 779 %       \xdef\pltx@composite@temp{\noexpand\@tempcntb=\the\@tempcntb\relax}%
 780 %       \aftergroup\pltx@composite@temp
 781 %     \egroup
 782 %     \ifnum\ltjgetparameter{direction}=3 %
 783 %       \@tempdima=\ltj@tablshift sp\else\@tempdima=\ltj@yablshift sp\fi
 784 %     \ifnum\@tempcntb<\z@\@tempcnta\z@\else
 785 %       \@tempcnta=\ltjgetparameter{jacharrange}{\ltjgetparameter{chartorange}{\@tempcntb}}\relax
 786 %       \ifnum\@tempcnta=\z@\@tempdima\z@\fi
 787 %     \fi
 788 %     \ifnum\@tempcnta>\z@
 789 %       \ifodd\ltjgetparameter{alxspmode}{\@tempcntb}\else\leavevmode\hbox{}\fi
 790 %       \begingroup\mathsurround\z@$%
 791 %         \hbox{\lower\@tempdima\box\z@}
 792 %       $\endgroup%
 793 %       \ifnum\ltjgetparameter{alxspmode}{\@tempcntb}<2\hbox{}\fi
 794 %     \else
 795 %       \ifdim\@tempdima=\z@{\ltj@yablshift\z@ \ltj@tablshift\z@#1}%
 796 %       \else\lower\@tempdima\box\z@\fi
 797 %     \fi
 798 %     \endgroup}%
 799 %   \fi
 800 % }
 801
 802 \endinput