its/pinyin.el

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