Linux iad1-shared-b7-18 6.6.49-grsec-jammy+ #10 SMP Thu Sep 12 23:23:08 UTC 2024 x86_64
Apache
: 67.205.6.31 | : 216.73.216.47
Cant Read [ /etc/named.conf ]
8.2.29
fernandoquevedo
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
README
+ Create Folder
+ Create File
/
usr /
share /
emacs /
27.1 /
lisp /
language /
[ HOME SHELL ]
Name
Size
Permission
Action
burmese.elc
1.32
KB
-rw-r--r--
cham.elc
700
B
-rw-r--r--
china-util.elc
3.87
KB
-rw-r--r--
chinese.elc
6.96
KB
-rw-r--r--
cyril-util.elc
5.08
KB
-rw-r--r--
cyrillic.elc
5.26
KB
-rw-r--r--
czech.elc
927
B
-rw-r--r--
english.elc
1.2
KB
-rw-r--r--
ethio-util.elc
54.93
KB
-rw-r--r--
ethiopic.elc
1.72
KB
-rw-r--r--
european.elc
16.89
KB
-rw-r--r--
georgian.elc
971
B
-rw-r--r--
greek.elc
1.41
KB
-rw-r--r--
hanja-util.elc
403.75
KB
-rw-r--r--
hebrew.elc
4.82
KB
-rw-r--r--
ind-util.elc
42.46
KB
-rw-r--r--
indian.elc
8.21
KB
-rw-r--r--
japan-util.elc
10.71
KB
-rw-r--r--
japanese.elc
7.39
KB
-rw-r--r--
khmer.elc
829
B
-rw-r--r--
korea-util.elc
3.57
KB
-rw-r--r--
korean.elc
2.1
KB
-rw-r--r--
lao-util.elc
10.98
KB
-rw-r--r--
lao.elc
1.59
KB
-rw-r--r--
misc-lang.elc
3.57
KB
-rw-r--r--
pinyin.elc
26.51
KB
-rw-r--r--
romanian.elc
1.18
KB
-rw-r--r--
sinhala.elc
852
B
-rw-r--r--
slovak.elc
936
B
-rw-r--r--
tai-viet.elc
1.6
KB
-rw-r--r--
thai-util.elc
7.71
KB
-rw-r--r--
thai-word.elc
198.59
KB
-rw-r--r--
thai.elc
1.93
KB
-rw-r--r--
tibet-util.elc
7.98
KB
-rw-r--r--
tibetan.elc
10.02
KB
-rw-r--r--
tv-util.elc
2.67
KB
-rw-r--r--
utf-8-lang.elc
728
B
-rw-r--r--
viet-util.elc
4.39
KB
-rw-r--r--
vietnamese.elc
2.31
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : tibet-util.elc
;ELC ;;; Compiled ;;; in Emacs version 27.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" #$)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (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)
Close
