src/patches/lltjfont.sty

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