its/erpin.el

   1 ;;; its/erpin.el --- Erpin Input in Egg Input Method Architecture
   2
   3 ;; Copyright (C) 1999,2000 PFU LIMITED
   4
   5 ;; Author: KATAYAMA Yoshio <kate@pfu.co.jp>
   6
   7 ;; Maintainer: TOMURA Satoru <tomura@etl.go.jp>
   8
   9 ;; Keywords: mule, multilingual, input method
  10
  11 ;; This file is part of EGG.
  12
  13 ;; EGG is free software; you can redistribute it and/or modify
  14 ;; it under the terms of the GNU General Public License as published by
  15 ;; the Free Software Foundation; either version 2, or (at your option)
  16 ;; any later version.
  17
  18 ;; EGG is distributed in the hope that it will be useful,
  19 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  20 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  21 ;; GNU General Public License for more details.
  22
  23 ;; You should have received a copy of the GNU General Public License
  24 ;; along with GNU Emacs; see the file COPYING.  If not, write to the
  25 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  26 ;; Boston, MA 02111-1307, USA.
  27
  28 ;;; Commentary:
  29
  30
  31 ;;; Code:
  32
  33
  34 (eval-when-compile
  35   (require 'its)
  36   (require 'cl))
  37
  38 (eval-when (compile)
  39   (defconst its-compaction-enable t))
  40
  41 (defvar its-erpin-cn-enable-quanjioao-alphabet
  42   (if (boundp 'its-enable-fullwidth-alphabet)
  43       its-enable-fullwidth-alphabet
  44     t)
  45   "*Enable Quanjiao alphabet")
  46
  47 (defvar its-erpin-cn-open-braket  "\e$A!8\e(B" "*[") ; "\e$A#[\e(B"
  48 (defvar its-erpin-cn-close-braket "\e$A!9\e(B" "*]") ; "\e$A#]\e(B"
  49
  50 (defvar its-erpin-tw-enable-quanjioao-alphabet
  51   (if (boundp 'its-enable-fullwidth-alphabet)
  52       its-enable-fullwidth-alphabet
  53     t)
  54   "*Enable Quanjiao alphabet")
  55
  56 (defvar its-erpin-tw-open-braket  "\e$(G!V\e(B" "*[") ; "\e$(G!b\e(B "
  57 (defvar its-erpin-tw-close-braket "\e$(G!W\e(B" "*]") ; "\e$(G!c\e(B"
  58
  59 (eval-when-compile
  60   (defun its-define-erpin-qingsheng (shengmu yunmu &optional y)
  61     (let ((input (concat (car shengmu) yunmu))
  62           (output (concat (cdr shengmu) (if y y yunmu) "\e(0@\e(B")))
  63       (prog1
  64           (its-defrule input output)
  65         (its-defrule (concat input " ") output)
  66         (its-defrule (concat input "0") output))))
  67
  68   (defmacro its-do-erpin-table (list)
  69     `(progn
  70        ,@(mapcar (lambda (syl)
  71                    `(its-define-erpin ,(car syl) ,(cdr syl)))
  72                  list)))
  73
  74   (defmacro its-define-erpin (shengmu yunmu)
  75     `(let ((y1 (nth 1 ,yunmu)) (y2 (nth 2 ,yunmu)) (y3 (nth 3 ,yunmu))
  76            (y4 (nth 4 ,yunmu)) (y5 (nth 5 ,yunmu)) (y (car ,yunmu))
  77            (ss (list ,@shengmu)) sa sd state)
  78        (while ss
  79          (setq sa (caar ss) sd (cdar ss)
  80                state (its-define-erpin-qingsheng (car ss) y y5))
  81          (its-make-next-state state ?1 (concat sd y1 "\e(0@\e(B"))
  82          (its-make-next-state state ?2 (concat sd y2 "\e(0@\e(B"))
  83          (its-make-next-state state ?3 (concat sd y3 "\e(0@\e(B"))
  84          (its-make-next-state state ?4 (concat sd y4 "\e(0@\e(B"))
  85          (setq ss (cdr ss)))))
  86
  87   (defmacro its-define-erpin-table ()
  88     '(let ((O '("o" . ""))  (B '("b" . "B")) (C '("c" . "C")) (D '("d" . "D"))
  89            (F '("f" . "F")) (G '("g" . "G")) (H '("h" . "H")) (J '("j" . "J"))
  90            (K '("k" . "K")) (L '("l" . "L")) (M '("m" . "M")) (N '("n" . "N"))
  91            (P '("p" . "P")) (Q '("q" . "Q")) (R '("r" . "R")) (S '("s" . "S"))
  92            (T '("t" . "T")) (W '("w" . "W")) (X '("x" . "X")) (Y '("y" . "Y"))
  93            (Z '("z" . "Z"))
  94            (I '("i" . "Ch")) (U '("u" . "Sh")) (V '("v" . "Zh"))
  95
  96            (a    '("a"  "\e(0!\e(B"    "\e(0"\e(B"    "\e(0#\e(B"    "\e(0$\e(B"    "a"   ))
  97            (ai   '("s"  "\e(0!\e(Bi"   "\e(0"\e(Bi"   "\e(0#\e(Bi"   "\e(0$\e(Bi"   "ai"  ))
  98            (an   '("f"  "\e(0!\e(Bn"   "\e(0"\e(Bn"   "\e(0#\e(Bn"   "\e(0$\e(Bn"   "an"  ))
  99            (ang  '("g"  "\e(0!\e(Bng"  "\e(0"\e(Bng"  "\e(0#\e(Bng"  "\e(0$\e(Bng"  "ang" ))
 100            (ao   '("d"  "\e(0!\e(Bo"   "\e(0"\e(Bo"   "\e(0#\e(Bo"   "\e(0$\e(Bo"   "ao"  ))
 101            (e    '("e"  "\e(0%\e(B"    "\e(0&\e(B"    "\e(0'\e(B"    "\e(0(\e(B"    "e"   ))
 102            (ei   '("w"  "\e(0%\e(Bi"   "\e(0&\e(Bi"   "\e(0'\e(Bi"   "\e(0(\e(Bi"   "ei"  ))
 103            (en   '("r"  "\e(0%\e(Bn"   "\e(0&\e(Bn"   "\e(0'\e(Bn"   "\e(0(\e(Bn"   "en"  ))
 104            (eng  '("t"  "\e(0%\e(Bng"  "\e(0&\e(Bng"  "\e(0'\e(Bng"  "\e(0(\e(Bng"  "eng" ))
 105            (er   '("y"  "\e(0%\e(Br"   "\e(0&\e(Br"   "\e(0'\e(Br"   "\e(0(\e(Br"   "er"  ))
 106            (i    '("i"  "\e(0)\e(B"    "\e(0*\e(B"    "\e(0+\e(B"    "\e(0,\e(B"    "i"   ))
 107            (ia   '("p"  "i\e(0!\e(B"   "i\e(0"\e(B"   "i\e(0#\e(B"   "i\e(0$\e(B"   "ia"  ))
 108            (ian  '("h"  "i\e(0!\e(Bn"  "i\e(0"\e(Bn"  "i\e(0#\e(Bn"  "i\e(0$\e(Bn"  "ian" ))
 109            (iang '("j"  "i\e(0!\e(Bng" "i\e(0"\e(Bng" "i\e(0#\e(Bng" "i\e(0$\e(Bng" "iang"))
 110            (iao  '("k"  "i\e(0!\e(Bo"  "i\e(0"\e(Bo"  "i\e(0#\e(Bo"  "i\e(0$\e(Bo"  "iao" ))
 111            (ie   '("l"  "i\e(0%\e(B"   "i\e(0&\e(B"   "i\e(0'\e(B"   "i\e(0(\e(B"   "ie"  ))
 112            (in   '("m"  "\e(0)\e(Bn"   "\e(0*\e(Bn"   "\e(0+\e(Bn"   "\e(0,\e(Bn"   "in"  ))
 113            (ing  '("n"  "\e(0)\e(Bng"  "\e(0*\e(Bng"  "\e(0+\e(Bng"  "\e(0,\e(Bng"  "ing" ))
 114            (iong '("b"  "i\e(0-\e(Bng" "i\e(0.\e(Bng" "i\e(0/\e(Bng" "i\e(00\e(Bng" "iong"))
 115            (iu   '("y"  "i\e(01\e(B"   "i\e(02\e(B"   "i\e(03\e(B"   "i\e(04\e(B"   "iu"  ))
 116            (o    '("o"  "\e(0-\e(B"    "\e(0.\e(B"    "\e(0/\e(B"    "\e(00\e(B"    "o"   ))
 117            (ong  '("b"  "\e(0-\e(Bng"  "\e(0.\e(Bng"  "\e(0/\e(Bng"  "\e(00\e(Bng"  "ong" ))
 118            (ou   '("q"  "\e(0-\e(Bu"   "\e(0.\e(Bu"   "\e(0/\e(Bu"   "\e(00\e(Bu"   "ou"  ))
 119            (u    '("u"  "\e(01\e(B"    "\e(02\e(B"    "\e(03\e(B"    "\e(04\e(B"    "u"   ))
 120            (v    '("v"  "\e(05\e(B"    "\e(06\e(B"    "\e(07\e(B"    "\e(08\e(B"    "\e(09\e(B"   ))
 121            (ua   '("p"  "u\e(0!\e(B"   "u\e(0"\e(B"   "u\e(0#\e(B"   "u\e(0$\e(B"   "ua"  ))
 122            (uai  '("k"  "u\e(0!\e(Bi"  "u\e(0"\e(Bi"  "u\e(0#\e(Bi"  "u\e(0$\e(Bi"  "uai" ))
 123            (uan  '("x"  "u\e(0!\e(Bn"  "u\e(0"\e(Bn"  "u\e(0#\e(Bn"  "u\e(0$\e(Bn"  "uan" ))
 124            (uang '("j"  "u\e(0!\e(Bng" "u\e(0"\e(Bng" "u\e(0#\e(Bng" "u\e(0$\e(Bng" "uang"))
 125            (ue   '("c"  "u\e(0%\e(B"   "u\e(0&\e(B"   "u\e(0'\e(B"   "u\e(0(\e(B"   "ue"  ))
 126            (ve   '("c"  "\e(09%\e(B"   "\e(09&\e(B"   "\e(09'\e(B"   "\e(09(\e(B"   "\e(09\e(Be"  ))
 127            (ui   '("c"  "u\e(0)\e(B"   "u\e(0*\e(B"   "u\e(0+\e(B"   "u\e(0,\e(B"   "ui"  ))
 128            (un   '("z"  "\e(01\e(Bn"   "\e(02\e(Bn"   "\e(03\e(Bn"   "\e(04\e(Bn"   "un"  ))
 129            (uo   '("o"  "u\e(0-\e(B"   "u\e(0.\e(B"   "u\e(0/\e(B"   "u\e(00\e(B"   "uo"  )))
 130
 131        (its-do-erpin-table
 132         (((O B C D F G H   K L M N P     S T W   Y Z I U V) . a)
 133          ((O B C D   G H   K L M N P     S T W     Z I U V) . ai)
 134          ((O B C D F G H   K L M N P   R S T W   Y Z I U V) . an)
 135          ((O B C D F G H   K L M N P   R S T W   Y Z I U V) . ang)
 136          ((O B C D   G H   K L M N P   R S T     Y Z I U V) . ao)
 137          ((O   C D   G H   K L M N     R S T     Y Z I U V) . e)
 138          ((O B C D F G H   K L M N P       T W     Z   U V) . ei)
 139          ((O B C D F G H   K   M N P   R S   W     Z I U V) . en)
 140          ((O B C D F G H   K L M N P   R S T W     Z I U V) . eng)
 141          ((O                                              ) . er)
 142          ((  B C D       J   L M N P Q R S T   X Y Z I U V) . i)
 143          ((      D       J   L       Q         X          ) . ia)
 144          ((  B   D       J   L M N P Q     T   X          ) . ian)
 145          ((              J   L   N   Q         X          ) . iang)
 146          ((  B   D       J   L M N P Q     T   X          ) . iao)
 147          ((  B   D       J   L M N P Q     T   X          ) . ie)
 148          ((  B           J   L M N P Q         X Y        ) . in)
 149          ((  B   D       J   L M N P Q     T   X Y        ) . ing)
 150          ((              J           Q         X          ) . iong)
 151          ((      D       J   L M N   Q         X          ) . iu)
 152          ((O B     F           M   P         W   Y        ) . o)
 153          ((    C D   G H   K L   N     R S T     Y Z I   V) . ong)
 154          ((O   C D F G H   K L M N P   R S T     Y Z I U V) . ou)
 155          ((  B C D F G H J K L M N P Q R S T W X Y Z I U V) . u)
 156          ((                  L   N                        ) . v)
 157          ((          G H   K           R             I U V) . ua)
 158          ((          G H   K                         I U V) . uai)
 159          ((    C D   G H J K L   N   Q R S T   X Y Z I U V) . uan)
 160          ((          G H   K                         I U V) . uang)
 161          ((              J           Q         X Y        ) . ue)
 162          ((                  L   N                        ) . ve)
 163          ((    C D   G H   K           R S T       Z I U V) . ui)
 164          ((    C D   G H J K L       Q R S T   X Y Z I U V) . un)
 165          ((    C D   G H   K L   N     R S T       Z I U V) . uo)
 166
 167          (('("" . "")) . (cons "er" (cdr er)))
 168
 169          ((J Q X) . (cons "a" (cdr ia  )))
 170          ((J Q X) . (cons "s" (cdr ia  )))
 171          ((J Q X) . (cons "f" (cdr ian )))
 172          ((J Q X) . (cons "g" (cdr iang)))
 173          ((J Q X) . (cons "d" (cdr iao )))
 174          ((J Q X) . (cons "e" (cdr ie  )))
 175          ((J Q X) . (cons "w" (cdr ie  )))
 176          ((J Q X) . (cons "r" (cdr in  )))
 177          ((J Q X) . (cons "t" (cdr ing )))
 178          ((J Q X) . (cons "q" (cdr iu  )))))
 179
 180        (dolist (SHENG (list B C D F G H J K L M N P Q R S T W X Y Z I U V))
 181          (its-defoutput (car SHENG) (cdr SHENG)))
 182
 183        (its-define-erpin-qingsheng      H        "m")
 184        (its-define-erpin-qingsheng      H        "n"    "ng")
 185        (its-define-erpin-qingsheng      O        "m")
 186        (its-define-erpin-qingsheng      O        "n")
 187
 188        (its-defrule     "on5"   "ng\e(0@\e(B")
 189        (its-defrule     "on2"   "\e(0=@\e(B")
 190        (its-defrule     "on3"   "\e(0>@\e(B")
 191        (its-defrule     "on4"   "\e(0?@\e(B"))))
 192
 193 (define-its-state-machine its-erpin-cn-map
 194   "erpin-cn" "\e$A6~\e(BG" Chinese-GB
 195   "Map for Erpin input. (Chinese-GB)"
 196
 197   (defconst its-quanjiao-escape "Z")
 198   (defconst its-banjiao-escape  "X")
 199
 200   (its-defrule-select-mode-temporally "B" downcase)
 201   (its-defrule-select-mode-temporally "Q" quanjiao-downcase-cn)
 202
 203   (its-define-erpin-table)
 204   (its-defrule  "b "    "\e$A2;\e(B")
 205   (its-defrule  "c "    "\e$A2E\e(B")
 206   (its-defrule  "ch "   "\e$A3v\e(B")
 207   (its-defrule  "d "    "\e$A5D\e(B")
 208   (its-defrule  "f "    "\e$A74\e(B")
 209   (its-defrule  "g "    "\e$A8v\e(B")
 210   (its-defrule  "h "    "\e$A:M\e(B")
 211   (its-defrule  "i "    "\e$AR;\e(B")
 212   (its-defrule  "j "    "\e$A>M\e(B")
 213   (its-defrule  "k "    "\e$A?I\e(B")
 214   (its-defrule  "l "    "\e$AAK\e(B")
 215   (its-defrule  "m "    "\e$AC?\e(B")
 216   (its-defrule  "n "    "\e$ADj\e(B")
 217   (its-defrule  "p "    "\e$AEz\e(B")
 218   (its-defrule  "q "    "\e$AH%\e(B")
 219   (its-defrule  "r "    "\e$AHU\e(B")
 220   (its-defrule  "s "    "\e$AJG\e(B")
 221   (its-defrule  "u "    "\e$AIO\e(B")
 222   (its-defrule  "t "    "\e$AK{\e(B")
 223   (its-defrule  "w "    "\e$ANR\e(B")
 224   (its-defrule  "x "    "\e$AOr\e(B")
 225   (its-defrule  "y "    "\e$ASV\e(B")
 226   (its-defrule  "z "    "\e$ATZ\e(B")
 227   (its-defrule  "v "    "\e$AWE\e(B")
 228
 229   (dolist (ascii '(("0" . "\e$A#0\e(B")  ("1" . "\e$A#1\e(B")  ("2" . "\e$A#2\e(B")  ("3" . "\e$A#3\e(B")
 230                    ("4" . "\e$A#4\e(B")  ("5" . "\e$A#5\e(B")  ("6" . "\e$A#6\e(B")  ("7" . "\e$A#7\e(B")
 231                    ("8" . "\e$A#8\e(B")  ("9" . "\e$A#9\e(B")
 232                    (" " . "\e$A!!\e(B")  ("!" . "\e$A#!\e(B")  ("@" . "\e$A#@\e(B")  ("#" . "\e$A##\e(B")
 233                    ("$" . "\e$A!g\e(B")  ("%" . "\e$A#%\e(B")  ("^" . "\e$A#^\e(B")  ("&" . "\e$A#&\e(B")
 234                    ("*" . "\e$A#*\e(B")  ("(" . "\e$A#(\e(B")  (")" . "\e$A#)\e(B")
 235                    ("-" . "\e$A#-\e(B")  ("=" . "\e$A#=\e(B")  ("`" . "\e$A#`\e(B")  ("\\" . "\e$A#\\e(B")
 236                    ("|" . "\e$A#|\e(B")  ("_" . "\e$A#_\e(B")  ("+" . "\e$A#+\e(B")  ("~" . "\e$A!+\e(B")
 237                    ("[" . "\e$A#[\e(B")  ("]" . "\e$A#]\e(B")  ("{" . "\e$A#{\e(B")  ("}" . "\e$A#}\e(B")
 238                    (":" . "\e$A#:\e(B")  (";" . "\e$A#;\e(B")  ("\"" . "\e$A#"\e(B") ("'" . "\e$A#'\e(B")
 239                    ("<" . "\e$A#<\e(B")  (">" . "\e$A#>\e(B")  ("?" . "\e$A#?\e(B")  ("/" . "\e$A#/\e(B")
 240                    ("," . "\e$A#,\e(B")  ("." . "\e$A#.\e(B")
 241                    ("a" . "\e$A#a\e(B")  ("b" . "\e$A#b\e(B")  ("c" . "\e$A#c\e(B")  ("d" . "\e$A#d\e(B")
 242                    ("e" . "\e$A#e\e(B")  ("f" . "\e$A#f\e(B")  ("g" . "\e$A#g\e(B")  ("h" . "\e$A#h\e(B")
 243                    ("i" . "\e$A#i\e(B")  ("j" . "\e$A#j\e(B")  ("k" . "\e$A#k\e(B")  ("l" . "\e$A#l\e(B")
 244                    ("m" . "\e$A#m\e(B")  ("n" . "\e$A#n\e(B")  ("o" . "\e$A#o\e(B")  ("p" . "\e$A#p\e(B")
 245                    ("q" . "\e$A#q\e(B")  ("r" . "\e$A#r\e(B")  ("s" . "\e$A#s\e(B")  ("t" . "\e$A#t\e(B")
 246                    ("u" . "\e$A#u\e(B")  ("v" . "\e$A#v\e(B")  ("w" . "\e$A#w\e(B")  ("x" . "\e$A#x\e(B")
 247                    ("y" . "\e$A#y\e(B")  ("z" . "\e$A#z\e(B")
 248                    ("A" . "\e$A#A\e(B")  ("B" . "\e$A#B\e(B")  ("C" . "\e$A#C\e(B")  ("D" . "\e$A#D\e(B")
 249                    ("E" . "\e$A#E\e(B")  ("F" . "\e$A#F\e(B")  ("G" . "\e$A#G\e(B")  ("H" . "\e$A#H\e(B")
 250                    ("I" . "\e$A#I\e(B")  ("J" . "\e$A#J\e(B")  ("K" . "\e$A#K\e(B")  ("L" . "\e$A#L\e(B")
 251                    ("M" . "\e$A#M\e(B")  ("N" . "\e$A#N\e(B")  ("O" . "\e$A#O\e(B")  ("P" . "\e$A#P\e(B")
 252                    ("Q" . "\e$A#Q\e(B")  ("R" . "\e$A#R\e(B")  ("S" . "\e$A#S\e(B")  ("T" . "\e$A#T\e(B")
 253                    ("U" . "\e$A#U\e(B")  ("V" . "\e$A#V\e(B")  ("W" . "\e$A#W\e(B")  ("X" . "\e$A#X\e(B")
 254                    ("Y" . "\e$A#Y\e(B")  ("Z" . "\e$A#Z\e(B")))
 255     (let ((in (car ascii)) (out (cdr ascii)))
 256       (its-defrule (concat its-banjiao-escape in) in)
 257       (its-defrule (concat its-quanjiao-escape in) out)))
 258
 259   (its-defrule  ","     "\e$A#,\e(B")
 260   (its-defrule  "."     "\e$A!#\e(B")
 261   (its-defrule  "/"     "\e$A!"\e(B")
 262   (its-defrule  ":"     "\e$A#:\e(B")
 263   (its-defrule  ";"     "\e$A#;\e(B")
 264   (its-defrule  "?"     "\e$A#?\e(B")
 265   (its-defrule  "!"     "\e$A#!\e(B"))
 266
 267 (define-its-state-machine its-erpin-tw-map
 268   "erpin-tw" "\e$(GD(\e(BC" Chinese-CNS
 269   "Map for Erpin input."
 270
 271   (defconst its-quanjiao-escape "Z")
 272   (defconst its-banjiao-escape  "X")
 273
 274   (its-defrule-select-mode-temporally "B" downcase)
 275   (its-defrule-select-mode-temporally "Q" quanjiao-downcase-cn)
 276
 277   (its-define-erpin-table)
 278   (its-defrule  "b "    "\e$(GDb\e(B")
 279   (its-defrule  "c "    "\e$(GD_\e(B")
 280   (its-defrule  "ch "   "\e$(GEx\e(B")
 281   (its-defrule  "d "    "\e$(GN{\e(B")
 282   (its-defrule  "f "    "\e$(GE0\e(B")
 283   (its-defrule  "g "    "\e$(GT6\e(B")
 284   (its-defrule  "h "    "\e$(GLO\e(B")
 285   (its-defrule  "i "    "\e$(GD!\e(B")
 286   (its-defrule  "j "    "\e$(G^s\e(B")
 287   (its-defrule  "k "    "\e$(GF+\e(B")
 288   (its-defrule  "l "    "\e$(GD'\e(B")
 289   (its-defrule  "m "    "\e$(GJd\e(B")
 290   (its-defrule  "n "    "\e$(GH!\e(B")
 291   (its-defrule  "p "    "\e$(GJG\e(B")
 292   (its-defrule  "q "    "\e$(GF*\e(B")
 293   (its-defrule  "r "    "\e$(GEJ\e(B")
 294   (its-defrule  "s "    "\e$(GQR\e(B")
 295   (its-defrule  "u "    "\e$(GD8\e(B")
 296   (its-defrule  "t "    "\e$(GEl\e(B")
 297   (its-defrule  "w "    "\e$(GJ<\e(B")
 298   (its-defrule  "x "    "\e$(GGW\e(B")
 299   (its-defrule  "y "    "\e$(GD4\e(B")
 300   (its-defrule  "z "    "\e$(GGc\e(B")
 301   (its-defrule  "v "    "\e$(Gaa\e(B")
 302
 303   (dolist (ascii '(("0" . "\e$(G$!\e(B")  ("1" . "\e$(G$"\e(B")  ("2" . "\e$(G$#\e(B")  ("3" . "\e$(G$$\e(B")
 304                    ("4" . "\e$(G$%\e(B")  ("5" . "\e$(G$&\e(B")  ("6" . "\e$(G$'\e(B")  ("7" . "\e$(G$(\e(B")
 305                    ("8" . "\e$(G$)\e(B")  ("9" . "\e$(G$*\e(B")
 306                    (" " . "\e$(G!!\e(B")  ("!" . "\e$(G!*\e(B")  ("@" . "\e$(G"i\e(B")  ("#" . "\e$(G!l\e(B")
 307                    ("$" . "\e$(G"c\e(B")  ("%" . "\e$(G"h\e(B")  ("^" . "\e$(G!T\e(B")  ("&" . "\e$(G!m\e(B")
 308                    ("*" . "\e$(G!n\e(B")  ("(" . "\e$(G!>\e(B")  (")" . "\e$(G!?\e(B")
 309                    ("-" . "\e$(G"1\e(B")  ("=" . "\e$(G"8\e(B")  ("`" . "\e$(G!j\e(B")  ("\\" . "\e$(G"`\e(B")
 310                    ("|" . "\e$(G"^\e(B")  ("_" . "\e$(G"%\e(B")  ("+" . "\e$(G"0\e(B")  ("~" . "\e$(G"D\e(B")
 311                    ("[" . "\e$(G!b\e(B")  ("]" . "\e$(G!c\e(B")  ("{" . "\e$(G!B\e(B")  ("}" . "\e$(G!C\e(B")
 312                    (":" . "\e$(G!(\e(B")  (";" . "\e$(G!'\e(B")  ("\"" . "\e$(G!i\e(B") ("'" . "\e$(G!k\e(B")
 313                    ("<" . "\e$(G"6\e(B")  (">" . "\e$(G"7\e(B")  ("?" . "\e$(G!)\e(B")  ("/" . "\e$(G"_\e(B")
 314                    ("," . "\e$(G!"\e(B")  ("." . "\e$(G!%\e(B")
 315                    ("a" . "\e$(G$[\e(B")  ("b" . "\e$(G$\\e(B")  ("c" . "\e$(G$]\e(B")  ("d" . "\e$(G$^\e(B")
 316                    ("e" . "\e$(G$_\e(B")  ("f" . "\e$(G$`\e(B")  ("g" . "\e$(G$a\e(B")  ("h" . "\e$(G$b\e(B")
 317                    ("i" . "\e$(G$c\e(B")  ("j" . "\e$(G$d\e(B")  ("k" . "\e$(G$e\e(B")  ("l" . "\e$(G$f\e(B")
 318                    ("m" . "\e$(G$g\e(B")  ("n" . "\e$(G$h\e(B")  ("o" . "\e$(G$i\e(B")  ("p" . "\e$(G$j\e(B")
 319                    ("q" . "\e$(G$k\e(B")  ("r" . "\e$(G$l\e(B")  ("s" . "\e$(G$m\e(B")  ("t" . "\e$(G$n\e(B")
 320                    ("u" . "\e$(G$o\e(B")  ("v" . "\e$(G$p\e(B")  ("w" . "\e$(G$q\e(B")  ("x" . "\e$(G$r\e(B")
 321                    ("y" . "\e$(G$s\e(B")  ("z" . "\e$(G$t\e(B")
 322                    ("A" . "\e$(G$A\e(B")  ("B" . "\e$(G$B\e(B")  ("C" . "\e$(G$C\e(B")  ("D" . "\e$(G$D\e(B")
 323                    ("E" . "\e$(G$E\e(B")  ("F" . "\e$(G$F\e(B")  ("G" . "\e$(G$G\e(B")  ("H" . "\e$(G$H\e(B")
 324                    ("I" . "\e$(G$I\e(B")  ("J" . "\e$(G$J\e(B")  ("K" . "\e$(G$K\e(B")  ("L" . "\e$(G$L\e(B")
 325                    ("M" . "\e$(G$M\e(B")  ("N" . "\e$(G$N\e(B")  ("O" . "\e$(G$O\e(B")  ("P" . "\e$(G$P\e(B")
 326                    ("Q" . "\e$(G$Q\e(B")  ("R" . "\e$(G$R\e(B")  ("S" . "\e$(G$S\e(B")  ("T" . "\e$(G$T\e(B")
 327                    ("U" . "\e$(G$U\e(B")  ("V" . "\e$(G$V\e(B")  ("W" . "\e$(G$W\e(B")  ("X" . "\e$(G$X\e(B")
 328                    ("Y" . "\e$(G$Y\e(B")  ("Z" . "\e$(G$Z\e(B")))
 329     (let ((in (car ascii)) (out (cdr ascii)))
 330       (its-defrule (concat its-banjiao-escape in) in)
 331       (its-defrule (concat its-quanjiao-escape in) out)))
 332
 333   (its-defrule  ","     "\e$(G!"\e(B")
 334   (its-defrule  "."     "\e$(G!$\e(B")
 335   (its-defrule  "/"     "\e$(G!#\e(B")
 336   (its-defrule  ":"     "\e$(G!(\e(B")
 337   (its-defrule  ";"     "\e$(G!'\e(B")
 338   (its-defrule  "?"     "\e$(G!)\e(B")
 339   (its-defrule  "!"     "\e$(G!*\e(B"))
 340
 341 (define-its-state-machine-append its-erpin-cn-map
 342   (its-defrule "[" its-erpin-cn-open-braket)
 343   (its-defrule "]" its-erpin-cn-close-braket)
 344
 345   (if its-erpin-cn-enable-quanjioao-alphabet
 346       (progn
 347         (its-defrule "1"  "\e$A#1\e(B")  (its-defrule "2"  "\e$A#2\e(B")
 348         (its-defrule "3"  "\e$A#3\e(B")  (its-defrule "4"  "\e$A#4\e(B")
 349         (its-defrule "5"  "\e$A#5\e(B")  (its-defrule "6"  "\e$A#6\e(B")
 350         (its-defrule "7"  "\e$A#7\e(B")  (its-defrule "8"  "\e$A#8\e(B")
 351         (its-defrule "9"  "\e$A#9\e(B")  (its-defrule "0"  "\e$A#0\e(B")
 352         (its-defrule "@"  "\e$A#@\e(B")
 353         (its-defrule "#"  "\e$A##\e(B")  (its-defrule "$"  "\e$A!g\e(B")
 354         (its-defrule "%"  "\e$A#%\e(B")  (its-defrule "^"  "\e$A#^\e(B")
 355         (its-defrule "&"  "\e$A#&\e(B")  (its-defrule "*"  "\e$A#*\e(B")
 356         (its-defrule "("  "\e$A#(\e(B")  (its-defrule ")"  "\e$A#)\e(B")
 357         (its-defrule "-"  "\e$A#-\e(B")  (its-defrule "~"  "\e$A!+\e(B")
 358         (its-defrule "="  "\e$A#=\e(B")  (its-defrule "`"  "\e$A#`\e(B")
 359         (its-defrule "\\" "\e$A#\\e(B")  (its-defrule "|"  "\e$A#|\e(B")
 360         (its-defrule "_"  "\e$A#_\e(B")  (its-defrule "+"  "\e$A#+\e(B")
 361         (its-defrule "{"  "\e$A#{\e(B")  (its-defrule "}"  "\e$A#}\e(B")
 362         (its-defrule "\"" "\e$A#"\e(B")  (its-defrule "'"  "\e$A#'\e(B")
 363         (its-defrule "<"  "\e$A#<\e(B")  (its-defrule ">"  "\e$A#>\e(B"))
 364     (progn
 365       (its-defrule "1"  "1")  (its-defrule "2"  "2")
 366       (its-defrule "3"  "3")  (its-defrule "4"  "4")
 367       (its-defrule "5"  "5")  (its-defrule "6"  "6")
 368       (its-defrule "7"  "7")  (its-defrule "8"  "8")
 369       (its-defrule "9"  "9")  (its-defrule "0"  "0")
 370       (its-defrule "@"  "@")
 371       (its-defrule "#"  "#")  (its-defrule "$"  "$")
 372       (its-defrule "%"  "%")  (its-defrule "^"  "^")
 373       (its-defrule "&"  "&")  (its-defrule "*"  "*")
 374       (its-defrule "("  "(")  (its-defrule ")"  ")")
 375       (its-defrule "-"  "-")  (its-defrule "~"  "~")
 376       (its-defrule "="  "=")  (its-defrule "`"  "`")
 377       (its-defrule "\\" "\\") (its-defrule "|"  "|")
 378       (its-defrule "_"  "_")  (its-defrule "+"  "+")
 379       (its-defrule "{"  "{")  (its-defrule "}"  "}")
 380       (its-defrule "\"" "\"") (its-defrule "'"  "'")
 381       (its-defrule "<"  "<")  (its-defrule ">"  ">"))))
 382
 383 (define-its-state-machine-append its-erpin-tw-map
 384   (its-defrule "[" its-erpin-tw-open-braket)
 385   (its-defrule "]" its-erpin-tw-close-braket)
 386
 387   (if its-erpin-tw-enable-quanjioao-alphabet
 388       (progn
 389         (its-defrule "1"  "\e$(G$"\e(B")  (its-defrule "2"  "\e$(G$#\e(B")
 390         (its-defrule "3"  "\e$(G$$\e(B")  (its-defrule "4"  "\e$(G$%\e(B")
 391         (its-defrule "5"  "\e$(G$&\e(B")  (its-defrule "6"  "\e$(G$'\e(B")
 392         (its-defrule "7"  "\e$(G$(\e(B")  (its-defrule "8"  "\e$(G$)\e(B")
 393         (its-defrule "9"  "\e$(G$*\e(B")  (its-defrule "0"  "\e$(G$!\e(B")
 394         (its-defrule "@"  "\e$(G"i\e(B")
 395         (its-defrule "#"  "\e$(G!l\e(B")  (its-defrule "$"  "\e$(G"c\e(B")
 396         (its-defrule "%"  "\e$(G"h\e(B")  (its-defrule "^"  "\e$(G!T\e(B")
 397         (its-defrule "&"  "\e$(G!m\e(B")  (its-defrule "*"  "\e$(G!n\e(B")
 398         (its-defrule "("  "\e$(G!>\e(B")  (its-defrule ")"  "\e$(G!?\e(B")
 399         (its-defrule "-"  "\e$(G"1\e(B")  (its-defrule "~"  "\e$(G"D\e(B")
 400         (its-defrule "="  "\e$(G"8\e(B")  (its-defrule "`"  "\e$(G!j\e(B")
 401         (its-defrule "\\" "\e$(G"b\e(B")  (its-defrule "|"  "\e$(G"^\e(B")
 402         (its-defrule "_"  "\e$(G"%\e(B")  (its-defrule "+"  "\e$(G"0\e(B")
 403         (its-defrule "{"  "\e$(G!B\e(B")  (its-defrule "}"  "\e$(G!C\e(B")
 404         (its-defrule "\"" "\e$(G!i\e(B")  (its-defrule "'"  "\e$(G!k\e(B")
 405         (its-defrule "<"  "\e$(G"6\e(B")  (its-defrule ">"  "\e$(G"7\e(B"))
 406     (progn
 407       (its-defrule "1"  "1")  (its-defrule "2"  "2")
 408       (its-defrule "3"  "3")  (its-defrule "4"  "4")
 409       (its-defrule "5"  "5")  (its-defrule "6"  "6")
 410       (its-defrule "7"  "7")  (its-defrule "8"  "8")
 411       (its-defrule "9"  "9")  (its-defrule "0"  "0")
 412       (its-defrule "@"  "@")
 413       (its-defrule "#"  "#")  (its-defrule "$"  "$")
 414       (its-defrule "%"  "%")  (its-defrule "^"  "^")
 415       (its-defrule "&"  "&")  (its-defrule "*"  "*")
 416       (its-defrule "("  "(")  (its-defrule ")"  ")")
 417       (its-defrule "-"  "-")  (its-defrule "~"  "~")
 418       (its-defrule "="  "=")  (its-defrule "`"  "`")
 419       (its-defrule "\\" "\\") (its-defrule "|"  "|")
 420       (its-defrule "_"  "_")  (its-defrule "+"  "+")
 421       (its-defrule "{"  "{")  (its-defrule "}"  "}")
 422       (its-defrule "\"" "\"") (its-defrule "'"  "'")
 423       (its-defrule "<"  "<")  (its-defrule ">"  ">"))))
 424
 425 (provide 'its/erpin)