src/addons/luatexja-ruby.sty

   1 %
   2 % luatexja-ruby.sty
   3 %
   4
   5 % LaTeX only!
   6 \NeedsTeXFormat{LaTeX2e}
   7 \ProvidesPackage{luatexja-ruby}[2020-10-05 v0.3]
   8 \RequirePackage{luatexja}
   9
  10 %%------------------
  11 \newattribute\ltj@rubyattr
  12 \ltj@rubyattr=0
  13 \RequireLuaTeXjaSubmodule{ruby}
  14
  15 % ltjset/getparameter への追加設定
  16 % これらは段落単位の設定．
  17
  18 %% 引数：ルビ全角を単位とした実数
  19 %% この文字への pre-, post-intrusion の許容量
  20 \define@key[ltj]{japaram}{rubypreintrusion}{%
  21   \ltj@@set@stack@real{RIPRE}{0}{0x7FFFFFFF}#1 }
  22 \define@key[ltj]{japaram}{rubypostintrusion}{%
  23   \ltj@@set@stack@real{RIPOST}{0}{0x7FFFFFFF}#1 }
  24 \def\ltj@@set@stack@real#1#2#3{%
  25   \directlua{luatexja.stack.set_stack_perchar(luatexja.stack_table_index.#1,
  26     #2, #3, token.scan_word)}}
  27
  28 % ルビ用のキー設定
  29 \def\ltj@@rkeydef#1{
  30   \define@key[ltj]{ruby}{#1}{\expandafter\def\csname ltj@@rubyip@#1\endcsname{##1}}
  31 }
  32 %% attr_ruby_mode
  33 %% bit 0: intrusion を有効にするか（1: 有効）
  34 %% bit 1: 前後の intrusion 許容量を小さい方に揃える (1: yes)
  35 %% bit 2, 3: intrusion をどう使って親文字を配置するか
  36 %%   00: intrusion なしでとりあえず計算し，左右の突出分を進入に割り当てる
  37 %%   01: pre-intrusion でまかなえるだけまかない，無理なら post- も使う
  38 %%   10: post を優先
  39 %%   11: 2 min (pre,post) までは pre, post に均等配分しようとする
  40 %%     >=01 で，intrusion で賄えきれなかった場合はいつものように伸長する．
  41 %% bit 4: 熟語ルビの際の処理方法（0: 常にグループ，1: 可能な限りブロックごとに）
  42 %%        ↑bit 4 は今は無効
  43 \ltj@@rkeydef{mode}
  44 %% intrusion 量強制固定（bit 0, bit 1 より優先，負数で「自動」）
  45 %% attr は sp 単位だが，ユーザーはルビ全角単位で指定する
  46 %% attr_ruby_maxprep, attr_ruby_maxpostp
  47 \ltj@@rkeydef{pre}
  48 \ltj@@rkeydef{post}
  49 %% 親文字伸長の際の比，{0}{1}{1} などと0--7 の数 3 つで指定
  50 %% attr_ruby_stretch (bol left,middle,right)(eol)(middle) 27-bits
  51 \ltj@@rkeydef{stretchbol} % 行頭形
  52 \ltj@@rkeydef{stretcheol}  % 行末形
  53 \ltj@@rkeydef{stretch}     % 行中形
  54 %% ルビが伸長するときの比 {1}{2}{1} などと0--7 の数 3 つで指定
  55 %% attr_ruby_mode 上位部分
  56 \ltj@@rkeydef{stretchruby}
  57 %% ルビ<親のとき，ルビと親文字の端の最大値
  58 %% attr_ruby_maxmargin
  59 %% attr は sp 単位だが，ユーザーは親文字全角単位で指定
  60 \ltj@@rkeydef{maxmargin}
  61 %% ルビと親文字の垂直方向の空き
  62 %% attr_ruby_intergap
  63 %% attr は sp 単位だが，ユーザーは親文字全角単位で指定
  64 \ltj@@rkeydef{intergap}
  65
  66 \ltj@@rkeydef{kenten}%% 圏点文字
  67 \ltj@@rkeydef{fontcmd}%% フォント
  68 \define@boolkey[ltj]{ruby}{rubysmash}[true]{}
  69
  70 \ltj@@rkeydef{ybaseheight} % 縦組以外 (yoko, utod, dtou)
  71 \ltj@@rkeydef{tbaseheight} % 縦組
  72 \define@key[ltj]{ruby}{baseheight}{%
  73   \expandafter\def\csname ltj@@rubyip@ybaseheight\endcsname{#1}%
  74   \expandafter\def\csname ltj@@rubyip@tbaseheight\endcsname{#1}%
  75 }
  76
  77 %% これらの値が正のとき，親文字の高さをこの値（\zh 単位）とみなす
  78
  79 %%%%%%%% setkeys の別名
  80 \protected\def\ltjsetruby{\setkeys[ltj]{ruby}}
  81
  82 % ここからは ruby マクロ内でなんとかされる事項
  83 %% ルビと親文字の大きさの比
  84 \ltj@@rkeydef{size}
  85
  86 % 中つき用簡易設定．
  87 \define@key[ltj]{ruby}{naka}[none]{\setkeys[ltj]{ruby}{mode=1, stretch=121, stretchruby=121}}
  88 % 肩つき用簡易設定．
  89 \define@key[ltj]{ruby}{kata}[none]{\setkeys[ltj]{ruby}{mode=9, stretch=121, stretchruby=001}}
  90
  91 %%%%%%%% 補助関数
  92
  93 % Lua ソースに渡す table 生成
  94 \def\ltj@@ruby@create@table#1{% #1: ルビ全角
  95     \string{
  96       rubyzw = \ltj@safe@dimen{#1},
  97       maxmargin = \ltj@safe@dimen{\ltj@@rubyip@maxmargin\zw},
  98       pre = \ltj@safe@dimen{\ltj@@rubyip@pre#1},
  99       post = \ltj@safe@dimen{\ltj@@rubyip@post#1},
 100       intergap =  \ltj@safe@dimen{\ltj@@rubyip@intergap\zh},
 101       stretch
 102         = 262144 * \expandafter\ltj@@ruby@cts\ltj@@rubyip@stretchbol
 103           + 512 * \expandafter\ltj@@ruby@cts\ltj@@rubyip@stretcheol
 104           + \expandafter\ltj@@ruby@cts\ltj@@rubyip@stretch,
 105       mode
 106         = (2097152 * \expandafter\ltj@@ruby@cts\ltj@@rubyip@stretchruby
 107           + \ltj@safe@num{\ltj@@rubyip@mode}
 108           + 1048576 * \ifltj@ruby@rubysmash1\else0\fi),
 109       baseheight = \ltj@safe@dimen{\ifnum\ltjgetparameter{direction}=3
 110                      \ltj@@rubyip@tbaseheight\else\ltj@@rubyip@ybaseheight\fi\zh},
 111     \string}
 112 }
 113 %%%
 114 %%% 1098765432109876543210976543210
 115 %%%   |st_ruby|!               |--| ← mode
 116 \def\ltj@@ruby@cts#1#2#3{%
 117   ((\ltj@safe@num{#1}) * 64 + (\ltj@safe@num{#2}) * 8 + \ltj@safe@num{#3})%
 118 }
 119
 120
 121 %%%%%%%% ZR さんの PXrubrica パッケージ中のコードから引用・改変
 122 % \pxrr@decompbar: a|bc -> \ltj@@ruby@mark{a}\ltj@@ruby@mark{bc}
 123 \let\pxrr@res\empty
 124 \def\pxrr@ifx#1{%
 125   \ifx#1\expandafter\@firstoftwo
 126   \else\expandafter\@secondoftwo
 127   \fi
 128 }
 129 \def\pxrr@nil{\noexpand\pxrr@nil}
 130 \def\pxrr@end{\noexpand\pxrr@end}
 131 \def\pxrr@appto#1#2{%
 132   \expandafter\def\expandafter#1\expandafter{#1#2}%
 133 }
 134 \def\pxrr@decompbar#1{%
 135   \let\pxrr@res\@empty
 136   \pxrr@decompbar@loopa\pxrr@nil#1|\pxrr@end|%
 137 }
 138 \def\pxrr@decompbar@loopa#1|{%
 139   \expandafter\pxrr@decompbar@loopb\expandafter{\@gobble#1}%
 140 }
 141 \def\pxrr@decompbar@loopb#1{%
 142   \pxrr@decompbar@loopc#1\relax\pxrr@nil{#1}%
 143 }
 144 \def\pxrr@decompbar@loopc#1#2\pxrr@nil#3{%
 145   \pxrr@ifx{#1\pxrr@end}{}{%
 146     \ifx\pxrr@res\@empty
 147       \def\pxrr@res{\ltj@@ruby@mark}%
 148     \else
 149       \pxrr@appto\pxrr@res{\ltj@@ruby@mark}%
 150     \fi
 151     \pxrr@appto\pxrr@res{{#3}}%
 152     \pxrr@decompbar@loopa\pxrr@nil
 153   }%
 154 }
 155 %%%%%%%% ここまで
 156
 157 %%%%%%%% TeX command
 158 \protected\def\ltjruby{\@ifnextchar[\ltj@@ruby{\ltj@@ruby[]}}%]
 159 \AtBeginDocument{%
 160   \ifdefined\ruby\else\let\ruby=\ltjruby\fi
 161   \directlua{luatexja.ruby.read_old_break_info()}%
 162 }
 163 \def\ltj@@ruby[#1]#2#3{{% #1: option #2: 親文字群，#3: ルビ文字列群，共に| 区切り
 164   \setkeys[ltj]{ruby}{#1}%
 165   \directlua{luatexja.ruby.ruby_tmplist_r = \string{\string};
 166         luatexja.ruby.ruby_tmplist_p = \string{\string}}%
 167   \leavevmode\dimen0=\f@size pt\dimen1=\ltj@@rubyip@size\dimen0%
 168   % 引数展開，テーブルにセット
 169   \pxrr@decompbar{#2}{\let\ltj@@ruby@mark\ltj@@ruby@sp\pxrr@res}%
 170   \pxrr@decompbar{#3}{\let\ltj@@ruby@mark\ltj@@ruby@sr\pxrr@res}%
 171   {\fontsize{\ltj@@rubyip@size\dimen0}\z@\selectfont\ltj@@rubyip@fontcmd\global\dimen1=\zw}%
 172   \directlua{%
 173     luatexja.ruby.texiface(\ltj@@ruby@create@table{\dimen1},
 174     luatexja.ruby.ruby_tmplist_r, luatexja.ruby.ruby_tmplist_p)}%
 175 }}
 176
 177 \def\ltj@@ruby@sr#1{%
 178   \setbox0=\hbox{\fontsize{\dimen1}\z@\ltj@@rubyip@fontcmd\selectfont#1}%
 179   \directlua{table.insert(luatexja.ruby.ruby_tmplist_r, luatexja.ruby.cpbox())}%
 180 }
 181 \def\ltj@@ruby@sp#1{%
 182   \setbox0=\hbox{\selectfont#1}%
 183   \directlua{table.insert(luatexja.ruby.ruby_tmplist_p, luatexja.ruby.cpbox())}%
 184 }
 185
 186 \protected\def\ltjkenten{\@ifnextchar[\ltj@@kenten{\ltj@@kenten[]}}%]
 187 \let\kenten=\ltjkenten
 188 \def\ltj@@kenten[#1]#2{{%
 189   \setkeys[ltj]{ruby}{#1, stretchruby=101}%
 190   \@tfor\ltj@@kenten@temp:=#2\do{\ltj@@ruby[]{\ltj@@kenten@temp}{\ltj@@rubyip@kenten}}%
 191 }}
 192
 193 % 初期値．要調整
 194 %% ひらがな
 195 \count@="3040\loop\relax\ifnum \count@<"30A0
 196   \ltjsetparameter{rubypreintrusion={\the\count@,1},
 197     rubypostintrusion={\the\count@,1}}
 198   \advance\count@1\repeat
 199 %% カタカナ
 200 \count@="30A0\loop\relax\ifnum \count@<"3100
 201   \ltjsetparameter{rubypreintrusion={\the\count@,1},
 202     rubypostintrusion={\the\count@,1}}
 203   \advance\count@1\repeat
 204 %% Kana Supplement
 205 \count@="1B000\loop\relax\ifnum \count@<"1B170
 206   \ltjsetparameter{rubypreintrusion={\the\count@,1},
 207     rubypostintrusion={\the\count@,1}}
 208   \advance\count@1\repeat
 209 %% 「」
 210 \ltjsetparameter{rubypreintrusion={`「,1},
 211   rubypostintrusion={`」,1}}
 212 %% ，、
 213 \ltjsetparameter{rubypreintrusion={`，,1},
 214   rubypostintrusion={`，,1}}
 215 \ltjsetparameter{rubypreintrusion={`、,1},
 216   rubypostintrusion={`、,1}}
 217 %% ・
 218 \ltjsetparameter{rubypreintrusion={`・,1},
 219   rubypostintrusion={`・,1}}
 220 %% 段落インデント部分
 221 \ltjsetparameter{rubypreintrusion={-1,1}}
 222
 223 \setkeys[ltj]{ruby}{
 224   pre=-1, post=-1, mode=1,
 225   stretchruby={1}{2}{1}, stretch = {1}{2}{1},
 226   stretchbol={0}{1}{1}, stretcheol={1}{1}{0},
 227   maxmargin=0.5, size=0.5, intergap=0, rubysmash=false,
 228   kenten=\ltjalchar`•, fontcmd=\relax, ybaseheight=0.88, tbaseheight=0.5
 229 }
 230
 231 \endinput