procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add Unicode equivalents for rules.

Browse source 
(lao-post-read-conversion): New function.
This commit is contained in:
Dave Love 2001-12-07 18:21:04 +00:00
parent 10c9f8c2af
commit a549727e17
2 changed files with 109 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/ChangeLog
View file

@ -13,6 +13,12 @@
2001-12-07 Dave Love <fx@gnu.org>
* language/lao-util.el: Add Unicode equivalents for rules.
(lao-post-read-conversion): New function.
* language/lao.el: Add Unicode equivalents.
(lao): Add post-read conversion.
* international/latin1-disp.el: Fix some 8-bit-graphic characters.
Use iso2022 encoding.
(latin1-char-displayable-p): Doc fix.

105
lisp/language/lao-util.el
View file

@ -2,6 +2,7 @@
;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN.
;; Licensed to the Free Software Foundation.
;; Copyright (C) 2001 Free Software Foundation, Inc.
;; Keywords: multilingual, Lao
@ -128,7 +129,72 @@
(?(1|(B consonant "LETTER NHOR NHUU" "MOUSE")
(?(1}(B consonant "LETTER MHOR MHAR" "DOG")
(?(1~(B invalid nil)
))
;; Unicode equivalents
(?$,1D!(B consonant "LETTER KOR KAI'" "CHICKEN")
(?$,1D"(B consonant "LETTER KHOR KHAI'" "EGG")
(?$,1D$(B consonant "LETTER QHOR QHWARGN" "BUFFALO")
(?$,1D'(B consonant "LETTER NGOR NGUU" "SNAKE")
(?$,1D((B consonant "LETTER JOR JUA" "BUDDHIST NOVICE")
(?$,1D*(B consonant "LETTER XOR X\"ARNG" "ELEPHANT")
(?$,1D-(B consonant "LETTER YOR YUNG" "MOSQUITO")
(?$,1D4(B consonant "LETTER DOR DANG" "NOSE")
(?$,1D5(B consonant "LETTER TOR TAR" "EYE")
(?$,1D6(B consonant "LETTER THOR THUNG" "TO ASK,QUESTION")
(?$,1D7(B consonant "LETTER DHOR DHARM" "FLAG")
(?$,1D9(B consonant "LETTER NOR NOK" "BIRD")
(?$,1D:(B consonant "LETTER BOR BED" "FISHHOOK")
(?$,1D;(B consonant "LETTER POR PAR" "FISH")
(?$,1D<(B consonant "LETTER HPOR HPER\"" "BEE")
(?$,1D=(B consonant "LETTER FHOR FHAR" "WALL")
(?$,1D>(B consonant "LETTER PHOR PHUU" "MOUNTAIN")
(?$,1D?(B consonant "LETTER FOR FAI" "FIRE")
(?$,1DA(B consonant "LETTER MOR MAR\"" "HORSE")
(?$,1DB(B consonant "LETTER GNOR GNAR" "MEDICINE")
(?$,1DC(B consonant "LETTER ROR ROD" "CAR")
(?$,1DE(B consonant "LETTER LOR LIING" "MONKEY")
(?$,1DG(B consonant "LETTER WOR WII" "HAND FAN")
(?$,1DJ(B consonant "LETTER SOR SEA" "TIGER")
(?$,1DK(B consonant "LETTER HHOR HHAI" "JAR")
(?$,1DM(B consonant "LETTER OR OOW" "TAKE")
(?$,1DN(B consonant "LETTER HOR HEA" "BOAT")
(?$,1DO(B special "ELLIPSIS")
(?$,1DP(B vowel-base "VOWEL SIGN SARA A")
(?$,1DQ(B vowel-upper "VOWEL SIGN MAI KAN")
(?$,1DR(B vowel-base "VOWEL SIGN SARA AR")
(?$,1DS(B vowel-base "VOWEL SIGN SARA AM")
(?$,1DT(B vowel-upper "VOWEL SIGN SARA I")
(?$,1DU(B vowel-upper "VOWEL SIGN SARA II")
(?$,1DV(B vowel-upper "VOWEL SIGN SARA EU")
(?$,1DW(B vowel-upper "VOWEL SIGN SARA UR")
(?$,1DX(B vowel-lower "VOWEL SIGN SARA U")
(?$,1DY(B vowel-lower "VOWEL SIGN SARA UU")
(?$,1D[(B vowel-upper "VOWEL SIGN MAI KONG")
(?$,1D\(B semivowel-lower "SEMIVOWEL SIGN LO")
(?$,1D](B vowel-base "SEMIVOWEL SIGN SARA IA")
(?$,1D`(B vowel-base "VOWEL SIGN SARA EE")
(?$,1Da(B vowel-base "VOWEL SIGN SARA AA")
(?$,1Db(B vowel-base "VOWEL SIGN SARA OO")
(?$,1Dc(B vowel-base "VOWEL SIGN SARA EI MAI MUAN\"")
(?$,1Dd(B vowel-base "VOWEL SIGN SARA AI MAI MAY")
(?$,1Df(B special "KO LA (REPETITION)")
(?$,1Dh(B tone "TONE MAI EK")
(?$,1Di(B tone "TONE MAI THO")
(?$,1Dj(B tone "TONE MAI TI")
(?$,1Dk(B tone "TONE MAI JADTAWAR")
(?$,1Dl(B tone "CANCELLATION MARK")
(?$,1Dm(B vowel-upper "VOWEL SIGN SARA OR")
(?$,1Dp(B special "DIGIT ZERO")
(?$,1Dq(B special "DIGIT ONE")
(?$,1Dr(B special "DIGIT TWO")
(?$,1Ds(B special "DIGIT THREE")
(?$,1Dt(B special "DIGIT FOUR")
(?$,1Du(B special "DIGIT FIVE")
(?$,1Dv(B special "DIGIT SIX")
(?$,1Dw(B special "DIGIT SEVEN")
(?$,1Dx(B special "DIGIT EIGHT")
(?$,1Dy(B special "DIGIT NINE")
(?$,1D|(B consonant "LETTER NHOR NHUU" "MOUSE")
(?$,1D}(B consonant "LETTER MHOR MHAR" "DOG")))
elm)
(while l
(setq elm (car l) l (cdr l))
@ -356,7 +422,37 @@
("(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)))
("(1S(B" (0 ?(1S(B))
;; Unicode equivalents
("$,1DP(B" (0 ?$,1DP(B) (0 ?$,1DQ(B))
("$,1DR(B" (0 ?$,1DR(B))
("$,1DT(B" (0 ?$,1DU(B))
("$,1DU(B" (0 ?$,1DU(B))
("$,1DV(B" (0 ?$,1DV(B))
("$,1DW(B" (0 ?$,1DW(B))
("$,1DX(B" (0 ?$,1DX(B))
("$,1DY(B" (0 ?$,1DY(B))
("$,1D`DP(B" (?$,1D`(B 0 ?$,1DP(B) (?$,1D`(B 0 ?$,1DQ(B))
("$,1D`(B" (?$,1D`(B 0))
("$,1DaDP(B" (?$,1Da(B 0 ?$,1DP(B) (?$,1Da(B 0 ?$,1DQ(B))
("$,1Da(B" (?$,1Da(B 0))
("$,1DbDP(B" (?$,1Db(B 0 ?$,1DP(B) (0 ?$,1D[(B) (?$,1D-(B ?$,1Db(B 0 ?$,1DQ(B) (?$,1DG(B ?$,1Db(B 0 ?$,1DQ(B))
("$,1Db(B" (?$,1Db(B 0))
("$,1D`DRDP(B" (?$,1D`(B 0 ?$,1DR(B ?$,1DP(B) (0 ?$,1DQ(B ?$,1DM(B))
("$,1Dm(B" (0 ?$,1Dm(B) (0 ?$,1DM(B))
("$,1D`DT(B" (?$,1D`(B 0 ?$,1DT(B))
("$,1D`DU(B" (?$,1D`(B 0 ?$,1DU(B))
("$,1D[DGDP(B" (0 ?$,1D[(B ?$,1DG(B ?$,1DP(B) (0 ?$,1DQ(B ?$,1DG(B))
("$,1D[DG(B" (0 ?$,1D[(B ?$,1DG(B) (0 ?$,1DG(B))
("$,1D`DQD]DP(B" (?$,1D`(B 0 ?$,1DQ(B ?$,1D](B ?$,1DP(B) (0 ?$,1DQ(B ?$,1D](B))
("$,1D`DQD](B" (?$,1D`(B 0 ?$,1DQ(B ?$,1D](B) (0 ?$,1D](B))
("$,1D`DVDM(B" (?$,1D`(B 0 ?$,1DV(B ?$,1DM(B))
("$,1D`DWDM(B" (?$,1D`(B 0 ?$,1DW(B ?$,1DM(B))
("$,1Dd(B" (?$,1Dd(B 0))
("$,1Dc(B" (?$,1Dc(B 0))
("$,1D`D[DR(B" (?$,1D`(B 0 ?$,1D[(B ?$,1DR(B))
("$,1DS(B" (0 ?$,1DS(B)))
"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) ...)
@ -486,6 +582,11 @@ syllable. In that case, FROM and TO are indexes to STR."
(concat lao-str (substring str from to))
lao-str)))
;;;###autoload
(defun lao-post-read-conversion (len)
(lao-compose-region (point) (+ (point) len))
len)
;;;###autoload
(defun lao-composition-function (from to pattern &optional string)
"Compose Lao text in the region FROM and TO.