| Current File : //kunden/kunden/proc/thread-self/root/usr/share/emacs/27.2/lisp/leim/quail/tibetan.elc |
;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" #$))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\210\300\302!\207" [require quail tibet-util] 2)
(defalias 'quail-tibetan-update-translation #[(control-flag) "\247\203 \306 !\307 !{\310\311 \"\f\"\202> \312\313 \"\203$ \311 \314\"\315 !\211 \316H\317V\2037 \320
!\202= \n\204= )\207" [control-flag quail-overlay quail-current-str quail-current-key unread-command-events str overlay-start overlay-end append substring string-match "^-[dy]" 1 tibetan-transcription-to-tibetan 0 255 tibetan-compose-string] 5])
(defconst tibetan-wylie-non-stacking-alist '(("-d" . "ད") ("-y" . "ཡ")))
(defconst tibetan-wylie-punctuation-alist '(("." . " ") (":" . "ཿ") (" " . "་") ("/" . "།") ("//" . "༎") ("////" . ["༎ ༎"]) ("$" . "༏") ("/\"" . "༐") ("&" . "༐") (";" . "༑") ("%" . "༔") ("!" . "༈") ("<" . "༼") (">" . "༽") ("@" . "྅") ("*" . ["༄༅"]) ("#" . ["༄༅༅"]) ("^" . "༆") ("0" . "༠") ("1" . "༡") ("2" . "༢") ("3" . "༣") ("4" . "༤") ("5" . "༥") ("6" . "༦") ("7" . "༧") ("8" . "༨") ("9" . "༩") ("-0" . "༳") ("-1" . "༪") ("-2" . "༫") ("-3" . "༬") ("-4" . "༭") ("-5" . "༮") ("-6" . "༯") ("-7" . "༰") ("-8" . "༱") ("-9" . "༲") ("|" . "ༀ༁༂༃༇༉༊༒༓༕༖༗༘༙༚༛༜༝༞༟༴༶༸༺༻༾༿྾྿࿀࿁࿂࿃࿄࿅࿆࿇࿈࿉࿊࿋࿌࿏")))
(byte-code "\300\301\302\303\304\305\306\211\211\211\211\211\211\211\307&\210\310\311\312!!\207" [quail-define-package "tibetan-wylie" "Tibetan" "TIBw" t "Tibetan character input by Extended Wylie key assignment.\n\n +-------------------------------------+\n |ཀ་ k |ཁ་ kh |ག་ g |གྷ་ gh |ང་ ng| ི i ། /\n |ཅ་ c |ཆ་ ch |ཇ་ j | |ཉ་ ny| ུ u ༎ //\n |ཊ་ T |ཋ་ TH |ཌ་ D |ཌྷ་ DH |ཎ་ N | ེ e ༎ ༎ ////\n |ཏ་ t |ཐ་ th |ད་ d |དྷ་ dh |ན་ n | ོ o ༑ ;\n |པ་ p |ཕ་ ph |བ་ b |བྷ་ bh |མ་ m | ཻ ai (ee, E) ༏ $\n |ཙ་ ts|ཚ་ tsh|ཛ་ dz |ཛྷ་ dzh|ཝ་ w | ཽ au (oo, O) ༐ &\n |ཞ་ zh|ཟ་ z |འ་ \\=' | |ཡ་ y | ྀ I ༄༅ *\n |ར་ r |ལ་ l |ཤ་ sh |ཥ་ SH |ས་ s | ཿ : ༄༅༅ #\n |ཧ་ h |ཨ་ A |ཀྵ་ kSH| | | ཾ M ༼ ༽ < >\n +-------------------------------------+ ༔ %\n (The consonant ཨ་ must be typed explicitly.)\n\n NOT SPECIFIED IN EXT. WYLIE:\n +--------------------------------------------------------+\n |ྂ = ~ |ྃ = \\=` |྄ = , |྅ = @ |༷ = _o|༵ = _O|༆ = ^|\n +--------------------------------------------------------+\n |ྈ = x |ྉ = X |྆ = v |྇ = V |ྊ = q |ྋ = Q |\n +-----------------------------------------------+\n\n SPECIAL KEYS\n + : Consonant Stacking\n (Consonant stacking for ordinary Tibetan is done automatically)\n - : No Consonant Stacking\n (To suppress automatic stacking for \"g-y\",\n and to get da-drag in -r-d, -l-d .)\n | : Special signs.\n\n Tsheg is assigned to SPC. Space is assigned to period `.'.\n" nil quail-tibetan-update-translation quail-install-map quail-map-from-table ((base-state (tibetan-consonant-transcription-alist . svm-state) (tibetan-precomposed-transcription-alist . svm-state) (tibetan-wylie-non-stacking-alist . svm-state) tibetan-subjoined-transcription-alist tibetan-vowel-transcription-alist tibetan-modifier-transcription-alist tibetan-wylie-punctuation-alist) (svm-state (tibetan-vowel-transcription-alist . vm-state) (tibetan-subjoined-transcription-alist . svm-state) (tibetan-modifier-transcription-alist . m-state)) (vm-state (tibetan-vowel-transcription-alist . vm-state) (tibetan-modifier-transcription-alist . m-state)) (m-state (tibetan-modifier-transcription-alist . m-state)))] 15)
(defconst tibetan-tibkey-to-transcription-alist '(("`" . "`") ("~" . "~") ("q" . "k") ("Q" . "kSH") ("w" . "kh") ("e" . "g") ("r" . "ng") ("t" . "c") ("T" . "I") ("y" . "ch") ("u" . "j") ("i" . "ny") ("o" . "t") ("O" . "T") ("p" . "th") ("P" . "TH") ("[" . "d") ("{" . "D") ("]" . "n") ("}" . "N") ("a" . "p") ("A" . "a") ("s" . "ph") ("d" . "b") ("f" . "m") ("F" . "M") ("g" . "u") ("G" . "i") ("H" . ",") ("j" . "o") ("J" . "e") ("k" . "ts") ("l" . "tsh") (";" . "dz") ("'" . "w") ("\"" . "+w") ("z" . "zh") ("x" . "z") ("c" . "'") ("C" . "+'") ("v" . "y") ("V" . "+y") ("b" . "r") ("B" . "+r") ("n" . "l") ("N" . "+l") ("m" . "sh") ("M" . "SH") ("," . "s") ("." . "h") ("/" . "A") ("hq" . "+k") ("hQ" . "+kSH") ("hw" . "+kh") ("he" . "+g") ("hr" . "+ng") ("ht" . "+c") ("hy" . "+ch") ("hu" . "+j") ("hi" . "+ny") ("ho" . "+t") ("hO" . "+T") ("hp" . "+th") ("hP" . "+TH") ("h[" . "+d") ("h{" . "+D") ("h]" . "+n") ("h}" . "+N") ("ha" . "+p") ("hs" . "+ph") ("hd" . "+b") ("hf" . "+m") ("hk" . "+ts") ("hl" . "+tsh") ("h;" . "+dz") ("h'" . "+w") ("hz" . "+zh") ("hx" . "+z") ("hc" . "+'") ("hv" . "+y") ("hb" . "+r") ("hn" . "+l") ("hm" . "+sh") ("hM" . "+SH") ("h," . "+s") ("h." . "+h") ("h/" . "+A") ("E" . "-y")))
(defconst tibetan-consonant-tibkey-alist nil)
(defconst tibetan-subjoined-tibkey-alist nil)
(defconst tibetan-vowel-tibkey-alist nil)
(defconst tibetan-modifier-tibkey-alist nil)
(defconst tibetan-non-stacking-tibkey-alist nil)
(byte-code "\306\307\n\203p \n@\nA \307\211\211\211 \203b @A\310\230\2037 \311\202> \312\313\314\"!\315 A
J\"A\211\203 \312\313\316\"!\211 @B\fJBL\210\202 \f\204l \317\320 A\"\210-\202 +\307\207" [tibetan-tibkey-to-transcription-alist elt tail type-list tibkey-alist trans-alist ("consonant" "subjoined" "vowel" "modifier" "non-stacking") nil "non-stacking" tibetan-wylie-non-stacking-alist intern format "tibetan-%s-transcription-alist" assoc "tibetan-%s-tibkey-alist" error "No Tibetan transcription for %s" transcription type types] 6)
(defconst tibetan-punctuation-tibkey-alist '(("1" . "༡") ("!" . "༄") ("2" . "༢") ("@" . "༅") ("3" . "༣") ("4" . "༤") ("5" . "༥") ("%" . "༔") ("6" . "༦") ("^" . "༁") ("7" . "༧") ("8" . "༨") ("9" . "༩") ("(" . "༼") ("0" . "༠") (")" . "༽") ("+" . "༑") ("\\" . "༏") ("|" . "༈") ("I" . "྅") (":" . "ཿ") (">" . " ") ("?" . "།") ("??" . "༎") ("????" . ["༎ ༎"]) (" " . "་")))
(defalias 'quail-tibkey-to-transcription #[(tibkey) "G\306\307\n W\203E \307 \f\2040
\nV\2030 \310\311\n
#\f\"A\211\204
S\202 \f\203= \f B
\202A \307 *\202 \312\313 \237\"+\207" [tibkey trans-list i len trans last 0 nil assoc substring apply concat tibetan-tibkey-to-transcription-alist] 5])
(defvar quail-tibkey-characters nil)
(defalias 'quail-tibkey-update-translation #[(control-flag) "\250\203 \306 !\307 !{\310\311 \"\f\"\2024 \312 !\211 G\313V\203-
\314!)\2023 \n\2043 )\207" [control-flag quail-overlay quail-current-str quail-current-key unread-command-events transcription overlay-start overlay-end append substring quail-tibkey-to-transcription 0 quail-tibetan-update-translation] 5])
(byte-code "\300\301\302\303\304\305\306\211\211\211\211\211\211\211\307&\210\310\311\312!!\207" [quail-define-package "tibetan-tibkey" "Tibetan" "TIBt" t "Tibetan character input by TibKey key assignment.\n\n(This implementation is still incomplete.\n Therefore, the following key assignment is a provisional one.)\n\n [NOT SHIFTED]\n\n +-------------------------------------------------------+\n |`ྃ|1༡|2༢|3༣|4༤|5༥|6༦|7༧|8༨|9༩|0༠|- |= |\\༈|\n +-------------------------------------------------------+\n |qཀ|wཁ|eག|rང|tཅ|yཆ|uཇ|iཉ|oཏ|pཐ|[ད|]ན|\n +-----------------------------------------------+\n |aཔ| sཕ| dབ|fམ|gུ|h |jོ|kཙ|lཚ|;ཛ|\\='ཝ|\n +---------------------------------------------+\n |zཞ|xཟ|cའ|vཡ|bར|nལ|mཤ|,ས|.ཧ|/ཨ|\n +---------------------------------------+\n The key `h' is used for consonant stacking.\n\n [SHIFTED]\n\n +----------------------------------------------------------+\n |~ྂ|!༄|@༅|# |$ |%༔ |^༁|& |* |(༼|)༽|_ |+༑| |༈|\n +----------------------------------------------------------+\n |Qཀྵ|W |E |R |Tྀ|Y |U |I྅|Oཊ|Pཋ|{ཌ|}ཎ|\n +-----------------------------------------------+\n |A |S |D |Fཾ|Gི|H྄|Jེ|K |L |:ཿ|\"ྭ|\n +-------------------------------------------+\n |Z |X |Cཱ|Vྱ|Bྲ|Nླ|Mཥ|< |> |?། |\n +---------------------------------------+\n\n DIFFERENCE FROM THE ORIGINAL TIBKEY:\n\n 1. Vowel `a' should be typed explicitly by the key `A'.\n This is really inconvenient. But to make the coding\n scheme clear, it is desirable to have an explicit\n vowel sign for `a'.\n 2. Tsheg is assigned to SPC key. You can input a space\n by typing `>'.\n 4. To avoid the default stacking ���� and to obtain གཡ,\n type `E' instead of `v' (=ཡ).\n 3. There are many characters that are not supported in the\n current implementation (especially special signs).\n I hope I'll complete in a future revision.\n" nil quail-tibkey-update-translation quail-install-map quail-map-from-table ((base-state (tibetan-consonant-tibkey-alist . s-state) (tibetan-non-stacking-tibkey-alist . s-state) tibetan-subjoined-tibkey-alist tibetan-vowel-tibkey-alist tibetan-modifier-tibkey-alist tibetan-punctuation-tibkey-alist) (s-state (tibetan-subjoined-tibkey-alist . s-state) (tibetan-vowel-tibkey-alist . m-state)) (m-state tibetan-modifier-tibkey-alist))] 15)