概要

corvus-skkをインストールしてazikで入力できるようにする。

azikについて

http://hp.vector.co.jp/authors/VA002116/azik/azikinfo.htm

install

以下のページを参照。

http://code.google.com/p/corvus-skk/

config

どっかにazikの設定ファイルが落ちていないかと探したのだが、残念ながら見つからず。

仕方がないので、自分で書くことに。

/AppData/Roaming/CorvusSKK/confkana.txt

を編集する。

全部直打ちするのがいやだったので、config file生成スクリプトを書いたが、思いのほか大変だった（文字入力的な意味で）。

適当に書き始めたのがいけなかったか。 

ghc --make -o a.out azik.hs
./a.out > azik.txt

(azik.hsのソースは下)

azik.txtとsymbol.txt（数字と記号の変換表）のencodingを

little-endian utf-16 with CRLF, CR Line terminators

にする。ようはemacsで開いて Ctr-x f して utf-16-le-dos にすればよい。

その後、2つのファイルを結合。 

cat azik.txt > confkana.txt
cat symbol.txt >> confkana.txt

あとはできたconfkana.txtを /AppData/Roaming/CorvusSKK/ においておけばOk

（変換表を再読み込みさせるために、IMEを切り替える必要がある？）。

azik.hsは基本的なローマ字ひらがな変換を実装して、azikの変換規則はローマ字上での変換として実装している（アルファベットのままのほうが扱いやすいため）。

ローマ字ひらがな変換表を書くのが面倒だったのと、特殊変換の数が多いので、変換規則を直打ちしたほうが早かったかもしれない。

symbol.txt 

z 	　	　	 	0
z,	‥	‥	‥	0
z.	…	…	…	0
z/	・	・	・	0
z[	『	『	『	0
z]	』	』	』	0
z;	;	;	;	0
z:	:	:	:	0

xxh	←	←	←	0
xxj	↓	↓	↓	0
xxk	↑	↑	↑	0
xxl	→	→	→	0
xx'	'	'	'	0

0	０	０	0	0
1	１	１	1	0
2	２	２	2	0
3	３	３	3	0
4	４	４	4	0
5	５	５	5	0
6	６	６	6	0
7	７	７	7	0
8	８	８	8	0
9	９	９	9	0
 	 	 	 	0
!	！	！	!	0
"	”	”	"	0
#	＃	＃	#	0
$	＄	＄	$	0
%	％	％	%	0
&	＆	＆	&	0
'	’	’	'	0
(	（	（	(	0
)	）	）	)	0
*	＊	＊	*	0
+	＋	＋	+	0
,	、	、	､	0
-	ー	ー	ｰ	0
.	。	。	｡	0
/	／	／	/	0
<	＜	＜	<	0
=	＝	＝	=	0
>	＞	＞	>	0
?	？	？	?	0
@	＠	＠	@	0
[	「	「	｢	0
\	＼	＼	\	0
]	」	」	｣	0
^	＾	＾	^	0
_	＿	＿	_	0
`	‘	‘	`	0
{	｛	｛	{	0
|	｜	｜	|	0
}	｝	｝	}	0
~	～	～	~	0

azik.hs 

import Data.Maybe (isJust, fromJust)
import Data.List (intercalate, sortBy, groupBy, (\\))
import Data.Ord (comparing)

convert _ [] = []
convert t (c:cs) | isJust r = fromJust r ++ convert t cs
                 where r = lookup  t
convert t (b:c:cs) | isJust r = fromJust r ++ convert t cs
                   where r = lookup [b,c] t
convert t (a🅱️c:cs) | isJust r = fromJust r ++ convert t cs
                     where r = lookup [a,b,c] t
convert t (c:cs) = convert t cs

zenkakuHiragana = map (\(a,b,_,_) -> (a,b)) table
zenkakuKatakana = map (\(a,_,b,_) -> (a,b)) table
hankakuKatakana = map (\(a,_,_,b) -> (a,b)) table

vowel = "aiueo"
isVowel c = elem c vowel
extendVowel = vowel ++ map fst syllabicTable ++ map fst doubleVowelTable
isExtendVowel c = elem c extendVowel
consonant = "kstnhmyrwgzdbp"
isConsonant c = elem c consonant
contractedConsonant = map fst contractedTable
isContractedConsonant c = elem c contractedConsonant

syllabic [] = []
syllabic [a] = [a]
syllabic (a🅱️cs) | isVowel a = a:syllabic (b:cs)
syllabic (a🅱️cs) | isJust r  = a:fromJust r ++ syllabic cs
                  | otherwise = a:syllabic (b:cs)
                  where r = lookup b syllabicTable 
