% LaTeX only!
\NeedsTeXFormat{LaTeX2e}
-\ProvidesPackage{luatexja-ruby}[2012/4/21 v0.1]
+\ProvidesPackage{luatexja-ruby}[2014/03/28 v0.21]
\RequirePackage{luatexja}
%%------------------
\newluatexattribute\ltj@rubyattr
+\ltj@rubyattr=0
\RequireLuaTeXjaSubmodule{ruby}
% ltjset/getparameter への追加設定
%% 引数：ルビ全角を単位とした実数
%% この文字への pre-, post-intrusion の許容量
\define@key[ltj]{japaram}{rubypreintrusion}{%
- \expandafter\ltj@@set@stack@real#1:{ripre}{0}{0x7FFFFFFF}}
+ \expandafter\ltj@@set@stack@real#1:{RIPRE}{0}{0x7FFFFFFF}}
\define@key[ltj]{japaram}{rubypostintrusion}{%
- \expandafter\ltj@@set@stack@real#1:{ripost}{0}{0x7FFFFFFF}}
+ \expandafter\ltj@@set@stack@real#1:{RIPOST}{0}{0x7FFFFFFF}}
\def\ltj@@set@stack@real#1,#2:#3#4#5{%
- \directlua{luatexja.stack.set_stack_table(luatexja.isglobal, \asluastring{#3},
+ \directlua{luatexja.stack.set_stack_perchar(luatexja.stack_table_index.#3,
\ltj@safe@num@or\ltj@defnum{#1},\ltj@safe@real{#2},#4,#5)}}
% ルビ用のキー設定
%% attr_ruby_mode
%% bit 0: intrusion を有効にするか（1: 有効）
%% bit 1: 前後の intrusion 許容量を小さい方に揃える (1: yes)
-%% bit 2, 3: intrusion をどう使って親文字を配置する
+%% bit 2, 3: intrusion をどう使って親文字を配置するか
%% 00: intrusion なしでとりあえず計算し，左右の突出分を進入に割り当てる
%% 01: pre-intrusion でまかなえるだけまかない，無理なら post- も使う
%% 10: post を優先
%% intrusion 量強制固定（bit 0, bit 1 より優先，負数で「自動」）
%% attr は sp 単位だが，ユーザーはルビ全角単位で指定する
%% attr_ruby_maxprep, attr_ruby_maxpostp
-\ltj@@rkeydef{intrusionpre}
-\ltj@@rkeydef{intrusionpost}
+\ltj@@rkeydef{pre}
+\ltj@@rkeydef{post}
%% 親文字伸長の際の比，{0}{1}{1} などと0--7 の数 3 つで指定
-%% attr_ruby_stretch (head left,middle,right)(end)(middle) 27-bits
-\ltj@@rkeydef{stretchhead} % 行頭形
-\ltj@@rkeydef{stretchend} % 行末形
+%% attr_ruby_stretch (bol left,middle,right)(eol)(middle) 27-bits
+\ltj@@rkeydef{stretchbol} % 行頭形
+\ltj@@rkeydef{stretcheol} % 行末形
\ltj@@rkeydef{stretch} % 行中形
%% ルビが伸長するときの比 {1}{2}{1} などと0--7 の数 3 つで指定
%% attr_ruby_mode 上位部分
%% attr_ruby_maxmargin
%% attr は sp 単位だが，ユーザーは親文字全角単位で指定
\ltj@@rkeydef{maxmargin}
-\savekeys[ltj]{ruby}{%
- mode, intrusionpre, intrusionpost,
- stretchhead, stretchend, stretch, stretchruby,
- maxmargin, rubysize,
-}
+%% ルビと親文字の垂直方向の空き
+%% attr_ruby_intergap
+%% attr は sp 単位だが，ユーザーは親文字全角単位で指定
+\ltj@@rkeydef{intergap}
+
+\ltj@@rkeydef{kenten}%% 圏点文字
+\ltj@@rkeydef{fontcmd}%% フォント
+\define@boolkey[ltj]{ruby}{rubysmash}[true]{}
+
%%%%%%%% setkeys の別名
\protected\def\ltjsetruby{\setkeys[ltj]{ruby}}
% ここからは ruby マクロ内でなんとかされる事項
%% ルビと親文字の大きさの比
-\ltj@@rkeydef{rubysize}
+\ltj@@rkeydef{size}
+% 中つき用簡易設定．
+\define@key[ltj]{ruby}{naka}[none]{\setkeys[ltj]{ruby}{mode=1, stretch=121, stretchruby=121}}
% 肩つき用簡易設定．
-\define@key[ltj]{ruby}{kata}[none]{\setkeys[ltj]{ruby}{mode=9,stretchruby=001}}
-% 拡張肩つき用簡易設定．
-\define@key[ltj]{ruby}{ekata}[none]{\setkeys[ltj]{ruby}{stretch=001,stretchruby=001}}
+\define@key[ltj]{ruby}{kata}[none]{\setkeys[ltj]{ruby}{mode=9, stretch=121, stretchruby=001}}
%%%%%%%% 補助関数
\string{
rubyzw = \ltj@safe@dimen{#1},
maxmargin = \ltj@safe@dimen{\ltj@@rubyip@maxmargin\zw},
- intrusionpre = \ltj@safe@dimen{\ltj@@rubyip@intrusionpre#1},
- intrusionpost = \ltj@safe@dimen{\ltj@@rubyip@intrusionpost#1},
+ pre = \ltj@safe@dimen{\ltj@@rubyip@pre#1},
+ post = \ltj@safe@dimen{\ltj@@rubyip@post#1},
+ intergap = \ltj@safe@dimen{\ltj@@rubyip@intergap\zw},
stretch
- = 262144 * \expandafter\ltj@@ruby@cts\ltj@@rubyip@stretchhead
- + 512 * \expandafter\ltj@@ruby@cts\ltj@@rubyip@stretchend
+ = 262144 * \expandafter\ltj@@ruby@cts\ltj@@rubyip@stretchbol
+ + 512 * \expandafter\ltj@@ruby@cts\ltj@@rubyip@stretcheol
+ \expandafter\ltj@@ruby@cts\ltj@@rubyip@stretch,
mode
= 2097152 * \expandafter\ltj@@ruby@cts\ltj@@rubyip@stretchruby
- + \ltj@safe@num{\ltj@@rubyip@mode},
+ + \ltj@safe@num{\ltj@@rubyip@mode}
+ + 1048576 * \ifltj@ruby@rubysmash1\else0\fi
\string}
}
+%%%
+%%% 1098765432109876543210976543210
+%%% |st_ruby|! |--| ← mode
\def\ltj@@ruby@cts#1#2#3{%
((\ltj@safe@num{#1}) * 64 + (\ltj@safe@num{#2}) * 8 + \ltj@safe@num{#3})%
}
%%%%%%%% TeX command
\protected\def\ltjruby{\@ifnextchar[\ltj@@ruby{\ltj@@ruby[]}}%]
-\let\ruby=\ltjruby
+\AtBeginDocument{%
+ \ifdefined\ruby\else\let\ruby=\ltjruby\fi
+ \directlua{luatexja.ruby.read_old_break_info()}%
+}
\def\ltj@@ruby[#1]#2#3{{% #1: option #2: 親文字群，#3: ルビ文字列群，共に| 区切り
\setkeys[ltj]{ruby}{#1}%
\directlua{ruby_tmplist_r = \string{\string}; ruby_tmplist_p = \string{\string}}%
- \leavevmode\dimen0=\f@size pt\dimen1=\ltj@@rubyip@rubysize\dimen0%
+ \leavevmode\dimen0=\f@size pt\dimen1=\ltj@@rubyip@size\dimen0%
% 引数展開，テーブルにセット
\pxrr@decompbar{#2}{\let\ltj@@ruby@mark\ltj@@ruby@sp\pxrr@res}%
\pxrr@decompbar{#3}{\let\ltj@@ruby@mark\ltj@@ruby@sr\pxrr@res}%
- {\fontsize{\ltj@@rubyip@rubysize\dimen0}\z@\selectfont\global\dimen1=\zw}%
+ {\fontsize{\ltj@@rubyip@size\dimen0}\z@\selectfont\ltj@@rubyip@fontcmd\global\dimen1=\zw}%
\directlua{%
luatexja.ruby.texiface(\ltj@@ruby@create@table{\dimen1},
ruby_tmplist_r, ruby_tmplist_p)}%
}}
\def\ltj@@ruby@sr#1{%
- \setbox0=\hbox{\fontsize{\dimen1}\z@\selectfont#1}%
- \directlua{table.insert(ruby_tmplist_r, node.copy(tex.box[0]))}%
+ \setbox0=\hbox{\fontsize{\dimen1}\z@\ltj@@rubyip@fontcmd\selectfont#1}%
+ \directlua{table.insert(ruby_tmplist_r, luatexja.ruby.cpbox())}%
}
\def\ltj@@ruby@sp#1{%
\setbox0=\hbox{\selectfont#1}%
- \directlua{table.insert(ruby_tmplist_p, node.copy(tex.box[0]))}%
+ \directlua{table.insert(ruby_tmplist_p, luatexja.ruby.cpbox())}%
}
+\protected\def\ltjkenten{\@ifnextchar[\ltj@@kenten{\ltj@@kenten[]}}%]
+\let\kenten=\ltjkenten
+\def\ltj@@kenten[#1]#2{{%
+ \setkeys[ltj]{ruby}{#1, stretchruby=101}%
+ \@tfor\ltj@@kenten@temp:=#2\do{\ltj@@ruby[]{\ltj@@kenten@temp}{\ltj@@rubyip@kenten}}%
+}}
+
% 初期値．要調整
%% ひらがな
\count@="3040\loop\relax\ifnum \count@<"30A0
%% ・
\ltjsetparameter{rubypreintrusion={`・,1},
rubypostintrusion={`・,1}}
+%% 段落インデント部分
+\ltjsetparameter{rubypreintrusion={-1,1}}
\setkeys[ltj]{ruby}{
- maxmargin=0.5,
+ pre=-1, post=-1, mode=1,
stretchruby={1}{2}{1}, stretch = {1}{2}{1},
- stretchhead = {0}{1}{1}, stretchend = {1}{1}{0},
- intrusionpre = -1, intrusionpost = -1,
- mode = 1, rubysize = 0.5
+ stretchbol={0}{1}{1}, stretcheol={1}{1}{0},
+ maxmargin=0.5, size=0.5, intergap=0, rubysmash=false,
+ kenten=\ltjalchar`•, fontcmd=\relax
}
-\endinput
\ No newline at end of file
+\endinput
OSDN Git Service
