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