Mercurial > emacs
changeset 29597:79fb788042f3
(tibetan-composable-pattern): Fix previous change.
(tibetan-vowel-transcription-alist): More rules added.
(tibetan-composite-vowel-alist): New variable.
(tibetan-precomposition-rule-alist): More rules added.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Mon, 12 Jun 2000 06:51:13 +0000 |
| parents | c3845ffcb423 |
| children | dc0508271204 |
| files | lisp/language/tibetan.el |
| diffstat | 1 files changed, 45 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/language/tibetan.el Mon Jun 12 06:11:56 2000 +0000 +++ b/lisp/language/tibetan.el Mon Jun 12 06:51:13 2000 +0000 @@ -99,14 +99,19 @@ (features tibet-util) (documentation . t) (sample-text . -"Tibetan (4$(7"7r'"]0"7"]14"20"21!;4%P0"G#!"Q14"20"21!;(B) $(7!4!5!5!>4"70"714$P0"!#C"Q1!;4"Er'"S0"E"S14"G0"G1!;4"70"714"2r'"[0"2"[1!;4"Dr'"[0"D"[14"#0"#14"G0"G1!>4"Ir'"]r'"_0"I"]"_1!;4"90"9"Q1!;4"/r'"S0"/"S1!;4"50"5"Q1#2#9"[!;4"Hx!"Rx!"Ur'"c0"H"A"U"c1!>(B"))) +"Tibetan (4$(7"7r'"]0"7"]14"20"21!;4%P0"G#!"Q14"20"21!;(B) $(7!4!5!5!>4"70"714$P0"!#C"Q1!;4"Er'"S0"E"S14"G0"G1!;4"70"714"2r'"[0"2"[1!;4"Dr'"[0"D"[14"#0"#14"G0"G1!>4"Ir'"]r'"_0"I"]"_1!;4"90"9"Q1!;4"/r'"S0"/"S1!;4"50"5"Q14#2x!#9r'"[0"2#9"[1!;4"Hx!"Rx!"Ur'"c0"H"A"U"c1!>(B"))) ;; `$(7"A(B' is included in the pattern for subjoined consonants because we ;; treat it specially in tibetan-add-components. ;; modified by Tomabechi 1999/12/10 +;; modified by Tomabechi 2000/06/08 +;; To allow infinite addition of vowels/modifiers +;; as specified in Unicode v.3 +;; $(7"A(B is removed from the class of subjoined. Tomabechi 2000/06/08 +;; (for Unicode support) (defconst tibetan-composable-pattern - "[$(7"!(B-$(7"J"K(B][$(7"A#!(B-$(7#J#K#L#M(B]*$(7"R(B?[$(7"Q"S(B-$(7"^"a"e(B]?[$(7"_"c"d"g(B-$(7"l!I!e!g(B]*" + "[$(7"!(B-$(7"J"K(B][$(7#!(B-$(7#J#K#L#M(B]*[$(7"Q"R"S(B-$(7"^"a"b"e(B]*[$(7"_"c"d"g(B-$(7"l!I!e!g(B]*" "Regexp matching a composable sequence of Tibetan characters.") ;; Register a function to compose Tibetan characters. @@ -169,7 +174,19 @@ (defconst tibetan-vowel-transcription-alist - '(("ai" . "$(7"\(B") + '( + ;; Composite Vowels + ;; Added by Tomabechi 2000/06/08 + ("frr" . "$(7"X(B") + ("fll" . "$(7"Z(B") + ("fa" . "$(7"R(B") + ("fi" . "$(7"T(B") + ("fu" . "$(7"V(B") + ("fr" . "$(7"W(B") + ("fl" . "$(7"Y(B") + ("fI" . "$(7"b(B") + ;; Normal Vowels + ("ai" . "$(7"\(B") ("au" . "$(7"^(B") ("ee" . "$(7"\(B") ("oo" . "$(7"^(B") @@ -408,6 +425,30 @@ ;; Added by Tomabechi 1999/12/10 ("$(7"K(B" . "$(7#M(B") ;; Fixed form RA (224B->234D) )) + +;;; alist for Tibetan composite vowels (long i, vocalic r, etc.) +;;; New varialble. created by Tomabechi 2000/06/08 +(defconst tibetan-composite-vowel-alist + '(;; LONG A + ;; ("$(7"R(B" . ((bc . tc) ?$(7"R(B)) + ;; LONG I + ("$(7"T(B" . (?$(7"R(B (tc . bc) ?$(7"S(B)) + ;; LONG U + ("$(7"V(B" . (?$(7"R(B (bc . tc) ?$(7"U(B)) + ;; VOCALIC R + ("$(7"W(B" . (?$(7#C(B (tc . bc) ?$(7"a(B)) + ;; LONG VOCALIC R + ("$(7"X(B" . (?$(7#C(B (bc . tc) ?$(7"R(B (tc . bc) ?$(7"a(B)) + ;; VOCALIC L + ("$(7"Y(B" . (?$(7#D(B (tc . bc) ?$(7"a(B)) + ;;$(7!;(BLONG VOCALIC L + ("$(7"Z(B" . (?$(7#D(B (bc . tc) ?$(7"R(B (tc . bc) ?$(7"a(B)) + ;; LONG REVERSE I + ("$(7"b(B" . (?$(7"R(B (tc . bc) ?$(7"a(B)) + )) + + + ;;; ;;; alist for Tibetan consonantic components <-> precomposed glyph conversion. ;;; (includes some punctuation conversion rules) @@ -493,6 +534,7 @@ ("$(7"C#9(B" . "$(7%*(B") ("$(7"D#!(B" . "$(7%@(B") ("$(7"D##(B" . "$(7%A(B") + ("$(7"D#4(B" . "$(7!!(B") ; dummy 0x2121 added 2000/06/08 for transition l -> lng ("$(7"D#&(B" . "$(7%C(B") ("$(7"D#((B" . "$(7%D(B") ("$(7"D#0(B" . "$(7%E(B")