%PDF-
%PDF-
Mini Shell
Mini Shell
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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 "\304\305\306\307\310\311\312\310\312\211\211\211\211\211\211\211\310&\210\312 \312\211\203/ @\313\314\n!\" A\211\204 * \312\211\203K @\313\314\315\n!!\" A\211\2048 * \312\211\203f @\313\314\n\226!\" A\211\204T *\316\317\313\320\"B!\210)\312\207" [sisheng-list 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 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)
Zerion Mini Shell 1.0