JezK
Edit File: sisheng.elc
;ELC ;;; Compiled by mockbuild@buildfarm03-new.corp.cloudlinux.com on Wed Aug 19 23:55:59 2026 ;;; from file /builddir/build/BUILD/emacs-24.3/leim/quail/sisheng.el ;;; in Emacs version 24.3.1 ;;; with all optimizations. ;;; This file contains utf-8 non-ASCII characters, ;;; and so cannot be loaded into Emacs 22 or earlier. (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (string-lessp emacs-version "23") (error "`%s' was compiled for Emacs 23 or later" #$)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (require 'quail) (defconst sisheng-regexp "[āēīōūǖ]\\|üē") (defconst sisheng-vowel-table '(("ā" "a" "ā" "á" "ǎ" "à") ("ē" "e" "ē" "é" "ě" "è") ("ī" "i" "ī" "í" "ǐ" "ì") ("ō" "o" "ō" "ó" "ǒ" "ò") ("ū" "u" "ū" "ú" "ǔ" "ù") ("ǖ" "v" "ǖ" "ǘ" "ǚ" "ǜ") ("üē" "ve" "üē" "üé" "üě" "üè"))) (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ō")) (defalias 'quail-make-sisheng-rules #[(syllable) "\306\307\211\211\211\211\211\211\310 \311\"\210\312\313\"\227\314\"A\211@\315 \307\211$\316X\203^ \f\317!P\320\3158\307\211$! \nD BT\211\2029 . \207" [i key-value-list value key base-key input-vowel t nil 1 string-match match-string 0 assoc-string replace-match 4 number-to-string vector vowel-list vowel-match case-fold-search sisheng-regexp syllable sisheng-vowel-table] 10]) (byte-code "\305\306\307\310\311\312\313\311\313\211\211\211\211\211\211\211\311&\210\314 \313\315\316 !\210\n\313\211 \2037 \f@\317\320 !\"\fA\211\204& *\n\313\211 \203S \f@\317\320\321 !!\"\fA\211\204@ *\n\313\211 \203n \f@\317\320 \226!\"\fA\211\204\\ *\322\323\317\324\"B!\210\315 !\210*\313\207" [sisheng-list case-table-save sisheng-syllable-table syllable --dolist-tail-- quail-define-package "chinese-sisheng" "Chinese" "ǚ" t "Sìshēng input method for pīnyīn transliteration of Chinese.\n\nExamples: shuang1 -> shuāng\n Lv3 -> Lǚ\n AN4 -> ÀN\n\nUse the fifth (unstressed) tone for syllables containing `ü'\nwithout a tone mark.\n\nExample: nve5 -> nüe\n" nil current-case-table set-case-table standard-case-table append quail-make-sisheng-rules upcase-initials eval quail-define-rules (("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"]))] 18)