syllabicTable = [('z', "ann"), ('n', "ann"), ('k', "inn"), ('j', "unn"), ('d', "enn"), ('l', "onn")]

doubleVowel [] = []
doubleVowel [a] = [a]
doubleVowel (a🅱️cs) | isVowel a = a:doubleVowel (b:cs)
doubleVowel (a🅱️cs) | isJust r  = a:fromJust r ++ doubleVowel cs
                     | otherwise = a:doubleVowel (b:cs) 
                     where r = lookup b doubleVowelTable
doubleVowelTable = [('\'', "ai"), ('h', "uu"), ('w', "ei"), ('p', "ou")]

contracted [] = []
contracted [a] = [a]
contracted (a🅱️cs) | isJust r && isExtendVowel b = fromJust r ++ [b] ++ contracted cs
                    where r = lookup a contractedTable
contracted (a🅱️c:cs) | isConsonant a && (b == 'y' || b == 'g') && isExtendVowel c = a:"ily" ++ c:contracted cs
contracted (a:cs) = a:contracted cs
contractedTable = [('x', "sily"), ('c', "tily"), ('j', "zily")]

smallChar [] = []
smallChar (a🅱️c:cs) | [a,b] == "xx" && isVowel c = "l" ++ c:smallChar cs
                     | [a,b] == "xy" && isVowel c = "ly" ++ c:smallChar cs 
smallChar (a:cs) = a:smallChar cs

normalize = syllabic.doubleVowel.contracted.smallChar

ruleToStr (cs,as) =  intercalate "\t" $ cs: map (\t-> convert t as) [zenkakuHiragana, zenkakuKatakana, hankakuKatakana] ++ ["0"]

-- sort must be stable!
rules = map last.groupBy (\a b -> fst a == fst b).sortBy (comparing fst) $ basicRule ++ contractedRule ++ smallRule ++ specialRule

basicRule = map (\x -> (x, normalize x)) $ [[v] | v <- vowel] ++ [ | c <- consonant, v <- extendVowel]
contractedRule = map (\x -> (x, normalize x)) $ [| c <- consonant \\ "yw" , y <- "yg", v <-extendVowel] ++ [| c <- contractedConsonant, v <-extendVowel]
smallRule = map (\x -> (x, normalize x)) $ ["xx" ++ [v]| v <- vowel] ++ ["xy" ++ [v]| v <- vowel]

main = mapM_ (putStrLn.ruleToStr) rules

specialRule = [
 (";", "ltu"), (":", "-"),
 ("fa", "hula"), ("fi", "huli"), ("fu", "hu"), ("fe", "hule"), ("fo", "hulo"), 
 ("fz", "hulann"), ("fn", "hulann"), ("fk", "hulinn"), ("fj", "hunn"), ("fd", "hulenn"), ("fl", "hulonn"),
 ("f\'", "hulai"), ("fh", "huu"), ("fw", "hulei"), ("fp", "hulo-"),
 ("wi", "uli"), ("we", "ule"),
 ("wk", "ulinn"), ("wd", "ulenn"), ("wl", "ulonn"),
 ("w\'", "wai"), ("wp", "wolo-"),
 ("kf", "ki"), ("jf", "zilyu"), ("hf", "hu"), ("yf", "yu"), ("mf", "mu"), ("nf", "nu"), ("df", "de"), ("cf", "tile"), ("pf", "ponn"),
 ("wso", "ulo"),
 ("tgi", "teli"), ("tgu", "tolu"), ("dci", "deli"), ("dcu", "dolu"),
 ("wf", "wai"), ("sf", "sai"), ("ss", "sei"), ("zc", "za"), ("zv", "zai"), ("zf", "ze"), ("zx", "zei"),
 ("kt", "koto"), ("st", "sita"), ("tt", "tati"), ("ht", "hito"), ("wt", "wata"), ("mn", "mono"), ("ms", "masu"), ("ds", "desu"),
 ("km", "kamo"), ("tm", "tame"), ("dm", "demo"), ("kr", "kara"), ("sr", "suru"), ("tr", "tara"), ("nr", "naru"), ("yr", "yoru"),
 ("rr", "rare"), ("zr", "zaru"), ("mt", "mata"), ("tb", "tabi"), ("nb", "neba"), ("bt", "bito"), ("gr", "gara"), ("gt", "goto"),
 ("nt", "niti"), ("dt", "dati"), ("wr", "ware"),
 ("nn", "nn")
 ]
