ja-anthy.mim

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