6 \NeedsTeXFormat{LaTeX2e}
7 \ProvidesPackage{luatexja-ruby}[2014/02/06 v0.1]
8 \RequirePackage{luatexja}
11 \newluatexattribute\ltj@rubyattr
12 \RequireLuaTeXjaSubmodule{ruby}
14 % ltjset/getparameter への追加設定
18 %% この文字への pre-, post-intrusion の許容量
19 \define@key[ltj]{japaram}{rubypreintrusion}{%
20 \expandafter\ltj@@set@stack@real#1:{RIPRE}{0}{0x7FFFFFFF}}
21 \define@key[ltj]{japaram}{rubypostintrusion}{%
22 \expandafter\ltj@@set@stack@real#1:{RIPOST}{0}{0x7FFFFFFF}}
23 \def\ltj@@set@stack@real#1,#2:#3#4#5{%
24 \directlua{luatexja.stack.set_stack_perchar(luatexja.stack_table_index.#3,
25 \ltj@safe@num@or\ltj@defnum{#1},\ltj@safe@real{#2},#4,#5)}}
29 \define@key[ltj]{ruby}{#1}{\expandafter\def\csname ltj@@rubyip@#1\endcsname{##1}}
32 %% bit 0: intrusion を有効にするか(1: 有効)
33 %% bit 1: 前後の intrusion 許容量を小さい方に揃える (1: yes)
34 %% bit 2, 3: intrusion をどう使って親文字を配置するか
35 %% 00: intrusion なしでとりあえず計算し,左右の突出分を進入に割り当てる
36 %% 01: pre-intrusion でまかなえるだけまかない,無理なら post- も使う
38 %% 11: 2 min (pre,post) までは pre, post に均等配分しようとする
39 %% >=01 で,intrusion で賄えきれなかった場合はいつものように伸長する.
40 %% bit 4: 熟語ルビの際の処理方法(0: 常にグループ,1: 可能な限りブロックごとに)
43 %% intrusion 量強制固定(bit 0, bit 1 より優先,負数で「自動」)
44 %% attr は sp 単位だが,ユーザーはルビ全角単位で指定する
45 %% attr_ruby_maxprep, attr_ruby_maxpostp
46 \ltj@@rkeydef{intrusionpre}
47 \ltj@@rkeydef{intrusionpost}
48 %% 親文字伸長の際の比,{0}{1}{1} などと0--7 の数 3 つで指定
49 %% attr_ruby_stretch (head left,middle,right)(end)(middle) 27-bits
50 \ltj@@rkeydef{stretchhead} % 行頭形
51 \ltj@@rkeydef{stretchend} % 行末形
52 \ltj@@rkeydef{stretch} % 行中形
53 %% ルビが伸長するときの比 {1}{2}{1} などと0--7 の数 3 つで指定
54 %% attr_ruby_mode 上位部分
55 \ltj@@rkeydef{stretchruby}
56 %% ルビ<親のとき,ルビと親文字の端の最大値
57 %% attr_ruby_maxmargin
58 %% attr は sp 単位だが,ユーザーは親文字全角単位で指定
59 \ltj@@rkeydef{maxmargin}
60 \savekeys[ltj]{ruby}{%
61 mode, intrusionpre, intrusionpost,
62 stretchhead, stretchend, stretch, stretchruby,
67 \protected\def\ltjsetruby{\setkeys[ltj]{ruby}}
69 % ここからは ruby マクロ内でなんとかされる事項
71 \ltj@@rkeydef{rubysize}
74 \define@key[ltj]{ruby}{kata}[none]{\setkeys[ltj]{ruby}{mode=9,stretchruby=001}}
76 \define@key[ltj]{ruby}{ekata}[none]{\setkeys[ltj]{ruby}{stretch=001,stretchruby=001}}
81 \def\ltj@@ruby@create@table#1{% #1: ルビ全角
83 rubyzw = \ltj@safe@dimen{#1},
84 maxmargin = \ltj@safe@dimen{\ltj@@rubyip@maxmargin\zw},
85 intrusionpre = \ltj@safe@dimen{\ltj@@rubyip@intrusionpre#1},
86 intrusionpost = \ltj@safe@dimen{\ltj@@rubyip@intrusionpost#1},
88 = 262144 * \expandafter\ltj@@ruby@cts\ltj@@rubyip@stretchhead
89 + 512 * \expandafter\ltj@@ruby@cts\ltj@@rubyip@stretchend
90 + \expandafter\ltj@@ruby@cts\ltj@@rubyip@stretch,
92 = 2097152 * \expandafter\ltj@@ruby@cts\ltj@@rubyip@stretchruby
93 + \ltj@safe@num{\ltj@@rubyip@mode},
96 \def\ltj@@ruby@cts#1#2#3{%
97 ((\ltj@safe@num{#1}) * 64 + (\ltj@safe@num{#2}) * 8 + \ltj@safe@num{#3})%
101 %%%%%%%% ZR さんの PXrubrica パッケージ中のコードから引用・改変
102 % \pxrr@decompbar: a|bc -> \ltj@@ruby@mark{a}\ltj@@ruby@mark{bc}
105 \ifx#1\expandafter\@firstoftwo
106 \else\expandafter\@secondoftwo
109 \def\pxrr@nil{\noexpand\pxrr@nil}
110 \def\pxrr@end{\noexpand\pxrr@end}
111 \def\pxrr@appto#1#2{%
112 \expandafter\def\expandafter#1\expandafter{#1#2}%
114 \def\pxrr@decompbar#1{%
116 \pxrr@decompbar@loopa\pxrr@nil#1|\pxrr@end|%
118 \def\pxrr@decompbar@loopa#1|{%
119 \expandafter\pxrr@decompbar@loopb\expandafter{\@gobble#1}%
121 \def\pxrr@decompbar@loopb#1{%
122 \pxrr@decompbar@loopc#1\relax\pxrr@nil{#1}%
124 \def\pxrr@decompbar@loopc#1#2\pxrr@nil#3{%
125 \pxrr@ifx{#1\pxrr@end}{}{%
127 \def\pxrr@res{\ltj@@ruby@mark}%
129 \pxrr@appto\pxrr@res{\ltj@@ruby@mark}%
131 \pxrr@appto\pxrr@res{{#3}}%
132 \pxrr@decompbar@loopa\pxrr@nil
138 \protected\def\ltjruby{\@ifnextchar[\ltj@@ruby{\ltj@@ruby[]}}%]
140 \def\ltj@@ruby[#1]#2#3{{% #1: option #2: 親文字群,#3: ルビ文字列群,共に| 区切り
141 \setkeys[ltj]{ruby}{#1}%
142 \directlua{ruby_tmplist_r = \string{\string}; ruby_tmplist_p = \string{\string}}%
143 \leavevmode\dimen0=\f@size pt\dimen1=\ltj@@rubyip@rubysize\dimen0%
145 \pxrr@decompbar{#2}{\let\ltj@@ruby@mark\ltj@@ruby@sp\pxrr@res}%
146 \pxrr@decompbar{#3}{\let\ltj@@ruby@mark\ltj@@ruby@sr\pxrr@res}%
147 {\fontsize{\ltj@@rubyip@rubysize\dimen0}\z@\selectfont\global\dimen1=\zw}%
149 luatexja.ruby.texiface(\ltj@@ruby@create@table{\dimen1},
150 ruby_tmplist_r, ruby_tmplist_p)}%
153 \def\ltj@@ruby@sr#1{%
154 \setbox0=\hbox{\fontsize{\dimen1}\z@\selectfont#1}%
155 \directlua{table.insert(ruby_tmplist_r, luatexja.ruby.cpbox())}%
157 \def\ltj@@ruby@sp#1{%
158 \setbox0=\hbox{\selectfont#1}%
159 \directlua{table.insert(ruby_tmplist_p, luatexja.ruby.cpbox())}%
164 \count@="3040\loop\relax\ifnum \count@<"30A0
165 \ltjsetparameter{rubypreintrusion={\the\count@,1},
166 rubypostintrusion={\the\count@,1}}
167 \advance\count@1\repeat
169 \ltjsetparameter{rubypreintrusion={`「,1},
170 rubypostintrusion={`」,1}}
172 \ltjsetparameter{rubypreintrusion={`,,1},
173 rubypostintrusion={`,,1}}
174 \ltjsetparameter{rubypreintrusion={`、,1},
175 rubypostintrusion={`、,1}}
177 \ltjsetparameter{rubypreintrusion={`・,1},
178 rubypostintrusion={`・,1}}
182 stretchruby={1}{2}{1}, stretch = {1}{2}{1},
183 stretchhead = {0}{1}{1}, stretchend = {1}{1}{0},
184 intrusionpre = -1, intrusionpost = -1,
185 mode = 1, rubysize = 0.5