MIM/ja-anthy.mim

   1 ;; ja-anthy.mim -- Japanese input method using Anthy as a conversion server.
   2 ;; Copyright (C) 2003, 2004, 2005, 2006
   3 ;;   National Institute of Advanced Industrial Science and Technology (AIST)
   4 ;;   Registration Number H15PRO112
   5
   6 ;; This file is part of the m17n library.
   7
   8 ;; The m17n library is free software; you can redistribute it and/or
   9 ;; modify it under the terms of the GNU Lesser General Public License
  10 ;; as published by the Free Software Foundation; either version 2.1 of
  11 ;; the License, or (at your option) any later version.
  12
  13 ;; The m17n library is distributed in the hope that it will be useful,
  14 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  15 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  16 ;; Lesser General Public License for more details.
  17
  18 ;; You should have received a copy of the GNU Lesser General Public
  19 ;; License along with the m17n library; if not, write to the Free
  20 ;; Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
  21 ;; Boston, MA 02110-1301, USA.
  22
  23 (input-method ja anthy)
  24
  25 (description "Japanese input method with Anthy as a kana-kanji converter.
  26 Typed roma-ji is at first converted to Hiragana,
  27 and Space key converts the Hiragana sequences
  28 to Kanji-Hiragana mixed sequence.
  29
  30 This input method uses the loadable module libmimx-anthy.so to
  31 communicate with Anthy.  For more detail about Anthy, see the page
  32   <http://sourceforge.jp/projects/anthy/>.
  33 ")
  34
  35 (variable
  36  (input-mode
  37   "Hiragana or Katakana (not yet implemented)
  38 Select Hiragana or Katakana"
  39   hiragana
  40   hiragana katakana)
  41  (zen-han
  42   "Zenkaku or Hankaku (not yet implemented)"
  43   zenkaku
  44   hankaku zenkaku))
  45
  46 (command
  47  (convert) (commit))
  48
  49 (title "aあ")
  50
  51 (map
  52  (starter
  53   ("a") ("i") ("u") ("e") ("o")
  54   ("k") ("s") ("t") ("n") ("h") ("m") ("y") ("r") ("l") ("w")
  55   ("g") ("z") ("d") ("b") ("p")
  56   ("c") ("j") ("f") ("x") ("v") ("z")
  57   ("1") ("2") ("3") ("4") ("5") ("6") ("7") ("8") ("9") ("0")
  58   ("!") ("@") ("#") ("$") ("%") ("^") ("&") ("*") ("(") (")")
  59   ("-") ("=") ("`") ("\\") ("|") ("_") ("+") ("~") ("[") ("]")
  60   ("{") ("}") (":") (";") ("\"") ("'") (".") (",") ("<") (">")
  61   ("?") ("/"))
  62
  63  (ordinary
  64   ( "a" "あ") ( "i" "い") ( "u" "う") ( "e" "え") ( "o" "お")
  65   ("ka" "か") ("ki" "き") ("ku" "く") ("ke" "け") ("ko" "こ")
  66   ("sa" "さ") ("si" "し") ("su" "す") ("se" "せ") ("so" "そ")
  67   ("ta" "た") ("ti" "ち") ("tu" "つ") ("te" "て") ("to" "と")
  68   ("na" "な") ("ni" "に") ("nu" "ぬ") ("ne" "ね") ("no" "の")
  69   ("ha" "は") ("hi" "ひ") ("hu" "ふ") ("he" "へ") ("ho" "ほ")
  70   ("ma" "ま") ("mi" "み") ("mu" "む") ("me" "め") ("mo" "も")
  71   ("ya" "や")             ("yu" "ゆ")             ("yo" "よ")
  72   ("ra" "ら") ("ri" "り") ("ru" "る") ("re" "れ") ("ro" "ろ")
  73   ("la" "ら") ("li" "り") ("lu" "る") ("le" "れ") ("lo" "ろ")
  74   ("wa" "わ") ("wi" "ゐ") ("wu" "う") ("we" "ゑ") ("wo" "を")
  75   ("ga" "が") ("gi" "ぎ") ("gu" "ぐ") ("ge" "げ") ("go" "ご")
  76   ("za" "ざ") ("zi" "じ") ("zu" "ず") ("ze" "ぜ") ("zo" "ぞ")
  77   ("da" "だ") ("di" "ぢ") ("du" "づ") ("de" "で") ("do" "ど")
  78   ("ba" "ば") ("bi" "び") ("bu" "ぶ") ("be" "べ") ("bo" "ぼ")
  79   ("pa" "ぱ") ("pi" "ぴ") ("pu" "ぷ") ("pe" "ぺ") ("po" "ぽ")
  80
  81   ("kya" "きゃ") ("kyu" "きゅ") ("kye" "きぇ") ("kyo" "きょ")
  82   ("sya" "しゃ") ("syu" "しゅ") ("sye" "しぇ") ("syo" "しょ")
  83   ("sha" "しゃ") ("shu" "しゅ") ("she" "しぇ") ("sho" "しょ")
  84   ("cha" "ちゃ") ("chu" "ちゅ") ("che" "ちぇ") ("cho" "ちょ")
  85   ("tya" "ちゃ") ("tyu" "ちゅ") ("tye" "ちぇ") ("tyo" "ちょ")
  86   ("nya" "にゃ") ("nyu" "にゅ") ("nye" "にぇ") ("nyo" "にょ")
  87   ("hya" "ひゃ") ("hyu" "ひゅ") ("hye" "ひぇ") ("hyo" "ひょ")
  88   ("mya" "みゃ") ("myu" "みゅ") ("mye" "みぇ") ("myo" "みょ")
  89   ("rya" "りゃ") ("ryu" "りゅ") ("rye" "りぇ") ("ryo" "りょ")
  90   ("lya" "りゃ") ("lyu" "りゅ") ("lye" "りぇ") ("lyo" "りょ")
  91   ("gya" "ぎゃ") ("gyu" "ぎゅ") ("gye" "ぎぇ") ("gyo" "ぎょ")
  92   ("zya" "じゃ") ("zyu" "じゅ") ("zye" "じぇ") ("zyo" "じょ")
  93   ("jya" "じゃ") ("jyu" "じゅ") ("jye" "じぇ") ("jyo" "じょ")
  94   ( "ja" "じゃ") ( "ju" "じゅ") ( "je" "じぇ") ( "jo" "じょ")
  95   ("bya" "びゃ") ("byu" "びゅ") ("bye" "びぇ") ("byo" "びょ")
  96   ("pya" "ぴゃ") ("pyu" "ぴゅ") ("pye" "ぴぇ") ("pyo" "ぴょ")
  97
  98   ("kwa" "くゎ") ("kwi" "くぃ") ("kwe" "くぇ") ("kwo" "くぉ")
  99   ("tsa" "つぁ") ("tsi" "つぃ") ("tse" "つぇ") ("tso" "つぉ")
 100   ( "fa" "ふぁ") ( "fi" "ふぃ") ( "fe" "ふぇ") ( "fo" "ふぉ")
 101   ("gwa" "ぐゎ") ("gwi" "ぐぃ") ("gwe" "ぐぇ") ("gwo" "ぐぉ")
 102
 103   ("dyi" "でぃ") ("dyu" "どぅ") ("dye" "でぇ") ("dyo" "どぉ")
 104   ("xwi" "うぃ")                ("xwe" "うぇ") ("xwo" "うぉ")
 105
 106   ("shi" "し") ("tyi" "てぃ") ("chi" "ち") ("tsu" "つ") ("ji" "じ")
 107   ("fu"  "ふ")
 108   ("ye" "いぇ")
 109
 110   ("va" "ヴぁ") ("vi" "ヴぃ") ("vu" "ヴ") ("ve" "ヴぇ") ("vo" "ヴぉ")
 111
 112   ("xa"  "ぁ") ("xi"  "ぃ") ("xu"  "ぅ") ("xe"  "ぇ") ("xo"  "ぉ")
 113   ("xtu" "っ") ("xya" "ゃ") ("xyu" "ゅ") ("xyo" "ょ") ("xwa" "ゎ")
 114   ("xka" "ヵ") ("xke" "ヶ"))
 115
 116  (alnum
 117   ("1" "１") ("2" "２") ("3" "３") ("4" "４") ("5" "５")
 118   ("6" "６") ("7" "７") ("8" "８") ("9" "９") ("0" "０")
 119
 120   ("!" "！") ("@" "＠") ("#" "＃") ("$" "＄") ("%" "％")
 121   ("^" "＾") ("&" "＆") ("*" "＊") ("(" "（") (")" "）")
 122   ("-" "ー") ("=" "＝") ("`" "｀") ("\\" "￥") ("|" "｜")
 123   ("_" "＿") ("+" "＋") ("~" "￣") ("[" "「") ("]" "」")
 124   ("{" "｛") ("}" "｝") (":" "：") (";" "；") ("\""  "”")
 125   ("'" "’") ("." "。") ("," "、") ("<" "＜") (">" "＞")
 126   ("?" "？") ("/" "／"))
 127
 128  (symbol
 129   ("z1" "○") ("z!" "●")
 130   ("z2" "▽") ("z@" "▼")
 131   ("z3" "△") ("z#" "▲")
 132   ("z4" "□") ("z$" "■")
 133   ("z5" "◇") ("z%" "◆")
 134   ("z6" "☆") ("z^" "★")
 135   ("z7" "◎") ("z&" "£")
 136   ("z8" "¢") ("z*" "×")
 137   ("z9" "♂") ("z(" "【")
 138   ("z0" "♀") ("z)" "】")
 139   ("z-" "〜") ("z_" "∴")
 140   ("z=" "≠") ("z+" "±")
 141   ("z\\" "＼") ("z|" "‖")
 142   ("z`" "´") ("z~" "¨")
 143
 144   ("zq" "《") ("zQ" "〈")
 145   ("zw" "》") ("zW" "〉")
 146   ("zr" "々") ("zR" "仝")
 147   ("zt" "〆") ("zT" "§")
 148   ("zp" "〒") ("zP" "↑")
 149   ("z[" "『") ("z{" "〔")
 150   ("z]" "』") ("z}" "〕")
 151
 152   ("zs" "ヽ") ("zS" "ヾ")
 153   ("zd" "ゝ") ("zD" "ゞ")
 154   ("zf" "〃") ("zF" "→")
 155   ("zg" "‐") ("zG" "―")
 156   ("zh" "←")
 157   ("zj" "↓")
 158   ("zk" "↑")
 159   ("zl" "→")
 160   ("z;" "゛") ("z:" "゜")
 161   ("z\'" "‘") ("z\"" "“")
 162
 163   ("zx" ":-") ("zX" ":-)")
 164   ("zc" "〇") ("zC" "℃")
 165   ("zv" "※") ("zV" "÷")
 166   ("zb" "°") ("zB" "←")
 167   ("zn" "′") ("zN" "↓")
 168   ("zm" "″") ("zM" "〓")
 169   ("z," "‥") ("z<" "≦")
 170   ("z." "…") ("z>" "≧")
 171   ("z/" "・") ("z?" "∞"))
 172
 173  (hatsuon
 174   ("n" "n"))
 175
 176  (sokuon
 177   ("kk")
 178   ("ss")
 179   ("tt")
 180   ("hh")
 181   ("mm")
 182   ("rr")
 183   ("ll")
 184   ("ww")
 185   ("gg")
 186   ("zz")
 187   ("dd")
 188   ("bb")
 189   ("pp")
 190   ("cc")
 191   ("jj")
 192   ("ff"))
 193
 194  (henkan
 195   (convert))
 196
 197  (kakutei
 198   (commit))
 199
 200  (backspace
 201   ((BackSpace)))
 202
 203  (edit
 204   ((Delete) (delete @+))
 205   ((BackSpace) (delete @-))
 206   ((Left) (move @-))
 207   ((Right) (move @+)))
 208
 209  (henkan-edit
 210   ((Left) (move @[))
 211   ((Right) (move @]))
 212   ((S-Left) (call libmimx-anthy resize t))
 213   ((S-Right) (call libmimx-anthy resize nil)))
 214
 215  (choose
 216   ("1" (select 0))
 217   ("2" (select 1))
 218   ("3" (select 2))
 219   ("4" (select 3))
 220   ("5" (select 4))
 221   ("6" (select 5))
 222   ("7" (select 6))
 223   ("8" (select 7))
 224   ("9" (select 8))
 225   ("0" (select 9)))
 226
 227  (change-candidate
 228   ((C-A) (select @<))
 229   ((C-P) (select @[))
 230   ((C-B) (select @-))
 231   ((Up) (select @-))
 232   (" " (select @+))
 233   ((C-F) (select @+))
 234   ((Down) (select @+))
 235   ((C-N) (select @]))
 236   ((C-E) (select @>)))
 237  )
 238
 239 (module
 240  (libmimx-anthy convert resize change commit init fini))
 241
 242 (state
 243  (init
 244   "aあ"
 245   (starter (pushback 1) (shift pre-henkan)))
 246
 247  (pre-henkan
 248   (ordinary)
 249   (alnum)
 250   (symbol)
 251   (hatsuon (shift hatsuon))
 252   (sokuon (insert "っ") (pushback 1))
 253   (henkan (call libmimx-anthy convert) (shift henkan))
 254   (kakutei (shift init))
 255   (backspace (pushback 1) (shift edit))
 256   (nil (shift fail)))
 257
 258  (hatsuon
 259   (hatsuon (delete @-) (delete @-) (insert "ん") (shift pre-henkan))
 260   (nil (delete @-) (insert "ん") (shift pre-henkan)))
 261
 262  (henkan
 263   "漢"
 264   (t (set K @@) (sub K 1))
 265   (henkan-edit)
 266   (change-candidate (call libmimx-anthy change) (show) (shift henkan2))
 267   (choose (hide) (shift init))
 268   (kakutei (call libmimx-anthy commit) (shift init))
 269   (backspace (undo K))
 270   (nil (call libmimx-anthy commit) (shift init)))
 271
 272  (henkan2
 273   "漢"
 274   (change-candidate (call libmimx-anthy change) (show))
 275   (backspace (undo K))
 276   (nil (hide) (shift henkan)))
 277
 278  (fail
 279   (backspace (undo))
 280   (starter (pushback 1) (shift pre-henkan))
 281   (nil (shift edit)))
 282
 283  (edit
 284   (edit (set C @0) (< C 0 ((shift init))))
 285   (starter (pushback 1) (shift pre-henkan))
 286   (henkan (call libmimx-anthy convert) (shift henkan))
 287   (kakutei (shift init))))
 288
 289 ;; Local Variables:
 290 ;; mode: lisp
 291 ;; coding: utf-8
 292 ;; End: