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 t "*Enable Quanjiao alphabet")
  36 (defvar its-pinyin-cn-open-braket  "\e$A!8\e(B" "*[") ; "\e$A#[\e(B"
  37 (defvar its-pinyin-cn-close-braket "\e$A!9\e(B" "*]") ; "\e$A#]\e(B"
  38
  39 (defvar its-pinyin-tw-enable-quanjioao-alphabet t "*Enable Quanjiao alphabet")
  40 (defvar its-pinyin-tw-open-braket  "\e$(G!V\e(B" "*[") ; "\e$(G!b\e(B "
  41 (defvar its-pinyin-tw-close-braket "\e$(G!W\e(B" "*]") ; "\e$(G!c\e(B"
  42
  43 (eval-when-compile
  44   (defconst its-pinyin-term
  45     (char-to-string (make-char 'chinese-sisheng ?@)))
  46
  47   (defsubst its-defoutput* (input display)
  48     (its-set-output (its-goto-state input nil t) display))
  49
  50   (defun its-prev-terminal-state (input)
  51     (let ((len (length input))
  52           (state (its-get-start-state its-current-map))
  53           (i 0) (ret nil) kst ks)
  54       (while (and (< i len)
  55                   (setq state (its-get-next-state state (aref input i))))
  56         (if (or (null (its-kst-p (setq kst (its-get-kst/t state))))
  57                 (mapcan (lambda (eob) (if (eq (its-eob-back eob) -1) (list t)))
  58                         (cdr kst))
  59                 (and (setq ks (assq -1 (car kst)))
  60                      (null (its-get-kst/t (cdr ks)))))
  61             (setq ret state))
  62         (setq i (1+ i)))
  63       ret))
  64
  65   (defun its-define-qingsheng (shengmu yunmu &optional s y)
  66     (let ((input (concat shengmu yunmu))
  67           (output (concat (if s s (capitalize shengmu))
  68                           (if y y yunmu)
  69                           its-pinyin-term))
  70           state term kst i len c+b)
  71       (setq state (its-goto-state input nil t))
  72       (its-make-next-state state -1 input output)
  73       (its-make-next-state state ?  (concat input " ") output)
  74       (its-make-next-state state ?0 (concat input "0") output)
  75       (its-define-otherwise
  76        state (its-make-otherwise output its-otherwise-back-one))
  77       (setq term (its-prev-terminal-state (substring input 0 -1)))
  78       (if term
  79           (progn
  80             (setq len (length (its-get-keyseq term))
  81                   i len
  82                   output (car (rassoc '(nil . -1) (cdr (its-get-kst/t term)))))
  83             (while (null
  84                     (eq (setq term (its-get-next-state term (aref input i)))
  85                         state))
  86               (setq i (1+ i) kst (its-get-kst/t term))
  87               (if (null (assq -1 (car kst)))
  88                   (its-make-next-state term -1
  89                                        (its-get-keyseq term) output (- len i)))
  90               (setq c+b (its-make-class+back nil (1- (- len i))))
  91               (if (null (rassoc c+b (cdr kst)))
  92                   (its-define-otherwise term
  93                                         (its-make-otherwise output c+b))))))
  94       state))
  95
  96   (defmacro its-do-sisheng-table (list)
  97     `(progn
  98        ,@(mapcar (lambda (syl)
  99                    `(its-define-sisheng ,@syl))
 100                  list)))
 101
 102   (defmacro its-define-sisheng (shengmu yunmu)
 103     `(let ((qing (nth 5 ,yunmu)) (y (car ,yunmu))
 104            (ss (list ,@shengmu)) s cs state i)
 105        (while ss
 106          (setq s (car ss)
 107                cs (capitalize s)
 108                state (its-define-qingsheng s y cs qing))
 109          (setq i 1)
 110          (while (<= i 4)
 111            (its-make-next-state state (+ ?0 i)
 112                                 (concat s y i)
 113                                 (concat cs (nth i ,yunmu) its-pinyin-term))
 114            (setq i (1+ i)))
 115          (setq ss (cdr ss)))))
 116
 117   (defmacro its-define-pinyin-table ()
 118     '(let ((- "")  (B "b") (C "c") (D "d") (F "f") (G "g") (H "h")
 119            (J "j") (K "k") (L "l") (M "m") (N "n") (P "p") (Q "q")
 120            (R "r") (S "s") (T "t") (W "w") (X "x") (Y "y") (Z "z")
 121            (CH "ch") (SH "sh") (ZH "zh")
 122
 123            (A    '("a"    "\e(0!\e(B"    "\e(0"\e(B"    "\e(0#\e(B"    "\e(0$\e(B"    "a"   ))
 124            (AI   '("ai"   "\e(0!\e(Bi"   "\e(0"\e(Bi"   "\e(0#\e(Bi"   "\e(0$\e(Bi"   "ai"  ))
 125            (AN   '("an"   "\e(0!\e(Bn"   "\e(0"\e(Bn"   "\e(0#\e(Bn"   "\e(0$\e(Bn"   "an"  ))
 126            (ANG  '("ang"  "\e(0!\e(Bng"  "\e(0"\e(Bng"  "\e(0#\e(Bng"  "\e(0$\e(Bng"  "ang" ))
 127            (AO   '("ao"   "\e(0!\e(Bo"   "\e(0"\e(Bo"   "\e(0#\e(Bo"   "\e(0$\e(Bo"   "ao"  ))
 128            (E    '("e"    "\e(0%\e(B"    "\e(0&\e(B"    "\e(0'\e(B"    "\e(0(\e(B"    "e"   ))
 129            (EI   '("ei"   "\e(0%\e(Bi"   "\e(0&\e(Bi"   "\e(0'\e(Bi"   "\e(0(\e(Bi"   "ei"  ))
 130            (EN   '("en"   "\e(0%\e(Bn"   "\e(0&\e(Bn"   "\e(0'\e(Bn"   "\e(0(\e(Bn"   "en"  ))
 131            (ENG  '("eng"  "\e(0%\e(Bng"  "\e(0&\e(Bng"  "\e(0'\e(Bng"  "\e(0(\e(Bng"  "eng" ))
 132            (ER   '("er"   "\e(0%\e(Br"   "\e(0&\e(Br"   "\e(0'\e(Br"   "\e(0(\e(Br"   "er"  ))
 133            (I    '("i"    "\e(0)\e(B"    "\e(0*\e(B"    "\e(0+\e(B"    "\e(0,\e(B"    "i"   ))
 134            (IA   '("ia"   "i\e(0!\e(B"   "i\e(0"\e(B"   "i\e(0#\e(B"   "i\e(0$\e(B"   "ia"  ))
 135            (IAN  '("ian"  "i\e(0!\e(Bn"  "i\e(0"\e(Bn"  "i\e(0#\e(Bn"  "i\e(0$\e(Bn"  "ian" ))
 136            (IANG '("iang" "i\e(0!\e(Bng" "i\e(0"\e(Bng" "i\e(0#\e(Bng" "i\e(0$\e(Bng" "iang"))
 137            (IAO  '("iao"  "i\e(0!\e(Bo"  "i\e(0"\e(Bo"  "i\e(0#\e(Bo"  "i\e(0$\e(Bo"  "iao" ))
 138            (IE   '("ie"   "i\e(0%\e(B"   "i\e(0&\e(B"   "i\e(0'\e(B"   "i\e(0(\e(B"   "ie"  ))
 139            (IN   '("in"   "\e(0)\e(Bn"   "\e(0*\e(Bn"   "\e(0+\e(Bn"   "\e(0,\e(Bn"   "in"  ))
 140            (ING  '("ing"  "\e(0)\e(Bng"  "\e(0*\e(Bng"  "\e(0+\e(Bng"  "\e(0,\e(Bng"  "ing" ))
 141            (IONG '("iong" "i\e(0-\e(Bng" "i\e(0.\e(Bng" "i\e(0/\e(Bng" "i\e(00\e(Bng" "iong"))
 142            (IU   '("iu"   "i\e(01\e(B"   "i\e(02\e(B"   "i\e(03\e(B"   "i\e(04\e(B"   "iu"  ))
 143            (O    '("o"    "\e(0-\e(B"    "\e(0.\e(B"    "\e(0/\e(B"    "\e(00\e(B"    "o"   ))
 144            (ONG  '("ong"  "\e(0-\e(Bng"  "\e(0.\e(Bng"  "\e(0/\e(Bng"  "\e(00\e(Bng"  "ong" ))
 145            (OU   '("ou"   "\e(0-\e(Bu"   "\e(0.\e(Bu"   "\e(0/\e(Bu"   "\e(00\e(Bu"   "ou"  ))
 146            (U    '("u"    "\e(01\e(B"    "\e(02\e(B"    "\e(03\e(B"    "\e(04\e(B"    "u"   ))
 147            (V    '("v"    "\e(05\e(B"    "\e(06\e(B"    "\e(07\e(B"    "\e(08\e(B"    "\e(09\e(B"   ))
 148            (UA   '("ua"   "u\e(0!\e(B"   "u\e(0"\e(B"   "u\e(0#\e(B"   "u\e(0$\e(B"   "ua"  ))
 149            (UAI  '("uai"  "u\e(0!\e(Bi"  "u\e(0"\e(Bi"  "u\e(0#\e(Bi"  "u\e(0$\e(Bi"  "uai" ))
 150            (UAN  '("uan"  "u\e(0!\e(Bn"  "u\e(0"\e(Bn"  "u\e(0#\e(Bn"  "u\e(0$\e(Bn"  "uan" ))
 151            (UANG '("uang" "u\e(0!\e(Bng" "u\e(0"\e(Bng" "u\e(0#\e(Bng" "u\e(0$\e(Bng" "uang"))
 152            (UE   '("ue"   "u\e(0%\e(B"   "u\e(0&\e(B"   "u\e(0'\e(B"   "u\e(0(\e(B"   "ue"  ))
 153            (VE   '("ve"   "\e(09%\e(B"   "\e(09&\e(B"   "\e(09'\e(B"   "\e(09(\e(B"   "\e(09\e(Be"  ))
 154            (UI   '("ui"   "u\e(0)\e(B"   "u\e(0*\e(B"   "u\e(0+\e(B"   "u\e(0,\e(B"   "ui"  ))
 155            (UN   '("un"   "\e(01\e(Bn"   "\e(02\e(Bn"   "\e(03\e(Bn"   "\e(04\e(Bn"   "un"  ))
 156            (UO   '("uo"   "u\e(0-\e(B"   "u\e(0.\e(B"   "u\e(0/\e(B"   "u\e(00\e(B"   "uo"  )))
 157
 158        (its-do-sisheng-table
 159         (((- B C D F G H   K L M N P     S T W   Y Z CH SH ZH ) A)
 160          ((- B C D   G H   K L M N P     S T W     Z CH SH ZH ) AI)
 161          ((- B C D F G H   K L M N P   R S T W   Y Z CH SH ZH ) AN)
 162          ((- B C D F G H   K L M N P   R S T W   Y Z CH SH ZH ) ANG)
 163          ((- B C D   G H   K L M N P   R S T     Y Z CH SH ZH ) AO)
 164          ((-   C D   G H   K L M N     R S T     Y Z CH SH ZH ) E)
 165          ((- B C D F G H   K L M N P       T W     Z    SH ZH ) EI)
 166          ((- B C D F G H   K   M N P   R S   W     Z CH SH ZH ) EN)
 167          ((- B C D F G H   K L M N P   R S T W     Z CH SH ZH ) ENG)
 168          ((-                                                  ) ER)
 169          ((  B C D       J   L M N P Q R S T   X Y Z CH SH ZH ) I)
 170          ((      D       J   L       Q         X              ) IA)
 171          ((  B   D       J   L M N P Q     T   X              ) IAN)
 172          ((              J   L   N   Q         X              ) IANG)
 173          ((  B   D       J   L M N P Q     T   X              ) IAO)
 174          ((  B   D       J   L M N P Q     T   X              ) IE)
 175          ((  B           J   L M N P Q         X Y            ) IN)
 176          ((  B   D       J   L M N P Q     T   X Y            ) ING)
 177          ((              J           Q         X              ) IONG)
 178          ((      D       J   L M N   Q         X              ) IU)
 179          ((- B     F         L M   P         W   Y            ) O)
 180          ((    C D   G H   K L   N     R S T     Y Z CH    ZH ) ONG)
 181          ((-   C D F G H   K L M N P   R S T     Y Z CH SH ZH ) OU)
 182          ((  B C D F G H J K L M N P Q R S T W X Y Z CH SH ZH ) U)
 183          ((                  L   N                            ) V)
 184          ((          G H   K           R             CH SH ZH ) UA)
 185          ((          G H   K                         CH SH ZH ) UAI)
 186          ((    C D   G H J K L   N   Q R S T   X Y Z CH SH ZH ) UAN)
 187          ((          G H   K                         CH SH ZH ) UANG)
 188          ((              J           Q         X Y            ) UE)
 189          ((                  L   N                            ) VE)
 190          ((    C D   G H   K           R S T       Z CH SH ZH ) UI)
 191          ((    C D   G H J K L       Q R S T   X Y Z CH SH ZH ) UN)
 192          ((    C D   G H   K L   N     R S T       Z CH SH ZH ) UO)
 193
 194          ((J Q X) (cons "a"   (cdr IA  )))
 195          ((J Q X) (cons "ai"  (cdr IA  )))
 196          ((J Q X) (cons "an"  (cdr IAN )))
 197          ((J Q X) (cons "ang" (cdr IANG)))
 198          ((J Q X) (cons "ao"  (cdr IAO )))
 199          ((J Q X) (cons "e"   (cdr IE  )))
 200          ((J Q X) (cons "ei"  (cdr IE  )))
 201          ((J Q X) (cons "en"  (cdr IN  )))
 202          ((J Q X) (cons "eng" (cdr ING )))
 203          ((J Q X) (cons "ou"  (cdr IU  )))))
 204
 205        (its-define-qingsheng    "hm"    "")
 206        (its-define-qingsheng    "hng"   "")
 207        (its-define-qingsheng    ""      "ng")
 208
 209        (its-define-qingsheng    ""      "m")
 210        (its-define-qingsheng    ""      "n")
 211        (its-defrule     "n2"    "\e(0=@\e(B")
 212        (its-defrule     "n3"    "\e(0>@\e(B")
 213        (its-defrule     "n4"    "\e(0?@\e(B"))))
 214
 215 (define-its-state-machine its-pinyin-cn-map
 216   "pinyin-cn" "\e$AF4\e(BG" "Chinese-GB"
 217   "Map for Pinyin input. (Chinese-GB)"
 218
 219   (defconst its-quanjiao-escape "Z")
 220   (defconst its-banjiao-escape  "X")
 221
 222   (its-defrule-select-mode-temporally "B" downcase)
 223   (its-defrule-select-mode-temporally "Q" quanjiao-downcase-cn)
 224
 225   (its-define-pinyin-table)
 226   (its-defoutput*       "b "    "\e$A2;\e(B")
 227   (its-defoutput*       "c "    "\e$A2E\e(B")
 228   (its-defoutput*       "ch "   "\e$A3v\e(B")
 229   (its-defoutput*       "d "    "\e$A5D\e(B")
 230   (its-defoutput*       "f "    "\e$A74\e(B")
 231   (its-defoutput*       "g "    "\e$A8v\e(B")
 232   (its-defoutput*       "h "    "\e$A:M\e(B")
 233   (its-defoutput*       "i "    "\e$AR;\e(B")
 234   (its-defoutput*       "j "    "\e$A>M\e(B")
 235   (its-defoutput*       "k "    "\e$A?I\e(B")
 236   (its-defoutput*       "l "    "\e$AAK\e(B")
 237   (its-defoutput*       "m "    "\e$AC?\e(B")
 238   (its-defoutput*       "n "    "\e$ADj\e(B")
 239   (its-defoutput*       "p "    "\e$AEz\e(B")
 240   (its-defoutput*       "q "    "\e$AH%\e(B")
 241   (its-defoutput*       "r "    "\e$AHU\e(B")
 242   (its-defoutput*       "s "    "\e$AJG\e(B")
 243   (its-defoutput*       "sh "   "\e$AIO\e(B")
 244   (its-defoutput*       "t "    "\e$AK{\e(B")
 245   (its-defoutput*       "w "    "\e$ANR\e(B")
 246   (its-defoutput*       "x "    "\e$AOr\e(B")
 247   (its-defoutput*       "y "    "\e$ASV\e(B")
 248   (its-defoutput*       "z "    "\e$ATZ\e(B")
 249   (its-defoutput*       "zh "   "\e$AWE\e(B")
 250
 251   (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")
 252                    ("4" . "\e$A#4\e(B")  ("5" . "\e$A#5\e(B")  ("6" . "\e$A#6\e(B")  ("7" . "\e$A#7\e(B")
 253                    ("8" . "\e$A#8\e(B")  ("9" . "\e$A#9\e(B")
 254                    (" " . "\e$A!!\e(B")  ("!" . "\e$A#!\e(B")  ("@" . "\e$A#@\e(B")  ("#" . "\e$A##\e(B")
 255                    ("$" . "\e$A!g\e(B")  ("%" . "\e$A#%\e(B")  ("^" . "\e$A#^\e(B")  ("&" . "\e$A#&\e(B")
 256                    ("*" . "\e$A#*\e(B")  ("(" . "\e$A#(\e(B")  (")" . "\e$A#)\e(B")
 257                    ("-" . "\e$A#-\e(B")  ("=" . "\e$A#=\e(B")  ("`" . "\e$A#`\e(B")  ("\\" . "\e$A#\\e(B")
 258                    ("|" . "\e$A#|\e(B")  ("_" . "\e$A#_\e(B")  ("+" . "\e$A#+\e(B")  ("~" . "\e$A!+\e(B")
 259                    ("[" . "\e$A#[\e(B")  ("]" . "\e$A#]\e(B")  ("{" . "\e$A#{\e(B")  ("}" . "\e$A#}\e(B")
 260                    (":" . "\e$A#:\e(B")  (";" . "\e$A#;\e(B")  ("\"" . "\e$A#"\e(B") ("'" . "\e$A#'\e(B")
 261                    ("<" . "\e$A#<\e(B")  (">" . "\e$A#>\e(B")  ("?" . "\e$A#?\e(B")  ("/" . "\e$A#/\e(B")
 262                    ("," . "\e$A#,\e(B")  ("." . "\e$A#.\e(B")
 263                    ("a" . "\e$A#a\e(B")  ("b" . "\e$A#b\e(B")  ("c" . "\e$A#c\e(B")  ("d" . "\e$A#d\e(B")
 264                    ("e" . "\e$A#e\e(B")  ("f" . "\e$A#f\e(B")  ("g" . "\e$A#g\e(B")  ("h" . "\e$A#h\e(B")
 265                    ("i" . "\e$A#i\e(B")  ("j" . "\e$A#j\e(B")  ("k" . "\e$A#k\e(B")  ("l" . "\e$A#l\e(B")
 266                    ("m" . "\e$A#m\e(B")  ("n" . "\e$A#n\e(B")  ("o" . "\e$A#o\e(B")  ("p" . "\e$A#p\e(B")
 267                    ("q" . "\e$A#q\e(B")  ("r" . "\e$A#r\e(B")  ("s" . "\e$A#s\e(B")  ("t" . "\e$A#t\e(B")
 268                    ("u" . "\e$A#u\e(B")  ("v" . "\e$A#v\e(B")  ("w" . "\e$A#w\e(B")  ("x" . "\e$A#x\e(B")
 269                    ("y" . "\e$A#y\e(B")  ("z" . "\e$A#z\e(B")
 270                    ("A" . "\e$A#A\e(B")  ("B" . "\e$A#B\e(B")  ("C" . "\e$A#C\e(B")  ("D" . "\e$A#D\e(B")
 271                    ("E" . "\e$A#E\e(B")  ("F" . "\e$A#F\e(B")  ("G" . "\e$A#G\e(B")  ("H" . "\e$A#H\e(B")
 272                    ("I" . "\e$A#I\e(B")  ("J" . "\e$A#J\e(B")  ("K" . "\e$A#K\e(B")  ("L" . "\e$A#L\e(B")
 273                    ("M" . "\e$A#M\e(B")  ("N" . "\e$A#N\e(B")  ("O" . "\e$A#O\e(B")  ("P" . "\e$A#P\e(B")
 274                    ("Q" . "\e$A#Q\e(B")  ("R" . "\e$A#R\e(B")  ("S" . "\e$A#S\e(B")  ("T" . "\e$A#T\e(B")
 275                    ("U" . "\e$A#U\e(B")  ("V" . "\e$A#V\e(B")  ("W" . "\e$A#W\e(B")  ("X" . "\e$A#X\e(B")
 276                    ("Y" . "\e$A#Y\e(B")  ("Z" . "\e$A#Z\e(B")))
 277     (let ((in (car ascii)) (out (cdr ascii)))
 278       (its-defrule (concat its-banjiao-escape in) in)
 279       (its-defrule (concat its-quanjiao-escape in) out)))
 280
 281   (its-defrule  ","     "\e$A#,\e(B")
 282   (its-defrule  "."     "\e$A!#\e(B")
 283   (its-defrule  "/"     "\e$A!"\e(B")
 284   (its-defrule  ":"     "\e$A#:\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 (define-its-state-machine its-pinyin-tw-map
 290   "pinyin-tw" "\e$(GQ;\e(BC" "Chinese-CNS"
 291   "Map for Pinyin input."
 292
 293   (defconst its-quanjiao-escape "Z")
 294   (defconst its-banjiao-escape  "X")
 295
 296   (its-defrule-select-mode-temporally "B" downcase)
 297   (its-defrule-select-mode-temporally "Q" quanjiao-downcase-tw)
 298
 299   (its-define-pinyin-table)
 300   (its-defoutput*       "b "    "\e$(GDb\e(B")
 301   (its-defoutput*       "c "    "\e$(GD_\e(B")
 302   (its-defoutput*       "ch "   "\e$(GEx\e(B")
 303   (its-defoutput*       "d "    "\e$(GN{\e(B")
 304   (its-defoutput*       "f "    "\e$(GE0\e(B")
 305   (its-defoutput*       "g "    "\e$(GT6\e(B")
 306   (its-defoutput*       "h "    "\e$(GLO\e(B")
 307   (its-defoutput*       "i "    "\e$(GD!\e(B")
 308   (its-defoutput*       "j "    "\e$(G^s\e(B")
 309   (its-defoutput*       "k "    "\e$(GF+\e(B")
 310   (its-defoutput*       "l "    "\e$(GD'\e(B")
 311   (its-defoutput*       "m "    "\e$(GJd\e(B")
 312   (its-defoutput*       "n "    "\e$(GH!\e(B")
 313   (its-defoutput*       "p "    "\e$(GJG\e(B")
 314   (its-defoutput*       "q "    "\e$(GF*\e(B")
 315   (its-defoutput*       "r "    "\e$(GEJ\e(B")
 316   (its-defoutput*       "s "    "\e$(GQR\e(B")
 317   (its-defoutput*       "sh "   "\e$(GD8\e(B")
 318   (its-defoutput*       "t "    "\e$(GEl\e(B")
 319   (its-defoutput*       "w "    "\e$(GJ<\e(B")
 320   (its-defoutput*       "x "    "\e$(GGW\e(B")
 321   (its-defoutput*       "y "    "\e$(GD4\e(B")
 322   (its-defoutput*       "z "    "\e$(GGc\e(B")
 323   (its-defoutput*       "zh "   "\e$(Gaa\e(B")
 324
 325   (dolist (ascii '(("0" . "\e$(G$!\e(B")  ("1" . "\e$(G$"\e(B")  ("2" . "\e$(G$#\e(B")  ("3" . "\e$(G$$\e(B")
 326                    ("4" . "\e$(G$%\e(B")  ("5" . "\e$(G$&\e(B")  ("6" . "\e$(G$'\e(B")  ("7" . "\e$(G$(\e(B")
 327                    ("8" . "\e$(G$)\e(B")  ("9" . "\e$(G$*\e(B")
 328                    (" " . "\e$(G!!\e(B")  ("!" . "\e$(G!*\e(B")  ("@" . "\e$(G"i\e(B")  ("#" . "\e$(G!l\e(B")
 329                    ("$" . "\e$(G"c\e(B")  ("%" . "\e$(G"h\e(B")  ("^" . "\e$(G!T\e(B")  ("&" . "\e$(G!m\e(B")
 330                    ("*" . "\e$(G!n\e(B")  ("(" . "\e$(G!>\e(B")  (")" . "\e$(G!?\e(B")
 331                    ("-" . "\e$(G"1\e(B")  ("=" . "\e$(G"8\e(B")  ("`" . "\e$(G!j\e(B")  ("\\" . "\e$(G"b\e(B")
 332                    ("|" . "\e$(G"^\e(B")  ("_" . "\e$(G"%\e(B")  ("+" . "\e$(G"0\e(B")  ("~" . "\e$(G"D\e(B")
 333                    ("[" . "\e$(G!b\e(B")  ("]" . "\e$(G!c\e(B")  ("{" . "\e$A#{\e(B")  ("}" . "\e$(G!a\e(B")
 334                    (":" . "\e$(G!(\e(B")  (";" . "\e$(G!'\e(B")  ("\"" . "\e$(G!i\e(B") ("'" . "\e$(G!k\e(B")
 335                    ("<" . "\e$(G"6\e(B")  (">" . "\e$(G"7\e(B")  ("?" . "\e$(G!)\e(B")  ("/" . "\e$(G"a\e(B")
 336                    ("," . "\e$(G!"\e(B")  ("." . "\e$(G!%\e(B")
 337                    ("a" . "\e$(G$[\e(B")  ("b" . "\e$(G$\\e(B")  ("c" . "\e$(G$]\e(B")  ("d" . "\e$(G$^\e(B")
 338                    ("e" . "\e$(G$_\e(B")  ("f" . "\e$(G$`\e(B")  ("g" . "\e$(G$a\e(B")  ("h" . "\e$(G$b\e(B")
 339                    ("i" . "\e$(G$c\e(B")  ("j" . "\e$(G$d\e(B")  ("k" . "\e$(G$e\e(B")  ("l" . "\e$(G$f\e(B")
 340                    ("m" . "\e$(G$g\e(B")  ("n" . "\e$(G$h\e(B")  ("o" . "\e$(G$i\e(B")  ("p" . "\e$(G$j\e(B")
 341                    ("q" . "\e$(G$k\e(B")  ("r" . "\e$(G$l\e(B")  ("s" . "\e$(G$m\e(B")  ("t" . "\e$(G$n\e(B")
 342                    ("u" . "\e$(G$o\e(B")  ("v" . "\e$(G$p\e(B")  ("w" . "\e$(G$q\e(B")  ("x" . "\e$(G$r\e(B")
 343                    ("y" . "\e$(G$s\e(B")  ("z" . "\e$(G$t\e(B")
 344                    ("A" . "\e$(G$A\e(B")  ("B" . "\e$(G$B\e(B")  ("C" . "\e$(G$C\e(B")  ("D" . "\e$(G$D\e(B")
 345                    ("E" . "\e$(G$E\e(B")  ("F" . "\e$(G$F\e(B")  ("G" . "\e$(G$G\e(B")  ("H" . "\e$(G$H\e(B")
 346                    ("I" . "\e$(G$I\e(B")  ("J" . "\e$(G$J\e(B")  ("K" . "\e$(G$K\e(B")  ("L" . "\e$(G$L\e(B")
 347                    ("M" . "\e$(G$M\e(B")  ("N" . "\e$(G$N\e(B")  ("O" . "\e$(G$O\e(B")  ("P" . "\e$(G$P\e(B")
 348                    ("Q" . "\e$(G$Q\e(B")  ("R" . "\e$(G$R\e(B")  ("S" . "\e$(G$S\e(B")  ("T" . "\e$(G$T\e(B")
 349                    ("U" . "\e$(G$U\e(B")  ("V" . "\e$(G$V\e(B")  ("W" . "\e$(G$W\e(B")  ("X" . "\e$(G$X\e(B")
 350                    ("Y" . "\e$(G$Y\e(B")  ("Z" . "\e$(G$Z\e(B")))
 351     (let ((in (car ascii)) (out (cdr ascii)))
 352       (its-defrule (concat its-banjiao-escape in) in)
 353       (its-defrule (concat its-quanjiao-escape in) out)))
 354
 355   (its-defrule  ","     "\e$(G!"\e(B")
 356   (its-defrule  "."     "\e$(G!$\e(B")
 357   (its-defrule  "/"     "\e$(G!#\e(B")
 358   (its-defrule  ":"     "\e$(G!(\e(B")
 359   (its-defrule  ";"     "\e$(G!'\e(B")
 360   (its-defrule  "?"     "\e$(G!)\e(B")
 361   (its-defrule  "!"     "\e$(G!*\e(B"))
 362
 363 (define-its-state-machine-append its-pinyin-cn-map
 364   (its-defrule "[" its-pinyin-cn-open-braket)
 365   (its-defrule "]" its-pinyin-cn-close-braket)
 366
 367   (if its-pinyin-cn-enable-quanjioao-alphabet
 368       (progn
 369         (its-defrule "1"  "\e$A#1\e(B")  (its-defrule "2"  "\e$A#2\e(B")
 370         (its-defrule "3"  "\e$A#3\e(B")  (its-defrule "4"  "\e$A#4\e(B")
 371         (its-defrule "5"  "\e$A#5\e(B")  (its-defrule "6"  "\e$A#6\e(B")
 372         (its-defrule "7"  "\e$A#7\e(B")  (its-defrule "8"  "\e$A#8\e(B")
 373         (its-defrule "9"  "\e$A#9\e(B")  (its-defrule "0"  "\e$A#0\e(B")
 374         (its-defrule "@"  "\e$A#@\e(B")
 375         (its-defrule "#"  "\e$A##\e(B")  (its-defrule "$"  "\e$A!g\e(B")
 376         (its-defrule "%"  "\e$A#%\e(B")  (its-defrule "^"  "\e$A#^\e(B")
 377         (its-defrule "&"  "\e$A#&\e(B")  (its-defrule "*"  "\e$A#*\e(B")
 378         (its-defrule "("  "\e$A#(\e(B")  (its-defrule ")"  "\e$A#)\e(B")
 379         (its-defrule "-"  "\e$A#-\e(B")  (its-defrule "~"  "\e$A!+\e(B")
 380         (its-defrule "="  "\e$A#=\e(B")  (its-defrule "`"  "\e$A#`\e(B")
 381         (its-defrule "\\" "\e$A#\\e(B")  (its-defrule "|"  "\e$A#|\e(B")
 382         (its-defrule "_"  "\e$A#_\e(B")  (its-defrule "+"  "\e$A#+\e(B")
 383         (its-defrule "{"  "\e$A#{\e(B")  (its-defrule "}"  "\e$A#}\e(B")
 384         (its-defrule "\"" "\e$A#"\e(B")  (its-defrule "'"  "\e$A#'\e(B")
 385         (its-defrule "<"  "\e$A#<\e(B")  (its-defrule ">"  "\e$A#>\e(B"))
 386     (progn
 387       (its-defrule "1"  "1")  (its-defrule "2"  "2")
 388       (its-defrule "3"  "3")  (its-defrule "4"  "4")
 389       (its-defrule "5"  "5")  (its-defrule "6"  "6")
 390       (its-defrule "7"  "7")  (its-defrule "8"  "8")
 391       (its-defrule "9"  "9")  (its-defrule "0"  "0")
 392       (its-defrule "@"  "@")
 393       (its-defrule "#"  "#")  (its-defrule "$"  "$")
 394       (its-defrule "%"  "%")  (its-defrule "^"  "^")
 395       (its-defrule "&"  "&")  (its-defrule "*"  "*")
 396       (its-defrule "("  "(")  (its-defrule ")"  ")")
 397       (its-defrule "-"  "-")  (its-defrule "~"  "~")
 398       (its-defrule "="  "=")  (its-defrule "`"  "`")
 399       (its-defrule "\\" "\\") (its-defrule "|"  "|")
 400       (its-defrule "_"  "_")  (its-defrule "+"  "+")
 401       (its-defrule "{"  "{")  (its-defrule "}"  "}")
 402       (its-defrule "\"" "\"") (its-defrule "'"  "'")
 403       (its-defrule "<"  "<")  (its-defrule ">"  ">"))))
 404
 405 (define-its-state-machine-append its-pinyin-tw-map
 406   (its-defrule "[" its-pinyin-tw-open-braket)
 407   (its-defrule "]" its-pinyin-tw-close-braket)
 408
 409   (if its-pinyin-tw-enable-quanjioao-alphabet
 410       (progn
 411         (its-defrule "1"  "\e$(G$"\e(B")  (its-defrule "2"  "\e$(G$#\e(B")
 412         (its-defrule "3"  "\e$(G$$\e(B")  (its-defrule "4"  "\e$(G$%\e(B")
 413         (its-defrule "5"  "\e$(G$&\e(B")  (its-defrule "6"  "\e$(G$'\e(B")
 414         (its-defrule "7"  "\e$(G$(\e(B")  (its-defrule "8"  "\e$(G$)\e(B")
 415         (its-defrule "9"  "\e$(G$*\e(B")  (its-defrule "0"  "\e$(G$!\e(B")
 416         (its-defrule "@"  "\e$(G"i\e(B")
 417         (its-defrule "#"  "\e$(G!l\e(B")  (its-defrule "$"  "\e$(G"c\e(B")
 418         (its-defrule "%"  "\e$(G"h\e(B")  (its-defrule "^"  "\e$(G!T\e(B")
 419         (its-defrule "&"  "\e$(G!m\e(B")  (its-defrule "*"  "\e$(G!n\e(B")
 420         (its-defrule "("  "\e$(G!>\e(B")  (its-defrule ")"  "\e$(G!?\e(B")
 421         (its-defrule "-"  "\e$(G"1\e(B")  (its-defrule "~"  "\e$(G"D\e(B")
 422         (its-defrule "="  "\e$(G"8\e(B")  (its-defrule "`"  "\e$(G!j\e(B")
 423         (its-defrule "\\" "\e$(G"b\e(B")  (its-defrule "|"  "\e$(G"^\e(B")
 424         (its-defrule "_"  "\e$(G"%\e(B")  (its-defrule "+"  "\e$(G"0\e(B")
 425         (its-defrule "{"  "\e$A#{\e(B")  (its-defrule "}"  "\e$(G!a\e(B")
 426         (its-defrule "\"" "\e$(G!i\e(B")  (its-defrule "'"  "\e$(G!k\e(B")
 427         (its-defrule "<"  "\e$(G"6\e(B")  (its-defrule ">"  "\e$(G"7\e(B"))
 428     (progn
 429       (its-defrule "1"  "1")  (its-defrule "2"  "2")
 430       (its-defrule "3"  "3")  (its-defrule "4"  "4")
 431       (its-defrule "5"  "5")  (its-defrule "6"  "6")
 432       (its-defrule "7"  "7")  (its-defrule "8"  "8")
 433       (its-defrule "9"  "9")  (its-defrule "0"  "0")
 434       (its-defrule "@"  "@")
 435       (its-defrule "#"  "#")  (its-defrule "$"  "$")
 436       (its-defrule "%"  "%")  (its-defrule "^"  "^")
 437       (its-defrule "&"  "&")  (its-defrule "*"  "*")
 438       (its-defrule "("  "(")  (its-defrule ")"  ")")
 439       (its-defrule "-"  "-")  (its-defrule "~"  "~")
 440       (its-defrule "="  "=")  (its-defrule "`"  "`")
 441       (its-defrule "\\" "\\") (its-defrule "|"  "|")
 442       (its-defrule "_"  "_")  (its-defrule "+"  "+")
 443       (its-defrule "{"  "{")  (its-defrule "}"  "}")
 444       (its-defrule "\"" "\"") (its-defrule "'"  "'")
 445       (its-defrule "<"  "<")  (its-defrule ">"  ">"))))
 446
 447 (provide 'its/pinyin)