i
[chise/ruby.git] / tools / t9.rb
1 #!/usr/bin/env ruby
2 $KCODE = 'u'
3 $LOAD_PATH << '../lib'
4 require 'chise'
5 require 'chise/kanjilist'
6 include CHISE
7
8 def atom_list(list)
9   list.map_character {|char|
10     d = yield(char)
11     d.char_length == 1 ? d : ""
12   }
13 end
14
15 def check_list(list)
16   d = atom_list(list){|char| char.decompose }
17   g = atom_list(list){|char| char.glyph_decompose }
18   da = d.to_a
19   ga = g.to_a
20   wa = da & ga
21   dd = (da - wa).join("")
22   gg = (ga - wa).join("")
23   puts "意味で分解できない文字: "+d, "これだけに含まれる文字: "+dd
24   puts   "形で分解できない文字: "+g, "これだけに含まれる文字: "+gg
25 end
26
27 check_list(KanjiList::JOYO_KANJI_LIST)
28 check_list(KanjiList::JISX0208_KANJI_LIST)