Mercurial > emacs

comparison lisp/language/ind-util.el @ 49703:664f9896e442

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(indian-dev-base-table): Table fixed. (indian-pnj-base-table): Table contents defined. (indian-gjr-base-table): Likewise. (indian-ori-base-table): Likewise. (indian-bng-base-table): Likewise. (indian-asm-base-table): Likewise. (indian-tlg-base-table): Likewise. (indian-knd-base-table): Likewise. (indian-mlm-base-table): Likewise. (indian-tml-base-table): Likewise. (indian-pnj-itrans-v5-hash, indian-gjr-itrans-v5-hash) (indian-ori-itrans-v5-hash, indian-bng-itrans-v5-hash) (indian-asm-itrans-v5-hash, indian-tlg-itrans-v5-hash) (indian-knd-itrans-v5-hash, indian-mlm-itrans-v5-hash) (indian-tml-itrans-v5-hash): New variables.
author Kenichi Handa <handa@m17n.org>
date Tue, 11 Feb 2003 01:42:02 +0000
parents 47a6a31b9018
children dae46d521201 d7ddb3e565de
comparison
equal deleted inserted replaced
49702:369dbdebd88a 49703:664f9896e442
1 ;;; ind-util.el --- Transliteration and Misc. Tools for Indian Languages -*- coding: iso-2022-7bit; -*- 1 ;;; ind-util.el --- Transliteration and Misc. Tools for Indian Languages -*- coding: iso-2022-7bit; -*-
2 2
3 ;; Copyright (C) 2001 Free Software Foundation, Inc. 3 ;; Copyright (C) 2001 Free Software Foundation, Inc.
4 4
5 ;; Maintainer: KAWABATA, Taichi <batta@beige.ocn.ne.jp> 5 ;; Maintainer: KAWABATA, Taichi <kawabata@m17n.org>
6 ;; Keywords: multilingual, Indian, Devanagari 6 ;; Keywords: multilingual, Indian, Devanagari
7 7
8 ;; This file is part of GNU Emacs. 8 ;; This file is part of GNU Emacs.
9 9
10 ;; GNU Emacs is free software; you can redistribute it and/or modify 10 ;; GNU Emacs is free software; you can redistribute it and/or modify
53 53
54 (defvar indian-dev-base-table 54 (defvar indian-dev-base-table
55 '( 55 '(
56 (;; VOWELS (18) 56 (;; VOWELS (18)
57 (?$,15E(B nil) (?$,15F(B ?$,15~(B) (?$,15G(B ?$,15(B) (?$,15H(B ?$,16 (B) (?$,15I(B ?$,16!(B) (?$,15J(B ?$,16"(B) 57 (?$,15E(B nil) (?$,15F(B ?$,15~(B) (?$,15G(B ?$,15(B) (?$,15H(B ?$,16 (B) (?$,15I(B ?$,16!(B) (?$,15J(B ?$,16"(B)
58 (?$,15K(B ?$,16#(B) (?$,15L(B ?$,16$(B) (?$,15M(B ?$,16%(B) (?$,15N(B ?$,16&(B) (?$,15O(B ?$,16'(B) (?$,15P(B ?$,16((B) 58 (?$,15K(B ?$,16#(B) (?$,15L(B ?$,16B(B) (?$,15M(B ?$,16%(B) (?$,15N(B ?$,16&(B) (?$,15O(B ?$,16'(B) (?$,15P(B ?$,16((B)
59 (?$,15Q(B ?$,16)(B) (?$,15R(B ?$,16*(B) (?$,15S(B ?$,16+(B) (?$,15T(B ?$,16,(B) (?$,16@(B ?$,16B(B) (?$,16A(B ?$,16C(B)) 59 (?$,15Q(B ?$,16)(B) (?$,15R(B ?$,16*(B) (?$,15S(B ?$,16+(B) (?$,15T(B ?$,16,(B) (?$,16@(B ?$,16$(B) (?$,16A(B ?$,16C(B))
60 (;; CONSONANTS (currently 42, including special cases) 60 (;; CONSONANTS (currently 42, including special cases)
61 ?$,15U(B ?$,15V(B ?$,15W(B ?$,15X(B ?$,15Y(B ;; GUTTRULS 61 ?$,15U(B ?$,15V(B ?$,15W(B ?$,15X(B ?$,15Y(B ;; GUTTRULS
62 ?$,15Z(B ?$,15[(B ?$,15\(B ?$,15](B ?$,15^(B ;; PALATALS 62 ?$,15Z(B ?$,15[(B ?$,15\(B ?$,15](B ?$,15^(B ;; PALATALS
63 ?$,15_(B ?$,15`(B ?$,15a(B ?$,15b(B ?$,15c(B ;; CEREBRALS 63 ?$,15_(B ?$,15`(B ?$,15a(B ?$,15b(B ?$,15c(B ;; CEREBRALS
64 ?$,15d(B ?$,15e(B ?$,15f(B ?$,15g(B ?$,15h(B ?$,15i(B ;; DENTALS 64 ?$,15d(B ?$,15e(B ?$,15f(B ?$,15g(B ?$,15h(B ?$,15i(B ;; DENTALS
72 (;; Digits (10) 72 (;; Digits (10)
73 ?$,16F(B ?$,16G(B ?$,16H(B ?$,16I(B ?$,16J(B ?$,16K(B ?$,16L(B ?$,16M(B ?$,16N(B ?$,16O(B) 73 ?$,16F(B ?$,16G(B ?$,16H(B ?$,16I(B ?$,16J(B ?$,16K(B ?$,16L(B ?$,16M(B ?$,16N(B ?$,16O(B)
74 (;; Inscript-extra (4) (#, $, ^, *, ]) 74 (;; Inscript-extra (4) (#, $, ^, *, ])
75 "$,16-5p(B" "$,15p6-(B" "$,15d6-5p(B" "$,15v6-5p(B" "$,15|(B"))) 75 "$,16-5p(B" "$,15p6-(B" "$,15d6-5p(B" "$,15v6-5p(B" "$,15|(B")))
76 76
77 (defvar indian-pnj-base-table nil) 77 ;; Punjabi is also known as Gurmukhi.
78 (defvar indian-ori-base-table nil) 78 (defvar indian-pnj-base-table
79 (defvar indian-bng-base-table nil) 79 '(
80 (defvar indian-asm-base-table nil) 80 (;; VOWELS
81 (defvar indian-tlg-base-table nil) 81 (?$,18%(B nil) (?$,18&(B ?$,18^(B) (?$,18'(B ?$,18_(B) (?$,18((B ?$,18`(B) (?$,18)(B ?$,18a(B) (?$,18*(B ?$,18b(B)
82 (defvar indian-knd-base-table nil) 82 nil nil nil nil (?$,18/(B ?$,18g(B) (?$,180(B ?$,18h(B)
83 (defvar indian-mlm-base-table nil) 83 nil nil (?$,183(B ?$,18k(B) (?$,184(B ?$,18l(B) nil nil)
84 (defvar indian-tml-base-table nil) 84 (;; CONSONANTS
85 ?$,185(B ?$,186(B ?$,187(B ?$,188(B ?$,189(B ;; GUTTRULS
86 ?$,18:(B ?$,18;(B ?$,18<(B ?$,18=(B ?$,18>(B ;; PALATALS
87 ?$,18?(B ?$,18@(B ?$,18A(B ?$,18B(B ?$,18C(B ;; CEREBRALS
88 ?$,18D(B ?$,18E(B ?$,18F(B ?$,18G(B ?$,18H(B nil ;; DENTALS
89 ?$,18J(B ?$,18K(B ?$,18L(B ?$,18M(B ?$,18N(B ;; LABIALS
90 ?$,18O(B ?$,18P(B nil ?$,18R(B ?$,18S(B nil ?$,18U(B ;; SEMIVOWELS
91 ?$,18V(B nil ?$,18X(B ?$,18Y(B ;; SIBILANTS
92 nil ?$,18y(B ?$,18z(B ?$,18{(B ?$,18|(B nil ?$,18~(B nil ;; NUKTAS
93 "$,18<8m8>(B" nil)
94 (;; Misc Symbols (7)
95 nil ?$,18"(B nil nil ?$,18m(B nil nil) ;; ek onkar, etc.
96 (;; Digits
97 ?$,19&(B ?$,19'(B ?$,19((B ?$,19)(B ?$,19*(B ?$,19+(B ?$,19,(B ?$,19-(B ?$,19.(B ?$,19/(B)
98 (;; Inscript-extra (4) (#, $, ^, *, ])
99 "$,18m8P(B" "$,18P8m(B" "$,18D8m8P(B" "$,18V8m8P(B" "$,18\(B")))
100
101 (defvar indian-gjr-base-table
102 '(
103 (;; VOWELS
104 (?$,19E(B nil) (?$,19F(B ?$,19~(B) (?$,19G(B ?$,19(B) (?$,19H(B ?$,1: (B) (?$,19I(B ?$,1:!(B) (?$,19J(B ?$,1:"(B)
105 (?$,19K(B ?$,1:#(B) nil (?$,19M(B ?$,1:%(B) nil (?$,19O(B ?$,1:'(B) (?$,19P(B ?$,1:((B)
106 (?$,19Q(B ?$,1:)(B) nil (?$,19S(B ?$,1:+(B) (?$,19T(B ?$,1:,(B) (?$,1:@(B ?$,1:$(B) nil)
107 (;; CONSONANTS
108 ?$,19U(B ?$,19V(B ?$,19W(B ?$,19X(B ?$,19Y(B ;; GUTTRULS
109 ?$,19Z(B ?$,19[(B ?$,19\(B ?$,19](B ?$,19^(B ;; PALATALS
110 ?$,19_(B ?$,19`(B ?$,19a(B ?$,19b(B ?$,19c(B ;; CEREBRALS
111 ?$,19d(B ?$,19e(B ?$,19f(B ?$,19g(B ?$,19h(B nil ;; DENTALS
112 ?$,19j(B ?$,19k(B ?$,19l(B ?$,19m(B ?$,19n(B ;; LABIALS
113 ?$,19o(B ?$,19p(B nil ?$,19r(B ?$,19s(B nil ?$,19u(B ;; SEMIVOWELS
114 ?$,19v(B ?$,19w(B ?$,19x(B ?$,19y(B ;; SIBILANTS
115 nil nil nil nil nil nil nil nil ;; NUKTAS
116 "$,19\:-9^(B" "$,19U:-9w(B")
117 (;; Misc Symbols (7)
118 ?$,19A(B ?$,19B(B ?$,19C(B ?$,19}(B ?$,1:-(B ?$,1:0(B nil)
119 (;; Digits
120 ?$,1:F(B ?$,1:G(B ?$,1:H(B ?$,1:I(B ?$,1:J(B ?$,1:K(B ?$,1:L(B ?$,1:M(B ?$,1:N(B ?$,1:O(B)
121 (;; Inscript-extra (4) (#, $, ^, *, ])
122 "$,1:-9p(B" "$,19p:-(B" "$,19d:-9p(B" "$,19v:-9p(B" "$,19|(B")))
123
124 (defvar indian-ori-base-table
125 '(
126 (;; VOWELS
127 (?$,1:e(B nil) (?$,1:f(B ?$,1;>(B) (?$,1:g(B ?$,1;?(B) (?$,1:h(B ?$,1;@(B) (?$,1:i(B ?$,1;A(B) (?$,1:j(B ?$,1;B(B)
128 (?$,1:k(B ?$,1;C(B) (?$,1:l(B nil) nil nil (?$,1:o(B ?$,1;G(B) (?$,1:p(B ?$,1;H(B)
129 nil nil (?$,1:s(B ?$,1;K(B) (?$,1:t(B ?$,1;L(B) (?$,1;`(B nil) (?$,1;a(B nil))
130 (;; CONSONANTS
131 ?$,1:u(B ?$,1:v(B ?$,1:w(B ?$,1:x(B ?$,1:y(B ;; GUTTRULS
132 ?$,1:z(B ?$,1:{(B ?$,1:|(B ?$,1:}(B ?$,1:~(B ;; PALATALS
133 ?$,1:(B ?$,1; (B ?$,1;!(B ?$,1;"(B ?$,1;#(B ;; CEREBRALS
134 ?$,1;$(B ?$,1;%(B ?$,1;&(B ?$,1;'(B ?$,1;((B nil ;; DENTALS
135 ?$,1;*(B ?$,1;+(B ?$,1;,(B ?$,1;-(B ?$,1;.(B ;; LABIALS
136 ?$,1;/(B ?$,1;0(B nil ?$,1;2(B ?$,1;3(B nil nil ;; SEMIVOWELS
137 ?$,1;6(B ?$,1;7(B ?$,1;8(B ?$,1;9(B ;; SIBILANTS
138 nil nil nil nil ?$,1;\(B ?$,1;](B nil ?$,1;_(B ;; NUKTAS
139 "$,1:|;M:~(B" "$,1:u;M;7(B")
140 (;; Misc Symbols
141 ?$,1:a(B ?$,1:b(B ?$,1:c(B ?$,1;=(B ?$,1;M(B nil nil)
142 (;; Digits
143 ?$,1;f(B ?$,1;g(B ?$,1;h(B ?$,1;i(B ?$,1;j(B ?$,1;k(B ?$,1;l(B ?$,1;m(B ?$,1;n(B ?$,1;o(B)
144 (;; Inscript-extra (4) (#, $, ^, *, ])
145 "$,1;M;0(B" "$,1;0;M(B" "$,1;$;M;0(B" "$,1;6;M;0(B" "$,1;<(B")))
146
147 (defvar indian-bng-base-table
148 '(
149 (;; VOWELS
150 (?$,16e(B nil) (?$,16f(B ?$,17>(B) (?$,16g(B ?$,17?(B) (?$,16h(B ?$,17@(B) (?$,16i(B ?$,17A(B) (?$,16j(B ?$,17B(B)
151 (?$,16k(B ?$,17C(B) (?$,16l(B ?$,17b(B) nil nil (?$,16o(B ?$,17G(B) (?$,16p(B ?$,17H(B)
152 nil nil (?$,16s(B ?$,17K(B) (?$,16t(B ?$,17L(B) (?$,17`(B ?$,17D(B) (?$,17a(B ?$,17c(B))
153 (;; CONSONANTS
154 ?$,16u(B ?$,16v(B ?$,16w(B ?$,16x(B ?$,16y(B ;; GUTTRULS
155 ?$,16z(B ?$,16{(B ?$,16|(B ?$,16}(B ?$,16~(B ;; PALATALS
156 ?$,16(B ?$,17 (B ?$,17!(B ?$,17"(B ?$,17#(B ;; CEREBRALS
157 ?$,17$(B ?$,17%(B ?$,17&(B ?$,17'(B ?$,17((B nil ;; DENTALS
158 ?$,17*(B ?$,17+(B ?$,17,(B ?$,17-(B ?$,17.(B ;; LABIALS
159 ?$,17/(B ?$,170(B nil ?$,172(B nil nil nil ;; SEMIVOWELS
160 ?$,176(B ?$,177(B ?$,178(B ?$,179(B ;; SIBILANTS
161 nil nil nil nil ?$,17\(B ?$,17](B nil ?$,17_(B ;; NUKTAS
162 "$,16|7M6~(B" "$,16u7M77(B")
163 (;; Misc Symbols
164 ?$,16a(B ?$,16b(B ?$,16c(B nil ?$,17M(B nil nil)
165 (;; Digits
166 ?$,17f(B ?$,17g(B ?$,17h(B ?$,17i(B ?$,17j(B ?$,17k(B ?$,17l(B ?$,17m(B ?$,17n(B ?$,17o(B)
167 (;; Inscript-extra (4) (#, $, ^, *, ])
168 "$,17M70(B" "$,1707M(B" "$,17$7M70(B" "$,1767M70(B" "$,17<(B")))
169
170 (defvar indian-asm-base-table
171 '(
172 (;; VOWELS
173 (?$,16e(B nil) (?$,16f(B ?$,17>(B) (?$,16g(B ?$,17?(B) (?$,16h(B ?$,17@(B) (?$,16i(B ?$,17A(B) (?$,16j(B ?$,17B(B)
174 (?$,16k(B ?$,17C(B) (?$,16l(B ?$,17b(B) nil nil (?$,16o(B ?$,17G(B) (?$,16p(B ?$,17H(B)
175 nil nil (?$,16s(B ?$,17K(B) (?$,16t(B ?$,17L(B) (?$,17`(B ?$,17D(B) (?$,17a(B ?$,17c(B))
176 (;; CONSONANTS
177 ?$,16u(B ?$,16v(B ?$,16w(B ?$,16x(B ?$,16y(B ;; GUTTRULS
178 ?$,16z(B ?$,16{(B ?$,16|(B ?$,16}(B ?$,16~(B ;; PALATALS
179 ?$,16(B ?$,17 (B ?$,17!(B ?$,17"(B ?$,17#(B ;; CEREBRALS
180 ?$,17$(B ?$,17%(B ?$,17&(B ?$,17'(B ?$,17((B nil ;; DENTALS
181 ?$,17*(B ?$,17+(B ?$,17,(B ?$,17-(B ?$,17.(B ;; LABIALS
182 ?$,17/(B ?$,17p(B nil ?$,172(B nil nil ?$,17q(B ;; SEMIVOWELS
183 ?$,176(B ?$,177(B ?$,178(B ?$,179(B ;; SIBILANTS
184 nil nil nil nil ?$,17\(B ?$,17](B nil ?$,17_(B ;; NUKTAS
185 "$,16|7M6~(B" "$,16u7M77(B")
186 (;; Misc Symbols
187 ?$,16a(B ?$,16b(B ?$,16c(B nil ?$,17M(B nil nil)
188 (;; Digits
189 ?$,17f(B ?$,17g(B ?$,17h(B ?$,17i(B ?$,17j(B ?$,17k(B ?$,17l(B ?$,17m(B ?$,17n(B ?$,17o(B)
190 (;; Inscript-extra (4) (#, $, ^, *, ])
191 "$,17M7p(B" "$,17p7M(B" "$,17$7M7p(B" "$,1767M7p(B" "$,17<(B")))
192
193 (defvar indian-tlg-base-table
194 '(
195 (;; VOWELS
196 (?$,1=E(B nil) (?$,1=F(B ?$,1=~(B) (?$,1=G(B ?$,1=(B) (?$,1=H(B ?$,1> (B) (?$,1=I(B ?$,1>!(B) (?$,1=J(B ?$,1>"(B)
197 (?$,1=K(B ?$,1>#(B) (?$,1=L(B nil) nil (?$,1=O(B ?$,1>'(B) (?$,1=N(B ?$,1>&(B) (?$,1=P(B ?$,1>((B)
198 nil (?$,1=S(B ?$,1>+(B) (?$,1=R(B ?$,1>*(B) (?$,1=T(B ?$,1>,(B) (?$,1>@(B ?$,1>$(B) (?$,1>A(B nil))
199 (;; CONSONANTS
200 ?$,1=U(B ?$,1=V(B ?$,1=W(B ?$,1=X(B ?$,1=Y(B ;; GUTTRULS
201 ?$,1=Z(B ?$,1=[(B ?$,1=\(B ?$,1=](B ?$,1=^(B ;; PALATALS
202 ?$,1=_(B ?$,1=`(B ?$,1=a(B ?$,1=b(B ?$,1=c(B ;; CEREBRALS
203 ?$,1=d(B ?$,1=e(B ?$,1=f(B ?$,1=g(B ?$,1=h(B nil ;; DENTALS
204 ?$,1=j(B ?$,1=k(B ?$,1=l(B ?$,1=m(B ?$,1=n(B ;; LABIALS
205 ?$,1=o(B ?$,1=p(B ?$,1=q(B ?$,1=r(B ?$,1=s(B nil ?$,1=u(B ;; SEMIVOWELS
206 ?$,1=v(B ?$,1=w(B ?$,1=x(B ?$,1=y(B ;; SIBILANTS
207 nil nil nil nil nil nil nil nil ;; NUKTAS
208 "$,1=\>-=^(B" "$,1=U>-=w(B")
209 (;; Misc Symbols
210 ?$,1=A(B ?$,1=B(B ?$,1=C(B nil ?$,1>-(B nil nil)
211 (;; Digits
212 ?$,1>F(B ?$,1>G(B ?$,1>H(B ?$,1>I(B ?$,1>J(B ?$,1>K(B ?$,1>L(B ?$,1>M(B ?$,1>N(B ?$,1>O(B)
213 (;; Inscript-extra (4) (#, $, ^, *, ])
214 "$,1>-=p(B" "$,1=p>-(B" "$,1=d>-=p(B" "$,1=v>-=p(B" nil)))
215
216 (defvar indian-knd-base-table
217 '(
218 (;; VOWELS
219 (?$,1>e(B nil) (?$,1>f(B ?$,1?>(B) (?$,1>g(B ?$,1??(B) (?$,1>h(B ?$,1?@(B) (?$,1>i(B ?$,1?A(B) (?$,1>j(B ?$,1?B(B)
220 (?$,1>k(B ?$,1?C(B) (?$,1>l(B nil) nil (?$,1>o(B ?$,1?G(B) (?$,1>n(B ?$,1?F(B) (?$,1>p(B ?$,1?H(B)
221 nil (?$,1>s(B ?$,1?K(B) (?$,1>r(B ?$,1?J(B) (?$,1>t(B ?$,1?L(B) (?$,1?`(B ?$,1?D(B) (?$,1?a(B nil))
222 (;; CONSONANTS
223 ?$,1>u(B ?$,1>v(B ?$,1>w(B ?$,1>x(B ?$,1>y(B ;; GUTTRULS
224 ?$,1>z(B ?$,1>{(B ?$,1>|(B ?$,1>}(B ?$,1>~(B ;; PALATALS
225 ?$,1>(B ?$,1? (B ?$,1?!(B ?$,1?"(B ?$,1?#(B ;; CEREBRALS
226 ?$,1?$(B ?$,1?%(B ?$,1?&(B ?$,1?'(B ?$,1?((B nil ;; DENTALS
227 ?$,1?*(B ?$,1?+(B ?$,1?,(B ?$,1?-(B ?$,1?.(B ;; LABIALS
228 ?$,1?/(B ?$,1?0(B ?$,1?1(B ?$,1?2(B ?$,1?3(B nil ?$,1?5(B ;; SEMIVOWELS
229 ?$,1?6(B ?$,1?7(B ?$,1?8(B ?$,1?9(B ;; SIBILANTS
230 nil nil nil nil nil nil ?$,1?^(B nil ;; NUKTAS
231 "$,1>|?M>~(B" "$,1>u?M?7(B")
232 (;; Misc Symbols
233 nil ?$,1>b(B ?$,1>c(B nil ?$,1?M(B nil nil)
234 (;; Digits
235 ?$,1?f(B ?$,1?g(B ?$,1?h(B ?$,1?i(B ?$,1?j(B ?$,1?k(B ?$,1?l(B ?$,1?m(B ?$,1?n(B ?$,1?o(B)
236 (;; Inscript-extra (4) (#, $, ^, *, ])
237 "$,1?M?0(B" "$,1?0?M(B" "$,1?$?M?0(B" "$,1?6?M?0(B" nil)))
238
239 (defvar indian-mlm-base-table
240 '(
241 (;; VOWELS
242 (?$,1@%(B nil) (?$,1@&(B ?$,1@^(B) (?$,1@'(B ?$,1@_(B) (?$,1@((B ?$,1@`(B) (?$,1@)(B ?$,1@a(B) (?$,1@*(B ?$,1@b(B)
243 (?$,1@+(B ?$,1@c(B) (?$,1@,(B nil) nil (?$,1@/(B ?$,1@g(B) (?$,1@.(B ?$,1@f(B) (?$,1@0(B ?$,1@h(B)
244 nil (?$,1@3(B ?$,1@k(B) (?$,1@2(B ?$,1@j(B) (?$,1@4(B ?$,1@l(B) nil nil)
245 (;; CONSONANTS
246 ?$,1@5(B ?$,1@6(B ?$,1@7(B ?$,1@8(B ?$,1@9(B ;; GUTTRULS
247 ?$,1@:(B ?$,1@;(B ?$,1@<(B ?$,1@=(B ?$,1@>(B ;; PALATALS
248 ?$,1@?(B ?$,1@@(B ?$,1@A(B ?$,1@B(B ?$,1@C(B ;; CEREBRALS
249 ?$,1@D(B ?$,1@E(B ?$,1@F(B ?$,1@G(B ?$,1@H(B nil ;; DENTALS
250 ?$,1@J(B ?$,1@K(B ?$,1@L(B ?$,1@M(B ?$,1@N(B ;; LABIALS
251 ?$,1@O(B ?$,1@P(B ?$,1@Q(B ?$,1@R(B ?$,1@S(B ?$,1@T(B ?$,1@U(B ;; SEMIVOWELS
252 ?$,1@V(B ?$,1@W(B ?$,1@X(B ?$,1@Y(B ;; SIBILANTS
253 nil nil nil nil nil nil nil nil ;; NUKTAS
254 "$,1@<@m@>(B" "$,1@5@m@W(B")
255 (;; Misc Symbols
256 nil ?$,1@"(B ?$,1@#(B nil ?$,1@m(B nil nil)
257 (;; Digits
258 ?$,1A&(B ?$,1A'(B ?$,1A((B ?$,1A)(B ?$,1A*(B ?$,1A+(B ?$,1A,(B ?$,1A-(B ?$,1A.(B ?$,1A/(B)
259 (;; Inscript-extra (4) (#, $, ^, *, ])
260 "$,1@m@P(B" "$,1@P@m(B" "$,1@D@m@P(B" "$,1@V@m@P(B" nil)))
261
262 (defvar indian-tml-base-table
263 '(
264 (;; VOWELS
265 (?$,1<%(B nil) (?$,1<&(B ?$,1<^(B) (?$,1<'(B ?$,1<_(B) (?$,1<((B ?$,1<`(B) (?$,1<)(B ?$,1<a(B) (?$,1<*(B ?$,1<b(B)
266 nil nil nil (?$,1</(B ?$,1<g(B) (?$,1<.(B ?$,1<f(B) (?$,1<0(B ?$,1<h(B)
267 nil (?$,1<3(B ?$,1<k(B) (?$,1<2(B ?$,1<j(B) (?$,1<4(B ?$,1<l(B) nil nil)
268 (;; CONSONANTS
269 ?$,1<5(B nil nil nil ?$,1<9(B ;; GUTTRULS
270 ?$,1<:(B nil ?$,1<<(B nil ?$,1<>(B ;; PALATALS
271 ?$,1<?(B nil nil nil ?$,1<C(B ;; CEREBRALS
272 ?$,1<D(B nil nil nil ?$,1<H(B ?$,1<I(B ;; DENTALS
273 ?$,1<J(B nil nil nil ?$,1<N(B ;; LABIALS
274 ?$,1<O(B ?$,1<P(B ?$,1<Q(B ?$,1<R(B ?$,1<S(B ?$,1<T(B ?$,1<U(B ;; SEMIVOWELS
275 nil ?$,1<W(B ?$,1<X(B ?$,1<Y(B ;; SIBILANTS
276 nil nil nil nil nil nil nil nil ;; NUKTAS
277 "$,1<<<m<>(B" "$,1<5<m<W(B")
278 (;; Misc Symbols
279 nil ?$,1<"(B ?$,1<#(B nil ?$,1<m(B nil nil)
280 (;; Digits
281 nil ?$,1='(B ?$,1=((B ?$,1=)(B ?$,1=*(B ?$,1=+(B ?$,1=,(B ?$,1=-(B ?$,1=.(B ?$,1=/(B)
282 (;; Inscript-extra (4) (#, $, ^, *, ])
283 "$,1<m<P(B" "$,1<P<m(B" "$,1<D<m<P(B" nil nil)))
85 284
86 (defvar indian-base-table-to-language-alist 285 (defvar indian-base-table-to-language-alist
87 '((indian-dev-base-table . "Devanagari") 286 '((indian-dev-base-table . "Devanagari")
88 (indian-pnj-base-table . "Punjabi") 287 (indian-pnj-base-table . "Punjabi")
89 (indian-ori-base-table . "Oriya") 288 (indian-ori-base-table . "Oriya")
291 indian-kyoto-harvard-table)) 490 indian-kyoto-harvard-table))
292 (defvar indian-dev-aiba-hash 491 (defvar indian-dev-aiba-hash
293 (indian-make-hash indian-dev-base-table 492 (indian-make-hash indian-dev-base-table
294 indian-aiba-table)) 493 indian-aiba-table))
295 494
495 (defvar indian-pnj-itrans-v5-hash
496 (indian-make-hash indian-pnj-base-table
497 indian-itrans-v5-table))
498
499 (defvar indian-gjr-itrans-v5-hash
500 (indian-make-hash indian-gjr-base-table
501 indian-itrans-v5-table))
502
503 (defvar indian-ori-itrans-v5-hash
504 (indian-make-hash indian-ori-base-table
505 indian-itrans-v5-table))
506
507 (defvar indian-bng-itrans-v5-hash
508 (indian-make-hash indian-bng-base-table
509 indian-itrans-v5-table))
510
511 (defvar indian-asm-itrans-v5-hash
512 (indian-make-hash indian-asm-base-table
513 indian-itrans-v5-table))
514
515 (defvar indian-tlg-itrans-v5-hash
516 (indian-make-hash indian-tlg-base-table
517 indian-itrans-v5-table))
518
519 (defvar indian-knd-itrans-v5-hash
520 (indian-make-hash indian-knd-base-table
521 indian-itrans-v5-table))
522
523 (defvar indian-mlm-itrans-v5-hash
524 (indian-make-hash indian-mlm-base-table
525 indian-itrans-v5-table))
526
527 (defvar indian-tml-itrans-v5-hash
528 (indian-make-hash indian-tml-base-table
529 indian-itrans-v5-table))
296 ) 530 )
297 531
298 (defmacro indian-translate-region (from to hashtable encode-p) 532 (defmacro indian-translate-region (from to hashtable encode-p)
299 `(save-excursion 533 `(save-excursion
300 (save-restriction 534 (save-restriction