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

   1 ;; Basic ZhuYin Translation Table for Egg+Takana+cWnn
   2 ;; Coded by Hiroshi Kuribayashi (kuri@nff.ncl.omron.co.jp)
   3
   4 ;; \e(0A\e(B!  \e(0B\e(B"  \e(0C\e(B#  \e(0D\e(B$  5%  6&  \e(0Q\e(B'  \e(0b\e(B(  \e(0c\e(B)  \e(0d\e(B   \e(0e\e$A!*\e(B \e(0f\e(B~  \|
   5 ;;   \e(0_\e(B   \e(0]\e(B   \e(0g\e(B   \e(0\\e(B   \e(0J\e(B   \e(0a\e(B   \e(0i\e(B   \e(0^\e(B   \e(0[\e(B   \e(0F\e(B   @`  \e$A!0!.\e(B
   6 ;;     \e(0Z\e(B   \e(0Y\e(B    \e(0I\e(B   \e(0H\e(B  \e(0P\e(B   \e(0O\e(B   \e(0V\e(B   \e(0N\e(B   \e(0L\e(B   \e(0W\e$A#;\e(B \e(0X\e$A#:\e(B \e$A!1!/\e(B
   7 ;;       \e(0`\e(B   \e(0h\e(B   \e(0R\e(B   \e(0M\e(B   \e(0E\e(B   \e(0K\e(B  \e(0G\e(B    \e(0S\e$A#,\e(B \e(0T\e$A!#\e(B \e(0U\e$A#?\e(B \e$A!"\e(B
   8
   9 (its-define-mode "zhuyin" "\e$AW"\e(B" t)
  10
  11 (let ((its:make-terminal-state 'its:make-terminal-state-hangul))
  12
  13 (its-defrule "b"        "\e(0E\e(B")      ;;; B
  14 (its-defrule "p"        "\e(0F\e(B")      ;;; P
  15 (its-defrule "m"        "\e(0G\e(B")      ;;; M
  16 (its-defrule "f"        "\e(0H\e(B")      ;;; F
  17
  18 (its-defrule "d"        "\e(0I\e(B")      ;;; D
  19 (its-defrule "t"        "\e(0J\e(B")      ;;; T
  20 (its-defrule "n"        "\e(0K\e(B")      ;;; N
  21 (its-defrule "l"        "\e(0L\e(B")      ;;; L
  22
  23 (its-defrule "v"        "\e(0M\e(B")      ;;; G
  24 (its-defrule "k"        "\e(0N\e(B")      ;;; K
  25 (its-defrule "h"        "\e(0O\e(B")      ;;; H
  26
  27 (its-defrule "g"        "\e(0P\e(B")      ;;; J
  28 (its-defrule "7"        "\e(0Q\e(B")      ;;; Q
  29 (its-defrule "c"        "\e(0R\e(B")      ;;; X
  30
  31 (its-defrule ","        "\e(0S\e(B")      ;;; Zh
  32 (its-defrule "."        "\e(0T\e(B")      ;;; Ch
  33 (its-defrule "/"        "\e(0U\e(B")      ;;; Sh
  34 (its-defrule "j"        "\e(0V\e(B")      ;;; R
  35
  36 (its-defrule ";"        "\e(0W\e(B")      ;;; Z
  37 (its-defrule ":"        "\e(0X\e(B")      ;;; C
  38 (its-defrule "s"        "\e(0Y\e(B")      ;;; S
  39
  40 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  41 (its-defrule "a"        "\e(0Z@\e(B")     ;;; a
  42 (its-defrule "a1"       "\e(0ZA\e(B")
  43 (its-defrule "a2"       "\e(0ZB\e(B")
  44 (its-defrule "a3"       "\e(0ZC\e(B")
  45 (its-defrule "a4"       "\e(0ZD\e(B")
  46
  47 (its-defrule "i"        "\e(0^@\e(B")     ;;; ai
  48 (its-defrule "i1"       "\e(0^A\e(B")
  49 (its-defrule "i2"       "\e(0^B\e(B")
  50 (its-defrule "i3"       "\e(0^C\e(B")
  51 (its-defrule "i4"       "\e(0^D\e(B")
  52
  53 (its-defrule "8"        "\e(0b@\e(B")     ;;; an
  54 (its-defrule "81"       "\e(0bA\e(B")
  55 (its-defrule "82"       "\e(0bB\e(B")
  56 (its-defrule "83"       "\e(0bC\e(B")
  57 (its-defrule "84"       "\e(0bD\e(B")
  58
  59 (its-defrule "0"        "\e(0d@\e(B")     ;;; ang
  60 (its-defrule "01"       "\e(0dA\e(B")
  61 (its-defrule "02"       "\e(0dB\e(B")
  62 (its-defrule "03"       "\e(0dC\e(B")
  63 (its-defrule "04"       "\e(0dD\e(B")
  64
  65 (its-defrule "z"        "\e(0`@\e(B")     ;;; ao
  66 (its-defrule "z1"       "\e(0`A\e(B")
  67 (its-defrule "z2"       "\e(0`B\e(B")
  68 (its-defrule "z3"       "\e(0`C\e(B")
  69 (its-defrule "z4"       "\e(0`D\e(B")
  70
  71 (its-defrule "r"        "\e(0\@\e(B")     ;;; e
  72 (its-defrule "r1"       "\e(0\A\e(B")
  73 (its-defrule "r2"       "\e(0\B\e(B")
  74 (its-defrule "r3"       "\e(0\C\e(B")
  75 (its-defrule "r4"       "\e(0\D\e(B")
  76
  77 (its-defrule "w"        "\e(0]@\e(B")     ;;; \e(0:\e(B
  78 (its-defrule "w1"       "\e(0]A\e(B")
  79 (its-defrule "w2"       "\e(0]B\e(B")
  80 (its-defrule "w3"       "\e(0]C\e(B")
  81 (its-defrule "w4"       "\e(0]D\e(B")
  82
  83 (its-defrule "q"        "\e(0_@\e(B")     ;;; ei
  84 (its-defrule "q1"       "\e(0_A\e(B")
  85 (its-defrule "q2"       "\e(0_B\e(B")
  86 (its-defrule "q3"       "\e(0_C\e(B")
  87 (its-defrule "q4"       "\e(0_D\e(B")
  88
  89 (its-defrule "9"        "\e(0c@\e(B")     ;;; en
  90 (its-defrule "91"       "\e(0cA\e(B")
  91 (its-defrule "92"       "\e(0cB\e(B")
  92 (its-defrule "93"       "\e(0cC\e(B")
  93 (its-defrule "94"       "\e(0cD\e(B")
  94
  95 (its-defrule "-"        "\e(0e@\e(B")     ;;; eng
  96 (its-defrule "-1"       "\e(0eA\e(B")
  97 (its-defrule "-2"       "\e(0eB\e(B")
  98 (its-defrule "-3"       "\e(0eC\e(B")
  99 (its-defrule "-4"       "\e(0eD\e(B")
 100
 101 (its-defrule "o"        "\e(0[@\e(B")     ;;; o
 102 (its-defrule "o1"       "\e(0[A\e(B")
 103 (its-defrule "o2"       "\e(0[B\e(B")
 104 (its-defrule "o3"       "\e(0[C\e(B")
 105 (its-defrule "o4"       "\e(0[D\e(B")
 106
 107 (its-defrule "y"        "\e(0a@\e(B")     ;;; ou
 108 (its-defrule "y1"       "\e(0aA\e(B")
 109 (its-defrule "y2"       "\e(0aB\e(B")
 110 (its-defrule "y3"       "\e(0aC\e(B")
 111 (its-defrule "y4"       "\e(0aD\e(B")
 112
 113 (its-defrule "^"        "\e(0f@\e(B")     ;;; er
 114 (its-defrule "^1"       "\e(0fA\e(B")
 115 (its-defrule "^2"       "\e(0fB\e(B")
 116 (its-defrule "^3"       "\e(0fC\e(B")
 117 (its-defrule "^4"       "\e(0fD\e(B")
 118
 119 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 120 (its-defrule "e"        "\e(0g@\e(B")     ;;; i
 121 (its-defrule "e1"       "\e(0gA\e(B")
 122 (its-defrule "e2"       "\e(0gB\e(B")
 123 (its-defrule "e3"       "\e(0gC\e(B")
 124 (its-defrule "e4"       "\e(0gD\e(B")
 125
 126 (its-defrule "ea"       "\e(0gZ@\e(B")    ;;; ia
 127 (its-defrule "ea1"      "\e(0gZA\e(B")
 128 (its-defrule "ea2"      "\e(0gZB\e(B")
 129 (its-defrule "ea3"      "\e(0gZC\e(B")
 130 (its-defrule "ea4"      "\e(0gZD\e(B")
 131
 132 (its-defrule "e8"       "\e(0gb@\e(B")    ;;; ian
 133 (its-defrule "e81"      "\e(0gbA\e(B")
 134 (its-defrule "e82"      "\e(0gbB\e(B")
 135 (its-defrule "e83"      "\e(0gbC\e(B")
 136 (its-defrule "e84"      "\e(0gbD\e(B")
 137
 138 (its-defrule "e0"       "\e(0gd@\e(B")    ;;; iang
 139 (its-defrule "e01"      "\e(0gdA\e(B")
 140 (its-defrule "e02"      "\e(0gdB\e(B")
 141 (its-defrule "e03"      "\e(0gdC\e(B")
 142 (its-defrule "e04"      "\e(0gdD\e(B")
 143
 144 (its-defrule "ez"       "\e(0g`@\e(B")    ;;; iao
 145 (its-defrule "ez1"      "\e(0g`A\e(B")
 146 (its-defrule "ez2"      "\e(0g`B\e(B")
 147 (its-defrule "ez3"      "\e(0g`C\e(B")
 148 (its-defrule "ez4"      "\e(0g`D\e(B")
 149
 150 (its-defrule "ew"       "\e(0g]@\e(B")    ;;; ie
 151 (its-defrule "ew1"      "\e(0g]A\e(B")
 152 (its-defrule "ew2"      "\e(0g]B\e(B")
 153 (its-defrule "ew3"      "\e(0g]C\e(B")
 154 (its-defrule "ew4"      "\e(0g]D\e(B")
 155
 156 (its-defrule "e9"       "\e(0gc@\e(B")    ;;; in
 157 (its-defrule "e91"      "\e(0gcA\e(B")
 158 (its-defrule "e92"      "\e(0gcB\e(B")
 159 (its-defrule "e93"      "\e(0gcC\e(B")
 160 (its-defrule "e94"      "\e(0gcD\e(B")
 161
 162 (its-defrule "e-"       "\e(0ge@\e(B")    ;;; ing
 163 (its-defrule "e-1"      "\e(0geA\e(B")
 164 (its-defrule "e-2"      "\e(0geB\e(B")
 165 (its-defrule "e-3"      "\e(0geC\e(B")
 166 (its-defrule "e-4"      "\e(0geD\e(B")
 167
 168 (its-defrule "u-"       "\e(0ie@\e(B")    ;;; iong
 169 (its-defrule "u-1"      "\e(0ieA\e(B")
 170 (its-defrule "u-2"      "\e(0ieB\e(B")
 171 (its-defrule "u-3"      "\e(0ieC\e(B")
 172 (its-defrule "u-4"      "\e(0ieD\e(B")
 173
 174 (its-defrule "ey"       "\e(0ga@\e(B")    ;;; iou
 175 (its-defrule "ey1"      "\e(0gaA\e(B")
 176 (its-defrule "ey2"      "\e(0gaB\e(B")
 177 (its-defrule "ey3"      "\e(0gaC\e(B")
 178 (its-defrule "ey4"      "\e(0gaD\e(B")
 179
 180 (its-defrule "x-"       "\e(0he@\e(B")    ;;; ong
 181 (its-defrule "x-1"      "\e(0heA\e(B")
 182 (its-defrule "x-2"      "\e(0heB\e(B")
 183 (its-defrule "x-3"      "\e(0heC\e(B")
 184 (its-defrule "x-4"      "\e(0heD\e(B")
 185
 186 (its-defrule "x"        "\e(0h@\e(B")     ;;; u
 187 (its-defrule "x1"       "\e(0hA\e(B")
 188 (its-defrule "x2"       "\e(0hB\e(B")
 189 (its-defrule "x3"       "\e(0hC\e(B")
 190 (its-defrule "x4"       "\e(0hD\e(B")
 191
 192 (its-defrule "xa"       "\e(0hZ@\e(B")    ;;; ua
 193 (its-defrule "xa1"      "\e(0hZA\e(B")
 194 (its-defrule "xa2"      "\e(0hZB\e(B")
 195 (its-defrule "xa3"      "\e(0hZC\e(B")
 196 (its-defrule "xa4"      "\e(0hZD\e(B")
 197
 198 (its-defrule "xi"       "\e(0h^@\e(B")    ;;; uai
 199 (its-defrule "xi1"      "\e(0h^A\e(B")
 200 (its-defrule "xi2"      "\e(0h^B\e(B")
 201 (its-defrule "xi3"      "\e(0h^C\e(B")
 202 (its-defrule "xi4"      "\e(0h^D\e(B")
 203
 204 (its-defrule "x8"       "\e(0hb@\e(B")    ;;; uan
 205 (its-defrule "x81"      "\e(0hbA\e(B")
 206 (its-defrule "x82"      "\e(0hbB\e(B")
 207 (its-defrule "x83"      "\e(0hbC\e(B")
 208 (its-defrule "x84"      "\e(0hbD\e(B")
 209
 210 (its-defrule "x0"       "\e(0hd@\e(B")    ;;; uang
 211 (its-defrule "x01"      "\e(0hdA\e(B")
 212 (its-defrule "x02"      "\e(0hdB\e(B")
 213 (its-defrule "x03"      "\e(0hdC\e(B")
 214 (its-defrule "x04"      "\e(0hdD\e(B")
 215
 216 (its-defrule "xq"       "\e(0h_@\e(B")    ;;; uei
 217 (its-defrule "xq1"      "\e(0h_A\e(B")
 218 (its-defrule "xq2"      "\e(0h_B\e(B")
 219 (its-defrule "xq3"      "\e(0h_C\e(B")
 220 (its-defrule "xq4"      "\e(0h_D\e(B")
 221
 222 (its-defrule "x9"       "\e(0hc@\e(B")    ;;; uen
 223 (its-defrule "x91"      "\e(0hcA\e(B")
 224 (its-defrule "x92"      "\e(0hcB\e(B")
 225 (its-defrule "x93"      "\e(0hcC\e(B")
 226 (its-defrule "x94"      "\e(0hcD\e(B")
 227
 228 (its-defrule "xo"       "\e(0h[@\e(B")    ;;; uo
 229 (its-defrule "xo1"      "\e(0h[A\e(B")
 230 (its-defrule "xo2"      "\e(0h[B\e(B")
 231 (its-defrule "xo3"      "\e(0h[C\e(B")
 232 (its-defrule "xo4"      "\e(0h[D\e(B")
 233
 234 (its-defrule "u"        "\e(0i@\e(B")     ;;; \e(09\e(B
 235 (its-defrule "u1"       "\e(0iA\e(B")
 236 (its-defrule "u2"       "\e(0iB\e(B")
 237 (its-defrule "u3"       "\e(0iC\e(B")
 238 (its-defrule "u4"       "\e(0iD\e(B")
 239
 240 (its-defrule "u8"       "\e(0ib@\e(B")    ;;; \e(09\e(Ban
 241 (its-defrule "u81"      "\e(0ibA\e(B")
 242 (its-defrule "u82"      "\e(0ibB\e(B")
 243 (its-defrule "u83"      "\e(0ibC\e(B")
 244 (its-defrule "u84"      "\e(0ibD\e(B")
 245
 246 (its-defrule "uw"       "\e(0i]@\e(B")    ;;; \e(09\e(Be
 247 (its-defrule "uw1"      "\e(0i]A\e(B")
 248 (its-defrule "uw2"      "\e(0i]B\e(B")
 249 (its-defrule "uw3"      "\e(0i]C\e(B")
 250 (its-defrule "uw4"      "\e(0i]D\e(B")
 251
 252 (its-defrule "u9"       "\e(0ic@\e(B")    ;;; \e(09\e(Bn
 253 (its-defrule "u91"      "\e(0icA\e(B")
 254 (its-defrule "u92"      "\e(0icB\e(B")
 255 (its-defrule "u93"      "\e(0icC\e(B")
 256 (its-defrule "u94"      "\e(0icD\e(B")
 257
 258 ;;(its-defrule "ei"     "\e(0g^@\e(B")    ;;; iai
 259 ;;(its-defrule "ei1"    "\e(0g^A\e(B")
 260 ;;(its-defrule "ei2"    "\e(0g^B\e(B")
 261 ;;(its-defrule "ei3"    "\e(0g^C\e(B")
 262 ;;(its-defrule "ei4"    "\e(0g^D\e(B")
 263
 264 ;;(its-defrule "eo"     "\e(0g[@\e(B")    ;;; io
 265 ;;(its-defrule "eo1"    "\e(0g[A\e(B")
 266 ;;(its-defrule "eo2"    "\e(0g[B\e(B")
 267 ;;(its-defrule "eo3"    "\e(0g[C\e(B")
 268 ;;(its-defrule "eo4"    "\e(0g[D\e(B")
 269
 270 (its-defrule "m1"       "\e(0GA\e(B")     ;;; M
 271 (its-defrule "hm"       "\e(0OGA\e(B")    ;;; Hm
 272 (its-defrule "h@"       "\e(0O\e(B@\e(0A\e(B")      ;;; Hng
 273 (its-defrule "@1"       "@\e(0A\e(B")     ;;; Ng
 274 (its-defrule "n1"       "\e(0KA\e(B")     ;;; N
 275
 276 (its-defrule "<"        "\e$A#,\e(B")
 277 (its-defrule ">"        "\e$A!#\e(B")
 278 (its-defrule "+"        "\e$A#;\e(B")
 279 (its-defrule "*"        "\e$A#:\e(B")
 280 (its-defrule "?"        "\e$A#?\e(B")
 281 (its-defrule "_"        "\e$A!"\e(B")
 282 (its-defrule "!"        "\e$A#!\e(B")
 283 (its-defrule "["        "\e$A!0\e(B")
 284 (its-defrule "]"        "\e$A!1\e(B")
 285 (its-defrule "{"        "\e$A!.\e(B")
 286 (its-defrule "}"        "\e$A!/\e(B")
 287 (its-defrule "="        "\e$A!*\e(B")
 288
 289 )