code.delx.au - gnu-emacs/blob - leim/quail/japanese.el

   1 ;;; quail/japanese.el --- Quail package for inputting Japanese
   2
   3 ;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN.
   4 ;; Licensed to the Free Software Foundation.
   5
   6 ;; Keywords: multilingual, input method, Japanese
   7
   8 ;; This file is part of GNU Emacs.
   9
  10 ;; GNU Emacs is free software; you can redistribute it and/or modify
  11 ;; it under the terms of the GNU General Public License as published by
  12 ;; the Free Software Foundation; either version 2, or (at your option)
  13 ;; any later version.
  14
  15 ;; GNU Emacs is distributed in the hope that it will be useful,
  16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  18 ;; GNU General Public License for more details.
  19
  20 ;; You should have received a copy of the GNU General Public License
  21 ;; along with GNU Emacs; see the file COPYING.  If not, write to the
  22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  23 ;; Boston, MA 02111-1307, USA.
  24
  25 ;;; Code:
  26
  27 (require 'quail)
  28 (require 'kkc)
  29
  30 (defvar quail-japanese-use-double-n nil
  31   "If non-nil, use type \"nn\" to insert \e$B$s\e(B.")
  32
  33 ;; Update Quail translation region while considering Japanese bizarre
  34 ;; translation rules.
  35 (defun quail-japanese-update-translation (control-flag)
  36   (if (null control-flag)
  37       (setq quail-current-str
  38             (if (/= (aref quail-current-key 0) ?q)
  39                 (or quail-current-str quail-current-key)
  40               ""))
  41     (if (integerp control-flag)
  42         (if (= control-flag 0)
  43             (setq quail-current-str (aref quail-current-key 0))
  44           (cond ((= (aref quail-current-key 0) ?n)
  45                  (setq quail-current-str ?\e$B$s\e(B)
  46                  (if (and quail-japanese-use-double-n
  47                           (= (aref quail-current-key 1) ?n))
  48                      (setq control-flag t)))
  49                 ((= (aref quail-current-key 0) (aref quail-current-key 1))
  50                  (setq quail-current-str ?\e$B$C\e(B))
  51                 (t
  52                  (setq quail-current-str (aref quail-current-key 0))))
  53           (if (integerp control-flag)
  54               (setq unread-command-events
  55                     (list (aref quail-current-key control-flag)))))))
  56   control-flag)
  57
  58 ;; Flag to control the behavior of `quail-japanese-toggle-kana'.
  59 (defvar quail-japanese-kana-state nil)
  60 (make-variable-buffer-local 'quail-japanese-kana-state)
  61
  62 ;; Convert Hiragana <-> Katakana in the current translation region.
  63 (defun quail-japanese-toggle-kana ()
  64   (interactive)
  65   (setq quail-translating nil)
  66   (let ((start (overlay-start quail-conv-overlay))
  67         (end (overlay-end quail-conv-overlay)))
  68     (setq quail-japanese-kana-state
  69           (if (eq last-command this-command)
  70               (not quail-japanese-kana-state)))
  71     (if quail-japanese-kana-state
  72         (japanese-hiragana-region start end)
  73       (japanese-katakana-region start end))
  74     (setq quail-conversion-str
  75           (buffer-substring (overlay-start quail-conv-overlay)
  76                             (overlay-end quail-conv-overlay)))))
  77
  78 ;; Convert Hiragana in the current translation region to Kanji by KKC
  79 ;; (Kana Kanji Converter) utility.
  80 (defun quail-japanese-kanji-kkc ()
  81   (interactive)
  82   (let ((from (overlay-start quail-conv-overlay))
  83         (to (overlay-end quail-conv-overlay)))
  84     (quail-delete-overlays)
  85     (setq quail-current-str nil)
  86     (when (= (char-before to) ?n)
  87       ;; The last char is `n'.  We had better convert it to `\e$B$s\e(B'
  88       ;; before kana-kanji conversion.
  89       (goto-char to)
  90       (delete-char -1)
  91       (insert ?\e$B$s\e(B))
  92     (let ((result (kkc-region from to)))
  93       (move-overlay quail-conv-overlay from (point))
  94       (setq quail-conversion-str (buffer-substring from (point)))
  95       (if (= (+ from result) (point))
  96           (setq quail-converting nil))
  97       (setq quail-translating nil))))
  98
  99 (defun quail-japanese-self-insert-and-switch-to-alpha (key idx)
 100   (quail-delete-region)
 101   (setq unread-command-events (list (aref key (1- idx))))
 102   (quail-japanese-switch-package "q" 1))
 103
 104 (defvar quail-japanese-switch-table
 105   '((?z . "japanese-zenkaku")
 106     (?k . "japanese-hankaku-kana")
 107     (?h . "japanese")
 108     (?q . ("japanese-ascii"))))
 109
 110 (defvar quail-japanese-package-saved nil)
 111 (make-variable-buffer-local 'quail-japanese-package-saved)
 112 (put 'quail-japanese-package-saved 'permanent-local t)
 113
 114 (defun quail-japanese-switch-package (key idx)
 115   (quail-delete-region)
 116   (setq quail-current-str nil
 117         quail-converting nil
 118         quail-conversion-str "")
 119   (let ((pkg (cdr (assq (aref key (1- idx)) quail-japanese-switch-table))))
 120     (if (null pkg)
 121         (quail-error "No package to be switched")
 122       (if (stringp pkg)
 123           (activate-input-method pkg)
 124         (if (string= (car pkg) current-input-method)
 125             (if quail-japanese-package-saved
 126                 (activate-input-method quail-japanese-package-saved))
 127           (setq quail-japanese-package-saved current-input-method)
 128           (activate-input-method (car pkg))))))
 129   (throw 'quail-tag nil))
 130
 131 ;; \e$B%m!<%^;zF~NO5Z$S2>L>4A;zJQ49$K$h$kF|K\8lF~NO%a%=%C%I\e(B
 132 ;;
 133 ;; \e$B$3$NF~NO%a%=%C%I$G$NF|K\8l$NF~NO$OFs$D$N%9%F!<%8!V%m!<%^;z2>L>JQ49!W\e(B
 134 ;; \e$B$H!V2>L>4A;zJQ49!W$+$i$J$k!#:G=i$O%m!<%^;z2>L>JQ49$N%9%F!<%8$G!"%9\e(B
 135 ;; \e$B%Z!<%9%-!<$r2!$9$3$H$K$h$j!"<!$N%9%F!<%8!V2>L>4A;zJQ49!W$X?J$`!#\e(B
 136 ;;
 137 ;; \e$B!V%m!<%^;z2>L>JQ49!W\e(B
 138 ;;
 139 ;; \e$BJ?2>L>$O>.J8;z%-!<!JNs!K$rBG$D$3$H$K$h$jF~NO!#6gFIE@!"3g8LN`$OBP1~\e(B
 140 ;; \e$B$9$k1Q;z%-!<$rBG$D$3$H$K$h$jF~NO!#$=$NB>$N%7%s%\%k$O\e(B `z' \e$B$KB3$1$F2?\e(B
 141 ;; \e$B$l$+$N%-!<$rBG$D$3$H$K$h$jF~NO!#2<$KA4$F$N2DG=$J%-!<%7!<%1%s%9%j%9\e(B
 142 ;; \e$B%H%"%C%W$5$l$F$$$k!#F~NO$5$l$?J8;z$O2<@~$G<($5$l$k!#\e(B
 143 ;;
 144 ;; \e$B$5$i$K0J2<$N%-!<$GFCJL$J=hM}$r9T$&!#\e(B
 145 ;;
 146 ;; K    \e$BJ?2>L>$rJR2>L>$K!"$"$k$$$OJR2>L>$rJ?2>L>$KJQ49\e(B
 147 ;; qq   \e$B$3$NF~NO%a%=%C%I$H\e(B `japanese-ascii' \e$BF~NO%a%=%C%I$r%H%0%k@ZBX\e(B
 148 ;; qz   `japanese-zenkaku' \e$BF~NO%a%=%C%I$K%7%U%H\e(B
 149 ;;      qh \e$B$HBG$F$P85$KLa$k\e(B
 150 ;; RET  \e$B8=:_$NF~NOJ8;zNs$r3NDj\e(B
 151 ;; SPC  \e$B2>L>4A;zJQ49$K?J$`\e(B
 152 ;;
 153 ;; `japanese-ascii' \e$BF~NO%a%=%C%I$O\e(B ASCII \e$BJ8;z$rF~NO$9$k$N$K;H$&!#$3$l\e(B
 154 ;; \e$B$OF~NO%a%=%C%I$r%*%U$K$9$k$N$H$[$H$s$IF1$8$G$"$k!#0[$J$k$N$O\e(B qq \e$B$H\e(B
 155 ;; \e$BBG$D$3$H$K$h$j!"\e(B`japanese' \e$BF~NO%a%=%C%I$KLa$l$kE@$G$"$k!#\e(B
 156 ;;
 157 ;; `japanese-zenkaku' \e$BF~NO%a%=%C%I$OA43Q1Q?t;z$rF~NO$9$k$N$K;H$&!#\e(B
 158 ;;
 159 ;; \e$B0J2<$K!V%m!<%^;z2>L>JQ49!W%9%F!<%8$G$N%-!<%7!<%1%s%9$r5s$2$k!#\e(B
 160 ;;
 161 ;; [omitted]
 162 ;;
 163 ;; \e$B!V2>L>4A;zJQ49!W\e(B
 164 ;;
 165 ;; \e$B$3$N%9%F!<%8$G$O!"A0%9%F!<%8$GF~NO$5$l$?J8;zNs$r2>L>4A;zJQ49$9$k!#\e(B
 166 ;; \e$BJQ49$5$l$?J8;zNs$O!"CmL\J8@a!JH?E>I=<(!K$H;D$j$NF~NO!J2<@~I=<(!K$K\e(B
 167 ;; \e$BJ,$1$i$l$k!#CmL\J8@a$KBP$7$F$O0J2<$N%3%^%s%I$,;H$($k!#\e(B
 168 ;;
 169 ;; SPC, C-n     kkc-next
 170 ;;      \e$B<!$NJQ498uJd$rI=<(\e(B
 171 ;; C-p          kkc-prev
 172 ;;      \e$BA0$NJQ498uJd$rI=<(\e(B
 173 ;; l            kkc-show-conversion-list-or-next-group
 174 ;;      \e$B:G9b#1#08D$^$G$NJQ498uJd$r%(%3!<%(%j%"$KI=<(!#\e(B
 175 ;;      \e$BB3$1$FBG$?$l$l$P!"<!$N#1#08uJd$rI=<(!#\e(B
 176 ;; L            kkc-show-conversion-list-or-prev-group
 177 ;;      \e$B:G9b#1#08D$^$G$NJQ498uJd$r%(%3!<%(%j%"$KI=<(!#\e(B
 178 ;;      \e$BB3$1$FBG$?$l$l$P!"A0$N#1#08uJd$rI=<(!#\e(B
 179 ;; 0..9         kkc-select-from-list
 180 ;;      \e$BBG$?$l$??t;z$NJQ498uJd$rA*Br\e(B
 181 ;; H            kkc-hiragana
 182 ;;      \e$BCmL\J8@a$rJ?2>L>$KJQ49\e(B
 183 ;; K            kkc-katakana
 184 ;;      \e$BCmL\J8@a$rJR2>L>$KJQ49\e(B
 185 ;; C-o          kkc-longer
 186 ;;      \e$BCmL\J8@a$r8e$m$K0lJ8;z?-$P$9\e(B
 187 ;; C-i          kkc-shorter
 188 ;;      \e$BCmL\J8@a$r8e$m$+$i0lJ8;z=L$a$k\e(B
 189 ;; C-f          kkc-next-phrase
 190 ;;      \e$BCmL\J8@a$r3NDj$5$;$k!#$b$7;D$j$NF~NO$,$^$@$"$l$P!":G=i$NJ8@a$r\e(B
 191 ;;      \e$BA*Br$7!"$=$l$rCmL\J8@a$H$7!"$=$N:G=i$NJQ498uJd$rI=<($9$k!#\e(B
 192 ;; DEL, C-c     kkc-cancel
 193 ;;      \e$B2>L>4A;zJQ49$r%-%c%s%;%k$7!"%m!<%^;z2>L>JQ49$N%9%F!<%8$KLa$k!#\e(B
 194 ;; return               kkc-terminate
 195 ;;      \e$BA4J8@a$r3NDj$5$;$k!#\e(B
 196 ;; C-SPC, C-@   kkc-first-char-only
 197 ;;      \e$B:G=i$NJ8;z$r3NDj$5$;!";D$j$O:o=|$9$k!#\e(B
 198 ;; C-h          kkc-help
 199 ;;      \e$B$3$l$i$N%-!<%P%$%s%I$N%j%9%H$rI=<($9$k!#$"\e(B
 200
 201 (quail-define-package
 202  "japanese" "Japanese" "A\e$B$"\e(B"
 203  nil
 204  "Japanese input method using Roman transliteration and Kana-Kanji conversion.
 205
 206 When you use this input method, text entry proceeds in two stages:
 207 Roman-Kana transliteration and Kana-Kanji conversion.  When you start
 208 to enter text, you are in the first stage, Roman-Kana transliteration.
 209 Type SPC to proceed to the next stage, Kana-Kanji conversion.
 210
 211 :: Roman-Kana transliteration ::
 212
 213 You can input any Hiragana character as a sequence of lower-case
 214 letters, Japanese punctuation characters by typing punctuation keys,
 215 Japanese symbols by typing `z' followed by another key.  See below for
 216 a list of all available sequences.  The characters you input are
 217 underlined.
 218
 219 In addition, the following keys provide special effects:
 220
 221 K       Change Hiragana to Katakana or Katakana to Hiragana.
 222 qq      Toggle between this input method and the `japanese-ascii' input method.
 223 qz      Shift to the `japanese-zenkaku' input method.
 224         Typing \"qh\" will put you back to this input method.
 225 RET     Accept the current character sequence.
 226 SPC     Proceed to the next stage, Kana-Kanji conversion.
 227
 228 The `japanese-ascii' input method is used to enter ASCII characters.
 229 This is almost the same as turning off the input method.  The only
 230 difference is that typing `qq' will put you back into the Japanese
 231 input method.
 232
 233 The `japanese-zenkaku' input methods is used to enter full width
 234 JISX0208 characters corresponding to typed ASCII characters.
 235
 236 Here's a list of key sequences for Roman-Kana transliteration.
 237
 238 a  \e$B$"\e(B  i \e$B$$\e(B  u \e$B$&\e(B  e \e$B$(\e(B  o \e$B$*\e(B
 239 ka \e$B$+\e(B ki \e$B$-\e(B ku \e$B$/\e(B ke \e$B$1\e(B ko \e$B$3\e(B     ga \e$B$,\e(B gi \e$B$.\e(B gu \e$B$0\e(B ge \e$B$2\e(B go \e$B$4\e(B
 240 sa \e$B$5\e(B si \e$B$7\e(B su \e$B$9\e(B se \e$B$;\e(B so \e$B$=\e(B     za \e$B$6\e(B zi \e$B$8\e(B zu \e$B$:\e(B ze \e$B$<\e(B zo \e$B$>\e(B
 241 ta \e$B$?\e(B ti \e$B$A\e(B tu \e$B$D\e(B te \e$B$F\e(B to \e$B$H\e(B     da \e$B$@\e(B di \e$B$B\e(B du \e$B$E\e(B de \e$B$G\e(B do \e$B$I\e(B
 242 na \e$B$J\e(B ni \e$B$K\e(B nu \e$B$L\e(B ne \e$B$M\e(B no \e$B$N\e(B
 243 ha \e$B$O\e(B hi \e$B$R\e(B hu \e$B$U\e(B he \e$B$X\e(B ho \e$B$[\e(B     ba \e$B$P\e(B bi \e$B$S\e(B bu \e$B$V\e(B be \e$B$Y\e(B bo \e$B$\\e(B
 244 ma \e$B$^\e(B mi \e$B$_\e(B mu \e$B$`\e(B me \e$B$a\e(B mo \e$B$b\e(B     pa \e$B$Q\e(B pi \e$B$T\e(B pu \e$B$W\e(B pe \e$B$Z\e(B po \e$B$]\e(B
 245 ya \e$B$d\e(B       yu \e$B$f\e(B       yo \e$B$h\e(B
 246 ra \e$B$i\e(B ri \e$B$j\e(B ru \e$B$k\e(B re \e$B$l\e(B ro \e$B$m\e(B
 247 la \e$B$i\e(B li \e$B$j\e(B lu \e$B$k\e(B le \e$B$l\e(B lo \e$B$m\e(B
 248 wa \e$B$o\e(B wi \e$B$p\e(B wu \e$B$&\e(B we \e$B$q\e(B wo \e$B$r\e(B n' \e$B$s\e(B
 249
 250 kya \e$B$-$c\e(B kyu \e$B$-$e\e(B kye \e$B$-$'\e(B kyo \e$B$-$g\e(B
 251 sha \e$B$7$c\e(B shu \e$B$7$e\e(B she \e$B$7$'\e(B sho \e$B$7$g\e(B sya \e$B$7$c\e(B syu \e$B$7$e\e(B sye \e$B$7$'\e(B syo \e$B$7$g\e(B
 252 cha \e$B$A$c\e(B chu \e$B$A$e\e(B che \e$B$A$'\e(B cho \e$B$A$g\e(B tya \e$B$A$c\e(B tyu \e$B$A$e\e(B tye \e$B$A$'\e(B tyo \e$B$A$g\e(B
 253 nya \e$B$K$c\e(B nyu \e$B$K$e\e(B nye \e$B$K$'\e(B nyo \e$B$K$g\e(B
 254 hya \e$B$R$c\e(B hyu \e$B$R$e\e(B hye \e$B$R$'\e(B hyo \e$B$R$g\e(B
 255 mya \e$B$_$c\e(B myu \e$B$_$e\e(B mye \e$B$_$'\e(B myo \e$B$_$g\e(B
 256 rya \e$B$j$c\e(B ryu \e$B$j$e\e(B rye \e$B$j$'\e(B ryo \e$B$j$g\e(B lya \e$B$j$c\e(B lyu \e$B$j$e\e(B lye \e$B$j$'\e(B lyo \e$B$j$g\e(B
 257 gya \e$B$.$c\e(B gyu \e$B$.$e\e(B gye \e$B$.$'\e(B gyo \e$B$.$g\e(B
 258 zya \e$B$8$c\e(B zyu \e$B$8$e\e(B zye \e$B$8$'\e(B zyo \e$B$8$g\e(B jya \e$B$8$c\e(B jyu \e$B$8$e\e(B jye \e$B$8$'\e(B jyo \e$B$8$g\e(B
 259 ja  \e$B$8$c\e(B ju  \e$B$8$e\e(B je  \e$B$8$'\e(B jo  \e$B$8$g\e(B
 260 bya \e$B$S$c\e(B byu \e$B$S$e\e(B bye \e$B$S$'\e(B byo \e$B$S$g\e(B pya \e$B$T$c\e(B pyu \e$B$T$e\e(B pye \e$B$T$'\e(B pyo \e$B$T$g\e(B
 261
 262 kwa \e$B$/$n\e(B kwi \e$B$/$#\e(B kwe \e$B$/$'\e(B kwo \e$B$/$)\e(B
 263 tsa \e$B$D$!\e(B tsi \e$B$D$#\e(B tse \e$B$D$'\e(B tso \e$B$D$)\e(B
 264 fa  \e$B$U$!\e(B fi  \e$B$U$#\e(B fe  \e$B$U$'\e(B fo  \e$B$U$)\e(B
 265 gwa \e$B$0$n\e(B gwi \e$B$0$#\e(B gwe \e$B$0$'\e(B gwo \e$B$0$)\e(B
 266 dyi \e$B$G$#\e(B dyu \e$B$I$%\e(B dye \e$B$G$'\e(B dyo \e$B$I$)\e(B
 267
 268 shi \e$B$7\e(B   tyi \e$B$F$#\e(B chi \e$B$A\e(B   tsu \e$B$D\e(B   ji \e$B$8\e(B fu  \e$B$U\e(B
 269 xwi \e$B$&$#\e(B xwe \e$B$&$'\e(B xwo \e$B$&$)\e(B ye  \e$B$$$'\e(B
 270
 271 va \e$B%t$!\e(B vi \e$B%t$#\e(B vu \e$B%t\e(B ve \e$B%t$'\e(B vo \e$B%t$)\e(B
 272
 273 xa  \e$B$!\e(B xi  \e$B$#\e(B xu  \e$B$%\e(B xe  \e$B$'\e(B xo  \e$B$)\e(B xtu \e$B$C\e(B
 274 xya \e$B$c\e(B xyu \e$B$e\e(B xyo \e$B$g\e(B xwa \e$B$n\e(B xka \e$B%u\e(B xke \e$B%v\e(B
 275
 276 Digists and punctuations:
 277
 278 key:  1 2 3 4 5 6 7 8 9 0 - = \ ` ! @ # $ % ^ & * ( ) _ + | ~
 279 char: \e$B#1#2#3#4#5#6#7#8#9#0!<!a!o!.!*!w!t!p!s!0!u!v!J!K!2!\!C!1\e(B
 280
 281 key:  [ ] { } ; ' : \" , . / < > ?
 282 char: \e$B!V!W!P!Q!(!G!"!#!?!'!I!c!d!)\e(B
 283
 284 Symbols (`z' followed by these keys):
 285
 286 Key:  1 2 3 4 5 6 7 8 9 0 - = \ ` ! @ # $ % ^ & * ( ) _ + | ~
 287 char: \e$B!{"&"$""!~!y!}!q!i!j!A!b!@!-!|"'"%"#"!!z!r!_!Z![!h!^!B!/\e(B
 288
 289 Key:  [ ] { } ; ' : \" , . / < > ?
 290 char: \e$B!X!Y!L!M!+!F!,!H!E!D!&!e!f!g\e(B
 291
 292 Key:  b c d f g h j k l m n p q r s t v w B C D F G M N P Q R S T V W
 293 char: \e$B!k!;!5!7!>"+"-","*!m!l")!T!9!3!:"(!U"+!n!6"*!="."-",!R!8!4!x!`!S\e(B
 294
 295 Key:  x   X
 296 str:  :-  :-)
 297
 298 :: Kana-Kanji conversion ::
 299
 300 You can convert the current Japanese characters (underlined) to
 301 Kana-Kanji mixed text.  In this stage, the converted text is divided
 302 into two parts, the current phrase (highlighted) and the remaining
 303 input (underlined).  The following commands can be used on the
 304 current phrase.
 305
 306 SPC, C-n        kkc-next
 307         Show the next candidate for the current phrase.
 308 C-p             kkc-prev
 309         Show the previous candidate for the current phrase.
 310 l               kkc-show-conversion-list-or-next-group
 311         Show at most 10  candidates for the current phrase in echo area.
 312         If typed repeatedly, show the next 10 candidates.
 313 L               kkc-show-conversion-list-or-prev-group
 314         Show at most 10 candidates for the current phrase in echo area.
 315         If typed repeatedly, show the previous 10 candidates.
 316 0..9            kkc-select-from-list
 317         Select a candidate corresponding to the typed number.
 318 H               kkc-hiragana
 319         Convert the current phrase to Hiragana
 320 K               kkc-katakana
 321         Convert the current phrase to Katakana
 322 C-o             kkc-longer
 323         Extend the current phrase; pull in the first character of
 324         the remaining input.
 325 C-i             kkc-shorter
 326         Contract the current phrase; drop its last character
 327         back into the remaining input.
 328 C-f             kkc-next-phrase
 329         Accept the current phrase.  If there remains input, select
 330         the first phrase as the current one, and show the first
 331         candidate for the conversion.
 332 DEL, C-c        kkc-cancel
 333         Cancel the conversion, shift back to the Roman-Kana
 334         transliteration.
 335 return          kkc-terminate
 336         Accept the whole conversion.
 337 C-SPC, C-@      kkc-first-char-only
 338         Accept the first character of the current conversion,
 339         delete the remaining input.
 340 C-h             kkc-help
 341         List these key bindings.
 342 "
 343  nil t t nil nil nil nil nil
 344  'quail-japanese-update-translation
 345  '(("K" . quail-japanese-toggle-kana)
 346    (" " . quail-japanese-kanji-kkc)
 347    ("\C-m" . quail-no-conversion)
 348    ([return] . quail-no-conversion))
 349  )
 350
 351 (quail-define-rules
 352
 353 ( "a" "\e$B$"\e(B") ( "i" "\e$B$$\e(B") ( "u" "\e$B$&\e(B") ( "e" "\e$B$(\e(B") ( "o" "\e$B$*\e(B")
 354 ("ka" "\e$B$+\e(B") ("ki" "\e$B$-\e(B") ("ku" "\e$B$/\e(B") ("ke" "\e$B$1\e(B") ("ko" "\e$B$3\e(B")
 355 ("sa" "\e$B$5\e(B") ("si" "\e$B$7\e(B") ("su" "\e$B$9\e(B") ("se" "\e$B$;\e(B") ("so" "\e$B$=\e(B")
 356 ("ta" "\e$B$?\e(B") ("ti" "\e$B$A\e(B") ("tu" "\e$B$D\e(B") ("te" "\e$B$F\e(B") ("to" "\e$B$H\e(B")
 357 ("na" "\e$B$J\e(B") ("ni" "\e$B$K\e(B") ("nu" "\e$B$L\e(B") ("ne" "\e$B$M\e(B") ("no" "\e$B$N\e(B")
 358 ("ha" "\e$B$O\e(B") ("hi" "\e$B$R\e(B") ("hu" "\e$B$U\e(B") ("he" "\e$B$X\e(B") ("ho" "\e$B$[\e(B")
 359 ("ma" "\e$B$^\e(B") ("mi" "\e$B$_\e(B") ("mu" "\e$B$`\e(B") ("me" "\e$B$a\e(B") ("mo" "\e$B$b\e(B")
 360 ("ya" "\e$B$d\e(B")             ("yu" "\e$B$f\e(B")             ("yo" "\e$B$h\e(B")
 361 ("ra" "\e$B$i\e(B") ("ri" "\e$B$j\e(B") ("ru" "\e$B$k\e(B") ("re" "\e$B$l\e(B") ("ro" "\e$B$m\e(B")
 362 ("la" "\e$B$i\e(B") ("li" "\e$B$j\e(B") ("lu" "\e$B$k\e(B") ("le" "\e$B$l\e(B") ("lo" "\e$B$m\e(B")
 363 ("wa" "\e$B$o\e(B") ("wi" "\e$B$p\e(B") ("wu" "\e$B$&\e(B") ("we" "\e$B$q\e(B") ("wo" "\e$B$r\e(B")
 364 ("n'" "\e$B$s\e(B")
 365 ("ga" "\e$B$,\e(B") ("gi" "\e$B$.\e(B") ("gu" "\e$B$0\e(B") ("ge" "\e$B$2\e(B") ("go" "\e$B$4\e(B")
 366 ("za" "\e$B$6\e(B") ("zi" "\e$B$8\e(B") ("zu" "\e$B$:\e(B") ("ze" "\e$B$<\e(B") ("zo" "\e$B$>\e(B")
 367 ("da" "\e$B$@\e(B") ("di" "\e$B$B\e(B") ("du" "\e$B$E\e(B") ("de" "\e$B$G\e(B") ("do" "\e$B$I\e(B")
 368 ("ba" "\e$B$P\e(B") ("bi" "\e$B$S\e(B") ("bu" "\e$B$V\e(B") ("be" "\e$B$Y\e(B") ("bo" "\e$B$\\e(B")
 369 ("pa" "\e$B$Q\e(B") ("pi" "\e$B$T\e(B") ("pu" "\e$B$W\e(B") ("pe" "\e$B$Z\e(B") ("po" "\e$B$]\e(B")
 370
 371 ("kya" ["\e$B$-$c\e(B"]) ("kyu" ["\e$B$-$e\e(B"]) ("kye" ["\e$B$-$'\e(B"]) ("kyo" ["\e$B$-$g\e(B"])
 372 ("sya" ["\e$B$7$c\e(B"]) ("syu" ["\e$B$7$e\e(B"]) ("sye" ["\e$B$7$'\e(B"]) ("syo" ["\e$B$7$g\e(B"])
 373 ("sha" ["\e$B$7$c\e(B"]) ("shu" ["\e$B$7$e\e(B"]) ("she" ["\e$B$7$'\e(B"]) ("sho" ["\e$B$7$g\e(B"])
 374 ("cha" ["\e$B$A$c\e(B"]) ("chu" ["\e$B$A$e\e(B"]) ("che" ["\e$B$A$'\e(B"]) ("cho" ["\e$B$A$g\e(B"])
 375 ("tya" ["\e$B$A$c\e(B"]) ("tyu" ["\e$B$A$e\e(B"]) ("tye" ["\e$B$A$'\e(B"]) ("tyo" ["\e$B$A$g\e(B"])
 376 ("nya" ["\e$B$K$c\e(B"]) ("nyu" ["\e$B$K$e\e(B"]) ("nye" ["\e$B$K$'\e(B"]) ("nyo" ["\e$B$K$g\e(B"])
 377 ("hya" ["\e$B$R$c\e(B"]) ("hyu" ["\e$B$R$e\e(B"]) ("hye" ["\e$B$R$'\e(B"]) ("hyo" ["\e$B$R$g\e(B"])
 378 ("mya" ["\e$B$_$c\e(B"]) ("myu" ["\e$B$_$e\e(B"]) ("mye" ["\e$B$_$'\e(B"]) ("myo" ["\e$B$_$g\e(B"])
 379 ("rya" ["\e$B$j$c\e(B"]) ("ryu" ["\e$B$j$e\e(B"]) ("rye" ["\e$B$j$'\e(B"]) ("ryo" ["\e$B$j$g\e(B"])
 380 ("lya" ["\e$B$j$c\e(B"]) ("lyu" ["\e$B$j$e\e(B"]) ("lye" ["\e$B$j$'\e(B"]) ("lyo" ["\e$B$j$g\e(B"])
 381 ("gya" ["\e$B$.$c\e(B"]) ("gyu" ["\e$B$.$e\e(B"]) ("gye" ["\e$B$.$'\e(B"]) ("gyo" ["\e$B$.$g\e(B"])
 382 ("zya" ["\e$B$8$c\e(B"]) ("zyu" ["\e$B$8$e\e(B"]) ("zye" ["\e$B$8$'\e(B"]) ("zyo" ["\e$B$8$g\e(B"])
 383 ("jya" ["\e$B$8$c\e(B"]) ("jyu" ["\e$B$8$e\e(B"]) ("jye" ["\e$B$8$'\e(B"]) ("jyo" ["\e$B$8$g\e(B"])
 384 ( "ja" ["\e$B$8$c\e(B"]) ( "ju" ["\e$B$8$e\e(B"]) ( "je" ["\e$B$8$'\e(B"]) ( "jo" ["\e$B$8$g\e(B"])
 385 ("bya" ["\e$B$S$c\e(B"]) ("byu" ["\e$B$S$e\e(B"]) ("bye" ["\e$B$S$'\e(B"]) ("byo" ["\e$B$S$g\e(B"])
 386 ("pya" ["\e$B$T$c\e(B"]) ("pyu" ["\e$B$T$e\e(B"]) ("pye" ["\e$B$T$'\e(B"]) ("pyo" ["\e$B$T$g\e(B"])
 387
 388 ("kwa" ["\e$B$/$n\e(B"]) ("kwi" ["\e$B$/$#\e(B"]) ("kwe" ["\e$B$/$'\e(B"]) ("kwo" ["\e$B$/$)\e(B"])
 389 ("tsa" ["\e$B$D$!\e(B"]) ("tsi" ["\e$B$D$#\e(B"]) ("tse" ["\e$B$D$'\e(B"]) ("tso" ["\e$B$D$)\e(B"])
 390 ( "fa" ["\e$B$U$!\e(B"]) ( "fi" ["\e$B$U$#\e(B"]) ( "fe" ["\e$B$U$'\e(B"]) ( "fo" ["\e$B$U$)\e(B"])
 391 ("gwa" ["\e$B$0$n\e(B"]) ("gwi" ["\e$B$0$#\e(B"]) ("gwe" ["\e$B$0$'\e(B"]) ("gwo" ["\e$B$0$)\e(B"])
 392
 393 ("dyi" ["\e$B$G$#\e(B"]) ("dyu" ["\e$B$I$%\e(B"]) ("dye" ["\e$B$G$'\e(B"]) ("dyo" ["\e$B$I$)\e(B"])
 394 ("xwi" ["\e$B$&$#\e(B"])                  ("xwe" ["\e$B$&$'\e(B"]) ("xwo" ["\e$B$&$)\e(B"])
 395
 396 ("shi" "\e$B$7\e(B") ("tyi" ["\e$B$F$#\e(B"]) ("chi" "\e$B$A\e(B") ("tsu" "\e$B$D\e(B") ("ji" "\e$B$8\e(B")
 397 ("fu"  "\e$B$U\e(B")
 398 ("ye" ["\e$B$$$'\e(B"])
 399
 400 ("va" ["\e$B%t$!\e(B"]) ("vi" ["\e$B%t$#\e(B"]) ("vu" "\e$B%t\e(B") ("ve" ["\e$B%t$'\e(B"]) ("vo" ["\e$B%t$)\e(B"])
 401
 402 ("xa"  "\e$B$!\e(B") ("xi"  "\e$B$#\e(B") ("xu"  "\e$B$%\e(B") ("xe"  "\e$B$'\e(B") ("xo"  "\e$B$)\e(B")
 403 ("xtu" "\e$B$C\e(B") ("xya" "\e$B$c\e(B") ("xyu" "\e$B$e\e(B") ("xyo" "\e$B$g\e(B") ("xwa" "\e$B$n\e(B")
 404 ("xka" "\e$B%u\e(B") ("xke" "\e$B%v\e(B")
 405
 406 ("1" "\e$B#1\e(B") ("2" "\e$B#2\e(B") ("3" "\e$B#3\e(B") ("4" "\e$B#4\e(B") ("5" "\e$B#5\e(B")
 407 ("6" "\e$B#6\e(B") ("7" "\e$B#7\e(B") ("8" "\e$B#8\e(B") ("9" "\e$B#9\e(B") ("0" "\e$B#0\e(B")
 408
 409 ("!" "\e$B!*\e(B") ("@" "\e$B!w\e(B") ("#" "\e$B!t\e(B") ("$" "\e$B!p\e(B") ("%" "\e$B!s\e(B")
 410 ("^" "\e$B!0\e(B") ("&" "\e$B!u\e(B") ("*" "\e$B!v\e(B") ("(" "\e$B!J\e(B") (")" "\e$B!K\e(B")
 411 ("-" "\e$B!<\e(B") ("=" "\e$B!a\e(B") ("`" "\e$B!.\e(B") ("\\" "\e$B!o\e(B") ("|" "\e$B!C\e(B")
 412 ("_" "\e$B!2\e(B") ("+" "\e$B!\\e(B") ("~" "\e$B!1\e(B") ("[" "\e$B!V\e(B") ("]" "\e$B!W\e(B")
 413 ("{" "\e$B!P\e(B") ("}" "\e$B!Q\e(B") (":" "\e$B!'\e(B") (";" "\e$B!(\e(B") ("\""  "\e$B!I\e(B")
 414 ("'" "\e$B!G\e(B") ("." "\e$B!#\e(B") ("," "\e$B!"\e(B") ("<" "\e$B!c\e(B") (">" "\e$B!d\e(B")
 415 ("?" "\e$B!)\e(B") ("/" "\e$B!?\e(B")
 416
 417 ("z1" "\e$B!{\e(B") ("z!" "\e$B!|\e(B")
 418 ("z2" "\e$B"&\e(B") ("z@" "\e$B"'\e(B")
 419 ("z3" "\e$B"$\e(B") ("z#" "\e$B"%\e(B")
 420 ("z4" "\e$B""\e(B") ("z$" "\e$B"#\e(B")
 421 ("z5" "\e$B!~\e(B") ("z%" "\e$B"!\e(B")
 422 ("z6" "\e$B!y\e(B") ("z^" "\e$B!z\e(B")
 423 ("z7" "\e$B!}\e(B") ("z&" "\e$B!r\e(B")
 424 ("z8" "\e$B!q\e(B") ("z*" "\e$B!_\e(B")
 425 ("z9" "\e$B!i\e(B") ("z(" "\e$B!Z\e(B")
 426 ("z0" "\e$B!j\e(B") ("z)" "\e$B![\e(B")
 427 ("z-" "\e$B!A\e(B") ("z_" "\e$B!h\e(B")
 428 ("z=" "\e$B!b\e(B") ("z+" "\e$B!^\e(B")
 429 ("z\\" "\e$B!@\e(B") ("z|" "\e$B!B\e(B")
 430 ("z`" "\e$B!-\e(B") ("z~" "\e$B!/\e(B")
 431
 432 ("zq" "\e$B!T\e(B") ("zQ" "\e$B!R\e(B")
 433 ("zw" "\e$B!U\e(B") ("zW" "\e$B!S\e(B")
 434 ("zr" "\e$B!9\e(B") ("zR" "\e$B!8\e(B")
 435 ("zt" "\e$B!:\e(B") ("zT" "\e$B!x\e(B")
 436 ("zp" "\e$B")\e(B") ("zP" "\e$B",\e(B")
 437 ("z[" "\e$B!X\e(B") ("z{" "\e$B!L\e(B")
 438 ("z]" "\e$B!Y\e(B") ("z}" "\e$B!M\e(B")
 439
 440 ("zs" "\e$B!3\e(B") ("zS" "\e$B!4\e(B")
 441 ("zd" "\e$B!5\e(B") ("zD" "\e$B!6\e(B")
 442 ("zf" "\e$B!7\e(B") ("zF" "\e$B"*\e(B")
 443 ("zg" "\e$B!>\e(B") ("zG" "\e$B!=\e(B")
 444 ("zh" "\e$B"+\e(B")
 445 ("zj" "\e$B"-\e(B")
 446 ("zk" "\e$B",\e(B")
 447 ("zl" "\e$B"*\e(B")
 448 ("z;" "\e$B!+\e(B") ("z:" "\e$B!,\e(B")
 449 ("z\'" "\e$B!F\e(B") ("z\"" "\e$B!H\e(B")
 450
 451 ("zx" [":-"]) ("zX" [":-)"])
 452 ("zc" "\e$B!;\e(B") ("zC" "\e$B!n\e(B")
 453 ("zv" "\e$B"(\e(B") ("zV" "\e$B!`\e(B")
 454 ("zb" "\e$B!k\e(B") ("zB" "\e$B"+\e(B")
 455 ("zn" "\e$B!l\e(B") ("zN" "\e$B"-\e(B")
 456 ("zm" "\e$B!m\e(B") ("zM" "\e$B".\e(B")
 457 ("z," "\e$B!E\e(B") ("z<" "\e$B!e\e(B")
 458 ("z." "\e$B!D\e(B") ("z>" "\e$B!f\e(B")
 459 ("z/" "\e$B!&\e(B") ("z?" "\e$B!g\e(B")
 460
 461 ("\\\\" quail-japanese-self-insert-and-switch-to-alpha)
 462 ("{{" quail-japanese-self-insert-and-switch-to-alpha)
 463 ("}}" quail-japanese-self-insert-and-switch-to-alpha)
 464
 465 ("qq" quail-japanese-switch-package)
 466 ("qz" quail-japanese-switch-package)
 467
 468 )
 469
 470 (quail-define-package
 471  "japanese-ascii" "Japanese" "Aa"
 472  nil
 473  "Temporary ASCII input mode while using Quail package `japanese'
 474 Type \"qq\" to go back to previous package."
 475  nil t t)
 476
 477 (quail-define-rules ("qq" quail-japanese-switch-package))
 478
 479 (quail-define-package
 480  "japanese-zenkaku" "Japanese" "\e$B#A\e(B"
 481  nil
 482  "Japanese zenkaku alpha numeric character input method
 483 ---- Special key bindings ----
 484 qq:     toggle between `japanese-zenkaku' and `japanese-ascii'
 485 qh:     use `japanese' package, \"qz\" puts you back to `japanese-zenkaku'
 486 "
 487  nil t t)
 488
 489 (quail-define-rules
 490
 491 (" " "\e$B!!\e(B") ("!" "\e$B!*\e(B") ("\"" "\e$B!m\e(B") ("#" "\e$B!t\e(B")
 492 ("$" "\e$B!p\e(B") ("%" "\e$B!s\e(B") ("&" "\e$B!u\e(B") ("'" "\e$B!l\e(B")
 493 ("(" "\e$B!J\e(B") (")" "\e$B!K\e(B") ("*" "\e$B!v\e(B") ("+" "\e$B!\\e(B")
 494 ("," "\e$B!$\e(B") ("-" "\e$B!]\e(B") ("." "\e$B!%\e(B") ("/" "\e$B!?\e(B")
 495 ("0" "\e$B#0\e(B") ("1" "\e$B#1\e(B") ("2" "\e$B#2\e(B") ("3" "\e$B#3\e(B")
 496 ("4" "\e$B#4\e(B") ("5" "\e$B#5\e(B") ("6" "\e$B#6\e(B") ("7" "\e$B#7\e(B")
 497 ("8" "\e$B#8\e(B") ("9" "\e$B#9\e(B") (":" "\e$B!'\e(B") (";" "\e$B!(\e(B")
 498 ("<" "\e$B!c\e(B") ("=" "\e$B!a\e(B") (">" "\e$B!d\e(B") ("?" "\e$B!)\e(B")
 499 ("@" "\e$B!w\e(B") ("A" "\e$B#A\e(B") ("B" "\e$B#B\e(B") ("C" "\e$B#C\e(B")
 500 ("D" "\e$B#D\e(B") ("E" "\e$B#E\e(B") ("F" "\e$B#F\e(B") ("G" "\e$B#G\e(B")
 501 ("H" "\e$B#H\e(B") ("I" "\e$B#I\e(B") ("J" "\e$B#J\e(B") ("K" "\e$B#K\e(B")
 502 ("L" "\e$B#L\e(B") ("M" "\e$B#M\e(B") ("N" "\e$B#N\e(B") ("O" "\e$B#O\e(B")
 503 ("P" "\e$B#P\e(B") ("Q" "\e$B#Q\e(B") ("R" "\e$B#R\e(B") ("S" "\e$B#S\e(B")
 504 ("T" "\e$B#T\e(B") ("U" "\e$B#U\e(B") ("V" "\e$B#V\e(B") ("W" "\e$B#W\e(B")
 505 ("X" "\e$B#X\e(B") ("Y" "\e$B#Y\e(B") ("Z" "\e$B#Z\e(B") ("[" "\e$B!N\e(B")
 506 ("\\" "\e$B!o\e(B") ("]" "\e$B!O\e(B") ("^" "\e$B!0\e(B") ("_" "\e$B!2\e(B")
 507 ("`" "\e$B!F\e(B") ("a" "\e$B#a\e(B") ("b" "\e$B#b\e(B") ("c" "\e$B#c\e(B")
 508 ("d" "\e$B#d\e(B") ("e" "\e$B#e\e(B") ("f" "\e$B#f\e(B") ("g" "\e$B#g\e(B")
 509 ("h" "\e$B#h\e(B") ("i" "\e$B#i\e(B") ("j" "\e$B#j\e(B") ("k" "\e$B#k\e(B")
 510 ("l" "\e$B#l\e(B") ("m" "\e$B#m\e(B") ("n" "\e$B#n\e(B") ("o" "\e$B#o\e(B")
 511 ("p" "\e$B#p\e(B") ("q" "\e$B#q\e(B") ("r" "\e$B#r\e(B") ("s" "\e$B#s\e(B")
 512 ("t" "\e$B#t\e(B") ("u" "\e$B#u\e(B") ("v" "\e$B#v\e(B") ("w" "\e$B#w\e(B")
 513 ("x" "\e$B#x\e(B") ("y" "\e$B#y\e(B") ("z" "\e$B#z\e(B") ("{" "\e$B!P\e(B")
 514 ("|" "\e$B!C\e(B") ("}" "\e$B!Q\e(B") ("~" "\e$B!A\e(B")
 515
 516 ("qq" quail-japanese-switch-package)
 517 ("qh" quail-japanese-switch-package)
 518 )
 519
 520 (defun quail-japanese-hankaku-update-translation (control-flag)
 521   (setq control-flag
 522         (quail-japanese-update-translation control-flag))
 523   (if (or (and (stringp quail-current-str)
 524                (> (length quail-current-str) 0))
 525           (integerp quail-current-str))
 526       (setq quail-current-str (japanese-hankaku quail-current-str)))
 527   control-flag)
 528
 529 (quail-define-package
 530  "japanese-hankaku-kana"
 531  "Japanese" "\e(I1\e(B"
 532  nil
 533  "Japanese hankaku katakana input method by Roman transliteration
 534 ---- Special key bindings ----
 535 qq:     toggle between `japanese-hankaku-kana' and `japanese-ascii'
 536 "
 537  nil t t nil nil nil nil nil
 538  'quail-japanese-hankaku-update-translation)
 539
 540 ;; Use the same map as that of `japanese'.
 541 (setcar (cdr (cdr quail-current-package))
 542         (nth 2 (assoc "japanese" quail-package-alist)))
 543
 544 (quail-define-package
 545  "japanese-hiragana" "Japanese" "\e$B$"\e(B"
 546  nil
 547  "Japanese hiragana input method by Roman transliteration"
 548  nil t t nil nil nil nil nil
 549  'quail-japanese-update-translation)
 550
 551 ;; Use the same map as that of `japanese'.
 552 (setcar (cdr (cdr quail-current-package))
 553         (nth 2 (assoc "japanese" quail-package-alist)))
 554
 555 ;; Update Quail translation region while converting Hiragana to Katakana.
 556 (defun quail-japanese-katakana-update-translation (control-flag)
 557   (setq control-flag
 558         (quail-japanese-update-translation control-flag))
 559   (if (or (and (stringp quail-current-str)
 560                (> (length quail-current-str) 0))
 561           (integerp quail-current-str))
 562       (setq quail-current-str (japanese-katakana quail-current-str)))
 563   control-flag)
 564
 565 (quail-define-package
 566  "japanese-katakana" "Japanese" "\e$B%"\e(B"
 567  nil
 568  "Japanese katakana input method by Roman transliteration"
 569  nil t t nil nil nil nil nil
 570  'quail-japanese-katakana-update-translation)
 571
 572 ;; Use the same map as that of `japanese'.
 573 (setcar (cdr (cdr quail-current-package))
 574         (nth 2 (assoc "japanese" quail-package-alist)))