| Current File : //proc/self/root/kunden/usr/share/emacs/27.2/lisp/language/tibet-util.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" #$))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defconst tibetan-obsolete-glyphs (byte-code "\300\301\302\303\304\305\306\307\310\307\311\312\313$B\314\310\315\311\316\317$B\320\310\321\311\312\322$B\323\310\324\311\312\325$B\326\310\327\311\330\331$B\257\f\207" [("།" . "།") ("༏" . "༏") ("༐" . "༐") ("༑" . "༑") ("ཿ" . "ཿ") ("་" . "་") ("༔" . "༔") "༎ ༎" compose-string 0 3 [3854 (Br . Bl) 32 (Br . Bl) 3854] "༄༅༅" "࿁࿂࿂࿂" 4 [4033 (Br . Bl) 4034 (Br . Bl) 4034 (Br . Bl) 4034] "༄༅" "࿁࿂࿂" [4033 (Br . Bl) 4034 (Br . Bl) 4034] "༆" "࿁࿂༙" [4033 (Br . Bl) 4034 (br . tr) 3865] "༄" "࿁࿂" 2 [4033 (Br . Bl) 4034]] 17))
#@99 Check if char CH is Tibetan character.
Returns non-nil if CH is Tibetan. Otherwise, returns nil.
(defalias 'tibetan-char-p #[(ch) "\301!\302>\207" [ch char-charset (tibetan tibetan-1-column)] 2 (#$ . 1040)])
#@74 Transcribe Tibetan string STR and return the corresponding Roman string.
(defalias 'tibetan-tibetan-to-transcription #[(str) "\306G\307\306\211 \fW\203] \310 #\211 =\2034 \307\225\311\312\313\307\"\"A\"@\202U \314 \211T# T\311\n\"\206S \311\n\"\206S \311\n\"@
B)\202 \315\316
\237\"-\207" [str this-trans ch i len trans nil 0 string-match rassoc assoc match-string substring apply concat tibetan-precomposition-rule-regexp idx tibetan-precomposition-rule-alist tibetan-precomposed-transcription-alist tibetan-consonant-transcription-alist tibetan-vowel-transcription-alist tibetan-subjoined-transcription-alist] 6 (#$ . 1256)])
#@115 Convert Tibetan Roman string STR to Tibetan character string.
The returned string has no composition information.
(defalias 'tibetan-transcription-to-tibetan #[(str) "\306\307\306\211\211 \310
#\211\203n W\203$ \311 #\nB\312\307\"\307\225\313\"A\211 \203E \314\"@\202e \313\"\206b \313\"\206b \313\"\206b \313\"A\nB)\202\n GW\203~ \311 \"\nB\315\316\n\237\"-\207" [subtrans i t-str-list idx case-fold-search tibetan-regexp nil 0 string-match substring match-string assoc rassoc apply concat str tibetan-precomposed-transcription-alist t-char tibetan-precomposition-rule-alist tibetan-consonant-transcription-alist tibetan-vowel-transcription-alist tibetan-modifier-transcription-alist tibetan-subjoined-transcription-alist] 6 (#$ . 1922)])
(defalias 'tibetan-add-components #[(components char) "\306!\307\310\311\211\211 \312>\203/ \313\314\315!\"AA!\314\315!\"A@\316!\317H\203=
\202\240 \316!\320H\203^ \321=\204T \322=\203Y \311\202\240 \f\202\240 @\323U\203w \324>\204w \325\240\210\f\202\240 \315@! \326U\204\235 \327\330 \"\203\235 \331\314\315@! \"A!\240\210\f) \203\254 D\241\210\n\205\264 \n\244.\207" [components tmp comp-vowel rule stack-under stack-upper last (tc . bc) (bc . tc) nil (3955 3957 3958 3959 3960 3961 3969) copy-sequence assoc char-to-string char-category-set 50 51 1638542 3952 3938 (4013 3953 4017 4018) 1638401 3953 string-match "[ཀ-ཛྷཞཟལ-ཀྵཪ]" string-to-char char tibetan-composite-vowel-alist laststr tibetan-base-to-subjoined-alist] 6])
#@29 Compose Tibetan string STR.
(defalias 'tibetan-compose-string #[(str) "\306\307 \n#\211\203X \306\225\310 \307\n#=\2031 \306\225\311\312\313\306\n\"\"A!C\2029 \nHCT\fW\203M \314 \nH\"\210T\211\202: \315\n
\f $\210+\202 )\n\207" [idx tibetan-composable-pattern str components to from 0 string-match nil string-to-char assoc match-string tibetan-add-components compose-string tibetan-precomposition-rule-regexp tibetan-precomposition-rule-alist] 6 (#$ . 3518)])
#@46 Compose Tibetan text the region BEG and END.
(defalias 'tibetan-compose-region #[(beg end) "\306\211\211\212\214 \f}\210eb\210\307
\306\310#\205i \311\224\311\225\306 \211 b\210\312!\203@ \313\314\315\311!\"A!C\311\225b\210\202I fC\316u\210`W\203\\ \317g\"\210\316u\210\202I \320#\210+\202 -\207" [chars result str beg end tibetan-composable-pattern nil re-search-forward t 0 looking-at string-to-char assoc match-string 1 tibetan-add-components compose-region components to from tibetan-precomposition-rule-regexp tibetan-precomposition-rule-alist] 5 (#$ . 4007) "r"])
(defvar tibetan-decompose-precomposition-alist (mapcar #[(x) "\301A!@B\207" [x string-to-char] 2] tibetan-precomposition-rule-alist))
#@186 Decompose Tibetan text in the region FROM and TO.
This is different from decompose-region because precomposed Tibetan characters
are decomposed into normal Tibetan character sequences.
(defalias 'tibetan-decompose-region #[(from to) "\214 }\210\305 \"\210b\210m?\205. g\211 \236\211 \203' \306\307!\210\fAc\210\202* \307u\210*\202
)\207" [from to char tibetan-decompose-precomposition-alist slot decompose-region delete-char 1] 4 (#$ . 4748) "r"])
#@166 Decompose Tibetan string STR.
This is different from decompose-string because precomposed Tibetan characters
are decomposed into normal Tibetan character sequences.
(defalias 'tibetan-decompose-string #[(str) "\306G\307\310\211 \fW\2032 H H\n\236
\203& A\202) \311\n!P T\211\202\f
-\207" [str slot char idx len new "" 0 nil char-to-string tibetan-decompose-precomposition-alist] 6 (#$ . 5208)])
(set-default 'tibetan-decomposed nil)
#@139 Decomposes Tibetan characters in the buffer into their components.
See also the documentation of the function `tibetan-decompose-region'.
(defalias 'tibetan-decompose-buffer #[nil "\301\300!\210?\205 \302ed\"\210\303\211\207" [tibetan-decomposed make-local-variable tibetan-decompose-region t] 3 (#$ . 5665) nil])
#@113 Composes Tibetan character components in the buffer.
See also docstring of the function tibetan-compose-region.
(defalias 'tibetan-compose-buffer #[nil "\301\300!\210\302ed\"\210\303\211\207" [tibetan-decomposed make-local-variable tibetan-compose-region nil] 3 (#$ . 5989) nil])
(defalias 'tibetan-post-read-conversion #[(len) "\212\214\300 `` \\}\210\303ed\"\210\304!\210\305\302!\210\306deZ+\207" [buffer-modified-p len tibetan-decomposed tibetan-compose-region set-buffer-modified-p make-local-variable nil] 3])
(defalias 'tibetan-pre-write-conversion #[(from to) "p\305\306!q\210 ;\203 c\210\202 \307\n \f#\210 \204# \310ed\"\210)\311\207" [tibetan-decomposed tibetan-decomposed-temp old-buf from to generate-new-buffer " *temp*" insert-buffer-substring tibetan-decompose-region nil] 4])
#@54 Rules for canonicalizing Tibetan vowels for Unicode.
(defvar tibetan-canonicalize-for-unicode-alist '(("����" . "") ("ཱི" . "ཱི") ("ཱུ" . "ཱུ") ("ྲྀ" . "ྲྀ") ("ཷ" . "ྲཱྀ") ("ླྀ" . "ླྀ") ("ཹ" . "ླཱྀ") ("ཱྀ" . "ཱྀ")) (#$ . 6798))
#@59 Regexp for Tibetan vowels to be canonicalized in Unicode.
(defvar tibetan-canonicalize-for-unicode-regexp "[����ཱཱིུྲྀཷླྀཹཱྀ]" (#$ . 7073))
(defalias 'tibetan-canonicalize-for-unicode-region #[(from to) "\214 }\210b\210\305\n\306\307#\205 \310\311\312! \"A \313\f!\210)\202 )\207" [from to tibetan-canonicalize-for-unicode-regexp tibetan-canonicalize-for-unicode-alist canonical-form re-search-forward nil t assoc match-string 0 replace-match] 4])
#@257 Flag to control Tibetan canonicalizing for Unicode.
If non-nil, the vowel a is removed and composite vowels are decomposed
before writing buffer in Unicode. See also
`tibetan-canonicalize-for-unicode-regexp' and
`tibetan-canonicalize-for-unicode-alist'.
(defvar tibetan-strict-unicode t (#$ . 7541))
(defalias 'tibetan-pre-write-canonicalize-for-unicode #[(from to) "p\305\306!q\210 ;\203 c\210\202 \307\n \f#\210 \203# \310ed\"\210*\311\207" [tibetan-strict-unicode strict-unicode old-buf from to generate-new-buffer " *temp*" insert-buffer-substring tibetan-canonicalize-for-unicode-region nil] 4])
(provide 'tibet-util)