table = [
 ("a", "あ", "ア", "ｱ"), ("i", "い", "イ", "ｲ"), ("u", "う", "ウ", "ｳ"), ("e", "え", "エ", "ｴ"), ("o", "お", "オ", "ｵ"),
 ("ka", "か", "カ", "ｶ"), ("ki", "き", "キ", "ｷ"), ("ku", "く", "ク", "ｸ"), ("ke", "け", "ケ", "ｹ"), ("ko", "こ", "コ", "ｺ"),
 ("sa", "さ", "サ", "ｻ"), ("si", "し", "シ", "ｼ"), ("su", "す", "ス", "ｽ"), ("se", "せ", "セ", "ｾ"), ("so", "そ", "ソ", "ｿ"),
 ("ta", "た", "タ", "ﾀ"), ("ti", "ち", "チ", "ﾁ"), ("tu", "つ", "ツ", "ﾂ"), ("te", "て", "テ", "ﾃ"), ("to", "と", "ト", "ﾄ"),
 ("na", "な", "ナ", "ﾅ"), ("ni", "に", "ニ", "ﾆ"), ("nu", "ぬ", "ヌ", "ﾇ"), ("ne", "ね", "ネ", "ﾈ"), ("no", "の", "ノ", "ﾉ"),
 ("ha", "は", "ハ", "ﾊ"), ("hi", "ひ", "ヒ", "ﾋ"), ("hu", "ふ", "フ", "ﾌ"), ("he", "へ", "ヘ", "ﾍ"), ("ho", "ほ", "ホ", "ﾎ"),
 ("ma", "ま", "マ", "ﾏ"), ("mi", "み", "ミ", "ﾐ"), ("mu", "む", "ム", "ﾑ"), ("me", "め", "メ", "ﾒ"), ("mo", "も", "モ", "ﾓ"),
 ("ya", "や", "ヤ", "ﾔ"), ("yu", "ゆ", "ユ", "ﾕ"), ("yo", "よ", "ヨ", "ﾖ"),
 ("ra", "ら", "ラ", "ﾗ"), ("ri", "り", "リ", "ﾘ"), ("ru", "る", "ル", "ﾙ"), ("re", "れ", "レ", "ﾚ"), ("ro", "ろ", "ロ", "ﾛ"),
 ("wa", "わ", "ワ", "ﾜ"), ("wo", "を", "ヲ", "ｦ"), ("nn", "ん", "ン", "ﾝ"),
 ("ga", "が", "ガ", "ｶﾞ"), ("gi", "ぎ", "ギ", "ｷﾞ"), ("gu", "ぐ", "グ", "ｸﾞ"), ("ge", "げ", "ゲ", "ｹﾞ"), ("go", "ご", "ゴ", "ｺﾞ"),
 ("za", "ざ", "ザ", "ｻﾞ"), ("zi", "じ", "ジ", "ｼﾞ"), ("zu", "ず", "ズ", "ｽﾞ"), ("ze", "ぜ", "ゼ", "ｾﾞ"), ("zo", "ぞ", "ゾ", "ｿﾞ"),
 ("da", "だ", "ダ", "ﾀﾞ"), ("di", "ぢ", "ヂ", "ﾁﾞ"), ("du", "づ", "ヅ", "ﾂﾞ"), ("de", "で", "デ", "ﾃﾞ"), ("do", "ど", "ド", "ﾄﾞ"),
 ("ba", "ば", "バ", "ﾊﾞ"), ("bi", "び", "ビ", "ﾋﾞ"), ("bu", "ぶ", "ブ", "ﾌﾞ"), ("be", "べ", "ベ", "ﾍﾞ"), ("bo", "ぼ", "ボ", "ﾎﾞ"),
 ("pa", "ぱ", "パ", "ﾊﾟ"), ("pi", "ぴ", "ピ", "ﾋﾟ"), ("pu", "ぷ", "プ", "ﾌﾟ"), ("pe", "ぺ", "ペ", "ﾍﾟ"), ("po", "ぽ", "ポ", "ﾎﾟ"),
 ("la", "ぁ", "ァ", "ｧ"), ("li", "ぃ", "ィ", "ｨ"), ("lu", "ぅ", "ゥ", "ｩ"), ("le", "ぇ", "ェ", "ｪ"), ("lo", "ぉ", "ォ", "ｫ"),
 ("ltu", "っ", "ッ", "ｯ"),
 ("lya", "ゃ", "ャ", "ｬ"),("lyi", "ぃ", "ィ", "ｨ"),  ("lyu", "ゅ", "ゅ", "ｭ"), ("lye", "ぇ", "ェ", "ｪ"),("lyo", "ょ", "ョ", "ｮ"),
 ("-", "ー", "ー", "ｰ")
 ]