From 4b725a70efa7ed781b6d5e466c8acc246f68f49d Mon Sep 17 00:00:00 2001 From: Paul Eggert Date: Mon, 1 Apr 2013 18:18:40 -0700 Subject: Use UTF-8 for most files with non-ASCII characters. * admin/notes/unicode (etc/tutorials/TUTORIAL.ko, leim/quail/hanja.el) (leim/quail/hanja3.el, leim/quail/symbol-ksc.el): Now utf-8, not iso-2022-7bit. Also, files that contain non-UTF-8 characters are now encoded in utf-8-emacs, not iso-2022-7bit. * etc/tutorials/TUTORIAL.ko, tutorials/TUTORIAL.th: Switch from iso-2022-7bit to utf-8. * leim/quail/cyrillic.el, leim/quail/czech.el, leim/quail/ethiopic.el: * leim/quail/greek.el, leim/quail/hanja.el, leim/quail/hanja3.el: * leim/quail/hebrew.el, leim/quail/lao.el, leim/quail/lrt.el: * leim/quail/slovak.el, leim/quail/symbol-ksc.el, leim/quail/thai.el: * leim/quail/tibetan.el, leim/quail/viqr.el, leim/quail/vntelex.el: * leim/quail/vnvni.el, leim/quail/welsh.el: * lisp/international/latin1-disp.el, lisp/international/mule-util.el: * lisp/language/cyril-util.el, lisp/language/european.el: * lisp/language/ind-util.el, lisp/language/lao-util.el, lisp/language/thai.el: * lisp/language/tibet-util.el, lisp/language/tibetan.el: * lisp/language/viet-util.el: Switch from iso-2022-7bit to utf-8 or (if needed) utf-8-emacs. Fixes: debbugs:13936 --- lisp/language/cyril-util.el | 216 ++++----- lisp/language/european.el | 32 +- lisp/language/ind-util.el | 1098 +++++++++++++++++++++---------------------- lisp/language/lao-util.el | 436 ++++++++--------- lisp/language/thai.el | 10 +- lisp/language/tibet-util.el | 78 +-- lisp/language/tibetan.el | 822 ++++++++++++++++---------------- lisp/language/viet-util.el | 292 ++++++------ 8 files changed, 1492 insertions(+), 1492 deletions(-) (limited to 'lisp/language') diff --git a/lisp/language/cyril-util.el b/lisp/language/cyril-util.el index 441519d542..7af8b99328 100644 --- a/lisp/language/cyril-util.el +++ b/lisp/language/cyril-util.el @@ -71,124 +71,124 @@ If the argument is nil, we return the display table to its standard state." (if (null cyrillic-language) (setq standard-display-table (make-display-table)) - (aset standard-display-table ?,LP(B [?a]) - (aset standard-display-table ?,LQ(B [?b]) - (aset standard-display-table ?,LR(B [?v]) - (aset standard-display-table ?,LS(B [?g]) - (aset standard-display-table ?,LT(B [?d]) - (aset standard-display-table ?,LU(B [?e]) - (aset standard-display-table ?,Lq(B [?y ?o]) - (aset standard-display-table ?,LV(B [?z ?h]) - (aset standard-display-table ?,LW(B [?z]) - (aset standard-display-table ?,LX(B [?i]) - (aset standard-display-table ?,LY(B [?j]) - (aset standard-display-table ?,LZ(B [?k]) - (aset standard-display-table ?,L[(B [?l]) - (aset standard-display-table ?,L\(B [?m]) - (aset standard-display-table ?,L](B [?n]) - (aset standard-display-table ?,L^(B [?o]) - (aset standard-display-table ?,L_(B [?p]) - (aset standard-display-table ?,L`(B [?r]) - (aset standard-display-table ?,La(B [?s]) - (aset standard-display-table ?,Lb(B [?t]) - (aset standard-display-table ?,Lc(B [?u]) - (aset standard-display-table ?,Ld(B [?f]) - (aset standard-display-table ?,Le(B [?k ?h]) - (aset standard-display-table ?,Lf(B [?t ?s]) - (aset standard-display-table ?,Lg(B [?c ?h]) - (aset standard-display-table ?,Lh(B [?s ?h]) - (aset standard-display-table ?,Li(B [?s ?c ?h]) - (aset standard-display-table ?,Lj(B [?~]) - (aset standard-display-table ?,Lk(B [?y]) - (aset standard-display-table ?,Ll(B [?']) - (aset standard-display-table ?,Lm(B [?e ?']) - (aset standard-display-table ?,Ln(B [?y ?u]) - (aset standard-display-table ?,Lo(B [?y ?a]) - - (aset standard-display-table ?,L0(B [?A]) - (aset standard-display-table ?,L1(B [?B]) - (aset standard-display-table ?,L2(B [?V]) - (aset standard-display-table ?,L3(B [?G]) - (aset standard-display-table ?,L4(B [?D]) - (aset standard-display-table ?,L5(B [?E]) - (aset standard-display-table ?,L!(B [?Y ?o]) - (aset standard-display-table ?,L6(B [?Z ?h]) - (aset standard-display-table ?,L7(B [?Z]) - (aset standard-display-table ?,L8(B [?I]) - (aset standard-display-table ?,L9(B [?J]) - (aset standard-display-table ?,L:(B [?K]) - (aset standard-display-table ?,L;(B [?L]) - (aset standard-display-table ?,L<(B [?M]) - (aset standard-display-table ?,L=(B [?N]) - (aset standard-display-table ?,L>(B [?O]) - (aset standard-display-table ?,L?(B [?P]) - (aset standard-display-table ?,L@(B [?R]) - (aset standard-display-table ?,LA(B [?S]) - (aset standard-display-table ?,LB(B [?T]) - (aset standard-display-table ?,LC(B [?U]) - (aset standard-display-table ?,LD(B [?F]) - (aset standard-display-table ?,LE(B [?K ?h]) - (aset standard-display-table ?,LF(B [?T ?s]) - (aset standard-display-table ?,LG(B [?C ?h]) - (aset standard-display-table ?,LH(B [?S ?h]) - (aset standard-display-table ?,LI(B [?S ?c ?h]) - (aset standard-display-table ?,LJ(B [?~]) - (aset standard-display-table ?,LK(B [?Y]) - (aset standard-display-table ?,LL(B [?']) - (aset standard-display-table ?,LM(B [?E ?']) - (aset standard-display-table ?,LN(B [?Y ?u]) - (aset standard-display-table ?,LO(B [?Y ?a]) - - (aset standard-display-table ?,Lt(B [?i ?e]) - (aset standard-display-table ?,Lw(B [?i]) - (aset standard-display-table ?,L~(B [?u]) - (aset standard-display-table ?,Lr(B [?d ?j]) - (aset standard-display-table ?,L{(B [?c ?h ?j]) - (aset standard-display-table ?,Ls(B [?g ?j]) - (aset standard-display-table ?,Lu(B [?s]) - (aset standard-display-table ?,L|(B [?k]) - (aset standard-display-table ?,Lv(B [?i]) - (aset standard-display-table ?,Lx(B [?j]) - (aset standard-display-table ?,Ly(B [?l ?j]) - (aset standard-display-table ?,Lz(B [?n ?j]) - (aset standard-display-table ?,L(B [?d ?z]) - - (aset standard-display-table ?,L$(B [?Y ?e]) - (aset standard-display-table ?,L'(B [?Y ?i]) - (aset standard-display-table ?,L.(B [?U]) - (aset standard-display-table ?,L"(B [?D ?j]) - (aset standard-display-table ?,L+(B [?C ?h ?j]) - (aset standard-display-table ?,L#(B [?G ?j]) - (aset standard-display-table ?,L%(B [?S]) - (aset standard-display-table ?,L,(B [?K]) - (aset standard-display-table ?,L&(B [?I]) - (aset standard-display-table ?,L((B [?J]) - (aset standard-display-table ?,L)(B [?L ?j]) - (aset standard-display-table ?,L*(B [?N ?j]) - (aset standard-display-table ?,L/(B [?D ?j]) + (aset standard-display-table ?а [?a]) + (aset standard-display-table ?б [?b]) + (aset standard-display-table ?в [?v]) + (aset standard-display-table ?г [?g]) + (aset standard-display-table ?д [?d]) + (aset standard-display-table ?е [?e]) + (aset standard-display-table ?ё [?y ?o]) + (aset standard-display-table ?ж [?z ?h]) + (aset standard-display-table ?з [?z]) + (aset standard-display-table ?и [?i]) + (aset standard-display-table ?й [?j]) + (aset standard-display-table ?к [?k]) + (aset standard-display-table ?л [?l]) + (aset standard-display-table ?м [?m]) + (aset standard-display-table ?н [?n]) + (aset standard-display-table ?о [?o]) + (aset standard-display-table ?п [?p]) + (aset standard-display-table ?р [?r]) + (aset standard-display-table ?с [?s]) + (aset standard-display-table ?т [?t]) + (aset standard-display-table ?у [?u]) + (aset standard-display-table ?ф [?f]) + (aset standard-display-table ?х [?k ?h]) + (aset standard-display-table ?ц [?t ?s]) + (aset standard-display-table ?ч [?c ?h]) + (aset standard-display-table ?ш [?s ?h]) + (aset standard-display-table ?щ [?s ?c ?h]) + (aset standard-display-table ?ъ [?~]) + (aset standard-display-table ?ы [?y]) + (aset standard-display-table ?ь [?']) + (aset standard-display-table ?э [?e ?']) + (aset standard-display-table ?ю [?y ?u]) + (aset standard-display-table ?я [?y ?a]) + + (aset standard-display-table ?А [?A]) + (aset standard-display-table ?Б [?B]) + (aset standard-display-table ?В [?V]) + (aset standard-display-table ?Г [?G]) + (aset standard-display-table ?Д [?D]) + (aset standard-display-table ?Е [?E]) + (aset standard-display-table ?Ё [?Y ?o]) + (aset standard-display-table ?Ж [?Z ?h]) + (aset standard-display-table ?З [?Z]) + (aset standard-display-table ?И [?I]) + (aset standard-display-table ?Й [?J]) + (aset standard-display-table ?К [?K]) + (aset standard-display-table ?Л [?L]) + (aset standard-display-table ?М [?M]) + (aset standard-display-table ?Н [?N]) + (aset standard-display-table ?О [?O]) + (aset standard-display-table ?П [?P]) + (aset standard-display-table ?Р [?R]) + (aset standard-display-table ?С [?S]) + (aset standard-display-table ?Т [?T]) + (aset standard-display-table ?У [?U]) + (aset standard-display-table ?Ф [?F]) + (aset standard-display-table ?Х [?K ?h]) + (aset standard-display-table ?Ц [?T ?s]) + (aset standard-display-table ?Ч [?C ?h]) + (aset standard-display-table ?Ш [?S ?h]) + (aset standard-display-table ?Щ [?S ?c ?h]) + (aset standard-display-table ?Ъ [?~]) + (aset standard-display-table ?Ы [?Y]) + (aset standard-display-table ?Ь [?']) + (aset standard-display-table ?Э [?E ?']) + (aset standard-display-table ?Ю [?Y ?u]) + (aset standard-display-table ?Я [?Y ?a]) + + (aset standard-display-table ?є [?i ?e]) + (aset standard-display-table ?ї [?i]) + (aset standard-display-table ?ў [?u]) + (aset standard-display-table ?ђ [?d ?j]) + (aset standard-display-table ?ћ [?c ?h ?j]) + (aset standard-display-table ?ѓ [?g ?j]) + (aset standard-display-table ?ѕ [?s]) + (aset standard-display-table ?ќ [?k]) + (aset standard-display-table ?і [?i]) + (aset standard-display-table ?ј [?j]) + (aset standard-display-table ?љ [?l ?j]) + (aset standard-display-table ?њ [?n ?j]) + (aset standard-display-table ?џ [?d ?z]) + + (aset standard-display-table ?Є [?Y ?e]) + (aset standard-display-table ?Ї [?Y ?i]) + (aset standard-display-table ?Ў [?U]) + (aset standard-display-table ?Ђ [?D ?j]) + (aset standard-display-table ?Ћ [?C ?h ?j]) + (aset standard-display-table ?Ѓ [?G ?j]) + (aset standard-display-table ?Ѕ [?S]) + (aset standard-display-table ?Ќ [?K]) + (aset standard-display-table ?І [?I]) + (aset standard-display-table ?Ј [?J]) + (aset standard-display-table ?Љ [?L ?j]) + (aset standard-display-table ?Њ [?N ?j]) + (aset standard-display-table ?Џ [?D ?j]) (when (equal cyrillic-language "Bulgarian") - (aset standard-display-table ?,Li(B [?s ?h ?t]) - (aset standard-display-table ?,LI(B [?S ?h ?t]) - (aset standard-display-table ?,Ln(B [?i ?u]) - (aset standard-display-table ?,LN(B [?I ?u]) - (aset standard-display-table ?,Lo(B [?i ?a]) - (aset standard-display-table ?,LO(B [?I ?a])) + (aset standard-display-table ?щ [?s ?h ?t]) + (aset standard-display-table ?Щ [?S ?h ?t]) + (aset standard-display-table ?ю [?i ?u]) + (aset standard-display-table ?Ю [?I ?u]) + (aset standard-display-table ?я [?i ?a]) + (aset standard-display-table ?Я [?I ?a])) (when (equal cyrillic-language "Ukrainian") ; based on the official ; transliteration table - (aset standard-display-table ?,LX(B [?y]) - (aset standard-display-table ?,L8(B [?Y]) - (aset standard-display-table ?,LY(B [?i]) - (aset standard-display-table ?,L9(B [?Y]) - (aset standard-display-table ?,Ln(B [?i ?u]) - (aset standard-display-table ?,Lo(B [?i ?a])))) + (aset standard-display-table ?и [?y]) + (aset standard-display-table ?И [?Y]) + (aset standard-display-table ?й [?i]) + (aset standard-display-table ?Й [?Y]) + (aset standard-display-table ?ю [?i ?u]) + (aset standard-display-table ?я [?i ?a])))) ;; (provide 'cyril-util) ;; Local Variables: -;; coding: iso-2022-7bit +;; coding: utf-8 ;; End: ;;; cyril-util.el ends here diff --git a/lisp/language/european.el b/lisp/language/european.el index e3156fa855..efcdf9db2c 100644 --- a/lisp/language/european.el +++ b/lisp/language/european.el @@ -1,4 +1,4 @@ -;;; european.el --- support for European languages -*- coding: iso-2022-7bit; -*- +;;; european.el --- support for European languages -*- coding: utf-8; -*- ;; Copyright (C) 1997-1998, 2000-2013 Free Software Foundation, Inc. ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, @@ -43,7 +43,7 @@ (unibyte-display . iso-latin-1) (input-method . "latin-1-prefix") (sample-text - . "Hello, Hej, Tere, Hei, Bonjour, Gr$(D+d)N(B Gott, Ciao, $(D"B(BHola!") + . "Hello, Hej, Tere, Hei, Bonjour, Grüß Gott, Ciao, ¡Hola!") (documentation . "\ This language environment is a generic one for the Latin-1 (ISO-8859-1) character set which supports the following European languages: @@ -241,7 +241,7 @@ See also the Turkish environment.")) (unibyte-display . iso-latin-8) (input-method . "latin-8-prefix") ;; Fixme: Welsh/Ga{e}lic greetings - (sample-text . ",_"(B $(D+q(B $(D*t(B") + (sample-text . "ḃ ŵ Ŷ") (documentation . "\ This language environment is a generic one for the Latin-8 (ISO-8859-14) character set which supports the Celtic languages, including those not @@ -271,7 +271,7 @@ covered by other ISO-8859 character sets: (unibyte-display . iso-latin-9) (input-method . "latin-9-prefix") (sample-text - . "AVE. $(D*^+^*v+v)-)M*s(B $(Q)!(B") + . "AVE. ŠšŽžŒœŸ €") (documentation . "\ This language environment is a generic one for the Latin-9 (ISO-8859-15) character set which supports the same languages as Latin-1 with the @@ -427,7 +427,7 @@ but it selects the Dutch tutorial and input method.")) (unibyte-display . iso-latin-1) (sample-text . "\ German (Deutsch Nord) Guten Tag -German (Deutsch S$(D+d(Bd) Gr$(D+d)N(B Gott") +German (Deutsch Süd) Grüß Gott") (documentation . "\ This language environment is almost the same as Latin-1, but sets the default input method to \"german-postfix\". @@ -442,7 +442,7 @@ Additionally, it selects the German tutorial.")) (nonascii-translation . iso-8859-1) (unibyte-display . iso-latin-1) (input-method . "latin-1-prefix") - (sample-text . "French (Fran$(D+.(Bais) Bonjour, Salut") + (sample-text . "French (Français) Bonjour, Salut") (documentation . "\ This language environment is almost the same as Latin-1, but it selects the French tutorial and input method.")) @@ -471,7 +471,7 @@ Additionally, it selects the Italian tutorial.")) (input-method . "slovenian") (unibyte-display . iso-8859-2) (tutorial . "TUTORIAL.sl") - (sample-text . "$(D*v(Belimo vam uspe$(D+^(Ben dan!") + (sample-text . "Želimo vam uspešen dan!") (documentation . "\ This language environment is almost the same as Latin-2, but it selects the Slovenian tutorial and input method.")) @@ -485,7 +485,7 @@ but it selects the Slovenian tutorial and input method.")) (input-method . "spanish-postfix") (nonascii-translation . iso-8859-1) (unibyte-display . iso-latin-1) - (sample-text . "Spanish (Espa$(D+P(Bol) $(D"B(BHola!") + (sample-text . "Spanish (Español) ¡Hola!") (documentation . "\ This language environment is almost the same as Latin-1, but it sets the default input method to \"spanish-postfix\", @@ -504,25 +504,25 @@ and it selects the Spanish tutorial.")) (nonascii-translation . iso-8859-9) (unibyte-display . iso-latin-5) (input-method . "turkish-postfix") - (sample-text . "Turkish (T$(D+d(Brk$(D+.(Be) Merhaba") + (sample-text . "Turkish (Türkçe) Merhaba") (setup-function . turkish-case-conversion-enable) (setup-function . turkish-case-conversion-disable) (documentation . "Support for Turkish. Differs from the Latin-5 environment in using the `turkish-postfix' input -method and applying Turkish case rules for the characters i, I, $(D)E(B, $(D*D(B."))) +method and applying Turkish case rules for the characters i, I, ı, İ."))) (defun turkish-case-conversion-enable () - "Set up Turkish case conversion of `i' and `I' into `$(D*D(B' and `$(D)E(B'." + "Set up Turkish case conversion of `i' and `I' into `İ' and `ı'." (let ((table (standard-case-table))) - (set-case-syntax-pair ?$(D*D(B ?i table) - (set-case-syntax-pair ?I ?$(D)E(B table))) + (set-case-syntax-pair ?İ ?i table) + (set-case-syntax-pair ?I ?ı table))) (defun turkish-case-conversion-disable () "Set up normal (non-Turkish) case conversion of `i' into `I'." (let ((table (standard-case-table))) (set-case-syntax-pair ?I ?i table) - (set-case-syntax ?$(D*D(B "w" table) - (set-case-syntax ?$(D)E(B "w" table))) + (set-case-syntax ?İ "w" table) + (set-case-syntax ?ı "w" table))) ;; Polish ISO 8859-2 environment. ;; Maintainer: Wlodek Bzyl @@ -536,7 +536,7 @@ method and applying Turkish case rules for the characters i, I, $(D)E(B, $(D* (nonascii-translation . iso-8859-2) (unibyte-display . iso-8859-2) (tutorial . "TUTORIAL.pl") - (sample-text . "P$(D+Q(Bjd$(D+u(B, ki$(D+M(B-$(D+w(Be t$(D+8(B chmurno$(D+\++(B w g$(D)H+((Bb flaszy") + (sample-text . "Pójdź, kiń-że tę chmurność w głąb flaszy") (documentation . t)) '("European")) diff --git a/lisp/language/ind-util.el b/lisp/language/ind-util.el index 8964da1ea1..c8df282e6e 100644 --- a/lisp/language/ind-util.el +++ b/lisp/language/ind-util.el @@ -1,4 +1,4 @@ -;;; ind-util.el --- Transliteration and Misc. Tools for Indian Languages -*- coding: iso-2022-7bit; -*- +;;; ind-util.el --- Transliteration and Misc. Tools for Indian Languages -*- coding: utf-8-emacs; -*- ;; Copyright (C) 2001-2013 Free Software Foundation, Inc. @@ -47,233 +47,233 @@ (defvar indian-dev-base-table '( (;; VOWELS (18) - (?$,15E(B nil) (?$,15F(B ?$,15~(B) (?$,15G(B ?$,15(B) (?$,15H(B ?$,16 (B) (?$,15I(B ?$,16!(B) (?$,15J(B ?$,16"(B) - (?$,15K(B ?$,16#(B) (?$,15L(B ?$,16B(B) (?$,15M(B ?$,16%(B) (?$,15N(B ?$,16&(B) (?$,15O(B ?$,16'(B) (?$,15P(B ?$,16((B) - (?$,15Q(B ?$,16)(B) (?$,15R(B ?$,16*(B) (?$,15S(B ?$,16+(B) (?$,15T(B ?$,16,(B) (?$,16@(B ?$,16$(B) (?$,16A(B ?$,16C(B)) + (?अ nil) (?आ ?ा) (?इ ?ि) (?ई ?ी) (?उ ?ु) (?ऊ ?ू) + (?ऋ ?ृ) (?ऌ ?ॢ) (?ऍ ?ॅ) (?ऎ ?ॆ) (?ए ?े) (?ऐ ?ै) + (?ऑ ?ॉ) (?ऒ ?ॊ) (?ओ ?ो) (?औ ?ौ) (?ॠ ?ॄ) (?ॡ ?ॣ)) (;; CONSONANTS (currently 42, including special cases) - ?$,15U(B ?$,15V(B ?$,15W(B ?$,15X(B ?$,15Y(B ;; GUTTRULS - ?$,15Z(B ?$,15[(B ?$,15\(B ?$,15](B ?$,15^(B ;; PALATALS - ?$,15_(B ?$,15`(B ?$,15a(B ?$,15b(B ?$,15c(B ;; CEREBRALS - ?$,15d(B ?$,15e(B ?$,15f(B ?$,15g(B ?$,15h(B ?$,15i(B ;; DENTALS - ?$,15j(B ?$,15k(B ?$,15l(B ?$,15m(B ?$,15n(B ;; LABIALS - ?$,15o(B ?$,15p(B ?$,15q(B ?$,15r(B ?$,15s(B ?$,15t(B ?$,15u(B ;; SEMIVOWELS - ?$,15v(B ?$,15w(B ?$,15x(B ?$,15y(B ;; SIBILANTS - ?$,168(B ?$,169(B ?$,16:(B ?$,16;(B ?$,16<(B ?$,16=(B ?$,16>(B ?$,16?(B ;; NUKTAS - "$,15\6-5^(B" "$,15U6-5w(B") + ?क ?ख ?ग ?घ ?ङ ;; GUTTRULS + ?च ?छ ?ज ?झ ?ञ ;; PALATALS + ?ट ?ठ ?ड ?ढ ?ण ;; CEREBRALS + ?त ?थ ?द ?ध ?न ?ऩ ;; DENTALS + ?प ?फ ?ब ?भ ?म ;; LABIALS + ?य ?र ?ऱ ?ल ?ळ ?ऴ ?व ;; SEMIVOWELS + ?श ?ष ?स ?ह ;; SIBILANTS + ?क़ ?ख़ ?ग़ ?ज़ ?ड़ ?ढ़ ?फ़ ?य़ ;; NUKTAS + "ज्ञ" "क्ष") (;; Misc Symbols (7) - ?$,15A(B ?$,15B(B ?$,15C(B ?$,15}(B ?$,16-(B ?$,160(B ?$,16D(B) + ?ँ ?ं ?ः ?ऽ ?् ?ॐ ?।) (;; Digits (10) - ?$,16F(B ?$,16G(B ?$,16H(B ?$,16I(B ?$,16J(B ?$,16K(B ?$,16L(B ?$,16M(B ?$,16N(B ?$,16O(B) + ?० ?१ ?२ ?३ ?४ ?५ ?६ ?७ ?८ ?९) (;; Inscript-extra (4) (#, $, ^, *, ]) - "$,16-5p(B" "$,15p6-(B" "$,15d6-5p(B" "$,15v6-5p(B" "$,15|(B"))) + "्र" "र्" "त्र" "श्र" "़"))) ;; Punjabi is also known as Gurmukhi. (defvar indian-pnj-base-table '( (;; VOWELS - (?$,18%(B nil) (?$,18&(B ?$,18^(B) (?$,18'(B ?$,18_(B) (?$,18((B ?$,18`(B) (?$,18)(B ?$,18a(B) (?$,18*(B ?$,18b(B) - nil nil nil nil (?$,18/(B ?$,18g(B) (?$,180(B ?$,18h(B) - nil nil (?$,183(B ?$,18k(B) (?$,184(B ?$,18l(B) nil nil) + (?ਅ nil) (?ਆ ?ਾ) (?ਇ ?ਿ) (?ਈ ?ੀ) (?ਉ ?ੁ) (?ਊ ?ੂ) + nil nil nil nil (?ਏ ?ੇ) (?ਐ ?ੈ) + nil nil (?ਓ ?ੋ) (?ਔ ?ੌ) nil nil) (;; CONSONANTS - ?$,185(B ?$,186(B ?$,187(B ?$,188(B ?$,189(B ;; GUTTRULS - ?$,18:(B ?$,18;(B ?$,18<(B ?$,18=(B ?$,18>(B ;; PALATALS - ?$,18?(B ?$,18@(B ?$,18A(B ?$,18B(B ?$,18C(B ;; CEREBRALS - ?$,18D(B ?$,18E(B ?$,18F(B ?$,18G(B ?$,18H(B nil ;; DENTALS - ?$,18J(B ?$,18K(B ?$,18L(B ?$,18M(B ?$,18N(B ;; LABIALS - ?$,18O(B ?$,18P(B nil ?$,18R(B ?$,18S(B nil ?$,18U(B ;; SEMIVOWELS - ?$,18V(B nil ?$,18X(B ?$,18Y(B ;; SIBILANTS - nil ?$,18y(B ?$,18z(B ?$,18{(B ?$,18|(B nil ?$,18~(B nil ;; NUKTAS - "$,18<8m8>(B" nil) + ?ਕ ?ਖ ?ਗ ?ਘ ?ਙ ;; GUTTRULS + ?ਚ ?ਛ ?ਜ ?ਝ ?ਞ ;; PALATALS + ?ਟ ?ਠ ?ਡ ?ਢ ?ਣ ;; CEREBRALS + ?ਤ ?ਥ ?ਦ ?ਧ ?ਨ nil ;; DENTALS + ?ਪ ?ਫ ?ਬ ?ਭ ?ਮ ;; LABIALS + ?ਯ ?ਰ nil ?ਲ ?ਲ਼ nil ?ਵ ;; SEMIVOWELS + ?ਸ਼ nil ?ਸ ?ਹ ;; SIBILANTS + nil ?ਖ਼ ?ਗ਼ ?ਜ਼ ?ੜ nil ?ਫ਼ nil ;; NUKTAS + "ਜ੍ਞ" nil) (;; Misc Symbols (7) - nil ?$,18"(B nil nil ?$,18m(B nil nil) ;; ek onkar, etc. + nil ?ਂ nil nil ?੍ nil nil) ;; ek onkar, etc. (;; Digits - ?$,19&(B ?$,19'(B ?$,19((B ?$,19)(B ?$,19*(B ?$,19+(B ?$,19,(B ?$,19-(B ?$,19.(B ?$,19/(B) + ?੦ ?੧ ?੨ ?੩ ?੪ ?੫ ?੬ ?੭ ?੮ ?੯) (;; Inscript-extra (4) (#, $, ^, *, ]) - "$,18m8P(B" "$,18P8m(B" "$,18D8m8P(B" "$,18V8m8P(B" "$,18\(B"))) + "੍ਰ" "ਰ੍" "ਤ੍ਰ" "ਸ਼੍ਰ" "਼"))) (defvar indian-gjr-base-table '( (;; VOWELS - (?$,19E(B nil) (?$,19F(B ?$,19~(B) (?$,19G(B ?$,19(B) (?$,19H(B ?$,1: (B) (?$,19I(B ?$,1:!(B) (?$,19J(B ?$,1:"(B) - (?$,19K(B ?$,1:#(B) nil (?$,19M(B ?$,1:%(B) nil (?$,19O(B ?$,1:'(B) (?$,19P(B ?$,1:((B) - (?$,19Q(B ?$,1:)(B) nil (?$,19S(B ?$,1:+(B) (?$,19T(B ?$,1:,(B) (?$,1:@(B ?$,1:$(B) nil) + (?અ nil) (?આ ?ા) (?ઇ ?િ) (?ઈ ?ી) (?ઉ ?ુ) (?ઊ ?ૂ) + (?ઋ ?ૃ) nil (?ઍ ?ૅ) nil (?એ ?ે) (?ઐ ?ૈ) + (?ઑ ?ૉ) nil (?ઓ ?ો) (?ઔ ?ૌ) (?ૠ ?ૄ) nil) (;; CONSONANTS - ?$,19U(B ?$,19V(B ?$,19W(B ?$,19X(B ?$,19Y(B ;; GUTTRULS - ?$,19Z(B ?$,19[(B ?$,19\(B ?$,19](B ?$,19^(B ;; PALATALS - ?$,19_(B ?$,19`(B ?$,19a(B ?$,19b(B ?$,19c(B ;; CEREBRALS - ?$,19d(B ?$,19e(B ?$,19f(B ?$,19g(B ?$,19h(B nil ;; DENTALS - ?$,19j(B ?$,19k(B ?$,19l(B ?$,19m(B ?$,19n(B ;; LABIALS - ?$,19o(B ?$,19p(B nil ?$,19r(B ?$,19s(B nil ?$,19u(B ;; SEMIVOWELS - ?$,19v(B ?$,19w(B ?$,19x(B ?$,19y(B ;; SIBILANTS + ?ક ?ખ ?ગ ?ઘ ?ઙ ;; GUTTRULS + ?ચ ?છ ?જ ?ઝ ?ઞ ;; PALATALS + ?ટ ?ઠ ?ડ ?ઢ ?ણ ;; CEREBRALS + ?ત ?થ ?દ ?ધ ?ન nil ;; DENTALS + ?પ ?ફ ?બ ?ભ ?મ ;; LABIALS + ?ય ?ર nil ?લ ?ળ nil ?વ ;; SEMIVOWELS + ?શ ?ષ ?સ ?હ ;; SIBILANTS nil nil nil nil nil nil nil nil ;; NUKTAS - "$,19\:-9^(B" "$,19U:-9w(B") + "જ્ઞ" "ક્ષ") (;; Misc Symbols (7) - ?$,19A(B ?$,19B(B ?$,19C(B ?$,19}(B ?$,1:-(B ?$,1:0(B nil) + ?ઁ ?ં ?ઃ ?ઽ ?્ ?ૐ nil) (;; Digits - ?$,1:F(B ?$,1:G(B ?$,1:H(B ?$,1:I(B ?$,1:J(B ?$,1:K(B ?$,1:L(B ?$,1:M(B ?$,1:N(B ?$,1:O(B) + ?૦ ?૧ ?૨ ?૩ ?૪ ?૫ ?૬ ?૭ ?૮ ?૯) (;; Inscript-extra (4) (#, $, ^, *, ]) - "$,1:-9p(B" "$,19p:-(B" "$,19d:-9p(B" "$,19v:-9p(B" "$,19|(B"))) + "્ર" "ર્" "ત્ર" "શ્ર" "઼"))) (defvar indian-ori-base-table '( (;; VOWELS - (?$,1:e(B nil) (?$,1:f(B ?$,1;>(B) (?$,1:g(B ?$,1;?(B) (?$,1:h(B ?$,1;@(B) (?$,1:i(B ?$,1;A(B) (?$,1:j(B ?$,1;B(B) - (?$,1:k(B ?$,1;C(B) (?$,1:l(B nil) nil nil (?$,1:o(B ?$,1;G(B) (?$,1:p(B ?$,1;H(B) - nil nil (?$,1:s(B ?$,1;K(B) (?$,1:t(B ?$,1;L(B) (?$,1;`(B nil) (?$,1;a(B nil)) + (?ଅ nil) (?ଆ ?ା) (?ଇ ?ି) (?ଈ ?ୀ) (?ଉ ?ୁ) (?ଊ ?ୂ) + (?ଋ ?ୃ) (?ଌ nil) nil nil (?ଏ ?େ) (?ଐ ?ୈ) + nil nil (?ଓ ?ୋ) (?ଔ ?ୌ) (?ୠ nil) (?ୡ nil)) (;; CONSONANTS - ?$,1:u(B ?$,1:v(B ?$,1:w(B ?$,1:x(B ?$,1:y(B ;; GUTTRULS - ?$,1:z(B ?$,1:{(B ?$,1:|(B ?$,1:}(B ?$,1:~(B ;; PALATALS - ?$,1:(B ?$,1; (B ?$,1;!(B ?$,1;"(B ?$,1;#(B ;; CEREBRALS - ?$,1;$(B ?$,1;%(B ?$,1;&(B ?$,1;'(B ?$,1;((B nil ;; DENTALS - ?$,1;*(B ?$,1;+(B ?$,1;,(B ?$,1;-(B ?$,1;.(B ;; LABIALS - ?$,1;/(B ?$,1;0(B nil ?$,1;2(B ?$,1;3(B nil nil ;; SEMIVOWELS - ?$,1;6(B ?$,1;7(B ?$,1;8(B ?$,1;9(B ;; SIBILANTS - nil nil nil nil ?$,1;\(B ?$,1;](B nil ?$,1;_(B ;; NUKTAS - "$,1:|;M:~(B" "$,1:u;M;7(B") + ?କ ?ଖ ?ଗ ?ଘ ?ଙ ;; GUTTRULS + ?ଚ ?ଛ ?ଜ ?ଝ ?ଞ ;; PALATALS + ?ଟ ?ଠ ?ଡ ?ଢ ?ଣ ;; CEREBRALS + ?ତ ?ଥ ?ଦ ?ଧ ?ନ nil ;; DENTALS + ?ପ ?ଫ ?ବ ?ଭ ?ମ ;; LABIALS + ?ଯ ?ର nil ?ଲ ?ଳ nil nil ;; SEMIVOWELS + ?ଶ ?ଷ ?ସ ?ହ ;; SIBILANTS + nil nil nil nil ?ଡ଼ ?ଢ଼ nil ?ୟ ;; NUKTAS + "ଜ୍ଞ" "କ୍ଷ") (;; Misc Symbols - ?$,1:a(B ?$,1:b(B ?$,1:c(B ?$,1;=(B ?$,1;M(B nil nil) + ?ଁ ?ଂ ?ଃ ?ଽ ?୍ nil nil) (;; Digits - ?$,1;f(B ?$,1;g(B ?$,1;h(B ?$,1;i(B ?$,1;j(B ?$,1;k(B ?$,1;l(B ?$,1;m(B ?$,1;n(B ?$,1;o(B) + ?୦ ?୧ ?୨ ?୩ ?୪ ?୫ ?୬ ?୭ ?୮ ?୯) (;; Inscript-extra (4) (#, $, ^, *, ]) - "$,1;M;0(B" "$,1;0;M(B" "$,1;$;M;0(B" "$,1;6;M;0(B" "$,1;<(B"))) + "୍ର" "ର୍" "ତ୍ର" "ଶ୍ର" "଼"))) (defvar indian-bng-base-table '( (;; VOWELS - (?$,16e(B nil) (?$,16f(B ?$,17>(B) (?$,16g(B ?$,17?(B) (?$,16h(B ?$,17@(B) (?$,16i(B ?$,17A(B) (?$,16j(B ?$,17B(B) - (?$,16k(B ?$,17C(B) (?$,16l(B ?$,17b(B) nil nil (?$,16o(B ?$,17G(B) (?$,16p(B ?$,17H(B) - nil nil (?$,16s(B ?$,17K(B) (?$,16t(B ?$,17L(B) (?$,17`(B ?$,17D(B) (?$,17a(B ?$,17c(B)) + (?অ nil) (?আ ?া) (?ই ?ি) (?ঈ ?ী) (?উ ?ু) (?ঊ ?ূ) + (?ঋ ?ৃ) (?ঌ ?ৢ) nil nil (?এ ?ে) (?ঐ ?ৈ) + nil nil (?ও ?ো) (?ঔ ?ৌ) (?ৠ ?ৄ) (?ৡ ?ৣ)) (;; CONSONANTS - ?$,16u(B ?$,16v(B ?$,16w(B ?$,16x(B ?$,16y(B ;; GUTTRULS - ?$,16z(B ?$,16{(B ?$,16|(B ?$,16}(B ?$,16~(B ;; PALATALS - ?$,16(B ?$,17 (B ?$,17!(B ?$,17"(B ?$,17#(B ;; CEREBRALS - ?$,17$(B ?$,17%(B ?$,17&(B ?$,17'(B ?$,17((B nil ;; DENTALS - ?$,17*(B ?$,17+(B ?$,17,(B ?$,17-(B ?$,17.(B ;; LABIALS - ?$,17/(B ?$,170(B nil ?$,172(B nil nil nil ;; SEMIVOWELS - ?$,176(B ?$,177(B ?$,178(B ?$,179(B ;; SIBILANTS - nil nil nil nil ?$,17\(B ?$,17](B nil ?$,17_(B ;; NUKTAS - "$,16|7M6~(B" "$,16u7M77(B") + ?ক ?খ ?গ ?ঘ ?ঙ ;; GUTTRULS + ?চ ?ছ ?জ ?ঝ ?ঞ ;; PALATALS + ?ট ?ঠ ?ড ?ঢ ?ণ ;; CEREBRALS + ?ত ?থ ?দ ?ধ ?ন nil ;; DENTALS + ?প ?ফ ?ব ?ভ ?ম ;; LABIALS + ?য ?র nil ?ল nil nil nil ;; SEMIVOWELS + ?শ ?ষ ?স ?হ ;; SIBILANTS + nil nil nil nil ?ড় ?ঢ় nil ?য় ;; NUKTAS + "জ্ঞ" "ক্ষ") (;; Misc Symbols - ?$,16a(B ?$,16b(B ?$,16c(B nil ?$,17M(B nil nil) + ?ঁ ?ং ?ঃ nil ?্ nil nil) (;; Digits - ?$,17f(B ?$,17g(B ?$,17h(B ?$,17i(B ?$,17j(B ?$,17k(B ?$,17l(B ?$,17m(B ?$,17n(B ?$,17o(B) + ?০ ?১ ?২ ?৩ ?৪ ?৫ ?৬ ?৭ ?৮ ?৯) (;; Inscript-extra (4) (#, $, ^, *, ]) - "$,17M70(B" "$,1707M(B" "$,17$7M70(B" "$,1767M70(B" "$,17<(B"))) + "্র" "র্" "ত্র" "শ্র" "়"))) (defvar indian-asm-base-table '( (;; VOWELS - (?$,16e(B nil) (?$,16f(B ?$,17>(B) (?$,16g(B ?$,17?(B) (?$,16h(B ?$,17@(B) (?$,16i(B ?$,17A(B) (?$,16j(B ?$,17B(B) - (?$,16k(B ?$,17C(B) (?$,16l(B ?$,17b(B) nil nil (?$,16o(B ?$,17G(B) (?$,16p(B ?$,17H(B) - nil nil (?$,16s(B ?$,17K(B) (?$,16t(B ?$,17L(B) (?$,17`(B ?$,17D(B) (?$,17a(B ?$,17c(B)) + (?অ nil) (?আ ?া) (?ই ?ি) (?ঈ ?ী) (?উ ?ু) (?ঊ ?ূ) + (?ঋ ?ৃ) (?ঌ ?ৢ) nil nil (?এ ?ে) (?ঐ ?ৈ) + nil nil (?ও ?ো) (?ঔ ?ৌ) (?ৠ ?ৄ) (?ৡ ?ৣ)) (;; CONSONANTS - ?$,16u(B ?$,16v(B ?$,16w(B ?$,16x(B ?$,16y(B ;; GUTTRULS - ?$,16z(B ?$,16{(B ?$,16|(B ?$,16}(B ?$,16~(B ;; PALATALS - ?$,16(B ?$,17 (B ?$,17!(B ?$,17"(B ?$,17#(B ;; CEREBRALS - ?$,17$(B ?$,17%(B ?$,17&(B ?$,17'(B ?$,17((B nil ;; DENTALS - ?$,17*(B ?$,17+(B ?$,17,(B ?$,17-(B ?$,17.(B ;; LABIALS - ?$,17/(B ?$,17p(B nil ?$,172(B nil nil ?$,17q(B ;; SEMIVOWELS - ?$,176(B ?$,177(B ?$,178(B ?$,179(B ;; SIBILANTS - nil nil nil nil ?$,17\(B ?$,17](B nil ?$,17_(B ;; NUKTAS - "$,16|7M6~(B" "$,16u7M77(B") + ?ক ?খ ?গ ?ঘ ?ঙ ;; GUTTRULS + ?চ ?ছ ?জ ?ঝ ?ঞ ;; PALATALS + ?ট ?ঠ ?ড ?ঢ ?ণ ;; CEREBRALS + ?ত ?থ ?দ ?ধ ?ন nil ;; DENTALS + ?প ?ফ ?ব ?ভ ?ম ;; LABIALS + ?য ?ৰ nil ?ল nil nil ?ৱ ;; SEMIVOWELS + ?শ ?ষ ?স ?হ ;; SIBILANTS + nil nil nil nil ?ড় ?ঢ় nil ?য় ;; NUKTAS + "জ্ঞ" "ক্ষ") (;; Misc Symbols - ?$,16a(B ?$,16b(B ?$,16c(B nil ?$,17M(B nil nil) + ?ঁ ?ং ?ঃ nil ?্ nil nil) (;; Digits - ?$,17f(B ?$,17g(B ?$,17h(B ?$,17i(B ?$,17j(B ?$,17k(B ?$,17l(B ?$,17m(B ?$,17n(B ?$,17o(B) + ?০ ?১ ?২ ?৩ ?৪ ?৫ ?৬ ?৭ ?৮ ?৯) (;; Inscript-extra (4) (#, $, ^, *, ]) - "$,17M7p(B" "$,17p7M(B" "$,17$7M7p(B" "$,1767M7p(B" "$,17<(B"))) + "্ৰ" "ৰ্" "ত্ৰ" "শ্ৰ" "়"))) (defvar indian-tlg-base-table '( (;; VOWELS - (?$,1=E(B nil) (?$,1=F(B ?$,1=~(B) (?$,1=G(B ?$,1=(B) (?$,1=H(B ?$,1> (B) (?$,1=I(B ?$,1>!(B) (?$,1=J(B ?$,1>"(B) - (?$,1=K(B ?$,1>#(B) (?$,1=L(B nil) nil (?$,1=O(B ?$,1>'(B) (?$,1=N(B ?$,1>&(B) (?$,1=P(B ?$,1>((B) - nil (?$,1=S(B ?$,1>+(B) (?$,1=R(B ?$,1>*(B) (?$,1=T(B ?$,1>,(B) (?$,1>@(B ?$,1>$(B) (?$,1>A(B nil)) + (?అ nil) (?ఆ ?ా) (?ఇ ?ి) (?ఈ ?ీ) (?ఉ ?ు) (?ఊ ?ూ) + (?ఋ ?ృ) (?ఌ nil) nil (?ఏ ?ే) (?ఎ ?ె) (?ఐ ?ై) + nil (?ఓ ?ో) (?ఒ ?ొ) (?ఔ ?ౌ) (?ౠ ?ౄ) (?ౡ nil)) (;; CONSONANTS - ?$,1=U(B ?$,1=V(B ?$,1=W(B ?$,1=X(B ?$,1=Y(B ;; GUTTRULS - ?$,1=Z(B ?$,1=[(B ?$,1=\(B ?$,1=](B ?$,1=^(B ;; PALATALS - ?$,1=_(B ?$,1=`(B ?$,1=a(B ?$,1=b(B ?$,1=c(B ;; CEREBRALS - ?$,1=d(B ?$,1=e(B ?$,1=f(B ?$,1=g(B ?$,1=h(B nil ;; DENTALS - ?$,1=j(B ?$,1=k(B ?$,1=l(B ?$,1=m(B ?$,1=n(B ;; LABIALS - ?$,1=o(B ?$,1=p(B ?$,1=q(B ?$,1=r(B ?$,1=s(B nil ?$,1=u(B ;; SEMIVOWELS - ?$,1=v(B ?$,1=w(B ?$,1=x(B ?$,1=y(B ;; SIBILANTS + ?క ?ఖ ?గ ?ఘ ?ఙ ;; GUTTRULS + ?చ ?ఛ ?జ ?ఝ ?ఞ ;; PALATALS + ?ట ?ఠ ?డ ?ఢ ?ణ ;; CEREBRALS + ?త ?థ ?ద ?ధ ?న nil ;; DENTALS + ?ప ?ఫ ?బ ?భ ?మ ;; LABIALS + ?య ?ర ?ఱ ?ల ?ళ nil ?వ ;; SEMIVOWELS + ?శ ?ష ?స ?హ ;; SIBILANTS nil nil nil nil nil nil nil nil ;; NUKTAS - "$,1=\>-=^(B" "$,1=U>-=w(B") + "జ్ఞ" "క్ష") (;; Misc Symbols - ?$,1=A(B ?$,1=B(B ?$,1=C(B nil ?$,1>-(B nil nil) + ?ఁ ?ం ?ః nil ?్ nil nil) (;; Digits - ?$,1>F(B ?$,1>G(B ?$,1>H(B ?$,1>I(B ?$,1>J(B ?$,1>K(B ?$,1>L(B ?$,1>M(B ?$,1>N(B ?$,1>O(B) + ?౦ ?౧ ?౨ ?౩ ?౪ ?౫ ?౬ ?౭ ?౮ ?౯) (;; Inscript-extra (4) (#, $, ^, *, ]) - "$,1>-=p(B" "$,1=p>-(B" "$,1=d>-=p(B" "$,1=v>-=p(B" nil))) + "్ర" "ర్" "త్ర" "శ్ర" nil))) (defvar indian-knd-base-table '( (;; VOWELS - (?$,1>e(B nil) (?$,1>f(B ?$,1?>(B) (?$,1>g(B ?$,1??(B) (?$,1>h(B ?$,1?@(B) (?$,1>i(B ?$,1?A(B) (?$,1>j(B ?$,1?B(B) - (?$,1>k(B ?$,1?C(B) (?$,1>l(B nil) nil (?$,1>o(B ?$,1?G(B) (?$,1>n(B ?$,1?F(B) (?$,1>p(B ?$,1?H(B) - nil (?$,1>s(B ?$,1?K(B) (?$,1>r(B ?$,1?J(B) (?$,1>t(B ?$,1?L(B) (?$,1?`(B ?$,1?D(B) (?$,1?a(B nil)) + (?ಅ nil) (?ಆ ?ಾ) (?ಇ ?ಿ) (?ಈ ?ೀ) (?ಉ ?ು) (?ಊ ?ೂ) + (?ಋ ?ೃ) (?ಌ nil) nil (?ಏ ?ೇ) (?ಎ ?ೆ) (?ಐ ?ೈ) + nil (?ಓ ?ೋ) (?ಒ ?ೊ) (?ಔ ?ೌ) (?ೠ ?ೄ) (?ೡ nil)) (;; CONSONANTS - ?$,1>u(B ?$,1>v(B ?$,1>w(B ?$,1>x(B ?$,1>y(B ;; GUTTRULS - ?$,1>z(B ?$,1>{(B ?$,1>|(B ?$,1>}(B ?$,1>~(B ;; PALATALS - ?$,1>(B ?$,1? (B ?$,1?!(B ?$,1?"(B ?$,1?#(B ;; CEREBRALS - ?$,1?$(B ?$,1?%(B ?$,1?&(B ?$,1?'(B ?$,1?((B nil ;; DENTALS - ?$,1?*(B ?$,1?+(B ?$,1?,(B ?$,1?-(B ?$,1?.(B ;; LABIALS - ?$,1?/(B ?$,1?0(B ?$,1?1(B ?$,1?2(B ?$,1?3(B nil ?$,1?5(B ;; SEMIVOWELS - ?$,1?6(B ?$,1?7(B ?$,1?8(B ?$,1?9(B ;; SIBILANTS - nil nil nil nil nil nil ?$,1?^(B nil ;; NUKTAS - "$,1>|?M>~(B" "$,1>u?M?7(B") + ?ಕ ?ಖ ?ಗ ?ಘ ?ಙ ;; GUTTRULS + ?ಚ ?ಛ ?ಜ ?ಝ ?ಞ ;; PALATALS + ?ಟ ?ಠ ?ಡ ?ಢ ?ಣ ;; CEREBRALS + ?ತ ?ಥ ?ದ ?ಧ ?ನ nil ;; DENTALS + ?ಪ ?ಫ ?ಬ ?ಭ ?ಮ ;; LABIALS + ?ಯ ?ರ ?ಱ ?ಲ ?ಳ nil ?ವ ;; SEMIVOWELS + ?ಶ ?ಷ ?ಸ ?ಹ ;; SIBILANTS + nil nil nil nil nil nil ?ೞ nil ;; NUKTAS + "ಜ್ಞ" "ಕ್ಷ") (;; Misc Symbols - nil ?$,1>b(B ?$,1>c(B nil ?$,1?M(B nil nil) + nil ?ಂ ?ಃ nil ?್ nil nil) (;; Digits - ?$,1?f(B ?$,1?g(B ?$,1?h(B ?$,1?i(B ?$,1?j(B ?$,1?k(B ?$,1?l(B ?$,1?m(B ?$,1?n(B ?$,1?o(B) + ?೦ ?೧ ?೨ ?೩ ?೪ ?೫ ?೬ ?೭ ?೮ ?೯) (;; Inscript-extra (4) (#, $, ^, *, ]) - "$,1?M?0(B" "$,1?0?M(B" "$,1?$?M?0(B" "$,1?6?M?0(B" nil))) + "್ರ" "ರ್" "ತ್ರ" "ಶ್ರ" nil))) (defvar indian-mlm-base-table '( (;; VOWELS - (?$,1@%(B nil) (?$,1@&(B ?$,1@^(B) (?$,1@'(B ?$,1@_(B) (?$,1@((B ?$,1@`(B) (?$,1@)(B ?$,1@a(B) (?$,1@*(B ?$,1@b(B) - (?$,1@+(B ?$,1@c(B) (?$,1@,(B nil) nil (?$,1@/(B ?$,1@g(B) (?$,1@.(B ?$,1@f(B) (?$,1@0(B ?$,1@h(B) - nil (?$,1@3(B ?$,1@k(B) (?$,1@2(B ?$,1@j(B) (?$,1@4(B ?$,1@l(B) nil nil) + (?അ nil) (?ആ ?ാ) (?ഇ ?ി) (?ഈ ?ീ) (?ഉ ?ു) (?ഊ ?ൂ) + (?ഋ ?ൃ) (?ഌ nil) nil (?ഏ ?േ) (?എ ?െ) (?ഐ ?ൈ) + nil (?ഓ ?ോ) (?ഒ ?ൊ) (?ഔ ?ൌ) nil nil) (;; CONSONANTS - ?$,1@5(B ?$,1@6(B ?$,1@7(B ?$,1@8(B ?$,1@9(B ;; GUTTRULS - ?$,1@:(B ?$,1@;(B ?$,1@<(B ?$,1@=(B ?$,1@>(B ;; PALATALS - ?$,1@?(B ?$,1@@(B ?$,1@A(B ?$,1@B(B ?$,1@C(B ;; CEREBRALS - ?$,1@D(B ?$,1@E(B ?$,1@F(B ?$,1@G(B ?$,1@H(B nil ;; DENTALS - ?$,1@J(B ?$,1@K(B ?$,1@L(B ?$,1@M(B ?$,1@N(B ;; LABIALS - ?$,1@O(B ?$,1@P(B ?$,1@Q(B ?$,1@R(B ?$,1@S(B ?$,1@T(B ?$,1@U(B ;; SEMIVOWELS - ?$,1@V(B ?$,1@W(B ?$,1@X(B ?$,1@Y(B ;; SIBILANTS + ?ക ?ഖ ?ഗ ?ഘ ?ങ ;; GUTTRULS + ?ച ?ഛ ?ജ ?ഝ ?ഞ ;; PALATALS + ?ട ?ഠ ?ഡ ?ഢ ?ണ ;; CEREBRALS + ?ത ?ഥ ?ദ ?ധ ?ന nil ;; DENTALS + ?പ ?ഫ ?ബ ?ഭ ?മ ;; LABIALS + ?യ ?ര ?റ ?ല ?ള ?ഴ ?വ ;; SEMIVOWELS + ?ശ ?ഷ ?സ ?ഹ ;; SIBILANTS nil nil nil nil nil nil nil nil ;; NUKTAS - "$,1@<@m@>(B" "$,1@5@m@W(B") + "ജ്ഞ" "ക്ഷ") (;; Misc Symbols - nil ?$,1@"(B ?$,1@#(B nil ?$,1@m(B nil nil) + nil ?ം ?ഃ nil ?് nil nil) (;; Digits - ?$,1A&(B ?$,1A'(B ?$,1A((B ?$,1A)(B ?$,1A*(B ?$,1A+(B ?$,1A,(B ?$,1A-(B ?$,1A.(B ?$,1A/(B) + ?൦ ?൧ ?൨ ?൩ ?൪ ?൫ ?൬ ?൭ ?൮ ?൯) (;; Inscript-extra (4) (#, $, ^, *, ]) - "$,1@m@P(B" "$,1@P@m(B" "$,1@D@m@P(B" "$,1@V@m@P(B" nil))) + "്ര" "ര്" "ത്ര" "ശ്ര" nil))) (defvar indian-tml-base-table '( (;; VOWELS - (?$,1<%(B nil) (?$,1<&(B ?$,1<^(B) (?$,1<'(B ?$,1<_(B) (?$,1<((B ?$,1<`(B) (?$,1<)(B ?$,1(B ;; PALATALS - ?$,1(B" "$,1<5(B") - (?\x0921 . "(5?(B") - (?\x0922 . "(5@(B") - (?\x0923 . "(5A(B") - (?\x0924 . "(5B(B") - (?\x0925 . "(5C(B") - (?\x0926 . "(5D(B") - (?\x0927 . "(5E(B") - (?\x0928 . "(5F(B") - (?\x0929 . "(5G(B") - (?\x092a . "(5H(B") - (?\x092b . "(5I(B") - (?\x092c . "(5J(B") - (?\x092d . "(5K(B") - (?\x092e . "(5L(B") - (?\x092f . "(5M(B") - (?\x0930 . "(5O(B") - (?\x0931 . "(5P(B") - (?\x0932 . "(5Q(B") - (?\x0933 . "(5R(B") - (?\x0934 . "(5S(B") - (?\x0935 . "(5T(B") - (?\x0936 . "(5U(B") - (?\x0937 . "(5V(B") - (?\x0938 . "(5W(B") - (?\x0939 . "(5X(B") + (?\x0905 . "") + (?\x0906 . "") + (?\x0907 . "") + (?\x0908 . "") + (?\x0909 . "") + (?\x090a . "") + (?\x090b . "") + (?\x090c . "") + (?\x090d . "") + (?\x090e . "") + (?\x090f . "") + (?\x0910 . "") + (?\x0911 . "") + (?\x0912 . "") + (?\x0913 . "") + (?\x0914 . "") + (?\x0915 . "") + (?\x0916 . "") + (?\x0917 . "") + (?\x0918 . "") + (?\x0919 . "") + (?\x091a . "") + (?\x091b . "") + (?\x091c . "") + (?\x091d . "") + (?\x091e . "") + (?\x091f . "") + (?\x0920 . "") + (?\x0921 . "") + (?\x0922 . "") + (?\x0923 . "") + (?\x0924 . "") + (?\x0925 . "") + (?\x0926 . "") + (?\x0927 . "") + (?\x0928 . "") + (?\x0929 . "") + (?\x092a . "") + (?\x092b . "") + (?\x092c . "") + (?\x092d . "") + (?\x092e . "") + (?\x092f . "") + (?\x0930 . "") + (?\x0931 . "") + (?\x0932 . "") + (?\x0933 . "") + (?\x0934 . "") + (?\x0935 . "") + (?\x0936 . "") + (?\x0937 . "") + (?\x0938 . "") + (?\x0939 . "") (?\x093a . "[U+093a]") (?\x093b . "[U+093b]") - (?\x093c . "(5i(B") - (?\x093d . "(5ji(B") - (?\x093e . "(5Z(B") - (?\x093f . "(5[(B") - (?\x0940 . "(5\(B") - (?\x0941 . "(5](B") - (?\x0942 . "(5^(B") - (?\x0943 . "(5_(B") - (?\x0944 . "(5_i(B") - (?\x0945 . "(5c(B") - (?\x0946 . "(5`(B") - (?\x0947 . "(5a(B") - (?\x0948 . "(5b(B") - (?\x0949 . "(5g(B") - (?\x094a . "(5d(B") - (?\x094b . "(5e(B") - (?\x094c . "(5f(B") - (?\x094d . "(5h(B") + (?\x093c . "") + (?\x093d . "") + (?\x093e . "") + (?\x093f . "") + (?\x0940 . "") + (?\x0941 . "") + (?\x0942 . "") + (?\x0943 . "") + (?\x0944 . "") + (?\x0945 . "") + (?\x0946 . "") + (?\x0947 . "") + (?\x0948 . "") + (?\x0949 . "") + (?\x094a . "") + (?\x094b . "") + (?\x094c . "") + (?\x094d . "") (?\x094e . "[U+094e]") (?\x094f . "[U+094f]") - (?\x0950 . "(5!i(B") - (?\x0951 . "(5p5(B") - (?\x0952 . "(5p8(B") + (?\x0950 . "") + (?\x0951 . "") + (?\x0952 . "") (?\x0953 . "[DEVANAGARI GRAVE ACCENT]") (?\x0954 . "[DEVANAGARI ACUTE ACCENT]") (?\x0955 . "[U+0955]") (?\x0956 . "[U+0956]") (?\x0957 . "[U+0957]") - (?\x0958 . "(53i(B") - (?\x0959 . "(54i(B") - (?\x095a . "(55i(B") - (?\x095b . "(5:i(B") - (?\x095c . "(5?i(B") - (?\x095d . "(5@i(B") - (?\x095e . "(5Ii(B") - (?\x095f . "(5N(B") - (?\x0960 . "(5*i(B") - (?\x0961 . "(5'i(B") - (?\x0962 . "(5[i(B") - (?\x0963 . "(5ei(B") - (?\x0964 . "(5j(B") - (?\x0965 . "(5jj(B") - (?\x0966 . "(5q(B") - (?\x0967 . "(5r(B") - (?\x0968 . "(5s(B") - (?\x0969 . "(5t(B") - (?\x096a . "(5u(B") - (?\x096b . "(5v(B") - (?\x096c . "(5w(B") - (?\x096d . "(5x(B") - (?\x096e . "(5y(B") - (?\x096f . "(5z(B") + (?\x0958 . "") + (?\x0959 . "") + (?\x095a . "") + (?\x095b . "") + (?\x095c . "") + (?\x095d . "") + (?\x095e . "") + (?\x095f . "") + (?\x0960 . "") + (?\x0961 . "") + (?\x0962 . "") + (?\x0963 . "") + (?\x0964 . "") + (?\x0965 . "") + (?\x0966 . "") + (?\x0967 . "") + (?\x0968 . "") + (?\x0969 . "") + (?\x096a . "") + (?\x096b . "") + (?\x096c . "") + (?\x096d . "") + (?\x096e . "") + (?\x096f . "") (?\x0970 . "[U+0970]") (?\x0971 . "[U+0971]") (?\x0972 . "[U+0972]") @@ -870,332 +870,332 @@ Returns new end position." (defconst indian-2-colum-to-ucs '( ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f - ;;2120 $(6!!!"!#!$!%!&!'!(!)!*!+!,!-!.!/(B - ("$(6!!(B" . "$,15A(B") - ("$(6!"(B" . "$,15B(B") - ("$(6!#(B" . "$,15C(B") - ("$(6!$(B" . "$,15E(B") - ("$(6!%(B" . "$,15F(B") - ("$(6!&(B" . "$,15G(B") - ("$(6!'(B" . "$,15H(B") - ("$(6!((B" . "$,15I(B") - ("$(6!)(B" . "$,15J(B") - ("$(6!*(B" . "$,15K(B") - ("$(6!*"p(B" . "$,15p6#(B") - ("$(6!+(B" . "$,15N(B") - ("$(6!,(B" . "$,15O(B") - ("$(6!-(B" . "$,15P(B") - ("$(6!.(B" . "$,15M(B") - ("$(6!/(B" . "$,15R(B") + ;;2120 + ("" . "ँ") + ("" . "ं") + ("" . "ः") + ("" . "अ") + ("" . "आ") + ("" . "इ") + ("" . "ई") + ("" . "उ") + ("" . "ऊ") + ("" . "ऋ") + ("" . "रृ") + ("" . "ऎ") + ("" . "ए") + ("" . "ऐ") + ("" . "ऍ") + ("" . "ऒ") ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f - ;;2130 $(6!0!1!2!3!4!5!6!7!8!9!:!;!!?(B - ("$(6!0(B" . "$,15S(B") - ("$(6!1(B" . "$,15T(B") - ("$(6!2(B" . "$,15Q(B") - ("$(6!3(B" . "$,15U(B") - ("$(6!4(B" . "$,15V(B") - ("$(6!5(B" . "$,15W(B") - ("$(6!6(B" . "$,15X(B") - ("$(6!7(B" . "$,15Y(B") - ("$(6!8(B" . "$,15Z(B") - ("$(6!9(B" . "$,15[(B") - ("$(6!:(B" . "$,15\(B") - ("$(6!;(B" . "$,15](B") - ("$(6!<(B" . "$,15^(B") - ("$(6!=(B" . "$,15_(B") - ("$(6!>(B" . "$,15`(B") - ("$(6!?(B" . "$,15a(B") + ;;2130 + ("" . "ओ") + ("" . "औ") + ("" . "ऑ") + ("" . "क") + ("" . "ख") + ("" . "ग") + ("" . "घ") + ("" . "ङ") + ("" . "च") + ("" . "छ") + ("" . "ज") + ("" . "झ") + ("" . "ञ") + ("" . "ट") + ("" . "ठ") + ("" . "ड") ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f - ;;2140 $(6!@!A!B!C!D!E!F!G!H!I!J!K!L!M!N!O(B - ("$(6!@(B" . "$,15b(B") - ("$(6!A(B" . "$,15c(B") - ("$(6!B(B" . "$,15d(B") - ("$(6!C(B" . "$,15e(B") - ("$(6!D(B" . "$,15f(B") - ("$(6!E(B" . "$,15g(B") - ("$(6!F(B" . "$,15h(B") - ("$(6!G(B" . "$,15i(B") - ("$(6!H(B" . "$,15j(B") - ("$(6!I(B" . "$,15k(B") - ("$(6!J(B" . "$,15l(B") - ("$(6!K(B" . "$,15m(B") - ("$(6!L(B" . "$,15n(B") - ("$(6!M(B" . "$,15o(B") - ("$(6!N(B" . "$,16?(B") - ("$(6!O(B" . "$,15p(B") + ;;2140 + ("" . "ढ") + ("" . "ण") + ("" . "त") + ("" . "थ") + ("" . "द") + ("" . "ध") + ("" . "न") + ("" . "ऩ") + ("" . "प") + ("" . "फ") + ("" . "ब") + ("" . "भ") + ("" . "म") + ("" . "य") + ("" . "य़") + ("" . "र") ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f - ;;2150 $(6!P!Q!R!S!T!U!V!W!X!Y!Z![!\!]!^!_(B - ("$(6!P(B" . "$,15q(B") - ("$(6!Q(B" . "$,15r(B") - ("$(6!R(B" . "$,15s(B") - ("$(6!S(B" . "$,15t(B") - ("$(6!T(B" . "$,15u(B") - ("$(6!U(B" . "$,15v(B") - ("$(6!V(B" . "$,15w(B") - ("$(6!W(B" . "$,15x(B") - ("$(6!X(B" . "$,15y(B") - ("$(6!Z(B" . "$,15~(B") - ("$(6![(B" . "$,15(B") - ("$(6!\(B" . "$,16 (B") - ("$(6!](B" . "$,16!(B") - ("$(6!^(B" . "$,16"(B") - ("$(6!_(B" . "$,16#(B") + ;;2150 + ("" . "ऱ") + ("" . "ल") + ("" . "ळ") + ("" . "ऴ") + ("" . "व") + ("" . "श") + ("" . "ष") + ("" . "स") + ("" . "ह") + ("" . "ा") + ("" . "ि") + ("" . "ी") + ("" . "ु") + ("" . "ू") + ("" . "ृ") ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f - ;;2160 $(6!`!a!b!c!d!e!f!g!h!i!j!k!l!m!n!o(B - ("$(6!`(B" . "$,16&(B") - ("$(6!a(B" . "$,16'(B") - ("$(6!b(B" . "$,16((B") - ("$(6!c(B" . "$,16%(B") - ("$(6!d(B" . "$,16*(B") - ("$(6!e(B" . "$,16+(B") - ("$(6!f(B" . "$,16,(B") - ("$(6!g(B" . "$,16)(B") - ("$(6!h(B" . "$,16-(B") - ("$(6!i(B" . "$,15|(B") - ("$(6!j(B" . "$,16D(B") - ("$(6!j!j(B" . "$,16E(B") + ;;2160 + ("" . "ॆ") + ("" . "े") + ("" . "ै") + ("" . "ॅ") + ("" . "ॊ") + ("" . "ो") + ("" . "ौ") + ("" . "ॉ") + ("" . "्") + ("" . "़") + ("" . "।") + ("" . "॥") ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f - ;;2170 $(6!p!q!r!s!t!u!v!w!x!y!z!{!|!}!~(B - ("$(6!q(B" . "$,16F(B") - ("$(6!r(B" . "$,16G(B") - ("$(6!s(B" . "$,16H(B") - ("$(6!t(B" . "$,16I(B") - ("$(6!u(B" . "$,16J(B") - ("$(6!v(B" . "$,16K(B") - ("$(6!w(B" . "$,16L(B") - ("$(6!x(B" . "$,16M(B") - ("$(6!y(B" . "$,16N(B") - ("$(6!z(B" . "$,16O(B") + ;;2170 + ("" . "०") + ("" . "१") + ("" . "२") + ("" . "३") + ("" . "४") + ("" . "५") + ("" . "६") + ("" . "७") + ("" . "८") + ("" . "९") ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f - ;;2220 $(6"!"""#"$"%"&"'"(")"*"+","-"."/(B - ("$(6"!(B" . "$,16;6-5p(B") - ("$(6""(B" . "$,16>6-5p(B") - ("$(6"#(B" . "$,15U6-5p(B") - ("$(6"$(B" . "$,15W6-5p(B") - ("$(6"%(B" . "$,15d6-5p(B") - ("$(6"&(B" . "$,15j6-5p(B") - ("$(6"'(B" . "$,15k6-5p(B") - ("$(6")(B" . "$,15v6-5p(B") - ("$(6",(B" . "$,15p6!(B") - ("$(6"-(B" . "$,15p6"(B") - ("$(6".(B" . "$,15q6!(B") - ("$(6"/(B" . "$,15q6"(B") + ;;2220 + ("" . "ज़्र") + ("" . "फ़्र") + ("" . "क्र") + ("" . "ग्र") + ("" . "त्र") + ("" . "प्र") + ("" . "फ्र") + ("" . "श्र") + ("" . "रु") + ("" . "रू") + ("" . "ऱु") + ("" . "ऱू") ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f - ;;2230 $(6"0"1"2"3"4"5"6"7"8"9":";"<"=">"?(B - ("$(6"3(B" . "$,15U6-(B") - ("$(6"4(B" . "$,15V6-(B") - ("$(6"5(B" . "$,15W6-(B") - ("$(6"6(B" . "$,15X6-(B") - ("$(6"8(B" . "$,15Z6-(B") - ("$(6"8"q(B" . "$,15Z6-5p6-(B") - ("$(6":(B" . "$,15\6-(B") - ("$(6";(B" . "$,15]6-(B") - ("$(6"<(B" . "$,15^6-(B") - ("$(6"<(B" . "$,15^6-(B") + ;;2230 + ("" . "क्") + ("" . "ख्") + ("" . "ग्") + ("" . "घ्") + ("" . "च्") + ("" . "च्र्") + ("" . "ज्") + ("" . "झ्") + ("" . "ञ्") + ("" . "ञ्") ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f - ;;2240 $(6"@"A"B"C"D"E"F"G"H"I"J"K"L"M"N"O(B - ("$(6"A(B" . "$,15c6-(B") - ("$(6"B(B" . "$,15d6-(B") - ("$(6"C(B" . "$,15e6-(B") - ("$(6"E(B" . "$,15g6-(B") - ("$(6"F(B" . "$,15h6-(B") - ("$(6"G(B" . "$,15i6-(B") - ("$(6"H(B" . "$,15j6-(B") - ("$(6"I(B" . "$,15k6-(B") - ("$(6"J(B" . "$,15l6-(B") - ("$(6"J(B" . "$,15l6-(B") - ("$(6"K(B" . "$,15m6-(B") - ("$(6"L(B" . "$,15n6-(B") - ("$(6"M(B" . "$,15o6-(B") - ("$(6"N(B" . "$,16?6-(B") + ;;2240 + ("" . "ण्") + ("" . "त्") + ("" . "थ्") + ("" . "ध्") + ("" . "न्") + ("" . "ऩ्") + ("" . "प्") + ("" . "फ्") + ("" . "ब्") + ("" . "ब्") + ("" . "भ्") + ("" . "म्") + ("" . "य्") + ("" . "य़्") ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f - ;;2250 $(6"P"Q"R"S"T"U"V"W"X"Y"Z"["\"]"^"_(B - ("$(6"Q(B" . "$,15r6-(B") - ("$(6"R(B" . "$,15s6-(B") - ("$(6"S(B" . "$,15t6-(B") - ("$(6"T(B" . "$,15u6-(B") - ("$(6"U(B" . "$,15v6-(B") - ("$(6"V(B" . "$,15w6-(B") - ("$(6"W(B" . "$,15x6-(B") - ("$(6"](B" . "$,16-5o(B") + ;;2250 + ("" . "ल्") + ("" . "ळ्") + ("" . "ऴ्") + ("" . "व्") + ("" . "श्") + ("" . "ष्") + ("" . "स्") + ("" . "्य") ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f - ;;2260 $(6"`"a"b"c"d"e"f"g"h"i"j"k"l"m"n"o(B - ("$(6"`(B" . "$,15W6-5p6-(B") - ("$(6"a(B" . "$,15X6-5h6-(B") - ("$(6"c(B" . "$,15d6-5d6-(B") - ("$(6"d(B" . "$,15d6-5p6-(B") - ("$(6"e(B" . "$,15g6-5h6-(B") - ("$(6"f(B" . "$,15g6-5p6-(B") - ("$(6"g(B" . "$,15j6-5d6-(B") - ("$(6"h(B" . "$,15v6-5Z6-(B") - ("$(6"i(B" . "$,15v6-5p6-(B") - ("$(6"j(B" . "$,15v6-5u6-(B") - ("$(6"k(B" . "$,15h6-5h6-(B") - ("$(6"l(B" . "$,15U6-5w6-(B") - ("$(6"m(B" . "$,15\6-5^6-(B") + ;;2260 + ("" . "ग्र्") + ("" . "घ्न्") + ("" . "त्त्") + ("" . "त्र्") + ("" . "ध्न्") + ("" . "ध्र्") + ("" . "प्त्") + ("" . "श्च्") + ("" . "श्र्") + ("" . "श्व्") + ("" . "न्न्") + ("" . "क्ष्") + ("" . "ज्ञ्") ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f - ;;2270 $(6"p"q"r"s"t"u"v"w"x"y"z"{"|"}"~(B - ("$(6"p(B" . "$,15p6-(B") - ("$(6"q(B" . "$,16-5p(B") - ("$(6"r(B" . "$,16-5p(B") - ("$(6"s(B" . "$,1686-(B") - ("$(6"t(B" . "$,1696-(B") - ("$(6"u(B" . "$,16:6-(B") - ("$(6"y(B" . "$,16>6-(B") - ("$(6"z(B" . "$,16;6-(B") + ;;2270 + ("" . "र्") + ("" . "्र") + ("" . "्र") + ("" . "क़्") + ("" . "ख़्") + ("" . "ग़्") + ("" . "फ़्") + ("" . "ज़्") ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f - ;;2320 $(6#!#"###$#%#&#'#(#)#*#+#,#-#.#/(B - ("$(6#!(B" . "$,160(B") - ("$(6#&(B" . "$,15L(B") - ("$(6#&"p(B" . "$,15p6$(B") - ("$(6#'(B" . "$,16A(B") - ("$(6#'"p(B" . "$,15p6C(B") - ("$(6#*(B" . "$,16@(B") - ("$(6#*"p(B" . "$,15p6B(B") + ;;2320 + ("" . "ॐ") + ("" . "ऌ") + ("" . "रॄ") + ("" . "ॡ") + ("" . "रॣ") + ("" . "ॠ") + ("" . "रॢ") ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f - ;;2330 $(6#0#1#2#3#4#5#6#7#8#9#:#;#<#=#>#?(B - ("$(6#3(B" . "$,168(B") - ("$(6#4(B" . "$,169(B") - ("$(6#5(B" . "$,16:(B") - ("$(6#:(B" . "$,16;(B") - ("$(6#?(B" . "$,16<(B") + ;;2330 + ("" . "क़") + ("" . "ख़") + ("" . "ग़") + ("" . "ज़") + ("" . "ड़") ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f - ;;2340 $(6#@#A#B#C#D#E#F#G#H#I#J#K#L#M#N#O(B - ("$(6#@(B" . "$,16=(B") - ("$(6#I(B" . "$,16>(B") - ("$(6#J(B" . "$,15}(B") - ("$(6#K(B" . "$,16$(B") - ("$(6#L(B" . "$,16B(B") - ("$(6#M(B" . "$,16C(B") + ;;2340 + ("" . "ढ़") + ("" . "फ़") + ("" . "ऽ") + ("" . "ॄ") + ("" . "ॢ") + ("" . "ॣ") ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f - ;;2350 $(6#P#Q#R#S#T#U#V#W#X#Y#Z#[#\#]#^#_(B - ("$(6#P(B" . "$,15n6-5h(B") - ("$(6#Q(B" . "$,15n6-5r(B") - ("$(6#R(B" . "$,15y6#(B") + ;;2350 + ("" . "म्न") + ("" . "म्ल") + ("" . "हृ") ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f - ;;2360 $(6#`#a#b#c#d#e#f#g#h#i#j#k#l#m#n#o(B - ("$(6#`(B" . "$,15r6-5r(B") - ("$(6#a(B" . "$,15u6-5h(B") - ("$(6#b(B" . "$,15u6-5u(B") - ("$(6#c(B" . "$,15v6-5Z(B") - ("$(6#d(B" . "$,15v6-5h(B") - ("$(6#e(B" . "$,15v6-5l(B") - ("$(6#f(B" . "$,15v6-5r(B") - ("$(6#g(B" . "$,15v6-5u(B") - ("$(6#h(B" . "$,15w6-5_6-5p6-5o(B") - ("$(6#i(B" . "$,15w6-5_6-5o(B") - ("$(6#j(B" . "$,15w6-5_6-5u(B") - ("$(6#k(B" . "$,15w6-5_(B") - ("$(6#l(B" . "$,15w6-5`(B") - ("$(6#m(B" . "$,15x6-5h(B") - ("$(6#n(B" . "$,15x6-5p(B") + ;;2360 + ("" . "ल्ल") + ("" . "व्न") + ("" . "व्व") + ("" . "श्च") + ("" . "श्न") + ("" . "श्ब") + ("" . "श्ल") + ("" . "श्व") + ("" . "ष्ट्र्य") + ("" . "ष्ट्य") + ("" . "ष्ट्व") + ("" . "ष्ट") + ("" . "ष्ठ") + ("" . "स्न") + ("" . "स्र") ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f - ;;2370 $(6#p#q#r#s#t#u#v#w#x#y#z#{#|#}#~(B - ("$(6#p(B" . "$,15y6-5c(B") - ("$(6#q(B" . "$,15y6-5h(B") - ("$(6#r(B" . "$,15y6-5n(B") - ("$(6#s(B" . "$,15y6-5o(B") - ("$(6#t(B" . "$,15y6-5p(B") - ("$(6#u(B" . "$,15y6-5r(B") - ("$(6#v(B" . "$,15y6-5u(B") + ;;2370 + ("" . "ह्ण") + ("" . "ह्न") + ("" . "ह्म") + ("" . "ह्य") + ("" . "ह्र") + ("" . "ह्ल") + ("" . "ह्व") ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f - ;;2420 $(6$!$"$#$$$%$&$'$($)$*$+$,$-$.$/(B - ("$(6$!(B" . "$,15U6-5d6-5p6-5o(B") - ("$(6$"(B" . "$,15U6-5d6-5u(B") - ("$(6$#(B" . "$,15U6-5d6-5o(B") - ("$(6$$(B" . "$,15U6-5h6-5o(B") - ("$(6$%(B" . "$,15U6-5p6-5o(B") - ("$(6$&(B" . "$,15U6-5u6-5o(B") - ("$(6$'(B" . "$,15U6-5U(B") - ("$(6$((B" . "$,15U6-5d(B") - ("$(6$)(B" . "$,15U6-5h(B") - ("$(6$*(B" . "$,15U6-5n(B") - ("$(6$+(B" . "$,15U6-5o(B") - ("$(6$,(B" . "$,15U6-5r(B") - ("$(6$-(B" . "$,15U6-5u(B") - ("$(6$.(B" . "$,15U6-5w(B") - ("$(6$/(B" . "$,15X6-5h(B") + ;;2420 + ("" . "क्त्र्य") + ("" . "क्त्व") + ("" . "क्त्य") + ("" . "क्न्य") + ("" . "क्र्य") + ("" . "क्व्य") + ("" . "क्क") + ("" . "क्त") + ("" . "क्न") + ("" . "क्म") + ("" . "क्य") + ("" . "क्ल") + ("" . "क्व") + ("" . "क्ष") + ("" . "घ्न") ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f - ;;2430 $(6$0$1$2$3$4$5$6$7$8$9$:$;$<$=$>$?(B - ("$(6$0(B" . "$,15Y6-5U6-5d6-5o(B") - ("$(6$1(B" . "$,15Y6-5U6-5w6-5u(B") - ("$(6$2(B" . "$,15Y6-5U6-5d(B") - ("$(6$3(B" . "$,15Y6-5U6-5w(B") - ("$(6$4(B" . "$,15Y6-5X6-5p(B") - ("$(6$5(B" . "$,15Y6-5U6-5o(B") - ("$(6$6(B" . "$,15Y6-5V6-5o(B") - ("$(6$7(B" . "$,15Y6-5W6-5o(B") - ("$(6$8(B" . "$,15Y6-5X6-5o(B") - ("$(6$9(B" . "$,15Y6-5U(B") - ("$(6$:(B" . "$,15Y6-5V(B") - ("$(6$;(B" . "$,15Y6-5W(B") - ("$(6$<(B" . "$,15Y6-5X(B") - ("$(6$=(B" . "$,15Y6-5Y(B") - ("$(6$>(B" . "$,15Y6-5h(B") - ("$(6$?(B" . "$,15Y6-5n(B") + ;;2430 + ("" . "ङ्क्त्य") + ("" . "ङ्क्ष्व") + ("" . "ङ्क्त") + ("" . "ङ्क्ष") + ("" . "ङ्घ्र") + ("" . "ङ्क्य") + ("" . "ङ्ख्य") + ("" . "ङ्ग्य") + ("" . "ङ्घ्य") + ("" . "ङ्क") + ("" . "ङ्ख") + ("" . "ङ्ग") + ("" . "ङ्घ") + ("" . "ङ्ङ") + ("" . "ङ्न") + ("" . "ङ्म") ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f - ;;2440 $(6$@$A$B$C$D$E$F$G$H$I$J$K$L$M$N$O(B - ("$(6$@(B" . "$,15Y6-5o(B") - ("$(6$A(B" . "$,15Z6-5Z(B") - ("$(6$B(B" . "$,15Z6-5^(B") - ("$(6$C(B" . "$,15[6-5o(B") - ("$(6$D(B" . "$,15\6-5p(B") - ("$(6$E(B" . "$,15\6-5^(B") - ("$(6$F(B" . "$,15^6-5Z(B") - ("$(6$G(B" . "$,15^6-5\(B") - ("$(6$H(B" . "$,15_6-5U(B") - ("$(6$I(B" . "$,15_6-5_(B") - ("$(6$J(B" . "$,15_6-5`(B") - ("$(6$K(B" . "$,15_6-5o(B") - ("$(6$L(B" . "$,15`6-5o(B") - ("$(6$M(B" . "$,15a6-5W6-5o(B") - ("$(6$N(B" . "$,15a6-5X6-5p(B") - ("$(6$O(B" . "$,15a6-5p6-5o(B") + ;;2440 + ("" . "ङ्य") + ("" . "च्च") + ("" . "च्ञ") + ("" . "छ्य") + ("" . "ज्र") + ("" . "ज्ञ") + ("" . "ञ्च") + ("" . "ञ्ज") + ("" . "ट्क") + ("" . "ट्ट") + ("" . "ट्ठ") + ("" . "ट्य") + ("" . "ठ्य") + ("" . "ड्ग्य") + ("" . "ड्घ्र") + ("" . "ड्र्य") ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f - ;;2450 $(6$P$Q$R$S$T$U$V$W$X$Y$Z$[$\$]$^$_(B - ("$(6$P(B" . "$,15a6-5W(B") - ("$(6$Q(B" . "$,15a6-5X(B") - ("$(6$R(B" . "$,15a6-5a(B") - ("$(6$S(B" . "$,15a6-5n(B") - ("$(6$T(B" . "$,15a6-5o(B") + ;;2450 + ("" . "ड्ग") + ("" . "ड्घ") + ("" . "ड्ड") + ("" . "ड्म") + ("" . "ड्य") ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f - ;;2460 $(6$`$a$b$c$d$e$f$g$h$i$j$k$l$m$n$o(B - ("$(6$`(B" . "$,15b6-5o(B") - ("$(6$a(B" . "$,15d6-5d(B") - ("$(6$b(B" . "$,15d6-5h(B") - ("$(6$c(B" . "$,15f6-5f6-5o(B") - ("$(6$d(B" . "$,15f6-5g6-5o(B") - ("$(6$e(B" . "$,15f6-5m6-5o(B") - ("$(6$f(B" . "$,15f6-5p6-5o(B") - ("$(6$g(B" . "$,15f6-5u6-5o(B") - ("$(6$h(B" . "$,15f6-5W6-5p(B") - ("$(6$i(B" . "$,15f6-5X6-5p(B") - ("$(6$j(B" . "$,15f6-5f6-5u(B") - ("$(6$k(B" . "$,15f6-5g6-5u(B") - ("$(6$l(B" . "$,15f6-5W(B") - ("$(6$m(B" . "$,15f6-5X(B") - ("$(6$n(B" . "$,15f6-5f(B") - ("$(6$o(B" . "$,15f6-5g(B") + ;;2460 + ("" . "ढ्य") + ("" . "त्त") + ("" . "त्न") + ("" . "द्द्य") + ("" . "द्ध्य") + ("" . "द्भ्य") + ("" . "द्र्य") + ("" . "द्व्य") + ("" . "द्ग्र") + ("" . "द्घ्र") + ("" . "द्द्व") + ("" . "द्ध्व") + ("" . "द्ग") + ("" . "द्घ") + ("" . "द्द") + ("" . "द्ध") ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f - ;;2470 $(6$p$q$r$s$t$u$v$w$x$y$z${$|$}$~(B - ("$(6$p(B" . "$,15f6-5h(B") - ("$(6$q(B" . "$,15f6-5l(B") - ("$(6$r(B" . "$,15f6-5m(B") - ("$(6$s(B" . "$,15f6-5n(B") - ("$(6$t(B" . "$,15f6-5o(B") - ("$(6$u(B" . "$,15f6-5u(B") - ("$(6$v(B" . "$,15g6-5h(B") - ("$(6$w(B" . "$,15h6-5h(B") - ("$(6$x(B" . "$,15j6-5d(B") - ("$(6$y(B" . "$,15j6-5h(B") - ("$(6$z(B" . "$,15j6-5r(B") - ("$(6${(B" . "$,15l6-5h(B") - ("$(6$|(B" . "$,15l6-5l(B") - ("$(6$}(B" . "$,15l6-5u(B") - ("$(6$~(B" . "$,15m6-5h(B"))) + ;;2470 + ("" . "द्न") + ("" . "द्ब") + ("" . "द्भ") + ("" . "द्म") + ("" . "द्य") + ("" . "द्व") + ("" . "ध्न") + ("" . "न्न") + ("" . "प्त") + ("" . "प्न") + ("" . "प्ल") + ("" . "ब्न") + ("" . "ब्ब") + ("" . "ब्व") + ("" . "भ्न"))) (defconst indian-2-column-to-ucs-regexp - "$(6!j!j(B\\|$(6"8"q(B\\|[$(6#&#'!*#*(B]$(6"p(B\\|[$(6!!(B-$(6$~(B]") + "\\|\\|[]\\|[-]") (put 'indian-2-column-to-ucs-chartable 'char-table-extra-slots 1) (defconst indian-2-column-to-ucs-chartable diff --git a/lisp/language/lao-util.el b/lisp/language/lao-util.el index d1bee8aec0..8a30ff4926 100644 --- a/lisp/language/lao-util.el +++ b/lisp/language/lao-util.el @@ -1,4 +1,4 @@ -;;; lao-util.el --- utilities for Lao -*- coding: iso-2022-7bit; -*- +;;; lao-util.el --- utilities for Lao -*- coding: utf-8; -*- ;; Copyright (C) 2001-2013 Free Software Foundation, Inc. ;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, @@ -38,100 +38,100 @@ (define-category ?v "Lao upper/lower vowel" lao-category-table) (define-category ?t "Lao tone" lao-category-table) -(let ((l '((?(1!(B consonant "LETTER KOR KAI'" "CHICKEN") - (?(1"(B consonant "LETTER KHOR KHAI'" "EGG") - (?(1#(B invalid nil) - (?(1$(B consonant "LETTER QHOR QHWARGN" "BUFFALO") - (?(1%(B invalid nil) +(let ((l '((?ກ consonant "LETTER KOR KAI'" "CHICKEN") + (?ຂ consonant "LETTER KHOR KHAI'" "EGG") + (?຃ invalid nil) + (?ຄ consonant "LETTER QHOR QHWARGN" "BUFFALO") + (?຅ invalid nil) (? invalid nil) - (?(1'(B consonant "LETTER NGOR NGUU" "SNAKE") - (?(1((B consonant "LETTER JOR JUA" "BUDDHIST NOVICE") - (?(1)(B invalid nil) - (?(1*(B consonant "LETTER XOR X\"ARNG" "ELEPHANT") - (?(1+(B invalid nil) - (?(1,(B invalid nil) - (?(1-(B consonant "LETTER YOR YUNG" "MOSQUITO") - (?(1.(B invalid nil) - (?(1.(B invalid nil) - (?(1.(B invalid nil) - (?(1.(B invalid nil) - (?(1.(B invalid nil) - (?(1.(B invalid nil) - (?(14(B consonant "LETTER DOR DANG" "NOSE") - (?(15(B consonant "LETTER TOR TAR" "EYE") - (?(16(B consonant "LETTER THOR THUNG" "TO ASK,QUESTION") - (?(17(B consonant "LETTER DHOR DHARM" "FLAG") - (?(18(B invalid nil) - (?(19(B consonant "LETTER NOR NOK" "BIRD") - (?(1:(B consonant "LETTER BOR BED" "FISHHOOK") - (?(1;(B consonant "LETTER POR PAR" "FISH") - (?(1<(B consonant "LETTER HPOR HPER\"" "BEE") - (?(1=(B consonant "LETTER FHOR FHAR" "WALL") - (?(1>(B consonant "LETTER PHOR PHUU" "MOUNTAIN") - (?(1?(B consonant "LETTER FOR FAI" "FIRE") - (?(1@(B invalid nil) - (?(1A(B consonant "LETTER MOR MAR\"" "HORSE") - (?(1B(B consonant "LETTER GNOR GNAR" "MEDICINE") - (?(1C(B consonant "LETTER ROR ROD" "CAR") - (?(1D(B invalid nil) - (?(1E(B consonant "LETTER LOR LIING" "MONKEY") - (?(1F(B invalid nil) - (?(1G(B consonant "LETTER WOR WII" "HAND FAN") - (?(1H(B invalid nil) - (?(1I(B invalid nil) - (?(1J(B consonant "LETTER SOR SEA" "TIGER") - (?(1K(B consonant "LETTER HHOR HHAI" "JAR") - (?(1L(B invalid nil) - (?(1M(B consonant "LETTER OR OOW" "TAKE") - (?(1N(B consonant "LETTER HOR HEA" "BOAT") - (?(1O(B special "ELLIPSIS") - (?(1P(B vowel-base "VOWEL SIGN SARA A") - (?(1Q(B vowel-upper "VOWEL SIGN MAI KAN") - (?(1R(B vowel-base "VOWEL SIGN SARA AR") - (?(1S(B vowel-base "VOWEL SIGN SARA AM") - (?(1T(B vowel-upper "VOWEL SIGN SARA I") - (?(1U(B vowel-upper "VOWEL SIGN SARA II") - (?(1V(B vowel-upper "VOWEL SIGN SARA EU") - (?(1W(B vowel-upper "VOWEL SIGN SARA UR") - (?(1X(B vowel-lower "VOWEL SIGN SARA U") - (?(1Y(B vowel-lower "VOWEL SIGN SARA UU") - (?(1Z(B invalid nil) - (?(1[(B vowel-upper "VOWEL SIGN MAI KONG") - (?(1\(B semivowel-lower "SEMIVOWEL SIGN LO") - (?(1](B vowel-base "SEMIVOWEL SIGN SARA IA") - (?(1^(B invalid nil) - (?(1_(B invalid nil) - (?(1`(B vowel-base "VOWEL SIGN SARA EE") - (?(1a(B vowel-base "VOWEL SIGN SARA AA") - (?(1b(B vowel-base "VOWEL SIGN SARA OO") - (?(1c(B vowel-base "VOWEL SIGN SARA EI MAI MUAN\"") - (?(1d(B vowel-base "VOWEL SIGN SARA AI MAI MAY") - (?(1e(B invalid nil) - (?(1f(B special "KO LA (REPETITION)") - (?(1g(B invalid nil) - (?(1h(B tone "TONE MAI EK") - (?(1i(B tone "TONE MAI THO") - (?(1j(B tone "TONE MAI TI") - (?(1k(B tone "TONE MAI JADTAWAR") - (?(1l(B tone "CANCELLATION MARK") - (?(1m(B vowel-upper "VOWEL SIGN SARA OR") - (?(1n(B invalid nil) - (?(1o(B invalid nil) - (?(1p(B special "DIGIT ZERO") - (?(1q(B special "DIGIT ONE") - (?(1r(B special "DIGIT TWO") - (?(1s(B special "DIGIT THREE") - (?(1t(B special "DIGIT FOUR") - (?(1u(B special "DIGIT FIVE") - (?(1v(B special "DIGIT SIX") - (?(1w(B special "DIGIT SEVEN") - (?(1x(B special "DIGIT EIGHT") - (?(1y(B special "DIGIT NINE") - (?(1z(B invalid nil) - (?(1{(B invalid nil) - (?(1|(B consonant "LETTER NHOR NHUU" "MOUSE") - (?(1}(B consonant "LETTER MHOR MHAR" "DOG") - (?(1~(B invalid nil))) + (?ງ consonant "LETTER NGOR NGUU" "SNAKE") + (?ຈ consonant "LETTER JOR JUA" "BUDDHIST NOVICE") + (?ຉ invalid nil) + (?ຊ consonant "LETTER XOR X\"ARNG" "ELEPHANT") + (?຋ invalid nil) + (?ຌ invalid nil) + (?ຍ consonant "LETTER YOR YUNG" "MOSQUITO") + (?ຎ invalid nil) + (?ຎ invalid nil) + (?ຎ invalid nil) + (?ຎ invalid nil) + (?ຎ invalid nil) + (?ຎ invalid nil) + (?ດ consonant "LETTER DOR DANG" "NOSE") + (?ຕ consonant "LETTER TOR TAR" "EYE") + (?ຖ consonant "LETTER THOR THUNG" "TO ASK,QUESTION") + (?ທ consonant "LETTER DHOR DHARM" "FLAG") + (?ຘ invalid nil) + (?ນ consonant "LETTER NOR NOK" "BIRD") + (?ບ consonant "LETTER BOR BED" "FISHHOOK") + (?ປ consonant "LETTER POR PAR" "FISH") + (?ຜ consonant "LETTER HPOR HPER\"" "BEE") + (?ຝ consonant "LETTER FHOR FHAR" "WALL") + (?ພ consonant "LETTER PHOR PHUU" "MOUNTAIN") + (?ຟ consonant "LETTER FOR FAI" "FIRE") + (?ຠ invalid nil) + (?ມ consonant "LETTER MOR MAR\"" "HORSE") + (?ຢ consonant "LETTER GNOR GNAR" "MEDICINE") + (?ຣ consonant "LETTER ROR ROD" "CAR") + (?຤ invalid nil) + (?ລ consonant "LETTER LOR LIING" "MONKEY") + (?຦ invalid nil) + (?ວ consonant "LETTER WOR WII" "HAND FAN") + (?ຨ invalid nil) + (?ຩ invalid nil) + (?ສ consonant "LETTER SOR SEA" "TIGER") + (?ຫ consonant "LETTER HHOR HHAI" "JAR") + (?ຬ invalid nil) + (?ອ consonant "LETTER OR OOW" "TAKE") + (?ຮ consonant "LETTER HOR HEA" "BOAT") + (?ຯ special "ELLIPSIS") + (?ະ vowel-base "VOWEL SIGN SARA A") + (?ັ vowel-upper "VOWEL SIGN MAI KAN") + (?າ vowel-base "VOWEL SIGN SARA AR") + (?ຳ vowel-base "VOWEL SIGN SARA AM") + (?ິ vowel-upper "VOWEL SIGN SARA I") + (?ີ vowel-upper "VOWEL SIGN SARA II") + (?ຶ vowel-upper "VOWEL SIGN SARA EU") + (?ື vowel-upper "VOWEL SIGN SARA UR") + (?ຸ vowel-lower "VOWEL SIGN SARA U") + (?ູ vowel-lower "VOWEL SIGN SARA UU") + (?຺ invalid nil) + (?ົ vowel-upper "VOWEL SIGN MAI KONG") + (?ຼ semivowel-lower "SEMIVOWEL SIGN LO") + (?ຽ vowel-base "SEMIVOWEL SIGN SARA IA") + (?຾ invalid nil) + (?຿ invalid nil) + (?ເ vowel-base "VOWEL SIGN SARA EE") + (?ແ vowel-base "VOWEL SIGN SARA AA") + (?ໂ vowel-base "VOWEL SIGN SARA OO") + (?ໃ vowel-base "VOWEL SIGN SARA EI MAI MUAN\"") + (?ໄ vowel-base "VOWEL SIGN SARA AI MAI MAY") + (?໅ invalid nil) + (?ໆ special "KO LA (REPETITION)") + (?໇ invalid nil) + (?່ tone "TONE MAI EK") + (?້ tone "TONE MAI THO") + (?໊ tone "TONE MAI TI") + (?໋ tone "TONE MAI JADTAWAR") + (?໌ tone "CANCELLATION MARK") + (?ໍ vowel-upper "VOWEL SIGN SARA OR") + (?໎ invalid nil) + (?໏ invalid nil) + (?໐ special "DIGIT ZERO") + (?໑ special "DIGIT ONE") + (?໒ special "DIGIT TWO") + (?໓ special "DIGIT THREE") + (?໔ special "DIGIT FOUR") + (?໕ special "DIGIT FIVE") + (?໖ special "DIGIT SIX") + (?໗ special "DIGIT SEVEN") + (?໘ special "DIGIT EIGHT") + (?໙ special "DIGIT NINE") + (?໚ invalid nil) + (?໛ invalid nil) + (?ໜ consonant "LETTER NHOR NHUU" "MOUSE") + (?ໝ consonant "LETTER MHOR MHAR" "DOG") + (?ໞ invalid nil))) elm) (while l (setq elm (car l) l (cdr l)) @@ -185,115 +185,115 @@ (defconst lao-transcription-consonant-alist (sort '(;; single consonants - ("k" . "(1!(B") - ("kh" . "(1"(B") - ("qh" . "(1$(B") - ("ng" . "(1'(B") - ("j" . "(1((B") - ("s" . "(1J(B") - ("x" . "(1*(B") - ("y" . "(1-(B") - ("d" . "(14(B") - ("t" . "(15(B") - ("th" . "(16(B") - ("dh" . "(17(B") - ("n" . "(19(B") - ("b" . "(1:(B") - ("p" . "(1;(B") - ("hp" . "(1<(B") - ("fh" . "(1=(B") - ("ph" . "(1>(B") - ("f" . "(1?(B") - ("m" . "(1A(B") - ("gn" . "(1B(B") - ("l" . "(1E(B") - ("r" . "(1C(B") - ("v" . "(1G(B") - ("w" . "(1G(B") - ("hh" . "(1K(B") - ("O" . "(1M(B") - ("h" . "(1N(B") - ("nh" . "(1|(B") - ("mh" . "(1}(B") - ("lh" . ["(1K\(B"]) + ("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" . ["ຫຼ"]) ;; double consonants - ("ngh" . ["(1K'(B"]) - ("yh" . ["(1K](B"]) - ("wh" . ["(1KG(B"]) - ("hl" . ["(1KE(B"]) - ("hy" . ["(1K-(B"]) - ("hn" . ["(1K9(B"]) - ("hm" . ["(1KA(B"]) + ("ngh" . ["ຫງ"]) + ("yh" . ["ຫຽ"]) + ("wh" . ["ຫວ"]) + ("hl" . ["ຫລ"]) + ("hy" . ["ຫຍ"]) + ("hn" . ["ຫນ"]) + ("hm" . ["ຫມ"]) ) (function (lambda (x y) (> (length (car x)) (length (car y))))))) (defconst lao-transcription-semi-vowel-alist - '(("r" . "(1\(B"))) + '(("r" . "ຼ"))) (defconst lao-transcription-vowel-alist - (sort '(("a" . "(1P(B") - ("ar" . "(1R(B") - ("i" . "(1T(B") - ("ii" . "(1U(B") - ("eu" . "(1V(B") - ("ur" . "(1W(B") - ("u" . "(1X(B") - ("uu" . "(1Y(B") - ("e" . ["(1`P(B"]) - ("ee" . "(1`(B") - ("ae" . ["(1aP(B"]) - ("aa" . "(1a(B") - ("o" . ["(1bP(B"]) - ("oo" . "(1b(B") - ("oe" . ["(1`RP(B"]) - ("or" . "(1m(B") - ("er" . ["(1`T(B"]) - ("ir" . ["(1`U(B"]) - ("ua" . ["(1[GP(B"]) - ("uaa" . ["(1[G(B"]) - ("ie" . ["(1`Q]P(B"]) - ("ia" . ["(1`Q](B"]) - ("ea" . ["(1`VM(B"]) - ("eaa" . ["(1`WM(B"]) - ("ai" . "(1d(B") - ("ei" . "(1c(B") - ("ao" . ["(1`[R(B"]) - ("aM" . "(1S(B")) + (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" . "ຳ")) (function (lambda (x y) (> (length (car x)) (length (car y))))))) ;; Maa-sakod is put at the tail. (defconst lao-transcription-maa-sakod-alist - '(("k" . "(1!(B") - ("g" . "(1'(B") - ("y" . "(1-(B") - ("d" . "(14(B") - ("n" . "(19(B") - ("b" . "(1:(B") - ("m" . "(1A(B") - ("v" . "(1G(B") - ("w" . "(1G(B") + '(("k" . "ກ") + ("g" . "ງ") + ("y" . "ຍ") + ("d" . "ດ") + ("n" . "ນ") + ("b" . "ບ") + ("m" . "ມ") + ("v" . "ວ") + ("w" . "ວ") )) (defconst lao-transcription-tone-alist - '(("'" . "(1h(B") - ("\"" . "(1i(B") - ("^" . "(1j(B") - ("+" . "(1k(B") - ("~" . "(1l(B"))) + '(("'" . "່") + ("\"" . "້") + ("^" . "໊") + ("+" . "໋") + ("~" . "໌"))) (defconst lao-transcription-punctuation-alist - '(("\\0" . "(1p(B") - ("\\1" . "(1q(B") - ("\\2" . "(1r(B") - ("\\3" . "(1s(B") - ("\\4" . "(1t(B") - ("\\5" . "(1u(B") - ("\\6" . "(1v(B") - ("\\7" . "(1w(B") - ("\\8" . "(1x(B") - ("\\9" . "(1y(B") - ("\\\\" . "(1f(B") - ("\\$" . "(1O(B"))) + '(("\\0" . "໐") + ("\\1" . "໑") + ("\\2" . "໒") + ("\\3" . "໓") + ("\\4" . "໔") + ("\\5" . "໕") + ("\\6" . "໖") + ("\\7" . "໗") + ("\\8" . "໘") + ("\\9" . "໙") + ("\\\\" . "ໆ") + ("\\$" . "ຯ"))) (defconst lao-transcription-pattern (concat @@ -332,39 +332,39 @@ "Regexp of Roman transcription pattern for one Lao syllable.") (defconst lao-vowel-reordering-rule - '(("(1P(B" (0 ?(1P(B) (0 ?(1Q(B)) - ("(1R(B" (0 ?(1R(B)) - ("(1T(B" (0 ?(1U(B)) - ("(1U(B" (0 ?(1U(B)) - ("(1V(B" (0 ?(1V(B)) - ("(1W(B" (0 ?(1W(B)) - ("(1X(B" (0 ?(1X(B)) - ("(1Y(B" (0 ?(1Y(B)) - ("(1`P(B" (?(1`(B 0 ?(1P(B) (?(1`(B 0 ?(1Q(B)) - ("(1`(B" (?(1`(B 0)) - ("(1aP(B" (?(1a(B 0 ?(1P(B) (?(1a(B 0 ?(1Q(B)) - ("(1a(B" (?(1a(B 0)) - ("(1bP(B" (?(1b(B 0 ?(1P(B) (0 ?(1[(B) (?(1-(B ?(1b(B 0 ?(1Q(B) (?(1G(B ?(1b(B 0 ?(1Q(B)) - ("(1b(B" (?(1b(B 0)) - ("(1`RP(B" (?(1`(B 0 ?(1R(B ?(1P(B) (0 ?(1Q(B ?(1M(B)) - ("(1m(B" (0 ?(1m(B) (0 ?(1M(B)) - ("(1`T(B" (?(1`(B 0 ?(1T(B)) - ("(1`U(B" (?(1`(B 0 ?(1U(B)) - ("(1[GP(B" (0 ?(1[(B ?(1G(B ?(1P(B) (0 ?(1Q(B ?(1G(B)) - ("(1[G(B" (0 ?(1[(B ?(1G(B) (0 ?(1G(B)) - ("(1`Q]P(B" (?(1`(B 0 ?(1Q(B ?(1](B ?(1P(B) (0 ?(1Q(B ?(1](B)) - ("(1`Q](B" (?(1`(B 0 ?(1Q(B ?(1](B) (0 ?(1](B)) - ("(1`VM(B" (?(1`(B 0 ?(1V(B ?(1M(B)) - ("(1`WM(B" (?(1`(B 0 ?(1W(B ?(1M(B)) - ("(1d(B" (?(1d(B 0)) - ("(1c(B" (?(1c(B 0)) - ("(1`[R(B" (?(1`(B 0 ?(1[(B ?(1R(B)) - ("(1S(B" (0 ?(1S(B))) + '(("ະ" (0 ?ະ) (0 ?ັ)) + ("າ" (0 ?າ)) + ("ິ" (0 ?ີ)) + ("ີ" (0 ?ີ)) + ("ຶ" (0 ?ຶ)) + ("ື" (0 ?ື)) + ("ຸ" (0 ?ຸ)) + ("ູ" (0 ?ູ)) + ("ເະ" (?ເ 0 ?ະ) (?ເ 0 ?ັ)) + ("ເ" (?ເ 0)) + ("ແະ" (?ແ 0 ?ະ) (?ແ 0 ?ັ)) + ("ແ" (?ແ 0)) + ("ໂະ" (?ໂ 0 ?ະ) (0 ?ົ) (?ຍ ?ໂ 0 ?ັ) (?ວ ?ໂ 0 ?ັ)) + ("ໂ" (?ໂ 0)) + ("ເາະ" (?ເ 0 ?າ ?ະ) (0 ?ັ ?ອ)) + ("ໍ" (0 ?ໍ) (0 ?ອ)) + ("ເິ" (?ເ 0 ?ິ)) + ("ເີ" (?ເ 0 ?ີ)) + ("ົວະ" (0 ?ົ ?ວ ?ະ) (0 ?ັ ?ວ)) + ("ົວ" (0 ?ົ ?ວ) (0 ?ວ)) + ("ເັຽະ" (?ເ 0 ?ັ ?ຽ ?ະ) (0 ?ັ ?ຽ)) + ("ເັຽ" (?ເ 0 ?ັ ?ຽ) (0 ?ຽ)) + ("ເຶອ" (?ເ 0 ?ຶ ?ອ)) + ("ເືອ" (?ເ 0 ?ື ?ອ)) + ("ໄ" (?ໄ 0)) + ("ໃ" (?ໃ 0)) + ("ເົາ" (?ເ 0 ?ົ ?າ)) + ("ຳ" (0 ?ຳ))) "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. \"(1`Q]P(B\"). +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 @@ -375,8 +375,8 @@ 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 `(\"(1`WM(B\" (?(1`(B t ?(1W(B ?(1M(B))' tells that this vowel -string following a consonant `(1!(B' should be re-ordered as \"(1`!WM(B\". +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.") diff --git a/lisp/language/thai.el b/lisp/language/thai.el index abed8f1036..803e9977d4 100644 --- a/lisp/language/thai.el +++ b/lisp/language/thai.el @@ -1,4 +1,4 @@ -;;; thai.el --- support for Thai -*- coding: iso-2022-7bit -*- +;;; thai.el --- support for Thai -*- coding: utf-8 -*- ;; Copyright (C) 1997-1998, 2000-2013 Free Software Foundation, Inc. ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, @@ -55,7 +55,7 @@ (exit-function . exit-thai-language-environment-internal) (sample-text . (thai-compose-string - (copy-sequence "Thai (,T@RIRd7B(B) ,TJGQJ4U$CQ:(B, ,TJGQJ4U$hP(B"))) + (copy-sequence "Thai (ภาษาไทย) สวัสดีครับ, สวัสดีค่ะ"))) (documentation . t))) (define-coding-system 'cp874 @@ -75,12 +75,12 @@ This is the same as `thai-tis620' with the addition of no-break-space." :charset-list '(iso-8859-11)) ;; For automatic composition. -(let ((chars ",TQTUVWXYZghijklmn(B") - (elt '(["[,T!(B-,TO(B].[,Thijkl(B]?,TS(B?" 1 thai-composition-function] +(let ((chars "ัิีึืฺุู็่้๊๋์ํ๎") + (elt '(["[ก-ฯ].[่้๊๋์]?ำ?" 1 thai-composition-function] [nil 0 thai-composition-function]))) (dotimes (i (length chars)) (aset composition-function-table (aref chars i) elt))) -(aset composition-function-table ?,TS(B '(["[,T!(B-,TO(B]." 1 thai-composition-function])) +(aset composition-function-table ?ำ '(["[ก-ฯ]." 1 thai-composition-function])) (provide 'thai) diff --git a/lisp/language/tibet-util.el b/lisp/language/tibet-util.el index 1617c2f3eb..422fc697df 100644 --- a/lisp/language/tibet-util.el +++ b/lisp/language/tibet-util.el @@ -1,4 +1,4 @@ -;;; tibet-util.el --- utilities for Tibetan -*- coding: iso-2022-7bit; -*- +;;; tibet-util.el --- utilities for Tibetan -*- coding: utf-8-emacs; -*- ;; Copyright (C) 1997, 2001-2013 Free Software Foundation, Inc. ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, @@ -35,21 +35,21 @@ ;;; Code: (defconst tibetan-obsolete-glyphs - `(("$(7!=(B" . "$(7!=(B") ; 2 col <-> 1 col - ("$(7!?(B" . "$(7!?(B") - ("$(7!@(B" . "$(7!@(B") - ("$(7!A(B" . "$(7!A(B") - ("$(7"`(B" . "$(7"`(B") - ("$(7!;(B" . "$(7!;(B") - ("$(7!D(B" . "$(7!D(B") + `(("།" . "།") ; 2 col <-> 1 col + ("༏" . "༏") + ("༐" . "༐") + ("༑" . "༑") + ("ཿ" . "ཿ") + ("་" . "་") + ("༔" . "༔") ;; Yes these are dirty. But ... - ("$(7!>(B $(7!>(B" . ,(compose-string "$(7!>(B $(7!>(B" 0 3 [?$(7!>(B (Br . Bl) ? (Br . Bl) ?$(7!>(B])) - ("$(7!4!5!5(B" . ,(compose-string - "$(7#R#S#S#S(B" 0 4 - [?$(7#R(B (Br . Bl) ?$(7#S(B (Br . Bl) ?$(7#S(B (Br . Bl) ?$(7#S(B])) - ("$(7!4!5(B" . ,(compose-string "$(7#R#S#S(B" 0 3 [?$(7#R(B (Br . Bl) ?$(7#S(B (Br . Bl) ?$(7#S(B])) - ("$(7!6(B" . ,(compose-string "$(7#R#S!I(B" 0 3 [?$(7#R(B (Br . Bl) ?$(7#S(B (br . tr) ?$(7!I(B])) - ("$(7!4(B" . ,(compose-string "$(7#R#S(B" 0 2 [?$(7#R(B (Br . Bl) ?$(7#S(B])))) + ("༎ ༎" . ,(compose-string "༎ ༎" 0 3 [?༎ (Br . Bl) ? (Br . Bl) ?༎])) + ("༄༅༅" . ,(compose-string + "࿁࿂࿂࿂" 0 4 + [?࿁ (Br . Bl) ?࿂ (Br . Bl) ?࿂ (Br . Bl) ?࿂])) + ("༄༅" . ,(compose-string "࿁࿂࿂" 0 3 [?࿁ (Br . Bl) ?࿂ (Br . Bl) ?࿂])) + ("༆" . ,(compose-string "࿁࿂༙" 0 3 [?࿁ (Br . Bl) ?࿂ (br . tr) ?༙])) + ("༄" . ,(compose-string "࿁࿂" 0 2 [?࿁ (Br . Bl) ?࿂])))) ;;;###autoload (defun tibetan-char-p (ch) @@ -136,7 +136,7 @@ The returned string has no composition information." ;;; ;;; Here are examples of the words "bsgrubs" and "hfauM" ;;; -;;; $(7"7"G###C"U"7"G(B $(7"H"R"U"_(B +;;; བསྒྲུབས ཧཱུཾ ;;; ;;; M ;;; b s b s h @@ -144,7 +144,7 @@ The returned string has no composition information." ;;; r u ;;; u ;;; -;;; Consonants `'' ($(7"A(B), `w' ($(7">(B), `y' ($(7"B(B), `r' ($(7"C(B) take special +;;; Consonants `'' (འ), `w' (ཝ), `y' (ཡ), `r' (ར) take special ;;; forms when they are used as subjoined consonant. Consonant `r' ;;; takes another special form when used as superjoined in such a case ;;; as "rka", while it does not change its form when conjoined with @@ -161,15 +161,15 @@ The returned string has no composition information." ;; Special treatment for 'a chung. ;; If 'a follows a consonant, turn it into the subjoined form. ;; * Disabled by Tomabechi 2000/06/09 * - ;; Because in Unicode, $(7"A(B may follow directly a consonant without - ;; any intervening vowel, as in $(7"9"""Q"A!;(B=$(7"9(B $(7""(B $(7"A(B not $(7"9(B $(7""(B $(7"Q(B $(7"A(B - ;;(if (and (= char ?$(7"A(B) + ;; Because in Unicode, འ may follow directly a consonant without + ;; any intervening vowel, as in མཁའ་=མ ཁ འ not མ ཁ འ + ;;(if (and (= char ?འ) ;; (aref (char-category-set (car last)) ?0)) - ;; (setq char ?$(7"R(B)) ;; modified for new font by Tomabechi 1999/12/10 + ;; (setq char ?ཱ)) ;; modified for new font by Tomabechi 1999/12/10 ;; Composite vowel signs are decomposed before being added ;; Added by Tomabechi 2000/06/08 - (if (memq char '(?$(7"T(B ?$(7"V(B ?$(7"W(B ?$(7"X(B ?$(7"Y(B ?$(7"Z(B ?$(7"b(B)) + (if (memq char '(?ཱི ?ཱུ ?ྲྀ ?ཷ ?ླྀ ?ཹ ?ཱྀ)) (setq comp-vowel (copy-sequence (cddr (assoc (char-to-string char) @@ -184,22 +184,22 @@ The returned string has no composition information." ;; Compose lower vowel sign vertically under. ((aref (char-category-set char) ?3) - (if (or (eq char ?$(7"Q(B) ;; `$(7"Q(B' and `$,1FP(B' should not visible when composed. + (if (or (eq char ?) ;; `' and `཰' should not visible when composed. (eq char #xF70)) (setq rule nil) (setq rule stack-under))) ;; Transform ra-mgo (superscribed r) if followed by a subjoined ;; consonant other than w, ', y, r. - ((and (= (car last) ?$(7"C(B) - (not (memq char '(?$(7#>(B ?$(7"R(B ?$(7#B(B ?$(7#C(B)))) - (setcar last ?$(7!"(B) ;; modified for newfont by Tomabechi 1999/12/10 + ((and (= (car last) ?ར) + (not (memq char '(?ྭ ?ཱ ?ྱ ?ྲ)))) + (setcar last ?) ;; modified for newfont by Tomabechi 1999/12/10 (setq rule stack-under)) ;; Transform initial base consonant if followed by a subjoined ;; consonant but 'a. (t (let ((laststr (char-to-string (car last)))) - (if (and (/= char ?$(7"R(B) ;; modified for new font by Tomabechi - (string-match "[$(7"!(B-$(7"="?"@"D(B-$(7"J"K(B]" laststr)) + (if (and (/= char ?ཱ) ;; modified for new font by Tomabechi + (string-match "[ཀ-ཛྷཞཟལ-ཀྵཪ]" laststr)) (setcar last (string-to-char (cdr (assoc (char-to-string (car last)) tibetan-base-to-subjoined-alist))))) @@ -216,7 +216,7 @@ The returned string has no composition information." (defun tibetan-compose-string (str) "Compose Tibetan string STR." (let ((idx 0)) - ;; `$(7"A(B' is included in the pattern for subjoined consonants + ;; `འ' is included in the pattern for subjoined consonants ;; because we treat it specially in tibetan-add-components. ;; (This feature is removed by Tomabechi 2000/06/08) (while (setq idx (string-match tibetan-composable-pattern str idx)) @@ -247,7 +247,7 @@ The returned string has no composition information." (save-restriction (narrow-to-region beg end) (goto-char (point-min)) - ;; `$(7"A(B' is included in the pattern for subjoined consonants + ;; `འ' is included in the pattern for subjoined consonants ;; because we treat it specially in tibetan-add-components. ;; (This feature is removed by Tomabechi 2000/06/08) (while (re-search-forward tibetan-composable-pattern nil t) @@ -366,18 +366,18 @@ See also docstring of the function tibetan-compose-region." ;;; (defvar tibetan-canonicalize-for-unicode-alist - '(("$(7"Q(B" . "") ;; remove vowel a - ("$(7"T(B" . "$(7"R"S(B") ;; decompose vowels whose use is ``discouraged'' in Unicode 3.0 - ("$(7"V(B" . "$(7"R"U(B") - ("$(7"W(B" . "$(7#C"a(B") - ("$(7"X(B" . "$(7#C"R"a(B") - ("$(7"Y(B" . "$(7#D"a(B") - ("$(7"Z(B" . "$(7#D"R"a(B") - ("$(7"b(B" . "$(7"R"a(B")) + '(("" . "") ;; remove vowel a + ("ཱི" . "ཱི") ;; decompose vowels whose use is ``discouraged'' in Unicode 3.0 + ("ཱུ" . "ཱུ") + ("ྲྀ" . "ྲྀ") + ("ཷ" . "ྲཱྀ") + ("ླྀ" . "ླྀ") + ("ཹ" . "ླཱྀ") + ("ཱྀ" . "ཱྀ")) "Rules for canonicalizing Tibetan vowels for Unicode.") (defvar tibetan-canonicalize-for-unicode-regexp - "[$(7"Q"T"V"W"X"Y"Z"b(B]" + "[ཱཱིུྲྀཷླྀཹཱྀ]" "Regexp for Tibetan vowels to be canonicalized in Unicode.") (defun tibetan-canonicalize-for-unicode-region (from to) diff --git a/lisp/language/tibetan.el b/lisp/language/tibetan.el index e80ded9c98..f85284702a 100644 --- a/lisp/language/tibetan.el +++ b/lisp/language/tibetan.el @@ -1,4 +1,4 @@ -;;; tibetan.el --- support for Tibetan language -*- coding: iso-2022-7bit; -*- +;;; tibetan.el --- support for Tibetan language -*- coding: utf-8-emacs; -*- ;; Copyright (C) 1997, 2001-2013 Free Software Foundation, Inc. ;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, @@ -43,45 +43,45 @@ ;;; I hope I can add missing characters later. ;;; ;;; 00 01 02 03 04 05 06 07 08 09 0A 0B 0C 0D 0E 0F -;;;2120 // $(7!!(B $(7!"(B $(7!#(B $(7!$(B $(7!%(B $(7!&(B $(7!'(B $(7!((B $(7!)(B $(7!*(B $(7!+(B $(7!,(B $(7!-(B $(7!.(B $(7!/(B ; obsolete glyphs (2123-5) -;;;2130 $(7!0(B $(7!1(B $(7!2(B $(7!3(B $(7!4(B $(7!5(B $(7!6(B $(7!7(B $(7!8(B $(7!9(B $(7!:(B $(7!;(B $(7!<(B $(7!=(B $(7!>(B $(7!?(B ; Punctuation, -;;;2140 $(7!@(B $(7!A(B $(7!B(B $(7!C(B $(7!D(B $(7!E(B $(7!F(B $(7!G(B $(7!H(B $(7!I(B $(7!J(B $(7!K(B $(7!L(B $(7!M(B $(7!N(B $(7!O(B ; Digits and -;;;2150 $(7!P(B $(7!Q(B $(7!R(B $(7!S(B $(7!T(B $(7!U(B $(7!V(B $(7!W(B $(7!X(B $(7!Y(B $(7!Z(B $(7![(B $(7!\(B $(7!](B $(7!^(B $(7!_(B ; Special signs. -;;;2160 $(7!`(B $(7!a(B $(7!b(B $(7!c(B $(7!d(B $(7!e(B $(7!f(B $(7!g(B $(7!h(B $(7!i(B $(7!j(B $(7!k(B $(7!l(B $(7!m(B $(7!n(B $(7!o(B ; -;;;2170 $(7!p(B $(7!q(B $(7!r(B $(7!s(B $(7!t(B $(7!u(B $(7!v(B $(7!w(B $(7!x(B $(7!y(B $(7!z(B $(7!{(B $(7!|(B $(7!}(B $(7!~(B // ; +;;;2120 // ; obsolete glyphs (2123-5) +;;;2130 ༀ ༁ ༂ ༃ ༄ ༅ ༆ ༇ ༈ ༉ ༊ ་ ༌ ། ༎ ༏ ; Punctuation, +;;;2140 ༐ ༑ ༒ ༓ ༔ ༕ ༖ ༗ ༘ ༙ ༚ ༛ ༜ ༝ ༞ ༟ ; Digits and +;;;2150 ༠ ༡ ༢ ༣ ༤ ༥ ༦ ༧ ༨ ༩ ༪ ༫ ༬ ༭ ༮ ༯ ; Special signs. +;;;2160 ༰ ༱ ༲ ༳ ༴ ༵ ༶ ༷ ༸ ༹ ༺ ༻ ༼ ༽ ༾ ༿ ; +;;;2170 // ; ;;; ;;; 00 01 02 03 04 05 06 07 08 09 0A 0B 0C 0D 0E 0F -;;;2220 // $(7"!(B $(7""(B $(7"#(B $(7"$(B $(7"%(B $(7"&(B $(7"'(B $(7"((B $(7")(B $(7"*(B $(7"+(B $(7",(B $(7"-(B $(7".(B $(7"/(B ; Base consonants -;;;2230 $(7"0(B $(7"1(B $(7"2(B $(7"3(B $(7"4(B $(7"5(B $(7"6(B $(7"7(B $(7"8(B $(7"9(B $(7":(B $(7";(B $(7"<(B $(7"=(B $(7">(B $(7"?(B ; and -;;;2240 $(7"@(B $(7"A(B $(7"B(B $(7"C(B $(7"D(B $(7"E(B $(7"F(B $(7"G(B $(7"H(B $(7"I(B $(7"J(B $(7"K(B $(7"L(B $(7"M(B $(7"N(B $(7"O(B ; Vowel signs. -;;;2250 $(7"P(B $(7"Q(B $(7"R(B $(7"S(B $(7"T(B $(7"U(B $(7"V(B $(7"W(B $(7"X(B $(7"Y(B $(7"Z(B $(7"[(B $(7"\(B $(7"](B $(7"^(B $(7"_(B ; (\x2251 = vowel a) -;;;2260 $(7"`(B $(7"a(B $(7"b(B $(7"c(B $(7"d(B $(7"e(B $(7"f(B $(7"g(B $(7"h(B $(7"i(B $(7"j(B $(7"k(B $(7"l(B $(7"m(B $(7"n(B $(7"o(B ; Long vowels and -;;;2270 $(7"p(B $(7"q(B $(7"r(B $(7"s(B $(7"t(B $(7"u(B $(7"v(B $(7"w(B $(7"x(B $(7"y(B $(7"z(B $(7"{(B $(7"|(B $(7"}(B $(7"~(B // ; vocalic r, l ARE +;;;2220 // ཀ ཁ ག གྷ ང ཅ ཆ ཇ ཉ ཊ ཋ ཌ ཌྷ ཎ ; Base consonants +;;;2230 ཏ ཐ ད དྷ ན པ ཕ བ བྷ མ ཙ ཚ ཛ ཛྷ ཝ ཞ ; and +;;;2240 ཟ འ ཡ ར ལ ཤ ཥ ས ཧ ཨ ཀྵ ཪ ; Vowel signs. +;;;2250 ཱ ི ཱི ུ ཱུ ྲྀ ཷ ླྀ ཹ ེ ཻ ོ ཽ ཾ ; (\x2251 = vowel a) +;;;2260 ཿ ྀ ཱྀ ྂ ྃ ྄ ྅ ྆ ྇ ྈ ྉ ྊ ྋ ; Long vowels and +;;;2270 // ; vocalic r, l ARE ;;; ; atomically ;;; ; encoded. ;;; 00 01 02 03 04 05 06 07 08 09 0A 0B 0C 0D 0E 0F -;;;2320 // $(7#!(B $(7#"(B $(7##(B $(7#$(B $(7#%(B $(7#&(B $(7#'(B $(7#((B $(7#)(B $(7#*(B $(7#+(B $(7#,(B $(7#-(B $(7#.(B $(7#/(B ; Subjoined consonants -;;;2330 $(7#0(B $(7#1(B $(7#2(B $(7#3(B $(7#4(B $(7#5(B $(7#6(B $(7#7(B $(7#8(B $(7#9(B $(7#:(B $(7#;(B $(7#<(B $(7#=(B $(7#>(B $(7#?(B ; -;;;2340 $(7#@(B $(7#A(B $(7#B(B $(7#C(B $(7#D(B $(7#E(B $(7#F(B $(7#G(B $(7#H(B $(7#I(B $(7#J(B $(7#K(B $(7#L(B $(7#M(B $(7#N(B $(7#O(B ; -;;;2350 $(7#P(B $(7#Q(B $(7#R(B $(7#S(B $(7#T(B $(7#U(B $(7#V(B $(7#W(B $(7#X(B $(7#Y(B $(7#Z(B $(7#[(B $(7#\(B $(7#](B $(7#^(B $(7#_(B ; Hereafter, the chars -;;;2360 $(7#`(B $(7#a(B $(7#b(B $(7#c(B $(7#d(B $(7#e(B $(7#f(B $(7#g(B $(7#h(B $(7#i(B $(7#j(B $(7#k(B $(7#l(B $(7#m(B $(7#n(B $(7#o(B ; are not specified -;;;2370 $(7#p(B $(7#q(B $(7#r(B $(7#s(B $(7#t(B $(7#u(B $(7#v(B $(7#w(B $(7#x(B $(7#y(B $(7#z(B $(7#{(B $(7#|(B $(7#}(B $(7#~(B // ; in Unicode. +;;;2320 // ྐ ྑ ྒ ྒྷ ྔ ྕ ྖ ྗ ྙ ྚ ྛ ྜ ྜྷ ྞ ; Subjoined consonants +;;;2330 ྟ ྠ ྡ ྡྷ ྣ ྤ ྥ ྦ ྦྷ ྨ ྩ ྪ ྫ ྫྷ ྭ ྮ ; +;;;2340 ྯ ྰ ྱ ྲ ླ ྴ ྵ ྶ ྷ ྸ ྐྵ ྺ ྻ ྼ ྾ ; +;;;2350 ྿ ࿀ ࿁ ࿂ ࿃ ࿄ ࿅ ࿆ ࿇ ࿈ ࿉ ࿊ ࿋ ࿌ ; Hereafter, the chars +;;;2360 ࿏ ; are not specified +;;;2370 // ; in Unicode. ;;; ;;; 00 01 02 03 04 05 06 07 08 09 0A 0B 0C 0D 0E 0F -;;;2420 // $(7$!(B $(7$"(B $(7$#(B $(7$$(B $(7$%(B $(7$&(B $(7$'(B $(7$((B $(7$)(B $(7$*(B $(7$+(B $(7$,(B $(7$-(B $(7$.(B $(7$/(B ; Precomposed -;;;2430 $(7$0(B $(7$1(B $(7$2(B $(7$3(B $(7$4(B $(7$5(B $(7$6(B $(7$7(B $(7$8(B $(7$9(B $(7$:(B $(7$;(B $(7$<(B $(7$=(B $(7$>(B $(7$?(B ; consonants for -;;;2440 $(7$@(B $(7$A(B $(7$B(B $(7$C(B $(7$D(B $(7$E(B $(7$F(B $(7$G(B $(7$H(B $(7$I(B $(7$J(B $(7$K(B $(7$L(B $(7$M(B $(7$N(B $(7$O(B ; ordinary Tibetan. -;;;2450 $(7$P(B $(7$Q(B $(7$R(B $(7$S(B $(7$T(B $(7$U(B $(7$V(B $(7$W(B $(7$X(B $(7$Y(B $(7$Z(B $(7$[(B $(7$\(B $(7$](B $(7$^(B $(7$_(B ; They are decomposed -;;;2460 $(7$`(B $(7$a(B $(7$b(B $(7$c(B $(7$d(B $(7$e(B $(7$f(B $(7$g(B $(7$h(B $(7$i(B $(7$j(B $(7$k(B $(7$l(B $(7$m(B $(7$n(B $(7$o(B ; into base and -;;;2470 $(7$p(B $(7$q(B $(7$r(B $(7$s(B $(7$t(B $(7$u(B $(7$v(B $(7$w(B $(7$x(B $(7$y(B $(7$z(B $(7${(B $(7$|(B $(7$}(B $(7$~(B // ; subjoined consonants +;;;2420 // ; Precomposed +;;;2430 ; consonants for +;;;2440 ; ordinary Tibetan. +;;;2450 ; They are decomposed +;;;2460 ; into base and +;;;2470 // ; subjoined consonants ;;; ; when written on a ;;; 00 01 02 03 04 05 06 07 08 09 0A 0B 0C 0D 0E 0F ; file in Tibetan -;;;2520 // $(7%!(B $(7%"(B $(7%#(B $(7%$(B $(7%%(B $(7%&(B $(7%'(B $(7%((B $(7%)(B $(7%*(B $(7%+(B $(7%,(B $(7%-(B $(7%.(B $(7%/(B ; coding system. -;;;2530 $(7%0(B $(7%1(B $(7%2(B $(7%3(B $(7%4(B $(7%5(B $(7%6(B $(7%7(B $(7%8(B $(7%9(B $(7%:(B $(7%;(B $(7%<(B $(7%=(B $(7%>(B $(7%?(B ; -;;;2540 $(7%@(B $(7%A(B $(7%B(B $(7%C(B $(7%D(B $(7%E(B $(7%F(B $(7%G(B $(7%H(B $(7%I(B $(7%J(B $(7%K(B $(7%L(B $(7%M(B $(7%N(B $(7%O(B ; -;;;2550 $(7%P(B $(7%Q(B $(7%R(B $(7%S(B $(7%T(B $(7%U(B $(7%V(B $(7%W(B $(7%X(B $(7%Y(B $(7%Z(B $(7%[(B $(7%\(B $(7%](B $(7%^(B $(7%_(B ; -;;;2560 $(7%`(B $(7%a(B $(7%b(B $(7%c(B $(7%d(B $(7%e(B $(7%f(B $(7%g(B $(7%h(B $(7%i(B $(7%j(B $(7%k(B $(7%l(B $(7%m(B $(7%n(B $(7%o(B ; -;;;2570 $(7%p(B $(7%q(B $(7%r(B $(7%s(B $(7%t(B $(7%u(B $(7%v(B $(7%w(B $(7%x(B $(7%y(B $(7%z(B $(7%{(B $(7%|(B $(7%}(B $(7%~(B // ; +;;;2520 // ; coding system. +;;;2530 ; +;;;2540 ; +;;;2550 ; +;;;2560 ; +;;;2570 // ; ;;; @@ -101,18 +101,18 @@ (input-method . "tibetan-wylie") (features tibet-util) (documentation . t) - (sample-text . "Tibetan ($(7"7"]"2!;"G#!"Q"2!;(B) $(7!4!5!5!>"7"!#C"Q!;"E"S"G!;"7"2"[!;"D"["#"G!>"I"]"_!;"9"Q!;"/"S!;"5"Q"2#9"[!;"H"A"U"c!>(B"))) + (sample-text . "Tibetan (བོད་སྐད་) ༄༅༅༎བཀྲ་ཤིས་བདེ་ལེགས༎ཨོཾ་མ་ཎི་པདྨེ་ཧའུྂ༎"))) -;; `$(7"A(B' is included in the pattern for subjoined consonants because we +;; `འ' 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 +;; འ 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#!(B-$(7#J#K#L#M(B]*[$,1FP$(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.") ;;; @@ -123,50 +123,50 @@ ;;; alists for tibetan char <-> transcription conversion ;;; longer transcription should come first (defconst tibetan-consonant-transcription-alist - '(("tsh" . "$(7";(B") - ("dzh" . "$(7"=(B") - ("kSH" . "$(7"J(B") - ("kh" . "$(7""(B") - ("gh" . "$(7"$(B") - ("ng" . "$(7"%(B") - ("ch" . "$(7"'(B") - ("ny" . "$(7"*(B") - ("TH" . "$(7",(B") - ("DH" . "$(7".(B") - ("th" . "$(7"1(B") - ("dh" . "$(7"3(B") - ("ph" . "$(7"6(B") - ("bh" . "$(7"8(B") - ("ts" . "$(7":(B") - ("dz" . "$(7"<(B") - ("zh" . "$(7"?(B") - ("sh" . "$(7"E(B") - ("SH" . "$(7"F(B") - ("k" . "$(7"!(B") - ("g" . "$(7"#(B") - ("c" . "$(7"&(B") - ("j" . "$(7"((B") - ("T" . "$(7"+(B") - ("D" . "$(7"-(B") - ("N" . "$(7"/(B") - ("t" . "$(7"0(B") - ("d" . "$(7"2(B") - ("n" . "$(7"4(B") - ("p" . "$(7"5(B") - ("b" . "$(7"7(B") - ("m" . "$(7"9(B") - ("w" . "$(7">(B") - ("z" . "$(7"@(B") - ("'" . "$(7"A(B") - ("y" . "$(7"B(B") - ("r" . "$(7"C(B") - ("l" . "$(7"D(B") - ("s" . "$(7"G(B") - ("h" . "$(7"H(B") - ("H" . "$(7"H(B") - ("A" . "$(7"I(B") + '(("tsh" . "ཚ") + ("dzh" . "ཛྷ") + ("kSH" . "ཀྵ") + ("kh" . "ཁ") + ("gh" . "གྷ") + ("ng" . "ང") + ("ch" . "ཆ") + ("ny" . "ཉ") + ("TH" . "ཋ") + ("DH" . "ཌྷ") + ("th" . "ཐ") + ("dh" . "དྷ") + ("ph" . "ཕ") + ("bh" . "བྷ") + ("ts" . "ཙ") + ("dz" . "ཛ") + ("zh" . "ཞ") + ("sh" . "ཤ") + ("SH" . "ཥ") + ("k" . "ཀ") + ("g" . "ག") + ("c" . "ཅ") + ("j" . "ཇ") + ("T" . "ཊ") + ("D" . "ཌ") + ("N" . "ཎ") + ("t" . "ཏ") + ("d" . "ད") + ("n" . "ན") + ("p" . "པ") + ("b" . "བ") + ("m" . "མ") + ("w" . "ཝ") + ("z" . "ཟ") + ("'" . "འ") + ("y" . "ཡ") + ("r" . "ར") + ("l" . "ལ") + ("s" . "ས") + ("h" . "ཧ") + ("H" . "ཧ") + ("A" . "ཨ") ;; Added by Tomabechi 1999/12/10 - ("R" . "$(7"K(B") ;; fixed form RA + ("R" . "ཪ") ;; fixed form RA )) @@ -174,203 +174,203 @@ '( ;; 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") + ("frr" . "ཷ") + ("fll" . "ཹ") + ("fa" . "ཱ") + ("fi" . "ཱི") + ("fu" . "ཱུ") + ("fr" . "ྲྀ") + ("fl" . "ླྀ") + ("fI" . "ཱྀ") ;; Normal Vowels - ("ai" . "$(7"\(B") - ("au" . "$(7"^(B") - ("ee" . "$(7"\(B") - ("oo" . "$(7"^(B") - ("a" . "$(7"Q(B") ; invisible vowel sign (\x2251) - ("i" . "$(7"S(B") - ("u" . "$(7"U(B") - ("e" . "$(7"[(B") - ("o" . "$(7"](B") - ("E" . "$(7"\(B") - ("O" . "$(7"^(B") - ("I" . "$(7"a(B") - ("," . "$(7"e(B") ; idem. + ("ai" . "ཻ") + ("au" . "ཽ") + ("ee" . "ཻ") + ("oo" . "ཽ") + ("a" . "") ; invisible vowel sign (\x2251) + ("i" . "ི") + ("u" . "ུ") + ("e" . "ེ") + ("o" . "ོ") + ("E" . "ཻ") + ("O" . "ཽ") + ("I" . "ྀ") + ("," . "྄") ; idem. )) (defconst tibetan-modifier-transcription-alist - '(("M" . "$(7"_(B") - ("~" . "$(7"c(B") - ("`" . "$(7"d(B") - ("x" . "$(7"i(B") - ("X" . "$(7"j(B") - ("v" . "$(7"g(B") - ("V" . "$(7"h(B") - ("q" . "$(7"k(B") - ("Q" . "$(7"l(B") - ("_/" . "$(7!I(B") - ("_o" . "$(7!g(B") - ("_O" . "$(7!e(B"))) + '(("M" . "ཾ") + ("~" . "ྂ") + ("`" . "ྃ") + ("x" . "ྈ") + ("X" . "ྉ") + ("v" . "྆") + ("V" . "྇") + ("q" . "ྊ") + ("Q" . "ྋ") + ("_/" . "༙") + ("_o" . "༷") + ("_O" . "༵"))) (defconst tibetan-precomposed-transcription-alist - '(("phyw" . "$(7$G(B") - ("tshw" . "$(7$)(B") - ("rtsw" . "$(7%.(B") - ("khw" . "$(7$"(B") - ("nyw" . "$(7$%(B") - ("tsw" . "$(7$((B") - ("zhw" . "$(7$*(B") - ("shw" . "$(7$.(B") - ("khy" . "$(7$A(B") - ("phy" . "$(7$D(B") - ("khr" . "$(7$Q(B") - ("thr" . "$(7$T(B") - ("phr" . "$(7$W(B") - ("shr" . "$(7$Z(B") - ("dzr" . "$(7$^(B") - ("grw" . "$(7$_(B") - ("rng" . "$(7%#(B") - ("rny" . "$(7%%(B") - ("rts" . "$(7%+(B") - ("rdz" . "$(7%,(B") - ("rgw" . "$(7%-(B") - ("rky" . "$(7%0(B") - ("rgy" . "$(7%1(B") - ("rmy" . "$(7%2(B") - ("lng" . "$(7%B(B") - ("sng" . "$(7%R(B") - ("sny" . "$(7%S(B") - ("sts" . "$(7%Z(B") - ("sky" . "$(7%`(B") - ("sgy" . "$(7%a(B") - ("spy" . "$(7%b(B") - ("sby" . "$(7%c(B") - ("smy" . "$(7%d(B") - ("skr" . "$(7%p(B") - ("sgr" . "$(7%q(B") - ("snr" . "$(7%r(B") - ("spr" . "$(7%s(B") - ("sbr" . "$(7%t(B") - ("smr" . "$(7%u(B") - ("kw" . "$(7$!(B") - ("gw" . "$(7$#(B") - ("cw" . "$(7$$(B") - ("tw" . "$(7$&(B") - ("dw" . "$(7$'(B") - ("zw" . "$(7$+(B") - ("rw" . "$(7$,(B") - ("lw" . "$(7$-(B") - ("sw" . "$(7$/(B") - ("hw" . "$(7$0(B") - ("ky" . "$(7$@(B") - ("gy" . "$(7$B(B") - ("py" . "$(7$C(B") - ("by" . "$(7$E(B") - ("my" . "$(7$F(B") - ("kr" . "$(7$P(B") - ("gr" . "$(7$R(B") - ("tr" . "$(7$S(B") - ("dr" . "$(7$U(B") - ("pr" . "$(7$V(B") - ("brk" . "$(7"7%!(B") - ("brg" . "$(7"7%"(B") - ("brng" . "$(7"7%#(B") - ("brj" . "$(7"7%$(B") - ("brny" . "$(7"7%%(B") - ("brt" . "$(7"7%&(B") - ("brd" . "$(7"7%'(B") - ("brn" . "$(7"7%((B") - ("brts" . "$(7"7%+(B") - ("brdz" . "$(7"7%,(B") - ("brl" . "$(7"7$d(B") - ("br" . "$(7$X(B") - ("mr" . "$(7$Y(B") - ("sr" . "$(7$[(B") - ("hr" . "$(7$\(B") - ("jr" . "$(7$](B") - ("kl" . "$(7$`(B") - ("gl" . "$(7$a(B") - ("blt" . "$(7"7%E(B") - ("bld" . "$(7"7%F(B") - ("bl" . "$(7$b(B") - ("zl" . "$(7$c(B") - ("rl" . "$(7$d(B") - ("sl" . "$(7$e(B") - ("rk" . "$(7%!(B") - ("rg" . "$(7%"(B") - ("rj" . "$(7%$(B") - ("rt" . "$(7%&(B") - ("rd" . "$(7%'(B") - ("rn" . "$(7%((B") - ("rb" . "$(7%)(B") - ("rm" . "$(7%*(B") - ("lk" . "$(7%@(B") - ("lg" . "$(7%A(B") - ("lc" . "$(7%C(B") - ("lj" . "$(7%D(B") - ("lt" . "$(7%E(B") - ("ld" . "$(7%F(B") - ("ln" . "$(7!!(B") ; dummy \x2121 - ("lp" . "$(7%G(B") - ("lb" . "$(7%H(B") - ("lh" . "$(7%I(B") - ("sk" . "$(7%P(B") - ("sg" . "$(7%Q(B") - ("st" . "$(7%T(B") - ("sd" . "$(7%U(B") - ("sn" . "$(7%V(B") - ("sp" . "$(7%W(B") - ("sb" . "$(7%X(B") - ("sm" . "$(7%Y(B")) + '(("phyw" . "") + ("tshw" . "") + ("rtsw" . "") + ("khw" . "") + ("nyw" . "") + ("tsw" . "") + ("zhw" . "") + ("shw" . "") + ("khy" . "") + ("phy" . "") + ("khr" . "") + ("thr" . "") + ("phr" . "") + ("shr" . "") + ("dzr" . "") + ("grw" . "") + ("rng" . "") + ("rny" . "") + ("rts" . "") + ("rdz" . "") + ("rgw" . "") + ("rky" . "") + ("rgy" . "") + ("rmy" . "") + ("lng" . "") + ("sng" . "") + ("sny" . "") + ("sts" . "") + ("sky" . "") + ("sgy" . "") + ("spy" . "") + ("sby" . "") + ("smy" . "") + ("skr" . "") + ("sgr" . "") + ("snr" . "") + ("spr" . "") + ("sbr" . "") + ("smr" . "") + ("kw" . "") + ("gw" . "") + ("cw" . "") + ("tw" . "") + ("dw" . "") + ("zw" . "") + ("rw" . "") + ("lw" . "") + ("sw" . "") + ("hw" . "") + ("ky" . "") + ("gy" . "") + ("py" . "") + ("by" . "") + ("my" . "") + ("kr" . "") + ("gr" . "") + ("tr" . "") + ("dr" . "") + ("pr" . "") + ("brk" . "བ") + ("brg" . "བ") + ("brng" . "བ") + ("brj" . "བ") + ("brny" . "བ") + ("brt" . "བ") + ("brd" . "བ") + ("brn" . "བ") + ("brts" . "བ") + ("brdz" . "བ") + ("brl" . "བ") + ("br" . "") + ("mr" . "") + ("sr" . "") + ("hr" . "") + ("jr" . "") + ("kl" . "") + ("gl" . "") + ("blt" . "བ") + ("bld" . "བ") + ("bl" . "") + ("zl" . "") + ("rl" . "") + ("sl" . "") + ("rk" . "") + ("rg" . "") + ("rj" . "") + ("rt" . "") + ("rd" . "") + ("rn" . "") + ("rb" . "") + ("rm" . "") + ("lk" . "") + ("lg" . "") + ("lc" . "") + ("lj" . "") + ("lt" . "") + ("ld" . "") + ("ln" . "") ; dummy \x2121 + ("lp" . "") + ("lb" . "") + ("lh" . "") + ("sk" . "") + ("sg" . "") + ("st" . "") + ("sd" . "") + ("sn" . "") + ("sp" . "") + ("sb" . "") + ("sm" . "")) ) (defconst tibetan-subjoined-transcription-alist - (sort '(("+k" . "$(7#!(B") - ("+kh" . "$(7#"(B") - ("+g" . "$(7##(B") - ("+gh" . "$(7#$(B") - ("+ng" . "$(7#%(B") - ("+c" . "$(7#&(B") - ("+ch" . "$(7#'(B") - ("+j" . "$(7#((B") - ("+ny" . "$(7#*(B") - ("+T" . "$(7#+(B") - ("+TH" . "$(7#,(B") - ("+D" . "$(7#-(B") - ("+DH" . "$(7#.(B") - ("+N" . "$(7#/(B") - ("+t" . "$(7#0(B") - ("+th" . "$(7#1(B") - ("+d" . "$(7#2(B") - ("+dh" . "$(7#3(B") - ("+n" . "$(7#4(B") - ("+p" . "$(7#5(B") - ("+ph" . "$(7#6(B") - ("+b" . "$(7#7(B") - ("+bh" . "$(7#8(B") - ("+m" . "$(7#9(B") - ("+ts" . "$(7#:(B") - ("+tsh" . "$(7#;(B") - ("+dz" . "$(7#<(B") - ("+dzh" . "$(7#=(B") - ("+w" . "$(7#>(B") - ("+zh" . "$(7#?(B") - ("+z" . "$(7#@(B") - ("+'" . "$(7#A(B") - ("+y" . "$(7#B(B") - ("+r" . "$(7#C(B") - ("+l" . "$(7#D(B") - ("+sh" . "$(7#E(B") - ("+SH" . "$(7#F(B") - ("+s" . "$(7#G(B") - ("+h" . "$(7#H(B") - ("+A" . "$(7#I(B") - ("+kSH" . "$(7#J(B") + (sort '(("+k" . "ྐ") + ("+kh" . "ྑ") + ("+g" . "ྒ") + ("+gh" . "ྒྷ") + ("+ng" . "ྔ") + ("+c" . "ྕ") + ("+ch" . "ྖ") + ("+j" . "ྗ") + ("+ny" . "ྙ") + ("+T" . "ྚ") + ("+TH" . "ྛ") + ("+D" . "ྜ") + ("+DH" . "ྜྷ") + ("+N" . "ྞ") + ("+t" . "ྟ") + ("+th" . "ྠ") + ("+d" . "ྡ") + ("+dh" . "ྡྷ") + ("+n" . "ྣ") + ("+p" . "ྤ") + ("+ph" . "ྥ") + ("+b" . "ྦ") + ("+bh" . "ྦྷ") + ("+m" . "ྨ") + ("+ts" . "ྩ") + ("+tsh" . "ྪ") + ("+dz" . "ྫ") + ("+dzh" . "ྫྷ") + ("+w" . "ྭ") + ("+zh" . "ྮ") + ("+z" . "ྯ") + ("+'" . "ྰ") + ("+y" . "ྱ") + ("+r" . "ྲ") + ("+l" . "ླ") + ("+sh" . "ྴ") + ("+SH" . "ྵ") + ("+s" . "ྶ") + ("+h" . "ྷ") + ("+A" . "ྸ") + ("+kSH" . "ྐྵ") ;; Added by Tomabechi 1999/12/10 - ("+W" . "$(7#K(B") ;; fixed form subscribed WA - ("+Y" . "$(7#L(B") ;; fixed form subscribed YA - ("+R" . "$(7#M(B") ;; fixed form subscribed RA + ("+W" . "ྺ") ;; fixed form subscribed WA + ("+Y" . "ྻ") ;; fixed form subscribed YA + ("+R" . "ྼ") ;; fixed form subscribed RA ) (lambda (x y) (> (length (car x)) (length (car y)))))) @@ -378,70 +378,70 @@ ;;; alist for Tibetan base consonant <-> subjoined consonant conversion. ;;; (defconst tibetan-base-to-subjoined-alist - '(("$(7"!(B" . "$(7#!(B") - ("$(7""(B" . "$(7#"(B") - ("$(7"#(B" . "$(7##(B") - ("$(7"$(B" . "$(7#$(B") - ("$(7"%(B" . "$(7#%(B") - ("$(7"&(B" . "$(7#&(B") - ("$(7"'(B" . "$(7#'(B") - ("$(7"((B" . "$(7#((B") - ("$(7"*(B" . "$(7#*(B") - ("$(7"+(B" . "$(7#+(B") - ("$(7",(B" . "$(7#,(B") - ("$(7"-(B" . "$(7#-(B") - ("$(7".(B" . "$(7#.(B") - ("$(7"/(B" . "$(7#/(B") - ("$(7"0(B" . "$(7#0(B") - ("$(7"1(B" . "$(7#1(B") - ("$(7"2(B" . "$(7#2(B") - ("$(7"3(B" . "$(7#3(B") - ("$(7"4(B" . "$(7#4(B") - ("$(7"5(B" . "$(7#5(B") - ("$(7"6(B" . "$(7#6(B") - ("$(7"7(B" . "$(7#7(B") - ("$(7"8(B" . "$(7#8(B") - ("$(7"9(B" . "$(7#9(B") - ("$(7":(B" . "$(7#:(B") - ("$(7";(B" . "$(7#;(B") - ("$(7"<(B" . "$(7#<(B") - ("$(7"=(B" . "$(7#=(B") - ("$(7">(B" . "$(7#>(B") - ("$(7"?(B" . "$(7#?(B") - ("$(7"@(B" . "$(7#@(B") - ("$(7"A(B" . "$(7#A(B") - ("$(7"B(B" . "$(7#B(B") - ("$(7"C(B" . "$(7#C(B") - ("$(7"D(B" . "$(7#D(B") - ("$(7"E(B" . "$(7#E(B") - ("$(7"F(B" . "$(7#F(B") - ("$(7"G(B" . "$(7#G(B") - ("$(7"H(B" . "$(7#H(B") - ("$(7"I(B" . "$(7#I(B") - ("$(7"J(B" . "$(7#J(B") + '(("ཀ" . "ྐ") + ("ཁ" . "ྑ") + ("ག" . "ྒ") + ("གྷ" . "ྒྷ") + ("ང" . "ྔ") + ("ཅ" . "ྕ") + ("ཆ" . "ྖ") + ("ཇ" . "ྗ") + ("ཉ" . "ྙ") + ("ཊ" . "ྚ") + ("ཋ" . "ྛ") + ("ཌ" . "ྜ") + ("ཌྷ" . "ྜྷ") + ("ཎ" . "ྞ") + ("ཏ" . "ྟ") + ("ཐ" . "ྠ") + ("ད" . "ྡ") + ("དྷ" . "ྡྷ") + ("ན" . "ྣ") + ("པ" . "ྤ") + ("ཕ" . "ྥ") + ("བ" . "ྦ") + ("བྷ" . "ྦྷ") + ("མ" . "ྨ") + ("ཙ" . "ྩ") + ("ཚ" . "ྪ") + ("ཛ" . "ྫ") + ("ཛྷ" . "ྫྷ") + ("ཝ" . "ྭ") + ("ཞ" . "ྮ") + ("ཟ" . "ྯ") + ("འ" . "ྰ") + ("ཡ" . "ྱ") + ("ར" . "ྲ") + ("ལ" . "ླ") + ("ཤ" . "ྴ") + ("ཥ" . "ྵ") + ("ས" . "ྶ") + ("ཧ" . "ྷ") + ("ཨ" . "ྸ") + ("ཀྵ" . "ྐྵ") ;; Added by Tomabechi 1999/12/10 - ("$(7"K(B" . "$(7#M(B") ;; Fixed form RA (224B->234D) + ("ཪ" . "ྼ") ;; Fixed form RA (224B->234D) )) ;;; alist for Tibetan composite vowels (long i, vocalic r, etc.) ;;; New variable. created by Tomabechi 2000/06/08 (defconst tibetan-composite-vowel-alist '(;; LONG A - ;; ("$(7"R(B" . ((bc . tc) ?$(7"R(B)) + ;; ("ཱ" . ((bc . tc) ?ཱ)) ;; LONG I - ("$(7"T(B" . (?$(7"R(B (tc . bc) ?$(7"S(B)) + ("ཱི" . (?ཱ (tc . bc) ?ི)) ;; LONG U - ("$(7"V(B" . (?$(7"R(B (bc . tc) ?$(7"U(B)) + ("ཱུ" . (?ཱ (bc . tc) ?ུ)) ;; VOCALIC R - ("$(7"W(B" . (?$(7#C(B (tc . bc) ?$(7"a(B)) + ("ྲྀ" . (?ྲ (tc . bc) ?ྀ)) ;; LONG VOCALIC R - ("$(7"X(B" . (?$(7#C(B (bc . tc) ?$(7"R(B (tc . bc) ?$(7"a(B)) + ("ཷ" . (?ྲ (bc . tc) ?ཱ (tc . bc) ?ྀ)) ;; 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)) + ("ླྀ" . (?ླ (tc . bc) ?ྀ)) + ;;་LONG VOCALIC L + ("ཹ" . (?ླ (bc . tc) ?ཱ (tc . bc) ?ྀ)) ;; LONG REVERSE I - ("$(7"b(B" . (?$(7"R(B (tc . bc) ?$(7"a(B)) + ("ཱྀ" . (?ཱ (tc . bc) ?ྀ)) )) @@ -451,102 +451,102 @@ ;;; (includes some punctuation conversion rules) ;;; (defconst tibetan-precomposition-rule-alist - `(("$(7"6#B#>(B" . "$(7$G(B") - ("$(7"##C#>(B" . "$(7$_(B") - ("$(7";#>(B" . "$(7$)(B") - ("$(7"C#:#>(B" . "$(7%.(B") - ("$(7"C###>(B" . "$(7%-(B") - ("$(7"C#!#B(B" . "$(7%0(B") - ("$(7"C###B(B" . "$(7%1(B") - ("$(7"C#9#B(B" . "$(7%2(B") - ("$(7"G#!#B(B" . "$(7%`(B") - ("$(7"G###B(B" . "$(7%a(B") - ("$(7"G#5#B(B" . "$(7%b(B") - ("$(7"G#7#B(B" . "$(7%c(B") - ("$(7"G#9#B(B" . "$(7%d(B") - ("$(7"G#!#C(B" . "$(7%p(B") - ("$(7"G###C(B" . "$(7%q(B") - ("$(7"G#4#C(B" . "$(7%r(B") - ("$(7"G#5#C(B" . "$(7%s(B") - ("$(7"G#7#C(B" . "$(7%t(B") - ("$(7"G#9#C(B" . "$(7%u(B") - ("$(7""#>(B" . "$(7$"(B") - ("$(7"*#>(B" . "$(7$%(B") - ("$(7":#>(B" . "$(7$((B") - ("$(7"?#>(B" . "$(7$*(B") - ("$(7"E#>(B" . "$(7$.(B") - ("$(7""#B(B" . "$(7$A(B") - ("$(7"6#B(B" . "$(7$D(B") - ("$(7""#C(B" . "$(7$Q(B") - ("$(7"1#C(B" . "$(7$T(B") - ("$(7"6#C(B" . "$(7$W(B") - ("$(7"E#C(B" . "$(7$Z(B") - ("$(7"<#C(B" . "$(7$^(B") - ("$(7"C#%(B" . "$(7%#(B") - ("$(7"C#*(B" . "$(7%%(B") - ("$(7"C#:(B" . "$(7%+(B") - ("$(7"C#<(B" . "$(7%,(B") - ("$(7"D#%(B" . "$(7%B(B") - ("$(7"G#%(B" . "$(7%R(B") - ("$(7"G#*(B" . "$(7%S(B") - ("$(7"G#:(B" . "$(7%Z(B") - ("$(7"!#>(B" . "$(7$!(B") - ("$(7"##>(B" . "$(7$#(B") - ("$(7"&#>(B" . "$(7$$(B") - ("$(7"0#>(B" . "$(7$&(B") - ("$(7"2#>(B" . "$(7$'(B") - ("$(7"@#>(B" . "$(7$+(B") - ("$(7"C#>(B" . "$(7$,(B") - ("$(7"D#>(B" . "$(7$-(B") - ("$(7"G#>(B" . "$(7$/(B") - ("$(7"H#>(B" . "$(7$0(B") - ("$(7"!#B(B" . "$(7$@(B") - ("$(7"##B(B" . "$(7$B(B") - ("$(7"5#B(B" . "$(7$C(B") - ("$(7"7#B(B" . "$(7$E(B") - ("$(7"9#B(B" . "$(7$F(B") - ("$(7"!#C(B" . "$(7$P(B") - ("$(7"##C(B" . "$(7$R(B") - ("$(7"0#C(B" . "$(7$S(B") - ("$(7"2#C(B" . "$(7$U(B") - ("$(7"5#C(B" . "$(7$V(B") - ("$(7"7#C(B" . "$(7$X(B") - ("$(7"9#C(B" . "$(7$Y(B") - ("$(7"G#C(B" . "$(7$[(B") - ("$(7"H#C(B" . "$(7$\(B") - ("$(7"(#C(B" . "$(7$](B") - ("$(7"!#D(B" . "$(7$`(B") - ("$(7"##D(B" . "$(7$a(B") - ("$(7"7#D(B" . "$(7$b(B") - ("$(7"@#D(B" . "$(7$c(B") - ("$(7"C#D(B" . "$(7$d(B") - ("$(7"G#D(B" . "$(7$e(B") - ("$(7"C#!(B" . "$(7%!(B") - ("$(7"C##(B" . "$(7%"(B") - ("$(7"C#((B" . "$(7%$(B") - ("$(7"C#0(B" . "$(7%&(B") - ("$(7"C#2(B" . "$(7%'(B") - ("$(7"C#4(B" . "$(7%((B") - ("$(7"C#7(B" . "$(7%)(B") - ("$(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") - ("$(7"D#2(B" . "$(7%F(B") - ("$(7"D#5(B" . "$(7%G(B") - ("$(7"D#7(B" . "$(7%H(B") - ("$(7"D#H(B" . "$(7%I(B") - ("$(7"G#!(B" . "$(7%P(B") - ("$(7"G##(B" . "$(7%Q(B") - ("$(7"G#0(B" . "$(7%T(B") - ("$(7"G#2(B" . "$(7%U(B") - ("$(7"G#4(B" . "$(7%V(B") - ("$(7"G#5(B" . "$(7%W(B") - ("$(7"G#7(B" . "$(7%X(B") - ("$(7"G#9(B" . "$(7%Y(B"))) + `(("ཕྱྭ" . "") + ("གྲྭ" . "") + ("ཚྭ" . "") + ("རྩྭ" . "") + ("རྒྭ" . "") + ("རྐྱ" . "") + ("རྒྱ" . "") + ("རྨྱ" . "") + ("སྐྱ" . "") + ("སྒྱ" . "") + ("སྤྱ" . "") + ("སྦྱ" . "") + ("སྨྱ" . "") + ("སྐྲ" . "") + ("སྒྲ" . "") + ("སྣྲ" . "") + ("སྤྲ" . "") + ("སྦྲ" . "") + ("སྨྲ" . "") + ("ཁྭ" . "") + ("ཉྭ" . "") + ("ཙྭ" . "") + ("ཞྭ" . "") + ("ཤྭ" . "") + ("ཁྱ" . "") + ("ཕྱ" . "") + ("ཁྲ" . "") + ("ཐྲ" . "") + ("ཕྲ" . "") + ("ཤྲ" . "") + ("ཛྲ" . "") + ("རྔ" . "") + ("རྙ" . "") + ("རྩ" . "") + ("རྫ" . "") + ("ལྔ" . "") + ("སྔ" . "") + ("སྙ" . "") + ("སྩ" . "") + ("ཀྭ" . "") + ("གྭ" . "") + ("ཅྭ" . "") + ("ཏྭ" . "") + ("དྭ" . "") + ("ཟྭ" . "") + ("རྭ" . "") + ("ལྭ" . "") + ("སྭ" . "") + ("ཧྭ" . "") + ("ཀྱ" . "") + ("གྱ" . "") + ("པྱ" . "") + ("བྱ" . "") + ("མྱ" . "") + ("ཀྲ" . "") + ("གྲ" . "") + ("ཏྲ" . "") + ("དྲ" . "") + ("པྲ" . "") + ("བྲ" . "") + ("མྲ" . "") + ("སྲ" . "") + ("ཧྲ" . "") + ("ཇྲ" . "") + ("ཀླ" . "") + ("གླ" . "") + ("བླ" . "") + ("ཟླ" . "") + ("རླ" . "") + ("སླ" . "") + ("རྐ" . "") + ("རྒ" . "") + ("རྗ" . "") + ("རྟ" . "") + ("རྡ" . "") + ("རྣ" . "") + ("རྦ" . "") + ("རྨ" . "") + ("ལྐ" . "") + ("ལྒ" . "") + ("ལྣ" . "") ; dummy 0x2121 added 2000/06/08 for transition l -> lng + ("ལྕ" . "") + ("ལྗ" . "") + ("ལྟ" . "") + ("ལྡ" . "") + ("ལྤ" . "") + ("ལྦ" . "") + ("ལྷ" . "") + ("སྐ" . "") + ("སྒ" . "") + ("སྟ" . "") + ("སྡ" . "") + ("སྣ" . "") + ("སྤ" . "") + ("སྦ" . "") + ("སྨ" . ""))) (defconst tibetan-regexp (let ((l (list tibetan-precomposed-transcription-alist diff --git a/lisp/language/viet-util.el b/lisp/language/viet-util.el index a0487df9ea..a4e7ff564e 100644 --- a/lisp/language/viet-util.el +++ b/lisp/language/viet-util.el @@ -1,4 +1,4 @@ -;;; viet-util.el --- utilities for Vietnamese -*- coding: iso-2022-7bit; -*- +;;; viet-util.el --- utilities for Vietnamese -*- coding: utf-8; -*- ;; Copyright (C) 1998, 2001-2013 Free Software Foundation, Inc. ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, @@ -52,159 +52,159 @@ ;; ------------+----------+-------- ;; mark | mnemonic | example ;; ------------+----------+--------- -;; breve | ( | a( -> ,1e(B -;; circumflex | ^ | a^ -> ,1b(B -;; horn | + | o+ -> ,1=(B +;; breve | ( | a( -> ă +;; circumflex | ^ | a^ -> â +;; horn | + | o+ -> ơ ;; ------------+----------+--------- -;; acute | ' | a' -> ,1a(B -;; grave | ` | a` -> ,1`(B -;; hook above | ? | a? -> ,1d(B -;; tilde | ~ | a~ -> ,1c(B -;; dot below | . | a. -> ,1U(B +;; acute | ' | a' -> á +;; grave | ` | a` -> à +;; hook above | ? | a? -> ả +;; tilde | ~ | a~ -> ã +;; dot below | . | a. -> ạ ;; ------------+----------+--------- -;; d bar | dd | dd -> ,1p(B +;; d bar | dd | dd -> đ ;; ------------+----------+--------- (defvar viet-viqr-alist '(;; lowercase - (?,1!(B . "a('") ; 161 - (?,1"(B . "a(`") ; 162 - (?,1#(B . "a(.") ; 163 - (?,1$(B . "a^'") ; 164 - (?,1%(B . "a^`") ; 165 - (?,1&(B . "a^?") ; 166 - (?,1'(B . "a^.") ; 167 - (?,1((B . "e~") ; 168 - (?,1)(B . "e.") ; 169 - (?,1*(B . "e^'") ; 170 - (?,1+(B . "e^`") ; 171 - (?,1,(B . "e^?") ; 172 - (?,1-(B . "e^~") ; 173 - (?,1.(B . "e^.") ; 174 - (?,1/(B . "o^'") ; 175 - (?,10(B . "o^`") ; 176 - (?,11(B . "o^?") ; 177 - (?,12(B . "o^~") ; 178 - (?,15(B . "o^.") ; 181 - (?,16(B . "o+`") ; 182 - (?,17(B . "o+?") ; 183 - (?,18(B . "i.") ; 184 - (?,1=(B . "o+") ; 189 - (?,1>(B . "o+'") ; 190 - (?,1F(B . "a(?") ; 198 - (?,1G(B . "a(~") ; 199 - (?,1O(B . "y`") ; 207 - (?,1Q(B . "u+'") ; 209 - (?,1U(B . "a.") ; 213 - (?,1V(B . "y?") ; 214 - (?,1W(B . "u+`") ; 215 - (?,1X(B . "u+?") ; 216 - (?,1[(B . "y~") ; 219 - (?,1\(B . "y.") ; 220 - (?,1^(B . "o+~") ; 222 - (?,1_(B . "u+") ; 223 - (?,1`(B . "a`") ; 224 - (?,1a(B . "a'") ; 225 - (?,1b(B . "a^") ; 226 - (?,1c(B . "a~") ; 227 - (?,1d(B . "a?") ; 228 - (?,1e(B . "a(") ; 229 - (?,1f(B . "u+~") ; 230 - (?,1g(B . "a^~") ; 231 - (?,1h(B . "e`") ; 232 - (?,1i(B . "e'") ; 233 - (?,1j(B . "e^") ; 234 - (?,1k(B . "e?") ; 235 - (?,1l(B . "i`") ; 236 - (?,1m(B . "i'") ; 237 - (?,1n(B . "i~") ; 238 - (?,1o(B . "i?") ; 239 - (?,1p(B . "dd") ; 240 - (?,1q(B . "u+.") ; 241 - (?,1r(B . "o`") ; 242 - (?,1s(B . "o'") ; 243 - (?,1t(B . "o^") ; 244 - (?,1u(B . "o~") ; 245 - (?,1v(B . "o?") ; 246 - (?,1w(B . "o.") ; 247 - (?,1x(B . "u.") ; 248 - (?,1y(B . "u`") ; 249 - (?,1z(B . "u'") ; 250 - (?,1{(B . "u~") ; 251 - (?,1|(B . "u?") ; 252 - (?,1}(B . "y'") ; 253 - (?,1~(B . "o+.") ; 254 + (?ắ . "a('") ; 161 + (?ằ . "a(`") ; 162 + (?ặ . "a(.") ; 163 + (?ấ . "a^'") ; 164 + (?ầ . "a^`") ; 165 + (?ẩ . "a^?") ; 166 + (?ậ . "a^.") ; 167 + (?ẽ . "e~") ; 168 + (?ẹ . "e.") ; 169 + (?ế . "e^'") ; 170 + (?ề . "e^`") ; 171 + (?ể . "e^?") ; 172 + (?ễ . "e^~") ; 173 + (?ệ . "e^.") ; 174 + (?ố . "o^'") ; 175 + (?ồ . "o^`") ; 176 + (?ổ . "o^?") ; 177 + (?ỗ . "o^~") ; 178 + (?ộ . "o^.") ; 181 + (?ờ . "o+`") ; 182 + (?ở . "o+?") ; 183 + (?ị . "i.") ; 184 + (?ơ . "o+") ; 189 + (?ớ . "o+'") ; 190 + (?ẳ . "a(?") ; 198 + (?ẵ . "a(~") ; 199 + (?ỳ . "y`") ; 207 + (?ứ . "u+'") ; 209 + (?ạ . "a.") ; 213 + (?ỷ . "y?") ; 214 + (?ừ . "u+`") ; 215 + (?ử . "u+?") ; 216 + (?ỹ . "y~") ; 219 + (?ỵ . "y.") ; 220 + (?ỡ . "o+~") ; 222 + (?ư . "u+") ; 223 + (?à . "a`") ; 224 + (?á . "a'") ; 225 + (?â . "a^") ; 226 + (?ã . "a~") ; 227 + (?ả . "a?") ; 228 + (?ă . "a(") ; 229 + (?ữ . "u+~") ; 230 + (?ẫ . "a^~") ; 231 + (?è . "e`") ; 232 + (?é . "e'") ; 233 + (?ê . "e^") ; 234 + (?ẻ . "e?") ; 235 + (?ì . "i`") ; 236 + (?í . "i'") ; 237 + (?ĩ . "i~") ; 238 + (?ỉ . "i?") ; 239 + (?đ . "dd") ; 240 + (?ự . "u+.") ; 241 + (?ò . "o`") ; 242 + (?ó . "o'") ; 243 + (?ô . "o^") ; 244 + (?õ . "o~") ; 245 + (?ỏ . "o?") ; 246 + (?ọ . "o.") ; 247 + (?ụ . "u.") ; 248 + (?ù . "u`") ; 249 + (?ú . "u'") ; 250 + (?ũ . "u~") ; 251 + (?ủ . "u?") ; 252 + (?ý . "y'") ; 253 + (?ợ . "o+.") ; 254 ;; upper case - (?,2!(B . "A('") ; 161 - (?,2"(B . "A(`") ; 162 - (?,2#(B . "A(.") ; 163 - (?,2$(B . "A^'") ; 164 - (?,2%(B . "A^`") ; 165 - (?,2&(B . "A^?") ; 166 - (?,2'(B . "A^.") ; 167 - (?,2((B . "E~") ; 168 - (?,2)(B . "E.") ; 169 - (?,2*(B . "E^'") ; 170 - (?,2+(B . "E^`") ; 171 - (?,2,(B . "E^?") ; 172 - (?,2-(B . "E^~") ; 173 - (?,2.(B . "E^.") ; 174 - (?,2/(B . "O^'") ; 175 - (?,20(B . "O^`") ; 176 - (?,21(B . "O^?") ; 177 - (?,22(B . "O^~") ; 178 - (?,25(B . "O^.") ; 181 - (?,26(B . "O+`") ; 182 - (?,27(B . "O+?") ; 183 - (?,28(B . "I.") ; 184 - (?,2=(B . "O+") ; 189 - (?,2>(B . "O+'") ; 190 - (?,2F(B . "A(?") ; 198 - (?,2G(B . "A(~") ; 199 - (?,2O(B . "Y`") ; 207 - (?,2Q(B . "U+'") ; 209 - (?,2U(B . "A.") ; 213 - (?,2V(B . "Y?") ; 214 - (?,2W(B . "U+`") ; 215 - (?,2X(B . "U+?") ; 216 - (?,2[(B . "Y~") ; 219 - (?,2\(B . "Y.") ; 220 - (?,2^(B . "O+~") ; 222 - (?,2_(B . "U+") ; 223 - (?,2`(B . "A`") ; 224 - (?,2a(B . "A'") ; 225 - (?,2b(B . "A^") ; 226 - (?,2c(B . "A~") ; 227 - (?,2d(B . "A?") ; 228 - (?,2e(B . "A(") ; 229 - (?,2f(B . "U+~") ; 230 - (?,2g(B . "A^~") ; 231 - (?,2h(B . "E`") ; 232 - (?,2i(B . "E'") ; 233 - (?,2j(B . "E^") ; 234 - (?,2k(B . "E?") ; 235 - (?,2l(B . "I`") ; 236 - (?,2m(B . "I'") ; 237 - (?,2n(B . "I~") ; 238 - (?,2o(B . "I?") ; 239 - (?,2p(B . "DD") ; 240 - (?,2p(B . "dD") ; 240 - (?,2p(B . "Dd") ; 240 - (?,2q(B . "U+.") ; 241 - (?,2r(B . "O`") ; 242 - (?,2s(B . "O'") ; 243 - (?,2t(B . "O^") ; 244 - (?,2u(B . "O~") ; 245 - (?,2v(B . "O?") ; 246 - (?,2w(B . "O.") ; 247 - (?,2x(B . "U.") ; 248 - (?,2y(B . "U`") ; 249 - (?,2z(B . "U'") ; 250 - (?,2{(B . "U~") ; 251 - (?,2|(B . "U?") ; 252 - (?,2}(B . "Y'") ; 253 - (?,2~(B . "O+.") ; 254 + (?Ắ . "A('") ; 161 + (?Ằ . "A(`") ; 162 + (?Ặ . "A(.") ; 163 + (?Ấ . "A^'") ; 164 + (?Ầ . "A^`") ; 165 + (?Ẩ . "A^?") ; 166 + (?Ậ . "A^.") ; 167 + (?Ẽ . "E~") ; 168 + (?Ẹ . "E.") ; 169 + (?Ế . "E^'") ; 170 + (?Ề . "E^`") ; 171 + (?Ể . "E^?") ; 172 + (?Ễ . "E^~") ; 173 + (?Ệ . "E^.") ; 174 + (?Ố . "O^'") ; 175 + (?Ồ . "O^`") ; 176 + (?Ổ . "O^?") ; 177 + (?Ỗ . "O^~") ; 178 + (?Ộ . "O^.") ; 181 + (?Ờ . "O+`") ; 182 + (?Ở . "O+?") ; 183 + (?Ị . "I.") ; 184 + (?Ơ . "O+") ; 189 + (?Ớ . "O+'") ; 190 + (?Ẳ . "A(?") ; 198 + (?Ẵ . "A(~") ; 199 + (?Ỳ . "Y`") ; 207 + (?Ứ . "U+'") ; 209 + (?Ạ . "A.") ; 213 + (?Ỷ . "Y?") ; 214 + (?Ừ . "U+`") ; 215 + (?Ử . "U+?") ; 216 + (?Ỹ . "Y~") ; 219 + (?Ỵ . "Y.") ; 220 + (?Ỡ . "O+~") ; 222 + (?Ư . "U+") ; 223 + (?À . "A`") ; 224 + (?Á . "A'") ; 225 + (? . "A^") ; 226 + (?à . "A~") ; 227 + (?Ả . "A?") ; 228 + (?Ă . "A(") ; 229 + (?Ữ . "U+~") ; 230 + (?Ẫ . "A^~") ; 231 + (?È . "E`") ; 232 + (?É . "E'") ; 233 + (?Ê . "E^") ; 234 + (?Ẻ . "E?") ; 235 + (?Ì . "I`") ; 236 + (?Í . "I'") ; 237 + (?Ĩ . "I~") ; 238 + (?Ỉ . "I?") ; 239 + (?Đ . "DD") ; 240 + (?Đ . "dD") ; 240 + (?Đ . "Dd") ; 240 + (?Ự . "U+.") ; 241 + (?Ò . "O`") ; 242 + (?Ó . "O'") ; 243 + (?Ô . "O^") ; 244 + (?Õ . "O~") ; 245 + (?Ỏ . "O?") ; 246 + (?Ọ . "O.") ; 247 + (?Ụ . "U.") ; 248 + (?Ù . "U`") ; 249 + (?Ú . "U'") ; 250 + (?Ũ . "U~") ; 251 + (?Ủ . "U?") ; 252 + (?Ý . "Y'") ; 253 + (?Ợ . "O+.") ; 254 ;; escape from composition (?\( . "\\(") ; breve (left parenthesis) -- cgit v1.2.3