2 |
|
|
3 |
;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN. |
;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN. |
4 |
;; Licensed to the Free Software Foundation. |
;; Licensed to the Free Software Foundation. |
5 |
|
;; Copyright (C) 2001 Free Software Foundation, Inc. |
6 |
|
|
7 |
;; Keywords: multilingual, Lao |
;; Keywords: multilingual, Lao |
8 |
|
|
129 |
(?(1|(B consonant "LETTER NHOR NHUU" "MOUSE") |
(?(1|(B consonant "LETTER NHOR NHUU" "MOUSE") |
130 |
(?(1}(B consonant "LETTER MHOR MHAR" "DOG") |
(?(1}(B consonant "LETTER MHOR MHAR" "DOG") |
131 |
(?(1~(B invalid nil) |
(?(1~(B invalid nil) |
132 |
)) |
;; Unicode equivalents |
133 |
|
(?$,1D!(B consonant "LETTER KOR KAI'" "CHICKEN") |
134 |
|
(?$,1D"(B consonant "LETTER KHOR KHAI'" "EGG") |
135 |
|
(?$,1D$(B consonant "LETTER QHOR QHWARGN" "BUFFALO") |
136 |
|
(?$,1D'(B consonant "LETTER NGOR NGUU" "SNAKE") |
137 |
|
(?$,1D((B consonant "LETTER JOR JUA" "BUDDHIST NOVICE") |
138 |
|
(?$,1D*(B consonant "LETTER XOR X\"ARNG" "ELEPHANT") |
139 |
|
(?$,1D-(B consonant "LETTER YOR YUNG" "MOSQUITO") |
140 |
|
(?$,1D4(B consonant "LETTER DOR DANG" "NOSE") |
141 |
|
(?$,1D5(B consonant "LETTER TOR TAR" "EYE") |
142 |
|
(?$,1D6(B consonant "LETTER THOR THUNG" "TO ASK,QUESTION") |
143 |
|
(?$,1D7(B consonant "LETTER DHOR DHARM" "FLAG") |
144 |
|
(?$,1D9(B consonant "LETTER NOR NOK" "BIRD") |
145 |
|
(?$,1D:(B consonant "LETTER BOR BED" "FISHHOOK") |
146 |
|
(?$,1D;(B consonant "LETTER POR PAR" "FISH") |
147 |
|
(?$,1D<(B consonant "LETTER HPOR HPER\"" "BEE") |
148 |
|
(?$,1D=(B consonant "LETTER FHOR FHAR" "WALL") |
149 |
|
(?$,1D>(B consonant "LETTER PHOR PHUU" "MOUNTAIN") |
150 |
|
(?$,1D?(B consonant "LETTER FOR FAI" "FIRE") |
151 |
|
(?$,1DA(B consonant "LETTER MOR MAR\"" "HORSE") |
152 |
|
(?$,1DB(B consonant "LETTER GNOR GNAR" "MEDICINE") |
153 |
|
(?$,1DC(B consonant "LETTER ROR ROD" "CAR") |
154 |
|
(?$,1DE(B consonant "LETTER LOR LIING" "MONKEY") |
155 |
|
(?$,1DG(B consonant "LETTER WOR WII" "HAND FAN") |
156 |
|
(?$,1DJ(B consonant "LETTER SOR SEA" "TIGER") |
157 |
|
(?$,1DK(B consonant "LETTER HHOR HHAI" "JAR") |
158 |
|
(?$,1DM(B consonant "LETTER OR OOW" "TAKE") |
159 |
|
(?$,1DN(B consonant "LETTER HOR HEA" "BOAT") |
160 |
|
(?$,1DO(B special "ELLIPSIS") |
161 |
|
(?$,1DP(B vowel-base "VOWEL SIGN SARA A") |
162 |
|
(?$,1DQ(B vowel-upper "VOWEL SIGN MAI KAN") |
163 |
|
(?$,1DR(B vowel-base "VOWEL SIGN SARA AR") |
164 |
|
(?$,1DS(B vowel-base "VOWEL SIGN SARA AM") |
165 |
|
(?$,1DT(B vowel-upper "VOWEL SIGN SARA I") |
166 |
|
(?$,1DU(B vowel-upper "VOWEL SIGN SARA II") |
167 |
|
(?$,1DV(B vowel-upper "VOWEL SIGN SARA EU") |
168 |
|
(?$,1DW(B vowel-upper "VOWEL SIGN SARA UR") |
169 |
|
(?$,1DX(B vowel-lower "VOWEL SIGN SARA U") |
170 |
|
(?$,1DY(B vowel-lower "VOWEL SIGN SARA UU") |
171 |
|
(?$,1D[(B vowel-upper "VOWEL SIGN MAI KONG") |
172 |
|
(?$,1D\(B semivowel-lower "SEMIVOWEL SIGN LO") |
173 |
|
(?$,1D](B vowel-base "SEMIVOWEL SIGN SARA IA") |
174 |
|
(?$,1D`(B vowel-base "VOWEL SIGN SARA EE") |
175 |
|
(?$,1Da(B vowel-base "VOWEL SIGN SARA AA") |
176 |
|
(?$,1Db(B vowel-base "VOWEL SIGN SARA OO") |
177 |
|
(?$,1Dc(B vowel-base "VOWEL SIGN SARA EI MAI MUAN\"") |
178 |
|
(?$,1Dd(B vowel-base "VOWEL SIGN SARA AI MAI MAY") |
179 |
|
(?$,1Df(B special "KO LA (REPETITION)") |
180 |
|
(?$,1Dh(B tone "TONE MAI EK") |
181 |
|
(?$,1Di(B tone "TONE MAI THO") |
182 |
|
(?$,1Dj(B tone "TONE MAI TI") |
183 |
|
(?$,1Dk(B tone "TONE MAI JADTAWAR") |
184 |
|
(?$,1Dl(B tone "CANCELLATION MARK") |
185 |
|
(?$,1Dm(B vowel-upper "VOWEL SIGN SARA OR") |
186 |
|
(?$,1Dp(B special "DIGIT ZERO") |
187 |
|
(?$,1Dq(B special "DIGIT ONE") |
188 |
|
(?$,1Dr(B special "DIGIT TWO") |
189 |
|
(?$,1Ds(B special "DIGIT THREE") |
190 |
|
(?$,1Dt(B special "DIGIT FOUR") |
191 |
|
(?$,1Du(B special "DIGIT FIVE") |
192 |
|
(?$,1Dv(B special "DIGIT SIX") |
193 |
|
(?$,1Dw(B special "DIGIT SEVEN") |
194 |
|
(?$,1Dx(B special "DIGIT EIGHT") |
195 |
|
(?$,1Dy(B special "DIGIT NINE") |
196 |
|
(?$,1D|(B consonant "LETTER NHOR NHUU" "MOUSE") |
197 |
|
(?$,1D}(B consonant "LETTER MHOR MHAR" "DOG"))) |
198 |
elm) |
elm) |
199 |
(while l |
(while l |
200 |
(setq elm (car l) l (cdr l)) |
(setq elm (car l) l (cdr l)) |
422 |
("(1d(B" (?(1d(B 0)) |
("(1d(B" (?(1d(B 0)) |
423 |
("(1c(B" (?(1c(B 0)) |
("(1c(B" (?(1c(B 0)) |
424 |
("(1`[R(B" (?(1`(B 0 ?(1[(B ?(1R(B)) |
("(1`[R(B" (?(1`(B 0 ?(1[(B ?(1R(B)) |
425 |
("(1S(B" (0 ?(1S(B))) |
("(1S(B" (0 ?(1S(B)) |
426 |
|
|
427 |
|
;; Unicode equivalents |
428 |
|
("$,1DP(B" (0 ?$,1DP(B) (0 ?$,1DQ(B)) |
429 |
|
("$,1DR(B" (0 ?$,1DR(B)) |
430 |
|
("$,1DT(B" (0 ?$,1DU(B)) |
431 |
|
("$,1DU(B" (0 ?$,1DU(B)) |
432 |
|
("$,1DV(B" (0 ?$,1DV(B)) |
433 |
|
("$,1DW(B" (0 ?$,1DW(B)) |
434 |
|
("$,1DX(B" (0 ?$,1DX(B)) |
435 |
|
("$,1DY(B" (0 ?$,1DY(B)) |
436 |
|
("$,1D`DP(B" (?$,1D`(B 0 ?$,1DP(B) (?$,1D`(B 0 ?$,1DQ(B)) |
437 |
|
("$,1D`(B" (?$,1D`(B 0)) |
438 |
|
("$,1DaDP(B" (?$,1Da(B 0 ?$,1DP(B) (?$,1Da(B 0 ?$,1DQ(B)) |
439 |
|
("$,1Da(B" (?$,1Da(B 0)) |
440 |
|
("$,1DbDP(B" (?$,1Db(B 0 ?$,1DP(B) (0 ?$,1D[(B) (?$,1D-(B ?$,1Db(B 0 ?$,1DQ(B) (?$,1DG(B ?$,1Db(B 0 ?$,1DQ(B)) |
441 |
|
("$,1Db(B" (?$,1Db(B 0)) |
442 |
|
("$,1D`DRDP(B" (?$,1D`(B 0 ?$,1DR(B ?$,1DP(B) (0 ?$,1DQ(B ?$,1DM(B)) |
443 |
|
("$,1Dm(B" (0 ?$,1Dm(B) (0 ?$,1DM(B)) |
444 |
|
("$,1D`DT(B" (?$,1D`(B 0 ?$,1DT(B)) |
445 |
|
("$,1D`DU(B" (?$,1D`(B 0 ?$,1DU(B)) |
446 |
|
("$,1D[DGDP(B" (0 ?$,1D[(B ?$,1DG(B ?$,1DP(B) (0 ?$,1DQ(B ?$,1DG(B)) |
447 |
|
("$,1D[DG(B" (0 ?$,1D[(B ?$,1DG(B) (0 ?$,1DG(B)) |
448 |
|
("$,1D`DQD]DP(B" (?$,1D`(B 0 ?$,1DQ(B ?$,1D](B ?$,1DP(B) (0 ?$,1DQ(B ?$,1D](B)) |
449 |
|
("$,1D`DQD](B" (?$,1D`(B 0 ?$,1DQ(B ?$,1D](B) (0 ?$,1D](B)) |
450 |
|
("$,1D`DVDM(B" (?$,1D`(B 0 ?$,1DV(B ?$,1DM(B)) |
451 |
|
("$,1D`DWDM(B" (?$,1D`(B 0 ?$,1DW(B ?$,1DM(B)) |
452 |
|
("$,1Dd(B" (?$,1Dd(B 0)) |
453 |
|
("$,1Dc(B" (?$,1Dc(B 0)) |
454 |
|
("$,1D`D[DR(B" (?$,1D`(B 0 ?$,1D[(B ?$,1DR(B)) |
455 |
|
("$,1DS(B" (0 ?$,1DS(B))) |
456 |
"Alist of Lao vowel string vs the corresponding re-ordering rule. |
"Alist of Lao vowel string vs the corresponding re-ordering rule. |
457 |
Each element has this form: |
Each element has this form: |
458 |
(VOWEL NO-MAA-SAKOD-RULE WITH-MAA-SAKOD-RULE (MAA-SAKOD-0 RULE-0) ...) |
(VOWEL NO-MAA-SAKOD-RULE WITH-MAA-SAKOD-RULE (MAA-SAKOD-0 RULE-0) ...) |
583 |
lao-str))) |
lao-str))) |
584 |
|
|
585 |
;;;###autoload |
;;;###autoload |
586 |
|
(defun lao-post-read-conversion (len) |
587 |
|
(lao-compose-region (point) (+ (point) len)) |
588 |
|
len) |
589 |
|
|
590 |
|
;;;###autoload |
591 |
(defun lao-composition-function (from to pattern &optional string) |
(defun lao-composition-function (from to pattern &optional string) |
592 |
"Compose Lao text in the region FROM and TO. |
"Compose Lao text in the region FROM and TO. |
593 |
The text matches the regular expression PATTERN. |
The text matches the regular expression PATTERN. |