its/zhuyin.el

   1 ;;; its/zhuyin.el --- Zhuyin 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-zhuyin-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-zhuyin-cn-open-braket  "\e$A!8\e(B" "*[") ; "\e$A#[\e(B"
  48 (defvar its-zhuyin-cn-close-braket "\e$A!9\e(B" "*]") ; "\e$A#]\e(B"
  49
  50 (defvar its-zhuyin-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-zhuyin-tw-open-braket  "\e$(G!V\e(B" "*[") ; "\e$(G!b\e(B "
  57 (defvar its-zhuyin-tw-close-braket "\e$(G!W\e(B" "*]") ; "\e$(G!c\e(B"
  58
  59 (eval-when-compile
  60   (defmacro its-do-zhuyin-table (list)
  61     `(progn
  62        ,@(mapcar (lambda (syl) `(its-define-zhuyin ,@syl))
  63                  list)))
  64
  65   (defmacro its-define-zhuyin (shengmu yunmu1 &optional yunmu2 qingsheng)
  66     `(let ((s (list ,@shengmu))
  67            (yi (concat (car ,yunmu1) (car ,yunmu2)))
  68            (yo (concat (nth 1 ,yunmu1) (nth 1 ,yunmu2)))
  69            (tone ,(if qingsheng "\e(0A\e(B" "\e(0@\e(B"))
  70            in out out1 state)
  71        (while s
  72          (setq in (concat (car (car s)) yi)
  73                out (concat (nth 1 (car s)) yo)
  74                out1 (concat out tone)
  75                state (its-defrule* in out1 out)
  76                s (cdr s))
  77          (its-defrule (concat in " ") out1)
  78          ,@(if (null qingsheng)
  79                '((its-make-next-state state ?1 (concat out "\e(0A\e(B"))
  80                  (its-make-next-state state ?2 (concat out "\e(0B\e(B"))
  81                  (its-make-next-state state ?3 (concat out "\e(0C\e(B"))
  82                  (its-make-next-state state ?4 (concat out "\e(0D\e(B")))))))
  83
  84   (defmacro its-define-zhuyin-table ()
  85     '(let ((-  '(""  ""))
  86            (B  '("b" "\e(0E\e(B")) (P  '("p" "\e(0F\e(B")) (M  '("m" "\e(0G\e(B")) (F '("f" "\e(0H\e(B"))
  87            (D  '("d" "\e(0I\e(B")) (T  '("t" "\e(0J\e(B")) (N  '("n" "\e(0K\e(B")) (L '("l" "\e(0L\e(B"))
  88            (G  '("v" "\e(0M\e(B")) (K  '("k" "\e(0N\e(B")) (H  '("h" "\e(0O\e(B"))
  89            (J  '("g" "\e(0P\e(B")) (Q  '("7" "\e(0Q\e(B")) (X  '("c" "\e(0R\e(B"))
  90            (ZH '("," "\e(0S\e(B")) (CH '("." "\e(0T\e(B")) (SH '("/" "\e(0U\e(B")) (R '("j"  "\e(0V\e(B"))
  91            (Z  '(";" "\e(0W\e(B")) (C  '(":" "\e(0X\e(B")) (S  '("s" "\e(0Y\e(B"))
  92
  93            (A   '("a" "\e(0Z\e(B")) (O   '("o" "\e(0[\e(B")) (e   '("r" "\e(0\\e(B")) (E   '("w" "\e(0]\e(B"))
  94            (AI  '("i" "\e(0^\e(B")) (EI  '("q" "\e(0_\e(B")) (AO  '("z" "\e(0`\e(B"))
  95            (AN  '("8" "\e(0b\e(B")) (EN  '("9" "\e(0c\e(B")) (ANG '("0" "\e(0d\e(B")) (ENG '("-" "\e(0e\e(B"))
  96            (ER  '("^" "\e(0f\e(B")) (OU  '("y" "\e(0a\e(B"))
  97            (I   '("e" "\e(0g\e(B")) (U   '("x" "\e(0h\e(B")) (V   '("u" "\e(0i\e(B")))
  98
  99        (its-define-zhuyin (- H) M nil t)
 100        (its-define-zhuyin (- H) '("@" "@") nil t)
 101        (its-define-zhuyin (-  ) N nil t)
 102
 103        (its-do-zhuyin-table
 104         (((                              ZH CH SH R Z C S ) -)
 105          ((- B P M F D T N L G K H       ZH CH SH   Z C S ) A)
 106          ((- B P M F       L                              ) O)
 107          ((-     M   D T N L G K H       ZH CH SH R Z C S ) e)
 108          ((- B P M   D T N L G K H       ZH CH SH   Z C S ) AI)
 109          ((- B P M F D T N L G K H       ZH    SH   Z C   ) EI)
 110          ((- B P M   D T N L G K H       ZH CH SH R Z C S ) AO)
 111          ((- B P M F D T N L G K H       ZH CH SH R Z C S ) AN)
 112          ((- B P M F D   N   G K H       ZH CH SH R Z C S ) EN)
 113          ((- B P M F D T N L G K H       ZH CH SH R Z C S ) ANG)
 114          ((- B P M F D T N L G K H       ZH CH SH R Z C S ) ENG)
 115          ((-                                              ) ER)
 116          ((-   P M F D T N L G K H       ZH CH SH R Z C S ) OU)
 117          ((- B P M   D T N L       J Q X                  ) I)
 118          ((-         D     L       J Q X                  ) I A)
 119          ((-                                              ) I O)
 120          ((- B P M   D T N L       J Q X                  ) I E)
 121          ((- B P M   D T N L       J Q X                  ) I AO)
 122          ((-     M   D   N L       J Q X                  ) I OU)
 123          ((- B P M   D T N L       J Q X                  ) I AN)
 124          ((- B P M       N L       J Q X                  ) I EN)
 125          ((-             N L       J Q X                  ) I ANG)
 126          ((- B P M   D T N L       J Q X                  ) I ENG)
 127          ((- B P M F D T N L G K H       ZH CH SH R Z C S ) U)
 128          ((-                 G K H       ZH CH SH R       ) U A)
 129          ((-         D T N L G K H       ZH CH SH R Z C S ) U O)
 130          ((-                 G K H       ZH CH SH         ) U AI)
 131          ((-         D T     G K H       ZH CH SH R Z C S ) U EI)
 132          ((-         D T N L G K H       ZH CH SH R Z C S ) U AN)
 133          ((-         D T   L G K H       ZH CH SH R Z C S ) U EN)
 134          ((-                 G K H       ZH CH SH         ) U ANG)
 135          ((-         D T N L G K H       ZH CH    R Z C S ) U ENG)
 136          ((-             N L       J Q X                  ) V)
 137          ((-             N L       J Q X                  ) V E)
 138          ((-                       J Q X                  ) V AN)
 139          ((-                       J Q X                  ) V EN)
 140          ((-                       J Q X                  ) V ENG)))
 141
 142        (mapcar (lambda (s) (its-defoutput (car s) (nth 1 s)))
 143                (list B P M F D T N L G K H J Q X))
 144
 145        (its-defrule (concat (car N) 2) (concat (nth 1 N) "\e(0B\e(B"))
 146        (its-defrule (concat (car N) 3) (concat (nth 1 N) "\e(0C\e(B"))
 147        (its-defrule (concat (car N) 4) (concat (nth 1 N) "\e(0D\e(B")))))
 148
 149 (define-its-state-machine its-zhuyin-cn-map
 150   "zhuyin-cn" "\e$AW"\e(BG" Chinese-GB
 151   "Map for Zhuyin input. (Chinese-GB)"
 152
 153   (defconst its-quanjiao-escape "Z")
 154   (defconst its-banjiao-escape  "X")
 155
 156   (its-defrule-select-mode-temporally "B" downcase)
 157   (its-defrule-select-mode-temporally "Q" quanjiao-downcase-cn)
 158
 159   (its-define-zhuyin-table)
 160   (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")
 161                    ("4" . "\e$A#4\e(B")  ("5" . "\e$A#5\e(B")  ("6" . "\e$A#6\e(B")  ("7" . "\e$A#7\e(B")
 162                    ("8" . "\e$A#8\e(B")  ("9" . "\e$A#9\e(B")
 163                    (" " . "\e$A!!\e(B")  ("!" . "\e$A#!\e(B")  ("@" . "\e$A#@\e(B")  ("#" . "\e$A##\e(B")
 164                    ("$" . "\e$A!g\e(B")  ("%" . "\e$A#%\e(B")  ("^" . "\e$A#^\e(B")  ("&" . "\e$A#&\e(B")
 165                    ("*" . "\e$A#*\e(B")  ("(" . "\e$A#(\e(B")  (")" . "\e$A#)\e(B")
 166                    ("-" . "\e$A#-\e(B")  ("=" . "\e$A#=\e(B")  ("`" . "\e$A#`\e(B")  ("\\" . "\e$A#\\e(B")
 167                    ("|" . "\e$A#|\e(B")  ("_" . "\e$A#_\e(B")  ("+" . "\e$A#+\e(B")  ("~" . "\e$A!+\e(B")
 168                    ("[" . "\e$A#[\e(B")  ("]" . "\e$A#]\e(B")  ("{" . "\e$A#{\e(B")  ("}" . "\e$A#}\e(B")
 169                    (":" . "\e$A#:\e(B")  (";" . "\e$A#;\e(B")  ("\"" . "\e$A#"\e(B") ("'" . "\e$A#'\e(B")
 170                    ("<" . "\e$A#<\e(B")  (">" . "\e$A#>\e(B")  ("?" . "\e$A#?\e(B")  ("/" . "\e$A#/\e(B")
 171                    ("," . "\e$A#,\e(B")  ("." . "\e$A#.\e(B")
 172                    ("a" . "\e$A#a\e(B")  ("b" . "\e$A#b\e(B")  ("c" . "\e$A#c\e(B")  ("d" . "\e$A#d\e(B")
 173                    ("e" . "\e$A#e\e(B")  ("f" . "\e$A#f\e(B")  ("g" . "\e$A#g\e(B")  ("h" . "\e$A#h\e(B")
 174                    ("i" . "\e$A#i\e(B")  ("j" . "\e$A#j\e(B")  ("k" . "\e$A#k\e(B")  ("l" . "\e$A#l\e(B")
 175                    ("m" . "\e$A#m\e(B")  ("n" . "\e$A#n\e(B")  ("o" . "\e$A#o\e(B")  ("p" . "\e$A#p\e(B")
 176                    ("q" . "\e$A#q\e(B")  ("r" . "\e$A#r\e(B")  ("s" . "\e$A#s\e(B")  ("t" . "\e$A#t\e(B")
 177                    ("u" . "\e$A#u\e(B")  ("v" . "\e$A#v\e(B")  ("w" . "\e$A#w\e(B")  ("x" . "\e$A#x\e(B")
 178                    ("y" . "\e$A#y\e(B")  ("z" . "\e$A#z\e(B")
 179                    ("A" . "\e$A#A\e(B")  ("B" . "\e$A#B\e(B")  ("C" . "\e$A#C\e(B")  ("D" . "\e$A#D\e(B")
 180                    ("E" . "\e$A#E\e(B")  ("F" . "\e$A#F\e(B")  ("G" . "\e$A#G\e(B")  ("H" . "\e$A#H\e(B")
 181                    ("I" . "\e$A#I\e(B")  ("J" . "\e$A#J\e(B")  ("K" . "\e$A#K\e(B")  ("L" . "\e$A#L\e(B")
 182                    ("M" . "\e$A#M\e(B")  ("N" . "\e$A#N\e(B")  ("O" . "\e$A#O\e(B")  ("P" . "\e$A#P\e(B")
 183                    ("Q" . "\e$A#Q\e(B")  ("R" . "\e$A#R\e(B")  ("S" . "\e$A#S\e(B")  ("T" . "\e$A#T\e(B")
 184                    ("U" . "\e$A#U\e(B")  ("V" . "\e$A#V\e(B")  ("W" . "\e$A#W\e(B")  ("X" . "\e$A#X\e(B")
 185                    ("Y" . "\e$A#Y\e(B")  ("Z" . "\e$A#Z\e(B")))
 186     (let ((in (car ascii)) (out (cdr ascii)))
 187       (its-defrule (concat its-banjiao-escape in) in)
 188       (its-defrule (concat its-quanjiao-escape in) out)))
 189
 190     (its-defrule "<" "\e$A#,\e(B")
 191     (its-defrule ">" "\e$A!#\e(B")
 192     (its-defrule "?" "\e$A!"\e(B"))
 193
 194 (define-its-state-machine its-zhuyin-tw-map
 195   "zhuyin-tw" "\e$(GNC\e(BC" Chinese-CNS
 196   "Map for Zhuyin input."
 197
 198   (defconst its-quanjiao-escape "Z")
 199   (defconst its-banjiao-escape  "X")
 200
 201   (its-defrule-select-mode-temporally "B" downcase)
 202   (its-defrule-select-mode-temporally "Q" quanjiao-downcase-tw)
 203
 204   (its-define-zhuyin-table)
 205   (dolist (ascii '(("0" . "\e$(G$!\e(B")  ("1" . "\e$(G$"\e(B")  ("2" . "\e$(G$#\e(B")  ("3" . "\e$(G$$\e(B")
 206                    ("4" . "\e$(G$%\e(B")  ("5" . "\e$(G$&\e(B")  ("6" . "\e$(G$'\e(B")  ("7" . "\e$(G$(\e(B")
 207                    ("8" . "\e$(G$)\e(B")  ("9" . "\e$(G$*\e(B")
 208                    (" " . "\e$(G!!\e(B")  ("!" . "\e$(G!*\e(B")  ("@" . "\e$(G"i\e(B")  ("#" . "\e$(G!l\e(B")
 209                    ("$" . "\e$(G"c\e(B")  ("%" . "\e$(G"h\e(B")  ("^" . "\e$(G!T\e(B")  ("&" . "\e$(G!m\e(B")
 210                    ("*" . "\e$(G!n\e(B")  ("(" . "\e$(G!>\e(B")  (")" . "\e$(G!?\e(B")
 211                    ("-" . "\e$(G"1\e(B")  ("=" . "\e$(G"8\e(B")  ("`" . "\e$(G!j\e(B")  ("\\" . "\e$(G"`\e(B")
 212                    ("|" . "\e$(G"^\e(B")  ("_" . "\e$(G"%\e(B")  ("+" . "\e$(G"0\e(B")  ("~" . "\e$(G"D\e(B")
 213                    ("[" . "\e$(G!b\e(B")  ("]" . "\e$(G!c\e(B")  ("{" . "\e$(G!B\e(B")  ("}" . "\e$(G!C\e(B")
 214                    (":" . "\e$(G!(\e(B")  (";" . "\e$(G!'\e(B")  ("\"" . "\e$(G!i\e(B") ("'" . "\e$(G!k\e(B")
 215                    ("<" . "\e$(G"6\e(B")  (">" . "\e$(G"7\e(B")  ("?" . "\e$(G!)\e(B")  ("/" . "\e$(G"_\e(B")
 216                    ("," . "\e$(G!"\e(B")  ("." . "\e$(G!%\e(B")
 217                    ("a" . "\e$(G$[\e(B")  ("b" . "\e$(G$\\e(B")  ("c" . "\e$(G$]\e(B")  ("d" . "\e$(G$^\e(B")
 218                    ("e" . "\e$(G$_\e(B")  ("f" . "\e$(G$`\e(B")  ("g" . "\e$(G$a\e(B")  ("h" . "\e$(G$b\e(B")
 219                    ("i" . "\e$(G$c\e(B")  ("j" . "\e$(G$d\e(B")  ("k" . "\e$(G$e\e(B")  ("l" . "\e$(G$f\e(B")
 220                    ("m" . "\e$(G$g\e(B")  ("n" . "\e$(G$h\e(B")  ("o" . "\e$(G$i\e(B")  ("p" . "\e$(G$j\e(B")
 221                    ("q" . "\e$(G$k\e(B")  ("r" . "\e$(G$l\e(B")  ("s" . "\e$(G$m\e(B")  ("t" . "\e$(G$n\e(B")
 222                    ("u" . "\e$(G$o\e(B")  ("v" . "\e$(G$p\e(B")  ("w" . "\e$(G$q\e(B")  ("x" . "\e$(G$r\e(B")
 223                    ("y" . "\e$(G$s\e(B")  ("z" . "\e$(G$t\e(B")
 224                    ("A" . "\e$(G$A\e(B")  ("B" . "\e$(G$B\e(B")  ("C" . "\e$(G$C\e(B")  ("D" . "\e$(G$D\e(B")
 225                    ("E" . "\e$(G$E\e(B")  ("F" . "\e$(G$F\e(B")  ("G" . "\e$(G$G\e(B")  ("H" . "\e$(G$H\e(B")
 226                    ("I" . "\e$(G$I\e(B")  ("J" . "\e$(G$J\e(B")  ("K" . "\e$(G$K\e(B")  ("L" . "\e$(G$L\e(B")
 227                    ("M" . "\e$(G$M\e(B")  ("N" . "\e$(G$N\e(B")  ("O" . "\e$(G$O\e(B")  ("P" . "\e$(G$P\e(B")
 228                    ("Q" . "\e$(G$Q\e(B")  ("R" . "\e$(G$R\e(B")  ("S" . "\e$(G$S\e(B")  ("T" . "\e$(G$T\e(B")
 229                    ("U" . "\e$(G$U\e(B")  ("V" . "\e$(G$V\e(B")  ("W" . "\e$(G$W\e(B")  ("X" . "\e$(G$X\e(B")
 230                    ("Y" . "\e$(G$Y\e(B")  ("Z" . "\e$(G$Z\e(B")))
 231     (let ((in (car ascii)) (out (cdr ascii)))
 232       (its-defrule (concat its-banjiao-escape in) in)
 233       (its-defrule (concat its-quanjiao-escape in) out)))
 234
 235     (its-defrule "<" "\e$(G!"\e(B")
 236     (its-defrule ">" "\e$(G!$\e(B")
 237     (its-defrule "?" "\e$(G!#\e(B"))
 238
 239 (define-its-state-machine-append its-zhuyin-cn-map
 240   (its-defrule "[" its-zhuyin-cn-open-braket)
 241   (its-defrule "]" its-zhuyin-cn-close-braket)
 242
 243 (if its-zhuyin-cn-enable-quanjioao-alphabet
 244       (progn
 245         (its-defrule "#"  "\e$A##\e(B")  (its-defrule "$"  "\e$A!g\e(B")
 246         (its-defrule "%"  "\e$A#%\e(B")
 247         (its-defrule "&"  "\e$A#&\e(B")  (its-defrule "*"  "\e$A#*\e(B")
 248         (its-defrule "("  "\e$A#(\e(B")  (its-defrule ")"  "\e$A#)\e(B")
 249         (its-defrule "~"  "\e$A!+\e(B")
 250         (its-defrule "="  "\e$A#=\e(B")  (its-defrule "`"  "\e$A#`\e(B")
 251         (its-defrule "\\" "\e$A#\\e(B")  (its-defrule "|"  "\e$A#|\e(B")
 252         (its-defrule "_"  "\e$A#_\e(B")  (its-defrule "+"  "\e$A#+\e(B")
 253         (its-defrule "{"  "\e$A#{\e(B")  (its-defrule "}"  "\e$A#}\e(B")
 254         (its-defrule "\"" "\e$A#"\e(B")  (its-defrule "'"  "\e$A#'\e(B"))
 255     (progn
 256       (its-defrule "#"  "#")  (its-defrule "$"  "$")
 257       (its-defrule "%"  "%")
 258       (its-defrule "&"  "&")  (its-defrule "*"  "*")
 259       (its-defrule "("  "(")  (its-defrule ")"  ")")
 260       (its-defrule "~"  "~")
 261       (its-defrule "="  "=")  (its-defrule "`"  "`")
 262       (its-defrule "\\" "\\") (its-defrule "|"  "|")
 263       (its-defrule "_"  "_")  (its-defrule "+"  "+")
 264       (its-defrule "{"  "{")  (its-defrule "}"  "}")
 265       (its-defrule "\"" "\"") (its-defrule "'"  "'"))))
 266
 267 (define-its-state-machine-append its-zhuyin-tw-map
 268   (its-defrule "[" its-zhuyin-tw-open-braket)
 269   (its-defrule "]" its-zhuyin-tw-close-braket)
 270
 271   (if its-zhuyin-tw-enable-quanjioao-alphabet
 272       (progn
 273         (its-defrule "#"  "\e$(G!l\e(B")  (its-defrule "$"  "\e$(G"c\e(B")
 274         (its-defrule "%"  "\e$(G"h\e(B")
 275         (its-defrule "&"  "\e$(G!m\e(B")  (its-defrule "*"  "\e$(G!n\e(B")
 276         (its-defrule "("  "\e$(G!>\e(B")  (its-defrule ")"  "\e$(G!?\e(B")
 277         (its-defrule "~"  "\e$(G"D\e(B")
 278         (its-defrule "="  "\e$(G"8\e(B")  (its-defrule "`"  "\e$(G!j\e(B")
 279         (its-defrule "\\" "\e$(G"`\e(B")  (its-defrule "|"  "\e$(G"^\e(B")
 280         (its-defrule "_"  "\e$(G"%\e(B")  (its-defrule "+"  "\e$(G"0\e(B")
 281         (its-defrule "{"  "\e$(G!B\e(B")  (its-defrule "}"  "\e$(G!C\e(B")
 282         (its-defrule "\"" "\e$(G!i\e(B")  (its-defrule "'"  "\e$(G!k\e(B"))
 283     (progn
 284       (its-defrule "#"  "#")  (its-defrule "$"  "$")
 285       (its-defrule "%"  "%")
 286       (its-defrule "&"  "&")  (its-defrule "*"  "*")
 287       (its-defrule "("  "(")  (its-defrule ")"  ")")
 288       (its-defrule "~"  "~")
 289       (its-defrule "="  "=")  (its-defrule "`"  "`")
 290       (its-defrule "\\" "\\") (its-defrule "|"  "|")
 291       (its-defrule "_"  "_")  (its-defrule "+"  "+")
 292       (its-defrule "{"  "{")  (its-defrule "}"  "}")
 293       (its-defrule "\"" "\"") (its-defrule "'"  "'"))))
 294
 295 (provide 'its/zhuyin)