view leim/quail/sisheng.el @ 77569:cb84f0c61221

*** empty log message ***

+
鐃緒申��申鐃緒申;;; sisheng.el --- sisheng input method for Chinese pinyin transliteration
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申;; Copyright (C) 2004, 2005, 2006, 2007  Free Software Foundation, Inc.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申;; Author: Werner LEMBERG <[e-mail]>
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申;; Keywords: multilingual, input method, Chinese, pinyin, sisheng
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申;; This program is free software; you can redistribute it and/or modify
+
鐃緒申��申鐃緒申;; it under the terms of the GNU General Public License as published by
+
鐃緒申��申鐃緒申;; the Free Software Foundation; either version 2, or (at your option)
+
鐃緒申��申鐃緒申;; any later version.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申;; This program is distributed in the hope that it will be useful,
+
鐃緒申��申鐃緒申;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+
鐃緒申��申鐃緒申;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+
鐃緒申��申鐃緒申;; GNU General Public License for more details.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申;; You should have received a copy of the GNU General Public License
+
鐃緒申��申鐃緒申;; along with GNU Emacs; see the file COPYING.  If not, write to
+
鐃緒申��申鐃緒申;; the Free Software Foundation, 51 Franklin Street, Fifth Floor,
+
鐃緒申��申鐃緒申;; Boston, MA 02110-1301, USA.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申;;; Commentary:
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申;;; Code:
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申(require 'quail)
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申(defconst sisheng-regexp
+
鐃緒申��申鐃緒申  "[��朝�笛�]\\|端�")
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申;; First element is the key,
+
鐃緒申��申鐃緒申;; second element is the vowel used for the input sequence,
+
鐃緒申��申鐃緒申;; last four elements are the resulting tones.
+
鐃緒申��申鐃緒申;;
+
鐃緒申��申鐃緒申(defconst sisheng-vowel-table
+
鐃緒申��申鐃緒申  '(("�" "a" "�" "叩" "�" "�")
+
鐃緒申��申鐃緒申    ("�" "e" "�" "辿" "�" "竪")
+
鐃緒申��申鐃緒申    ("朝" "i" "朝" "鱈" "�" "狸")
+
鐃緒申��申鐃緒申    ("�" "o" "�" "坦" "�" "嘆")
+
鐃緒申��申鐃緒申    ("笛" "u" "笛" "炭" "�" "湛")
+
鐃緒申��申鐃緒申    ("�" "v" "�" "�" "�" "�")
+
鐃緒申��申鐃緒申    ("端�" "ve" "端�" "端辿" "端�" "端竪")))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申;; All possible syllables in Mandarin Chinese, presented in the first
+
鐃緒申��申鐃緒申;; tone.  Note that make-sisheng-rules always constructs rules for all
+
鐃緒申��申鐃緒申;; four tones even if some of those tones aren't used in Mandarin.
+
鐃緒申��申鐃緒申;;
+
鐃緒申��申鐃緒申(defconst sisheng-syllable-table
+
鐃緒申��申鐃緒申  '("�" "�i" "�n" "�ng" "�o"
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申    "b�" "b�i" "b�n" "b�ng" "b�o"
+
鐃緒申��申鐃緒申    "b�i" "b�n" "b�ng"
+
鐃緒申��申鐃緒申    "b朝" "bi�n" "bi�o" "bi�" "b朝n" "b朝ng"
+
鐃緒申��申鐃緒申    "b�"
+
鐃緒申��申鐃緒申    "b笛"
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申    "c�" "c�i" "c�n" "c�ng" "c�o"
+
鐃緒申��申鐃緒申    "c�" "c�n" "c�ng"
+
鐃緒申��申鐃緒申    "c朝"
+
鐃緒申��申鐃緒申    "c�ng" "c�u"
+
鐃緒申��申鐃緒申    "c笛" "cu�n" "cu朝" "c笛n" "cu�"
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申    "ch�" "ch�i" "ch�n" "ch�ng" "ch�o"
+
鐃緒申��申鐃緒申    "ch�" "ch�n" "ch�ng"
+
鐃緒申��申鐃緒申    "ch朝"
+
鐃緒申��申鐃緒申    "ch�ng" "ch�u"
+
鐃緒申��申鐃緒申    "ch笛" "chu�" "chu�i" "chu�n" "chu�ng" "chu朝" "ch笛n" "chu�"
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申    "d�" "d�i" "d�n" "d�ng" "d�o"
+
鐃緒申��申鐃緒申    "d�" "d�i" "d�n" "d�ng"
+
鐃緒申��申鐃緒申    "d朝" "di�n" "di�o" "di�" "d朝ng" "di笛"
+
鐃緒申��申鐃緒申    "d�ng" "d�u"
+
鐃緒申��申鐃緒申    "d笛" "du�n" "du朝" "d笛n" "du�"
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申    "�" "�i" "�n" "�ng" "�r"
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申    "f�" "f�n" "f�ng"
+
鐃緒申��申鐃緒申    "f�i" "f�n" "f�ng"
+
鐃緒申��申鐃緒申    "fi�o"
+
鐃緒申��申鐃緒申    "f�" "f�u"
+
鐃緒申��申鐃緒申    "f笛"
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申    "g�" "g�i" "g�n" "g�ng" "g�o"
+
鐃緒申��申鐃緒申    "g�" "g�i" "g�n" "g�ng"
+
鐃緒申��申鐃緒申    "g�ng" "g�u"
+
鐃緒申��申鐃緒申    "g笛" "gu�" "gu�i" "gu�n" "gu�ng" "gu朝" "g笛n" "gu�"
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申    "h�" "h�i" "h�n" "h�ng" "h�o"
+
鐃緒申��申鐃緒申    "h�" "h�i" "h�n" "h�ng"
+
鐃緒申��申鐃緒申    "h�ng" "h�u"
+
鐃緒申��申鐃緒申    "h笛" "hu�" "hu�i" "hu�n" "hu�ng" "hu朝" "h笛n" "hu�"
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申    "j朝" "ji�" "ji�n" "ji�ng" "ji�o" "ji�" "j朝n" "j朝ng" "ji�ng" "ji笛"
+
鐃緒申��申鐃緒申    "j笛" "ju�n" "ju�" "j笛n"
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申    "k�" "k�i" "k�n" "k�ng" "k�o"
+
鐃緒申��申鐃緒申    "k�" "k�i" "k�n" "k�ng"
+
鐃緒申��申鐃緒申    "k�ng" "k�u"
+
鐃緒申��申鐃緒申    "k笛" "ku�" "ku�i" "ku�n" "ku�ng" "ku朝" "k笛n" "ku�"
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申    "l�" "l�i" "l�n" "l�ng" "l�o"
+
鐃緒申��申鐃緒申    "l�" "l�i" "l�ng"
+
鐃緒申��申鐃緒申    "l朝" "li�" "li�n" "li�ng" "li�o" "li�" "l朝n" "l朝ng" "li笛"
+
鐃緒申��申鐃緒申    "l�ng" "l�u"
+
鐃緒申��申鐃緒申    "l笛" "lu�n" "l笛n" "lu�"
+
鐃緒申��申鐃緒申    "l�" "l端�"
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申    "m�" "m�i" "m�n" "m�ng" "m�o"
+
鐃緒申��申鐃緒申    "m�" "m�i" "m�n" "m�ng"
+
鐃緒申��申鐃緒申    "m朝" "mi�n" "mi�o" "mi�" "m朝n" "m朝ng" "mi笛"
+
鐃緒申��申鐃緒申    "m�" "m�u"
+
鐃緒申��申鐃緒申    "m笛"
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申    "n�" "n�i" "n�n" "n�ng" "n�o"
+
鐃緒申��申鐃緒申    "n�" "n�i" "n�n" "n�ng"
+
鐃緒申��申鐃緒申    "n朝" "ni�n" "ni�ng" "ni�o" "ni�" "n朝n" "n朝ng" "ni笛"
+
鐃緒申��申鐃緒申    "n�ng" "n�u"
+
鐃緒申��申鐃緒申    "n笛" "nu�n" "nu�"
+
鐃緒申��申鐃緒申    "n�" "n端�"
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申    "�" "�u"
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申    "p�" "p�i" "p�n" "p�ng" "p�o"
+
鐃緒申��申鐃緒申    "p�i" "p�n" "p�ng"
+
鐃緒申��申鐃緒申    "p朝" "pi�n" "pi�o" "pi�" "p朝n" "p朝ng"
+
鐃緒申��申鐃緒申    "p�" "p�u"
+
鐃緒申��申鐃緒申    "p笛"
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申    "q朝" "qi�" "qi�n" "qi�ng" "qi�o" "qi�" "q朝n" "q朝ng" "qi�ng" "qi笛"
+
鐃緒申��申鐃緒申    "q笛" "qu�n" "qu�" "q笛n"
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申    "r�n" "r�ng" "r�o"
+
鐃緒申��申鐃緒申    "r�" "r�n" "r�ng"
+
鐃緒申��申鐃緒申    "r朝"
+
鐃緒申��申鐃緒申    "r�ng" "r�u"
+
鐃緒申��申鐃緒申    "r笛" "ru�" "ru�n" "ru朝" "r笛n" "ru�"
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申    "s�" "s�i" "s�n" "s�ng" "s�o"
+
鐃緒申��申鐃緒申    "s�" "s�n" "s�ng"
+
鐃緒申��申鐃緒申    "s朝"
+
鐃緒申��申鐃緒申    "s�ng" "s�u"
+
鐃緒申��申鐃緒申    "s笛" "su�n" "su朝" "s笛n" "su�"
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申    "sh�" "sh�i" "sh�n" "sh�ng" "sh�o"
+
鐃緒申��申鐃緒申    "sh�" "sh�i" "sh�n" "sh�ng"
+
鐃緒申��申鐃緒申    "sh朝"
+
鐃緒申��申鐃緒申    "sh�u"
+
鐃緒申��申鐃緒申    "sh笛" "shu�" "shu�i" "shu�n" "shu�ng" "shu朝" "sh笛n" "shu�"
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申    "t�" "t�i" "t�n" "t�ng" "t�o"
+
鐃緒申��申鐃緒申    "t�" "t�i" "t�ng"
+
鐃緒申��申鐃緒申    "t朝" "ti�n" "ti�o" "ti�" "t朝ng"
+
鐃緒申��申鐃緒申    "t�ng" "t�u"
+
鐃緒申��申鐃緒申    "t笛" "tu�n" "tu朝" "t笛n" "tu�"
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申    "w�" "w�i" "w�n" "w�ng"
+
鐃緒申��申鐃緒申    "w�i" "w�n" "w�ng"
+
鐃緒申��申鐃緒申    "w�"
+
鐃緒申��申鐃緒申    "w笛"
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申    "x朝" "xi�" "xi�n" "xi�ng" "xi�o" "xi�" "x朝n" "x朝ng" "xi�ng" "xi笛"
+
鐃緒申��申鐃緒申    "x笛" "xu�n" "xu�" "x笛n"
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申    "y�" "y�n" "y�ng" "y�o"
+
鐃緒申��申鐃緒申    "y�"
+
鐃緒申��申鐃緒申    "y朝" "y朝n" "y朝ng"
+
鐃緒申��申鐃緒申    "y�" "y�ng" "y�u"
+
鐃緒申��申鐃緒申    "y笛" "yu�n" "yu�" "y笛n"
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申    "z�" "z�i" "z�n" "z�ng" "z�o"
+
鐃緒申��申鐃緒申    "z�" "z�i" "z�n" "z�ng"
+
鐃緒申��申鐃緒申    "z朝"
+
鐃緒申��申鐃緒申    "z�ng" "z�u"
+
鐃緒申��申鐃緒申    "z笛" "zu�n" "zu朝" "z笛n" "zu�"
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申    "zh�" "zh�i" "zh�n" "zh�ng" "zh�o"
+
鐃緒申��申鐃緒申    "zh�" "zh�i" "zh�n" "zh�ng"
+
鐃緒申��申鐃緒申    "zh朝"
+
鐃緒申��申鐃緒申    "zh�ng" "zh�u"
+
鐃緒申��申鐃緒申    "zh笛" "zhu�" "zhu�i" "zhu�n" "zhu�ng" "zhu朝" "zh笛n" "zhu�"))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申;; This function converts e.g.
+
鐃緒申��申鐃緒申;;
+
鐃緒申��申鐃緒申;;   "zhu�"
+
鐃緒申��申鐃緒申;;
+
鐃緒申��申鐃緒申;; into
+
鐃緒申��申鐃緒申;;
+
鐃緒申��申鐃緒申;;   (("zhuo4" ["zhu嘆"])
+
鐃緒申��申鐃緒申;;    ("zhuo3" ["zhu�"])
+
鐃緒申��申鐃緒申;;    ("zhuo2" ["zhu坦"])
+
鐃緒申��申鐃緒申;;    ("zhuo1" ["zhu�"]))
+
鐃緒申��申鐃緒申;;
+
鐃緒申��申鐃緒申(defun quail-make-sisheng-rules (syllable)
+
鐃緒申��申鐃緒申  (let ((case-fold-search t)
+
鐃緒申��申鐃緒申	vowel-match
+
鐃緒申��申鐃緒申	vowel-list
+
鐃緒申��申鐃緒申	input-vowel
+
鐃緒申��申鐃緒申	base-key
+
鐃緒申��申鐃緒申	key
+
鐃緒申��申鐃緒申	value
+
鐃緒申��申鐃緒申	key-value-list
+
鐃緒申��申鐃緒申	(i 1))
+
鐃緒申��申鐃緒申    (string-match sisheng-regexp syllable)
+
鐃緒申��申鐃緒申    (setq vowel-match (downcase (match-string 0 syllable)))
+
鐃緒申��申鐃緒申    (setq vowel-list
+
鐃緒申��申鐃緒申	  (cdr (assoc-string vowel-match sisheng-vowel-table)))
+
鐃緒申��申鐃緒申    (setq input-vowel (car vowel-list))
+
鐃緒申��申鐃緒申    (setq base-key (replace-match input-vowel nil nil syllable))
+
鐃緒申��申鐃緒申    (while (<= i 4)
+
鐃緒申��申鐃緒申      (setq key (concat base-key (number-to-string i)))
+
鐃緒申��申鐃緒申      (setq value (vector (replace-match (nth i vowel-list) nil nil syllable)))
+
鐃緒申��申鐃緒申      (push (list key value) key-value-list)
+
鐃緒申��申鐃緒申      (setq i (1+ i)))
+
鐃緒申��申鐃緒申    key-value-list))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申;; Set up sisheng input method.
+
鐃緒申��申鐃緒申;;
+
鐃緒申��申鐃緒申(quail-define-package
+
鐃緒申��申鐃緒申 "chinese-sisheng"			; name
+
鐃緒申��申鐃緒申 "Chinese"				; language
+
鐃緒申��申鐃緒申 "�"					; title
+
鐃緒申��申鐃緒申 t					; guidance
+
鐃緒申��申鐃緒申 "S狸sh�ng input method for p朝ny朝n transliteration of Chinese.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Examples: shuang1 -> shu�ng
+
鐃緒申��申鐃緒申          Lv3     -> L�
+
鐃緒申��申鐃緒申          AN4     -> �N
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Use the fifth (unstressed) tone for syllables containing `端'
+
鐃緒申��申鐃緒申without a tone mark.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申Example:  nve5    -> n端e
+
鐃緒申��申鐃緒申"					; docstring
+
鐃緒申��申鐃緒申 nil					; translation-keys
+
鐃緒申��申鐃緒申 t					; forget-last-selection
+
鐃緒申��申鐃緒申 nil					; deterministic
+
鐃緒申��申鐃緒申 nil					; kbd-translate
+
鐃緒申��申鐃緒申 nil					; show-layout
+
鐃緒申��申鐃緒申 nil					; create-decode-map
+
鐃緒申��申鐃緒申 nil					; maximum-shortest
+
鐃緒申��申鐃緒申 nil					; overlay-plist
+
鐃緒申��申鐃緒申 nil					; update-translation-function
+
鐃緒申��申鐃緒申 nil					; conversion-keys
+
鐃緒申��申鐃緒申 t					; simple
+
鐃緒申��申鐃緒申 )
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申;; Call quail-make-sisheng-rules for all syllables in sisheng-syllable-table.
+
鐃緒申��申鐃緒申;;
+
鐃緒申��申鐃緒申(let ((case-table-save (current-case-table))
+
鐃緒申��申鐃緒申      sisheng-list)
+
鐃緒申��申鐃緒申  (set-case-table (standard-case-table))
+
鐃緒申��申鐃緒申  (dolist (syllable sisheng-syllable-table)
+
鐃緒申��申鐃緒申    (setq sisheng-list
+
鐃緒申��申鐃緒申	  (append (quail-make-sisheng-rules syllable)
+
鐃緒申��申鐃緒申		  sisheng-list)))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申  (dolist (syllable sisheng-syllable-table)
+
鐃緒申��申鐃緒申    (setq sisheng-list
+
鐃緒申��申鐃緒申	  (append (quail-make-sisheng-rules (upcase-initials syllable))
+
鐃緒申��申鐃緒申		  sisheng-list)))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申  (dolist (syllable sisheng-syllable-table)
+
鐃緒申��申鐃緒申    (setq sisheng-list
+
鐃緒申��申鐃緒申	  (append (quail-make-sisheng-rules (upcase syllable))
+
鐃緒申��申鐃緒申		  sisheng-list)))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申  (eval `(quail-define-rules
+
鐃緒申��申鐃緒申	  ,@sisheng-list
+
鐃緒申��申鐃緒申	
+
鐃緒申��申鐃緒申	  ("lv5" ["l端"])
+
鐃緒申��申鐃緒申	  ("lve5" ["l端e"])
+
鐃緒申��申鐃緒申	  ("nv5" ["n端"])
+
鐃緒申��申鐃緒申	  ("nve5" ["n端e"])
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申	  ("Lv5" ["L端"])
+
鐃緒申��申鐃緒申	  ("Lve5" ["L端e"])
+
鐃緒申��申鐃緒申	  ("Nv5" ["N端"])
+
鐃緒申��申鐃緒申	  ("Nve5" ["N端e"])
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申	  ("LV5" ["L�"])
+
鐃緒申��申鐃緒申	  ("LVE5" ["L�E"])
+
鐃緒申��申鐃緒申	  ("NV5" ["N�"])
+
鐃緒申��申鐃緒申	  ("NVE5" ["N�E"])))
+
鐃緒申��申鐃緒申  (set-case-table case-table-save))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申;; Local Variables:
+
鐃緒申��申鐃緒申;; coding: utf-8
+
鐃緒申��申鐃緒申;; End:
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申;;; arch-tag: 1fa6ba5f-6747-44bc-bf12-30628ad3e8ad