101 |
(sample-text |
(sample-text |
102 |
. (tibetan-compose-string |
. (tibetan-compose-string |
103 |
(copy-sequence |
(copy-sequence |
104 |
"Tibetan (4$(7"7r'"]0"7"]14"20"21!;4%P0"G#!"Q14"20"21!;(B) $(7!4!5!5!>4"70"714$P0"!#C"Q1!;4"Er'"S0"E"S14"G0"G1!;4"70"714"2r'"[0"2"[1!;4"Dr'"[0"D"[14"#0"#14"G0"G1!>4"Ir'"]r'"_0"I"]"_1!;4"90"9"Q1!;4"/r'"S0"/"S1!;4"50"5"Q14#2x!#9r'"[0"2#9"[1!;4"Hx!"Rx!"Ur'"c0"H"A"U"c1!>(B"))))) |
"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"))))) |
105 |
|
|
106 |
|
|
107 |
;; `$(7"A(B' is included in the pattern for subjoined consonants because we |
;; `$(7"A(B' is included in the pattern for subjoined consonants because we |
116 |
"[$(7"!(B-$(7"J"K(B][$(7#!(B-$(7#J#K#L#M(B]*[$(7"Q"R"S(B-$(7"^"a"b"e(B]*[$(7"_"c"d"g(B-$(7"l!I!e!g(B]*" |
"[$(7"!(B-$(7"J"K(B][$(7#!(B-$(7#J#K#L#M(B]*[$(7"Q"R"S(B-$(7"^"a"b"e(B]*[$(7"_"c"d"g(B-$(7"l!I!e!g(B]*" |
117 |
"Regexp matching a composable sequence of Tibetan characters.") |
"Regexp matching a composable sequence of Tibetan characters.") |
118 |
|
|
|
;; Register a function to compose Tibetan characters. |
|
|
(set-char-table-range composition-function-table |
|
|
(cons (decode-char 'tibetan #x2121) |
|
|
(decode-char 'tibetan #x7E7E)) |
|
|
(list (cons tibetan-composable-pattern |
|
|
'tibetan-composition-function))) |
|
|
|
|
119 |
;;; |
;;; |
120 |
;;; Definitions of conversion data. |
;;; Definitions of conversion data. |
121 |
;;; |
;;; |
550 |
("$(7"G#9(B" . "$(7%Y(B"))) |
("$(7"G#9(B" . "$(7%Y(B"))) |
551 |
|
|
552 |
(defconst tibetan-obsolete-glyphs |
(defconst tibetan-obsolete-glyphs |
553 |
`(("$(7!=(B" . "$(8!=(B") ; 2 col <-> 1 col |
`(("$(7!=(B" . "$(7!=(B") ; 2 col <-> 1 col |
554 |
("$(7!?(B" . "$(8!?(B") |
("$(7!?(B" . "$(7!?(B") |
555 |
("$(7!@(B" . "$(8!@(B") |
("$(7!@(B" . "$(7!@(B") |
556 |
("$(7!A(B" . "$(8!A(B") |
("$(7!A(B" . "$(7!A(B") |
557 |
("$(7"`(B" . "$(8"`(B") |
("$(7"`(B" . "$(7"`(B") |
558 |
("$(7!;(B" . "$(8!;(B") |
("$(7!;(B" . "$(7!;(B") |
559 |
("$(7!D(B" . "$(8!D(B") |
("$(7!D(B" . "$(7!D(B") |
560 |
;; Yes these are dirty. But ... |
;; Yes these are dirty. But ... |
561 |
("$(7!>(B $(7!>(B" . ,(compose-string "$(7!>(B $(7!>(B" 0 3 [?$(7!>(B (Br . Bl) ? (Br . Bl) ?$(7!>(B])) |
("$(7!>(B $(7!>(B" . ,(compose-string "$(7!>(B $(7!>(B" 0 3 [?$(7!>(B (Br . Bl) ? (Br . Bl) ?$(7!>(B])) |
562 |
("$(7!4!5!5(B" . ,(compose-string |
("$(7!4!5!5(B" . ,(compose-string |
619 |
(defvar tibetan-decomposed nil) |
(defvar tibetan-decomposed nil) |
620 |
(defvar tibetan-decomposed-temp nil) |
(defvar tibetan-decomposed-temp nil) |
621 |
|
|
622 |
|
;; For automatic composition. |
623 |
|
(dolist (range '((?$(7#!(B . ?$(7#J(B) "$(7#K#L#M"Q"R(B" (?$(7"S(B . ?$(7"^(B) "$(7"a"b"e"_"c"d(B" (?$(7"g(B . ?$(7"l(B) "$(7!I!e!g(B")) |
624 |
|
(if (stringp range) |
625 |
|
(dotimes (i (length range)) |
626 |
|
(aset composition-function-table (aref range i) |
627 |
|
'tibetan-composition-function)) |
628 |
|
(set-char-table-range composition-function-table range |
629 |
|
'tibetan-composition-function))) |
630 |
|
|
631 |
(provide 'tibetan) |
(provide 'tibetan) |
632 |
|
|
633 |
;;; tibetan.el ends here |
;;; tibetan.el ends here |