HCoop / bpt / emacs.git / blame
| Commit | Line | Data |
|---|---|---|
| 80d75b56 KH |
1 | ;;; tibetan.el --- Support for Tibetan language |
| 2 | ||
| 80d75b56 | 3 | ;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN. |
| fa526c4a | 4 | ;; Licensed to the Free Software Foundation. |
| 80d75b56 KH |
5 | |
| 6 | ;; Keywords: multilingual, Tibetan | |
| 7 | ||
| 8 | ;; This file is part of GNU Emacs. | |
| 9 | ||
| 10 | ;; GNU Emacs is free software; you can redistribute it and/or modify | |
| 11 | ;; it under the terms of the GNU General Public License as published by | |
| 12 | ;; the Free Software Foundation; either version 2, or (at your option) | |
| 13 | ;; any later version. | |
| 14 | ||
| 15 | ;; GNU Emacs is distributed in the hope that it will be useful, | |
| 16 | ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
| 17 | ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
| 18 | ;; GNU General Public License for more details. | |
| 19 | ||
| 20 | ;; You should have received a copy of the GNU General Public License | |
| 21 | ;; along with GNU Emacs; see the file COPYING. If not, write to the | |
| 22 | ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, | |
| 23 | ;; Boston, MA 02111-1307, USA. | |
| 24 | ||
| 25 | ;; Author: Toru TOMABECHI, <Toru.Tomabechi@orient.unil.ch> | |
| 26 | ||
| 27 | ;; Created: Feb. 17. 1997 | |
| 28 | ||
| 29 | ;; History: | |
| 30 | ;; 1997.03.13 Modification for special signs and punctuations. | |
| 31 | ||
| 32 | ;;; Code: | |
| 33 | ||
| 80d75b56 KH |
34 | ;;; Tibetan Character set. |
| 35 | ;;; \x2130 -- \x234a is a subset of Unicode v.2 \x0f00 - \x0fb9 | |
| 36 | ;;; with a slight modification. And there are some subjoined | |
| 37 | ;;; consonants which are not specified in Unicode. | |
| 38 | ;;; I hope I can add missing characters later. | |
| 39 | ;;; | |
| 40 | ;;; 00 01 02 03 04 05 06 07 08 09 0A 0B 0C 0D 0E 0F | |
| 41 | ;;;2120 // \e$(7!!\e(B \e$(7!"\e(B \e$(7!#\e(B \e$(7!$\e(B \e$(7!%\e(B \e$(7!&\e(B \e$(7!'\e(B \e$(7!(\e(B \e$(7!)\e(B \e$(7!*\e(B \e$(7!+\e(B \e$(7!,\e(B \e$(7!-\e(B \e$(7!.\e(B \e$(7!/\e(B ; | |
| 42 | ;;;2130 \e$(7!0\e(B \e$(7!1\e(B \e$(7!2\e(B \e$(7!3\e(B \e$(7!4\e(B \e$(7!5\e(B \e$(7!6\e(B \e$(7!7\e(B \e$(7!8\e(B \e$(7!9\e(B \e$(7!:\e(B \e$(7!;\e(B \e$(7!<\e(B \e$(7!=\e(B \e$(7!>\e(B \e$(7!?\e(B ; Punctuations, | |
| 43 | ;;;2140 \e$(7!@\e(B \e$(7!A\e(B \e$(7!B\e(B \e$(7!C\e(B \e$(7!D\e(B \e$(7!E\e(B \e$(7!F\e(B \e$(7!G\e(B \e$(7!H\e(B \e$(7!I\e(B \e$(7!J\e(B \e$(7!K\e(B \e$(7!L\e(B \e$(7!M\e(B \e$(7!N\e(B \e$(7!O\e(B ; Digits and | |
| 44 | ;;;2150 \e$(7!P\e(B \e$(7!Q\e(B \e$(7!R\e(B \e$(7!S\e(B \e$(7!T\e(B \e$(7!U\e(B \e$(7!V\e(B \e$(7!W\e(B \e$(7!X\e(B \e$(7!Y\e(B \e$(7!Z\e(B \e$(7![\e(B \e$(7!\\e(B \e$(7!]\e(B \e$(7!^\e(B \e$(7!_\e(B ; Special signs. | |
| 45 | ;;;2160 \e$(7!`\e(B \e$(7!a\e(B \e$(7!b\e(B \e$(7!c\e(B \e$(7!d\e(B \e$(7!e\e(B \e$(7!f\e(B \e$(7!g\e(B \e$(7!h\e(B \e$(7!i\e(B \e$(7!j\e(B \e$(7!k\e(B \e$(7!l\e(B \e$(7!m\e(B \e$(7!n\e(B \e$(7!o\e(B ; | |
| 46 | ;;;2170 \e$(7!p\e(B \e$(7!q\e(B \e$(7!r\e(B \e$(7!s\e(B \e$(7!t\e(B \e$(7!u\e(B \e$(7!v\e(B \e$(7!w\e(B \e$(7!x\e(B \e$(7!y\e(B \e$(7!z\e(B \e$(7!{\e(B \e$(7!|\e(B \e$(7!}\e(B \e$(7!~\e(B // ; | |
| 47 | ;;; | |
| 48 | ;;; 00 01 02 03 04 05 06 07 08 09 0A 0B 0C 0D 0E 0F | |
| 49 | ;;;2220 // \e$(7"!\e(B \e$(7""\e(B \e$(7"#\e(B \e$(7"$\e(B \e$(7"%\e(B \e$(7"&\e(B \e$(7"'\e(B \e$(7"(\e(B \e$(7")\e(B \e$(7"*\e(B \e$(7"+\e(B \e$(7",\e(B \e$(7"-\e(B \e$(7".\e(B \e$(7"/\e(B ; Base consonants | |
| 50 | ;;;2230 \e$(7"0\e(B \e$(7"1\e(B \e$(7"2\e(B \e$(7"3\e(B \e$(7"4\e(B \e$(7"5\e(B \e$(7"6\e(B \e$(7"7\e(B \e$(7"8\e(B \e$(7"9\e(B \e$(7":\e(B \e$(7";\e(B \e$(7"<\e(B \e$(7"=\e(B \e$(7">\e(B \e$(7"?\e(B ; and | |
| 51 | ;;;2240 \e$(7"@\e(B \e$(7"A\e(B \e$(7"B\e(B \e$(7"C\e(B \e$(7"D\e(B \e$(7"E\e(B \e$(7"F\e(B \e$(7"G\e(B \e$(7"H\e(B \e$(7"I\e(B \e$(7"J\e(B \e$(7"K\e(B \e$(7"L\e(B \e$(7"M\e(B \e$(7"N\e(B \e$(7"O\e(B ; Vowel signs. | |
| 52 | ;;;2250 \e$(7"P\e(B \e$(7"Q\e(B \e$(7"R\e(B \e$(7"S\e(B \e$(7"T\e(B \e$(7"U\e(B \e$(7"V\e(B \e$(7"W\e(B \e$(7"X\e(B \e$(7"Y\e(B \e$(7"Z\e(B \e$(7"[\e(B \e$(7"\\e(B \e$(7"]\e(B \e$(7"^\e(B \e$(7"_\e(B ; (\x2251 = vowel a) | |
| 53 | ;;;2260 \e$(7"`\e(B \e$(7"a\e(B \e$(7"b\e(B \e$(7"c\e(B \e$(7"d\e(B \e$(7"e\e(B \e$(7"f\e(B \e$(7"g\e(B \e$(7"h\e(B \e$(7"i\e(B \e$(7"j\e(B \e$(7"k\e(B \e$(7"l\e(B \e$(7"m\e(B \e$(7"n\e(B \e$(7"o\e(B ; Long vowels and | |
| 54 | ;;;2270 \e$(7"p\e(B \e$(7"q\e(B \e$(7"r\e(B \e$(7"s\e(B \e$(7"t\e(B \e$(7"u\e(B \e$(7"v\e(B \e$(7"w\e(B \e$(7"x\e(B \e$(7"y\e(B \e$(7"z\e(B \e$(7"{\e(B \e$(7"|\e(B \e$(7"}\e(B \e$(7"~\e(B // ; vocalic r, l are | |
| 55 | ;;; ; not atomically | |
| 56 | ;;; ; encoded. | |
| 57 | ;;; 00 01 02 03 04 05 06 07 08 09 0A 0B 0C 0D 0E 0F | |
| 58 | ;;;2320 // \e$(7#!\e(B \e$(7#"\e(B \e$(7##\e(B \e$(7#$\e(B \e$(7#%\e(B \e$(7#&\e(B \e$(7#'\e(B \e$(7#(\e(B \e$(7#)\e(B \e$(7#*\e(B \e$(7#+\e(B \e$(7#,\e(B \e$(7#-\e(B \e$(7#.\e(B \e$(7#/\e(B ; Subjoined consonants | |
| 59 | ;;;2330 \e$(7#0\e(B \e$(7#1\e(B \e$(7#2\e(B \e$(7#3\e(B \e$(7#4\e(B \e$(7#5\e(B \e$(7#6\e(B \e$(7#7\e(B \e$(7#8\e(B \e$(7#9\e(B \e$(7#:\e(B \e$(7#;\e(B \e$(7#<\e(B \e$(7#=\e(B \e$(7#>\e(B \e$(7#?\e(B ; | |
| 60 | ;;;2340 \e$(7#@\e(B \e$(7#A\e(B \e$(7#B\e(B \e$(7#C\e(B \e$(7#D\e(B \e$(7#E\e(B \e$(7#F\e(B \e$(7#G\e(B \e$(7#H\e(B \e$(7#I\e(B \e$(7#J\e(B \e$(7#K\e(B \e$(7#L\e(B \e$(7#M\e(B \e$(7#N\e(B \e$(7#O\e(B ; 'a chung (\x2341)is | |
| 61 | ;;; ; here, | |
| 62 | ;;; ; while in Unicode | |
| 63 | ;;; ; it is classified | |
| 64 | ;;; ; as a vowel sign | |
| 65 | ;;; ; (\x0f71). | |
| 66 | ;;; | |
| 67 | ;;;2350 \e$(7#P\e(B \e$(7#Q\e(B \e$(7#R\e(B \e$(7#S\e(B \e$(7#T\e(B \e$(7#U\e(B \e$(7#V\e(B \e$(7#W\e(B \e$(7#X\e(B \e$(7#Y\e(B \e$(7#Z\e(B \e$(7#[\e(B \e$(7#\\e(B \e$(7#]\e(B \e$(7#^\e(B \e$(7#_\e(B ; Hereafter, the chars | |
| 68 | ;;;2360 \e$(7#`\e(B \e$(7#a\e(B \e$(7#b\e(B \e$(7#c\e(B \e$(7#d\e(B \e$(7#e\e(B \e$(7#f\e(B \e$(7#g\e(B \e$(7#h\e(B \e$(7#i\e(B \e$(7#j\e(B \e$(7#k\e(B \e$(7#l\e(B \e$(7#m\e(B \e$(7#n\e(B \e$(7#o\e(B ; are not specified | |
| 69 | ;;;2370 \e$(7#p\e(B \e$(7#q\e(B \e$(7#r\e(B \e$(7#s\e(B \e$(7#t\e(B \e$(7#u\e(B \e$(7#v\e(B \e$(7#w\e(B \e$(7#x\e(B \e$(7#y\e(B \e$(7#z\e(B \e$(7#{\e(B \e$(7#|\e(B \e$(7#}\e(B \e$(7#~\e(B // ; in Unicode. | |
| 70 | ;;; ; The character \x2351 | |
| 71 | ;;; ; is not used in our | |
| 72 | ;;; ; implementation. | |
| 73 | ;;; 00 01 02 03 04 05 06 07 08 09 0A 0B 0C 0D 0E 0F | |
| 74 | ;;;2420 // \e$(7$!\e(B \e$(7$"\e(B \e$(7$#\e(B \e$(7$$\e(B \e$(7$%\e(B \e$(7$&\e(B \e$(7$'\e(B \e$(7$(\e(B \e$(7$)\e(B \e$(7$*\e(B \e$(7$+\e(B \e$(7$,\e(B \e$(7$-\e(B \e$(7$.\e(B \e$(7$/\e(B ; Precomposed | |
| 75 | ;;;2430 \e$(7$0\e(B \e$(7$1\e(B \e$(7$2\e(B \e$(7$3\e(B \e$(7$4\e(B \e$(7$5\e(B \e$(7$6\e(B \e$(7$7\e(B \e$(7$8\e(B \e$(7$9\e(B \e$(7$:\e(B \e$(7$;\e(B \e$(7$<\e(B \e$(7$=\e(B \e$(7$>\e(B \e$(7$?\e(B ; consonants for | |
| 76 | ;;;2440 \e$(7$@\e(B \e$(7$A\e(B \e$(7$B\e(B \e$(7$C\e(B \e$(7$D\e(B \e$(7$E\e(B \e$(7$F\e(B \e$(7$G\e(B \e$(7$H\e(B \e$(7$I\e(B \e$(7$J\e(B \e$(7$K\e(B \e$(7$L\e(B \e$(7$M\e(B \e$(7$N\e(B \e$(7$O\e(B ; ordinary Tibetan. | |
| 77 | ;;;2450 \e$(7$P\e(B \e$(7$Q\e(B \e$(7$R\e(B \e$(7$S\e(B \e$(7$T\e(B \e$(7$U\e(B \e$(7$V\e(B \e$(7$W\e(B \e$(7$X\e(B \e$(7$Y\e(B \e$(7$Z\e(B \e$(7$[\e(B \e$(7$\\e(B \e$(7$]\e(B \e$(7$^\e(B \e$(7$_\e(B ; They are decomposed | |
| 78 | ;;;2460 \e$(7$`\e(B \e$(7$a\e(B \e$(7$b\e(B \e$(7$c\e(B \e$(7$d\e(B \e$(7$e\e(B \e$(7$f\e(B \e$(7$g\e(B \e$(7$h\e(B \e$(7$i\e(B \e$(7$j\e(B \e$(7$k\e(B \e$(7$l\e(B \e$(7$m\e(B \e$(7$n\e(B \e$(7$o\e(B ; into base and | |
| 79 | ;;;2470 \e$(7$p\e(B \e$(7$q\e(B \e$(7$r\e(B \e$(7$s\e(B \e$(7$t\e(B \e$(7$u\e(B \e$(7$v\e(B \e$(7$w\e(B \e$(7$x\e(B \e$(7$y\e(B \e$(7$z\e(B \e$(7${\e(B \e$(7$|\e(B \e$(7$}\e(B \e$(7$~\e(B // ; subjoined consonants | |
| 80 | ;;; ; when written on a | |
| 81 | ;;; 00 01 02 03 04 05 06 07 08 09 0A 0B 0C 0D 0E 0F ; file in Tibetan | |
| 82 | ;;;2520 // \e$(7%!\e(B \e$(7%"\e(B \e$(7%#\e(B \e$(7%$\e(B \e$(7%%\e(B \e$(7%&\e(B \e$(7%'\e(B \e$(7%(\e(B \e$(7%)\e(B \e$(7%*\e(B \e$(7%+\e(B \e$(7%,\e(B \e$(7%-\e(B \e$(7%.\e(B \e$(7%/\e(B ; coding system. | |
| 83 | ;;;2530 \e$(7%0\e(B \e$(7%1\e(B \e$(7%2\e(B \e$(7%3\e(B \e$(7%4\e(B \e$(7%5\e(B \e$(7%6\e(B \e$(7%7\e(B \e$(7%8\e(B \e$(7%9\e(B \e$(7%:\e(B \e$(7%;\e(B \e$(7%<\e(B \e$(7%=\e(B \e$(7%>\e(B \e$(7%?\e(B ; | |
| 84 | ;;;2540 \e$(7%@\e(B \e$(7%A\e(B \e$(7%B\e(B \e$(7%C\e(B \e$(7%D\e(B \e$(7%E\e(B \e$(7%F\e(B \e$(7%G\e(B \e$(7%H\e(B \e$(7%I\e(B \e$(7%J\e(B \e$(7%K\e(B \e$(7%L\e(B \e$(7%M\e(B \e$(7%N\e(B \e$(7%O\e(B ; | |
| 85 | ;;;2550 \e$(7%P\e(B \e$(7%Q\e(B \e$(7%R\e(B \e$(7%S\e(B \e$(7%T\e(B \e$(7%U\e(B \e$(7%V\e(B \e$(7%W\e(B \e$(7%X\e(B \e$(7%Y\e(B \e$(7%Z\e(B \e$(7%[\e(B \e$(7%\\e(B \e$(7%]\e(B \e$(7%^\e(B \e$(7%_\e(B ; | |
| 86 | ;;;2560 \e$(7%`\e(B \e$(7%a\e(B \e$(7%b\e(B \e$(7%c\e(B \e$(7%d\e(B \e$(7%e\e(B \e$(7%f\e(B \e$(7%g\e(B \e$(7%h\e(B \e$(7%i\e(B \e$(7%j\e(B \e$(7%k\e(B \e$(7%l\e(B \e$(7%m\e(B \e$(7%n\e(B \e$(7%o\e(B ; | |
| 87 | ;;;2570 \e$(7%p\e(B \e$(7%q\e(B \e$(7%r\e(B \e$(7%s\e(B \e$(7%t\e(B \e$(7%u\e(B \e$(7%v\e(B \e$(7%w\e(B \e$(7%x\e(B \e$(7%y\e(B \e$(7%z\e(B \e$(7%{\e(B \e$(7%|\e(B \e$(7%}\e(B \e$(7%~\e(B // ; | |
| 88 | ;;; | |
| 89 | ||
| 90 | ||
| 91 | (make-coding-system | |
| 92 | 'tibetan 2 ?Q | |
| 4b9121fc | 93 | "8-bit encoding for ASCII (MSB=0) and TIBETAN (MSB=1)" |
| 80d75b56 | 94 | '((ascii t) (tibetan t) nil nil |
| 6def6186 KH |
95 | nil ascii-eol) |
| 96 | '(ascii tibetan)) | |
| 80d75b56 | 97 | |
| d9da4d0c KH |
98 | (coding-system-put 'tibetan 'post-read-conversion |
| 99 | 'tibetan-post-read-conversion) | |
| 100 | (coding-system-put 'tibetan 'pre-write-conversion | |
| 101 | 'tibetan-pre-write-conversion) | |
| 80d75b56 | 102 | |
| 80d75b56 KH |
103 | (set-language-info-alist |
| 104 | "Tibetan" '((setup-function . setup-tibetan-environment) | |
| 105 | (charset . (tibetan tibetan-1-column)) | |
| 106 | (coding-system . (tibetan)) | |
| 107 | (documentation . t) | |
| 108 | (sample-text . | |
| 109 | "Tibetan (\e2\e$(7"70"]\e1"2\e$(8!;\e2\e$(7%P`"Q\e1"2\e$(8!;\e(B) \e2\e$(7#RP#SP#S\e1!>"7\e2$P`"Q\e1\e$(8!;\e2\e$(7"E0"S\e1"G\e$(8!;\e$(7"7\e2"20"[\e1\e$(8!;\e2\e$(7"D0"[\e1"#"G!>\e2"I0"]0"_\e1\e$(8!;\e2\e$(7"9`"Q\e1\e$(8!;\e2\e$(7"/0"S\e1\e$(8!;\e2\e$(7"5`"Q\e1\e2#2`#90"[\e1\e$(8!;\e2\e$(7"H`#A`"U0"c\e1!>\e(B"))) | |
| 110 | ||
| 111 | ||
| 112 | ;;; | |
| 113 | ;;; Definitions of conversion data. | |
| 114 | ;;; | |
| 115 | ||
| 116 | ||
| 117 | ;;; alists for tibetan char <-> transcription conversion | |
| 118 | ;;; longer transcription should come first | |
| 119 | (defconst tibetan-consonant-transcription-alist | |
| 120 | '(("tsh" . "\e$(7";\e(B") | |
| 121 | ("dzh" . "\e$(7"=\e(B") | |
| 122 | ("kSH" . "\e$(7"J\e(B") | |
| 123 | ("kh" . "\e$(7""\e(B") | |
| 124 | ("gh" . "\e$(7"$\e(B") | |
| 125 | ("ng" . "\e$(7"%\e(B") | |
| 126 | ("ch" . "\e$(7"'\e(B") | |
| 127 | ("ny" . "\e$(7"*\e(B") | |
| 128 | ("TH" . "\e$(7",\e(B") | |
| 129 | ("DH" . "\e$(7".\e(B") | |
| 130 | ("th" . "\e$(7"1\e(B") | |
| 131 | ("dh" . "\e$(7"3\e(B") | |
| 132 | ("ph" . "\e$(7"6\e(B") | |
| 133 | ("bh" . "\e$(7"8\e(B") | |
| 134 | ("ts" . "\e$(7":\e(B") | |
| 135 | ("dz" . "\e$(7"<\e(B") | |
| 136 | ("zh" . "\e$(7"?\e(B") | |
| 137 | ("sh" . "\e$(7"E\e(B") | |
| 138 | ("SH" . "\e$(7"F\e(B") | |
| 139 | ("k" . "\e$(7"!\e(B") | |
| 140 | ("g" . "\e$(7"#\e(B") | |
| 141 | ("c" . "\e$(7"&\e(B") | |
| 142 | ("j" . "\e$(7"(\e(B") | |
| 143 | ("T" . "\e$(7"+\e(B") | |
| 144 | ("D" . "\e$(7"-\e(B") | |
| 145 | ("N" . "\e$(7"/\e(B") | |
| 146 | ("t" . "\e$(7"0\e(B") | |
| 147 | ("d" . "\e$(7"2\e(B") | |
| 148 | ("n" . "\e$(7"4\e(B") | |
| 149 | ("p" . "\e$(7"5\e(B") | |
| 150 | ("b" . "\e$(7"7\e(B") | |
| 151 | ("m" . "\e$(7"9\e(B") | |
| 152 | ("w" . "\e$(7">\e(B") | |
| 153 | ("z" . "\e$(7"@\e(B") | |
| 154 | ("'" . "\e$(7"A\e(B") | |
| 155 | ("y" . "\e$(7"B\e(B") | |
| 156 | ("r" . "\e$(7"C\e(B") | |
| 157 | ("l" . "\e$(7"D\e(B") | |
| 158 | ("s" . "\e$(7"G\e(B") | |
| 159 | ("h" . "\e$(7"H\e(B") | |
| 160 | ("H" . "\e$(7"H\e(B") | |
| 161 | ("A" . "\e$(7"I\e(B"))) | |
| 162 | ||
| 163 | ||
| 164 | (defconst tibetan-vowel-transcription-alist | |
| 165 | '(("ai" . "\e$(7"\\e(B") | |
| 166 | ("au" . "\e$(7"^\e(B") | |
| 167 | ("ee" . "\e$(7"\\e(B") | |
| 168 | ("oo" . "\e$(7"^\e(B") | |
| 169 | ("a" . "\e$(7"Q\e(B") ; invisible vowel sign (\x2251) | |
| 170 | ("i" . "\e$(7"S\e(B") | |
| 171 | ("u" . "\e$(7"U\e(B") | |
| 172 | ("e" . "\e$(7"[\e(B") | |
| 173 | ("o" . "\e$(7"]\e(B") | |
| 174 | ("E" . "\e$(7"\\e(B") | |
| 175 | ("O" . "\e$(7"^\e(B") | |
| 176 | ("I" . "\e$(7"a\e(B") | |
| 177 | ("M" . "\e$(7"_\e(B") | |
| 178 | ("~" . "\e$(7"c\e(B") ; not specified in Ext.wylie | |
| 179 | ("`" . "\e$(7"d\e(B") ; idem. | |
| 180 | ("," . "\e$(7"e\e(B") ; idem. | |
| 181 | ("v" . "\e$(7"g\e(B") ; idem. | |
| 182 | ("V" . "\e$(7"h\e(B") ; idem. | |
| 183 | ("x" . "\e$(7"i\e(B") ; idem. | |
| 184 | ("X" . "\e$(7"j\e(B") ; idem. | |
| 185 | ("q" . "\e$(7"k\e(B") ; idem. | |
| 186 | ("Q" . "\e$(7"l\e(B") ; idem. | |
| 187 | ("_o" . "\e$(7!g\e(B") ; idem. | |
| 188 | ("_O" . "\e$(7!e\e(B") ; idem. | |
| 189 | ("_/" . "\e$(7!I\e(B") ; idem. | |
| 190 | )) | |
| 191 | ||
| 192 | (defconst tibetan-precomposed-transcription-alist | |
| 193 | '(("phyw" . "\e$(7$G\e(B") | |
| 194 | ("tshw" . "\e$(7$)\e(B") | |
| 195 | ("rtsw" . "\e$(7%.\e(B") | |
| 196 | ("khw" . "\e$(7$"\e(B") | |
| 197 | ("nyw" . "\e$(7$%\e(B") | |
| 198 | ("tsw" . "\e$(7$(\e(B") | |
| 199 | ("zhw" . "\e$(7$*\e(B") | |
| 200 | ("shw" . "\e$(7$.\e(B") | |
| 201 | ("khy" . "\e$(7$A\e(B") | |
| 202 | ("phy" . "\e$(7$D\e(B") | |
| 203 | ("khr" . "\e$(7$Q\e(B") | |
| 204 | ("thr" . "\e$(7$T\e(B") | |
| 205 | ("phr" . "\e$(7$W\e(B") | |
| 206 | ("shr" . "\e$(7$Z\e(B") | |
| 207 | ("dzr" . "\e$(7$^\e(B") | |
| 208 | ("grw" . "\e$(7$_\e(B") | |
| 209 | ("rng" . "\e$(7%#\e(B") | |
| 210 | ("rny" . "\e$(7%%\e(B") | |
| 211 | ("rts" . "\e$(7%+\e(B") | |
| 212 | ("rdz" . "\e$(7%,\e(B") | |
| 213 | ("rgw" . "\e$(7%-\e(B") | |
| 214 | ("rky" . "\e$(7%0\e(B") | |
| 215 | ("rgy" . "\e$(7%1\e(B") | |
| 216 | ("rmy" . "\e$(7%2\e(B") | |
| 217 | ("lng" . "\e$(7%B\e(B") | |
| 218 | ("sng" . "\e$(7%R\e(B") | |
| 219 | ("sny" . "\e$(7%S\e(B") | |
| 220 | ("sts" . "\e$(7%Z\e(B") | |
| 221 | ("sky" . "\e$(7%`\e(B") | |
| 222 | ("sgy" . "\e$(7%a\e(B") | |
| 223 | ("spy" . "\e$(7%b\e(B") | |
| 224 | ("sby" . "\e$(7%c\e(B") | |
| 225 | ("smy" . "\e$(7%d\e(B") | |
| 226 | ("skr" . "\e$(7%p\e(B") | |
| 227 | ("sgr" . "\e$(7%q\e(B") | |
| 228 | ("snr" . "\e$(7%r\e(B") | |
| 229 | ("spr" . "\e$(7%s\e(B") | |
| 230 | ("sbr" . "\e$(7%t\e(B") | |
| 231 | ("smr" . "\e$(7%u\e(B") | |
| 232 | ("kw" . "\e$(7$!\e(B") | |
| 233 | ("gw" . "\e$(7$#\e(B") | |
| 234 | ("cw" . "\e$(7$$\e(B") | |
| 235 | ("tw" . "\e$(7$&\e(B") | |
| 236 | ("dw" . "\e$(7$'\e(B") | |
| 237 | ("zw" . "\e$(7$+\e(B") | |
| 238 | ("rw" . "\e$(7$,\e(B") | |
| 239 | ("lw" . "\e$(7$-\e(B") | |
| 240 | ("sw" . "\e$(7$/\e(B") | |
| 241 | ("hw" . "\e$(7$0\e(B") | |
| 242 | ("ky" . "\e$(7$@\e(B") | |
| 243 | ("gy" . "\e$(7$B\e(B") | |
| 244 | ("py" . "\e$(7$C\e(B") | |
| 245 | ("by" . "\e$(7$E\e(B") | |
| 246 | ("my" . "\e$(7$F\e(B") | |
| 247 | ("kr" . "\e$(7$P\e(B") | |
| 248 | ("gr" . "\e$(7$R\e(B") | |
| 249 | ("tr" . "\e$(7$S\e(B") | |
| 250 | ("dr" . "\e$(7$U\e(B") | |
| 251 | ("pr" . "\e$(7$V\e(B") | |
| 252 | ("brk" . "\e$(7"7%!\e(B") | |
| 253 | ("brg" . "\e$(7"7%"\e(B") | |
| 254 | ("brng" . "\e$(7"7%#\e(B") | |
| 255 | ("brj" . "\e$(7"7%$\e(B") | |
| 256 | ("brny" . "\e$(7"7%%\e(B") | |
| 257 | ("brt" . "\e$(7"7%&\e(B") | |
| 258 | ("brd" . "\e$(7"7%'\e(B") | |
| 259 | ("brn" . "\e$(7"7%(\e(B") | |
| 260 | ("brts" . "\e$(7"7%+\e(B") | |
| 261 | ("brdz" . "\e$(7"7%,\e(B") | |
| 262 | ("brl" . "\e$(7"7$d\e(B") | |
| 263 | ("br" . "\e$(7$X\e(B") | |
| 264 | ("mr" . "\e$(7$Y\e(B") | |
| 265 | ("sr" . "\e$(7$[\e(B") | |
| 266 | ("hr" . "\e$(7$\\e(B") | |
| 267 | ("jr" . "\e$(7$]\e(B") | |
| 268 | ("kl" . "\e$(7$`\e(B") | |
| 269 | ("gl" . "\e$(7$a\e(B") | |
| 270 | ("blt" . "\e$(7"7%E\e(B") | |
| 271 | ("bld" . "\e$(7"7%F\e(B") | |
| 272 | ("bl" . "\e$(7$b\e(B") | |
| 273 | ("zl" . "\e$(7$c\e(B") | |
| 274 | ("rl" . "\e$(7$d\e(B") | |
| 275 | ("sl" . "\e$(7$e\e(B") | |
| 276 | ("rk" . "\e$(7%!\e(B") | |
| 277 | ("rg" . "\e$(7%"\e(B") | |
| 278 | ("rj" . "\e$(7%$\e(B") | |
| 279 | ("rt" . "\e$(7%&\e(B") | |
| 280 | ("rd" . "\e$(7%'\e(B") | |
| 281 | ("rn" . "\e$(7%(\e(B") | |
| 282 | ("rb" . "\e$(7%)\e(B") | |
| 283 | ("rm" . "\e$(7%*\e(B") | |
| 284 | ("lk" . "\e$(7%@\e(B") | |
| 285 | ("lg" . "\e$(7%A\e(B") | |
| 286 | ("lc" . "\e$(7%C\e(B") | |
| 287 | ("lj" . "\e$(7%D\e(B") | |
| 288 | ("lt" . "\e$(7%E\e(B") | |
| 289 | ("ld" . "\e$(7%F\e(B") | |
| 290 | ("ln" . "\e$(7!!\e(B") ; dummy \x2121 | |
| 291 | ("lp" . "\e$(7%G\e(B") | |
| 292 | ("lb" . "\e$(7%H\e(B") | |
| 293 | ("lh" . "\e$(7%I\e(B") | |
| 294 | ("sk" . "\e$(7%P\e(B") | |
| 295 | ("sg" . "\e$(7%Q\e(B") | |
| 296 | ("st" . "\e$(7%T\e(B") | |
| 297 | ("sd" . "\e$(7%U\e(B") | |
| 298 | ("sn" . "\e$(7%V\e(B") | |
| 299 | ("sp" . "\e$(7%W\e(B") | |
| 300 | ("sb" . "\e$(7%X\e(B") | |
| 301 | ("sm" . "\e$(7%Y\e(B"))) | |
| 302 | ||
| 303 | (defconst tibetan-subjoined-transcription-alist | |
| 304 | '(("+k" . "\e$(7#!\e(B") | |
| 305 | ("+kh" . "\e$(7#"\e(B") | |
| 306 | ("+g" . "\e$(7##\e(B") | |
| 307 | ("+gh" . "\e$(7#$\e(B") | |
| 308 | ("+ng" . "\e$(7#%\e(B") | |
| 309 | ("+c" . "\e$(7#&\e(B") | |
| 310 | ("+ch" . "\e$(7#'\e(B") | |
| 311 | ("+j" . "\e$(7#(\e(B") | |
| 312 | ("+ny" . "\e$(7#*\e(B") | |
| 313 | ("+T" . "\e$(7#+\e(B") | |
| 314 | ("+TH" . "\e$(7#,\e(B") | |
| 315 | ("+D" . "\e$(7#-\e(B") | |
| 316 | ("+DH" . "\e$(7#.\e(B") | |
| 317 | ("+N" . "\e$(7#/\e(B") | |
| 318 | ("+t" . "\e$(7#0\e(B") | |
| 319 | ("+th" . "\e$(7#1\e(B") | |
| 320 | ("+d" . "\e$(7#2\e(B") | |
| 321 | ("+dh" . "\e$(7#3\e(B") | |
| 322 | ("+n" . "\e$(7#4\e(B") | |
| 323 | ("+p" . "\e$(7#5\e(B") | |
| 324 | ("+ph" . "\e$(7#6\e(B") | |
| 325 | ("+b" . "\e$(7#7\e(B") | |
| 326 | ("+bh" . "\e$(7#8\e(B") | |
| 327 | ("+m" . "\e$(7#9\e(B") | |
| 328 | ("+ts" . "\e$(7#:\e(B") | |
| 329 | ("+tsh" . "\e$(7#;\e(B") | |
| 330 | ("+dz" . "\e$(7#<\e(B") | |
| 331 | ("+dzh" . "\e$(7#=\e(B") | |
| 332 | ("+w" . "\e$(7#>\e(B") | |
| 333 | ("+zh" . "\e$(7#?\e(B") | |
| 334 | ("+z" . "\e$(7#@\e(B") | |
| 335 | ("+'" . "\e$(7#A\e(B") | |
| 336 | ("+y" . "\e$(7#B\e(B") | |
| 337 | ("+r" . "\e$(7#C\e(B") | |
| 338 | ("+l" . "\e$(7#D\e(B") | |
| 339 | ("+sh" . "\e$(7#E\e(B") | |
| 340 | ("+SH" . "\e$(7#F\e(B") | |
| 341 | ("+s" . "\e$(7#G\e(B") | |
| 342 | ("+h" . "\e$(7#H\e(B") | |
| 343 | ("+A" . "\e$(7#I\e(B") | |
| 344 | ("+kSH" . "\e$(7#J\e(B") | |
| 345 | ("R" . "\e$(7#P\e(B"))) | |
| 346 | ||
| 347 | ;;; | |
| 348 | ;;; alist for Tibetan base consonant <-> subjoined consonant conversion. | |
| 349 | ;;; | |
| 350 | (defconst tibetan-base-to-subjoined-alist | |
| 351 | '(("\e$(7"!\e(B" . "\e$(7#!\e(B") | |
| 352 | ("\e$(7""\e(B" . "\e$(7#"\e(B") | |
| 353 | ("\e$(7"#\e(B" . "\e$(7##\e(B") | |
| 354 | ("\e$(7"$\e(B" . "\e$(7#$\e(B") | |
| 355 | ("\e$(7"%\e(B" . "\e$(7#%\e(B") | |
| 356 | ("\e$(7"&\e(B" . "\e$(7#&\e(B") | |
| 357 | ("\e$(7"'\e(B" . "\e$(7#'\e(B") | |
| 358 | ("\e$(7"(\e(B" . "\e$(7#(\e(B") | |
| 359 | ("\e$(7"*\e(B" . "\e$(7#*\e(B") | |
| 360 | ("\e$(7"+\e(B" . "\e$(7#+\e(B") | |
| 361 | ("\e$(7",\e(B" . "\e$(7#,\e(B") | |
| 362 | ("\e$(7"-\e(B" . "\e$(7#-\e(B") | |
| 363 | ("\e$(7".\e(B" . "\e$(7#.\e(B") | |
| 364 | ("\e$(7"/\e(B" . "\e$(7#/\e(B") | |
| 365 | ("\e$(7"0\e(B" . "\e$(7#0\e(B") | |
| 366 | ("\e$(7"1\e(B" . "\e$(7#1\e(B") | |
| 367 | ("\e$(7"2\e(B" . "\e$(7#2\e(B") | |
| 368 | ("\e$(7"3\e(B" . "\e$(7#3\e(B") | |
| 369 | ("\e$(7"4\e(B" . "\e$(7#4\e(B") | |
| 370 | ("\e$(7"5\e(B" . "\e$(7#5\e(B") | |
| 371 | ("\e$(7"6\e(B" . "\e$(7#6\e(B") | |
| 372 | ("\e$(7"7\e(B" . "\e$(7#7\e(B") | |
| 373 | ("\e$(7"8\e(B" . "\e$(7#8\e(B") | |
| 374 | ("\e$(7"9\e(B" . "\e$(7#9\e(B") | |
| 375 | ("\e$(7":\e(B" . "\e$(7#:\e(B") | |
| 376 | ("\e$(7";\e(B" . "\e$(7#;\e(B") | |
| 377 | ("\e$(7"<\e(B" . "\e$(7#<\e(B") | |
| 378 | ("\e$(7"=\e(B" . "\e$(7#=\e(B") | |
| 379 | ("\e$(7">\e(B" . "\e$(7#>\e(B") | |
| 380 | ("\e$(7"?\e(B" . "\e$(7#?\e(B") | |
| 381 | ("\e$(7"@\e(B" . "\e$(7#@\e(B") | |
| 382 | ("\e$(7"A\e(B" . "\e$(7#A\e(B") | |
| 383 | ("\e$(7"B\e(B" . "\e$(7#B\e(B") | |
| 384 | ("\e$(7"C\e(B" . "\e$(7#C\e(B") | |
| 385 | ("\e$(7"D\e(B" . "\e$(7#D\e(B") | |
| 386 | ("\e$(7"E\e(B" . "\e$(7#E\e(B") | |
| 387 | ("\e$(7"F\e(B" . "\e$(7#F\e(B") | |
| 388 | ("\e$(7"G\e(B" . "\e$(7#G\e(B") | |
| 389 | ("\e$(7"H\e(B" . "\e$(7#H\e(B") | |
| 390 | ("\e$(7"I\e(B" . "\e$(7#I\e(B") | |
| 391 | ("\e$(7"J\e(B" . "\e$(7#J\e(B"))) | |
| 392 | ||
| 393 | ;;; | |
| 394 | ;;; alist for Tibetan consonantic components <-> precomposed glyph conversion. | |
| 395 | ;;; (includes some punctuation conversion rules) | |
| 396 | ;;; | |
| 397 | (defconst tibetan-precomposition-rule-alist | |
| 398 | '(("\e$(7"6#B#>\e(B" . "\e$(7$G\e(B") | |
| 399 | ("\e$(7"##C#>\e(B" . "\e$(7$_\e(B") | |
| 400 | ("\e$(7";#>\e(B" . "\e$(7$)\e(B") | |
| 401 | ("\e$(7"C#:#>\e(B" . "\e$(7%.\e(B") | |
| 402 | ("\e$(7"C###>\e(B" . "\e$(7%-\e(B") | |
| 403 | ("\e$(7"C#!#B\e(B" . "\e$(7%0\e(B") | |
| 404 | ("\e$(7"C###B\e(B" . "\e$(7%1\e(B") | |
| 405 | ("\e$(7"C#9#B\e(B" . "\e$(7%2\e(B") | |
| 406 | ("\e$(7"G#!#B\e(B" . "\e$(7%`\e(B") | |
| 407 | ("\e$(7"G###B\e(B" . "\e$(7%a\e(B") | |
| 408 | ("\e$(7"G#5#B\e(B" . "\e$(7%b\e(B") | |
| 409 | ("\e$(7"G#7#B\e(B" . "\e$(7%c\e(B") | |
| 410 | ("\e$(7"G#9#B\e(B" . "\e$(7%d\e(B") | |
| 411 | ("\e$(7"G#!#C\e(B" . "\e$(7%p\e(B") | |
| 412 | ("\e$(7"G###C\e(B" . "\e$(7%q\e(B") | |
| 413 | ("\e$(7"G#4#C\e(B" . "\e$(7%r\e(B") | |
| 414 | ("\e$(7"G#5#C\e(B" . "\e$(7%s\e(B") | |
| 415 | ("\e$(7"G#7#C\e(B" . "\e$(7%t\e(B") | |
| 416 | ("\e$(7"G#9#C\e(B" . "\e$(7%u\e(B") | |
| 417 | ("\e$(7""#>\e(B" . "\e$(7$"\e(B") | |
| 418 | ("\e$(7"*#>\e(B" . "\e$(7$%\e(B") | |
| 419 | ("\e$(7":#>\e(B" . "\e$(7$(\e(B") | |
| 420 | ("\e$(7"?#>\e(B" . "\e$(7$*\e(B") | |
| 421 | ("\e$(7"E#>\e(B" . "\e$(7$.\e(B") | |
| 422 | ("\e$(7""#B\e(B" . "\e$(7$A\e(B") | |
| 423 | ("\e$(7"6#B\e(B" . "\e$(7$D\e(B") | |
| 424 | ("\e$(7""#C\e(B" . "\e$(7$Q\e(B") | |
| 425 | ("\e$(7"1#C\e(B" . "\e$(7$T\e(B") | |
| 426 | ("\e$(7"6#C\e(B" . "\e$(7$W\e(B") | |
| 427 | ("\e$(7"E#C\e(B" . "\e$(7$Z\e(B") | |
| 428 | ("\e$(7"<#C\e(B" . "\e$(7$^\e(B") | |
| 429 | ("\e$(7"C#%\e(B" . "\e$(7%#\e(B") | |
| 430 | ("\e$(7"C#*\e(B" . "\e$(7%%\e(B") | |
| 431 | ("\e$(7"C#:\e(B" . "\e$(7%+\e(B") | |
| 432 | ("\e$(7"C#<\e(B" . "\e$(7%,\e(B") | |
| 433 | ("\e$(7"D#%\e(B" . "\e$(7%B\e(B") | |
| 434 | ("\e$(7"G#%\e(B" . "\e$(7%R\e(B") | |
| 435 | ("\e$(7"G#*\e(B" . "\e$(7%S\e(B") | |
| 436 | ("\e$(7"G#:\e(B" . "\e$(7%Z\e(B") | |
| 437 | ("\e$(7"!#>\e(B" . "\e$(7$!\e(B") | |
| 438 | ("\e$(7"##>\e(B" . "\e$(7$#\e(B") | |
| 439 | ("\e$(7"&#>\e(B" . "\e$(7$$\e(B") | |
| 440 | ("\e$(7"0#>\e(B" . "\e$(7$&\e(B") | |
| 441 | ("\e$(7"2#>\e(B" . "\e$(7$'\e(B") | |
| 442 | ("\e$(7"@#>\e(B" . "\e$(7$+\e(B") | |
| 443 | ("\e$(7"C#>\e(B" . "\e$(7$,\e(B") | |
| 444 | ("\e$(7"D#>\e(B" . "\e$(7$-\e(B") | |
| 445 | ("\e$(7"G#>\e(B" . "\e$(7$/\e(B") | |
| 446 | ("\e$(7"H#>\e(B" . "\e$(7$0\e(B") | |
| 447 | ("\e$(7"!#B\e(B" . "\e$(7$@\e(B") | |
| 448 | ("\e$(7"##B\e(B" . "\e$(7$B\e(B") | |
| 449 | ("\e$(7"5#B\e(B" . "\e$(7$C\e(B") | |
| 450 | ("\e$(7"7#B\e(B" . "\e$(7$E\e(B") | |
| 451 | ("\e$(7"9#B\e(B" . "\e$(7$F\e(B") | |
| 452 | ("\e$(7"!#C\e(B" . "\e$(7$P\e(B") | |
| 453 | ("\e$(7"##C\e(B" . "\e$(7$R\e(B") | |
| 454 | ("\e$(7"0#C\e(B" . "\e$(7$S\e(B") | |
| 455 | ("\e$(7"2#C\e(B" . "\e$(7$U\e(B") | |
| 456 | ("\e$(7"5#C\e(B" . "\e$(7$V\e(B") | |
| 457 | ("\e$(7"7#C\e(B" . "\e$(7$X\e(B") | |
| 458 | ("\e$(7"9#C\e(B" . "\e$(7$Y\e(B") | |
| 459 | ("\e$(7"G#C\e(B" . "\e$(7$[\e(B") | |
| 460 | ("\e$(7"H#C\e(B" . "\e$(7$\\e(B") | |
| 461 | ("\e$(7"(#C\e(B" . "\e$(7$]\e(B") | |
| 462 | ("\e$(7"!#D\e(B" . "\e$(7$`\e(B") | |
| 463 | ("\e$(7"##D\e(B" . "\e$(7$a\e(B") | |
| 464 | ("\e$(7"7#D\e(B" . "\e$(7$b\e(B") | |
| 465 | ("\e$(7"@#D\e(B" . "\e$(7$c\e(B") | |
| 466 | ("\e$(7"C#D\e(B" . "\e$(7$d\e(B") | |
| 467 | ("\e$(7"G#D\e(B" . "\e$(7$e\e(B") | |
| 468 | ("\e$(7"C#!\e(B" . "\e$(7%!\e(B") | |
| 469 | ("\e$(7"C##\e(B" . "\e$(7%"\e(B") | |
| 470 | ("\e$(7"C#(\e(B" . "\e$(7%$\e(B") | |
| 471 | ("\e$(7"C#0\e(B" . "\e$(7%&\e(B") | |
| 472 | ("\e$(7"C#2\e(B" . "\e$(7%'\e(B") | |
| 473 | ("\e$(7"C#4\e(B" . "\e$(7%(\e(B") | |
| 474 | ("\e$(7"C#7\e(B" . "\e$(7%)\e(B") | |
| 475 | ("\e$(7"C#9\e(B" . "\e$(7%*\e(B") | |
| 476 | ("\e$(7"D#!\e(B" . "\e$(7%@\e(B") | |
| 477 | ("\e$(7"D##\e(B" . "\e$(7%A\e(B") | |
| 478 | ("\e$(7"D#&\e(B" . "\e$(7%C\e(B") | |
| 479 | ("\e$(7"D#(\e(B" . "\e$(7%D\e(B") | |
| 480 | ("\e$(7"D#0\e(B" . "\e$(7%E\e(B") | |
| 481 | ("\e$(7"D#2\e(B" . "\e$(7%F\e(B") | |
| 482 | ("\e$(7"D#5\e(B" . "\e$(7%G\e(B") | |
| 483 | ("\e$(7"D#7\e(B" . "\e$(7%H\e(B") | |
| 484 | ("\e$(7"D#H\e(B" . "\e$(7%I\e(B") | |
| 485 | ("\e$(7"G#!\e(B" . "\e$(7%P\e(B") | |
| 486 | ("\e$(7"G##\e(B" . "\e$(7%Q\e(B") | |
| 487 | ("\e$(7"G#0\e(B" . "\e$(7%T\e(B") | |
| 488 | ("\e$(7"G#2\e(B" . "\e$(7%U\e(B") | |
| 489 | ("\e$(7"G#4\e(B" . "\e$(7%V\e(B") | |
| 490 | ("\e$(7"G#5\e(B" . "\e$(7%W\e(B") | |
| 491 | ("\e$(7"G#7\e(B" . "\e$(7%X\e(B") | |
| 492 | ("\e$(7"G#9\e(B" . "\e$(7%Y\e(B") | |
| 493 | ("\e$(7!=\e(B" . "\e$(8!=\e(B") ; 2 col <-> 1 col | |
| 494 | ("\e$(7!?\e(B" . "\e$(8!?\e(B") | |
| 495 | ("\e$(7!@\e(B" . "\e$(8!@\e(B") | |
| 496 | ("\e$(7!A\e(B" . "\e$(8!A\e(B") | |
| 497 | ("\e$(7"`\e(B" . "\e$(8"`\e(B") | |
| 498 | ("\e$(7!;\e(B" . "\e$(8!;\e(B") | |
| 499 | ("\e$(7!D\e(B" . "\e$(8!D\e(B") | |
| 500 | ("\e$(7!>\e(B \e$(7!>\e(B" . "\e2\e$(7!>P\e(B P\e$(7!>\e1\e(B") ; Yes this is dirty. But ... | |
| 501 | ("\e$(7!4!5!5\e(B" . "\e2\e$(7#RP#SP#SP#S\e1\e(B") | |
| 502 | ("\e$(7!4!5\e(B" . "\e2\e$(7#RP#SP#S\e1\e(B") | |
| 503 | ("\e$(7!6\e(B" . "\e2\e$(7#RP#S_!I\e1\e(B") | |
| 504 | ("\e$(7!4\e(B" . "\e2\e$(7#RP#S\e1\e(B"))) | |
| 505 | ||
| 506 | (defvar tibetan-regexp | |
| 507 | (let ((l (append tibetan-consonant-transcription-alist | |
| 508 | tibetan-vowel-transcription-alist | |
| 509 | tibetan-subjoined-transcription-alist)) | |
| 510 | temp) | |
| 511 | (setq temp "\\(") | |
| 512 | (setq temp (concat temp (car (car l)))) | |
| 513 | (setq l (cdr l)) | |
| 514 | (while l | |
| 515 | (setq temp (concat temp "\\|" (car (car l)))) | |
| 516 | (setq l (cdr l))) | |
| 517 | (concat temp "\\)$")) | |
| 518 | "Regexp string to match a romanized Tibetan character component, i.e., | |
| 519 | base and subjoined consonant, vowel and vowel modifier. The result of matching | |
| 520 | is to be used for indexing alists at conversion from a roman transcription to | |
| 521 | the corresponding Tibetan character.") | |
| 522 | ||
| 523 | (defvar tibetan-precomposed-regexp | |
| 524 | (let ((l tibetan-precomposed-transcription-alist) | |
| 525 | temp) | |
| 526 | (setq temp "^\\(") | |
| 527 | (setq temp | |
| 528 | (concat temp (car (car l)))) | |
| 529 | (setq l (cdr l)) | |
| 530 | (while l | |
| 531 | (setq temp | |
| 532 | (concat temp "\\|" (car (car l)))) | |
| 533 | (setq l (cdr l))) | |
| 534 | (concat temp "\\)")) | |
| 535 | "Regexp string to match a romanized Tibetan complex consonant. | |
| 536 | The result of matching is to be used for indexing alists when the input key | |
| 537 | from an input method is converted to the corresponding precomposed glyph.") | |
| 538 | ||
| 539 | (defvar tibetan-precomposition-rule-regexp | |
| 540 | (let ((l tibetan-precomposition-rule-alist) | |
| 541 | temp) | |
| 542 | (setq temp "\\(") | |
| 543 | (setq temp (concat temp (car (car l)))) | |
| 544 | (setq l (cdr l)) | |
| 545 | (while l | |
| 546 | (setq temp (concat temp "\\|" (car (car l)))) | |
| 547 | (setq l (cdr l))) | |
| 548 | (concat temp "\\)")) | |
| 549 | "Regexp string to match a sequence of Tibetan consonantic components, i.e., | |
| 550 | one base consonant and one or more subjoined consonants. | |
| 551 | The result of matching is to be used for indexing alist when the component | |
| 552 | sequence is converted to the corresponding precomposed glyph. | |
| 553 | This also matches some punctuation characters which need conversion.") | |
| 554 | ||
| 555 | (defvar tibetan-decomposed nil) | |
| 556 | (defvar tibetan-decomposed-temp nil) | |
| 557 | ||
| 558 | ;;; language/tibetan.el ends here |