its/hira.el

   1 ;;; its/hira.el --- Hiragana Input in Egg Input Method Architecture
   2
   3 ;; Copyright (C) 1997, 1998 Mule Project,
   4 ;; Powered by Electrotechnical Laboratory, JAPAN.
   5 ;; Project Leader: Satoru Tomura <tomura@etl.go.jp>
   6
   7 ;; Author: Satoru Tomura <tomura@etl.go.jp>
   8 ;;         jiro@math.keio.ac.jp (TANAKA Jiro)
   9
  10 ;; This file will be part of GNU Emacs (in future).
  11
  12 ;; GNU Emacs is free software; you can redistribute it and/or modify
  13 ;; it under the terms of the GNU General Public License as published by
  14 ;; the Free Software Foundation; either version 2, or (at your option)
  15 ;; any later version.
  16
  17 ;; GNU Emacs is distributed in the hope that it will be useful,
  18 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  20 ;; GNU General Public License for more details.
  21
  22 ;; You should have received a copy of the GNU General Public License
  23 ;; along with GNU Emacs; see the file COPYING.  If not, write to the
  24 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  25 ;; Boston, MA 02111-1307, USA.
  26
  27 ;;; Commentary:
  28 ;;
  29 ;; Symbol input is desined by jiro@math.keio.ac.jp (TANAKA Jiro)
  30 ;; This file is based on the rules of its/hira.el in Mule-2.3 distribution.
  31 ;;
  32
  33 ;;; Code:
  34
  35 (eval-when-compile
  36   (require 'its)
  37   (require 'cl))
  38
  39 (defvar its-hira-enable-double-n nil "*Enable \"nn\" input for \"\e$B$s\e(B\" ")
  40 (defvar its-hira-enable-zenkaku-alphabet t "*Enable Zenkaku alphabet")
  41 (defvar its-hira-period "\e$B!#\e(B" "*\e$B%T%j%*%I\e(B")  ; ". " "\e$B!%\e(B"
  42 (defvar its-hira-comma  "\e$B!"\e(B" "*\e$B%3%s%^\e(B")    ; ", " "\e$B!$\e(B"
  43 (defvar its-hira-open-bracket  "\e$B!V\e(B" "*[")  ; "\e$B!N\e(B"
  44 (defvar its-hira-close-bracket  "\e$B!W\e(B" "*]") ; "\e$B!O\e(B"
  45 (defvar its-hira-horizontal  "\e$B!<\e(B" "*-")    ; "\e$B!]\e(B"
  46
  47 (define-its-state-machine its-hira-map
  48   "roma-kana" "\e$B$"\e(B" "Japanese" nil
  49   "Map for Romaji-Hiragana translation. (Japanese)"
  50
  51   (defconst its-zenkaku-escape "Z")  ;; Escape character to Zenkaku inputs
  52   (defconst its-hankaku-escape "~")  ;; Escape character to Hankaku inputs
  53
  54   (its-defrule-select-mode-temporally "q" downcase)
  55   (its-defrule-select-mode-temporally "Q" zenkaku-downcase)
  56
  57 ;;; k      k
  58 ;;; kk     \e$B$C\e(Bk
  59 ;;; kka    \e$B$C$+\e(B
  60 ;;;
  61 ;;; kkk    \e$B$C\e(Bk DING!
  62
  63   (its-defrule "tch"  "\e$B$C\e(B" -2)
  64
  65 ;;; \e$B!V$s!W$NF~NO\e(B
  66
  67   (dolist (q1 '("b" "m" "p"))
  68     (its-defrule (concat "m" q1) "\e$B$s\e(B" -1))
  69
  70   (its-defrule "N" "\e$B$s\e(B")
  71
  72   (let ((state (its-goto-state "n" nil t)))
  73     (its-make-next-state state -1 "n" "\e$B$s\e(B")
  74     (its-make-next-state state ?' "n" "\e$B$s\e(B")
  75     (its-defrule-otherwise state "\e$B$s\e(B"))
  76
  77   (let ((small '"x" ))
  78     (its-defrule (concat small "a") "\e$B$!\e(B")
  79     (its-defrule (concat small "i") "\e$B$#\e(B")
  80     (its-defrule (concat small "u") "\e$B$%\e(B")
  81     (its-defrule (concat small "e") "\e$B$'\e(B")
  82     (its-defrule (concat small "o") "\e$B$)\e(B")
  83     (its-defrule (concat small "ya") "\e$B$c\e(B")
  84     (its-defrule (concat small "yu") "\e$B$e\e(B")
  85     (its-defrule (concat small "yo") "\e$B$g\e(B")
  86     (its-defrule (concat small "tu") "\e$B$C\e(B")
  87     (its-defrule (concat small "tsu") "\e$B$C\e(B")
  88     (its-defrule (concat small "wa") "\e$B$n\e(B")
  89     )
  90
  91   (its-defrule   "a"    "\e$B$"\e(B")
  92   (its-defrule   "i"    "\e$B$$\e(B")
  93   (its-defrule   "u"    "\e$B$&\e(B")
  94   (its-defrule   "e"    "\e$B$(\e(B")
  95   (its-defrule   "o"    "\e$B$*\e(B")
  96
  97   (dolist (k '(("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")
  98                ("kya" "\e$B$-$c\e(B") ("kyu"  "\e$B$-$e\e(B") ("kye"  "\e$B$-$'\e(B") ("kyo"  "\e$B$-$g\e(B")))
  99     (its-defrule (car k) (cadr k))
 100     (its-defrule (concat "k" (car k)) (concat "\e$B$C\e(B" (cadr k))))
 101   (its-defoutput "kk" "\e$B$C\e(Bk")
 102   (its-defoutput "kky" "\e$B$C\e(Bky")
 103
 104   (dolist (s '(("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")
 105                ("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")
 106                ("sha"  "\e$B$7$c\e(B") ("shi"  "\e$B$7\e(B") ("shu"  "\e$B$7$e\e(B") ("she"  "\e$B$7$'\e(B")
 107                ("sho"  "\e$B$7$g\e(B")))
 108     (its-defrule (car s) (cadr s))
 109     (its-defrule (concat "s" (car s)) (concat "\e$B$C\e(B" (cadr s))))
 110   (its-defoutput "ss" "\e$B$C\e(Bs")
 111   (its-defoutput "ssy" "\e$B$C\e(Bsy")
 112   (its-defoutput "ssh" "\e$B$C\e(Bsh")
 113
 114   (dolist (T '(("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")
 115                ("tya"  "\e$B$A$c\e(B") ("tyi"  "\e$B$F$#\e(B") ("tyu"  "\e$B$A$e\e(B") ("tye"  "\e$B$A$'\e(B")
 116                ("tyo"  "\e$B$A$g\e(B") ("tsu"  "\e$B$D\e(B")))
 117     (its-defrule (car T) (cadr T))
 118     (its-defrule (concat "t" (car T)) (concat "\e$B$C\e(B" (cadr T))))
 119   (its-defoutput "tt" "\e$B$C\e(Bt")
 120   (its-defoutput "tty" "\e$B$C\e(Bty")
 121   (its-defoutput "tts" "\e$B$C\e(Bts")
 122
 123   (dolist (c '(("cha"  "\e$B$A$c\e(B") ("chi"  "\e$B$A\e(B") ("chu"  "\e$B$A$e\e(B")
 124                ("che"  "\e$B$A$'\e(B") ("cho"  "\e$B$A$g\e(B")))
 125     (its-defrule (car c) (cadr c))
 126     (its-defrule (concat "c" (car c)) (concat "\e$B$C\e(B" (cadr c))))
 127   (its-defoutput "cc" "\e$B$C\e(Bc")
 128   (its-defoutput "cch" "\e$B$C\e(Bch")
 129
 130   (dolist (h '(("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")
 131                ("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")))
 132     (its-defrule (car h) (cadr h))
 133     (its-defrule (concat "h" (car h)) (concat "\e$B$C\e(B" (cadr h))))
 134   (its-defoutput "hh" "\e$B$C\e(Bh")
 135   (its-defoutput "hhy" "\e$B$C\e(Bhy")
 136
 137   (dolist (f '(("fa"  "\e$B$U$!\e(B") ("fi"  "\e$B$U$#\e(B") ("fu"  "\e$B$U\e(B") ("fe"  "\e$B$U$'\e(B")
 138                ("fo"  "\e$B$U$)\e(B")))
 139     (its-defrule (car f) (cadr f))
 140     (its-defrule (concat "f" (car f)) (concat "\e$B$C\e(B" (cadr f))))
 141   (its-defoutput "ff" "\e$B$C\e(Bf")
 142
 143   (dolist (r '(("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")
 144                ("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")))
 145     (its-defrule (car r) (cadr r))
 146     (its-defrule (concat "r" (car r)) (concat "\e$B$C\e(B" (cadr r))))
 147   (its-defoutput "rr" "\e$B$C\e(Br")
 148   (its-defoutput "rry" "\e$B$C\e(Bry")
 149
 150   (dolist (l '(("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")
 151                ("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")))
 152     (its-defrule (car l) (cadr l))
 153     (its-defrule (concat "l" (car l)) (concat "\e$B$C\e(B" (cadr l))))
 154   (its-defoutput "ll" "\e$B$C\e(Bl")
 155   (its-defoutput "lly" "\e$B$C\e(Bly")
 156
 157   (dolist (g '(("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")
 158                ("gya"  "\e$B$.$c\e(B") ("gyu"  "\e$B$.$e\e(B") ("gye"  "\e$B$.$'\e(B") ("gyo"  "\e$B$.$g\e(B")))
 159     (its-defrule (car g) (cadr g))
 160     (its-defrule (concat "g" (car g)) (concat "\e$B$C\e(B" (cadr g))))
 161   (its-defoutput "gg" "\e$B$C\e(Bg")
 162   (its-defoutput "ggy" "\e$B$C\e(Bgy")
 163
 164   (dolist (z '(("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")
 165                ("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")))
 166     (its-defrule (car z) (cadr z))
 167     (its-defrule (concat "z" (car z)) (concat "\e$B$C\e(B" (cadr z))))
 168   (its-defoutput "zz" "\e$B$C\e(Bz")
 169   (its-defoutput "zzy" "\e$B$C\e(Bzy")
 170
 171   (dolist (j '(("ja"  "\e$B$8$c\e(B") ("ji"  "\e$B$8\e(B") ("ju"  "\e$B$8$e\e(B") ("je"  "\e$B$8$'\e(B")
 172                ("jo"  "\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")
 173                ("jyo"  "\e$B$8$g\e(B")))
 174     (its-defrule (car j) (cadr j))
 175     (its-defrule (concat "j" (car j)) (concat "\e$B$C\e(B" (cadr j))))
 176   (its-defoutput "jj" "\e$B$C\e(Bj")
 177   (its-defoutput "jjy" "\e$B$C\e(Bjy")
 178
 179   (dolist (d '(("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")
 180                ("dya"  "\e$B$B$c\e(B") ("dyi"  "\e$B$G$#\e(B") ("dyu"  "\e$B$B$e\e(B") ("dye"  "\e$B$B$'\e(B")
 181                ("dyo"  "\e$B$B$g\e(B")))
 182     (its-defrule (car d) (cadr d))
 183     (its-defrule (concat "d" (car d)) (concat "\e$B$C\e(B" (cadr d))))
 184   (its-defoutput "dd" "\e$B$C\e(Bd")
 185   (its-defoutput "ddy" "\e$B$C\e(Bdy")
 186
 187   (dolist (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")
 188                ("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")))
 189     (its-defrule (car b) (cadr b))
 190     (its-defrule (concat "b" (car b)) (concat "\e$B$C\e(B" (cadr b))))
 191   (its-defoutput "bb" "\e$B$C\e(Bb")
 192   (its-defoutput "bby" "\e$B$C\e(Bby")
 193
 194   (dolist (p '(("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")
 195                ("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")))
 196     (its-defrule (car p) (cadr p))
 197     (its-defrule (concat "p" (car p)) (concat "\e$B$C\e(B" (cadr p))))
 198   (its-defoutput "pp" "\e$B$C\e(Bp")
 199   (its-defoutput "ppy" "\e$B$C\e(Bpy")
 200
 201   (dolist (v '(("va" "\e$B%t$!\e(B") ("vi" "\e$B%t$#\e(B") ("vu" "\e$B%t\e(B") ("ve" "\e$B%t$'\e(B")
 202                ("vo" "\e$B%t$)\e(B")))
 203     (its-defrule (car v) (cadr v))
 204     (its-defrule (concat "v" (car v)) (concat "\e$B$C\e(B" (cadr v))))
 205   (its-defoutput "vv" "\e$B$C\e(Bv")
 206
 207   (its-defrule   "ma"   "\e$B$^\e(B")
 208   (its-defrule   "mi"   "\e$B$_\e(B")
 209   (its-defrule   "mu"   "\e$B$`\e(B")
 210   (its-defrule   "me"   "\e$B$a\e(B")
 211   (its-defrule   "mo"   "\e$B$b\e(B")
 212   (its-defrule   "mya"  "\e$B$_$c\e(B")
 213   (its-defrule   "myu"  "\e$B$_$e\e(B")
 214   (its-defrule   "mye"  "\e$B$_$'\e(B")
 215   (its-defrule   "myo"  "\e$B$_$g\e(B")
 216   (its-defrule   "ya"   "\e$B$d\e(B")
 217   (its-defrule   "yi"   "\e$B$$\e(B")
 218   (its-defrule   "yu"   "\e$B$f\e(B")
 219   (its-defrule   "yo"   "\e$B$h\e(B")
 220   (its-defrule   "ye"   "\e$B$$$'\e(B")
 221   (its-defrule   "wa"   "\e$B$o\e(B")
 222   (its-defrule   "wi"   "\e$B$p\e(B")
 223   (its-defrule   "wu"   "\e$B$&\e(B")
 224   (its-defrule   "we"   "\e$B$q\e(B")
 225   (its-defrule   "wo"   "\e$B$r\e(B")
 226
 227   (its-defrule   "kwa"  "\e$B$/$n\e(B")
 228   (its-defrule   "kwi"  "\e$B$/$#\e(B")
 229   (its-defrule   "kwu"  "\e$B$/\e(B")
 230   (its-defrule   "kwe"  "\e$B$/$'\e(B")
 231   (its-defrule   "kwo"  "\e$B$/$)\e(B")
 232   (its-defrule   "gwa"  "\e$B$0$n\e(B")
 233   (its-defrule   "gwi"  "\e$B$0$#\e(B")
 234   (its-defrule   "gwu"  "\e$B$0\e(B")
 235   (its-defrule   "gwe"  "\e$B$0$'\e(B")
 236   (its-defrule   "gwo"  "\e$B$0$)\e(B")
 237   (its-defrule   "tsa"  "\e$B$D$!\e(B")
 238   (its-defrule   "tsi"  "\e$B$D$#\e(B")
 239   (its-defrule   "tse"  "\e$B$D$'\e(B")
 240   (its-defrule   "tso"  "\e$B$D$)\e(B")
 241
 242   (its-defrule   "na"   "\e$B$J\e(B")
 243   (its-defrule   "ni"   "\e$B$K\e(B")
 244   (its-defrule   "nu"   "\e$B$L\e(B")
 245   (its-defrule   "ne"   "\e$B$M\e(B")
 246   (its-defrule   "no"   "\e$B$N\e(B")
 247   (its-defrule   "nya"  "\e$B$K$c\e(B")
 248   (its-defrule   "nyu"  "\e$B$K$e\e(B")
 249   (its-defrule   "nye"  "\e$B$K$'\e(B")
 250   (its-defrule   "nyo"  "\e$B$K$g\e(B")
 251
 252   (its-defrule   "xka"  "\e$B%u\e(B")
 253   (its-defrule   "xke"  "\e$B%v\e(B")
 254   (its-defrule   "xti"  "\e$B$F$#\e(B")
 255   (its-defrule   "xdi"  "\e$B$G$#\e(B")
 256   (its-defrule   "xdu"  "\e$B$I$%\e(B")
 257   (its-defrule   "xde"  "\e$B$G$'\e(B")
 258   (its-defrule   "xdo"  "\e$B$I$)\e(B")
 259   (its-defrule   "xwi"  "\e$B$&$#\e(B")
 260   (its-defrule   "xwe"  "\e$B$&$'\e(B")
 261   (its-defrule   "xwo"  "\e$B$&$)\e(B")
 262
 263 ;;;
 264 ;;; Zenkaku inputs
 265 ;;;
 266
 267   (its-defrule (concat its-zenkaku-escape "0") "\e$B#0\e(B")
 268   (its-defrule (concat its-zenkaku-escape "1") "\e$B#1\e(B")
 269   (its-defrule (concat its-zenkaku-escape "2") "\e$B#2\e(B")
 270   (its-defrule (concat its-zenkaku-escape "3") "\e$B#3\e(B")
 271   (its-defrule (concat its-zenkaku-escape "4") "\e$B#4\e(B")
 272   (its-defrule (concat its-zenkaku-escape "5") "\e$B#5\e(B")
 273   (its-defrule (concat its-zenkaku-escape "6") "\e$B#6\e(B")
 274   (its-defrule (concat its-zenkaku-escape "7") "\e$B#7\e(B")
 275   (its-defrule (concat its-zenkaku-escape "8") "\e$B#8\e(B")
 276   (its-defrule (concat its-zenkaku-escape "9") "\e$B#9\e(B")
 277
 278   (its-defrule (concat its-zenkaku-escape "A") "\e$B#A\e(B")
 279   (its-defrule (concat its-zenkaku-escape "B") "\e$B#B\e(B")
 280   (its-defrule (concat its-zenkaku-escape "C") "\e$B#C\e(B")
 281   (its-defrule (concat its-zenkaku-escape "D") "\e$B#D\e(B")
 282   (its-defrule (concat its-zenkaku-escape "E") "\e$B#E\e(B")
 283   (its-defrule (concat its-zenkaku-escape "F") "\e$B#F\e(B")
 284   (its-defrule (concat its-zenkaku-escape "G") "\e$B#G\e(B")
 285   (its-defrule (concat its-zenkaku-escape "H") "\e$B#H\e(B")
 286   (its-defrule (concat its-zenkaku-escape "I") "\e$B#I\e(B")
 287   (its-defrule (concat its-zenkaku-escape "J") "\e$B#J\e(B")
 288   (its-defrule (concat its-zenkaku-escape "K") "\e$B#K\e(B")
 289   (its-defrule (concat its-zenkaku-escape "L") "\e$B#L\e(B")
 290   (its-defrule (concat its-zenkaku-escape "M") "\e$B#M\e(B")
 291   (its-defrule (concat its-zenkaku-escape "N") "\e$B#N\e(B")
 292   (its-defrule (concat its-zenkaku-escape "O") "\e$B#O\e(B")
 293   (its-defrule (concat its-zenkaku-escape "P") "\e$B#P\e(B")
 294   (its-defrule (concat its-zenkaku-escape "Q") "\e$B#Q\e(B")
 295   (its-defrule (concat its-zenkaku-escape "R") "\e$B#R\e(B")
 296   (its-defrule (concat its-zenkaku-escape "S") "\e$B#S\e(B")
 297   (its-defrule (concat its-zenkaku-escape "T") "\e$B#T\e(B")
 298   (its-defrule (concat its-zenkaku-escape "U") "\e$B#U\e(B")
 299   (its-defrule (concat its-zenkaku-escape "V") "\e$B#V\e(B")
 300   (its-defrule (concat its-zenkaku-escape "W") "\e$B#W\e(B")
 301   (its-defrule (concat its-zenkaku-escape "X") "\e$B#X\e(B")
 302   (its-defrule (concat its-zenkaku-escape "Y") "\e$B#Y\e(B")
 303   (its-defrule (concat its-zenkaku-escape "Z") "\e$B#Z\e(B")
 304
 305   (its-defrule (concat its-zenkaku-escape "a") "\e$B#a\e(B")
 306   (its-defrule (concat its-zenkaku-escape "b") "\e$B#b\e(B")
 307   (its-defrule (concat its-zenkaku-escape "c") "\e$B#c\e(B")
 308   (its-defrule (concat its-zenkaku-escape "d") "\e$B#d\e(B")
 309   (its-defrule (concat its-zenkaku-escape "e") "\e$B#e\e(B")
 310   (its-defrule (concat its-zenkaku-escape "f") "\e$B#f\e(B")
 311   (its-defrule (concat its-zenkaku-escape "g") "\e$B#g\e(B")
 312   (its-defrule (concat its-zenkaku-escape "h") "\e$B#h\e(B")
 313   (its-defrule (concat its-zenkaku-escape "i") "\e$B#i\e(B")
 314   (its-defrule (concat its-zenkaku-escape "j") "\e$B#j\e(B")
 315   (its-defrule (concat its-zenkaku-escape "k") "\e$B#k\e(B")
 316   (its-defrule (concat its-zenkaku-escape "l") "\e$B#l\e(B")
 317   (its-defrule (concat its-zenkaku-escape "m") "\e$B#m\e(B")
 318   (its-defrule (concat its-zenkaku-escape "n") "\e$B#n\e(B")
 319   (its-defrule (concat its-zenkaku-escape "o") "\e$B#o\e(B")
 320   (its-defrule (concat its-zenkaku-escape "p") "\e$B#p\e(B")
 321   (its-defrule (concat its-zenkaku-escape "q") "\e$B#q\e(B")
 322   (its-defrule (concat its-zenkaku-escape "r") "\e$B#r\e(B")
 323   (its-defrule (concat its-zenkaku-escape "s") "\e$B#s\e(B")
 324   (its-defrule (concat its-zenkaku-escape "t") "\e$B#t\e(B")
 325   (its-defrule (concat its-zenkaku-escape "u") "\e$B#u\e(B")
 326   (its-defrule (concat its-zenkaku-escape "v") "\e$B#v\e(B")
 327   (its-defrule (concat its-zenkaku-escape "w") "\e$B#w\e(B")
 328   (its-defrule (concat its-zenkaku-escape "x") "\e$B#x\e(B")
 329   (its-defrule (concat its-zenkaku-escape "y") "\e$B#y\e(B")
 330   (its-defrule (concat its-zenkaku-escape "z") "\e$B#z\e(B")
 331
 332   (its-defrule (concat its-zenkaku-escape " ")  "\e$B!!\e(B")
 333   (its-defrule (concat its-zenkaku-escape "!")  "\e$B!*\e(B")
 334   (its-defrule (concat its-zenkaku-escape "@")  "\e$B!w\e(B")
 335   (its-defrule (concat its-zenkaku-escape "#")  "\e$B!t\e(B")
 336   (its-defrule (concat its-zenkaku-escape "$")  "\e$B!p\e(B")
 337   (its-defrule (concat its-zenkaku-escape "%")  "\e$B!s\e(B")
 338   (its-defrule (concat its-zenkaku-escape "^")  "\e$B!0\e(B")
 339   (its-defrule (concat its-zenkaku-escape "&")  "\e$B!u\e(B")
 340   (its-defrule (concat its-zenkaku-escape "*")  "\e$B!v\e(B")
 341   (its-defrule (concat its-zenkaku-escape "(")  "\e$B!J\e(B")
 342   (its-defrule (concat its-zenkaku-escape ")")  "\e$B!K\e(B")
 343   (its-defrule (concat its-zenkaku-escape "-")  "\e$B!]\e(B")
 344   (its-defrule (concat its-zenkaku-escape "=")  "\e$B!a\e(B")
 345   (its-defrule (concat its-zenkaku-escape "`")  "\e$B!.\e(B")
 346   (its-defrule (concat its-zenkaku-escape "\\") "\e$B!o\e(B")
 347   (its-defrule (concat its-zenkaku-escape "|")  "\e$B!C\e(B")
 348   (its-defrule (concat its-zenkaku-escape "_")  "\e$B!2\e(B")
 349   (its-defrule (concat its-zenkaku-escape "+")  "\e$B!\\e(B")
 350   (its-defrule (concat its-zenkaku-escape "~")  "\e$B!1\e(B")
 351   (its-defrule (concat its-zenkaku-escape "[")  "\e$B!N\e(B")
 352   (its-defrule (concat its-zenkaku-escape "]")  "\e$B!O\e(B")
 353   (its-defrule (concat its-zenkaku-escape "{")  "\e$B!P\e(B")
 354   (its-defrule (concat its-zenkaku-escape "}")  "\e$B!Q\e(B")
 355   (its-defrule (concat its-zenkaku-escape ":")  "\e$B!'\e(B")
 356   (its-defrule (concat its-zenkaku-escape ";")  "\e$B!(\e(B")
 357   (its-defrule (concat its-zenkaku-escape "\"") "\e$B!I\e(B")
 358   (its-defrule (concat its-zenkaku-escape "'")  "\e$B!G\e(B")
 359   (its-defrule (concat its-zenkaku-escape "<")  "\e$B!c\e(B")
 360   (its-defrule (concat its-zenkaku-escape ">")  "\e$B!d\e(B")
 361   (its-defrule (concat its-zenkaku-escape "?")  "\e$B!)\e(B")
 362   (its-defrule (concat its-zenkaku-escape "/")  "\e$B!?\e(B")
 363   (its-defrule (concat its-zenkaku-escape ",")  "\e$B!$\e(B")
 364   (its-defrule (concat its-zenkaku-escape ".")  "\e$B!%\e(B")
 365
 366 ;;;
 367 ;;; Hankaku inputs
 368 ;;;
 369
 370   (dolist (digit '( "1"  "2"  "3"  "4" "5"  "6"  "7"  "8"  "9"  "0" ))
 371     (its-defrule (concat its-hankaku-escape digit)  digit))
 372
 373   (dolist (symbol '( " "  "!"  "@"  "#"  "$"  "%"  "^"  "&"  "*"  "("  ")"
 374                      "-"  "="  "`"  "\\" "|"  "_"  "+"  "~" "["  "]"  "{"  "}"
 375                      ":"  ";"  "\"" "'"  "<"  ">"  "?"  "/"  ","  "." ))
 376     (its-defrule (concat its-hankaku-escape symbol) symbol))
 377
 378   (dolist (downcase '("a" "b" "c" "d" "e" "f" "g" "h" "i" "j" "k" "l" "m" "n"
 379                       "o" "p" "q" "r" "s" "t" "u" "v" "w" "x" "y" "z"))
 380     (its-defrule (concat its-hankaku-escape downcase) downcase))
 381
 382   (dolist (upcase    '("A" "B" "C" "D" "E" "F" "G" "H" "I" "J" "K" "L" "M" "N"
 383                        "O" "P" "Q" "R" "S" "T" "U" "V" "W" "X" "Y" "Z"))
 384     (its-defrule (concat its-hankaku-escape upcase) upcase))
 385
 386 ;; SYMBOL Input
 387   (its-defrule   "z1"   "\e$B!{\e(B")     (its-defrule   "z!"   "\e$B!|\e(B")
 388   (its-defrule   "z2"   "\e$B"&\e(B")     (its-defrule   "z@"   "\e$B"'\e(B")
 389   (its-defrule   "z3"   "\e$B"$\e(B")     (its-defrule   "z#"   "\e$B"%\e(B")
 390   (its-defrule   "z4"   "\e$B""\e(B")     (its-defrule   "z$"   "\e$B"#\e(B")
 391   (its-defrule   "z5"   "\e$B!~\e(B")     (its-defrule   "z%"   "\e$B"!\e(B")
 392   (its-defrule   "z6"   "\e$B!y\e(B")     (its-defrule   "z^"   "\e$B!z\e(B")
 393   (its-defrule   "z7"   "\e$B!}\e(B")     (its-defrule   "z&"   "\e$B!r\e(B")
 394   (its-defrule   "z8"   "\e$B!q\e(B")     (its-defrule   "z*"   "\e$B!_\e(B")
 395   (its-defrule   "z9"   "\e$B!i\e(B")     (its-defrule   "z("   "\e$B!Z\e(B")
 396   (its-defrule   "z0"   "\e$B!j\e(B")     (its-defrule   "z)"   "\e$B![\e(B")
 397   (its-defrule   "z-"   "\e$B!A\e(B")     (its-defrule   "z_"   "\e$B!h\e(B")
 398   (its-defrule   "z="   "\e$B!b\e(B")     (its-defrule   "z+"   "\e$B!^\e(B")
 399   (its-defrule   "z\\"  "\e$B!@\e(B")     (its-defrule   "z|"   "\e$B!B\e(B")
 400   (its-defrule   "z`"   "\e$B!-\e(B")     (its-defrule   "z~"   "\e$B!/\e(B")
 401
 402   (its-defrule   "zq"   "\e$B!T\e(B")     (its-defrule   "zQ"   "\e$B!R\e(B")
 403   (its-defrule   "zw"   "\e$B!U\e(B")     (its-defrule   "zW"   "\e$B!S\e(B")
 404                                         ; e
 405   (its-defrule   "zr"   "\e$B!9\e(B")     (its-defrule   "zR"   "\e$B!8\e(B")
 406   (its-defrule   "zt"   "\e$B!:\e(B")     (its-defrule   "zT"   "\e$B!x\e(B")
 407                                         ; y u i o
 408   (its-defrule   "zp"   "\e$B")\e(B")     (its-defrule   "zP"   "\e$B",\e(B")
 409   (its-defrule   "z["   "\e$B!X\e(B")     (its-defrule   "z{"   "\e$B!L\e(B")
 410   (its-defrule   "z]"   "\e$B!Y\e(B")     (its-defrule   "z}"   "\e$B!M\e(B")
 411
 412                                         ; a
 413   (its-defrule   "zs"   "\e$B!3\e(B")     (its-defrule   "zS"   "\e$B!4\e(B")
 414   (its-defrule   "zd"   "\e$B!5\e(B")     (its-defrule   "zD"   "\e$B!6\e(B")
 415   (its-defrule   "zf"   "\e$B!7\e(B")     (its-defrule   "zF"   "\e$B"*\e(B")
 416   (its-defrule   "zg"   "\e$B!>\e(B")     (its-defrule   "zG"   "\e$B!=\e(B")
 417   (its-defrule   "zh"   "\e$B"+\e(B")
 418   (its-defrule   "zj"   "\e$B"-\e(B")
 419   (its-defrule   "zk"   "\e$B",\e(B")
 420   (its-defrule   "zl"   "\e$B"*\e(B")
 421   (its-defrule   "z;"   "\e$B!+\e(B")     (its-defrule   "z:"   "\e$B!,\e(B")
 422   (its-defrule   "z\'"  "\e$B!F\e(B")     (its-defrule   "z\""  "\e$B!H\e(B")
 423
 424                                         ; z
 425   (its-defrule   "zx"   ":-")   (its-defrule   "zX"   ":-)")
 426   (its-defrule   "zc"   "\e$B!;\e(B")     (its-defrule   "zC"   "\e$B!n\e(B")
 427   (its-defrule   "zv"   "\e$B"(\e(B")     (its-defrule   "zV"   "\e$B!`\e(B")
 428   (its-defrule   "zb"   "\e$B!k\e(B")     (its-defrule   "zB"   "\e$B"+\e(B")
 429   (its-defrule   "zn"   "\e$B!l\e(B")     (its-defrule   "zN"   "\e$B"-\e(B")
 430   (its-defrule   "zm"   "\e$B!m\e(B")     (its-defrule   "zM"   "\e$B".\e(B")
 431   (its-defrule   "z,"   "\e$B!E\e(B")     (its-defrule   "z<"   "\e$B!e\e(B")
 432   (its-defrule   "z."   "\e$B!D\e(B")     (its-defrule   "z>"   "\e$B!f\e(B")
 433   (its-defrule   "z/"   "\e$B!&\e(B")     (its-defrule   "z?"   "\e$B!g\e(B")
 434   )
 435
 436 (define-its-state-machine-append its-hira-map
 437   (if its-hira-enable-double-n
 438       (its-defrule "nn" "\e$B$s\e(B")
 439     (its-defrule "nn" "\e$B$s\e(B" -1))
 440
 441   (its-defrule "-" its-hira-horizontal)
 442   (its-defrule "[" its-hira-open-bracket)
 443   (its-defrule "]" its-hira-close-bracket)
 444   (its-defrule "." its-hira-period)
 445   (its-defrule "," its-hira-comma)
 446
 447   (if its-hira-enable-zenkaku-alphabet
 448       (progn
 449         (its-defrule   "1"   "\e$B#1\e(B")  (its-defrule   "2"   "\e$B#2\e(B")
 450         (its-defrule   "3"   "\e$B#3\e(B")  (its-defrule   "4"   "\e$B#4\e(B")
 451         (its-defrule   "5"   "\e$B#5\e(B")  (its-defrule   "6"   "\e$B#6\e(B")
 452         (its-defrule   "7"   "\e$B#7\e(B")  (its-defrule   "8"   "\e$B#8\e(B")
 453         (its-defrule   "9"   "\e$B#9\e(B")  (its-defrule   "0"   "\e$B#0\e(B")
 454         (its-defrule   "!"   "\e$B!*\e(B")  (its-defrule   "@"   "\e$B!w\e(B")
 455         (its-defrule   "#"   "\e$B!t\e(B")  (its-defrule   "$"   "\e$B!p\e(B")
 456         (its-defrule   "%"   "\e$B!s\e(B")  (its-defrule   "^"   "\e$B!0\e(B")
 457         (its-defrule   "&"   "\e$B!u\e(B")  (its-defrule   "*"   "\e$B!v\e(B")
 458         (its-defrule   "("   "\e$B!J\e(B")  (its-defrule   ")"   "\e$B!K\e(B")
 459         (its-defrule   "="   "\e$B!a\e(B")  (its-defrule   "`"   "\e$B!.\e(B")
 460         (its-defrule   "\\"  "\e$B!o\e(B")  (its-defrule   "|"   "\e$B!C\e(B")
 461         (its-defrule   "_"   "\e$B!2\e(B")  (its-defrule   "+"   "\e$B!\\e(B")
 462         (its-defrule   "{"   "\e$B!P\e(B")  (its-defrule   "}"   "\e$B!Q\e(B")
 463         (its-defrule   ":"   "\e$B!'\e(B")  (its-defrule   ";"   "\e$B!(\e(B")
 464         (its-defrule   "\""  "\e$B!I\e(B")  (its-defrule   "'"   "\e$B!G\e(B")
 465         (its-defrule   "<"   "\e$B!c\e(B")  (its-defrule   ">"   "\e$B!d\e(B")
 466         (its-defrule   "?"   "\e$B!)\e(B")  (its-defrule   "/"   "\e$B!?\e(B"))
 467     (progn
 468       (its-defrule   "1"   "1")  (its-defrule   "2"   "2")
 469       (its-defrule   "3"   "3")  (its-defrule   "4"   "4")
 470       (its-defrule   "5"   "5")  (its-defrule   "6"   "6")
 471       (its-defrule   "7"   "7")  (its-defrule   "8"   "8")
 472       (its-defrule   "9"   "9")  (its-defrule   "0"   "0")
 473       (its-defrule   "!"   "!")  (its-defrule   "@"   "@")
 474       (its-defrule   "#"   "#")  (its-defrule   "$"   "$")
 475       (its-defrule   "%"   "%")  (its-defrule   "^"   "^")
 476       (its-defrule   "&"   "&")  (its-defrule   "*"   "*")
 477       (its-defrule   "("   "(")  (its-defrule   ")"   ")")
 478       (its-defrule   "="   "=")  (its-defrule   "`"   "`")
 479       (its-defrule   "\\"  "\\") (its-defrule   "|"   "|")
 480       (its-defrule   "_"   "_")  (its-defrule   "+"   "+")
 481       (its-defrule   "{"   "{")  (its-defrule   "}"   "}")
 482       (its-defrule   ":"   ":")  (its-defrule   ";"   ";")
 483       (its-defrule   "\""  "\"") (its-defrule   "'"   "'")
 484       (its-defrule   "<"   "<")  (its-defrule   ">"   ">")
 485       (its-defrule   "?"   "?")  (its-defrule   "/"   "/")))
 486   )
 487
 488 (provide 'its/hira)
 489 ;;; its/hira.el ends here.