New input method.

diff --git a/cjk-util.mim b/cjk-util.mim
new file mode 100644 (file)
index 0000000..59d9c1f
--- /dev/null
+++ b/cjk-util.mim
@@ -0,0 +1,115 @@
+;; cjk-util.mim -- Provide utilities for CJK input methods.
+;; Copyright (C) 2005
+;;   National Institute of Advanced Industrial Science and Technology (AIST)
+;;   Registration Number H15PRO112
+
+;; This file is 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.
+
+;;; <li> fullwidth.mim
+
+(input-method t nil cjk-util)
+
+(title "AＡ")
+
+(description
+ "")
+
+(map
+ (fullwidth
+  (" " ?　)  ("!" ?！)  ("\"" ?＂) ("#" ?＃)
+  ("$" ?＄)  ("%" ?％)  ("&" ?＆)  ("'" ?＇)
+  ("(" ?\（) (")" ?\）) ("*" ?＊)  ("+" ?＋)
+  ("," ?，)  ("-" ?－)  ("." ?．)  ("/" ?／)
+  ("0" ?０)  ("1" ?１)  ("2" ?２)  ("3" ?３)
+  ("4" ?４)  ("5" ?５)  ("6" ?６)  ("7" ?７)
+  ("8" ?８)  ("9" ?９)  (":" ?：)  (";" ?；)
+  ("<" ?＜)  ("=" ?＝)  (">" ?＞)  ("?" ?？)
+  ("@" ?＠)  ("A" ?Ａ)  ("B" ?Ｂ)  ("C" ?Ｃ)
+  ("D" ?Ｄ)  ("E" ?Ｅ)  ("F" ?Ｆ)  ("G" ?Ｇ)
+  ("H" ?Ｈ)  ("I" ?Ｉ)  ("J" ?Ｊ)  ("K" ?Ｋ)
+  ("L" ?Ｌ)  ("M" ?Ｍ)  ("N" ?Ｎ)  ("O" ?Ｏ)
+  ("P" ?Ｐ)  ("Q" ?Ｑ)  ("R" ?Ｒ)  ("S" ?Ｓ)
+  ("T" ?Ｔ)  ("U" ?Ｕ)  ("V" ?Ｖ)  ("W" ?Ｗ)
+  ("X" ?Ｘ)  ("Y" ?Ｙ)  ("Z" ?Ｚ)  ("[" ?\［)
+  ("\\" ?＼) ("]" ?\］) ("^" ?＾)  ("_" ?＿)
+  ("`" ?｀)  ("a" ?ａ)  ("b" ?ｂ)  ("c" ?ｃ)
+  ("d" ?ｄ)  ("e" ?ｅ)  ("f" ?ｆ)  ("g" ?ｇ)
+  ("h" ?ｈ)  ("i" ?ｉ)  ("j" ?ｊ)  ("k" ?ｋ)
+  ("l" ?ｌ)  ("m" ?ｍ)  ("n" ?ｎ)  ("o" ?ｏ)
+  ("p" ?ｐ)  ("q" ?ｑ)  ("r" ?ｒ)  ("s" ?ｓ)
+  ("t" ?ｔ)  ("u" ?ｕ)  ("v" ?ｖ)  ("w" ?ｗ)
+  ("x" ?ｘ)  ("y" ?ｙ)  ("z" ?ｚ)  ("{" ?\｛)
+  ("|" ?｜)  ("}" ?\｝) ("~" ?～)
+
+  ((cent) ?￠)
+  ((sterling) ?￡)
+  ((notsign) ?￢)
+  ((brokenbar) ?￤)
+  ((yen) ?￥)
+  ((Korean_Won) ?￦))
+
+ (enter-fullwidth-mode
+  (">>" (shift fullwidth-mode)))
+ (exit-fullwidth-mode
+  ("<<" (shift t)))
+ (enter-single-fullwidth-mode
+  ("Z" (shift single-fullwidth-mode)))
+
+ ;; Typing 1, 2, ..., 0 selects the 0th, 1st, ..., 9th candidate.
+ (choose
+  ("1" (select 0))
+  ("2" (select 1))
+  ("3" (select 2))
+  ("4" (select 3))
+  ("5" (select 4))
+  ("6" (select 5))
+  ("7" (select 6))
+  ("8" (select 7))
+  ("9" (select 8))
+  ("0" (select 9)))
+
+ (change-candidate
+  ((Left) (select @-))
+  ((C-b) (select @-))
+  ((Right) (select @+))
+  ((C-f) (select @+))
+  ((Up) (select @[))
+  ((C-p) (select @[))
+  ((Down) (select @]))
+  ((C-n) (select @]))))
+
+(state
+ (init
+  "A"
+  (enter-fullwidth-mode)
+  (enter-single-fullwidth-mode))
+
+ (fullwidth-mode
+  "Ａ"
+  (fullwidth (commit))
+  (exit-fullwidth-mode)
+  (nil (unhandle)))
+
+ (single-fullwidth-mode
+  "Ａ"
+  (fullwidth (commit) (shift t))))
+
+;; Local Variables:
+;; mode: lisp
+;; coding: utf-8
+;; End:

diff --git a/zh-py-b5.mim b/zh-py-b5.mim
new file mode 100644 (file)
index 0000000..6f3ead3
--- /dev/null
+++ b/zh-py-b5.mim
@@ -0,0 +1,45 @@
+;; zh-py-b5.mim -- Chinese Big5 input method with Pinyin sequence
+;; Copyright (C) 2005
+;;   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.
+
+(input-method zh py-b5)
+
+(description "Chinese Big5 input method with Pinyin sequence.
+In addition to Chinese characters, fullwidth latin characters and
+symbols are available in fullwidth mode (turns on and off by
+\">>\" and \"<<\" respectively).  This mode can also be turned on
+temporarily by typing \"Z\".
+")
+
+(title "拼B5")
+
+(variable
+ (candidates-group-size "" 10)
+ (candidates-charset "" big5))
+
+(include (zh py) map)
+(include (zh py) state)
+
+;; Local Variables:
+;; coding: utf-8
+;; mode: lisp
+;; End:

diff --git a/zh-py-gb.mim b/zh-py-gb.mim
new file mode 100644 (file)
index 0000000..b0b7a54
--- /dev/null
+++ b/zh-py-gb.mim
@@ -0,0 +1,45 @@
+;; zh-py-gb.mim -- Chinese GB2312.1980 input method with Pinyin sequence
+;; Copyright (C) 2005
+;;   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.
+
+(input-method zh py-gb)
+
+(description "Chinese GB2312 input method with Pinyin sequence.
+In addition to Chinese characters, fullwidth latin characters and
+symbols are available in fullwidth mode (turns on and off by
+\">>\" and \"<<\" respectively).  This mode can also be turned on
+temporarily by typing \"Z\".
+")
+
+(title "拼gb")
+
+(variable
+ (candidates-group-size "" 10)
+ (candidates-charset "" gb2312.1980))
+
+(include (zh py) map)
+(include (zh py) state)
+
+;; Local Variables:
+;; coding: utf-8
+;; mode: lisp
+;; End: