Mercurial > emacs
comparison lisp/language/devan-util.el @ 41554:8c4b8047529d
One more string escape fix.
author | Gerd Moellmann <gerd@gnu.org> |
---|---|
date | Mon, 26 Nov 2001 13:11:51 +0000 |
parents | e440e843e050 |
children | 89445d205fb8 |
comparison
equal
deleted
inserted
replaced
41553:e440e843e050 | 41554:8c4b8047529d |
---|---|
29 ;; This file provides character(Unicode) to glyph(CDAC) conversion and | 29 ;; This file provides character(Unicode) to glyph(CDAC) conversion and |
30 ;; composition of Devanagari script characters. | 30 ;; composition of Devanagari script characters. |
31 | 31 |
32 ;;; Code: | 32 ;;; Code: |
33 | 33 |
34 ;;;###autoload | |
35 | 34 |
36 ;; Devanagari Composable Pattern | 35 ;; Devanagari Composable Pattern |
37 ;; C .. Consonants | 36 ;; C .. Consonants |
38 ;; V .. Vowel | 37 ;; V .. Vowel |
39 ;; H .. Halant | 38 ;; H .. Halant |
154 ;; Problem:: | 153 ;; Problem:: |
155 ;; Can we generalize this methods to other Indian scripts? | 154 ;; Can we generalize this methods to other Indian scripts? |
156 | 155 |
157 (defvar dev-char-glyph | 156 (defvar dev-char-glyph |
158 '(("$,15E(B" . "$,4 K(B") | 157 '(("$,15E(B" . "$,4 K(B") |
159 ("$,15F(B" . "$,4 K\")(B") | 158 ("$,15F(B" . "$,4 K\"(B)") |
160 ("$,15~(B" . "$,4\")(B") | 159 ("$,15~(B" . "$,4\"(B)") |
161 ("$,15G(B" . "$,4 \(B") | 160 ("$,15G(B" . "$,4 \(B") |
162 ("$,15(B" . "$,4\"*(B") | 161 ("$,15(B" . "$,4\"(B*") |
163 ("$,155A(B" . "$,4\"*(B\$,4\"&(B") | 162 ("$,155A(B" . "$,4\"(B*\$,4\"(B&") |
164 ("$,15H(B" . "$,4 \"'(B") | 163 ("$,15H(B" . "$,4 \"'(B") |
165 ("$,15H5A(B" . "$,4 \"'\"&(B") | 164 ("$,15H5A(B" . "$,4 \"'\"(B&") |
166 ("$,16 (B" . "$,4\"2(B") | 165 ("$,16 (B" . "$,4\"(B2") |
167 ("$,16 5A(B" . "$,4\"2\"&(B") | 166 ("$,16 5A(B" . "$,4\"2\"&(B") |
168 ("$,15I(B" . "$,4 ](B") | 167 ("$,15I(B" . "$,4 ](B") |
169 ("$,16!(B" . "$,4\"6(B") | 168 ("$,16!(B" . "$,4\"(B6") |
170 ("$,15J(B" . "$,4 ^\"P(B") | 169 ("$,15J(B" . "$,4 ^\"(BP") |
171 ("$,16"(B" . "$,4\":(B") | 170 ("$,16"(B" . "$,4\"(B:") |
172 ("$,15K(B" . "$,4 `\"Q(B") | 171 ("$,15K(B" . "$,4 `\"(BQ") |
173 ("$,16#(B" . "$,4\">(B") | 172 ("$,16#(B" . "$,4\"(B>") |
174 ;;("$,15L(B" . nil) ; not implemented. | 173 ;;("$,15L(B" . nil) ; not implemented. |
175 ("$,16$(B" . "$,4\"?(B") | 174 ("$,16$(B" . "$,4\"(B?") |
176 ("$,15M(B" . "$,4 b\"L(B") | 175 ("$,15M(B" . "$,4 b\"(BL") |
177 ("$,15M5A(B" . "$,4 b\"$(B") | 176 ("$,15M5A(B" . "$,4 b\"(B$") |
178 ("$,15M5B(B" . "$,4 b\"$(B") | 177 ("$,15M5B(B" . "$,4 b\"(B$") |
179 ("$,16%(B" . "\$,4\"L(B") | 178 ("$,16%(B" . "\$,4\"(BL") |
180 ("$,15N(B" . "$,4 b\"@(B") | 179 ("$,15N(B" . "$,4 b\"(B@") |
181 ("$,15N5A(B" . "$,4 b\"@\"&(B") | 180 ("$,15N5A(B" . "$,4 b\"@\"&(B") |
182 ("$,16&(B" . "\$,4\"@(B") | 181 ("$,16&(B" . "\$,4\"(B@") |
183 ("$,16&5A(B" . "\$,4\"@(B\$,4\"&(B") | 182 ("$,16&5A(B" . "\$,4\"(B@\$,4\"(B&") |
184 ("$,15O(B" . "$,4 b(B") | 183 ("$,15O(B" . "$,4 b(B") |
185 ("$,16'(B" . "\$,4\"D(B") | 184 ("$,16'(B" . "\$,4\"(BD") |
186 ("$,16'5A(B" . "\$,4\"D(B\$,4\"&(B") | 185 ("$,16'5A(B" . "\$,4\"(BD\$,4\"(B&") |
187 ("$,15P(B" . "$,4 b\"D(B") | 186 ("$,15P(B" . "$,4 b\"(BD") |
188 ("$,15P5A(B" . "$,4 b\"D\"&(B") | 187 ("$,15P5A(B" . "$,4 b\"D\"&(B") |
189 ("$,16((B" . "\$,4\"H(B") | 188 ("$,16((B" . "\$,4\"(BH") |
190 ("$,16(5A(B" . "\$,4\"H(B\$,4\"&(B") | 189 ("$,16(5A(B" . "\$,4\"(BH\$,4\"(B&") |
191 ("$,15Q(B" . "$,4 K\")\"L(B") ;; special rule for reodering. | 190 ("$,15Q(B" . "$,4 K\")\"L(B") ;; special rule for reodering. |
192 ("$,15Q5A(B" . "$,4 K\")\"$(B") | 191 ("$,15Q5A(B" . "$,4 K\")\"$(B") |
193 ("$,15Q5B(B" . "$,4 K\")\"$(B") | 192 ("$,15Q5B(B" . "$,4 K\")\"$(B") |
194 ("$,16)(B" . "\$,4\")\"L(B") | 193 ("$,16)(B" . "\$,4\")\"L(B") |
195 ("$,16)5A(B" . "\$,4\")\"$(B") | 194 ("$,16)5A(B" . "\$,4\")\"$(B") |
196 ("$,16)5B(B" . "\$,4\")\"$(B") | 195 ("$,16)5B(B" . "\$,4\")\"$(B") |
197 ("$,15R(B" . "$,4 K\")\"@(B") | 196 ("$,15R(B" . "$,4 K\")\"@(B") |
198 ("$,15R5A(B" . "$,4 K\")\"@\"&(B") | 197 ("$,15R5A(B" . "$,4 K\")\"@\"(B&") |
199 ("$,16*(B" . "\$,4\")\"@(B") | 198 ("$,16*(B" . "\$,4\")\"@(B") |
200 ("$,16*5A(B" . "\$,4\")\"@\"&(B") | 199 ("$,16*5A(B" . "\$,4\")\"@\"(B&") |
201 ("$,15S(B" . "$,4 K\")\"D(B") | 200 ("$,15S(B" . "$,4 K\")\"D(B") |
202 ("$,15S5A(B" . "$,4 K\")\"D\"&(B") | 201 ("$,15S5A(B" . "$,4 K\")\"D\"(B&") |
203 ("$,16+(B" . "\$,4\")\"D(B") | 202 ("$,16+(B" . "\$,4\")\"D(B") |
204 ("$,16+5A(B" . "\$,4\")\"D\"&(B") | 203 ("$,16+5A(B" . "\$,4\")\"D\"(B&") |
205 ("$,15T(B" . "$,4 K\")\"H(B") | 204 ("$,15T(B" . "$,4 K\")\"H(B") |
206 ("$,15T5A(B" . "$,4 K\")\"H\"&(B") | 205 ("$,15T5A(B" . "$,4 K\")\"H\"(B&") |
207 ("$,16,(B" . "\$,4\")\"H(B") | 206 ("$,16,(B" . "\$,4\")\"H(B") |
208 ("$,16,5A(B" . "\$,4\")\"H\"&(B") | 207 ("$,16,5A(B" . "\$,4\")\"H\"(B&") |
209 ("$,16@(B" . "$,4 a\"Q(B") | 208 ("$,16@(B" . "$,4 a\"(BQ") |
210 ;;("$,16B(B" . nil) | 209 ;;("$,16B(B" . nil) |
211 ;;("$,16A(B" . nil) | 210 ;;("$,16A(B" . nil) |
212 ;;("$,16C(B" . nil) | 211 ;;("$,16C(B" . nil) |
213 | 212 |
214 ;; GRUTTALS | 213 ;; GRUTTALS |
215 ("$,15U(B" . "$,4 e\"R(B") | 214 ("$,15U(B" . "$,4 e\"(BR") |
216 ("$,15U6-(B" . "$,4 c(B") | 215 ("$,15U6-(B" . "$,4 c(B") |
217 ("$,15U6-5p(B" . "$,4 g\"R(B") | 216 ("$,15U6-5p(B" . "$,4 g\"(BR") |
218 ("$,15U6-5d(B" . "$,4 h\"R(B") | 217 ("$,15U6-5d(B" . "$,4 h\"(BR") |
219 ("$,15U6-5w(B" . "$,4 i\")(B") | 218 ("$,15U6-5w(B" . "$,4 i\"(B)") |
220 ("$,15U6-5w6-(B" . "$,4 i(B") | 219 ("$,15U6-5w6-(B" . "$,4 i(B") |
221 | 220 |
222 ("$,15V(B" . "$,4 j\")(B") | 221 ("$,15V(B" . "$,4 j\"(B)") |
223 ("$,15V6-(B" . "$,4 j(B") | 222 ("$,15V6-(B" . "$,4 j(B") |
224 ("$,15V6-5p(B" . "$,4 l\")(B") | 223 ("$,15V6-5p(B" . "$,4 l\"(B)") |
225 ("$,15V6-5p6-(B" . "$,4 l(B") | 224 ("$,15V6-5p6-(B" . "$,4 l(B") |
226 | 225 |
227 ("$,15W(B" . "$,4 m\")(B") | 226 ("$,15W(B" . "$,4 m\"(B)") |
228 ("$,15W6-(B" . "$,4 m(B") | 227 ("$,15W6-(B" . "$,4 m(B") |
229 ("$,15W6-5p(B" . "$,4 o\")(B") | 228 ("$,15W6-5p(B" . "$,4 o\"(B)") |
230 ("$,15W6-5p6-(B" . "$,4 o(B") | 229 ("$,15W6-5p6-(B" . "$,4 o(B") |
231 | 230 |
232 ("$,15X(B" . "$,4 p\")(B") | 231 ("$,15X(B" . "$,4 p\"(B)") |
233 ("$,15X6-(B" . "$,4 p(B") | 232 ("$,15X6-(B" . "$,4 p(B") |
234 ("$,15X6-5p(B" . "$,4 q\")(B") | 233 ("$,15X6-5p(B" . "$,4 q\"(B)") |
235 ("$,15X6-5p6-(B" . "$,4 q(B") | 234 ("$,15X6-5p6-(B" . "$,4 q(B") |
236 | 235 |
237 ("$,15Y(B" . "$,4 r\"S(B") | 236 ("$,15Y(B" . "$,4 r\"(BS") |
238 ;; PALATALS | 237 ;; PALATALS |
239 ("$,15Z(B" . "$,4 s\")(B") | 238 ("$,15Z(B" . "$,4 s\"(B)") |
240 ("$,15Z6-(B" . "$,4 s(B") | 239 ("$,15Z6-(B" . "$,4 s(B") |
241 ("$,15Z6-5p(B" . "$,4 t\")(B") | 240 ("$,15Z6-5p(B" . "$,4 t\"(B)") |
242 ("$,15Z6-5p6-(B" . "$,4 t(B") | 241 ("$,15Z6-5p6-(B" . "$,4 t(B") |
243 | 242 |
244 ("$,15[(B" . "$,4 u\"T(B") | 243 ("$,15[(B" . "$,4 u\"(BT") |
245 | 244 |
246 ("$,15\(B" . "$,4 v\")(B") | 245 ("$,15\(B" . "$,4 v\"(B)") |
247 ("$,15\6-(B" . "$,4 v(B") | 246 ("$,15\6-(B" . "$,4 v(B") |
248 ("$,15\6-5p(B" . "$,4 x\")(B") | 247 ("$,15\6-5p(B" . "$,4 x\"(B)") |
249 ("$,15\6-5p6-(B" . "$,4 x(B") | 248 ("$,15\6-5p6-(B" . "$,4 x(B") |
250 ("$,15\6-5^(B" . "$,4 y\")(B") | 249 ("$,15\6-5^(B" . "$,4 y\"(B)") |
251 ("$,15\6-5^6-(B" . "$,4 y(B") | 250 ("$,15\6-5^6-(B" . "$,4 y(B") |
252 | 251 |
253 ("$,15](B" . "$,4 z\")(B") | 252 ("$,15](B" . "$,4 z\"(B)") |
254 ("$,15]6-(B" . "$,4 z(B") | 253 ("$,15]6-(B" . "$,4 z(B") |
255 ("$,15]6-5p(B" . "$,4 {\")(B") | 254 ("$,15]6-5p(B" . "$,4 {\"(B)") |
256 ("$,15]6-5p6-(B" . "$,4 {(B") | 255 ("$,15]6-5p6-(B" . "$,4 {(B") |
257 | 256 |
258 ("$,15^(B" . "$,4 |\")(B") | 257 ("$,15^(B" . "$,4 |\"(B)") |
259 ("$,15^6-(B" . "$,4 |(B") | 258 ("$,15^6-(B" . "$,4 |(B") |
260 ;; CEREBRALS | 259 ;; CEREBRALS |
261 ("$,15_(B" . "$,4 }\"U(B") | 260 ("$,15_(B" . "$,4 }\"(BU") |
262 ("$,15_6-5_(B" . "$,4 ~\"U(B") | 261 ("$,15_6-5_(B" . "$,4 ~\"(BU") |
263 ("$,15_6-5`(B" . "$,4 \"U(B") | 262 ("$,15_6-5`(B" . "$,4 \"(BU") |
264 | 263 |
265 ("$,15`(B" . "$,4! \"V(B") | 264 ("$,15`(B" . "$,4! \"(BV") |
266 ("$,15`6-5`(B" . "$,4!!\"V(B") | 265 ("$,15`6-5`(B" . "$,4!!\"(BV") |
267 | 266 |
268 ("$,15a(B" . "$,4!\"\"W(B") | 267 ("$,15a(B" . "$,4!\"\"W(B") |
269 ("$,15a6-5a(B" . "$,4!$\"W(B") | 268 ("$,15a6-5a(B" . "$,4!$\"(BW") |
270 ("$,15a6-5b(B" . "$,4!%\"W(B") | 269 ("$,15a6-5b(B" . "$,4!%\"(BW") |
271 | 270 |
272 ("$,15b(B" . "$,4!&\"X(B") | 271 ("$,15b(B" . "$,4!&\"(BX") |
273 | 272 |
274 ("$,15c(B" . "$,4!(\")(B") | 273 ("$,15c(B" . "$,4!(\"(B)") |
275 ("$,15c6-(B" . "$,4!((B") | 274 ("$,15c6-(B" . "$,4!((B") |
276 ;; DENTALS | 275 ;; DENTALS |
277 ("$,15d(B" . "$,4!)\")(B") | 276 ("$,15d(B" . "$,4!)\"(B)") |
278 ("$,15d6-(B" . "$,4!)(B") | 277 ("$,15d6-(B" . "$,4!)(B") |
279 ("$,15d6-5p(B" . "$,4!*\")(B") | 278 ("$,15d6-5p(B" . "$,4!*\"(B)") |
280 ("$,15d6-5p6-(B" . "$,4!*(B") | 279 ("$,15d6-5p6-(B" . "$,4!*(B") |
281 ("$,15d6-5d(B" . "$,4!+\")(B") | 280 ("$,15d6-5d(B" . "$,4!+\"(B)") |
282 ("$,15d6-5d6-(B" . "$,4!+(B") | 281 ("$,15d6-5d6-(B" . "$,4!+(B") |
283 | 282 |
284 ("$,15e(B" . "$,4!,\")(B") | 283 ("$,15e(B" . "$,4!,\"(B)") |
285 ("$,15e6-(B" . "$,4!,(B") | 284 ("$,15e6-(B" . "$,4!,(B") |
286 ("$,15e6-5p(B" . "$,4!-\")(B") | 285 ("$,15e6-5p(B" . "$,4!-\"(B)") |
287 ("$,15e6-5p6-(B" . "$,4!-(B") | 286 ("$,15e6-5p6-(B" . "$,4!-(B") |
288 | 287 |
289 ("$,15f(B" . "$,4!.\"Y(B") | 288 ("$,15f(B" . "$,4!.\"(BY") |
290 ("$,15f6#(B" . "$,4!/\"Y(B") | 289 ("$,15f6#(B" . "$,4!/\"(BY") |
291 ("$,15f6-5p(B" . "$,4!0\"Y(B") | 290 ("$,15f6-5p(B" . "$,4!0\"(BY") |
292 ("$,15f6-5f(B" . "$,4!1\"Y(B") | 291 ("$,15f6-5f(B" . "$,4!1\"(BY") |
293 ("$,15f6-5g(B" . "$,4!2\"Y(B") | 292 ("$,15f6-5g(B" . "$,4!2\"(BY") |
294 ("$,15f6-5n(B" . "$,4!3(B") | 293 ("$,15f6-5n(B" . "$,4!3(B") |
295 ("$,15f6-5o(B" . "$,4!4(B") | 294 ("$,15f6-5o(B" . "$,4!4(B") |
296 ("$,15f6-5u(B" . "$,4!5\"Y(B") | 295 ("$,15f6-5u(B" . "$,4!5\"(BY") |
297 | 296 |
298 ("$,15g(B" . "$,4!6\")(B") | 297 ("$,15g(B" . "$,4!6\"(B)") |
299 ("$,15g6-(B" . "$,4!6(B") | 298 ("$,15g6-(B" . "$,4!6(B") |
300 ("$,15g6-5p(B" . "$,4!7\")(B") | 299 ("$,15g6-5p(B" . "$,4!7\"(B)") |
301 ("$,15g6-5p6-(B" . "$,4!7(B") | 300 ("$,15g6-5p6-(B" . "$,4!7(B") |
302 | 301 |
303 ("$,15h(B" . "$,4!8\")(B") | 302 ("$,15h(B" . "$,4!8\"(B)") |
304 ("$,15h6-(B" . "$,4!8(B") | 303 ("$,15h6-(B" . "$,4!8(B") |
305 ("$,15h6-5p(B" . "$,4!9\")(B") | 304 ("$,15h6-5p(B" . "$,4!9\"(B)") |
306 ("$,15h6-5p6-(B" . "$,4!9\")(B") | 305 ("$,15h6-5p6-(B" . "$,4!9\"(B)") |
307 ("$,15h6-5h(B" . "$,4!:\")(B") | 306 ("$,15h6-5h(B" . "$,4!:\"(B)") |
308 ("$,15h6-5h6-(B" . "$,4!:(B") | 307 ("$,15h6-5h6-(B" . "$,4!:(B") |
309 | 308 |
310 ("$,15i(B" . "$,4!8\"#\")(B") | 309 ("$,15i(B" . "$,4!8\"#\")(B") |
311 ;; LABIALS | 310 ;; LABIALS |
312 ("$,15j(B" . "$,4!;\")(B") | 311 ("$,15j(B" . "$,4!;\"(B)") |
313 ("$,15j6-(B" . "$,4!;(B") | 312 ("$,15j6-(B" . "$,4!;(B") |
314 ("$,15j6-5p(B" . "$,4!<\")(B") | 313 ("$,15j6-5p(B" . "$,4!<\"(B)") |
315 ("$,15j6-5p6-(B" . "$,4!<(B") | 314 ("$,15j6-5p6-(B" . "$,4!<(B") |
316 | 315 |
317 ("$,15k(B" . "$,4!a\"[(B") | 316 ("$,15k(B" . "$,4!a\"(B[") |
318 ("$,15k6-(B" . "$,4!=(B") | 317 ("$,15k6-(B" . "$,4!=(B") |
319 ("$,15k6-5p(B" . "$,4!c\"[(B") | 318 ("$,15k6-5p(B" . "$,4!c\"(B[") |
320 | 319 |
321 ("$,15l(B" . "$,4!d\")(B") | 320 ("$,15l(B" . "$,4!d\"(B)") |
322 ("$,15l6-(B" . "$,4!d(B") | 321 ("$,15l6-(B" . "$,4!d(B") |
323 ("$,15l6-5p(B" . "$,4!e\")(B") | 322 ("$,15l6-5p(B" . "$,4!e\"(B)") |
324 ("$,15l6-5p6-(B" . "$,4!e(B") | 323 ("$,15l6-5p6-(B" . "$,4!e(B") |
325 | 324 |
326 ("$,15m(B" . "$,4!f\")(B") | 325 ("$,15m(B" . "$,4!f\"(B)") |
327 ("$,15m6-(B" . "$,4!f(B") | 326 ("$,15m6-(B" . "$,4!f(B") |
328 ("$,15m6-5p(B" . "$,4!g\")(B") | 327 ("$,15m6-5p(B" . "$,4!g\"(B)") |
329 ("$,15m6-5p6-(B" . "$,4!g(B") | 328 ("$,15m6-5p6-(B" . "$,4!g(B") |
330 | 329 |
331 ("$,15n(B" . "$,4!h\")(B") | 330 ("$,15n(B" . "$,4!h\"(B)") |
332 ("$,15n6-(B" . "$,4!h(B") | 331 ("$,15n6-(B" . "$,4!h(B") |
333 ("$,15n6-5p(B" . "$,4!i\")(B") | 332 ("$,15n6-5p(B" . "$,4!i\"(B)") |
334 ("$,15n6-5p6-(B" . "$,4!i(B") | 333 ("$,15n6-5p6-(B" . "$,4!i(B") |
335 ;; SEMIVOWELS | 334 ;; SEMIVOWELS |
336 ("$,15o(B" . "$,4!j\")(B") | 335 ("$,15o(B" . "$,4!j\"(B)") |
337 ("$,15o6-(B" . "$,4!j(B") | 336 ("$,15o6-(B" . "$,4!j(B") |
338 ("$,15o6-5p(B" . "$,4!k\")(B") | 337 ("$,15o6-5p(B" . "$,4!k\"(B)") |
339 ("$,15o6-5p6-(B" . "$,4!k(B") | 338 ("$,15o6-5p6-(B" . "$,4!k(B") |
340 ("$,16-5o(B" . "$,4!l(B") ;; when every ohter lig. fails. | 339 ("$,16-5o(B" . "$,4!l(B") ;; when every ohter lig. fails. |
341 | 340 |
342 ("$,15p(B" . "$,4!n\"W(B") | 341 ("$,15p(B" . "$,4!n\"(BW") |
343 ;; ("$,15p6-(B" . "\$,4"'(B") ;; special case. only the topmost pos. | 342 ;; ("$,15p6-(B" . "\$,4"'(B") ;; special case. only the topmost pos. |
344 ("$,15q(B" . "$,4!n\"#\"W(B") | 343 ("$,15q(B" . "$,4!n\"#\"W(B") |
345 ("$,15q6-(B" . "$,4!m(B") ;; IS 13194 speical rule. | 344 ("$,15q6-(B" . "$,4!m(B") ;; IS 13194 speical rule. |
346 ("$,15p6!(B" . "$,4!o\"[(B") | 345 ("$,15p6!(B" . "$,4!o\"(B[") |
347 ("$,15p6"(B" . "$,4!p\"\(B") | 346 ("$,15p6"(B" . "$,4!p\"(B\\") |
348 | 347 |
349 ("$,15r(B" . "$,4!q\")(B") | 348 ("$,15r(B" . "$,4!q\"(B)") |
350 ("$,15r6-(B" . "$,4!q(B") | 349 ("$,15r6-(B" . "$,4!q(B") |
351 ("$,15s(B" . "$,4!s(B") | 350 ("$,15s(B" . "$,4!s(B") |
352 ("$,15s6-(B" . "$,4!r(B") | 351 ("$,15s6-(B" . "$,4!r(B") |
353 ("$,15t(B" . "$,4!s\"#(B") | 352 ("$,15t(B" . "$,4!s\"(B#") |
354 ("$,15t6-(B" . "$,4!r\"#(B") | 353 ("$,15t6-(B" . "$,4!r\"(B#") |
355 | 354 |
356 ("$,15u(B" . "$,4!t\")(B") | 355 ("$,15u(B" . "$,4!t\"(B)") |
357 ("$,15u6-(B" . "$,4!t(B") | 356 ("$,15u6-(B" . "$,4!t(B") |
358 ("$,15u6-5p(B" . "$,4!u\")(B") | 357 ("$,15u6-5p(B" . "$,4!u\"(B)") |
359 ("$,15u6-5p6-(B" . "$,4!u(B") | 358 ("$,15u6-5p6-(B" . "$,4!u(B") |
360 ;; SIBILANTS | 359 ;; SIBILANTS |
361 ("$,15v(B" . "$,4!v\")(B") | 360 ("$,15v(B" . "$,4!v\"(B)") |
362 ("$,15v6-(B" . "$,4!v(B") | 361 ("$,15v6-(B" . "$,4!v(B") |
363 ("$,15v6-5u(B" . "$,4!w\")(B") | 362 ("$,15v6-5u(B" . "$,4!w\"(B)") |
364 ("$,15v6-5u6-(B" . "$,4!w(B") | 363 ("$,15v6-5u6-(B" . "$,4!w(B") |
365 ("$,15v6-5p(B" . "$,4!x\")(B") | 364 ("$,15v6-5p(B" . "$,4!x\"(B)") |
366 ("$,15v6-5p6-(B" . "$,4!x(B") | 365 ("$,15v6-5p6-(B" . "$,4!x(B") |
367 | 366 |
368 ("$,15w(B" . "$,4!y\")(B") | 367 ("$,15w(B" . "$,4!y\"(B)") |
369 ("$,15w6-(B" . "$,4!y(B") | 368 ("$,15w6-(B" . "$,4!y(B") |
370 ("$,15x(B" . "$,4!z\")(B") | 369 ("$,15x(B" . "$,4!z\"(B)") |
371 ("$,15x6-(B" . "$,4!z(B") | 370 ("$,15x6-(B" . "$,4!z(B") |
372 ("$,15x6-5p(B" . "$,4!{\")(B") | 371 ("$,15x6-5p(B" . "$,4!{\"(B)") |
373 ("$,15x6-5p6-(B" . "$,4!{(B") | 372 ("$,15x6-5p6-(B" . "$,4!{(B") |
374 | 373 |
375 ("$,15y(B" . "$,4!}(B") | 374 ("$,15y(B" . "$,4!}(B") |
376 ("$,15y6-(B" . "$,4!|(B") | 375 ("$,15y6-(B" . "$,4!|(B") |
377 ("$,15y6#(B" . "$,4!~(B") | 376 ("$,15y6#(B" . "$,4!~(B") |
378 ("$,15y6-5p(B" . "$,4!(B") | 377 ("$,15y6-5p(B" . "$,4!(B") |
379 ("$,15y6-5n(B" . "$,4\" (B") | 378 ("$,15y6-5n(B" . "$,4\"(B ") |
380 ("$,15y6-5o(B" . "$,4\"!(B") | 379 ("$,15y6-5o(B" . "$,4\"(B!") |
381 ;; NUKTAS | 380 ;; NUKTAS |
382 ("$,168(B" . "$,4 f\"R\"S(B") | 381 ("$,168(B" . "$,4 f\"R\"S(B") |
383 ("$,1686-(B" . "$,4 d(B") | 382 ("$,1686-(B" . "$,4 d(B") |
384 ("$,169(B" . "$,4 k\")(B") | 383 ("$,169(B" . "$,4 k\"(B)") |
385 ("$,1696-(B" . "$,4 k(B") | 384 ("$,1696-(B" . "$,4 k(B") |
386 ("$,16:(B" . "$,4 n\")(B") | 385 ("$,16:(B" . "$,4 n\"(B)") |
387 ("$,16:6-(B" . "$,4 n(B") | 386 ("$,16:6-(B" . "$,4 n(B") |
388 ("$,16;(B" . "$,4 w\")(B") | 387 ("$,16;(B" . "$,4 w\"(B)") |
389 ("$,16;6-(B" . "$,4 w(B") | 388 ("$,16;6-(B" . "$,4 w(B") |
390 ("$,16<(B" . "$,4!#\"W(B") | 389 ("$,16<(B" . "$,4!#\"(BW") |
391 ("$,16=(B" . "$,4!'\"X(B") | 390 ("$,16=(B" . "$,4!'\"(BX") |
392 ("$,16>(B" . "$,4!b\"[(B") | 391 ("$,16>(B" . "$,4!b\"(B[") |
393 ("$,16>6-(B" . "$,4!>(B") | 392 ("$,16>6-(B" . "$,4!>(B") |
394 ("$,16?(B" . "$,4!j\"#\")(B") | 393 ("$,16?(B" . "$,4!j\"#\")(B") |
395 ;; misc modifiers. | 394 ;; misc modifiers. |
396 ("$,15A(B" . "\$,4\"$(B") | 395 ("$,15A(B" . "\$,4\"(B$") |
397 ("$,15B(B" . "\$,4\"&(B") | 396 ("$,15B(B" . "\$,4\"(B&") |
398 ("$,15C(B" . "$,4 F(B") | 397 ("$,15C(B" . "$,4 F(B") |
399 ("$,15|(B" . "$,4\"#(B") | 398 ("$,15|(B" . "$,4\"(B#") |
400 ("$,15}(B" . "$,4 E(B") | 399 ("$,15}(B" . "$,4 E(B") |
401 ("$,16-(B" . "$,4\"\"(B") | 400 ("$,16-(B" . "$,4\"\"(B") |
402 ("$,16-5p(B" . "$,4\"%(B") ;; following "r" | 401 ("$,16-5p(B" . "$,4\"(B%") ;; following "r" |
403 ;; ("$,160(B" . "$,4 D(B") | 402 ;; ("$,160(B" . "$,4 D(B") |
404 ;; ("$,16D(B" . "$,4 J(B") | 403 ;; ("$,16D(B" . "$,4 J(B") |
405 ;; ("$,16F(B" . "") | 404 ;; ("$,16F(B" . "") |
406 ;; ("$,16G(B" . "") | 405 ;; ("$,16G(B" . "") |
407 ;; ("$,16H(B" . "") | 406 ;; ("$,16H(B" . "") |
429 ;; glyph-to-glyph conversion table. | 428 ;; glyph-to-glyph conversion table. |
430 ;; it is supposed that glyphs are ordered in | 429 ;; it is supposed that glyphs are ordered in |
431 ;; [consonant/nukta] - [matra/halant] - [preceding-r] - [anuswar]. | 430 ;; [consonant/nukta] - [matra/halant] - [preceding-r] - [anuswar]. |
432 | 431 |
433 (defvar dev-glyph-glyph | 432 (defvar dev-glyph-glyph |
434 '(("\$,4\"'(B\$,4\"&(B" . "\$,4\"((B") | 433 '(("\$,4\"(B'\$,4\"(B&" . "\$,4\"(B(") |
435 ("\$,4\"'(B\$,4\"$(B" . "\$,4\"((B") | 434 ("\$,4\"(B'\$,4\"(B$" . "\$,4\"(B(") |
436 ("$,4\"*(B\$,4\"&(B" . "$,4\"+(B") | 435 ("$,4\"(B*\$,4\"(B&" . "$,4\"(B+") |
437 ("$,4\"*(B\$,4\"'(B" . "$,4\",(B") | 436 ("$,4\"(B*\$,4\"(B'" . "$,4\"(B,") |
438 ("$,4\"*(B\$,4\"'(B\$,4\"&(B" . "$,4\"-(B") | 437 ("$,4\"(B*\$,4\"(B'\$,4\"(B&" . "$,4\"(B-") |
439 ("$,4\"2(B\$,4\"&(B" . "$,4\"3(B") | 438 ("$,4\"(B2\$,4\"(B&" . "$,4\"(B3") |
440 ("$,4\"2(B\$,4\"'(B" . "$,4\"4(B") | 439 ("$,4\"(B2\$,4\"(B'" . "$,4\"(B4") |
441 ("$,4\"2(B\$,4\"'(B\$,4\"&(B" . "$,4\"5(B") | 440 ("$,4\"(B2\$,4\"(B'\$,4\"(B&" . "$,4\"(B5") |
442 ("$,4\"#(B\$,4\"6(B" . "$,4\"7(B") | 441 ("$,4\"(B#\$,4\"(B6" . "$,4\"(B7") |
443 ("$,4\"%(B\$,4\"6(B" . "$,4\"8(B") | 442 ("$,4\"(B%\$,4\"(B6" . "$,4\"(B8") |
444 ;;("$,4\"6(B" . "$,4\"9(B") | 443 ;;("$,4\"(B6" . "$,4\"(B9") |
445 ("$,4\"#(B\$,4\":(B" . "$,4\";(B") | 444 ("$,4\"(B#\$,4\"(B:" . "$,4\"(B;") |
446 ("$,4\"%(B\$,4\":(B" . "$,4\"<(B") | 445 ("$,4\"(B%\$,4\"(B:" . "$,4\"(B<") |
447 ;;("$,4\":(B" . "$,4\"=(B") | 446 ;;("$,4\"(B:" . "$,4\"(B=") |
448 ("\$,4\"@(B\$,4\"&(B" . "\$,4\"A(B") | 447 ("\$,4\"(B@\$,4\"(B&" . "\$,4\"(BA") |
449 ("\$,4\"@(B\$,4\"'(B" . "\$,4\"B(B") | 448 ("\$,4\"(B@\$,4\"(B'" . "\$,4\"(BB") |
450 ("\$,4\"@(B\$,4\"'(B\$,4\"&(B" . "\$,4\"C(B") | 449 ("\$,4\"(B@\$,4\"(B'\$,4\"(B&" . "\$,4\"(BC") |
451 ("\$,4\"D(B\$,4\"&(B" . "\$,4\"E(B") | 450 ("\$,4\"(BD\$,4\"(B&" . "\$,4\"(BE") |
452 ("\$,4\"D(B\$,4\"'(B" . "\$,4\"F(B") | 451 ("\$,4\"(BD\$,4\"(B'" . "\$,4\"(BF") |
453 ("\$,4\"D(B\$,4\"'(B\$,4\"&(B" . "\$,4\"G(B") | 452 ("\$,4\"(BD\$,4\"(B'\$,4\"(B&" . "\$,4\"(BG") |
454 ("\$,4\"H(B\$,4\"&(B" . "\$,4\"I(B") | 453 ("\$,4\"(BH\$,4\"(B&" . "\$,4\"(BI") |
455 ("\$,4\"H(B\$,4\"'(B" . "\$,4\"J(B") | 454 ("\$,4\"(BH\$,4\"(B'" . "\$,4\"(BJ") |
456 ("\$,4\"H(B\$,4\"'(B\$,4\"&(B" . "\$,4\"K(B") | 455 ("\$,4\"(BH\$,4\"(B'\$,4\"(B&" . "\$,4\"(BK") |
457 ("\$,4\"L(B\$,4\"&(B" . "\$,4\"M(B") | 456 ("\$,4\"(BL\$,4\"(B&" . "\$,4\"(BM") |
458 ("\$,4\"L(B\$,4\"'(B" . "\$,4\"N(B") | 457 ("\$,4\"(BL\$,4\"(B'" . "\$,4\"(BN") |
459 ("\$,4\"L(B\$,4\"'(B\$,4\"&(B" . "\$,4\"O(B") | 458 ("\$,4\"(BL\$,4\"(B'\$,4\"(B&" . "\$,4\"(BO") |
460 )) | 459 )) |
461 (defvar dev-glyph-glyph-hash | 460 (defvar dev-glyph-glyph-hash |
462 (let* ((hash (makehash 'equal))) | 461 (let* ((hash (makehash 'equal))) |
463 (mapc (function (lambda (x) (puthash (car x) (cdr x) hash))) | 462 (mapc (function (lambda (x) (puthash (car x) (cdr x) hash))) |
464 dev-glyph-glyph) | 463 dev-glyph-glyph) |
467 (regexp-of-hashtbl-keys dev-glyph-glyph-hash)) | 466 (regexp-of-hashtbl-keys dev-glyph-glyph-hash)) |
468 | 467 |
469 | 468 |
470 ;; yet another glyph-to-glyph conversions. | 469 ;; yet another glyph-to-glyph conversions. |
471 (defvar dev-glyph-glyph-2 | 470 (defvar dev-glyph-glyph-2 |
472 '(("$,4\"*(B" . "$,4\".(B") | 471 '(("$,4\"(B*" . "$,4\"(B.") |
473 ("$,4\"+(B" . "$,4\"/(B") | 472 ("$,4\"(B+" . "$,4\"(B/") |
474 ("$,4\",(B" . "$,4\"0(B") | 473 ("$,4\"(B," . "$,4\"(B0") |
475 ("$,4\"-(B" . "$,4\"1(B"))) | 474 ("$,4\"(B-" . "$,4\"(B1"))) |
476 (defvar dev-glyph-glyph-2-hash | 475 (defvar dev-glyph-glyph-2-hash |
477 (let* ((hash (makehash 'equal))) | 476 (let* ((hash (makehash 'equal))) |
478 (mapc (function (lambda (x) (puthash (car x) (cdr x) hash))) | 477 (mapc (function (lambda (x) (puthash (car x) (cdr x) hash))) |
479 dev-glyph-glyph-2) | 478 dev-glyph-glyph-2) |
480 hash)) | 479 hash)) |
585 (setq cons-num (1+ cons-num)))) | 584 (setq cons-num (1+ cons-num)))) |
586 ;; preceding-r must be attached before the anuswar if exists. | 585 ;; preceding-r must be attached before the anuswar if exists. |
587 (if preceding-r | 586 (if preceding-r |
588 (if last-modifier | 587 (if last-modifier |
589 (setq glyph-str (concat (substring glyph-str 0 -1) | 588 (setq glyph-str (concat (substring glyph-str 0 -1) |
590 "$,4\"'(B" (substring glyph-str -1))) | 589 "$,4\"(B'" (substring glyph-str -1))) |
591 (setq glyph-str (concat glyph-str "$,4\"'(B")))) | 590 (setq glyph-str (concat glyph-str "$,4\"(B'")))) |
592 (if last-halant (setq glyph-str (concat glyph-str "$,4\"\"(B"))) | 591 (if last-halant (setq glyph-str (concat glyph-str "$,4\"\"(B"))) |
593 ;;; *** glyph-to-glyph conversion *** | 592 ;;; *** glyph-to-glyph conversion *** |
594 (when (string-match dev-glyph-glyph-regexp glyph-str) | 593 (when (string-match dev-glyph-glyph-regexp glyph-str) |
595 (setq glyph-str | 594 (setq glyph-str |
596 (replace-match (gethash (match-string 0 glyph-str) | 595 (replace-match (gethash (match-string 0 glyph-str) |