annotate lisp/language/lao-util.el @ 112450:16ddab338c43

Remove HAVE_RAW_DECL_CHOWN etc. from config.h
author Paul Eggert <eggert@cs.ucla.edu>
date Sun, 23 Jan 2011 20:53:39 -0800
parents ef719132ddfa
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
36683
b82a6fbaae16 Add coding: iso-2022-7bit tag.
Kenichi Handa <handa@m17n.org>
parents: 29361
diff changeset
1 ;;; lao-util.el --- utilities for Lao -*- coding: iso-2022-7bit; -*-
17083
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2
112218
376148b31b5e Add 2011 to FSF/AIST copyright years.
Glenn Morris <rgm@gnu.org>
parents: 106815
diff changeset
3 ;; Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011
74544
43cc94d955c2 Update copyright years.
Glenn Morris <rgm@gnu.org>
parents: 64085
diff changeset
4 ;; Free Software Foundation, Inc.
79711
b5d3fc1c4afe Add 2008 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 78309
diff changeset
5 ;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006,
112218
376148b31b5e Add 2011 to FSF/AIST copyright years.
Glenn Morris <rgm@gnu.org>
parents: 106815
diff changeset
6 ;; 2007, 2008, 2009, 2010, 2011
62396
197607499a29 Fix copyrights.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
7 ;; National Institute of Advanced Industrial Science and Technology (AIST)
197607499a29 Fix copyrights.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
8 ;; Registration Number H14PRO021
89483
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89300
diff changeset
9 ;; Copyright (C) 2003
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89300
diff changeset
10 ;; National Institute of Advanced Industrial Science and Technology (AIST)
2f877ed80fa6 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 88123 89300
diff changeset
11 ;; Registration Number H13PRO009
17083
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
12
88761
0eccf1b3ae81 Remove redundant unicodes in
Dave Love <fx@gnu.org>
parents: 41890
diff changeset
13 ;; Keywords: multilingual, Lao, i18n
17083
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
14
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
15 ;; This file is part of GNU Emacs.
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
16
94665
55b7f25d920a Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 93975
diff changeset
17 ;; GNU Emacs is free software: you can redistribute it and/or modify
17083
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
18 ;; it under the terms of the GNU General Public License as published by
94665
55b7f25d920a Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 93975
diff changeset
19 ;; the Free Software Foundation, either version 3 of the License, or
55b7f25d920a Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 93975
diff changeset
20 ;; (at your option) any later version.
17083
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
21
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
22 ;; GNU Emacs is distributed in the hope that it will be useful,
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
23 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
24 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
25 ;; GNU General Public License for more details.
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
26
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
27 ;; You should have received a copy of the GNU General Public License
94665
55b7f25d920a Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 93975
diff changeset
28 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
17083
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
29
38414
67b464da13ec Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents: 36683
diff changeset
30 ;;; Commentary:
67b464da13ec Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents: 36683
diff changeset
31
17083
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
32 ;;; Code:
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
33
26894
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
34 ;; Setting information of Thai characters.
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
35
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
36 (defconst lao-category-table (make-category-table))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
37 (define-category ?c "Lao consonant" lao-category-table)
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
38 (define-category ?s "Lao semi-vowel" lao-category-table)
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
39 (define-category ?v "Lao upper/lower vowel" lao-category-table)
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
40 (define-category ?t "Lao tone" lao-category-table)
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
41
17083
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
42 (let ((l '((?(1!(B consonant "LETTER KOR KAI'" "CHICKEN")
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
43 (?(1"(B consonant "LETTER KHOR KHAI'" "EGG")
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
44 (?(1#(B invalid nil)
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
45 (?(1$(B consonant "LETTER QHOR QHWARGN" "BUFFALO")
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
46 (?(1%(B invalid nil)
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
47 (? invalid nil)
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
48 (?(1'(B consonant "LETTER NGOR NGUU" "SNAKE")
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
49 (?(1((B consonant "LETTER JOR JUA" "BUDDHIST NOVICE")
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
50 (?(1)(B invalid nil)
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
51 (?(1*(B consonant "LETTER XOR X\"ARNG" "ELEPHANT")
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
52 (?(1+(B invalid nil)
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
53 (?(1,(B invalid nil)
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
54 (?(1-(B consonant "LETTER YOR YUNG" "MOSQUITO")
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
55 (?(1.(B invalid nil)
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
56 (?(1.(B invalid nil)
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
57 (?(1.(B invalid nil)
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
58 (?(1.(B invalid nil)
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
59 (?(1.(B invalid nil)
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
60 (?(1.(B invalid nil)
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
61 (?(14(B consonant "LETTER DOR DANG" "NOSE")
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
62 (?(15(B consonant "LETTER TOR TAR" "EYE")
19271
0caaca9020bc Set t for Rao-SEMIVOWEL-SIGN-LO in
Kenichi Handa <handa@m17n.org>
parents: 18550
diff changeset
63 (?(16(B consonant "LETTER THOR THUNG" "TO ASK,QUESTION")
0caaca9020bc Set t for Rao-SEMIVOWEL-SIGN-LO in
Kenichi Handa <handa@m17n.org>
parents: 18550
diff changeset
64 (?(17(B consonant "LETTER DHOR DHARM" "FLAG")
17083
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
65 (?(18(B invalid nil)
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
66 (?(19(B consonant "LETTER NOR NOK" "BIRD")
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
67 (?(1:(B consonant "LETTER BOR BED" "FISHHOOK")
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
68 (?(1;(B consonant "LETTER POR PAR" "FISH")
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
69 (?(1<(B consonant "LETTER HPOR HPER\"" "BEE")
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
70 (?(1=(B consonant "LETTER FHOR FHAR" "WALL")
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
71 (?(1>(B consonant "LETTER PHOR PHUU" "MOUNTAIN")
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
72 (?(1?(B consonant "LETTER FOR FAI" "FIRE")
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
73 (?(1@(B invalid nil)
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
74 (?(1A(B consonant "LETTER MOR MAR\"" "HORSE")
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
75 (?(1B(B consonant "LETTER GNOR GNAR" "MEDICINE")
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
76 (?(1C(B consonant "LETTER ROR ROD" "CAR")
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
77 (?(1D(B invalid nil)
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
78 (?(1E(B consonant "LETTER LOR LIING" "MONKEY")
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
79 (?(1F(B invalid nil)
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
80 (?(1G(B consonant "LETTER WOR WII" "HAND FAN")
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
81 (?(1H(B invalid nil)
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
82 (?(1I(B invalid nil)
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
83 (?(1J(B consonant "LETTER SOR SEA" "TIGER")
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
84 (?(1K(B consonant "LETTER HHOR HHAI" "JAR")
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
85 (?(1L(B invalid nil)
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
86 (?(1M(B consonant "LETTER OR OOW" "TAKE")
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
87 (?(1N(B consonant "LETTER HOR HEA" "BOAT")
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
88 (?(1O(B special "ELLIPSIS")
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
89 (?(1P(B vowel-base "VOWEL SIGN SARA A")
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
90 (?(1Q(B vowel-upper "VOWEL SIGN MAI KAN")
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
91 (?(1R(B vowel-base "VOWEL SIGN SARA AR")
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
92 (?(1S(B vowel-base "VOWEL SIGN SARA AM")
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48042
diff changeset
93 (?(1T(B vowel-upper "VOWEL SIGN SARA I")
17083
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
94 (?(1U(B vowel-upper "VOWEL SIGN SARA II")
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
95 (?(1V(B vowel-upper "VOWEL SIGN SARA EU")
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
96 (?(1W(B vowel-upper "VOWEL SIGN SARA UR")
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
97 (?(1X(B vowel-lower "VOWEL SIGN SARA U")
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
98 (?(1Y(B vowel-lower "VOWEL SIGN SARA UU")
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
99 (?(1Z(B invalid nil)
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
100 (?(1[(B vowel-upper "VOWEL SIGN MAI KONG")
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
101 (?(1\(B semivowel-lower "SEMIVOWEL SIGN LO")
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
102 (?(1](B vowel-base "SEMIVOWEL SIGN SARA IA")
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
103 (?(1^(B invalid nil)
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
104 (?(1_(B invalid nil)
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
105 (?(1`(B vowel-base "VOWEL SIGN SARA EE")
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
106 (?(1a(B vowel-base "VOWEL SIGN SARA AA")
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
107 (?(1b(B vowel-base "VOWEL SIGN SARA OO")
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
108 (?(1c(B vowel-base "VOWEL SIGN SARA EI MAI MUAN\"")
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
109 (?(1d(B vowel-base "VOWEL SIGN SARA AI MAI MAY")
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
110 (?(1e(B invalid nil)
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48042
diff changeset
111 (?(1f(B special "KO LA (REPETITION)")
17083
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
112 (?(1g(B invalid nil)
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
113 (?(1h(B tone "TONE MAI EK")
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
114 (?(1i(B tone "TONE MAI THO")
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
115 (?(1j(B tone "TONE MAI TI")
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
116 (?(1k(B tone "TONE MAI JADTAWAR")
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
117 (?(1l(B tone "CANCELLATION MARK")
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
118 (?(1m(B vowel-upper "VOWEL SIGN SARA OR")
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
119 (?(1n(B invalid nil)
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
120 (?(1o(B invalid nil)
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
121 (?(1p(B special "DIGIT ZERO")
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
122 (?(1q(B special "DIGIT ONE")
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
123 (?(1r(B special "DIGIT TWO")
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
124 (?(1s(B special "DIGIT THREE")
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
125 (?(1t(B special "DIGIT FOUR")
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
126 (?(1u(B special "DIGIT FIVE")
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
127 (?(1v(B special "DIGIT SIX")
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
128 (?(1w(B special "DIGIT SEVEN")
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
129 (?(1x(B special "DIGIT EIGHT")
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
130 (?(1y(B special "DIGIT NINE")
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
131 (?(1z(B invalid nil)
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
132 (?(1{(B invalid nil)
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
133 (?(1|(B consonant "LETTER NHOR NHUU" "MOUSE")
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
134 (?(1}(B consonant "LETTER MHOR MHAR" "DOG")
88761
0eccf1b3ae81 Remove redundant unicodes in
Dave Love <fx@gnu.org>
parents: 41890
diff changeset
135 (?(1~(B invalid nil)))
17083
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
136 elm)
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
137 (while l
26894
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
138 (setq elm (car l) l (cdr l))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
139 (let ((char (car elm))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
140 (ptype (nth 1 elm)))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
141 (cond ((eq ptype 'consonant)
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
142 (modify-category-entry char ?c lao-category-table))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
143 ((memq ptype '(vowel-upper vowel-lower))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
144 (modify-category-entry char ?v lao-category-table))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
145 ((eq ptype 'semivowel-lower)
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
146 (modify-category-entry char ?s lao-category-table))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
147 ((eq ptype 'tone)
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
148 (modify-category-entry char ?t lao-category-table)))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
149 (put-char-code-property char 'phonetic-type ptype)
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
150 (put-char-code-property char 'name (nth 2 elm))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
151 (put-char-code-property char 'meaning (nth 3 elm)))))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
152
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
153 ;; The general composing rules are as follows:
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
154 ;;
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
155 ;; T
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
156 ;; V T V T
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
157 ;; CV -> C, CT -> C, CVT -> C, Cv -> C, CvT -> C
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
158 ;; v v
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
159 ;; T
89300
6a0cc62928b5 (lao-post-read-conversion): Delete this
Kenichi Handa <handa@m17n.org>
parents: 88761
diff changeset
160 ;; V T V T
6a0cc62928b5 (lao-post-read-conversion): Delete this
Kenichi Handa <handa@m17n.org>
parents: 88761
diff changeset
161 ;; CsV -> C, CsT -> C, CsVT -> C, Csv -> C, CsvT -> C
6a0cc62928b5 (lao-post-read-conversion): Delete this
Kenichi Handa <handa@m17n.org>
parents: 88761
diff changeset
162 ;; s s s s s
6a0cc62928b5 (lao-post-read-conversion): Delete this
Kenichi Handa <handa@m17n.org>
parents: 88761
diff changeset
163 ;; v v
26894
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
164
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
165
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
166 ;; where C: consonant, V: vowel upper, v: vowel lower,
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
167 ;; T: tone mark, s: semivowel lower
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
168
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
169 (defvar lao-composition-pattern
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
170 "\\cc\\(\\ct\\|\\cv\\ct?\\|\\cs\\(\\ct\\|\\cv\\ct?\\)?\\)"
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
171 "Regular expression matching a Lao composite sequence.")
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
172
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
173 ;;;###autoload
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
174 (defun lao-compose-string (str)
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
175 (with-category-table lao-category-table
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
176 (let ((idx 0))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
177 (while (setq idx (string-match lao-composition-pattern str idx))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
178 (compose-string str idx (match-end 0))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
179 (setq idx (match-end 0))))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
180 str))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
181
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
182 ;;; LRT: Lao <-> Roman Transcription
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
183
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
184 ;; Upper vowels and tone-marks are put on the letter.
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
185 ;; Semi-vowel-sign-lo and lower vowels are put under the letter.
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
186
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
187 (defconst lao-transcription-consonant-alist
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
188 (sort '(;; single consonants
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
189 ("k" . "(1!(B")
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
190 ("kh" . "(1"(B")
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
191 ("qh" . "(1$(B")
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
192 ("ng" . "(1'(B")
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
193 ("j" . "(1((B")
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
194 ("s" . "(1J(B")
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
195 ("x" . "(1*(B")
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
196 ("y" . "(1-(B")
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
197 ("d" . "(14(B")
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
198 ("t" . "(15(B")
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
199 ("th" . "(16(B")
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
200 ("dh" . "(17(B")
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
201 ("n" . "(19(B")
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
202 ("b" . "(1:(B")
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
203 ("p" . "(1;(B")
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
204 ("hp" . "(1<(B")
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
205 ("fh" . "(1=(B")
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
206 ("ph" . "(1>(B")
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
207 ("f" . "(1?(B")
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
208 ("m" . "(1A(B")
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
209 ("gn" . "(1B(B")
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
210 ("l" . "(1E(B")
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
211 ("r" . "(1C(B")
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
212 ("v" . "(1G(B")
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
213 ("w" . "(1G(B")
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
214 ("hh" . "(1K(B")
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
215 ("O" . "(1M(B")
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
216 ("h" . "(1N(B")
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
217 ("nh" . "(1|(B")
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
218 ("mh" . "(1}(B")
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
219 ("lh" . ["(1K\(B"])
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
220 ;; double consonants
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
221 ("ngh" . ["(1K'(B"])
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
222 ("yh" . ["(1K](B"])
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
223 ("wh" . ["(1KG(B"])
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
224 ("hl" . ["(1KE(B"])
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
225 ("hy" . ["(1K-(B"])
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
226 ("hn" . ["(1K9(B"])
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
227 ("hm" . ["(1KA(B"])
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
228 )
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
229 (function (lambda (x y) (> (length (car x)) (length (car y)))))))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
230
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
231 (defconst lao-transcription-semi-vowel-alist
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
232 '(("r" . "(1\(B")))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
233
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
234 (defconst lao-transcription-vowel-alist
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
235 (sort '(("a" . "(1P(B")
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
236 ("ar" . "(1R(B")
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
237 ("i" . "(1T(B")
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
238 ("ii" . "(1U(B")
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
239 ("eu" . "(1V(B")
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
240 ("ur" . "(1W(B")
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
241 ("u" . "(1X(B")
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
242 ("uu" . "(1Y(B")
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
243 ("e" . ["(1`P(B"])
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
244 ("ee" . "(1`(B")
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
245 ("ae" . ["(1aP(B"])
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
246 ("aa" . "(1a(B")
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
247 ("o" . ["(1bP(B"])
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
248 ("oo" . "(1b(B")
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
249 ("oe" . ["(1`RP(B"])
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
250 ("or" . "(1m(B")
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
251 ("er" . ["(1`T(B"])
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
252 ("ir" . ["(1`U(B"])
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
253 ("ua" . ["(1[GP(B"])
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
254 ("uaa" . ["(1[G(B"])
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
255 ("ie" . ["(1`Q]P(B"])
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
256 ("ia" . ["(1`Q](B"])
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
257 ("ea" . ["(1`VM(B"])
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
258 ("eaa" . ["(1`WM(B"])
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
259 ("ai" . "(1d(B")
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
260 ("ei" . "(1c(B")
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
261 ("ao" . ["(1`[R(B"])
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
262 ("aM" . "(1S(B"))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
263 (function (lambda (x y) (> (length (car x)) (length (car y)))))))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
264
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
265 ;; Maa-sakod is put at the tail.
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
266 (defconst lao-transcription-maa-sakod-alist
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
267 '(("k" . "(1!(B")
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
268 ("g" . "(1'(B")
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
269 ("y" . "(1-(B")
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
270 ("d" . "(14(B")
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
271 ("n" . "(19(B")
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
272 ("b" . "(1:(B")
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
273 ("m" . "(1A(B")
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
274 ("v" . "(1G(B")
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
275 ("w" . "(1G(B")
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
276 ))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
277
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
278 (defconst lao-transcription-tone-alist
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
279 '(("'" . "(1h(B")
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
280 ("\"" . "(1i(B")
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
281 ("^" . "(1j(B")
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
282 ("+" . "(1k(B")
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
283 ("~" . "(1l(B")))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
284
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
285 (defconst lao-transcription-punctuation-alist
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
286 '(("\\0" . "(1p(B")
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
287 ("\\1" . "(1q(B")
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
288 ("\\2" . "(1r(B")
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
289 ("\\3" . "(1s(B")
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
290 ("\\4" . "(1t(B")
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
291 ("\\5" . "(1u(B")
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
292 ("\\6" . "(1v(B")
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
293 ("\\7" . "(1w(B")
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
294 ("\\8" . "(1x(B")
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
295 ("\\9" . "(1y(B")
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
296 ("\\\\" . "(1f(B")
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
297 ("\\$" . "(1O(B")))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
298
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
299 (defconst lao-transcription-pattern
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
300 (concat
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
301 "\\("
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
302 (mapconcat 'car lao-transcription-consonant-alist "\\|")
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
303 "\\)\\("
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
304 (mapconcat 'car lao-transcription-semi-vowel-alist "\\|")
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
305 "\\)?\\(\\("
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
306 (mapconcat 'car lao-transcription-vowel-alist "\\|")
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
307 "\\)\\("
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
308 (mapconcat 'car lao-transcription-maa-sakod-alist "\\|")
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
309 "\\)?\\("
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
310 (mapconcat (lambda (x) (regexp-quote (car x)))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
311 lao-transcription-tone-alist "\\|")
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
312 "\\)?\\)?\\|"
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
313 (mapconcat (lambda (x) (regexp-quote (car x)))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
314 lao-transcription-punctuation-alist "\\|")
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
315 )
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
316 "Regexp of Roman transcription pattern for one Lao syllable.")
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
317
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
318 (defconst lao-transcription-pattern
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
319 (concat
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
320 "\\("
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
321 (regexp-opt (mapcar 'car lao-transcription-consonant-alist))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
322 "\\)\\("
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
323 (regexp-opt (mapcar 'car lao-transcription-semi-vowel-alist))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
324 "\\)?\\(\\("
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
325 (regexp-opt (mapcar 'car lao-transcription-vowel-alist))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
326 "\\)\\("
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
327 (regexp-opt (mapcar 'car lao-transcription-maa-sakod-alist))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
328 "\\)?\\("
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
329 (regexp-opt (mapcar 'car lao-transcription-tone-alist))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
330 "\\)?\\)?\\|"
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
331 (regexp-opt (mapcar 'car lao-transcription-punctuation-alist))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
332 )
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
333 "Regexp of Roman transcription pattern for one Lao syllable.")
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
334
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
335 (defconst lao-vowel-reordering-rule
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
336 '(("(1P(B" (0 ?(1P(B) (0 ?(1Q(B))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
337 ("(1R(B" (0 ?(1R(B))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
338 ("(1T(B" (0 ?(1U(B))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
339 ("(1U(B" (0 ?(1U(B))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
340 ("(1V(B" (0 ?(1V(B))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
341 ("(1W(B" (0 ?(1W(B))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
342 ("(1X(B" (0 ?(1X(B))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
343 ("(1Y(B" (0 ?(1Y(B))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
344 ("(1`P(B" (?(1`(B 0 ?(1P(B) (?(1`(B 0 ?(1Q(B))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
345 ("(1`(B" (?(1`(B 0))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
346 ("(1aP(B" (?(1a(B 0 ?(1P(B) (?(1a(B 0 ?(1Q(B))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
347 ("(1a(B" (?(1a(B 0))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
348 ("(1bP(B" (?(1b(B 0 ?(1P(B) (0 ?(1[(B) (?(1-(B ?(1b(B 0 ?(1Q(B) (?(1G(B ?(1b(B 0 ?(1Q(B))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
349 ("(1b(B" (?(1b(B 0))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
350 ("(1`RP(B" (?(1`(B 0 ?(1R(B ?(1P(B) (0 ?(1Q(B ?(1M(B))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
351 ("(1m(B" (0 ?(1m(B) (0 ?(1M(B))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
352 ("(1`T(B" (?(1`(B 0 ?(1T(B))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
353 ("(1`U(B" (?(1`(B 0 ?(1U(B))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
354 ("(1[GP(B" (0 ?(1[(B ?(1G(B ?(1P(B) (0 ?(1Q(B ?(1G(B))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
355 ("(1[G(B" (0 ?(1[(B ?(1G(B) (0 ?(1G(B))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
356 ("(1`Q]P(B" (?(1`(B 0 ?(1Q(B ?(1](B ?(1P(B) (0 ?(1Q(B ?(1](B))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
357 ("(1`Q](B" (?(1`(B 0 ?(1Q(B ?(1](B) (0 ?(1](B))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
358 ("(1`VM(B" (?(1`(B 0 ?(1V(B ?(1M(B))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
359 ("(1`WM(B" (?(1`(B 0 ?(1W(B ?(1M(B))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
360 ("(1d(B" (?(1d(B 0))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
361 ("(1c(B" (?(1c(B 0))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
362 ("(1`[R(B" (?(1`(B 0 ?(1[(B ?(1R(B))
88761
0eccf1b3ae81 Remove redundant unicodes in
Dave Love <fx@gnu.org>
parents: 41890
diff changeset
363 ("(1S(B" (0 ?(1S(B)))
26894
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
364 "Alist of Lao vowel string vs the corresponding re-ordering rule.
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
365 Each element has this form:
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
366 (VOWEL NO-MAA-SAKOD-RULE WITH-MAA-SAKOD-RULE (MAA-SAKOD-0 RULE-0) ...)
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
367
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
368 VOWEL is a vowel string (e.g. \"(1`Q]P(B\").
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
369
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
370 NO-MAA-SAKOD-RULE is a rule to re-order and modify VOWEL following a
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
371 consonant. It is a list vowel characters or 0. The element 0
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
372 indicate the place to embed a consonant.
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
373
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
374 Optional WITH-MAA-SAKOD-RULE is a rule to re-order and modify VOWEL
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
375 follwoing a consonant and preceding a maa-sakod character. If it is
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
376 nil, NO-MAA-SAKOD-RULE is used. The maa-sakod character is alwasy
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
377 appended at the tail.
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
378
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
379 For instance, rule `(\"(1`WM(B\" (?(1`(B t ?(1W(B ?(1M(B))' tells that this vowel
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
380 string following a consonant `(1!(B' should be re-ordered as \"(1`!WM(B\".
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
381
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
382 Optional (MAA-SAKOD-n RULE-n) are rules specially applied to maa-sakod
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
383 character MAA-SAKOD-n.")
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
384
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
385 ;;;###autoload
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
386 (defun lao-transcribe-single-roman-syllable-to-lao (from to &optional str)
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
387 "Transcribe a Romanized Lao syllable in the region FROM and TO to Lao string.
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
388 Only the first syllable is transcribed.
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
389 The value has the form: (START END LAO-STRING), where
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
390 START and END are the beggining and end positions of the Roman Lao syllable,
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
391 LAO-STRING is the Lao character transcription of it.
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
392
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
393 Optional 3rd arg STR, if non-nil, is a string to search for Roman Lao
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
394 syllable. In that case, FROM and TO are indexes to STR."
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
395 (if str
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
396 (if (setq from (string-match lao-transcription-pattern str from))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
397 (progn
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
398 (if (>= from to)
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
399 (setq from nil)
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
400 (setq to (match-end 0)))))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
401 (save-excursion
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
402 (goto-char from)
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
403 (if (setq to (re-search-forward lao-transcription-pattern to t))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
404 (setq from (match-beginning 0))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
405 (setq from nil))))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
406 (if from
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
407 (let* ((consonant (match-string 1 str))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
408 (semivowel (match-string 3 str))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
409 (vowel (match-string 5 str))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
410 (maa-sakod (match-string 8 str))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
411 (tone (match-string 9 str))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
412 lao-consonant lao-semivowel lao-vowel lao-maa-sakod lao-tone
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
413 clen cidx)
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
414 (setq to (match-end 0))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
415 (if (not consonant)
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
416 (setq str (cdr (assoc (match-string 0 str)
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
417 lao-transcription-punctuation-alist)))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
418 (setq lao-consonant
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
419 (cdr (assoc consonant lao-transcription-consonant-alist)))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
420 (if (vectorp lao-consonant)
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
421 (setq lao-consonant (aref lao-consonant 0)))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
422 (setq clen (length lao-consonant))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
423 (if semivowel
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
424 ;; Include semivowel in STR.
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
425 (setq lao-semivowel
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
426 (cdr (assoc semivowel lao-transcription-semi-vowel-alist))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
427 str (if (= clen 1)
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
428 (concat lao-consonant lao-semivowel)
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
429 (concat (substring lao-consonant 0 1) lao-semivowel
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
430 (substring lao-consonant 1))))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
431 (setq str lao-consonant))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
432 (if vowel
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
433 (let (rule)
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
434 (setq lao-vowel
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
435 (cdr (assoc vowel lao-transcription-vowel-alist)))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
436 (if (vectorp lao-vowel)
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
437 (setq lao-vowel (aref lao-vowel 0)))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
438 (setq rule (assoc lao-vowel lao-vowel-reordering-rule))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
439 (if (null maa-sakod)
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
440 (setq rule (nth 1 rule))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
441 (setq lao-maa-sakod
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
442 (cdr (assoc maa-sakod lao-transcription-maa-sakod-alist))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
443 rule
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
444 (or (cdr (assq (aref lao-maa-sakod 0) (nthcdr 2 rule)))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
445 (nth 2 rule)
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
446 (nth 1 rule))))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
447 (or rule
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
448 (error "Lao vowel %S has no re-ordering rule" lao-vowel))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
449 (setq lao-consonant str str "")
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
450 (while rule
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
451 (if (= (car rule) 0)
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
452 (setq str (concat str lao-consonant)
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
453 cidx (length str))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
454 (setq str (concat str (list (car rule)))))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
455 (setq rule (cdr rule)))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
456 (or cidx
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
457 (error "Lao vowel %S has malformed re-ordering rule" vowel))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
458 ;; Set CIDX to after upper or lower vowel if any.
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
459 (let ((len (length str)))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
460 (while (and (< cidx len)
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
461 (memq (get-char-code-property (aref str cidx)
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
462 'phonetic-type)
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
463 '(vowel-lower vowel-upper)))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
464 (setq cidx (1+ cidx))))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
465 (if lao-maa-sakod
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
466 (setq str (concat str lao-maa-sakod)))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
467 (if tone
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
468 (setq lao-tone
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
469 (cdr (assoc tone lao-transcription-tone-alist))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
470 str (concat (substring str 0 cidx) lao-tone
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
471 (substring str cidx)))))))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
472 (list from to (lao-compose-string str)))))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
473
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
474 ;;;###autoload
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
475 (defun lao-transcribe-roman-to-lao-string (str)
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
476 "Transcribe Romanized Lao string STR to Lao character string."
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
477 (let ((from 0)
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
478 (to (length str))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
479 (lao-str "")
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
480 val)
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
481 (while (setq val (lao-transcribe-single-roman-syllable-to-lao from to str))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
482 (let ((start (car val))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
483 (end (nth 1 val))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
484 (lao (nth 2 val)))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
485 (if (> start from)
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
486 (setq lao-str (concat lao-str (substring str from start) lao))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
487 (setq lao-str (concat lao-str lao)))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
488 (setq from end)))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
489 (if (< from to)
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
490 (concat lao-str (substring str from to))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
491 lao-str)))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
492
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
493 ;;;###autoload
97856
521da036775a (lao-composition-function): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 97838
diff changeset
494 (defun lao-composition-function (gstring)
521da036775a (lao-composition-function): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 97838
diff changeset
495 (if (= (lgstring-char-len gstring) 1)
97838
5752f49a8314 (lao-composition-function): Argument changed.
Kenichi Handa <handa@m17n.org>
parents: 94665
diff changeset
496 (compose-gstring-for-graphic gstring)
97856
521da036775a (lao-composition-function): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 97838
diff changeset
497 (or (font-shape-gstring gstring)
97838
5752f49a8314 (lao-composition-function): Argument changed.
Kenichi Handa <handa@m17n.org>
parents: 94665
diff changeset
498 (let ((glyph-len (lgstring-glyph-len gstring))
5752f49a8314 (lao-composition-function): Argument changed.
Kenichi Handa <handa@m17n.org>
parents: 94665
diff changeset
499 (i 0)
5752f49a8314 (lao-composition-function): Argument changed.
Kenichi Handa <handa@m17n.org>
parents: 94665
diff changeset
500 glyph)
5752f49a8314 (lao-composition-function): Argument changed.
Kenichi Handa <handa@m17n.org>
parents: 94665
diff changeset
501 (while (and (< i glyph-len)
5752f49a8314 (lao-composition-function): Argument changed.
Kenichi Handa <handa@m17n.org>
parents: 94665
diff changeset
502 (setq glyph (lgstring-glyph gstring i)))
5752f49a8314 (lao-composition-function): Argument changed.
Kenichi Handa <handa@m17n.org>
parents: 94665
diff changeset
503 (setq i (1+ i)))
97856
521da036775a (lao-composition-function): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents: 97838
diff changeset
504 (compose-glyph-string-relative gstring 0 i 0.1)))))
17083
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
505
28791
bdf7581eb093 (lao-compose-region): New function.
Kenichi Handa <handa@m17n.org>
parents: 26894
diff changeset
506 ;;;###autoload
bdf7581eb093 (lao-compose-region): New function.
Kenichi Handa <handa@m17n.org>
parents: 26894
diff changeset
507 (defun lao-compose-region (from to)
bdf7581eb093 (lao-compose-region): New function.
Kenichi Handa <handa@m17n.org>
parents: 26894
diff changeset
508 (interactive "r")
bdf7581eb093 (lao-compose-region): New function.
Kenichi Handa <handa@m17n.org>
parents: 26894
diff changeset
509 (save-restriction
bdf7581eb093 (lao-compose-region): New function.
Kenichi Handa <handa@m17n.org>
parents: 26894
diff changeset
510 (narrow-to-region from to)
bdf7581eb093 (lao-compose-region): New function.
Kenichi Handa <handa@m17n.org>
parents: 26894
diff changeset
511 (goto-char (point-min))
bdf7581eb093 (lao-compose-region): New function.
Kenichi Handa <handa@m17n.org>
parents: 26894
diff changeset
512 (with-category-table lao-category-table
bdf7581eb093 (lao-compose-region): New function.
Kenichi Handa <handa@m17n.org>
parents: 26894
diff changeset
513 (while (re-search-forward lao-composition-pattern nil t)
bdf7581eb093 (lao-compose-region): New function.
Kenichi Handa <handa@m17n.org>
parents: 26894
diff changeset
514 (compose-region (match-beginning 0) (point))))))
bdf7581eb093 (lao-compose-region): New function.
Kenichi Handa <handa@m17n.org>
parents: 26894
diff changeset
515
17083
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
516 ;;
18309
bd8b521f5218 Provide XXX-util instead of
Kenichi Handa <handa@m17n.org>
parents: 18203
diff changeset
517 (provide 'lao-util)
17083
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
518
9e6a3e03ed4c Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
519 ;;; lao-util.el ends here