leim/quail/sisheng.el

   1 ;;; sisheng.el --- sisheng input method for Chinese pinyin transliteration
   2
   3 ;; Copyright (C) 2004, 2005, 2006, 2007, 2008, 2009, 2010  Free Software Foundation, Inc.
   4
   5 ;; Author: Werner LEMBERG <wl@gnu.org>
   6
   7 ;; Keywords: multilingual, input method, Chinese, pinyin, sisheng
   8
   9 ;; This file is part of GNU Emacs.
  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 3 of the License, or
  14 ;; (at your option) 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.  If not, see <http://www.gnu.org/licenses/>.
  23
  24 ;;; Commentary:
  25
  26 ;;; Code:
  27
  28 (require 'quail)
  29
  30 (defconst sisheng-regexp
  31   "[āēīōūǖ]\\|üē")
  32
  33 ;; First element is the key,
  34 ;; second element is the vowel used for the input sequence,
  35 ;; last four elements are the resulting tones.
  36 ;;
  37 (defconst sisheng-vowel-table
  38   '(("ā" "a" "ā" "á" "ǎ" "à")
  39     ("ē" "e" "ē" "é" "ě" "è")
  40     ("ī" "i" "ī" "í" "ǐ" "ì")
  41     ("ō" "o" "ō" "ó" "ǒ" "ò")
  42     ("ū" "u" "ū" "ú" "ǔ" "ù")
  43     ("ǖ" "v" "ǖ" "ǘ" "ǚ" "ǜ")
  44     ("üē" "ve" "üē" "üé" "üě" "üè")))
  45
  46
  47 ;; All possible syllables in Mandarin Chinese, presented in the first
  48 ;; tone.  Note that make-sisheng-rules always constructs rules for all
  49 ;; four tones even if some of those tones aren't used in Mandarin.
  50 ;;
  51 (defconst sisheng-syllable-table
  52   '("ā" "āi" "ān" "āng" "āo"
  53
  54     "bā" "bāi" "bān" "bāng" "bāo"
  55     "bēi" "bēn" "bēng"
  56     "bī" "biān" "biāo" "biē" "bīn" "bīng"
  57     "bō"
  58     "bū"
  59
  60     "cā" "cāi" "cān" "cāng" "cāo"
  61     "cē" "cēn" "cēng"
  62     "cī"
  63     "cōng" "cōu"
  64     "cū" "cuān" "cuī" "cūn" "cuō"
  65
  66     "chā" "chāi" "chān" "chāng" "chāo"
  67     "chē" "chēn" "chēng"
  68     "chī"
  69     "chōng" "chōu"
  70     "chū" "chuā" "chuāi" "chuān" "chuāng" "chuī" "chūn" "chuō"
  71
  72     "dā" "dāi" "dān" "dāng" "dāo"
  73     "dē" "dēi" "dēn" "dēng"
  74     "dī" "diān" "diāo" "diē" "dīng" "diū"
  75     "dōng" "dōu"
  76     "dū" "duān" "duī" "dūn" "duō"
  77
  78     "ē" "ēi" "ēn" "ēng" "ēr"
  79
  80     "fā" "fān" "fāng"
  81     "fēi" "fēn" "fēng"
  82     "fiāo"
  83     "fō" "fōu"
  84     "fū"
  85
  86     "gā" "gāi" "gān" "gāng" "gāo"
  87     "gē" "gēi" "gēn" "gēng"
  88     "gōng" "gōu"
  89     "gū" "guā" "guāi" "guān" "guāng" "guī" "gūn" "guō"
  90
  91     "hā" "hāi" "hān" "hāng" "hāo"
  92     "hē" "hēi" "hēn" "hēng"
  93     "hōng" "hōu"
  94     "hū" "huā" "huāi" "huān" "huāng" "huī" "hūn" "huō"
  95
  96     "jī" "jiā" "jiān" "jiāng" "jiāo" "jiē" "jīn" "jīng" "jiōng" "jiū"
  97     "jū" "juān" "juē" "jūn"
  98
  99     "kā" "kāi" "kān" "kāng" "kāo"
 100     "kē" "kēi" "kēn" "kēng"
 101     "kōng" "kōu"
 102     "kū" "kuā" "kuāi" "kuān" "kuāng" "kuī" "kūn" "kuō"
 103
 104     "lā" "lāi" "lān" "lāng" "lāo"
 105     "lē" "lēi" "lēng"
 106     "lī" "liā" "liān" "liāng" "liāo" "liē" "līn" "līng" "liū"
 107     "lōng" "lōu"
 108     "lū" "luān" "lūn" "luō"
 109     "lǖ" "lüē"
 110
 111     "mā" "māi" "mān" "māng" "māo"
 112     "mē" "mēi" "mēn" "mēng"
 113     "mī" "miān" "miāo" "miē" "mīn" "mīng" "miū"
 114     "mō" "mōu"
 115     "mū"
 116
 117     "nā" "nāi" "nān" "nāng" "nāo"
 118     "nē" "nēi" "nēn" "nēng"
 119     "nī" "niān" "niāng" "niāo" "niē" "nīn" "nīng" "niū"
 120     "nōng" "nōu"
 121     "nū" "nuān" "nuō"
 122     "nǖ" "nüē"
 123
 124     "ō" "ōu"
 125
 126     "pā" "pāi" "pān" "pāng" "pāo"
 127     "pēi" "pēn" "pēng"
 128     "pī" "piān" "piāo" "piē" "pīn" "pīng"
 129     "pō" "pōu"
 130     "pū"
 131
 132     "qī" "qiā" "qiān" "qiāng" "qiāo" "qiē" "qīn" "qīng" "qiōng" "qiū"
 133     "qū" "quān" "quē" "qūn"
 134
 135     "rān" "rāng" "rāo"
 136     "rē" "rēn" "rēng"
 137     "rī"
 138     "rōng" "rōu"
 139     "rū" "ruā" "ruān" "ruī" "rūn" "ruō"
 140
 141     "sā" "sāi" "sān" "sāng" "sāo"
 142     "sē" "sēn" "sēng"
 143     "sī"
 144     "sōng" "sōu"
 145     "sū" "suān" "suī" "sūn" "suō"
 146
 147     "shā" "shāi" "shān" "shāng" "shāo"
 148     "shē" "shēi" "shēn" "shēng"
 149     "shī"
 150     "shōu"
 151     "shū" "shuā" "shuāi" "shuān" "shuāng" "shuī" "shūn" "shuō"
 152
 153     "tā" "tāi" "tān" "tāng" "tāo"
 154     "tē" "tēi" "tēng"
 155     "tī" "tiān" "tiāo" "tiē" "tīng"
 156     "tōng" "tōu"
 157     "tū" "tuān" "tuī" "tūn" "tuō"
 158
 159     "wā" "wāi" "wān" "wāng"
 160     "wēi" "wēn" "wēng"
 161     "wō"
 162     "wū"
 163
 164     "xī" "xiā" "xiān" "xiāng" "xiāo" "xiē" "xīn" "xīng" "xiōng" "xiū"
 165     "xū" "xuān" "xuē" "xūn"
 166
 167     "yā" "yān" "yāng" "yāo"
 168     "yē"
 169     "yī" "yīn" "yīng"
 170     "yō" "yōng" "yōu"
 171     "yū" "yuān" "yuē" "yūn"
 172
 173     "zā" "zāi" "zān" "zāng" "zāo"
 174     "zē" "zēi" "zēn" "zēng"
 175     "zī"
 176     "zōng" "zōu"
 177     "zū" "zuān" "zuī" "zūn" "zuō"
 178
 179     "zhā" "zhāi" "zhān" "zhāng" "zhāo"
 180     "zhē" "zhēi" "zhēn" "zhēng"
 181     "zhī"
 182     "zhōng" "zhōu"
 183     "zhū" "zhuā" "zhuāi" "zhuān" "zhuāng" "zhuī" "zhūn" "zhuō"))
 184
 185 ;; This function converts e.g.
 186 ;;
 187 ;;   "zhuō"
 188 ;;
 189 ;; into
 190 ;;
 191 ;;   (("zhuo4" ["zhuò"])
 192 ;;    ("zhuo3" ["zhuǒ"])
 193 ;;    ("zhuo2" ["zhuó"])
 194 ;;    ("zhuo1" ["zhuō"]))
 195 ;;
 196 (defun quail-make-sisheng-rules (syllable)
 197   (let ((case-fold-search t)
 198         vowel-match
 199         vowel-list
 200         input-vowel
 201         base-key
 202         key
 203         value
 204         key-value-list
 205         (i 1))
 206     (string-match sisheng-regexp syllable)
 207     (setq vowel-match (downcase (match-string 0 syllable)))
 208     (setq vowel-list
 209           (cdr (assoc-string vowel-match sisheng-vowel-table)))
 210     (setq input-vowel (car vowel-list))
 211     (setq base-key (replace-match input-vowel nil nil syllable))
 212     (while (<= i 4)
 213       (setq key (concat base-key (number-to-string i)))
 214       (setq value (vector (replace-match (nth i vowel-list) nil nil syllable)))
 215       (push (list key value) key-value-list)
 216       (setq i (1+ i)))
 217     key-value-list))
 218
 219 ;; Set up sisheng input method.
 220 ;;
 221 (quail-define-package
 222  "chinese-sisheng"                      ; name
 223  "Chinese"                              ; language
 224  "ǚ"                                   ; title
 225  t                                      ; guidance
 226  "Sìshēng input method for pīnyīn transliteration of Chinese.
 227
 228 Examples: shuang1 -> shuāng
 229           Lv3     -> Lǚ
 230           AN4     -> ÀN
 231
 232 Use the fifth (unstressed) tone for syllables containing `ü'
 233 without a tone mark.
 234
 235 Example:  nve5    -> nüe
 236 "                                       ; docstring
 237  nil                                    ; translation-keys
 238  t                                      ; forget-last-selection
 239  nil                                    ; deterministic
 240  nil                                    ; kbd-translate
 241  nil                                    ; show-layout
 242  nil                                    ; create-decode-map
 243  nil                                    ; maximum-shortest
 244  nil                                    ; overlay-plist
 245  nil                                    ; update-translation-function
 246  nil                                    ; conversion-keys
 247  t                                      ; simple
 248  )
 249
 250 ;; Call quail-make-sisheng-rules for all syllables in sisheng-syllable-table.
 251 ;;
 252 (let ((case-table-save (current-case-table))
 253       sisheng-list)
 254   (set-case-table (standard-case-table))
 255   (dolist (syllable sisheng-syllable-table)
 256     (setq sisheng-list
 257           (append (quail-make-sisheng-rules syllable)
 258                   sisheng-list)))
 259
 260   (dolist (syllable sisheng-syllable-table)
 261     (setq sisheng-list
 262           (append (quail-make-sisheng-rules (upcase-initials syllable))
 263                   sisheng-list)))
 264
 265   (dolist (syllable sisheng-syllable-table)
 266     (setq sisheng-list
 267           (append (quail-make-sisheng-rules (upcase syllable))
 268                   sisheng-list)))
 269
 270   (eval `(quail-define-rules
 271           ,@sisheng-list
 272
 273           ("lv5" ["lü"])
 274           ("lve5" ["lüe"])
 275           ("nv5" ["nü"])
 276           ("nve5" ["nüe"])
 277
 278           ("Lv5" ["Lü"])
 279           ("Lve5" ["Lüe"])
 280           ("Nv5" ["Nü"])
 281           ("Nve5" ["Nüe"])
 282
 283           ("LV5" ["LÜ"])
 284           ("LVE5" ["LÜE"])
 285           ("NV5" ["NÜ"])
 286           ("NVE5" ["NÜE"])))
 287   (set-case-table case-table-save))
 288
 289 ;; Local Variables:
 290 ;; coding: utf-8
 291 ;; End:
 292
 293 ;; arch-tag: 1fa6ba5f-6747-44bc-bf12-30628ad3e8ad
 294 ;;; sisheng.el ends here