Current File : //usr/share/emacs/24.3/lisp/language/lao-util.elc

;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:10:58 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/language/lao-util.el
;;; in Emacs version 24.3.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 lao-category-table (make-category-table))
(byte-code "\305\306\307#\210\305\310\311#\210\305\312\313#\210\305\314\315#\210\316\317\n\203\200\n@\nA	@	A@\320=\203<\321\f\306#\210\202f\322>\203K\321\f\312#\210\202f\323=\203Z\321\f\310#\210\202f\324=\203f\321\f\314#\210\325\f\326#\210\325\f\327\330	8#\210\325\f\331\332	8#\210*\202*\317\207" [lao-category-table elm l ptype char define-category 99 "Lao consonant" 115 "Lao semi-vowel" 118 "Lao upper/lower vowel" 116 "Lao tone" ((3713 consonant "LETTER KOR  KAI'" "CHICKEN") (3714 consonant "LETTER KHOR KHAI'" "EGG") (3715 invalid nil) (3716 consonant "LETTER QHOR QHWARGN" "BUFFALO") (3717 invalid nil) (32 invalid nil) (3719 consonant "LETTER NGOR NGUU" "SNAKE") (3720 consonant "LETTER JOR JUA" "BUDDHIST NOVICE") (3721 invalid nil) (3722 consonant "LETTER XOR X\"ARNG" "ELEPHANT") (3723 invalid nil) (3724 invalid nil) (3725 consonant "LETTER YOR YUNG" "MOSQUITO") (3726 invalid nil) (3726 invalid nil) (3726 invalid nil) (3726 invalid nil) (3726 invalid nil) (3726 invalid nil) (3732 consonant "LETTER DOR DANG" "NOSE") (3733 consonant "LETTER TOR TAR" "EYE") (3734 consonant "LETTER THOR THUNG" "TO ASK,QUESTION") (3735 consonant "LETTER DHOR DHARM" "FLAG") (3736 invalid nil) (3737 consonant "LETTER NOR NOK" "BIRD") (3738 consonant "LETTER BOR BED" "FISHHOOK") (3739 consonant "LETTER POR PAR" "FISH") (3740 consonant "LETTER HPOR HPER\"" "BEE") (3741 consonant "LETTER FHOR FHAR" "WALL") (3742 consonant "LETTER PHOR PHUU" "MOUNTAIN") (3743 consonant "LETTER FOR FAI" "FIRE") (3744 invalid nil) (3745 consonant "LETTER MOR MAR\"" "HORSE") (3746 consonant "LETTER GNOR GNAR" "MEDICINE") (3747 consonant "LETTER ROR ROD" "CAR") (3748 invalid nil) (3749 consonant "LETTER LOR LIING" "MONKEY") (3750 invalid nil) (3751 consonant "LETTER WOR WII" "HAND FAN") (3752 invalid nil) (3753 invalid nil) (3754 consonant "LETTER SOR SEA" "TIGER") (3755 consonant "LETTER HHOR HHAI" "JAR") (3756 invalid nil) (3757 consonant "LETTER OR OOW" "TAKE") (3758 consonant "LETTER HOR HEA" "BOAT") (3759 special "ELLIPSIS") (3760 vowel-base "VOWEL SIGN SARA A") (3761 vowel-upper "VOWEL SIGN MAI KAN") (3762 vowel-base "VOWEL SIGN SARA AR") (3763 vowel-base "VOWEL SIGN SARA AM") (3764 vowel-upper "VOWEL SIGN SARA I") (3765 vowel-upper "VOWEL SIGN SARA II") (3766 vowel-upper "VOWEL SIGN SARA EU") (3767 vowel-upper "VOWEL SIGN SARA UR") (3768 vowel-lower "VOWEL SIGN SARA U") (3769 vowel-lower "VOWEL SIGN SARA UU") (3770 invalid nil) (3771 vowel-upper "VOWEL SIGN MAI KONG") (3772 semivowel-lower "SEMIVOWEL SIGN LO") (3773 vowel-base "SEMIVOWEL SIGN SARA IA") (3774 invalid nil) (3775 invalid nil) (3776 vowel-base "VOWEL SIGN SARA EE") (3777 vowel-base "VOWEL SIGN SARA AA") (3778 vowel-base "VOWEL SIGN SARA OO") (3779 vowel-base "VOWEL SIGN SARA EI MAI MUAN\"") (3780 vowel-base "VOWEL SIGN SARA AI MAI MAY") (3781 invalid nil) (3782 special "KO LA (REPETITION)") (3783 invalid nil) (3784 tone "TONE MAI EK") (3785 tone "TONE MAI THO") (3786 tone "TONE MAI TI") (3787 tone "TONE MAI JADTAWAR") (3788 tone "CANCELLATION MARK") (3789 vowel-upper "VOWEL SIGN SARA OR") (3790 invalid nil) (3791 invalid nil) (3792 special "DIGIT ZERO") (3793 special "DIGIT ONE") (3794 special "DIGIT TWO") (3795 special "DIGIT THREE") (3796 special "DIGIT FOUR") (3797 special "DIGIT FIVE") (3798 special "DIGIT SIX") (3799 special "DIGIT SEVEN") (3800 special "DIGIT EIGHT") (3801 special "DIGIT NINE") (3802 invalid nil) (3803 invalid nil) (3804 consonant "LETTER NHOR NHUU" "MOUSE") (3805 consonant "LETTER MHOR MHAR" "DOG") (3806 invalid nil)) nil consonant modify-category-entry (vowel-upper vowel-lower) semivowel-lower tone put-char-code-property phonetic-type name 2 meaning 3] 5)
#@55 Regular expression matching a Lao composite sequence.
(defvar lao-composition-pattern "\\cc\\(\\ct\\|\\cv\\ct?\\|\\cs\\(\\ct\\|\\cv\\ct?\\)?\\)" (#$ . 4310))
(defalias 'lao-compose-string #[(str) "\306 p\307\216\310\n!\210\311\312\f
#\211\203$\313
\311\225#\210\311\225\202
)
+\207" [#1=#:old-buffer #2=#:old-table lao-category-table idx lao-composition-pattern str category-table ((byte-code "rq\210\302	!\210)\302\207" [#1# #2# set-category-table] 2)) set-category-table 0 string-match compose-string] 4])
(defconst lao-transcription-consonant-alist (sort '(("k" . "ກ") ("kh" . "ຂ") ("qh" . "ຄ") ("ng" . "ງ") ("j" . "ຈ") ("s" . "ສ") ("x" . "ຊ") ("y" . "ຍ") ("d" . "ດ") ("t" . "ຕ") ("th" . "ຖ") ("dh" . "ທ") ("n" . "ນ") ("b" . "ບ") ("p" . "ປ") ("hp" . "ຜ") ("fh" . "ຝ") ("ph" . "ພ") ("f" . "ຟ") ("m" . "ມ") ("gn" . "ຢ") ("l" . "ລ") ("r" . "ຣ") ("v" . "ວ") ("w" . "ວ") ("hh" . "ຫ") ("O" . "ອ") ("h" . "ຮ") ("nh" . "ໜ") ("mh" . "ໝ") ("lh" . ["ຫຼ"]) ("ngh" . ["ຫງ"]) ("yh" . ["ຫຽ"]) ("wh" . ["ຫວ"]) ("hl" . ["ຫລ"]) ("hy" . ["ຫຍ"]) ("hn" . ["ຫນ"]) ("hm" . ["ຫມ"])) #[(x y) "@G	@GV\207" [x y] 2]))
(defconst lao-transcription-semi-vowel-alist '(("r" . "ຼ")))
(defconst lao-transcription-vowel-alist (sort '(("a" . "ະ") ("ar" . "າ") ("i" . "ິ") ("ii" . "ີ") ("eu" . "ຶ") ("ur" . "ື") ("u" . "ຸ") ("uu" . "ູ") ("e" . ["ເະ"]) ("ee" . "ເ") ("ae" . ["ແະ"]) ("aa" . "ແ") ("o" . ["ໂະ"]) ("oo" . "ໂ") ("oe" . ["ເາະ"]) ("or" . "ໍ") ("er" . ["ເິ"]) ("ir" . ["ເີ"]) ("ua" . ["ົວະ"]) ("uaa" . ["ົວ"]) ("ie" . ["ເັຽະ"]) ("ia" . ["ເັຽ"]) ("ea" . ["ເຶອ"]) ("eaa" . ["ເືອ"]) ("ai" . "ໄ") ("ei" . "ໃ") ("ao" . ["ເົາ"]) ("aM" . "ຳ")) #[(x y) "@G	@GV\207" [x y] 2]))
(defconst lao-transcription-maa-sakod-alist '(("k" . "ກ") ("g" . "ງ") ("y" . "ຍ") ("d" . "ດ") ("n" . "ນ") ("b" . "ບ") ("m" . "ມ") ("v" . "ວ") ("w" . "ວ")))
(defconst lao-transcription-tone-alist '(("'" . "່") ("\"" . "້") ("^" . "໊") ("+" . "໋") ("~" . "໌")))
(defconst lao-transcription-punctuation-alist '(("\\0" . "໐") ("\\1" . "໑") ("\\2" . "໒") ("\\3" . "໓") ("\\4" . "໔") ("\\5" . "໕") ("\\6" . "໖") ("\\7" . "໗") ("\\8" . "໘") ("\\9" . "໙") ("\\\\" . "ໆ") ("\\$" . "ຯ")))
#@61 Regexp of Roman transcription pattern for one Lao syllable.
(defconst lao-transcription-pattern (byte-code "\306\307\310\311#\312\307\310	\311#\313\307\310\n\311#\312\307\310\311#\314\307\315\f\311#\316\307\317
\311#\260\f\207" [lao-transcription-consonant-alist lao-transcription-semi-vowel-alist lao-transcription-vowel-alist lao-transcription-maa-sakod-alist lao-transcription-tone-alist lao-transcription-punctuation-alist "\\(" mapconcat car "\\|" "\\)\\(" "\\)?\\(\\(" "\\)?\\(" #[(x) "\301@!\207" [x regexp-quote] 2] "\\)?\\)?\\|" #[(x) "\301@!\207" [x regexp-quote] 2]] 15) (#$ . 6695))
#@61 Regexp of Roman transcription pattern for one Lao syllable.
(defconst lao-transcription-pattern (byte-code "\306\307\310\311\"!\312\307\310\311	\"!\313\307\310\311\n\"!\312\307\310\311\"!\314\307\310\311\f\"!\315\307\310\311
\"!\260\f\207" [lao-transcription-consonant-alist lao-transcription-semi-vowel-alist lao-transcription-vowel-alist lao-transcription-maa-sakod-alist lao-transcription-tone-alist lao-transcription-punctuation-alist "\\(" regexp-opt mapcar car "\\)\\(" "\\)?\\(\\(" "\\)?\\(" "\\)?\\)?\\|"] 15) (#$ . 7300))
#@862 Alist of Lao vowel string vs the corresponding re-ordering rule.
Each element has this form:
	(VOWEL NO-MAA-SAKOD-RULE WITH-MAA-SAKOD-RULE (MAA-SAKOD-0 RULE-0) ...)

VOWEL is a vowel string (e.g. "ເັຽະ").

NO-MAA-SAKOD-RULE is a rule to re-order and modify VOWEL following a
consonant.  It is a list vowel characters or 0.  The element 0
indicate the place to embed a consonant.

Optional WITH-MAA-SAKOD-RULE is a rule to re-order and modify VOWEL
following a consonant and preceding a maa-sakod character.  If it is
nil, NO-MAA-SAKOD-RULE is used.  The maa-sakod character is always
appended at the tail.

For instance, rule `("ເືອ" (?ເ t ?ື ?ອ))' tells that this vowel
string following a consonant `ກ' should be re-ordered as "ເກືອ".

Optional (MAA-SAKOD-n RULE-n) are rules specially applied to maa-sakod
character MAA-SAKOD-n.
(defconst lao-vowel-reordering-rule '(("ະ" (0 3760) (0 3761)) ("າ" (0 3762)) ("ິ" (0 3765)) ("ີ" (0 3765)) ("ຶ" (0 3766)) ("ື" (0 3767)) ("ຸ" (0 3768)) ("ູ" (0 3769)) ("ເະ" (3776 0 3760) (3776 0 3761)) ("ເ" (3776 0)) ("ແະ" (3777 0 3760) (3777 0 3761)) ("ແ" (3777 0)) ("ໂະ" (3778 0 3760) (0 3771) (3725 3778 0 3761) (3751 3778 0 3761)) ("ໂ" (3778 0)) ("ເາະ" (3776 0 3762 3760) (0 3761 3757)) ("ໍ" (0 3789) (0 3757)) ("ເິ" (3776 0 3764)) ("ເີ" (3776 0 3765)) ("ົວະ" (0 3771 3751 3760) (0 3761 3751)) ("ົວ" (0 3771 3751) (0 3751)) ("ເັຽະ" (3776 0 3761 3773 3760) (0 3761 3773)) ("ເັຽ" (3776 0 3761 3773) (0 3773)) ("ເຶອ" (3776 0 3766 3757)) ("ເືອ" (3776 0 3767 3757)) ("ໄ" (3780 0)) ("ໃ" (3779 0)) ("ເົາ" (3776 0 3771 3762)) ("ຳ" (0 3763))) (#$ . 7840))
#@430 Transcribe a Romanized Lao syllable in the region FROM and TO to Lao string.
Only the first syllable is transcribed.
The value has the form: (START END LAO-STRING), where
START and END are the beginning and end positions of the Roman Lao syllable,
LAO-STRING is the Lao character transcription of it.

Optional 3rd arg STR, if non-nil, is a string to search for Roman Lao
syllable.  In that case, FROM and TO are indexes to STR.
(defalias 'lao-transcribe-single-roman-syllable-to-lao #[(from to &optional str) "\203\306	\n#\211\2036\nY\203\307\2026\310\225\2026\212\nb\210\311	\312#\211\2033\310\224\2025\307)\n\205\263
\313\314\"\313\315\"\313\316\"\313\317\"\313\320\"\307\211 \307\211!\"\307\211#$\307%\310\225\f\204\321\313\310\"&\"A\202\253
\321\f'\"A\322!\203\224\310HG$
\203\305\321
(\"A $\314U\203\264 P\202\301\310\314O \314\307OQ\202\310\203\253
\307)\321*\"A!\322!!\203\346!\310H!\321!+\")\204\374)A@)\202
\321,\"A\211\"\310H)AA\236A\206
\323)8\206
)A@))\204)
\324\325!\"\210\326)\203W
)@\310U\203G
P\211G%\202N
)@CP)A\211)\2043
%\204b
\324\327\"\210G-%-W\203\203
\330%H\331\"\332>\203\203
%T\211%\202h
)\"\203\216
\"P\203\252
\321.\"A#\310%O#%\307OQ)\n\333!E.\f\207" [str lao-transcription-pattern from to consonant semivowel string-match nil 0 re-search-forward t match-string 1 3 5 8 9 assoc vectorp 2 error "Lao vowel %S has no re-ordering rule" "" "Lao vowel %S has malformed re-ordering rule" get-char-code-property phonetic-type (vowel-lower vowel-upper) lao-compose-string vowel maa-sakod tone lao-consonant lao-semivowel lao-vowel lao-maa-sakod lao-tone clen cidx lao-transcription-punctuation-alist lao-transcription-consonant-alist lao-transcription-semi-vowel-alist rule lao-transcription-vowel-alist lao-vowel-reordering-rule lao-transcription-maa-sakod-alist len lao-transcription-tone-alist] 6 (#$ . 9557)])
#@62 Transcribe Romanized Lao string STR to Lao character string.
(defalias 'lao-transcribe-roman-to-lao-string #[(str) "\306G\307\310\311\f#\211\203=	@	A@\312	8\211\f\fV\2032\n\f\fO
Q\2026\n
P+\202	\fW\203L\n\fOP\202M\n,\207" [str val lao-str to from lao 0 "" nil lao-transcribe-single-roman-syllable-to-lao 2 end start] 5 (#$ . 11552)])
(defalias 'lao-composition-function #[(gstring) "\211\211\304H)GS)\305U\203\306!\207\307!\206I\211G\310Z)\304\311\nW\203B\n\211\n\310\\H*\211\203B\nT\211\202'\312\304\n\313$+\207" [gstring glyph i glyph-len 0 1 compose-gstring-for-graphic font-shape-gstring 2 nil compose-glyph-string-relative 0.1] 6])
(defalias 'lao-compose-region #[(from to) "\214	}\210eb\210\306 p\307\216\310\f!\210\311
\312\313#\205$\314\315\224`\"\210\202,\207" [from to #1=#:old-buffer #2=#:old-table lao-category-table lao-composition-pattern category-table ((byte-code "rq\210\302	!\210)\302\207" [#1# #2# set-category-table] 2)) set-category-table re-search-forward nil t compose-region 0] 4 nil "r"])
(provide 'lao-util)