cgit.sxemacs.org Git - packages/blob - mule-packages/egg-its/its-hira.el

   1 ;; Basic Roma-to-Kana Translation Table for Egg
   2 ;; Coded by S.Tomura, Electrotechnical Lab. (tomura@etl.go.jp)
   3
   4 ;; This file is part of Egg on Nemacs (Japanese Environment)
   5
   6 ;; Egg is distributed in the forms of patches to GNU
   7 ;; Emacs under the terms of the GNU EMACS GENERAL PUBLIC
   8 ;; LICENSE which is distributed along with GNU Emacs by the
   9 ;; Free Software Foundation.
  10
  11 ;; Egg is distributed in the hope that it will be useful,
  12 ;; but WITHOUT ANY WARRANTY; without even the implied
  13 ;; warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
  14 ;; PURPOSE.  See the GNU EMACS GENERAL PUBLIC LICENSE for
  15 ;; more details.
  16
  17 ;; You should have received a copy of the GNU EMACS GENERAL
  18 ;; PUBLIC LICENSE along with Nemacs; see the file COPYING.
  19 ;; If not, write to the Free Software Foundation, 675 Mass
  20 ;; Ave, Cambridge, MA 02139, USA.
  21
  22 ;; 90.3.2   modified for Nemacs Ver.3.3.1
  23 ;;      by jiro@math.keio.ac.jp (TANAKA Jiro)
  24 ;;     proposal of keybinding for JIS symbols
  25 ;; 92.3.23  modified for Mule Ver.0.9.1 by K.Handa <handa@etl.go.jp>
  26 ;;      defrule -> its-defrule, define-its-mode -> its-define-mode
  27 ;; 92.7.6   modified for Mule Ver.0.9.5 by K.Handa <handa@etl.go.jp>
  28 ;;      New rules added.
  29
  30 (eval-when-compile (require 'egg))
  31
  32 (its-define-mode "roma-kana" "\e$B$"\e(B" t)
  33
  34 (its-defrule-select-mode-temporally "q" "downcase")
  35 (its-defrule-select-mode-temporally "Q" "zenkaku-downcase")
  36
  37 ;;; \e$B!V$C!W$NF~NO\e(B
  38
  39 (dolist (aa '("k" "s" "t" "h" "y" "r" "w" "g" "z" "d" "b"
  40                  "p" "c" "f" "j" "v"))
  41   (its-defrule (concat aa aa) "\e$B$C\e(B" aa))
  42
  43 (its-defrule "tch"  "\e$B$C\e(B" "ch")
  44
  45 ;;; \e$B!V$s!W$NF~NO\e(B
  46
  47 (dolist (q1 '("b" "m" "p"))
  48   (its-defrule (concat "m" q1) "\e$B$s\e(B" q1))
  49
  50 (its-defrule "N" "\e$B$s\e(B")
  51
  52 (its-defrule "n'" "\e$B$s\e(B")
  53
  54 (defvar enable-double-n-syntax nil "*\"nn\"\e$B$r\e(B\"\e$B$s\e(B\"\e$B$KJQ49$9$k\e(B")
  55
  56 (its-defrule "n" "\e$B$s\e(B")
  57 (its-defrule-conditional* "nn" "\e$B$s\e(B" nil
  58                           (enable-double-n-syntax "\e$B$s\e(B")
  59                           (t nil))
  60
  61 ;; 92.7.6 by Y.Kawabe
  62 ;;(dolist (aa '("k" "s" "t" "c" "h" "f" "m" "y" "r" "l"
  63 ;;            "w" "g" "z" "j" "d" "b" "v" "p" "x"))
  64 ;;  (its-defrule (concat "n" aa) "\e$B$s\e(B" aa))
  65 ;; end of patch
  66
  67 (let ((small '"x" ))
  68   (its-defrule (concat small "a") "\e$B$!\e(B")
  69   (its-defrule (concat small "i") "\e$B$#\e(B")
  70   (its-defrule (concat small "u") "\e$B$%\e(B")
  71   (its-defrule (concat small "e") "\e$B$'\e(B")
  72   (its-defrule (concat small "o") "\e$B$)\e(B")
  73   (its-defrule (concat small "ya") "\e$B$c\e(B")
  74   (its-defrule (concat small "yu") "\e$B$e\e(B")
  75   (its-defrule (concat small "yo") "\e$B$g\e(B")
  76   (its-defrule (concat small "tu") "\e$B$C\e(B")
  77   (its-defrule (concat small "tsu") "\e$B$C\e(B")
  78   (its-defrule (concat small "wa") "\e$B$n\e(B")
  79   )
  80
  81 (its-defrule   "a"    "\e$B$"\e(B")
  82 (its-defrule   "i"    "\e$B$$\e(B")
  83 (its-defrule   "u"    "\e$B$&\e(B")
  84 (its-defrule   "e"    "\e$B$(\e(B")
  85 (its-defrule   "o"    "\e$B$*\e(B")
  86 (its-defrule   "ka"   "\e$B$+\e(B")
  87 (its-defrule   "ki"   "\e$B$-\e(B")
  88 (its-defrule   "ku"   "\e$B$/\e(B")
  89 (its-defrule   "ke"   "\e$B$1\e(B")
  90 (its-defrule   "ko"   "\e$B$3\e(B")
  91 (its-defrule   "kya"  "\e$B$-$c\e(B")
  92 (its-defrule   "kyu"  "\e$B$-$e\e(B")
  93 (its-defrule   "kye"  "\e$B$-$'\e(B")
  94 (its-defrule   "kyo"  "\e$B$-$g\e(B")
  95 (its-defrule   "sa"   "\e$B$5\e(B")
  96 (its-defrule   "si"   "\e$B$7\e(B")
  97 (its-defrule   "su"   "\e$B$9\e(B")
  98 (its-defrule   "se"   "\e$B$;\e(B")
  99 (its-defrule   "so"   "\e$B$=\e(B")
 100 (its-defrule   "sya"  "\e$B$7$c\e(B")
 101 (its-defrule   "syu"  "\e$B$7$e\e(B")
 102 (its-defrule   "sye"  "\e$B$7$'\e(B")
 103 (its-defrule   "syo"  "\e$B$7$g\e(B")
 104 (its-defrule   "sha"  "\e$B$7$c\e(B")
 105 (its-defrule   "shi"  "\e$B$7\e(B")
 106 (its-defrule   "shu"  "\e$B$7$e\e(B")
 107 (its-defrule   "she"  "\e$B$7$'\e(B")
 108 (its-defrule   "sho"  "\e$B$7$g\e(B")
 109 (its-defrule   "ta"   "\e$B$?\e(B")
 110 (its-defrule   "ti"   "\e$B$A\e(B")
 111 (its-defrule   "tu"   "\e$B$D\e(B")
 112 (its-defrule   "te"   "\e$B$F\e(B")
 113 (its-defrule   "to"   "\e$B$H\e(B")
 114 (its-defrule   "tya"  "\e$B$A$c\e(B")
 115 (its-defrule   "tyi"  "\e$B$F$#\e(B")
 116 (its-defrule   "tyu"  "\e$B$A$e\e(B")
 117 (its-defrule   "tye"  "\e$B$A$'\e(B")
 118 (its-defrule   "tyo"  "\e$B$A$g\e(B")
 119 (its-defrule   "tsu"  "\e$B$D\e(B")
 120 (its-defrule   "cha"  "\e$B$A$c\e(B")
 121 (its-defrule   "chi"  "\e$B$A\e(B")
 122 (its-defrule   "chu"  "\e$B$A$e\e(B")
 123 (its-defrule   "che"  "\e$B$A$'\e(B")
 124 (its-defrule   "cho"  "\e$B$A$g\e(B")
 125 (its-defrule   "na"   "\e$B$J\e(B")
 126 (its-defrule   "ni"   "\e$B$K\e(B")
 127 (its-defrule   "nu"   "\e$B$L\e(B")
 128 (its-defrule   "ne"   "\e$B$M\e(B")
 129 (its-defrule   "no"   "\e$B$N\e(B")
 130 (its-defrule   "nya"  "\e$B$K$c\e(B")
 131 (its-defrule   "nyu"  "\e$B$K$e\e(B")
 132 (its-defrule   "nye"  "\e$B$K$'\e(B")
 133 (its-defrule   "nyo"  "\e$B$K$g\e(B")
 134 (its-defrule   "ha"   "\e$B$O\e(B")
 135 (its-defrule   "hi"   "\e$B$R\e(B")
 136 (its-defrule   "hu"   "\e$B$U\e(B")
 137 (its-defrule   "he"   "\e$B$X\e(B")
 138 (its-defrule   "ho"   "\e$B$[\e(B")
 139 (its-defrule   "hya"  "\e$B$R$c\e(B")
 140 (its-defrule   "hyu"  "\e$B$R$e\e(B")
 141 (its-defrule   "hye"  "\e$B$R$'\e(B")
 142 (its-defrule   "hyo"  "\e$B$R$g\e(B")
 143 (its-defrule   "fa"   "\e$B$U$!\e(B")
 144 (its-defrule   "fi"   "\e$B$U$#\e(B")
 145 (its-defrule   "fu"   "\e$B$U\e(B")
 146 (its-defrule   "fe"   "\e$B$U$'\e(B")
 147 (its-defrule   "fo"   "\e$B$U$)\e(B")
 148 (its-defrule   "ma"   "\e$B$^\e(B")
 149 (its-defrule   "mi"   "\e$B$_\e(B")
 150 (its-defrule   "mu"   "\e$B$`\e(B")
 151 (its-defrule   "me"   "\e$B$a\e(B")
 152 (its-defrule   "mo"   "\e$B$b\e(B")
 153 (its-defrule   "mya"  "\e$B$_$c\e(B")
 154 (its-defrule   "myu"  "\e$B$_$e\e(B")
 155 (its-defrule   "mye"  "\e$B$_$'\e(B")
 156 (its-defrule   "myo"  "\e$B$_$g\e(B")
 157 (its-defrule   "ya"   "\e$B$d\e(B")
 158 (its-defrule   "yi"   "\e$B$$\e(B")
 159 (its-defrule   "yu"   "\e$B$f\e(B")
 160 (its-defrule   "ye"   "\e$B$$$'\e(B")
 161 (its-defrule   "yo"   "\e$B$h\e(B")
 162 (its-defrule   "ra"   "\e$B$i\e(B")
 163 (its-defrule   "ri"   "\e$B$j\e(B")
 164 (its-defrule   "ru"   "\e$B$k\e(B")
 165 (its-defrule   "re"   "\e$B$l\e(B")
 166 (its-defrule   "ro"   "\e$B$m\e(B")
 167 (its-defrule   "la"   "\e$B$i\e(B")
 168 (its-defrule   "li"   "\e$B$j\e(B")
 169 (its-defrule   "lu"   "\e$B$k\e(B")
 170 (its-defrule   "le"   "\e$B$l\e(B")
 171 (its-defrule   "lo"   "\e$B$m\e(B")
 172 (its-defrule   "rya"  "\e$B$j$c\e(B")
 173 (its-defrule   "ryu"  "\e$B$j$e\e(B")
 174 (its-defrule   "rye"  "\e$B$j$'\e(B")
 175 (its-defrule   "ryo"  "\e$B$j$g\e(B")
 176 (its-defrule   "lya"  "\e$B$j$c\e(B")
 177 (its-defrule   "lyu"  "\e$B$j$e\e(B")
 178 (its-defrule   "lye"  "\e$B$j$'\e(B")
 179 (its-defrule   "lyo"  "\e$B$j$g\e(B")
 180 (its-defrule   "wa"   "\e$B$o\e(B")
 181 (its-defrule   "wi"   "\e$B$p\e(B")
 182 (its-defrule   "wu"   "\e$B$&\e(B")
 183 (its-defrule   "we"   "\e$B$q\e(B")
 184 (its-defrule   "wo"   "\e$B$r\e(B")
 185 (its-defrule   "ga"   "\e$B$,\e(B")
 186 (its-defrule   "gi"   "\e$B$.\e(B")
 187 (its-defrule   "gu"   "\e$B$0\e(B")
 188 (its-defrule   "ge"   "\e$B$2\e(B")
 189 (its-defrule   "go"   "\e$B$4\e(B")
 190 (its-defrule   "gya"  "\e$B$.$c\e(B")
 191 (its-defrule   "gyu"  "\e$B$.$e\e(B")
 192 (its-defrule   "gye"  "\e$B$.$'\e(B")
 193 (its-defrule   "gyo"  "\e$B$.$g\e(B")
 194 (its-defrule   "za"   "\e$B$6\e(B")
 195 (its-defrule   "zi"   "\e$B$8\e(B")
 196 (its-defrule   "zu"   "\e$B$:\e(B")
 197 (its-defrule   "ze"   "\e$B$<\e(B")
 198 (its-defrule   "zo"   "\e$B$>\e(B")
 199 (its-defrule   "zya"  "\e$B$8$c\e(B")
 200 (its-defrule   "zyu"  "\e$B$8$e\e(B")
 201 (its-defrule   "zye"  "\e$B$8$'\e(B")
 202 (its-defrule   "zyo"  "\e$B$8$g\e(B")
 203 (its-defrule   "ja"   "\e$B$8$c\e(B")
 204 (its-defrule   "ji"   "\e$B$8\e(B")
 205 (its-defrule   "ju"   "\e$B$8$e\e(B")
 206 (its-defrule   "je"   "\e$B$8$'\e(B")
 207 (its-defrule   "jo"   "\e$B$8$g\e(B")
 208 ;; 92.7.6 by Y.Kawabe
 209 (its-defrule   "jya"   "\e$B$8$c\e(B")
 210 (its-defrule   "jyu"   "\e$B$8$e\e(B")
 211 (its-defrule   "jye"   "\e$B$8$'\e(B")
 212 (its-defrule   "jyo"   "\e$B$8$g\e(B")
 213 ;; end of patch
 214 (its-defrule   "da"   "\e$B$@\e(B")
 215 (its-defrule   "di"   "\e$B$B\e(B")
 216 (its-defrule   "du"   "\e$B$E\e(B")
 217 (its-defrule   "de"   "\e$B$G\e(B")
 218 (its-defrule   "do"   "\e$B$I\e(B")
 219 (its-defrule   "dya"  "\e$B$B$c\e(B")
 220 (its-defrule   "dyi"  "\e$B$G$#\e(B")
 221 (its-defrule   "dyu"  "\e$B$B$e\e(B")
 222 (its-defrule   "dye"  "\e$B$B$'\e(B")
 223 (its-defrule   "dyo"  "\e$B$B$g\e(B")
 224 (its-defrule   "ba"   "\e$B$P\e(B")
 225 (its-defrule   "bi"   "\e$B$S\e(B")
 226 (its-defrule   "bu"   "\e$B$V\e(B")
 227 (its-defrule   "be"   "\e$B$Y\e(B")
 228 (its-defrule   "bo"   "\e$B$\\e(B")
 229 (its-defrule   "va"   "\e$B%t$!\e(B")
 230 (its-defrule   "vi"   "\e$B%t$#\e(B")
 231 (its-defrule   "vu"   "\e$B%t\e(B")
 232 (its-defrule   "ve"   "\e$B%t$'\e(B")
 233 (its-defrule   "vo"   "\e$B%t$)\e(B")
 234 (its-defrule   "bya"  "\e$B$S$c\e(B")
 235 (its-defrule   "byu"  "\e$B$S$e\e(B")
 236 (its-defrule   "bye"  "\e$B$S$'\e(B")
 237 (its-defrule   "byo"  "\e$B$S$g\e(B")
 238 (its-defrule   "pa"   "\e$B$Q\e(B")
 239 (its-defrule   "pi"   "\e$B$T\e(B")
 240 (its-defrule   "pu"   "\e$B$W\e(B")
 241 (its-defrule   "pe"   "\e$B$Z\e(B")
 242 (its-defrule   "po"   "\e$B$]\e(B")
 243 (its-defrule   "pya"  "\e$B$T$c\e(B")
 244 (its-defrule   "pyu"  "\e$B$T$e\e(B")
 245 (its-defrule   "pye"  "\e$B$T$'\e(B")
 246 (its-defrule   "pyo"  "\e$B$T$g\e(B")
 247 (its-defrule   "kwa"  "\e$B$/$n\e(B")
 248 (its-defrule   "kwi"  "\e$B$/$#\e(B")
 249 (its-defrule   "kwu"  "\e$B$/\e(B")
 250 (its-defrule   "kwe"  "\e$B$/$'\e(B")
 251 (its-defrule   "kwo"  "\e$B$/$)\e(B")
 252 (its-defrule   "gwa"  "\e$B$0$n\e(B")
 253 (its-defrule   "gwi"  "\e$B$0$#\e(B")
 254 (its-defrule   "gwu"  "\e$B$0\e(B")
 255 (its-defrule   "gwe"  "\e$B$0$'\e(B")
 256 (its-defrule   "gwo"  "\e$B$0$)\e(B")
 257 (its-defrule   "tsa"  "\e$B$D$!\e(B")
 258 (its-defrule   "tsi"  "\e$B$D$#\e(B")
 259 (its-defrule   "tse"  "\e$B$D$'\e(B")
 260 (its-defrule   "tso"  "\e$B$D$)\e(B")
 261 (its-defrule   "xka"  "\e$B%u\e(B")
 262 (its-defrule   "xke"  "\e$B%v\e(B")
 263 (its-defrule   "xti"  "\e$B$F$#\e(B")
 264 (its-defrule   "xdi"  "\e$B$G$#\e(B")
 265 (its-defrule   "xdu"  "\e$B$I$%\e(B")
 266 (its-defrule   "xde"  "\e$B$G$'\e(B")
 267 (its-defrule   "xdo"  "\e$B$I$)\e(B")
 268 (its-defrule   "xwi"  "\e$B$&$#\e(B")
 269 (its-defrule   "xwe"  "\e$B$&$'\e(B")
 270 (its-defrule   "xwo"  "\e$B$&$)\e(B")
 271
 272 ;;; Zenkaku Symbols
 273
 274 (its-defrule   "1"   "\e$B#1\e(B")
 275 (its-defrule   "2"   "\e$B#2\e(B")
 276 (its-defrule   "3"   "\e$B#3\e(B")
 277 (its-defrule   "4"   "\e$B#4\e(B")
 278 (its-defrule   "5"   "\e$B#5\e(B")
 279 (its-defrule   "6"   "\e$B#6\e(B")
 280 (its-defrule   "7"   "\e$B#7\e(B")
 281 (its-defrule   "8"   "\e$B#8\e(B")
 282 (its-defrule   "9"   "\e$B#9\e(B")
 283 (its-defrule   "0"   "\e$B#0\e(B")
 284
 285 ;;(its-defrule   " "   "\e$B!!\e(B")
 286 (its-defrule   "!"   "\e$B!*\e(B")
 287 (its-defrule   "@"   "\e$B!w\e(B")
 288 (its-defrule   "#"   "\e$B!t\e(B")
 289 (its-defrule   "$"   "\e$B!p\e(B")
 290 (its-defrule   "%"   "\e$B!s\e(B")
 291 (its-defrule   "^"   "\e$B!0\e(B")
 292 (its-defrule   "&"   "\e$B!u\e(B")
 293 (its-defrule   "*"   "\e$B!v\e(B")
 294 (its-defrule   "("   "\e$B!J\e(B")
 295 (its-defrule   ")"   "\e$B!K\e(B")
 296 (its-defrule   "-"   "\e$B!<\e(B") ;;; JIS 213c  ;;;(its-defrule   "-"   "\e$B!]\e(B")
 297 (its-defrule   "="   "\e$B!a\e(B")
 298 (its-defrule   "`"   "\e$B!.\e(B")
 299 (its-defrule   "\\"  "\e$B!o\e(B")
 300 (its-defrule   "|"   "\e$B!C\e(B")
 301 (its-defrule   "_"   "\e$B!2\e(B")
 302 (its-defrule   "+"   "\e$B!\\e(B")
 303 (its-defrule   "~"   "\e$B!1\e(B")
 304 (its-defrule   "["    "\e$B!V\e(B")  ;;(its-defrule   "["   "\e$B!N\e(B")
 305 (its-defrule   "]"    "\e$B!W\e(B")  ;;(its-defrule   "]"   "\e$B!O\e(B")
 306 (its-defrule   "{"   "\e$B!P\e(B")
 307 (its-defrule   "}"   "\e$B!Q\e(B")
 308 (its-defrule   ":"   "\e$B!'\e(B")
 309 (its-defrule   ";"   "\e$B!(\e(B")
 310 (its-defrule   "\""  "\e$B!I\e(B")
 311 (its-defrule   "'"   "\e$B!G\e(B")
 312 (its-defrule   "<"   "\e$B!c\e(B")
 313 (its-defrule   ">"   "\e$B!d\e(B")
 314 (its-defrule   "?"   "\e$B!)\e(B")
 315 (its-defrule   "/"   "\e$B!?\e(B")
 316
 317 (defvar use-kuten-for-period t "*\e$B%T%j%*%I$r6gE@$KJQ49$9$k\e(B")
 318 (defvar use-touten-for-comma t "*\e$B%3%s%^$rFIE@$KJQ49$9$k\e(B")
 319
 320 (its-defrule-conditional "."
 321   (use-kuten-for-period "\e$B!#\e(B")
 322   (t "\e$B!%\e(B"))
 323
 324 (its-defrule-conditional ","
 325   (use-touten-for-comma "\e$B!"\e(B")
 326   (t "\e$B!$\e(B"))
 327
 328 ;;; Escape character to Zenkaku inputs
 329
 330 (defvar zenkaku-escape "Z")
 331
 332 ;;; Escape character to Hankaku inputs
 333
 334 (defvar hankaku-escape "~")
 335 ;;;
 336 ;;; Zenkaku inputs
 337 ;;;
 338
 339 (its-defrule (concat zenkaku-escape "0") "\e$B#0\e(B")
 340 (its-defrule (concat zenkaku-escape "1") "\e$B#1\e(B")
 341 (its-defrule (concat zenkaku-escape "2") "\e$B#2\e(B")
 342 (its-defrule (concat zenkaku-escape "3") "\e$B#3\e(B")
 343 (its-defrule (concat zenkaku-escape "4") "\e$B#4\e(B")
 344 (its-defrule (concat zenkaku-escape "5") "\e$B#5\e(B")
 345 (its-defrule (concat zenkaku-escape "6") "\e$B#6\e(B")
 346 (its-defrule (concat zenkaku-escape "7") "\e$B#7\e(B")
 347 (its-defrule (concat zenkaku-escape "8") "\e$B#8\e(B")
 348 (its-defrule (concat zenkaku-escape "9") "\e$B#9\e(B")
 349
 350 (its-defrule (concat zenkaku-escape "A") "\e$B#A\e(B")
 351 (its-defrule (concat zenkaku-escape "B") "\e$B#B\e(B")
 352 (its-defrule (concat zenkaku-escape "C") "\e$B#C\e(B")
 353 (its-defrule (concat zenkaku-escape "D") "\e$B#D\e(B")
 354 (its-defrule (concat zenkaku-escape "E") "\e$B#E\e(B")
 355 (its-defrule (concat zenkaku-escape "F") "\e$B#F\e(B")
 356 (its-defrule (concat zenkaku-escape "G") "\e$B#G\e(B")
 357 (its-defrule (concat zenkaku-escape "H") "\e$B#H\e(B")
 358 (its-defrule (concat zenkaku-escape "I") "\e$B#I\e(B")
 359 (its-defrule (concat zenkaku-escape "J") "\e$B#J\e(B")
 360 (its-defrule (concat zenkaku-escape "K") "\e$B#K\e(B")
 361 (its-defrule (concat zenkaku-escape "L") "\e$B#L\e(B")
 362 (its-defrule (concat zenkaku-escape "M") "\e$B#M\e(B")
 363 (its-defrule (concat zenkaku-escape "N") "\e$B#N\e(B")
 364 (its-defrule (concat zenkaku-escape "O") "\e$B#O\e(B")
 365 (its-defrule (concat zenkaku-escape "P") "\e$B#P\e(B")
 366 (its-defrule (concat zenkaku-escape "Q") "\e$B#Q\e(B")
 367 (its-defrule (concat zenkaku-escape "R") "\e$B#R\e(B")
 368 (its-defrule (concat zenkaku-escape "S") "\e$B#S\e(B")
 369 (its-defrule (concat zenkaku-escape "T") "\e$B#T\e(B")
 370 (its-defrule (concat zenkaku-escape "U") "\e$B#U\e(B")
 371 (its-defrule (concat zenkaku-escape "V") "\e$B#V\e(B")
 372 (its-defrule (concat zenkaku-escape "W") "\e$B#W\e(B")
 373 (its-defrule (concat zenkaku-escape "X") "\e$B#X\e(B")
 374 (its-defrule (concat zenkaku-escape "Y") "\e$B#Y\e(B")
 375 (its-defrule (concat zenkaku-escape "Z") "\e$B#Z\e(B")
 376
 377 (its-defrule (concat zenkaku-escape "a") "\e$B#a\e(B")
 378 (its-defrule (concat zenkaku-escape "b") "\e$B#b\e(B")
 379 (its-defrule (concat zenkaku-escape "c") "\e$B#c\e(B")
 380 (its-defrule (concat zenkaku-escape "d") "\e$B#d\e(B")
 381 (its-defrule (concat zenkaku-escape "e") "\e$B#e\e(B")
 382 (its-defrule (concat zenkaku-escape "f") "\e$B#f\e(B")
 383 (its-defrule (concat zenkaku-escape "g") "\e$B#g\e(B")
 384 (its-defrule (concat zenkaku-escape "h") "\e$B#h\e(B")
 385 (its-defrule (concat zenkaku-escape "i") "\e$B#i\e(B")
 386 (its-defrule (concat zenkaku-escape "j") "\e$B#j\e(B")
 387 (its-defrule (concat zenkaku-escape "k") "\e$B#k\e(B")
 388 (its-defrule (concat zenkaku-escape "l") "\e$B#l\e(B")
 389 (its-defrule (concat zenkaku-escape "m") "\e$B#m\e(B")
 390 (its-defrule (concat zenkaku-escape "n") "\e$B#n\e(B")
 391 (its-defrule (concat zenkaku-escape "o") "\e$B#o\e(B")
 392 (its-defrule (concat zenkaku-escape "p") "\e$B#p\e(B")
 393 (its-defrule (concat zenkaku-escape "q") "\e$B#q\e(B")
 394 (its-defrule (concat zenkaku-escape "r") "\e$B#r\e(B")
 395 (its-defrule (concat zenkaku-escape "s") "\e$B#s\e(B")
 396 (its-defrule (concat zenkaku-escape "t") "\e$B#t\e(B")
 397 (its-defrule (concat zenkaku-escape "u") "\e$B#u\e(B")
 398 (its-defrule (concat zenkaku-escape "v") "\e$B#v\e(B")
 399 (its-defrule (concat zenkaku-escape "w") "\e$B#w\e(B")
 400 (its-defrule (concat zenkaku-escape "x") "\e$B#x\e(B")
 401 (its-defrule (concat zenkaku-escape "y") "\e$B#y\e(B")
 402 (its-defrule (concat zenkaku-escape "z") "\e$B#z\e(B")
 403
 404 (its-defrule (concat zenkaku-escape " ")  "\e$B!!\e(B")
 405 (its-defrule (concat zenkaku-escape "!")  "\e$B!*\e(B")
 406 (its-defrule (concat zenkaku-escape "@")  "\e$B!w\e(B")
 407 (its-defrule (concat zenkaku-escape "#")  "\e$B!t\e(B")
 408 (its-defrule (concat zenkaku-escape "$")  "\e$B!p\e(B")
 409 (its-defrule (concat zenkaku-escape "%")  "\e$B!s\e(B")
 410 (its-defrule (concat zenkaku-escape "^")  "\e$B!0\e(B")
 411 (its-defrule (concat zenkaku-escape "&")  "\e$B!u\e(B")
 412 (its-defrule (concat zenkaku-escape "*")  "\e$B!v\e(B")
 413 (its-defrule (concat zenkaku-escape "(")  "\e$B!J\e(B")
 414 (its-defrule (concat zenkaku-escape ")")  "\e$B!K\e(B")
 415 (its-defrule (concat zenkaku-escape "-")  "\e$B!]\e(B")
 416 (its-defrule (concat zenkaku-escape "=")  "\e$B!a\e(B")
 417 (its-defrule (concat zenkaku-escape "`")  "\e$B!.\e(B")
 418 (its-defrule (concat zenkaku-escape "\\") "\e$B!o\e(B")
 419 (its-defrule (concat zenkaku-escape "|")  "\e$B!C\e(B")
 420 (its-defrule (concat zenkaku-escape "_")  "\e$B!2\e(B")
 421 (its-defrule (concat zenkaku-escape "+")  "\e$B!\\e(B")
 422 (its-defrule (concat zenkaku-escape "~")  "\e$B!1\e(B")
 423 (its-defrule (concat zenkaku-escape "[")  "\e$B!N\e(B")
 424 (its-defrule (concat zenkaku-escape "]")  "\e$B!O\e(B")
 425 (its-defrule (concat zenkaku-escape "{")  "\e$B!P\e(B")
 426 (its-defrule (concat zenkaku-escape "}")  "\e$B!Q\e(B")
 427 (its-defrule (concat zenkaku-escape ":")  "\e$B!'\e(B")
 428 (its-defrule (concat zenkaku-escape ";")  "\e$B!(\e(B")
 429 (its-defrule (concat zenkaku-escape "\"") "\e$B!I\e(B")
 430 (its-defrule (concat zenkaku-escape "'")  "\e$B!G\e(B")
 431 (its-defrule (concat zenkaku-escape "<")  "\e$B!c\e(B")
 432 (its-defrule (concat zenkaku-escape ">")  "\e$B!d\e(B")
 433 (its-defrule (concat zenkaku-escape "?")  "\e$B!)\e(B")
 434 (its-defrule (concat zenkaku-escape "/")  "\e$B!?\e(B")
 435 (its-defrule (concat zenkaku-escape ",")  "\e$B!$\e(B")
 436 (its-defrule (concat zenkaku-escape ".")  "\e$B!%\e(B")
 437
 438 ;;;
 439 ;;; Hankaku inputs
 440 ;;;
 441
 442 ;;(defvar escd '("-" "," "." "/" ";" ":" "[" "\\" "]" "^" "~"))
 443 ;;(its-defrule '("x" escd)  '(escd))
 444
 445
 446 (defvar digit-characters
 447    '( "1"  "2"  "3"  "4" "5"  "6"  "7"  "8"  "9"  "0" ))
 448
 449 (defvar symbol-characters
 450    '( " "  "!"  "@"  "#"  "$"  "%"  "^"  "&"  "*"  "("  ")"
 451       "-"  "="  "`"  "\\" "|"  "_"  "+"  "~" "["  "]"  "{"  "}"
 452       ":"  ";"  "\"" "'"  "<"  ">"  "?"  "/"  ","  "." ))
 453
 454 (defvar downcase-alphabets
 455    '("a" "b" "c" "d" "e" "f" "g" "h" "i" "j" "k" "l" "m" "n"
 456      "o" "p" "q" "r" "s" "t" "u" "v" "w" "x" "y" "z"))
 457
 458 (defvar upcase-alphabets
 459    '("A" "B" "C" "D" "E" "F" "G" "H" "I" "J" "K" "L" "M" "N"
 460      "O" "P" "Q" "R" "S" "T" "U" "V" "W" "X" "Y" "Z"))
 461
 462 (dolist (digit digit-characters)
 463   (its-defrule (concat hankaku-escape digit)  digit))
 464
 465 (dolist (symbol symbol-characters)
 466   (its-defrule (concat hankaku-escape symbol) symbol))
 467
 468 (dolist (downcase downcase-alphabets)
 469   (its-defrule (concat hankaku-escape downcase) downcase))
 470
 471 (dolist (upcase upcase-alphabets)
 472   (its-defrule (concat hankaku-escape upcase) upcase))
 473
 474 ;;; proposal key bindings for JIS symbols
 475 ;;; 90.3.2  by jiro@math.keio.ac.jp (TANAKA Jiro)
 476
 477 (its-defrule   "z1"   "\e$B!{\e(B")       (its-defrule   "z!"   "\e$B!|\e(B")
 478 (its-defrule   "z2"   "\e$B"&\e(B")       (its-defrule   "z@"   "\e$B"'\e(B")
 479 (its-defrule   "z3"   "\e$B"$\e(B")       (its-defrule   "z#"   "\e$B"%\e(B")
 480 (its-defrule   "z4"   "\e$B""\e(B")       (its-defrule   "z$"   "\e$B"#\e(B")
 481 (its-defrule   "z5"   "\e$B!~\e(B")       (its-defrule   "z%"   "\e$B"!\e(B")
 482 (its-defrule   "z6"   "\e$B!y\e(B")       (its-defrule   "z^"   "\e$B!z\e(B")
 483 (its-defrule   "z7"   "\e$B!}\e(B")       (its-defrule   "z&"   "\e$B!r\e(B")
 484 (its-defrule   "z8"   "\e$B!q\e(B")       (its-defrule   "z*"   "\e$B!_\e(B")
 485 (its-defrule   "z9"   "\e$B!i\e(B")       (its-defrule   "z("   "\e$B!Z\e(B")
 486 (its-defrule   "z0"   "\e$B!j\e(B")       (its-defrule   "z)"   "\e$B![\e(B")
 487 (its-defrule   "z-"   "\e$B!A\e(B")       (its-defrule   "z_"   "\e$B!h\e(B")       ; z-
 488 (its-defrule   "z="   "\e$B!b\e(B")       (its-defrule   "z+"   "\e$B!^\e(B")
 489 (its-defrule   "z\\"  "\e$B!@\e(B")       (its-defrule   "z|"   "\e$B!B\e(B")
 490 (its-defrule   "z`"   "\e$B!-\e(B")       (its-defrule   "z~"   "\e$B!/\e(B")
 491
 492 (its-defrule   "zq"   "\e$B!T\e(B")       (its-defrule   "zQ"   "\e$B!R\e(B")
 493 (its-defrule   "zw"   "\e$B!U\e(B")       (its-defrule   "zW"   "\e$B!S\e(B")
 494 ; e
 495 (its-defrule   "zr"   "\e$B!9\e(B")       (its-defrule   "zR"   "\e$B!8\e(B")       ; zr
 496 (its-defrule   "zt"   "\e$B!:\e(B")       (its-defrule   "zT"   "\e$B!x\e(B")
 497 ; y u i o
 498 (its-defrule   "zp"   "\e$B")\e(B")       (its-defrule   "zP"   "\e$B",\e(B")       ; zp
 499 (its-defrule   "z["   "\e$B!X\e(B")       (its-defrule   "z{"   "\e$B!L\e(B")       ; z[
 500 (its-defrule   "z]"   "\e$B!Y\e(B")       (its-defrule   "z}"   "\e$B!M\e(B")       ; z]
 501
 502 ; a
 503 (its-defrule   "zs"   "\e$B!3\e(B")       (its-defrule   "zS"   "\e$B!4\e(B")
 504 (its-defrule   "zd"   "\e$B!5\e(B")       (its-defrule   "zD"   "\e$B!6\e(B")
 505 (its-defrule   "zf"   "\e$B!7\e(B")       (its-defrule   "zF"   "\e$B"*\e(B")
 506 (its-defrule   "zg"   "\e$B!>\e(B")       (its-defrule   "zG"   "\e$B!=\e(B")
 507 (its-defrule   "zh"   "\e$B"+\e(B")
 508 (its-defrule   "zj"   "\e$B"-\e(B")
 509 (its-defrule   "zk"   "\e$B",\e(B")
 510 (its-defrule   "zl"   "\e$B"*\e(B")
 511 (its-defrule   "z;"   "\e$B!+\e(B")       (its-defrule   "z:"   "\e$B!,\e(B")
 512 (its-defrule   "z\'"  "\e$B!F\e(B")       (its-defrule   "z\""  "\e$B!H\e(B")
 513
 514 ; z
 515 (its-defrule   "zx"   ":-")     (its-defrule   "zX"   ":-)")
 516 (its-defrule   "zc"   "\e$B!;\e(B")       (its-defrule   "zC"   "\e$B!n\e(B")       ; zc
 517 (its-defrule   "zv"   "\e$B"(\e(B")       (its-defrule   "zV"   "\e$B!`\e(B")
 518 (its-defrule   "zb"   "\e$B!k\e(B")       (its-defrule   "zB"   "\e$B"+\e(B")
 519 (its-defrule   "zn"   "\e$B!l\e(B")       (its-defrule   "zN"   "\e$B"-\e(B")
 520 (its-defrule   "zm"   "\e$B!m\e(B")       (its-defrule   "zM"   "\e$B".\e(B")
 521 (its-defrule   "z,"   "\e$B!E\e(B")       (its-defrule   "z<"   "\e$B!e\e(B")
 522 (its-defrule   "z."   "\e$B!D\e(B")       (its-defrule   "z>"   "\e$B!f\e(B")       ; z.
 523 (its-defrule   "z/"   "\e$B!&\e(B")       (its-defrule   "z?"   "\e$B!g\e(B")       ; z/
 524
 525 ;;; Commented out by K.Handa.  Already defined in a different way.
 526 ;(its-defrule   "va"   "\e$B%t%!\e(B")
 527 ;(its-defrule   "vi"   "\e$B%t%#\e(B")
 528 ;(its-defrule   "vu"   "\e$B%t\e(B")
 529 ;(its-defrule   "ve"   "\e$B%t%'\e(B")
 530 ;(its-defrule   "vo"   "\e$B%t%)\e(B")
 531
 532