src/patches/lltjfont.sty

   1 %
   2 % lltjfont.sty: derived from plfonts.dtx in pLaTeX.
   3 %
   4
   5 \NeedsTeXFormat{LaTeX2e}
   6 \ProvidesPackage{lltjfont}[2023-04-13 Patch to NFSS2 for LuaTeX-ja]
   7
   8 %%%%%%%% LaTeX2e version detection
   9 \newcount\ltj@@latex@plv \ltj@@latex@plv=-1
  10 \ifltj@ltfilehook@avail
  11 \ExplSyntaxOn
  12   \cs_if_exist:NTF \__shipout_execute_main_cont:Nnnn
  13     {\ltj@@latex@plv=1500}% 2021-06-01
  14     {\ifnum\patch@level>2\relax \ltj@@latex@plv=1300\else \ltj@@latex@plv=1000\fi}% 2020-10-01
  15 \ExplSyntaxOff
  16 \else\ifdefined\@rmfamilyhook % 2020-02-02
  17   \ifx\@forced@seriestrue\@undefined % 2020-02-02 pl0--2
  18     \@latex@error
  19      {Please update LaTeX2e!^^J\space\space
  20        At least LaTeX2e 2020-02-02 patch level 3 is required}%
  21      {LaTeX2e 2020-02-02 patch level 2 (and 4) has a bug.}
  22   \else
  23     \ltj@@latex@plv=300
  24     \unless\ifx\series@maybe@drop@one@m@x\@undefined % pl5 + develop
  25       \ltj@@latex@plv=501
  26     \else\unless\ifx\series@maybe@drop@one@m\@undefined % patch level 5
  27       \ltj@@latex@plv=500
  28     \fi\fi
  29   \fi
  30 \fi\fi
  31
  32 %% patching \DeclareTextComposite
  33 \def\ltj@chardef@text@cmd#1{%
  34   \let\@ifdefinable\@@ifdefinable%
  35   \edef\ltj@chardef@text@cmd@name{\expandafter\@gobble\string#1}%
  36   \afterassignment\ltj@chardef@text@cmd@\ltj@tempcnta
  37 }
  38 \def\ltj@chardef@text@cmd@{%
  39   \ifnum\ltj@tempcnta>"7F
  40     \expandafter\edef\csname \ltj@chardef@text@cmd@name\endcsname{%
  41       \noexpand\ltjalchar\the\ltj@tempcnta\space
  42     }%
  43   \else
  44     \expandafter\chardef\csname \ltj@chardef@text@cmd@name\endcsname\ltj@tempcnta
  45   \fi
  46 }
  47 \def\DeclareTextSymbol#1#2#3{%
  48   \@dec@text@cmd\ltj@chardef@text@cmd#1{#2}#3\relax
  49 }
  50
  51 \let\ltj@temp@DeclareTextComposite=\DeclareTextComposite
  52 \def\DeclareTextComposite#1#2#3#4{}%
  53 \input{tuenc.def}
  54 \let\DeclareTextComposite=\ltj@temp@DeclareTextComposite
  55 \expandafter\patchcmd\csname TU\string\textasteriskcentered\endcsname{\char}{\ltjalchar}{}{}
  56
  57
  58 \let\k@encoding\@empty
  59 \let\ck@encoding\@empty
  60 % LuaTeX-ja uses JY3 and JT3 encodings.
  61 \def\cy@encoding{JY3}\def\ct@encoding{JT3}
  62
  63 \let\k@family\@empty
  64 \let\k@series\@empty
  65 \let\k@shape\@empty
  66 \def\curr@kfontshape{\k@encoding/\k@family/\k@series/\k@shape}
  67 \def\rel@fontshape{\f@encoding/\f@family/\f@series/\f@shape}
  68 \ifdefined\Cht\else\newdimen\Cht\fi
  69 \ifdefined\cht\else\newdimen\cht\fi
  70 \ifdefined\Cdp\else\newdimen\Cdp\fi
  71 \ifdefined\cdp\else\newdimen\cdp\fi
  72 \ifdefined\Cwd\else\newdimen\Cwd\fi
  73 \ifdefined\cwd\else\newdimen\cwd\fi
  74 \ifdefined\Cvs\else\newdimen\Cvs\fi
  75 \ifdefined\cvs\else\newdimen\cvs\fi
  76 \ifdefined\Chs\else\newdimen\Chs\fi
  77 \ifdefined\chs\else\newdimen\chs\fi
  78 \ifdefined\cHT\else\newdimen\cHT\fi
  79 %\let\afont\font
  80
  81 \let\ystrutbox\strutbox
  82 \newbox\dstrutbox
  83 \newbox\tstrutbox
  84 \newbox\zstrutbox
  85 \def\strutbox{%
  86   \ifnum\ltjgetparameter{direction}=1 \dstrutbox       % dtou
  87   \else\ifnum\ltjgetparameter{direction}=4 \ystrutbox  % yoko
  88   \else\tstrutbox  % tate and utod
  89   \fi\fi
  90 }
  91 \DeclareRobustCommand\strut{\relax
  92   \ifnum\ltjgetparameter{direction}=1 % dtou
  93     \ifmmode\copy\dstrutbox\else\unhcopy\dstrutbox\fi
  94   \else\ifnum\ltjgetparameter{direction}=4 % yoko
  95     \ifmmode\copy\ystrutbox\else\unhcopy\ystrutbox\fi
  96   \else % tate and utod
  97     \ifmmode\copy\tstrutbox\else\unhcopy\tstrutbox\fi
  98   \fi\fi
  99 }
 100
 101 \DeclareRobustCommand\ystrut{\relax\hbox{\ltj@@orig@yoko
 102    \ifmmode\copy\ystrutbox\else\unhcopy\ystrutbox\fi}}
 103 \DeclareRobustCommand\tstrut{\relax\hbox{\ltj@@orig@tate
 104    \ifmmode\copy\tstrutbox\else\unhcopy\tstrutbox\fi}}
 105 \DeclareRobustCommand\dstrut{\relax\hbox{\ltj@@orig@dtou
 106    \ifmmode\copy\dstrutbox\else\unhcopy\dstrutbox\fi}}
 107 \DeclareRobustCommand\zstrut{\relax\hbox{\ltj@@orig@utod
 108    \ifmmode\copy\zstrutbox\else\unhcopy\zstrutbox\fi}}
 109
 110
 111
 112 \newluafunction\ltj@@add@fenc@@inner
 113 \newluafunction\ltj@@add@kyenc@@inner
 114 \newluafunction\ltj@@add@ktenc@@inner
 115 \newluafunction\ltj@@is@kyenc@@inner
 116 \newluafunction\ltj@@is@ktenc@@inner
 117 \newluafunction\ltj@@is@kenc@@inner
 118 \newluafunction\ltj@@is@ffam@@inner
 119 \newluafunction\ltj@@add@ffam@@inner
 120 \newluafunction\ltj@@add@kfam@@inner
 121 \directlua{%
 122   local lf = lua.get_functions_table()
 123   lf[\the\ltj@@add@fenc@@inner]  = luatexja.jfont.add_fenc_list
 124   lf[\the\ltj@@add@kyenc@@inner] = luatexja.jfont.add_kyenc_list
 125   lf[\the\ltj@@add@ktenc@@inner] = luatexja.jfont.add_ktenc_list
 126   lf[\the\ltj@@is@kyenc@@inner]  = luatexja.jfont.is_kyenc
 127   lf[\the\ltj@@is@ktenc@@inner]  = luatexja.jfont.is_ktenc
 128   lf[\the\ltj@@is@kenc@@inner]   = luatexja.jfont.is_kenc
 129   lf[\the\ltj@@is@ffam@@inner]   = luatexja.jfont.is_ffam
 130   lf[\the\ltj@@add@ffam@@inner]  = luatexja.jfont.add_ffam
 131   lf[\the\ltj@@add@kfam@@inner]  = luatexja.jfont.add_kfam
 132 }
 133 \luadef\ltj@@add@fenc \ltj@@add@fenc@@inner
 134 \luadef\ltj@@add@kyenc\ltj@@add@kyenc@@inner
 135 \luadef\ltj@@add@ktenc\ltj@@add@ktenc@@inner
 136 \luadef\ltj@@is@kyenc \ltj@@is@kyenc@@inner
 137 \luadef\ltj@@is@ktenc \ltj@@is@ktenc@@inner
 138 \luadef\ltj@@is@kenc  \ltj@@is@kenc@@inner
 139 \luadef\ltj@@is@ffam  \ltj@@is@ffam@@inner
 140 \luadef\ltj@@add@ffam \ltj@@add@ffam@@inner
 141 \luadef\ltj@@add@kfam \ltj@@add@kfam@@inner
 142
 143 {\def\cdp@elt#1#2#3#4{\ltj@@add@fenc{#1}}\cdp@list}
 144
 145 \def\DeclareFontEncoding{%
 146   \begingroup
 147   \nfss@catcodes
 148   \expandafter\endgroup
 149   \DeclareFontEncoding@}
 150 \def\DeclareFontEncoding@#1#2#3{%
 151   \expandafter
 152   \ifx\csname T@#1\endcsname\relax
 153      \def\cdp@elt{\noexpand\cdp@elt}%
 154      \xdef\cdp@list{\cdp@list\cdp@elt{#1}%
 155                     {\default@family}{\default@series}%
 156                     {\default@shape}}%
 157      \expandafter\let\csname#1-cmd\endcsname\@changed@cmd
 158      \ltj@@add@fenc{#1}%
 159   \else
 160      \@font@info{Redeclaring font encoding #1}%
 161   \fi
 162   \global\@namedef{T@#1}{#2}%
 163   \global\@namedef{M@#1}{\default@M#3}%
 164   \xdef\LastDeclaredEncoding{#1}%
 165   }
 166 \def\DeclareKanjiEncoding#1{%
 167   \@latex@warning{%
 168      The \string\DeclareKanjiEncoding\space is obsoleted command.  Please use
 169      \MessageBreak
 170      the \string\DeclareTateKanjiEncoding\space for `Tate-kumi' encoding, and
 171      \MessageBreak
 172      the \string\DeclareYokoKanjiEncoding\space for `Yoko-kumi' encoding.
 173      \MessageBreak
 174      I treat the `#1' encoding as `Yoko-kumi'.}
 175   \DeclareYokoKanjiEncoding{#1}%
 176 }
 177 \def\DeclareYokoKanjiEncoding{%
 178   \begingroup
 179   \nfss@catcodes
 180   \expandafter\endgroup
 181   \DeclareYokoKanjiEncoding@}
 182 \def\DeclareYokoKanjiEncoding@#1#2#3{%
 183   \expandafter\ifx\csname T@#1\endcsname\relax
 184     \def\cdp@elt{\noexpand\cdp@elt}%
 185     \xdef\cdp@list{\cdp@list\cdp@elt{#1}%
 186                     {\default@k@family}{\default@k@series}%
 187                     {\default@k@shape}}%
 188     \expandafter\let\csname#1-cmd\endcsname\@changed@kcmd
 189     \ltj@@add@kyenc{#1}%
 190   \else
 191     \@font@info{Redeclaring KANJI (yoko) font encoding #1}%
 192   \fi
 193   \global\@namedef{T@#1}{#2}%
 194   \global\@namedef{M@#1}{\default@KM#3}%
 195   }
 196 \def\DeclareTateKanjiEncoding{%
 197   \begingroup
 198   \nfss@catcodes
 199   \expandafter\endgroup
 200   \DeclareTateKanjiEncoding@}
 201 \def\DeclareTateKanjiEncoding@#1#2#3{%
 202   \expandafter\ifx\csname T@#1\endcsname\relax
 203     \def\cdp@elt{\noexpand\cdp@elt}%
 204     \xdef\cdp@list{\cdp@list\cdp@elt{#1}%
 205                     {\default@k@family}{\default@k@series}%
 206                     {\default@k@shape}}%
 207     \expandafter\let\csname#1-cmd\endcsname\@changed@kcmd
 208     \ltj@@add@ktenc{#1}%
 209   \else
 210     \@font@info{Redeclaring KANJI (tate) font encoding #1}%
 211   \fi
 212   \global\@namedef{T@#1}{#2}%
 213   \global\@namedef{M@#1}{\default@KM#3}%
 214   }
 215 \@onlypreamble\DeclareKanjiEncoding
 216 \@onlypreamble\DeclareYokoKanjiEncoding
 217 \@onlypreamble\DeclareYokoKanjiEncoding@
 218 \@onlypreamble\DeclareTateKanjiEncoding
 219 \@onlypreamble\DeclareTateKanjiEncoding@
 220 \def\DeclareKanjiEncodingDefaults#1#2{%
 221   \ifx\relax#1\else
 222     \ifx\default@KT\@empty\else
 223       \@font@info{Overwriting KANJI encoding scheme text defaults}%
 224     \fi
 225     \gdef\default@KT{#1}%
 226   \fi
 227   \ifx\relax#2\else
 228     \ifx\default@KM\@empty\else
 229       \@font@info{Overwriting KANJI encoding scheme math defaults}%
 230     \fi
 231     \gdef\default@KM{#2}%
 232   \fi}
 233 \let\default@KT\@empty
 234 \let\default@KM\@empty
 235 \@onlypreamble\DeclareKanjiEncodingDefaults
 236 \def\DeclareFontFamily#1#2#3{%
 237  \@ifundefined{T@#1}%
 238     {\@latex@error{Encoding scheme `#1' unknown}\@eha}%
 239     {\def\reserved@a{#3}%
 240      \global
 241      \expandafter\let\csname #1+#2\expandafter\endcsname
 242             \ifx \reserved@a\@empty
 243               \@empty
 244             \else \reserved@a
 245             \fi
 246      \ltj@@add@ffam{#2}%
 247     }%
 248 }
 249 \def\DeclareKanjiFamily#1#2#3{%
 250  \@ifundefined{T@#1}%
 251     {\@latex@error{KANJI Encoding scheme `#1' unknown}\@eha}%
 252     {\def\reserved@a{#3}%
 253      \global
 254      \expandafter\let\csname #1+#2\expandafter\endcsname
 255             \ifx \reserved@a\@empty
 256               \@empty
 257             \else \reserved@a
 258             \fi
 259      \ltj@@add@kfam{#2}%
 260      }%
 261 }
 262 \def\DeclareKanjiSubstitution#1#2#3#4{%
 263   \expandafter\ifx\csname T@#1\endcsname\relax
 264     \@latex@error{KANJI Encoding scheme `#1' unknown}\@eha
 265   \else
 266     \begingroup
 267        \def\reserved@a{#1}%
 268        \toks@{}%
 269        \def\cdp@elt##1##2##3##4{%
 270          \def\reserved@b{##1}%
 271          \ifx\reserved@a\reserved@b
 272            \addto@hook\toks@{\cdp@elt{#1}{#2}{#3}{#4}}%
 273          \else
 274            \addto@hook\toks@{\cdp@elt{##1}{##2}{##3}{##4}}%
 275          \fi}%
 276        \cdp@list
 277        \xdef\cdp@list{\the\toks@}%
 278     \endgroup
 279     \global\@namedef{D@#1}{\def\default@k@family{#2}%
 280                            \def\default@k@series{#3}%
 281                            \def\default@k@shape{#4}}%
 282   \fi}
 283 \@onlypreamble\DeclareKanjiSubstitution
 284
 285 \def\DeclareErrorKanjiFont#1#2#3#4#5{%
 286    \xdef\error@kfontshape{%
 287       \noexpand\expandafter\noexpand\split@name\noexpand\string
 288       \expandafter\noexpand\csname#1/#2/#3/#4/#5\endcsname
 289       \noexpand\@nil}%
 290    \gdef\default@k@family{#2}%
 291    \gdef\default@k@series{#3}%
 292    \gdef\default@k@shape{#4}%
 293    }
 294 \@onlypreamble\DeclareErrorKanjiFont
 295
 296 \let\wrong@ja@fontshape\wrong@fontshape
 297 \let\wrong@al@fontshape\wrong@fontshape
 298 \patchcmd\wrong@ja@fontshape{\default@shape}{\default@k@shape}{}{}
 299 \patchcmd\wrong@ja@fontshape{\default@series}{\default@k@series}{}{}
 300 \patchcmd\wrong@ja@fontshape{\default@family}{\default@k@family}{}{}
 301 \def\wrong@fontshape{%
 302   \ltj@@is@kenc{\f@encoding}\ifin@%
 303     \wrong@ja@fontshape
 304   \else
 305     \wrong@al@fontshape
 306   \fi
 307 }
 308
 309 \newif\ifltjselectfont@force@define
 310 \def\DeclareFixedFont#1#2#3#4#5#6{%
 311    \begingroup
 312       \math@fontsfalse
 313       \every@math@size{}%
 314       \fontsize{#6}\z@
 315       \ltj@@is@kyenc{#2}\ifin@%
 316         \ltjselectfont@force@definetrue
 317         \usekanji{#2}{#3}{#4}{#5}%
 318         \global\let#1\getjfont
 319         \ltjselectfont@force@definefalse
 320       \else
 321         \ltj@@is@ktenc{#2}\ifin@%
 322           \ltjselectfont@force@definetrue
 323           \usekanji{#2}{#3}{#4}{#5}%
 324           \global\let#1\gettfont
 325           \ltjselectfont@force@definefalse
 326         \else
 327           \useroman{#2}{#3}{#4}{#5}%
 328           \global\expandafter\let\expandafter#1\the\font
 329         \fi
 330       \fi
 331    \endgroup
 332   }
 333 \def\DLMfontsw@standard#1#2#3{#1{#2{#3}}}
 334 \def\reDeclareMathAlphabet#1#2#3{%
 335   \ifdefined#2
 336     \@temptokena\expandafter{#2}%
 337   \else
 338     \@temptokena{#2}%
 339   \fi
 340   \ifdefined#3
 341     \toks0\expandafter{#3}%
 342   \else
 343     \toks0{#3}%
 344   \fi
 345   \long\protected\edef#1{%
 346     \noexpand\DLMfontsw@standard{\the\@temptokena}{\the\toks0}}%
 347 }
 348 \@onlypreamble\reDeclareMathAlphabet
 349 \def\all@shape{all}%
 350 \def\DeclareRelationFont#1#2#3#4#5#6#7#8{%
 351   \def\rel@shape{#4}%
 352   \ifx\rel@shape\@empty
 353      \global
 354      \expandafter\def\csname rel@#1/#2/#3/all\endcsname{%
 355        \romanencoding{#5}\romanfamily{#6}%
 356        \romanseries{#7}}%
 357   \else
 358      \global
 359      \expandafter\def\csname rel@#1/#2/#3/#4\endcsname{%
 360        \romanencoding{#5}\romanfamily{#6}%
 361        \romanseries{#7}\romanshape{#8}}%
 362   \fi
 363 }
 364 \def\SetRelationFont#1#2#3#4#5#6#7#8{%
 365   \def\rel@shape{#4}%
 366   \ifx\rel@shape\@empty
 367      \expandafter\def\csname rel@#1/#2/#3/all\endcsname{%
 368        \romanencoding{#5}\romanfamily{#6}%
 369        \romanseries{#7}}%
 370   \else
 371      \expandafter\def\csname rel@#1/#2/#3/#4\endcsname{%
 372        \romanencoding{#5}\romanfamily{#6}%
 373        \romanseries{#7}\romanshape{#8}}%
 374   \fi
 375 }
 376 \newif\if@knjcmd
 377 \DeclareRobustCommand\userelfont{\@knjcmdtrue}
 378
 379 \def\ltj@selectfont@tate{%
 380   \let\k@encoding\ct@encoding
 381   \xdef\font@name{\csname\curr@kfontshape/\f@size\endcsname}%
 382   \pickup@tfont
 383   \ifnum\ltjgetparameter{direction}=3 \font@name
 384     \ltj@@does@alt@set{\curr@kfontshape}{%
 385       % alt fonts の定義
 386       \directlua{luatexja.jfont.output_alt_font_cmd('t', '\luatexluaescapestring{\curr@kfontshape}')}%
 387       % 定義した alt fonts のデータを \ltjdeclarealtfont に渡すのと同等の処理をする
 388       \directlua{luatexja.jfont.pickup_alt_font_a('\f@size')}%
 389     }%
 390   \fi}
 391 \def\ltj@selectfont@yoko{%
 392   \let\k@encoding\cy@encoding
 393   \xdef\font@name{\csname\curr@kfontshape/\f@size\endcsname}%
 394   \pickup@jfont
 395   \unless\ifnum\ltjgetparameter{direction}=3 \font@name
 396          \ltj@@does@alt@set{\curr@kfontshape}{%
 397       % alt fonts の定義
 398       \directlua{luatexja.jfont.output_alt_font_cmd('y', '\luatexluaescapestring{\curr@kfontshape}')}%
 399       % 定義した alt fonts のデータを \ltjdeclarealtfont に渡すのと同等の処理をする
 400       \directlua{luatexja.jfont.pickup_alt_font_a('\f@size')}%
 401     }%
 402   \fi}
 403 \ifnum\ltj@@latex@plv<1500 % <=2020-10-01
 404 \protected\def\ltj@selectfont@patch{%
 405   \ltj@@start@time@measure{selectfont}%
 406   \let\tmp@error@fontshape\error@fontshape
 407   \let\error@fontshape\error@kfontshape
 408   \ltj@@is@kyenc{\k@encoding}\ifin@%
 409     \let\cy@encoding\k@encoding
 410     \ensure@KanjiEncodingPair{t}%
 411     \edef\ct@encoding{\csname t@enc@\k@encoding\endcsname}%
 412   \else
 413     \ltj@@is@ktenc{\k@encoding}\ifin@%
 414       \let\ct@encoding\k@encoding
 415       \ensure@KanjiEncodingPair{y}%
 416       \edef\cy@encoding{\csname y@enc@\k@encoding\endcsname}%
 417     \else
 418       \@latex@error{KANJI Encoding scheme `\k@encoding' unknown}\@eha
 419     \fi
 420   \fi
 421   \global\let\ltj@afont@name=\font@name
 422   \ltj@selectfont@tate\ltj@selectfont@yoko
 423 %
 424   \edef\tmp@item{{\k@encoding}}\expandafter\def\expandafter\k@encoding\tmp@item
 425   \kenc@update
 426   \global\let\font@name=\ltj@afont@name
 427   \let\error@fontshape\tmp@error@fontshape
 428   \if@knjcmd \@knjcmdfalse
 429     \expandafter\ifx
 430     \csname rel@\k@encoding/\k@family/\k@series/\k@shape\endcsname\relax
 431       \expandafter\ifx
 432          \csname rel@\k@encoding/\k@family/\k@series/all\endcsname\relax
 433       \else
 434          \csname rel@\k@encoding/\k@family/\k@series/all\endcsname\selectfont
 435          % 警告: 再び \selectfont を呼んでいる．無限ループの可能性あり
 436       \fi
 437     \else
 438        \csname rel@\k@encoding/\k@family/\k@series/\k@shape\endcsname\selectfont
 439        % 警告: 再び \selectfont を呼んでいる．無限ループの可能性あり
 440     \fi
 441   \fi
 442   \global\let\font@name=\ltj@afont@name
 443   \ltj@@stop@time@measure{selectfont}%
 444 }
 445 \RequirePackage{everysel}
 446 \let\ltj@@EverySelectfont@Init=\@EverySelectfont@Init
 447 \expandafter\expandafter\expandafter\let
 448 \expandafter\expandafter\csname ltj@@orig@selectfont\endcsname\csname selectfont\space\endcsname
 449 \@EverySelectfont@Init% for LaTeX2e <=2020-10-01
 450 \def\@EverySelectfont@Init{%
 451   \expandafter\let\csname selectfont\space \endcsname \ltj@@orig@selectfont
 452   \ltj@@EverySelectfont@Init
 453 }
 454 \EverySelectfont{\ltj@selectfont@patch}
 455 \else % LaTeX2e >=2021-06-01
 456 \AddToHook{selectfont}[luatexja]{%
 457   \ltj@@start@time@measure{selectfont}%
 458   \ifx\delayed@k@adjustment\@empty
 459   \else
 460     \let\k@shape@saved\k@shape
 461     \let\k@series@saved\k@series
 462     \delayed@k@adjustment
 463     \begingroup\let\f@encoding\k@encoding\let\f@family\k@family
 464       \maybe@load@fontshape\endgroup
 465     \ifcsname \k@encoding/\k@family/\k@series/\k@shape \endcsname
 466     \else
 467       \let\k@shape\k@shape@saved
 468       \let\k@series\k@series@saved
 469       \let\delayed@merge@kanji@shape\merge@kanji@shape
 470       \let\delayed@merge@kanji@series\merge@kanji@series
 471       \delayed@k@adjustment
 472       \let\delayed@merge@kanji@shape\merge@kanji@shape@without@substitution
 473       \let\delayed@merge@kanji@series\merge@kanji@series@without@substitution
 474     \fi
 475     \let\delayed@k@adjustment\@empty
 476   \fi
 477   \@forced@series@kanjifalse
 478   \let\tmp@error@fontshape\error@fontshape
 479   \let\error@fontshape\error@kfontshape
 480   \ltj@@is@kyenc{\k@encoding}\ifin@%
 481     \let\cy@encoding\k@encoding
 482     \ensure@KanjiEncodingPair{t}%
 483     \edef\ct@encoding{\csname t@enc@\k@encoding\endcsname}%
 484   \else
 485     \ltj@@is@ktenc{\k@encoding}\ifin@%
 486       \let\ct@encoding\k@encoding
 487       \ensure@KanjiEncodingPair{y}%
 488       \edef\cy@encoding{\csname y@enc@\k@encoding\endcsname}%
 489     \else
 490       \@latex@error{KANJI Encoding scheme `\k@encoding' unknown}\@eha
 491     \fi
 492   \fi
 493   \global\let\ltj@afont@name=\font@name
 494   \ltj@selectfont@tate\ltj@selectfont@yoko
 495 %
 496   \edef\tmp@item{{\k@encoding}}\expandafter\def\expandafter\k@encoding\tmp@item
 497   \kenc@update
 498   \global\let\font@name=\ltj@afont@name
 499   \let\error@fontshape\tmp@error@fontshape
 500   \if@knjcmd \@knjcmdfalse
 501     \expandafter\ifx
 502     \csname rel@\k@encoding/\k@family/\k@series/\k@shape\endcsname\relax
 503       \expandafter\ifx
 504          \csname rel@\k@encoding/\k@family/\k@series/all\endcsname\relax
 505       \else
 506          \csname rel@\k@encoding/\k@family/\k@series/all\endcsname\selectfont
 507          % 警告: 再び \selectfont を呼んでいる．無限ループの可能性あり
 508       \fi
 509     \else
 510        \csname rel@\k@encoding/\k@family/\k@series/\k@shape\endcsname\selectfont
 511        % 警告: 再び \selectfont を呼んでいる．無限ループの可能性あり
 512     \fi
 513   \fi
 514   \global\let\font@name=\ltj@afont@name
 515   \ltj@@stop@time@measure{selectfont}%
 516 }
 517 \fi
 518
 519 \bgroup
 520   \def\ltj@@dir@patch#1#2#3{%
 521     \global\csletcs{ltj@@orig@#1}{#1}%
 522       \protected\expandafter\xdef\csname #1\endcsname{%
 523         \csname ltj@@orig@#1\endcsname
 524         \unexpanded{\ifnum#3<\z@\let\ltj@@protect\protect\set@typeset@protect}%
 525         \unexpanded{\global\let\ltj@afont@name=\font@name}%
 526         \expandonce{\csname ltj@selectfont@#2\endcsname}%
 527         \unexpanded{\global\let\font@name=\ltj@afont@name}%
 528         \unexpanded{\let\protect\ltj@@protect\fi}%
 529       }%
 530     }
 531   \ltj@@dir@patch{yoko}{yoko}{\ltj@curjfnt}
 532   \ltj@@dir@patch{tate}{tate}{\ltj@curtfnt}
 533   \ltj@@dir@patch{utod}{yoko}{\ltj@curjfnt}
 534   \ltj@@dir@patch{dtou}{yoko}{\ltj@curjfnt}
 535   \global\let\ltj@@box@dirhook@orig=\ltj@@box@dirhook
 536   \gdef\ltj@@box@dirhook{%
 537      \ltj@@box@dirhook@orig
 538      \ifnum\ltjgetparameter{direction}=11
 539        \ifnum\ltj@curjfnt<\z@
 540          \let\ltj@@protect\protect\set@typeset@protect
 541          \global\let\ltj@afont@name=\font@name
 542          \ltj@selectfont@yoko
 543          \global\let\font@name=\ltj@afont@name
 544          \let\protect\ltj@@protect
 545        \fi
 546      \fi
 547   }
 548 \egroup
 549
 550 \def\KanjiEncodingPair#1#2{\@namedef{t@enc@#1}{#2}\@namedef{y@enc@#2}{#1}}
 551 \def\ensure@KanjiEncodingPair#1{%
 552   \edef\reserved@a{\csname #1@enc@\k@encoding\endcsname}%
 553   \edef\reserved@b{\csname c#1@encoding\endcsname}%
 554   \ifcat\relax\reserved@a
 555     \@latex@error
 556       {KANJI Encoding pair for `\k@encoding' undefined}%
 557       {Use \string\KanjiEncodingPair, falling back to `\reserved@b'...}%
 558     \expandafter\edef\reserved@a{\reserved@b}%
 559   \fi}
 560
 561 \def\set@fontsize#1#2#3{%
 562     \@defaultunits\@tempdimb#2pt\relax\@nnil
 563     \edef\f@size{\strip@pt\@tempdimb}%
 564     \@defaultunits\@tempskipa#3pt\relax\@nnil
 565     \edef\f@baselineskip{\the\@tempskipa}%
 566     \edef\f@linespread{#1}%
 567     \let\baselinestretch\f@linespread
 568     \def\size@update{%
 569       \baselineskip\f@baselineskip\relax
 570       \baselineskip\f@linespread\baselineskip
 571       \normalbaselineskip\baselineskip
 572       \adjustbaseline
 573       \setbox\ystrutbox\hbox{\ltj@@orig@yoko
 574           \vrule\@width\z@
 575                 \@height.7\baselineskip \@depth.3\baselineskip}%
 576       \setbox\dstrutbox\hbox{\ltj@@orig@dtou
 577           \vrule\@width\z@
 578                 \@height.7\baselineskip \@depth.3\baselineskip}%
 579       \setbox\tstrutbox\hbox{\ltj@@orig@tate
 580           \vrule\@width\z@
 581                 \@height.5\baselineskip \@depth.5\baselineskip}%
 582       \setbox\zstrutbox\hbox{\ltj@@orig@utod
 583           \vrule\@width\z@
 584                 \@height.7\baselineskip \@depth.3\baselineskip}%
 585      \let\size@update\relax}}
 586
 587 \newluafunction\ltj@@adjust@baseline@inner
 588 \begingroup\catcode`\~=12
 589 \directlua{%
 590   local nulltable = {}
 591   local t = lua.get_functions_table()
 592   local getfont, dir_tate = font.getfont, luatexja.dir_table.dir_tate
 593   local fmt, get_attr = luatexja.jfont.font_metric_table, tex.getattribute
 594   local getcount=tex.getcount
 595   local setdimen, set_attr = tex.setdimen, tex.setattribute
 596   local dir = luatexja.unary_pars.direction
 597   t[\the\ltj@@adjust@baseline@inner] = function()
 598     local ft = fmt[get_attr('ltj@curtfnt')] or nulltable
 599     ft = ft.char_type or nulltable
 600     local fk = ft[0] or nulltable
 601     local ht, dp, wd = fk.height or 0, fk.depth or 0,
 602                        fk.width or ft.zw or 0
 603     local fm
 604       = ((getfont(font.current()) or nulltable)
 605         .characters or nulltable)[77] or nulltable %% 'M'
 606     set_attr('ltj@tablshift',
 607       tex.round(0.5*((fm.height or 0)- (fm.depth or 0) - ht+ dp)))
 608     if dir() ~= dir_tate then
 609       ft = fmt[get_attr('ltj@curjfnt')] or nulltable
 610       ft = ft.char_type or nulltable
 611       fk = ft[0] or nulltable
 612       ht, dp, wd = fk.height or 0, fk.depth or 0,
 613                    fk.width or ft.zw or 0
 614     end
 615     setdimen('cht', ht); setdimen('cdp', dp)
 616     setdimen('cwd', wd); setdimen('chs', wd)
 617     setdimen('cHT', ht+dp)
 618   end
 619 }\endgroup
 620 \DeclareRobustCommand\adjustbaseline{\luafunction\ltj@@adjust@baseline@inner
 621    \cvs\normalbaselineskip}
 622 \DeclareRobustCommand\romanencoding[1]{%
 623     \expandafter\ifx\csname T@#1\endcsname\relax
 624       \@latex@error{Encoding scheme `#1' unknown}\@eha
 625     \else
 626       \edef\f@encoding{#1}%
 627       \ifx\cf@encoding\f@encoding
 628         \let\enc@update\relax
 629       \else
 630         \let\enc@update\@@enc@update
 631       \fi
 632     \fi
 633 }
 634 \DeclareRobustCommand\kanjiencoding[1]{%
 635     \expandafter\ifx\csname T@#1\endcsname\relax
 636       \@latex@error{KANJI Encoding scheme `#1' unknown}\@eha
 637     \else
 638       \edef\k@encoding{#1}%
 639       \ifx\ck@encoding\k@encoding
 640          \let\kenc@update\relax
 641       \else
 642          \let\kenc@update\@@kenc@update
 643       \fi
 644     \fi
 645 }
 646 \DeclareRobustCommand\fontencoding[1]{%
 647   \ltj@@is@kenc{#1}\ifin@\kanjiencoding{#1}\else\romanencoding{#1}\fi}
 648 \def\@@kenc@update{%
 649   \default@KT
 650   \csname T@\k@encoding\endcsname
 651   \csname D@\k@encoding\endcsname
 652   \let\kenc@update\relax
 653   \let\ck@encoding\k@encoding
 654   \ltj@@is@kyenc{\k@encoding}\ifin@
 655     \let\cy@encoding\k@encoding
 656   \else
 657     \ltj@@is@ktenc{\k@encoding}\ifin@
 658       \let\ct@encoding\k@encoding
 659     \else
 660       \@latex@error{KANJI Encoding scheme `\k@encoding' unknown}\@eha
 661     \fi
 662   \fi
 663 }
 664 \let\kenc@update\relax
 665 \def\@changed@kcmd#1#2{%
 666    \ifx\protect\@typeset@protect
 667       \@inmathwarn#1%
 668       \expandafter\ifx\csname\ck@encoding\string#1\endcsname\relax
 669          \expandafter\ifx\csname ?\string#1\endcsname\relax
 670             \expandafter\def\csname ?\string#1\endcsname{%
 671                \TextSymbolUnavailable#1%
 672             }%
 673          \fi
 674          \global\expandafter\let
 675                \csname\cf@encoding \string#1\expandafter\endcsname
 676                \csname ?\string#1\endcsname
 677       \fi
 678       \csname\ck@encoding\string#1%
 679          \expandafter\endcsname
 680    \else
 681       \noexpand#1%
 682    \fi}
 683 \newif\if@notkfam
 684 \newif\if@notffam
 685 \newif\if@tempswz
 686 \def\@ltj@use@fd{true}
 687 \DeclareRobustCommand\romanfamily[1]{\edef\f@family{#1}}
 688 \DeclareRobustCommand\kanjifamily[1]{\edef\k@family{#1}}
 689 \DeclareRobustCommand\fontfamily[1]{%
 690   \@notkfamfalse\@notffamfalse
 691   %
 692   \directlua{luatexja.jfont.search_kfam()}{#1}{\@ltj@use@fd}%
 693   \ifin@\edef\k@family{#1}\else\@notkfamtrue\fi
 694   %
 695   % alphabetic fonts part
 696   \ltj@@is@ffam{#1}%
 697   \ifin@\edef\f@family{#1}\else
 698     % checking is_stored_ffam is not sufficient,
 699     % since LuaTeX-ja doesn't know whats fonts are defined before LuaTeX-ja is loaded.
 700     \ifcsname \f@encoding+#1\endcsname % easy case
 701       \ltj@@add@ffam{#1}\edef\f@family{#1}%
 702     \else
 703       \@tempswafalse
 704       \def\cdp@elt##1{\ifcsname ##1+#1\endcsname%
 705         \@tempswatrue\def\cdp@elt####1\relax{}%
 706       \fi}%
 707       \directlua{luatexja.jfont.search_ffam_declared()}\relax%
 708       \if@tempswz
 709         \ltj@@add@ffam{#1}\edef\f@family{#1}%
 710       \else
 711         % now we search Nffam_list and font definition files.
 712         \directlua{luatexja.jfont.search_ffam_fd()}{#1}%
 713         \ifin@\edef\f@family{#1}\else\@notffamtrue\fi
 714       \fi
 715     \fi
 716   \fi
 717   %
 718   \if@notkfam\if@notffam
 719     \edef\k@family{#1}\edef\f@family{#1}%
 720   \fi\fi
 721 }
 722
 723 %%%%%%
 724 \ifnum\ltj@@latex@plv>0
 725 %%%% LaTeX >= 2020-02-02
 726 \newif\if@shape@roman@kanji
 727
 728 \def\merge@kanji@series#1{%
 729   \expandafter\expandafter\expandafter
 730   \merge@kanji@series@
 731     \csname series@\k@series @#1\endcsname
 732     {#1}%
 733     \@nil
 734 }
 735 \def\merge@kanji@shape#1{%
 736   \expandafter\expandafter\expandafter
 737   \merge@kanji@shape@
 738     \csname shape@\k@shape @#1\endcsname
 739     {#1}%
 740     \@nil
 741 }
 742
 743 \ifnum\ltj@@latex@plv>500 % !!! pl5 + develop
 744   \def\set@target@series@kanji#1{%
 745       \edef\k@series{#1}%
 746       \series@maybe@drop@one@m\k@series\k@series
 747   }
 748 \else\ifnum\ltj@@latex@plv>300 % !!! pl5
 749   \def\set@target@series@kanji#1{%
 750       \edef\k@series{#1}%
 751       \expandafter\series@maybe@drop@one@m\expandafter{\k@series}\k@series
 752   }
 753 \else % !!! pl 3, 4
 754   \def\set@target@series@kanji#1{%
 755     \edef\k@series{#1}%
 756     \edef\k@series{\expandafter\series@drop@one@m\k@series mm\series@drop@one@m}%
 757   }
 758 \fi\fi
 759
 760 \ifnum\ltj@@latex@plv<1500% <=2020-10-01
 761 \def\merge@kanji@series@#1#2#3\@nil{%
 762   \def\reserved@a{#3}%
 763   \ifx\reserved@a\@empty
 764     \set@target@series@kanji{#2}%
 765   \else
 766     \begingroup\let\f@encoding\k@encoding\let\f@family\k@family
 767     \maybe@load@fontshape\endgroup
 768     \edef\reserved@a{\k@encoding /\k@family /#1/\k@shape}%
 769      \ifcsname \reserved@a \endcsname
 770        \set@target@series@kanji{#1}%
 771     \else
 772        \ifcsname \k@encoding /\k@family /#2/\k@shape \endcsname
 773          \set@target@series@kanji{#2}%
 774          {\let\curr@fontshape\curr@kfontshape\@font@shape@subst@warning}%
 775        \else
 776          \set@target@series@kanji{#3}%
 777          {\let\curr@fontshape\curr@kfontshape\@font@shape@subst@warning}%
 778        \fi
 779     \fi
 780   \fi
 781 }
 782 \def\merge@kanji@shape@#1#2#3\@nil{%
 783   \def\reserved@a{#3}%
 784   \ifx\reserved@a\@empty
 785     \if@shape@roman@kanji
 786       \set@safe@kanji@shape{#2}{}%
 787     \else
 788       \edef\k@shape{#2}%
 789     \fi
 790   \else
 791     \begingroup\let\f@encoding\k@encoding\let\f@family\k@family
 792            \maybe@load@fontshape\endgroup
 793     \edef\reserved@a{\k@encoding /\k@family /\k@series/#1}%
 794      \ifcsname \reserved@a\endcsname
 795        \edef\k@shape{#1}%
 796     \else
 797        \ifcsname \k@encoding /\k@family /\k@series/#2\endcsname
 798          \edef\k@shape{#2}%
 799          {\let\curr@fontshape\curr@kfontshape\@font@shape@subst@warning}%
 800        \else
 801          \if@shape@roman@kanji
 802            \set@safe@kanji@shape{#3}%
 803            {{\let\curr@fontshape\curr@kfontshape\@font@shape@subst@warning}}%
 804          \else
 805            \edef\k@shape{#3}%
 806            {\let\curr@fontshape\curr@kfontshape\@font@shape@subst@warning}%
 807          \fi
 808        \fi
 809     \fi
 810   \fi
 811 }
 812 \else % >=2021-06-01
 813 \def\merge@kanji@series@#1#2#3\@nil{%
 814   \def\reserved@a{#3}%
 815   \ifx\reserved@a\@empty
 816     \set@target@series@kanji{#2}%
 817   \else
 818     \begingroup\let\f@encoding\k@encoding\let\f@family\k@family
 819     \maybe@load@fontshape\endgroup
 820     \edef\reserved@a{\k@encoding /\k@family /#1/\k@shape}%
 821      \ifcsname \reserved@a \endcsname
 822        \set@target@series@kanji{#1}%
 823     \else
 824        \ifcsname \k@encoding /\k@family /#2/\k@shape \endcsname
 825          \set@target@series@kanji{#2}%
 826          {\let\curr@fontshape\curr@kfontshape\@font@shape@subst@warning}%
 827        \else
 828          \set@target@series@kanji{#3}%
 829          {\let\curr@fontshape\curr@kfontshape\@font@shape@subst@warning}%
 830        \fi
 831     \fi
 832   \fi
 833 }
 834 \def\merge@kanji@series@without@substitution#1{%
 835   \expandafter\expandafter\expandafter
 836   \merge@kanji@series@without@substitution@
 837     \csname series@\k@series @#1\endcsname
 838     {#1}%
 839     \@nil
 840 }
 841 \def\merge@kanji@series@without@substitution@#1#2#3\@nil{%
 842   \def\reserved@a{#3}%
 843   \ifx\reserved@a\@empty
 844     \set@target@series@kanji{#2}%
 845   \else
 846     \set@target@series@kanji{#1}%
 847   \fi
 848 }
 849 \let\delayed@merge@kanji@series\merge@kanji@series@without@substitution
 850
 851 \def\merge@kanji@shape@#1#2#3\@nil{%
 852   \def\reserved@a{#3}%
 853   \ifx\reserved@a\@empty
 854     \if@shape@roman@kanji
 855       \set@safe@kanji@shape{#2}{}%
 856     \else
 857       \edef\k@shape{#2}%
 858     \fi
 859   \else
 860     \edef\reserved@a{\k@encoding /\k@family /\k@series/#1}%
 861      \ifcsname \reserved@a\endcsname
 862        \edef\k@shape{#1}%
 863     \else
 864        \ifcsname \k@encoding /\k@family /\k@series/#2\endcsname
 865          \edef\k@shape{#2}%
 866          {\let\curr@fontshape\curr@kfontshape\@font@shape@subst@warning}%
 867        \else
 868          \if@shape@roman@kanji
 869            \set@safe@kanji@shape{#3}%
 870            {{\let\curr@fontshape\curr@kfontshape\@font@shape@subst@warning}}%
 871          \else
 872            \edef\k@shape{#3}%
 873            {\let\curr@fontshape\curr@kfontshape\@font@shape@subst@warning}%
 874          \fi
 875        \fi
 876     \fi
 877   \fi
 878 }
 879 \def\merge@kanji@shape@without@substitution#1{%
 880   \expandafter\expandafter\expandafter
 881   \merge@kanji@shape@without@substitution@
 882     \csname shape@\k@shape @#1\endcsname
 883     {#1}%
 884     \@nil
 885 }
 886 \def\merge@kanji@shape@without@substitution@#1#2#3\@nil{%
 887   \def\reserved@a{#3}%
 888   \ifx\reserved@a\@empty
 889     \edef\k@shape{#2}%
 890   \else
 891     \edef\k@shape{#1}%
 892   \fi
 893 }
 894 \let\delayed@merge@kanji@shape\merge@kanji@shape@without@substitution
 895 \fi
 896
 897 \newif\if@forced@series@kanji
 898 \ifnum\ltj@@latex@plv=300 % 2020-02-02 pl3, 4
 899   \DeclareRobustCommand\romanseries[1]{\merge@font@series{#1}}
 900   \DeclareRobustCommand\kanjiseries[1]{\merge@kanji@series{#1}}
 901   \DeclareRobustCommand\romanseriesforce[1]{\edef\f@series{#1}}
 902   \DeclareRobustCommand\kanjiseriesforce[1]{\edef\k@series{#1}}
 903 \else\ifnum\ltj@@latex@plv<1500% >=2020-02-02 pl5 and <=2020-10-01
 904   \DeclareRobustCommand\romanseries[1]{\@forced@seriesfalse\merge@font@series{#1}}
 905   \DeclareRobustCommand\kanjiseries[1]{\@forced@series@kanjifalse\merge@kanji@series{#1}}
 906   \DeclareRobustCommand\romanseriesforce[1]{\@forced@seriestrue\edef\f@series{#1}}
 907   \DeclareRobustCommand\kanjiseriesforce[1]{\@forced@series@kanjitrue\edef\k@series{#1}}
 908 \else% >=2021-06-01
 909   \DeclareRobustCommand\romanseries[1]{\@forced@seriesfalse
 910       \expandafter\def\expandafter\delayed@f@adjustment\expandafter
 911           {\delayed@f@adjustment\delayed@merge@font@series{#1}}}
 912   \DeclareRobustCommand\kanjiseries[1]{\@forced@series@kanjifalse
 913       \expandafter\def\expandafter\delayed@k@adjustment\expandafter
 914           {\delayed@k@adjustment\delayed@merge@kanji@series{#1}}}
 915   \DeclareRobustCommand\romanseriesforce[1]{\@forced@seriestrue
 916       \expandafter\def\expandafter\delayed@f@adjustment\expandafter
 917           {\delayed@f@adjustment\edef\f@series{#1}}}
 918   \DeclareRobustCommand\kanjiseriesforce[1]{\@forced@series@kanjitrue
 919       \expandafter\def\expandafter\delayed@k@adjustment\expandafter
 920           {\delayed@k@adjustment\edef\k@series{#1}}}
 921   \let\delayed@k@adjustment\@empty
 922 \fi\fi
 923 \DeclareRobustCommand\fontseries[1]{\kanjiseries{#1}\romanseries{#1}}%
 924 \DeclareRobustCommand\fontseriesforce[1]{\kanjiseriesforce{#1}\romanseriesforce{#1}}%
 925
 926 \ifnum\ltj@@latex@plv<1500% <=2020-10-01
 927   \DeclareRobustCommand\romanshape[1]{\merge@font@shape{#1}}
 928   \DeclareRobustCommand\kanjishape[1]{\merge@kanji@shape{#1}}
 929   \DeclareRobustCommand\fontshape[1]{%
 930      \@shape@roman@kanjitrue
 931      \merge@font@shape{#1}\merge@kanji@shape{#1}%
 932      \@shape@roman@kanjifalse
 933   }
 934   \DeclareRobustCommand\romanshapeforce[1]{\edef\f@shape{#1}}
 935   \DeclareRobustCommand\kanjishapeforce[1]{\edef\k@shape{#1}}
 936   \DeclareRobustCommand\fontshapeforce[1]{\set@safe@kanji@shape{#1}{}\romanshapeforce{#1}}
 937 \else% >=2021-06-01
 938   \DeclareRobustCommand\romanshape[1]{%
 939        \expandafter\def\expandafter\delayed@f@adjustment\expandafter
 940            {\delayed@f@adjustment\delayed@merge@font@shape{#1}}}
 941   \DeclareRobustCommand\kanjishape[1]{%
 942        \expandafter\def\expandafter\delayed@k@adjustment\expandafter
 943            {\delayed@k@adjustment\delayed@merge@kanji@shape{#1}}}
 944   \DeclareRobustCommand\fontshape[1]{%
 945       \romanshape{#1}%
 946       \expandafter\def\expandafter\delayed@k@adjustment\expandafter
 947           {\delayed@k@adjustment\@shape@roman@kanjitrue
 948            \delayed@merge@kanji@shape{#1}\@shape@roman@kanjifalse}}
 949   \DeclareRobustCommand\romanshapeforce[1]{%
 950       \expandafter\def\expandafter\delayed@f@adjustment\expandafter
 951           {\delayed@f@adjustment\edef\f@shape{#1}}}
 952   \DeclareRobustCommand\kanjishapeforce[1]{%
 953       \expandafter\def\expandafter\delayed@k@adjustment\expandafter
 954           {\delayed@k@adjustment\edef\k@shape{#1}}}
 955   \DeclareRobustCommand\fontshapeforce[1]{%
 956      \romanshapeforce{#1}%
 957      \expandafter\def\expandafter\delayed@k@adjustment\expandafter
 958          {\delayed@k@adjustment\set@safe@kanji@shape{#1}{}}}
 959 \fi
 960 \ifnum\ltj@@latex@plv>1499
 961 %%%% LaTeX >= 2021-06-01
 962 \DeclareRobustCommand\usekanji[4]{%
 963     \kanjiencoding{#1}\edef\k@family{#2}%
 964     \set@target@series@kanji{#3}\edef\k@shape{#4}%
 965     \let\delayed@k@adjustment\@empty
 966     \selectfont\ignorespaces}
 967 \DeclareRobustCommand\useroman[4]{%
 968     \romanencoding{#1}\edef\f@family{#2}%
 969     \set@target@series{#3}\edef\f@shape{#4}%
 970     \let\delayed@f@adjustment\@empty
 971     \selectfont\ignorespaces}
 972 \else\ifnum\ltj@@latex@plv>1000
 973 %%%% 2021-10-01 PL3 <= LaTeX < 2021-06-01
 974 \DeclareRobustCommand\usekanji[4]{%
 975     \kanjiencoding{#1}\edef\k@family{#2}%
 976     \set@target@series@kanji{#3}\edef\k@shape{#4}%
 977     \selectfont\ignorespaces}
 978 \DeclareRobustCommand\useroman[4]{%
 979     \romanencoding{#1}\edef\f@family{#2}%
 980     \set@target@series{#3}\edef\f@shape{#4}%
 981     \selectfont\ignorespaces}
 982 \else
 983 %%%% 2020-10-01 <= LaTeX < 2020-10-01 PL3
 984 \DeclareRobustCommand\usekanji[4]{%
 985     \kanjiencoding{#1}\edef\k@family{#2}\edef\k@series{#3}\edef\k@shape{#4}%
 986     \selectfont\ignorespaces}
 987 \DeclareRobustCommand\useroman[4]{%
 988     \romanencoding{#1}\edef\f@family{#2}\edef\f@series{#3}\edef\f@shape{#4}%
 989     \selectfont\ignorespaces}
 990 \fi\fi
 991 %%%% LaTeX >= 2020-02-02 END
 992 \else
 993 %%%% LaTeX 2019-10-01
 994 \DeclareRobustCommand\romanseries[1]{\edef\f@series{#1}}
 995 \DeclareRobustCommand\kanjiseries[1]{\edef\k@series{#1}}
 996 \DeclareRobustCommand\fontseries[1]{\kanjiseries{#1}\romanseries{#1}}
 997 \DeclareRobustCommand\romanshape[1]{\edef\f@shape{#1}}
 998 \DeclareRobustCommand\kanjishape[1]{\edef\k@shape{#1}}
 999 \DeclareRobustCommand\fontshape[1]{\set@safe@kanji@shape{#1}{}\romanshape{#1}}
1000 \DeclareRobustCommand\usekanji[4]{%
1001     \kanjiencoding{#1}\kanjifamily{#2}\kanjiseries{#3}\kanjishape{#4}%
1002     \selectfont\ignorespaces}
1003 \DeclareRobustCommand\useroman[4]{%
1004     \romanencoding{#1}\romanfamily{#2}\romanseries{#3}\romanshape{#4}%
1005     \selectfont\ignorespaces}
1006 %%%% LaTeX 2019-10-01 END
1007 \fi
1008 %%%%
1009
1010 \def\set@safe@kanji@shape#1#2{%
1011   \edef\reserved@b{\k@encoding /\k@family /\k@series/#1}%
1012   \ifcsname \reserved@b\endcsname
1013     \edef\k@shape{#1}%
1014     #2%
1015   \else
1016     \@kanji@shape@nochange@info{\reserved@b}%
1017   \fi
1018 }
1019 \def\@kanji@shape@nochange@info#1{%
1020     \@font@info{Kanji font shape `#1' undefined\MessageBreak
1021                 No change}%
1022 }
1023
1024 \protected\def\usefont#1#2#3#4{%
1025   \ltj@@is@kenc{#1}\ifin@\usekanji{#1}{#2}{#3}{#4}%
1026   \else\useroman{#1}{#2}{#3}{#4}%
1027   \fi}
1028
1029 \ifnum 0\ifltj@ltfilehook@avail1\fi\ifdefined\@rmfamilyhook1\fi>0
1030 %%%% LaTeX >= 2020-02-02
1031 \let\prepare@family@series@update@kanji=\prepare@family@series@update
1032 \patchcmd\prepare@family@series@update{\fontfamily}{\romanfamily}{}{}
1033 \patchcmd\prepare@family@series@update@kanji{\if@forced@series}{\if@forced@series@kanji}{}{}
1034 \patchcmd\prepare@family@series@update@kanji{\fontfamily}{\kanjifamily}{}{}
1035 \patchcmd\prepare@family@series@update@kanji{\update@series@target@value}{\update@series@target@value@kanji}{}{}
1036 \patchcmd\prepare@family@series@update@kanji{\f@family}{\k@family}{}{}
1037 \patchcmd\prepare@family@series@update@kanji{\@meta@family@list}{\@meta@family@list@kanji}{}{}
1038 \patchcmd\prepare@family@series@update@kanji{\fontfamily}{\kanjifamily}{}{}
1039 \patchcmd\prepare@family@series@update@kanji{\maybe@load@fontshape}
1040   {\begingroup\let\f@encoding\k@encoding\let\f@family\k@family
1041     \maybe@load@fontshape\endgroup}{}{}
1042 \patchcmd\prepare@family@series@update@kanji{\f@series}{\k@series}{}{}
1043 \patchcmd\prepare@family@series@update@kanji{\f@series}{\k@series}{}{}
1044 \let\update@series@target@value@kanji=\update@series@target@value
1045 \patchcmd\update@series@target@value@kanji{\f@family}{\k@family}{}{}
1046 \patchcmd\update@series@target@value@kanji{\f@series}{\k@series}{}{}
1047 \patchcmd\update@series@target@value@kanji{\f@series}{\k@series}{}{}
1048 \patchcmd\update@series@target@value@kanji{\f@series}{\k@series}{}{}
1049 \patchcmd\update@series@target@value@kanji{\f@series}{\k@series}{}{}
1050 \def\@meta@family@list@kanji{\@elt{mc}\@elt{gt}\@elt{jtt}}
1051
1052 \def\@ltj@hook@series@default#1#2#3{%
1053   \ifltj@ltfilehook@avail % 2020-10-01
1054     \AddToHook{#1/defaults}{#2}%
1055   \else\ifcsname @set#1defaultshook\endcsname %after 2020-04-07
1056     \expandafter\g@addto@macro\csname @set#1defaultshook\endcsname{#2}%
1057   \else % 2020-02-02
1058     \expandafter\patchcmd\csname #1 \endcsname{#3}{#3#2}{}{}%
1059   \fi\fi
1060 }
1061 \@ltj@hook@series@default{bfseries}{%
1062   \let\bfseries@mc\bfdef@ult
1063   \let\bfseries@gt\bfdef@ult
1064   \let\bfseries@jtt\bfdef@ult
1065 }{%
1066   \let\bfseries@rm\bfdef@ult
1067   \let\bfseries@sf\bfdef@ult
1068   \let\bfseries@tt\bfdef@ult
1069 }
1070 \@ltj@hook@series@default{mdseries}{%
1071   \let\mdseries@mc\mddef@ult
1072   \let\mdseries@gt\mddef@ult
1073   \let\mdseries@jtt\mddef@ult
1074 }{%
1075   \let\mdseries@rm\mddef@ult
1076   \let\mdseries@sf\mddef@ult
1077   \let\mdseries@tt\mddef@ult
1078 }
1079 \let\@ltj@hook@series@default\@undefined
1080
1081 \expandafter\patchcmd\csname bfseries \endcsname{%
1082   \ifx\f@family\rmdef@ult      \fontseries\bfseries@rm
1083   \else\ifx\f@family\sfdef@ult \fontseries\bfseries@sf
1084   \else\ifx\f@family\ttdef@ult \fontseries\bfseries@tt
1085   \else                        \fontseries\bfdefault
1086   \fi\fi\fi
1087 }{%
1088   \ifx\f@family\rmdef@ult      \romanseries\bfseries@rm
1089   \else\ifx\f@family\sfdef@ult \romanseries\bfseries@sf
1090   \else\ifx\f@family\ttdef@ult \romanseries\bfseries@tt
1091   \else                        \romanseries\bfdefault
1092   \fi\fi\fi
1093 }{}{}
1094 \expandafter\patchcmd\csname mdseries \endcsname{%
1095   \ifx\f@family\rmdef@ult      \fontseries\mdseries@rm
1096   \else\ifx\f@family\sfdef@ult \fontseries\mdseries@sf
1097   \else\ifx\f@family\ttdef@ult \fontseries\mdseries@tt
1098   \else                        \fontseries\mddefault
1099   \fi\fi\fi
1100 }{%
1101   \ifx\f@family\rmdef@ult      \romanseries\mdseries@rm
1102   \else\ifx\f@family\sfdef@ult \romanseries\mdseries@sf
1103   \else\ifx\f@family\ttdef@ult \romanseries\mdseries@tt
1104   \else                        \romanseries\mddefault
1105   \fi\fi\fi
1106 }{}{}
1107
1108 \def\@ltj@hook@series#1#2{%
1109   \ifltj@ltfilehook@avail % 2020-10-01
1110     \AddToHook{#1}{#2}%
1111   \else % 2020-02-02
1112     \expandafter\patchcmd\csname #1 \endcsname{\selectfont}{#2\selectfont}{}{}%
1113   \fi
1114 }
1115 \@ltj@hook@series{bfseries}{%
1116   \ifx\k@family\mcdef@ult      \kanjiseries\bfseries@mc
1117   \else\ifx\k@family\gtdef@ult \kanjiseries\bfseries@gt
1118   \else\ifx\k@family\jttdef@ult\kanjiseries\bfseries@jtt
1119   \else                        \kanjiseries\bfdefault
1120   \fi\fi\fi
1121 }
1122 \@ltj@hook@series{mdseries}{%
1123   \ifx\k@family\mcdef@ult      \kanjiseries\mdseries@mc
1124   \else\ifx\k@family\gtdef@ult \kanjiseries\mdseries@gt
1125   \else\ifx\k@family\jttdef@ult\kanjiseries\mdseries@jtt
1126   \else                        \kanjiseries\mddefault
1127   \fi\fi\fi
1128 }
1129 \let\@ltj@hook@series\@undefined
1130
1131 \def\@ltj@hook@efd#1#2{%
1132   \ifltj@ltfilehook@avail % 2020-10-01
1133     \AddToHook{expand@font@defaults}{#1}%
1134   \else\ifdefined\@expandfontdefaultshook %after 2020-04-07
1135     \g@addto@macro\@expandfontdefaultshook{#1#2}%
1136   \else % 2020-02-02
1137     \appto\expand@font@defaults{#1#2}%
1138   \fi\fi
1139 }
1140 \@ltj@hook@efd{%
1141   \edef\mcdef@ult{\mcdefault}%
1142   \edef\gtdef@ult{\gtdefault}%
1143   \edef\jttdef@ult{\jttdefault}%
1144 }{\edef\kanjidef@ult{\kanjifamilydefault}}
1145 \let\@ltj@hook@efd\@undefined
1146
1147 \ifltj@ltfilehook@avail % 2020-10-01
1148   \appto\init@series@setup{%
1149     \ifx\kanjiseriesdefault\kanjiseriesdefault@kernel
1150       \mdseries
1151       \let\kanjiseriesdefault\k@series
1152     \fi
1153   }
1154 \else
1155   \appto\init@series@setup{%
1156     \ifx\kanjidef@ult\mcdef@ult      \mcfamily
1157     \else\ifx\kanjidef@ult\gtdef@ult \gtfamily
1158     \else\ifx\kanjidef@ult\jttdef@ult \jttfamily
1159     \fi\fi\fi
1160   }
1161 \fi
1162
1163 \def\@ltj@hook@dfh#1{%
1164   \ifltj@ltfilehook@avail % 2020-10-01
1165     \AddToHook{normalfont}{#1}%
1166   \else\ifdefined\@defaultfamilyhook
1167     \g@addto@macro\@defaultfamilyhook{#1}%
1168   \else % 2020-02-02
1169     \expandafter\patchcmd\csname normalfont \endcsname{\selectfont}{#1\selectfont}{}{}%
1170     \let\reset@font\normalfont
1171   \fi\fi
1172 }
1173
1174 \ifnum\ltj@@latex@plv>1499
1175 \@ltj@hook@dfh{%
1176   \kanjiencoding{\kanjiencodingdefault}%
1177   \edef\k@family{\kanjifamilydefault}%
1178   \edef\k@series{\kanjiseriesdefault}%
1179   \edef\k@shape{\kanjishapedefault}%
1180   \let\delayed@k@adjustment\empty
1181 }
1182 \else
1183 \@ltj@hook@dfh{%
1184   \kanjiencoding{\kanjiencodingdefault}%
1185   \edef\k@family{\kanjifamilydefault}%
1186   \edef\k@series{\kanjiseriesdefault}%
1187   \edef\k@shape{\kanjishapedefault}%
1188 }
1189 \fi
1190 \let\@ltj@hook@dfh\@undefined
1191 %%%% LaTeX >= 2020-02-02 END
1192 \else
1193 %%%% LaTeX 2019-10-01
1194 \DeclareRobustCommand\normalfont{%
1195     \useroman\encodingdefault\familydefault\seriesdefault\shapedefault
1196     \usekanji\kanjiencodingdefault\kanjifamilydefault\kanjiseriesdefault\kanjishapedefault}
1197 \let\reset@font\normalfont
1198 %%%% LaTeX 2019-10-01 END
1199 \fi
1200
1201
1202
1203 \ifdefined\prepare@family@series@update@kanji\else
1204 %%%% LaTeX 2019-10-01
1205 \def\prepare@family@series@update@kanji#1{\kanjifamily}
1206 \fi
1207
1208 \DeclareRobustCommand\mcfamily{%
1209   \unless\ifltj@disablejfam\not@math@alphabet\mcfamily\mathmc\fi
1210   \prepare@family@series@update@kanji{mc}\mcdefault
1211   \selectfont}
1212 \DeclareRobustCommand\gtfamily{%
1213   \unless\ifltj@disablejfam\not@math@alphabet\gtfamily\mathgt\fi
1214   \prepare@family@series@update@kanji{gt}\gtdefault
1215   \selectfont}
1216
1217
1218 \let\romanprocess@table\process@table
1219 \def\kanjiprocess@table{%
1220   \kanjiencoding\kanjiencodingdefault%
1221   \edef\k@family{\kanjifamilydefault}%
1222   \edef\k@series{\kanjiseriesdefault}%
1223   \edef\k@shape{\kanjishapedefault}%
1224 }
1225 \def\process@table{%
1226   \romanprocess@table
1227   \kanjiprocess@table
1228 }
1229 \@onlypreamble\romanprocess@table
1230 \@onlypreamble\kanjiprocess@table
1231
1232 %%%%%% LuaTeX-ja specific
1233
1234 % #1/#2 の展開結果から encoding 部分 (#1) をとりだし，それが和文用かどうかの結果を \ifin@ に代入
1235 \def\ltj@@IsFontJapanese#1/#2\relax{\ltj@@is@kenc{#1}}
1236
1237 \let\extract@afont\extract@font
1238 \def\pickup@jfont{%
1239   \ifnum
1240     \unless\ifnum\ltjgetparameter{direction}=3 1\else
1241     \ifltjselectfont@force@define 1\else 0\fi\fi =1 %
1242     \expandafter \ifx \font@name \relax
1243        \let\extract@font\extract@jfont
1244        \define@newfont
1245        \let\extract@font\extract@afont
1246     \fi
1247     \let\getjfont\font@name
1248   \else
1249     \begingroup\escapechar\m@ne
1250       \ifcsname ltj@@fontjfm/\expandafter\string\font@name\endcsname\else
1251         \let\extract@font\extract@jfont@onlyjfm
1252         \define@newfont
1253         \let\extract@font\extract@afont
1254       \fi
1255     \endgroup
1256     \csname ltj@@fontjfm/\expandafter\expandafter\expandafter\@gobble\expandafter\string\font@name\endcsname
1257   \fi
1258 }
1259 \def\pickup@tfont{%
1260   \ifnum
1261     \ifnum\ltjgetparameter{direction}=3 1\else
1262     \ifltjselectfont@force@define 1\else 0\fi\fi =1 %
1263     \expandafter \ifx \font@name \relax
1264        \let\extract@font\extract@tfont
1265        \define@newfont
1266        \let\extract@font\extract@afont
1267     \fi
1268     \let\gettfont\font@name
1269   \else
1270     \begingroup\escapechar\m@ne
1271       \ifcsname ltj@@fontjfm/\expandafter\string\font@name\endcsname\else
1272         \let\extract@font\extract@tfont@onlyjfm
1273         \define@newfont
1274         \let\extract@font\extract@afont
1275       \fi
1276     \endgroup
1277     \csname ltj@@fontjfm/\expandafter\expandafter\expandafter\@gobble\expandafter\string\font@name\endcsname
1278   \fi
1279 }
1280
1281 % 異なる和文 enc/fam/ser/shape からは異なるフォント番号が振られるように
1282 % わざと「ゴミをつける」
1283 \def\ltj@@patch@external@font#1 at{%
1284   \directlua{
1285         local s = '\luatexluaescapestring{#1}'
1286         local is_braced, is_quoted
1287         if s:sub(1,1)=='{' and s:sub(-1)=='}' then is_braced=true; s=s:sub(2,-2) end
1288         if s:sub(1,1)=='"' and s:sub(-1)=='"' then is_quoted=true; s=s:sub(2,-2) end
1289         s=s..luatexja.jfont.print_aftl_address()
1290         if is_braced then s='{'..s..'}' elseif is_quoted then s='"'..s..'"' end
1291         %print(s, is_quoted, is_braced)
1292     tex.sprint(-2, s)}%
1293   \space at%
1294 }
1295 \def\extract@jfont{%
1296     \get@external@font
1297     \ltj@@does@alt@set{\f@encoding/\f@family/\f@series/\f@shape}{%
1298       \edef\external@font{\expandafter\ltj@@patch@external@font\external@font}%
1299     }%
1300     \expandafter\globaljfont\font@name\external@font\relax\font@name% ここで時間がかかる
1301     \csname \f@encoding+\f@family\endcsname
1302     \csname\curr@fontshape\endcsname}
1303 \def\extract@tfont{%
1304     \get@external@font
1305     \ltj@@does@alt@set{\f@encoding/\f@family/\f@series/\f@shape}{%
1306       \edef\external@font{\expandafter\ltj@@patch@external@font\external@font}%
1307     }%
1308     \expandafter\globaltfont\font@name\external@font\relax\font@name
1309     \csname \f@encoding+\f@family\endcsname
1310     \csname\curr@fontshape\endcsname}
1311
1312 \newluafunction\ltj@@jfont@@jfmonly@@inner
1313 \directlua{%
1314   local lf = lua.get_functions_table()
1315   lf[\the\ltj@@jfont@@jfmonly@@inner]  = luatexja.jfont.load_jfmonly
1316 }
1317 \luadef\ltj@@jfont@@jfmonly  \ltj@@jfont@@jfmonly@@inner
1318 \def\extract@jfont@onlyjfm{%
1319   \get@external@font\ltj@@convert@input@path@to@lua
1320   \csxdef{ltj@@fontjfm/\expandafter\string\font@name}{%
1321     \ltj@@jfont@@jfmonly{\external@font}{yoko}%
1322 }}
1323 \def\extract@tfont@onlyjfm{%
1324   \get@external@font\ltj@@convert@input@path@to@lua
1325   \csxdef{ltj@@fontjfm/\expandafter\string\font@name}{%
1326     \ltj@@jfont@@jfmonly{\external@font}{tate}%
1327 }}
1328
1329 \let\ltj@@al@do@subst@correction=\do@subst@correction
1330 \def\ltj@@ja@do@subst@correction{%
1331     \xdef\subst@correction{%
1332       \font@name
1333       \global\expandafter\let\csname \curr@fontshape/\f@size\endcsname\font@name%
1334       \relax}%
1335     \aftergroup\subst@correction
1336 }
1337 \def\do@subst@correction{%
1338    \ltj@@is@kenc{\f@encoding}\ifin@%
1339      \ltj@@ja@do@subst@correction
1340    \else
1341      \ltj@@al@do@subst@correction
1342    \fi
1343 }
1344 \let\@@italiccorr=\/
1345
1346 %%%%%% Japanese font for math mode
1347 \unless\ifltj@disablejfam
1348
1349 % \M@<enc> から その <enc> が和文用か調べる
1350 {\catcode`M=12%
1351 \gdef\ltj@@mathJapaneseFonts#1M#2#3/#4\relax{\ltj@@is@kenc{#3}}}
1352
1353 \let\ltj@@al@getanddefine@fonts=\getanddefine@fonts
1354 \def\ltj@@ja@getanddefine@fonts#1#2{%
1355   \csletcs{if@ltj@tempif}{ifltjselectfont@force@define}%
1356   \ltjselectfont@force@definetrue
1357   \xdef\font@name{\csname \string#2/\tf@size\endcsname}%
1358   \pickup@jfont\let\textfont@name\font@name
1359   \xdef\font@name{\csname \string#2/\sf@size\endcsname}%
1360   \pickup@jfont\let\scriptfont@name\font@name
1361   \xdef\font@name{\csname \string#2/\ssf@size\endcsname}%
1362   \pickup@jfont
1363   \csletcs{ifltjselectfont@force@define}{if@ltj@tempif}%
1364   \edef\math@fonts{\math@fonts\ltj@setpar@global%
1365     \ltj@@set@stackfont#1,\textfont@name:{MJT}%
1366     \ltj@@set@stackfont#1,\scriptfont@name:{MJS}%
1367     \ltj@@set@stackfont#1,\font@name:{MJSS}%
1368   }%
1369 }
1370
1371 \def\getanddefine@fonts#1#2{%
1372   \ltj@tempcnta=#1\expandafter\ltj@@IsFontJapanese\string#2/\relax%
1373   \ifin@\let\ltj@temp=\ltj@@ja@getanddefine@fonts%
1374   \else \let\ltj@temp=\ltj@@al@getanddefine@fonts\fi
1375   \ltj@temp{#1}{#2}%
1376 }
1377 \def\use@mathgroup#1#2{\relax\ifmmode
1378   \math@bgroup
1379     \expandafter\ifx\csname M@\f@encoding\endcsname#1\else
1380     #1\fi\ltj@tempcnta=#2
1381       \expandafter\ltj@@mathJapaneseFonts\string#1/\relax%
1382     \ifin@\jfam#2\relax\else\mathgroup#2\relax\fi
1383   \expandafter\math@egroup\fi}%
1384
1385 \fi
1386
1387 %%%%%% Alternate Japanese Fonts
1388 %%%% \DeclareAlternateKanjiFont<Benc><Bfam><Bser><Bshape><Aenc><Afam><Aser><Ashape><range>
1389 % いつも global
1390 \def\DeclareAlternateKanjiFont#1#2#3#4#5#6#7#8#9{%
1391   \edef\@temp{#9}%
1392   \ifx\@temp\@empty\else
1393     {\def\ltj@temp@bfont{#1/#2/#3/#4}\def\ltj@temp@afont{#5/#6/#7/#8}%
1394      \expandafter\ltj@@altfont@latex#9,,}\ignorespaces
1395   \fi}
1396 \def\ltj@@altfont@latex#1,{\def\ltj@temp{#1}%
1397   \ifx\ltj@temp\empty\let\@next=\relax\else
1398   \ltj@@altfont@latexA{#1}\let\@next=\ltj@@altfont@latex\fi\@next}
1399 \def\ltj@@altfont@latexA#1{\ltj@@altfont@latexB#1--\@nil}
1400 \def\ltj@@altfont@latexB#1-#2-#3\@nil{\def\ltj@temp{#3}%
1401   \ifx\ltj@temp\empty
1402     \ltj@tempcnta=#1\relax\ltj@tempcntb=\ltj@tempcnta
1403   \else
1404     \def\ltj@temp{#1}%
1405     \ifx\ltj@temp\empty\ltj@tempcnta='200\else\ltj@tempcnta=#1\fi\relax
1406     \def\ltj@temp{#2}%
1407     \ifx\ltj@temp\empty\ltj@tempcntb="10FFFF\else\ltj@tempcntb=#2\fi\relax%"
1408   \fi
1409   \directlua{luatexja.jfont.set_alt_font_latex(
1410     \the\ltj@tempcnta,\the\ltj@tempcntb,
1411     '\luatexluaescapestring{\ltj@temp@afont}',
1412     '\luatexluaescapestring{\ltj@temp@bfont}')}%
1413 }
1414
1415 %%%% \ClearAlternateKanjiFont<Benc><Bfam><Bser><Bshape>
1416 % いつも global
1417 \newluafunction\ltj@@does@alt@set@@inner
1418 \directlua{%
1419   local lf = lua.get_functions_table()
1420   lf[\the\ltj@@does@alt@set@@inner]  = luatexja.jfont.does_alt_set
1421 }
1422 \def\ltj@@does@alt@set#1#2{\luafunction\ltj@@does@alt@set@@inner{#1}{#2}}
1423 \def\ClearAlternateKanjiFont#1#2#3#4{%
1424    \directlua{luatexja.jfont.clear_alt_font_latex('\luatexluaescapestring{#1/#2/#3/#4}')}}
1425
1426 \def\ltj@pickup@altfont@auxy#1{%
1427   \begingroup\edef\font@name{\csname #1/\f@size\endcsname}\pickup@jfont\endgroup%
1428 }
1429 \def\ltj@pickup@altfont@auxt#1{%
1430   \begingroup\edef\font@name{\csname #1/\f@size\endcsname}\pickup@tfont\endgroup%
1431 }
1432 \def\ltj@pickup@altfont@copy#1#2{%
1433   \ltj@@getjfontnumber#1%
1434   \directlua{luatexja.jfont.pickup_alt_font_b(\the\ltj@tempcntc,'\luatexluaescapestring{#2}')}%
1435 }
1436
1437 %%%% send \input@path data to lua
1438 \def\ltj@@convert@input@path@to@lua{%
1439   \ltj@@cipath@clear
1440   \ifdefined\input@path
1441     \expandafter\@tfor\expandafter\ltj@temp\expandafter:\expandafter=\input@path\do{\ltj@@cipath@add{\ltj@temp}}%
1442   \fi
1443 }
1444 \newluafunction\ltj@@cipath@clear@inner
1445 \directlua{
1446   (lua.get_functions_table())[\the\ltj@@cipath@clear@inner] = luatexja.input_path_clear
1447 }
1448 \protected\luadef\ltj@@cipath@clear\ltj@@cipath@clear@inner
1449 \def\ltj@@cipath@add#1{\directlua{luatexja.input_path_add('\luatexluaescapestring{#1}')}}
1450 \endinput