+++ /dev/null
-;; -*- mode: lisp; coding: utf-8; -*-
-;; Copyright (C) 2003, 2004
-;; National Institute of Advanced Industrial Science and Technology (AIST)
-;; Registration Number H15PRO112
-
-;; This file is part of the m17n database; a sub-part of the m17n
-;; library.
-
-;; The m17n library is free software; you can redistribute it and/or
-;; modify it under the terms of the GNU Lesser General Public License
-;; as published by the Free Software Foundation; either version 2.1 of
-;; the License, or (at your option) any later version.
-
-;; The m17n library is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
-;; Lesser General Public License for more details.
-
-;; You should have received a copy of the GNU Lesser General Public
-;; License along with the m17n library; if not, write to the Free
-;; Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
-;; 02111-1307, USA.
-
-(title "aあ")
-(map
- (starter
- ("a") ("i") ("u") ("e") ("o")
- ("k") ("s") ("t") ("n") ("h") ("m") ("y") ("r") ("l") ("w")
- ("g") ("z") ("d") ("b") ("p")
- ("c") ("j") ("f") ("x") ("v") ("z")
- ("1") ("2") ("3") ("4") ("5") ("6") ("7") ("8") ("9") ("0")
- ("!") ("@") ("#") ("$") ("%") ("^") ("&") ("*") ("(") (")")
- ("-") ("=") ("`") ("\\") ("|") ("_") ("+") ("~") ("[") ("]")
- ("{") ("}") (":") (";") ("\"") ("'") (".") (",") ("<") (">")
- ("?") ("/"))
-
- (ordinary
- ( "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" "ろ")
- ("la" "ら") ("li" "り") ("lu" "る") ("le" "れ") ("lo" "ろ")
- ("wa" "わ") ("wi" "ゐ") ("wu" "う") ("we" "ゑ") ("wo" "を")
- ("n'" "ん")
- ("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" "ぽ")
-
- ("kya" "きゃ") ("kyu" "きゅ") ("kye" "きぇ") ("kyo" "きょ")
- ("sya" "しゃ") ("syu" "しゅ") ("sye" "しぇ") ("syo" "しょ")
- ("sha" "しゃ") ("shu" "しゅ") ("she" "しぇ") ("sho" "しょ")
- ("cha" "ちゃ") ("chu" "ちゅ") ("che" "ちぇ") ("cho" "ちょ")
- ("tya" "ちゃ") ("tyu" "ちゅ") ("tye" "ちぇ") ("tyo" "ちょ")
- ("nya" "にゃ") ("nyu" "にゅ") ("nye" "にぇ") ("nyo" "にょ")
- ("hya" "ひゃ") ("hyu" "ひゅ") ("hye" "ひぇ") ("hyo" "ひょ")
- ("mya" "みゃ") ("myu" "みゅ") ("mye" "みぇ") ("myo" "みょ")
- ("rya" "りゃ") ("ryu" "りゅ") ("rye" "りぇ") ("ryo" "りょ")
- ("lya" "りゃ") ("lyu" "りゅ") ("lye" "りぇ") ("lyo" "りょ")
- ("gya" "ぎゃ") ("gyu" "ぎゅ") ("gye" "ぎぇ") ("gyo" "ぎょ")
- ("zya" "じゃ") ("zyu" "じゅ") ("zye" "じぇ") ("zyo" "じょ")
- ("jya" "じゃ") ("jyu" "じゅ") ("jye" "じぇ") ("jyo" "じょ")
- ( "ja" "じゃ") ( "ju" "じゅ") ( "je" "じぇ") ( "jo" "じょ")
- ("bya" "びゃ") ("byu" "びゅ") ("bye" "びぇ") ("byo" "びょ")
- ("pya" "ぴゃ") ("pyu" "ぴゅ") ("pye" "ぴぇ") ("pyo" "ぴょ")
-
- ("kwa" "くゎ") ("kwi" "くぃ") ("kwe" "くぇ") ("kwo" "くぉ")
- ("tsa" "つぁ") ("tsi" "つぃ") ("tse" "つぇ") ("tso" "つぉ")
- ( "fa" "ふぁ") ( "fi" "ふぃ") ( "fe" "ふぇ") ( "fo" "ふぉ")
- ("gwa" "ぐゎ") ("gwi" "ぐぃ") ("gwe" "ぐぇ") ("gwo" "ぐぉ")
-
- ("dyi" "でぃ") ("dyu" "どぅ") ("dye" "でぇ") ("dyo" "どぉ")
- ("xwi" "うぃ") ("xwe" "うぇ") ("xwo" "うぉ")
-
- ("shi" "し") ("tyi" "てぃ") ("chi" "ち") ("tsu" "つ") ("ji" "じ")
- ("fu" "ふ")
- ("ye" "いぇ")
-
- ("va" "ヴぁ") ("vi" "ヴぃ") ("vu" "ヴ") ("ve" "ヴぇ") ("vo" "ヴぉ")
-
- ("xa" "ぁ") ("xi" "ぃ") ("xu" "ぅ") ("xe" "ぇ") ("xo" "ぉ")
- ("xtu" "っ") ("xya" "ゃ") ("xyu" "ゅ") ("xyo" "ょ") ("xwa" "ゎ")
- ("xka" "ヵ") ("xke" "ヶ"))
-
- (alnum
- ("1" "1") ("2" "2") ("3" "3") ("4" "4") ("5" "5")
- ("6" "6") ("7" "7") ("8" "8") ("9" "9") ("0" "0")
-
- ("!" "!") ("@" "@") ("#" "#") ("$" "$") ("%" "%")
- ("^" "^") ("&" "&") ("*" "*") ("(" "(") (")" ")")
- ("-" "ー") ("=" "=") ("`" "`") ("\\" "¥") ("|" "|")
- ("_" "_") ("+" "+") ("~" " ̄") ("[" "「") ("]" "」")
- ("{" "{") ("}" "}") (":" ":") (";" ";") ("\"" "”")
- ("'" "’") ("." "。") ("," "、") ("<" "<") (">" ">")
- ("?" "?") ("/" "/"))
-
- (symbol
- ("z1" "○") ("z!" "●")
- ("z2" "▽") ("z@" "▼")
- ("z3" "△") ("z#" "▲")
- ("z4" "□") ("z$" "■")
- ("z5" "◇") ("z%" "◆")
- ("z6" "☆") ("z^" "★")
- ("z7" "◎") ("z&" "£")
- ("z8" "¢") ("z*" "×")
- ("z9" "♂") ("z(" "【")
- ("z0" "♀") ("z)" "】")
- ("z-" "〜") ("z_" "∴")
- ("z=" "≠") ("z+" "±")
- ("z\\" "\") ("z|" "‖")
- ("z`" "´") ("z~" "¨")
-
- ("zq" "《") ("zQ" "〈")
- ("zw" "》") ("zW" "〉")
- ("zr" "々") ("zR" "仝")
- ("zt" "〆") ("zT" "§")
- ("zp" "〒") ("zP" "↑")
- ("z[" "『") ("z{" "〔")
- ("z]" "』") ("z}" "〕")
-
- ("zs" "ヽ") ("zS" "ヾ")
- ("zd" "ゝ") ("zD" "ゞ")
- ("zf" "〃") ("zF" "→")
- ("zg" "‐") ("zG" "―")
- ("zh" "←")
- ("zj" "↓")
- ("zk" "↑")
- ("zl" "→")
- ("z;" "゛") ("z:" "゜")
- ("z\'" "‘") ("z\"" "“")
-
- ("zx" ":-") ("zX" ":-)")
- ("zc" "〇") ("zC" "℃")
- ("zv" "※") ("zV" "÷")
- ("zb" "°") ("zB" "←")
- ("zn" "′") ("zN" "↓")
- ("zm" "″") ("zM" "〓")
- ("z," "‥") ("z<" "≦")
- ("z." "…") ("z>" "≧")
- ("z/" "・") ("z?" "∞"))
-
- (hatsuon
- ("n" "n"))
-
- (sokuon
- ("kk")
- ("ss")
- ("tt")
- ("hh")
- ("mm")
- ("rr")
- ("ll")
- ("ww")
- ("gg")
- ("zz")
- ("dd")
- ("bb")
- ("pp")
- ("cc")
- ("jj")
- ("ff"))
-
- (henkan
- ((Henkan))
- (" "))
-
- (kakutei
- ((Return))
- ((Linefeed)))
-
- (backspace
- ((BackSpace)))
-
- (edit
- ((Delete) (delete @+))
- ((BackSpace) (delete @-))
- ((Left) (move @-))
- ((Right) (move @+)))
- )
-
-(module
- ("libim-ja-module.so" conversion))
-
-(state
- (init
- (starter (pushback 1) (shift pre-henkan)))
-
- (pre-henkan
- (ordinary)
- (alnum)
- (symbol)
- (hatsuon (delete @-) (insert "ん"))
- (sokuon (insert "っ") (pushback 1))
- (henkan (call conversion))
- (kakutei (shift init))
- (backspace (pushback 1) (shift edit))
- (nil (shift fail)))
-
- (fail
- (backspace (undo))
- (starter (pushback 1) (shift pre-henkan))
- (nil (shift edit)))
-
- (edit
- (edit)
- (starter (pushback 1) (shift pre-henkan))
- (kakutei (shift init))))