%PDF- %PDF-
Mini Shell

Mini Shell

Direktori : /usr/local/share/emacs/27.2/lisp/language/
Upload File :
Create Path :
Current File : //usr/local/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\nGW\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\254D\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\211b\210\312!\203@\313\314\315\311!\"A!C\311\225b\210\202IfC\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\2032HH\n\236
	\203&	A\202)\311\n!PT\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;\203c\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;\203c\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)

Zerion Mini Shell 1.0