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