Mercurial > emacs
annotate lisp/language/ind-util.el @ 89573:6b5d42f51038
(x_get_font_repertory): Handle the case that the
encoding of font is other than Unicode.
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Mon, 06 Oct 2003 11:23:25 +0000 |
parents | 2f877ed80fa6 |
children | 68c22ea6027c |
rev | line source |
---|---|
41470 | 1 ;;; ind-util.el --- Transliteration and Misc. Tools for Indian Languages -*- coding: iso-2022-7bit; -*- |
2 | |
51078
39435a35a003
(indian-regexp-of-hashtbl-keys): Don't sort the argument to regexp-opt.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50528
diff
changeset
|
3 ;; Copyright (C) 2001, 2003 Free Software Foundation, Inc. |
41470 | 4 |
49703
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
5 ;; Maintainer: KAWABATA, Taichi <kawabata@m17n.org> |
41470 | 6 ;; Keywords: multilingual, Indian, Devanagari |
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 ;;; Commentary: | |
26 | |
27 ;; This file provides conversion between UCS and various | |
28 ;; transliteration schemes, such as ITRANS, kyoto-harvard and aiba | |
29 ;; methods. It also provides conversion between IS 13194 and UCS. | |
30 ;; Finally, this program provides the compatibility support with | |
31 ;; old implementation of Devanagari script. | |
32 | |
33 ;;; Code: | |
34 | |
35 ;;; Transliteration | |
36 | |
37 ;; The followings provide the various transliteration schemes (such as | |
38 ;; ITRANS, kyoto-harvard, and Aiba) of Indian scripts. They are also | |
39 ;; used in quail/indian.el for typing Indian script in Emacs. | |
40 | |
41 (eval-and-compile | |
42 | |
42060
f3b460667d31
(range): Function deleted.
Richard M. Stallman <rms@gnu.org>
parents:
42056
diff
changeset
|
43 (defun indian-regexp-of-hashtbl-keys (hashtbl) |
41470 | 44 "Returns the regular expression of hashtable keys." |
51078
39435a35a003
(indian-regexp-of-hashtbl-keys): Don't sort the argument to regexp-opt.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50528
diff
changeset
|
45 (let (keys) |
39435a35a003
(indian-regexp-of-hashtbl-keys): Don't sort the argument to regexp-opt.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50528
diff
changeset
|
46 (maphash (lambda (key val) (push key keys)) hashtbl) |
39435a35a003
(indian-regexp-of-hashtbl-keys): Don't sort the argument to regexp-opt.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50528
diff
changeset
|
47 (regexp-opt keys))) |
41470 | 48 |
49 (defvar indian-dev-base-table | |
50 '( | |
51 (;; VOWELS (18) | |
52 (?$,15E(B nil) (?$,15F(B ?$,15~(B) (?$,15G(B ?$,15(B) (?$,15H(B ?$,16 (B) (?$,15I(B ?$,16!(B) (?$,15J(B ?$,16"(B) | |
49703
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
53 (?$,15K(B ?$,16#(B) (?$,15L(B ?$,16B(B) (?$,15M(B ?$,16%(B) (?$,15N(B ?$,16&(B) (?$,15O(B ?$,16'(B) (?$,15P(B ?$,16((B) |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
54 (?$,15Q(B ?$,16)(B) (?$,15R(B ?$,16*(B) (?$,15S(B ?$,16+(B) (?$,15T(B ?$,16,(B) (?$,16@(B ?$,16$(B) (?$,16A(B ?$,16C(B)) |
41470 | 55 (;; CONSONANTS (currently 42, including special cases) |
56 ?$,15U(B ?$,15V(B ?$,15W(B ?$,15X(B ?$,15Y(B ;; GUTTRULS | |
89094 | 57 ?$,15Z(B ?$,15[(B ?$,15\(B ?$,15](B ?$,15^(B ;; PALATALS |
58 ?$,15_(B ?$,15`(B ?$,15a(B ?$,15b(B ?$,15c(B ;; CEREBRALS | |
59 ?$,15d(B ?$,15e(B ?$,15f(B ?$,15g(B ?$,15h(B ?$,15i(B ;; DENTALS | |
60 ?$,15j(B ?$,15k(B ?$,15l(B ?$,15m(B ?$,15n(B ;; LABIALS | |
41470 | 61 ?$,15o(B ?$,15p(B ?$,15q(B ?$,15r(B ?$,15s(B ?$,15t(B ?$,15u(B ;; SEMIVOWELS |
89094 | 62 ?$,15v(B ?$,15w(B ?$,15x(B ?$,15y(B ;; SIBILANTS |
63 ?$,168(B ?$,169(B ?$,16:(B ?$,16;(B ?$,16<(B ?$,16=(B ?$,16>(B ?$,16?(B ;; NUKTAS | |
41470 | 64 "$,15\6-5^(B" "$,15U6-5w(B") |
89094 | 65 (;; Misc Symbols (7) |
41470 | 66 ?$,15A(B ?$,15B(B ?$,15C(B ?$,15}(B ?$,16-(B ?$,160(B ?$,16D(B) |
67 (;; Digits (10) | |
68 ?$,16F(B ?$,16G(B ?$,16H(B ?$,16I(B ?$,16J(B ?$,16K(B ?$,16L(B ?$,16M(B ?$,16N(B ?$,16O(B) | |
69 (;; Inscript-extra (4) (#, $, ^, *, ]) | |
70 "$,16-5p(B" "$,15p6-(B" "$,15d6-5p(B" "$,15v6-5p(B" "$,15|(B"))) | |
71 | |
49703
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
72 ;; Punjabi is also known as Gurmukhi. |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
73 (defvar indian-pnj-base-table |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
74 '( |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
75 (;; VOWELS |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
76 (?$,18%(B nil) (?$,18&(B ?$,18^(B) (?$,18'(B ?$,18_(B) (?$,18((B ?$,18`(B) (?$,18)(B ?$,18a(B) (?$,18*(B ?$,18b(B) |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
77 nil nil nil nil (?$,18/(B ?$,18g(B) (?$,180(B ?$,18h(B) |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
78 nil nil (?$,183(B ?$,18k(B) (?$,184(B ?$,18l(B) nil nil) |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
79 (;; CONSONANTS |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
80 ?$,185(B ?$,186(B ?$,187(B ?$,188(B ?$,189(B ;; GUTTRULS |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
81 ?$,18:(B ?$,18;(B ?$,18<(B ?$,18=(B ?$,18>(B ;; PALATALS |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
82 ?$,18?(B ?$,18@(B ?$,18A(B ?$,18B(B ?$,18C(B ;; CEREBRALS |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
83 ?$,18D(B ?$,18E(B ?$,18F(B ?$,18G(B ?$,18H(B nil ;; DENTALS |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
84 ?$,18J(B ?$,18K(B ?$,18L(B ?$,18M(B ?$,18N(B ;; LABIALS |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
85 ?$,18O(B ?$,18P(B nil ?$,18R(B ?$,18S(B nil ?$,18U(B ;; SEMIVOWELS |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
86 ?$,18V(B nil ?$,18X(B ?$,18Y(B ;; SIBILANTS |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
87 nil ?$,18y(B ?$,18z(B ?$,18{(B ?$,18|(B nil ?$,18~(B nil ;; NUKTAS |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
88 "$,18<8m8>(B" nil) |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
89 (;; Misc Symbols (7) |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
90 nil ?$,18"(B nil nil ?$,18m(B nil nil) ;; ek onkar, etc. |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
91 (;; Digits |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
92 ?$,19&(B ?$,19'(B ?$,19((B ?$,19)(B ?$,19*(B ?$,19+(B ?$,19,(B ?$,19-(B ?$,19.(B ?$,19/(B) |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
93 (;; Inscript-extra (4) (#, $, ^, *, ]) |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
94 "$,18m8P(B" "$,18P8m(B" "$,18D8m8P(B" "$,18V8m8P(B" "$,18\(B"))) |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
95 |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
96 (defvar indian-gjr-base-table |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
97 '( |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
98 (;; VOWELS |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
99 (?$,19E(B nil) (?$,19F(B ?$,19~(B) (?$,19G(B ?$,19(B) (?$,19H(B ?$,1: (B) (?$,19I(B ?$,1:!(B) (?$,19J(B ?$,1:"(B) |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
100 (?$,19K(B ?$,1:#(B) nil (?$,19M(B ?$,1:%(B) nil (?$,19O(B ?$,1:'(B) (?$,19P(B ?$,1:((B) |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
101 (?$,19Q(B ?$,1:)(B) nil (?$,19S(B ?$,1:+(B) (?$,19T(B ?$,1:,(B) (?$,1:@(B ?$,1:$(B) nil) |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
102 (;; CONSONANTS |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
103 ?$,19U(B ?$,19V(B ?$,19W(B ?$,19X(B ?$,19Y(B ;; GUTTRULS |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
104 ?$,19Z(B ?$,19[(B ?$,19\(B ?$,19](B ?$,19^(B ;; PALATALS |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
105 ?$,19_(B ?$,19`(B ?$,19a(B ?$,19b(B ?$,19c(B ;; CEREBRALS |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
106 ?$,19d(B ?$,19e(B ?$,19f(B ?$,19g(B ?$,19h(B nil ;; DENTALS |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
107 ?$,19j(B ?$,19k(B ?$,19l(B ?$,19m(B ?$,19n(B ;; LABIALS |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
108 ?$,19o(B ?$,19p(B nil ?$,19r(B ?$,19s(B nil ?$,19u(B ;; SEMIVOWELS |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
109 ?$,19v(B ?$,19w(B ?$,19x(B ?$,19y(B ;; SIBILANTS |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
110 nil nil nil nil nil nil nil nil ;; NUKTAS |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
111 "$,19\:-9^(B" "$,19U:-9w(B") |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
112 (;; Misc Symbols (7) |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
113 ?$,19A(B ?$,19B(B ?$,19C(B ?$,19}(B ?$,1:-(B ?$,1:0(B nil) |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
114 (;; Digits |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
115 ?$,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) |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
116 (;; Inscript-extra (4) (#, $, ^, *, ]) |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
117 "$,1:-9p(B" "$,19p:-(B" "$,19d:-9p(B" "$,19v:-9p(B" "$,19|(B"))) |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
118 |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
119 (defvar indian-ori-base-table |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
120 '( |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
121 (;; VOWELS |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
122 (?$,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) |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
123 (?$,1:k(B ?$,1;C(B) (?$,1:l(B nil) nil nil (?$,1:o(B ?$,1;G(B) (?$,1:p(B ?$,1;H(B) |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
124 nil nil (?$,1:s(B ?$,1;K(B) (?$,1:t(B ?$,1;L(B) (?$,1;`(B nil) (?$,1;a(B nil)) |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
125 (;; CONSONANTS |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
126 ?$,1:u(B ?$,1:v(B ?$,1:w(B ?$,1:x(B ?$,1:y(B ;; GUTTRULS |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
127 ?$,1:z(B ?$,1:{(B ?$,1:|(B ?$,1:}(B ?$,1:~(B ;; PALATALS |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
128 ?$,1:(B ?$,1; (B ?$,1;!(B ?$,1;"(B ?$,1;#(B ;; CEREBRALS |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
129 ?$,1;$(B ?$,1;%(B ?$,1;&(B ?$,1;'(B ?$,1;((B nil ;; DENTALS |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
130 ?$,1;*(B ?$,1;+(B ?$,1;,(B ?$,1;-(B ?$,1;.(B ;; LABIALS |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
131 ?$,1;/(B ?$,1;0(B nil ?$,1;2(B ?$,1;3(B nil nil ;; SEMIVOWELS |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
132 ?$,1;6(B ?$,1;7(B ?$,1;8(B ?$,1;9(B ;; SIBILANTS |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
133 nil nil nil nil ?$,1;\(B ?$,1;](B nil ?$,1;_(B ;; NUKTAS |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
134 "$,1:|;M:~(B" "$,1:u;M;7(B") |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
135 (;; Misc Symbols |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
136 ?$,1:a(B ?$,1:b(B ?$,1:c(B ?$,1;=(B ?$,1;M(B nil nil) |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
137 (;; Digits |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
138 ?$,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) |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
139 (;; Inscript-extra (4) (#, $, ^, *, ]) |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
140 "$,1;M;0(B" "$,1;0;M(B" "$,1;$;M;0(B" "$,1;6;M;0(B" "$,1;<(B"))) |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
141 |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
142 (defvar indian-bng-base-table |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
143 '( |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
144 (;; VOWELS |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
145 (?$,16e(B nil) (?$,16f(B ?$,17>(B) (?$,16g(B ?$,17?(B) (?$,16h(B ?$,17@(B) (?$,16i(B ?$,17A(B) (?$,16j(B ?$,17B(B) |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
146 (?$,16k(B ?$,17C(B) (?$,16l(B ?$,17b(B) nil nil (?$,16o(B ?$,17G(B) (?$,16p(B ?$,17H(B) |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
147 nil nil (?$,16s(B ?$,17K(B) (?$,16t(B ?$,17L(B) (?$,17`(B ?$,17D(B) (?$,17a(B ?$,17c(B)) |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
148 (;; CONSONANTS |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
149 ?$,16u(B ?$,16v(B ?$,16w(B ?$,16x(B ?$,16y(B ;; GUTTRULS |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
150 ?$,16z(B ?$,16{(B ?$,16|(B ?$,16}(B ?$,16~(B ;; PALATALS |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
151 ?$,16(B ?$,17 (B ?$,17!(B ?$,17"(B ?$,17#(B ;; CEREBRALS |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
152 ?$,17$(B ?$,17%(B ?$,17&(B ?$,17'(B ?$,17((B nil ;; DENTALS |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
153 ?$,17*(B ?$,17+(B ?$,17,(B ?$,17-(B ?$,17.(B ;; LABIALS |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
154 ?$,17/(B ?$,170(B nil ?$,172(B nil nil nil ;; SEMIVOWELS |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
155 ?$,176(B ?$,177(B ?$,178(B ?$,179(B ;; SIBILANTS |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
156 nil nil nil nil ?$,17\(B ?$,17](B nil ?$,17_(B ;; NUKTAS |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
157 "$,16|7M6~(B" "$,16u7M77(B") |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
158 (;; Misc Symbols |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
159 ?$,16a(B ?$,16b(B ?$,16c(B nil ?$,17M(B nil nil) |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
160 (;; Digits |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
161 ?$,17f(B ?$,17g(B ?$,17h(B ?$,17i(B ?$,17j(B ?$,17k(B ?$,17l(B ?$,17m(B ?$,17n(B ?$,17o(B) |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
162 (;; Inscript-extra (4) (#, $, ^, *, ]) |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
163 "$,17M70(B" "$,1707M(B" "$,17$7M70(B" "$,1767M70(B" "$,17<(B"))) |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
164 |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
165 (defvar indian-asm-base-table |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
166 '( |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
167 (;; VOWELS |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
168 (?$,16e(B nil) (?$,16f(B ?$,17>(B) (?$,16g(B ?$,17?(B) (?$,16h(B ?$,17@(B) (?$,16i(B ?$,17A(B) (?$,16j(B ?$,17B(B) |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
169 (?$,16k(B ?$,17C(B) (?$,16l(B ?$,17b(B) nil nil (?$,16o(B ?$,17G(B) (?$,16p(B ?$,17H(B) |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
170 nil nil (?$,16s(B ?$,17K(B) (?$,16t(B ?$,17L(B) (?$,17`(B ?$,17D(B) (?$,17a(B ?$,17c(B)) |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
171 (;; CONSONANTS |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
172 ?$,16u(B ?$,16v(B ?$,16w(B ?$,16x(B ?$,16y(B ;; GUTTRULS |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
173 ?$,16z(B ?$,16{(B ?$,16|(B ?$,16}(B ?$,16~(B ;; PALATALS |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
174 ?$,16(B ?$,17 (B ?$,17!(B ?$,17"(B ?$,17#(B ;; CEREBRALS |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
175 ?$,17$(B ?$,17%(B ?$,17&(B ?$,17'(B ?$,17((B nil ;; DENTALS |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
176 ?$,17*(B ?$,17+(B ?$,17,(B ?$,17-(B ?$,17.(B ;; LABIALS |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
177 ?$,17/(B ?$,17p(B nil ?$,172(B nil nil ?$,17q(B ;; SEMIVOWELS |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
178 ?$,176(B ?$,177(B ?$,178(B ?$,179(B ;; SIBILANTS |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
179 nil nil nil nil ?$,17\(B ?$,17](B nil ?$,17_(B ;; NUKTAS |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
180 "$,16|7M6~(B" "$,16u7M77(B") |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
181 (;; Misc Symbols |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
182 ?$,16a(B ?$,16b(B ?$,16c(B nil ?$,17M(B nil nil) |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
183 (;; Digits |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
184 ?$,17f(B ?$,17g(B ?$,17h(B ?$,17i(B ?$,17j(B ?$,17k(B ?$,17l(B ?$,17m(B ?$,17n(B ?$,17o(B) |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
185 (;; Inscript-extra (4) (#, $, ^, *, ]) |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
186 "$,17M7p(B" "$,17p7M(B" "$,17$7M7p(B" "$,1767M7p(B" "$,17<(B"))) |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
187 |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
188 (defvar indian-tlg-base-table |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
189 '( |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
190 (;; VOWELS |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
191 (?$,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) |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
192 (?$,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) |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
193 nil (?$,1=S(B ?$,1>+(B) (?$,1=R(B ?$,1>*(B) (?$,1=T(B ?$,1>,(B) (?$,1>@(B ?$,1>$(B) (?$,1>A(B nil)) |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
194 (;; CONSONANTS |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
195 ?$,1=U(B ?$,1=V(B ?$,1=W(B ?$,1=X(B ?$,1=Y(B ;; GUTTRULS |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
196 ?$,1=Z(B ?$,1=[(B ?$,1=\(B ?$,1=](B ?$,1=^(B ;; PALATALS |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
197 ?$,1=_(B ?$,1=`(B ?$,1=a(B ?$,1=b(B ?$,1=c(B ;; CEREBRALS |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
198 ?$,1=d(B ?$,1=e(B ?$,1=f(B ?$,1=g(B ?$,1=h(B nil ;; DENTALS |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
199 ?$,1=j(B ?$,1=k(B ?$,1=l(B ?$,1=m(B ?$,1=n(B ;; LABIALS |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
200 ?$,1=o(B ?$,1=p(B ?$,1=q(B ?$,1=r(B ?$,1=s(B nil ?$,1=u(B ;; SEMIVOWELS |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
201 ?$,1=v(B ?$,1=w(B ?$,1=x(B ?$,1=y(B ;; SIBILANTS |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
202 nil nil nil nil nil nil nil nil ;; NUKTAS |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
203 "$,1=\>-=^(B" "$,1=U>-=w(B") |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
204 (;; Misc Symbols |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
205 ?$,1=A(B ?$,1=B(B ?$,1=C(B nil ?$,1>-(B nil nil) |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
206 (;; Digits |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
207 ?$,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) |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
208 (;; Inscript-extra (4) (#, $, ^, *, ]) |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
209 "$,1>-=p(B" "$,1=p>-(B" "$,1=d>-=p(B" "$,1=v>-=p(B" nil))) |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
210 |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
211 (defvar indian-knd-base-table |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
212 '( |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
213 (;; VOWELS |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
214 (?$,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) |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
215 (?$,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) |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
216 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)) |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
217 (;; CONSONANTS |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
218 ?$,1>u(B ?$,1>v(B ?$,1>w(B ?$,1>x(B ?$,1>y(B ;; GUTTRULS |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
219 ?$,1>z(B ?$,1>{(B ?$,1>|(B ?$,1>}(B ?$,1>~(B ;; PALATALS |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
220 ?$,1>(B ?$,1? (B ?$,1?!(B ?$,1?"(B ?$,1?#(B ;; CEREBRALS |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
221 ?$,1?$(B ?$,1?%(B ?$,1?&(B ?$,1?'(B ?$,1?((B nil ;; DENTALS |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
222 ?$,1?*(B ?$,1?+(B ?$,1?,(B ?$,1?-(B ?$,1?.(B ;; LABIALS |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
223 ?$,1?/(B ?$,1?0(B ?$,1?1(B ?$,1?2(B ?$,1?3(B nil ?$,1?5(B ;; SEMIVOWELS |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
224 ?$,1?6(B ?$,1?7(B ?$,1?8(B ?$,1?9(B ;; SIBILANTS |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
225 nil nil nil nil nil nil ?$,1?^(B nil ;; NUKTAS |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
226 "$,1>|?M>~(B" "$,1>u?M?7(B") |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
227 (;; Misc Symbols |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
228 nil ?$,1>b(B ?$,1>c(B nil ?$,1?M(B nil nil) |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
229 (;; Digits |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
230 ?$,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) |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
231 (;; Inscript-extra (4) (#, $, ^, *, ]) |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
232 "$,1?M?0(B" "$,1?0?M(B" "$,1?$?M?0(B" "$,1?6?M?0(B" nil))) |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
233 |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
234 (defvar indian-mlm-base-table |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
235 '( |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
236 (;; VOWELS |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
237 (?$,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) |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
238 (?$,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) |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
239 nil (?$,1@3(B ?$,1@k(B) (?$,1@2(B ?$,1@j(B) (?$,1@4(B ?$,1@l(B) nil nil) |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
240 (;; CONSONANTS |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
241 ?$,1@5(B ?$,1@6(B ?$,1@7(B ?$,1@8(B ?$,1@9(B ;; GUTTRULS |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
242 ?$,1@:(B ?$,1@;(B ?$,1@<(B ?$,1@=(B ?$,1@>(B ;; PALATALS |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
243 ?$,1@?(B ?$,1@@(B ?$,1@A(B ?$,1@B(B ?$,1@C(B ;; CEREBRALS |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
244 ?$,1@D(B ?$,1@E(B ?$,1@F(B ?$,1@G(B ?$,1@H(B nil ;; DENTALS |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
245 ?$,1@J(B ?$,1@K(B ?$,1@L(B ?$,1@M(B ?$,1@N(B ;; LABIALS |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
246 ?$,1@O(B ?$,1@P(B ?$,1@Q(B ?$,1@R(B ?$,1@S(B ?$,1@T(B ?$,1@U(B ;; SEMIVOWELS |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
247 ?$,1@V(B ?$,1@W(B ?$,1@X(B ?$,1@Y(B ;; SIBILANTS |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
248 nil nil nil nil nil nil nil nil ;; NUKTAS |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
249 "$,1@<@m@>(B" "$,1@5@m@W(B") |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
250 (;; Misc Symbols |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
251 nil ?$,1@"(B ?$,1@#(B nil ?$,1@m(B nil nil) |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
252 (;; Digits |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
253 ?$,1A&(B ?$,1A'(B ?$,1A((B ?$,1A)(B ?$,1A*(B ?$,1A+(B ?$,1A,(B ?$,1A-(B ?$,1A.(B ?$,1A/(B) |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
254 (;; Inscript-extra (4) (#, $, ^, *, ]) |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
255 "$,1@m@P(B" "$,1@P@m(B" "$,1@D@m@P(B" "$,1@V@m@P(B" nil))) |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
256 |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
257 (defvar indian-tml-base-table |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
258 '( |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
259 (;; VOWELS |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
260 (?$,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) |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
261 nil nil nil (?$,1</(B ?$,1<g(B) (?$,1<.(B ?$,1<f(B) (?$,1<0(B ?$,1<h(B) |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
262 nil (?$,1<3(B ?$,1<k(B) (?$,1<2(B ?$,1<j(B) (?$,1<4(B ?$,1<l(B) nil nil) |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
263 (;; CONSONANTS |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
264 ?$,1<5(B nil nil nil ?$,1<9(B ;; GUTTRULS |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
265 ?$,1<:(B nil ?$,1<<(B nil ?$,1<>(B ;; PALATALS |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
266 ?$,1<?(B nil nil nil ?$,1<C(B ;; CEREBRALS |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
267 ?$,1<D(B nil nil nil ?$,1<H(B ?$,1<I(B ;; DENTALS |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
268 ?$,1<J(B nil nil nil ?$,1<N(B ;; LABIALS |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
269 ?$,1<O(B ?$,1<P(B ?$,1<Q(B ?$,1<R(B ?$,1<S(B ?$,1<T(B ?$,1<U(B ;; SEMIVOWELS |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
270 nil ?$,1<W(B ?$,1<X(B ?$,1<Y(B ;; SIBILANTS |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
271 nil nil nil nil nil nil nil nil ;; NUKTAS |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
272 "$,1<<<m<>(B" "$,1<5<m<W(B") |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
273 (;; Misc Symbols |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
274 nil ?$,1<"(B ?$,1<#(B nil ?$,1<m(B nil nil) |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
275 (;; Digits |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
276 nil ?$,1='(B ?$,1=((B ?$,1=)(B ?$,1=*(B ?$,1=+(B ?$,1=,(B ?$,1=-(B ?$,1=.(B ?$,1=/(B) |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
277 (;; Inscript-extra (4) (#, $, ^, *, ]) |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
278 "$,1<m<P(B" "$,1<P<m(B" "$,1<D<m<P(B" nil nil))) |
41470 | 279 |
280 (defvar indian-base-table-to-language-alist | |
281 '((indian-dev-base-table . "Devanagari") | |
89094 | 282 (indian-pnj-base-table . "Punjabi") |
41470 | 283 (indian-ori-base-table . "Oriya") |
284 (indian-bng-base-table . "Bengali") | |
285 (indian-asm-base-table . "Assamese") | |
286 (indian-tlg-base-table . "Telugu") | |
287 (indian-knd-base-table . "Kannada") | |
288 (indian-mlm-base-table . "Malayalam") | |
289 (indian-tml-base-table . "Tamil"))) | |
290 | |
291 (defvar indian-itrans-v5-table | |
292 '(;; for encode/decode | |
293 (;; vowels -- 18 | |
294 "a" ("aa" "A") "i" ("ii" "I") "u" ("uu" "U") | |
49662
47a6a31b9018
(indian-itrans-v5-table): Add entries for "E" and "O".
Kenichi Handa <handa@m17n.org>
parents:
49598
diff
changeset
|
295 ("RRi" "R^i") ("LLi" "L^i") (".c" "e.c") "E" "e" "ai" |
47a6a31b9018
(indian-itrans-v5-table): Add entries for "E" and "O".
Kenichi Handa <handa@m17n.org>
parents:
49598
diff
changeset
|
296 "o.c" "O" "o" "au" ("RRI" "R^I") ("LLI" "L^I")) |
89094 | 297 (;; consonants -- 40 |
41470 | 298 "k" "kh" "g" "gh" ("~N" "N^") |
299 "ch" ("Ch" "chh") "j" "jh" ("~n" "JN") | |
300 "T" "Th" "D" "Dh" "N" | |
89094 | 301 "t" "th" "d" "dh" "n" "nh" |
41470 | 302 "p" "ph" "b" "bh" "m" |
303 "y" "r" "rh" "l" ("L" "ld") nil ("v" "w") | |
304 "sh" ("Sh" "shh") "s" "h" | |
305 "q" "K" "G" ("J" "z") ".D" ".Dh" "f" ("Y" "yh") | |
306 ("GY" "dny") "x") | |
307 (;; misc -- 7 | |
308 ".N" (".n" "M") "H" ".a" ".h" ("AUM" "OM") ".."))) | |
309 | |
310 (defvar indian-kyoto-harvard-table | |
311 '(;; for encode/decode | |
312 (;; vowel | |
313 "a" ("A" "aa") "i" ("I" "ii") "u" ("U" "uu") | |
314 "R" ("L" "lR") nil nil "e" "ai" | |
315 nil nil "o" "au" ("q" "RR" "Q") ("E" "LL" "lRR")) | |
316 (;; consonant | |
317 "k" "kh" "g" "gh" "G" | |
318 "c" "ch" "j" "jh" "J" | |
319 "T" "Th" "D" "Dh" "N" | |
320 "t" "th" "d" "dh" "n" nil | |
321 "p" "ph" "b" "bh" "m" | |
322 "y" "r" nil "l" "L" nil "v" | |
323 ("z" "Z") "S" "s" "h" | |
324 nil nil nil nil nil nil nil nil | |
325 nil nil) | |
326 (;; misc | |
327 nil "M" "H" "'" nil "." nil))) | |
328 | |
329 (defvar indian-harvard-table | |
330 '(;; for encode/decode | |
331 (;; vowel | |
332 "a" ("A" "aa") "i" ("I" "ii") "u" ("U" "uu") | |
333 "R" ("L" "lR") nil nil "e" "ai" | |
334 nil nil "o" "au" ("RR" "q" "Q") ("LL" "E" "lRR")) | |
335 (;; consonant | |
336 "k" "kh" "g" "gh" "G" | |
337 "c" "ch" "j" "jh" "J" | |
338 "T" "Th" "D" "Dh" "N" | |
339 "t" "th" "d" "dh" "n" nil | |
340 "p" "ph" "b" "bh" "m" | |
341 "y" "r" nil "l" "L" nil "v" | |
342 ("z" "Z") "S" "s" "h" | |
343 nil nil nil nil nil nil nil nil | |
344 nil nil) | |
345 (;; misc | |
346 nil "M" "H" "'" nil "." nil))) | |
347 | |
348 (defvar indian-tokyo-table | |
349 '(;; for encode/decode | |
350 (;; vowel | |
351 "a" ("A" "aa") "i" ("I" "ii") "u" ("U" "uu") | |
352 "R" ("L" "lR") nil nil "e" "ai" | |
353 nil nil "o" "au" ("Q" "RR" "q") ("E" "LL" "lRR")) | |
354 (;; consonant | |
355 "k" "kh" "g" "gh" "G" | |
356 "c" "ch" "j" "jh" "J" | |
357 "T" "Th" "D" "Dh" "N" | |
358 "t" "th" "d" "dh" "n" nil | |
359 "p" "ph" "b" "bh" "m" | |
360 "y" "r" nil "l" "L" nil "v" | |
361 ("Z" "z") "S" "s" "h" | |
362 nil nil nil nil nil nil nil nil | |
363 nil nil) | |
364 (;; misc | |
365 nil "M" "H" "'" nil "." nil))) | |
366 | |
367 (defvar indian-aiba-table | |
368 '(;; for encode/decode | |
369 (;; vowel | |
370 "a" "aa" "i" "ii" "u" "uu" | |
371 ".r" ".l" nil nil "e" "ai" | |
372 nil nil "o" "au" "~r" "~l") | |
373 (;; consonant | |
374 "k" "kh" "g" "gh" "^n" | |
375 "c" "ch" "j" "jh" "~n" | |
376 ".t" ".th" ".d" ".dh" ".n" | |
377 "t" "th" "d" "dh" "n" nil | |
378 "p" "ph" "b" "bh" "m" | |
379 "y" "r" nil "l" nil nil "v" | |
380 "^s" ".s" "s" "h" | |
381 nil nil nil nil nil nil nil nil | |
382 nil nil) | |
383 (;; misc | |
384 nil ".m" ".h" "'" nil "." nil))) | |
385 | |
386 (defun mapthread (function seq1 &rest seqrest) | |
387 "Apply FUNCTION to each element of SEQ1 and return result list. | |
388 If there are several SEQRESTs, FUNCTION is called with that many | |
389 arguments, with all possible combinations of these multiple SEQUENCES. | |
390 Thus, if SEQ1 contains 3 elements and SEQ2 contains 5 elements, then | |
391 FUNCTION will be called 15 times." | |
392 (if seqrest | |
89094 | 393 (mapcar |
41470 | 394 (lambda (x) |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
46223
diff
changeset
|
395 (apply |
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
46223
diff
changeset
|
396 'mapthread |
42070
e904fde74072
(mapthread): Make a closure.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42060
diff
changeset
|
397 `(lambda (&rest y) (apply ',function x y)) |
41470 | 398 seqrest)) |
399 seq1) | |
400 (mapcar function seq1))) | |
401 | |
402 (defun indian--puthash-char (char trans-char hashtbls) | |
403 (let ((encode-hash (car hashtbls)) ;; char -> trans | |
404 (decode-hash (cdr hashtbls)) ;; trans -> char | |
405 ) | |
406 ;; char -- nil / char / string (/ list of vowel & matra) | |
407 ;; trans-char -- nil / string / list of strings | |
408 (when (and char trans-char) | |
409 (if (stringp trans-char) (setq trans-char (list trans-char))) | |
88620 | 410 (if (characterp char) (setq char (char-to-string char))) |
41470 | 411 (puthash char (car trans-char) encode-hash) |
51078
39435a35a003
(indian-regexp-of-hashtbl-keys): Don't sort the argument to regexp-opt.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50528
diff
changeset
|
412 (dolist (trans trans-char) |
39435a35a003
(indian-regexp-of-hashtbl-keys): Don't sort the argument to regexp-opt.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50528
diff
changeset
|
413 (puthash trans char decode-hash))))) |
41470 | 414 |
42056 | 415 (defun indian--map (f l1 l2) |
416 (while l1 | |
417 (funcall f (pop l1) (pop l2)))) | |
418 | |
41470 | 419 (defun indian--puthash-v (v trans-v hashtbls) |
89094 | 420 (indian--map |
42056 | 421 (lambda (v trans-v) |
422 (indian--puthash-char (car v) trans-v hashtbls)) | |
41470 | 423 v trans-v)) |
424 | |
425 (defun indian--puthash-c (c trans-c halant hashtbls) | |
42056 | 426 (indian--map |
427 (lambda (c trans-c) | |
88620 | 428 (if (characterp c) (setq c (char-to-string c))) |
42056 | 429 (indian--puthash-char (concat c halant) trans-c hashtbls)) |
41470 | 430 c trans-c)) |
431 | |
432 (defun indian--puthash-m (m trans-m hashtbls) | |
42056 | 433 (indian--map |
434 (lambda (m trans-m) | |
435 (indian--puthash-char m trans-m hashtbls)) | |
41470 | 436 m trans-m)) |
437 | |
438 (defun indian--puthash-cv (c trans-c v trans-v hashtbls) | |
42056 | 439 (indian--map |
440 (lambda (c trans-c) | |
441 (indian--map | |
442 (lambda (v trans-v) | |
443 (when (and c trans-c v trans-v) | |
88620 | 444 (if (characterp c) (setq c (char-to-string c))) |
445 (setq v (if (characterp (cadr v)) (char-to-string (cadr v)) "")) | |
42056 | 446 (if (stringp trans-c) (setq trans-c (list trans-c))) |
447 (if (stringp trans-v) (setq trans-v (list trans-v))) | |
89094 | 448 (indian--puthash-char |
42056 | 449 (concat c v) |
450 (apply 'append | |
451 (mapthread 'concat trans-c trans-v)) | |
452 hashtbls))) | |
453 v trans-v)) | |
41470 | 454 c trans-c)) |
455 | |
456 (defun indian-make-hash (table trans-table) | |
457 "Indian Transliteration Hash for decode/encode" | |
46223
e5298463efed
(indian-make-hash): Switch makehash -> make-hash-table.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42111
diff
changeset
|
458 (let* ((encode-hash (make-hash-table :test 'equal)) |
e5298463efed
(indian-make-hash): Switch makehash -> make-hash-table.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42111
diff
changeset
|
459 (decode-hash (make-hash-table :test 'equal)) |
41470 | 460 (hashtbls (cons encode-hash decode-hash)) |
461 (vowels (elt table 0)) | |
462 (consonants (elt table 1)) | |
463 (misc (elt table 2)) | |
464 (digits (elt table 3)) | |
465 (halant (char-to-string (elt misc 4))) | |
466 (trans-vowels (elt trans-table 0)) | |
467 (trans-consonants (elt trans-table 1)) | |
468 (trans-misc (elt trans-table 2)) | |
469 (trans-digits '("0" "1" "2" "3" "4" "5" "6" "7" "8" "9"))) | |
470 (indian--puthash-v vowels trans-vowels hashtbls) | |
471 (indian--puthash-c consonants trans-consonants halant hashtbls) | |
89094 | 472 (indian--puthash-cv consonants trans-consonants |
41470 | 473 vowels trans-vowels hashtbls) |
474 (indian--puthash-m misc trans-misc hashtbls) | |
475 (indian--puthash-m digits trans-digits hashtbls) | |
476 hashtbls)) | |
477 | |
478 (defvar indian-dev-itrans-v5-hash | |
479 (indian-make-hash indian-dev-base-table | |
480 indian-itrans-v5-table)) | |
481 (defvar indian-dev-kyoto-harvard-hash | |
482 (indian-make-hash indian-dev-base-table | |
483 indian-kyoto-harvard-table)) | |
484 (defvar indian-dev-aiba-hash | |
485 (indian-make-hash indian-dev-base-table | |
486 indian-aiba-table)) | |
487 | |
49703
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
488 (defvar indian-pnj-itrans-v5-hash |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
489 (indian-make-hash indian-pnj-base-table |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
490 indian-itrans-v5-table)) |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
491 |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
492 (defvar indian-gjr-itrans-v5-hash |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
493 (indian-make-hash indian-gjr-base-table |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
494 indian-itrans-v5-table)) |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
495 |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
496 (defvar indian-ori-itrans-v5-hash |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
497 (indian-make-hash indian-ori-base-table |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
498 indian-itrans-v5-table)) |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
499 |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
500 (defvar indian-bng-itrans-v5-hash |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
501 (indian-make-hash indian-bng-base-table |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
502 indian-itrans-v5-table)) |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
503 |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
504 (defvar indian-asm-itrans-v5-hash |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
505 (indian-make-hash indian-asm-base-table |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
506 indian-itrans-v5-table)) |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
507 |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
508 (defvar indian-tlg-itrans-v5-hash |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
509 (indian-make-hash indian-tlg-base-table |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
510 indian-itrans-v5-table)) |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
511 |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
512 (defvar indian-knd-itrans-v5-hash |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
513 (indian-make-hash indian-knd-base-table |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
514 indian-itrans-v5-table)) |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
515 |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
516 (defvar indian-mlm-itrans-v5-hash |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
517 (indian-make-hash indian-mlm-base-table |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
518 indian-itrans-v5-table)) |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
519 |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
520 (defvar indian-tml-itrans-v5-hash |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
521 (indian-make-hash indian-tml-base-table |
664f9896e442
(indian-dev-base-table): Table fixed.
Kenichi Handa <handa@m17n.org>
parents:
49662
diff
changeset
|
522 indian-itrans-v5-table)) |
41470 | 523 ) |
524 | |
525 (defmacro indian-translate-region (from to hashtable encode-p) | |
526 `(save-excursion | |
527 (save-restriction | |
89094 | 528 (let ((regexp ,(indian-regexp-of-hashtbl-keys |
529 (if encode-p (car (eval hashtable)) | |
41470 | 530 (cdr (eval hashtable)))))) |
531 (narrow-to-region from to) | |
532 (goto-char (point-min)) | |
533 (while (re-search-forward regexp nil t) | |
89094 | 534 (let ((matchstr (gethash (match-string 0) |
42056 | 535 (if ,encode-p |
536 (car ,hashtable) | |
537 (cdr ,hashtable))))) | |
41470 | 538 (if matchstr (replace-match matchstr)))))))) |
539 | |
540 ;;; | |
541 | |
542 (defun indian-dev-itrans-v5-encode-region (from to) | |
543 (interactive "r") | |
89094 | 544 (indian-translate-region |
41470 | 545 from to indian-dev-itrans-v5-hash t)) |
546 | |
547 (defun indian-dev-itrans-v5-decode-region (from to) | |
548 (interactive "r") | |
549 (indian-translate-region | |
550 from to indian-dev-itrans-v5-hash nil)) | |
551 | |
552 (defun indian-dev-kyoto-harvard-encode-region (from to) | |
553 (interactive "r") | |
89094 | 554 (indian-translate-region |
41470 | 555 from to indian-dev-kyoto-harvard-hash t)) |
556 | |
557 (defun indian-dev-kyoto-harvard-decode-region (from to) | |
558 (interactive "r") | |
559 (indian-translate-region | |
560 from to indian-dev-kyoto-harvard-hash nil)) | |
561 | |
562 (defun indian-dev-aiba-encode-region (from to) | |
563 (interactive "r") | |
89094 | 564 (indian-translate-region |
41470 | 565 from to indian-dev-aiba-hash t)) |
566 | |
567 (defun indian-dev-aiba-decode-region (from to) | |
568 (interactive "r") | |
569 (indian-translate-region | |
570 from to indian-dev-aiba-hash nil)) | |
571 | |
572 | |
573 | |
574 | |
575 ;;; IS 13194 utilities | |
576 | |
577 ;; The followings provide conversion between IS 13194 (ISCII) and UCS. | |
578 | |
89110
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
579 (let |
89483 | 580 ;;Unicode vs IS13194 ;; only Devanagari is supported now. |
89110
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
581 ((ucs-devanagari-to-is13194-alist |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
582 '((?\x0900 . "[U+0900]") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
583 (?\x0901 . "(5!(B") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
584 (?\x0902 . "(5"(B") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
585 (?\x0903 . "(5#(B") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
586 (?\x0904 . "[U+0904]") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
587 (?\x0905 . "(5$(B") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
588 (?\x0906 . "(5%(B") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
589 (?\x0907 . "(5&(B") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
590 (?\x0908 . "(5'(B") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
591 (?\x0909 . "(5((B") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
592 (?\x090a . "(5)(B") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
593 (?\x090b . "(5*(B") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
594 (?\x090c . "(5&i(B") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
595 (?\x090d . "(5.(B") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
596 (?\x090e . "(5+(B") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
597 (?\x090f . "(5,(B") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
598 (?\x0910 . "(5-(B") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
599 (?\x0911 . "(52(B") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
600 (?\x0912 . "(5/(B") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
601 (?\x0913 . "(50(B") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
602 (?\x0914 . "(51(B") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
603 (?\x0915 . "(53(B") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
604 (?\x0916 . "(54(B") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
605 (?\x0917 . "(55(B") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
606 (?\x0918 . "(56(B") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
607 (?\x0919 . "(57(B") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
608 (?\x091a . "(58(B") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
609 (?\x091b . "(59(B") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
610 (?\x091c . "(5:(B") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
611 (?\x091d . "(5;(B") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
612 (?\x091e . "(5<(B") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
613 (?\x091f . "(5=(B") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
614 (?\x0920 . "(5>(B") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
615 (?\x0921 . "(5?(B") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
616 (?\x0922 . "(5@(B") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
617 (?\x0923 . "(5A(B") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
618 (?\x0924 . "(5B(B") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
619 (?\x0925 . "(5C(B") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
620 (?\x0926 . "(5D(B") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
621 (?\x0927 . "(5E(B") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
622 (?\x0928 . "(5F(B") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
623 (?\x0929 . "(5G(B") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
624 (?\x092a . "(5H(B") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
625 (?\x092b . "(5I(B") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
626 (?\x092c . "(5J(B") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
627 (?\x092d . "(5K(B") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
628 (?\x092e . "(5L(B") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
629 (?\x092f . "(5M(B") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
630 (?\x0930 . "(5O(B") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
631 (?\x0931 . "(5P(B") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
632 (?\x0932 . "(5Q(B") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
633 (?\x0933 . "(5R(B") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
634 (?\x0934 . "(5S(B") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
635 (?\x0935 . "(5T(B") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
636 (?\x0936 . "(5U(B") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
637 (?\x0937 . "(5V(B") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
638 (?\x0938 . "(5W(B") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
639 (?\x0939 . "(5X(B") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
640 (?\x093a . "[U+093a]") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
641 (?\x093b . "[U+093b]") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
642 (?\x093c . "(5i(B") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
643 (?\x093d . "(5ji(B") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
644 (?\x093e . "(5Z(B") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
645 (?\x093f . "(5[(B") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
646 (?\x0940 . "(5\(B") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
647 (?\x0941 . "(5](B") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
648 (?\x0942 . "(5^(B") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
649 (?\x0943 . "(5_(B") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
650 (?\x0944 . "(5_i(B") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
651 (?\x0945 . "(5c(B") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
652 (?\x0946 . "(5`(B") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
653 (?\x0947 . "(5a(B") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
654 (?\x0948 . "(5b(B") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
655 (?\x0949 . "(5g(B") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
656 (?\x094a . "(5d(B") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
657 (?\x094b . "(5e(B") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
658 (?\x094c . "(5f(B") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
659 (?\x094d . "(5h(B") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
660 (?\x094e . "[U+094e]") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
661 (?\x094f . "[U+094f]") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
662 (?\x0950 . "(5!i(B") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
663 (?\x0951 . "(5p5(B") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
664 (?\x0952 . "(5p8(B") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
665 (?\x0953 . "[DEVANAGARI GRAVE ACCENT]") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
666 (?\x0954 . "[DEVANAGARI ACUTE ACCENT]") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
667 (?\x0955 . "[U+0955]") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
668 (?\x0956 . "[U+0956]") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
669 (?\x0957 . "[U+0957]") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
670 (?\x0958 . "(53i(B") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
671 (?\x0959 . "(54i(B") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
672 (?\x095a . "(55i(B") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
673 (?\x095b . "(5:i(B") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
674 (?\x095c . "(5?i(B") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
675 (?\x095d . "(5@i(B") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
676 (?\x095e . "(5Ii(B") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
677 (?\x095f . "(5N(B") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
678 (?\x0960 . "(5*i(B") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
679 (?\x0961 . "(5'i(B") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
680 (?\x0962 . "(5[i(B") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
681 (?\x0963 . "(5ei(B") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
682 (?\x0964 . "(5j(B") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
683 (?\x0965 . "(5jj(B") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
684 (?\x0966 . "(5q(B") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
685 (?\x0967 . "(5r(B") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
686 (?\x0968 . "(5s(B") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
687 (?\x0969 . "(5t(B") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
688 (?\x096a . "(5u(B") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
689 (?\x096b . "(5v(B") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
690 (?\x096c . "(5w(B") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
691 (?\x096d . "(5x(B") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
692 (?\x096e . "(5y(B") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
693 (?\x096f . "(5z(B") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
694 (?\x0970 . "[U+0970]") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
695 (?\x0971 . "[U+0971]") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
696 (?\x0972 . "[U+0972]") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
697 (?\x0973 . "[U+0973]") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
698 (?\x0974 . "[U+0974]") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
699 (?\x0975 . "[U+0975]") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
700 (?\x0976 . "[U+0976]") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
701 (?\x0977 . "[U+0977]") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
702 (?\x0978 . "[U+0978]") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
703 (?\x0979 . "[U+0979]") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
704 (?\x097a . "[U+097a]") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
705 (?\x097b . "[U+097b]") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
706 (?\x097c . "[U+097c]") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
707 (?\x097d . "[U+097d]") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
708 (?\x097e . "[U+097e]") |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
709 (?\x097f . "[U+097f]"))) |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
710 (ucs-bengali-to-is13194-alist nil) |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
711 (ucs-assamese-to-is13194-alist nil) |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
712 (ucs-gurmukhi-to-is13194-alist nil) |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
713 (ucs-gujarati-to-is13194-alist nil) |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
714 (ucs-oriya-to-is13194-alist nil) |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
715 (ucs-tamil-to-is13194-alist nil) |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
716 (ucs-telugu-to-is13194-alist nil) |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
717 (ucs-malayalam-to-is13194-alist nil)) |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
718 (dolist (script '(devanagari bengali assamese gurmukhi gujarati |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
719 oriya tamil telugu malayalam)) |
89094 | 720 (let ((hashtable (intern (concat "is13194-to-ucs-" |
721 (symbol-name script) "-hashtbl" ))) | |
722 (regexp (intern (concat "is13194-to-ucs-" | |
723 (symbol-name script) "-regexp")))) | |
41470 | 724 (set hashtable (make-hash-table :test 'equal :size 128)) |
89110
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
725 (dolist (x (eval (intern (concat "ucs-" (symbol-name script) |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
726 "-to-is13194-alist")))) |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
727 (put-char-code-property (car x) 'script script) |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
728 (put-char-code-property (car x) 'iscii (cdr x)) |
baa9de960667
(ucs-bengali-to-is13194-alist, ucs-assamese-to-is13194-alist)
Dave Love <fx@gnu.org>
parents:
89106
diff
changeset
|
729 (puthash (cdr x) (char-to-string (car x)) (eval hashtable))) |
89483 | 730 (set regexp (indian-regexp-of-hashtbl-keys (eval hashtable)))))) |
41470 | 731 |
89483 | 732 (defvar is13194-default-repertory 'devanagari) |
41470 | 733 |
734 (defvar is13194-repertory-to-ucs-script | |
89483 | 735 `((DEF ?\x40 ,is13194-default-repertory) |
736 (RMN ?\x41 ,is13194-default-repertory) | |
41470 | 737 (DEV ?\x42 devanagari) |
738 (BNG ?\x43 bengali) | |
739 (TML ?\x44 tamil) | |
740 (TLG ?\x45 telugu) | |
741 (ASM ?\x46 bengali) | |
742 (ORI ?\x47 oriya) | |
743 (KND ?\x48 kannada) | |
744 (MLM ?\x49 malayalam) | |
745 (GJR ?\x4a gujarati) | |
746 (PNJ ?\x4b gurmukhi))) | |
747 | |
748 ;; for guiding find-variable function. | |
749 (defvar is13194-to-ucs-devanagari-hashtbl nil) | |
750 (defvar is13194-to-ucs-devanagari-regexp nil) | |
751 (defvar is13194-to-ucs-bengali-hashtbl nil) | |
752 (defvar is13194-to-ucs-bengali-regexp nil) | |
753 (defvar is13194-to-ucs-assamese-hashtbl nil) | |
754 (defvar is13194-to-ucs-assamese-regexp nil) | |
755 (defvar is13194-to-ucs-gurmukhi-hashtbl nil) | |
756 (defvar is13194-to-ucs-gurmukhi-regexp nil) | |
757 (defvar is13194-to-ucs-gujarati-hashtbl nil) | |
758 (defvar is13194-to-ucs-gujarati-regexp nil) | |
759 (defvar is13194-to-ucs-oriya-hashtbl nil) | |
760 (defvar is13194-to-ucs-oriya-regexp nil) | |
761 (defvar is13194-to-ucs-tamil-hashtbl nil) | |
762 (defvar is13194-to-ucs-tamil-regexp nil) | |
763 (defvar is13194-to-ucs-telugu-hashtbl nil) | |
764 (defvar is13194-to-ucs-telugu-regexp nil) | |
765 (defvar is13194-to-ucs-malayalam-hashtbl nil) | |
766 (defvar is13194-to-ucs-malayalam-regexp nil) | |
767 | |
768 (defvar ucs-to-is13194-regexp | |
769 ;; only Devanagari is supported now. | |
88620 | 770 (concat "[" (char-to-string #x0900) |
89483 | 771 "-" (char-to-string #x097f) "]") |
41470 | 772 "Regexp that matches to conversion") |
773 | |
774 (defun ucs-to-iscii-region (from to) | |
89094 | 775 "Converts the indian UCS characters in the region to ISCII. |
41470 | 776 Returns new end position." |
777 (interactive "r") | |
778 ;; only Devanagari is supported now. | |
779 (save-excursion | |
780 (save-restriction | |
781 (narrow-to-region from to) | |
782 (goto-char (point-min)) | |
89094 | 783 (let* ((current-repertory is13194-default-repertory)) |
784 (while (re-search-forward ucs-to-is13194-regexp nil t) | |
785 (replace-match | |
786 (get-char-code-property (string-to-char (match-string 0)) | |
787 'iscii)))) | |
41470 | 788 (point-max)))) |
789 | |
790 (defun iscii-to-ucs-region (from to) | |
89094 | 791 "Converts the ISCII characters in the region to UCS. |
41470 | 792 Returns new end position." |
793 (interactive "r") | |
794 ;; only Devanagari is supported now. | |
795 (save-excursion | |
796 (save-restriction | |
797 (narrow-to-region from to) | |
798 (goto-char (point-min)) | |
89094 | 799 (let* ((current-repertory is13194-default-repertory) |
800 (current-hashtable | |
801 (intern (concat "is13194-to-ucs-" | |
802 (symbol-name current-repertory) "-hashtbl"))) | |
803 (current-regexp | |
804 (intern (concat "is13194-to-ucs-" | |
805 (symbol-name current-repertory) "-regexp"))) | |
806 (re (eval current-regexp)) | |
89106 | 807 (hash (eval current-hashtable))) |
89094 | 808 (while (re-search-forward re nil t) |
809 (replace-match (gethash (match-string 0) hash "")))) | |
41470 | 810 (point-max)))) |
811 | |
812 ;;;###autoload | |
813 (defun indian-compose-region (from to) | |
89298
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
814 "Compose the region according to `composition-function-table'." |
41470 | 815 (interactive "r") |
816 (save-excursion | |
817 (save-restriction | |
89298
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
818 (let ((pos from) newpos func (max to)) |
89094 | 819 (narrow-to-region from to) |
820 (while (< pos max) | |
89298
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
821 (setq func (aref composition-function-table (char-after pos))) |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
822 (if (fboundp func) |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
823 (setq newpos (funcall func pos nil) |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
824 pos (if (and (integerp newpos) (> newpos pos)) |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
825 newpos (1+ pos))) |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
826 (setq pos (1+ pos)))))))) |
41470 | 827 |
828 ;;;###autoload | |
829 (defun indian-compose-string (string) | |
89094 | 830 (with-temp-buffer |
41470 | 831 (insert string) |
832 (indian-compose-region (point-min) (point-max)) | |
833 (buffer-string))) | |
834 | |
835 ;;;###autoload | |
836 (defun in-is13194-post-read-conversion (len) | |
837 (let ((pos (point)) endpos) | |
838 (setq endpos (iscii-to-ucs-region pos (+ pos len))) | |
839 (indian-compose-region pos endpos) | |
840 (- endpos pos))) | |
841 | |
842 ;;;###autoload | |
843 (defun in-is13194-pre-write-conversion (from to) | |
844 (let ((buf (current-buffer))) | |
845 (set-buffer (generate-new-buffer " *temp*")) | |
846 (if (stringp from) | |
847 (insert from) | |
848 (insert-buffer-substring buf from to)) | |
849 (ucs-to-iscii-region (point-min) (point-max)) | |
850 nil)) | |
851 | |
852 | |
853 | |
854 | |
855 ;;; Backward Compatibility support programs | |
856 | |
89094 | 857 ;; The following provides the conversion from old-implementation of |
41470 | 858 ;; Emacs Devanagari script to UCS. |
859 | |
860 (defconst indian-2-colum-to-ucs | |
861 '( | |
862 ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f | |
89298
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
863 ;;2120 $(6!!!"!#!$!%!&!'!(!)!*!+!,!-!.!/(B |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
864 ("$(6!!(B" . "$,15A(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
865 ("$(6!"(B" . "$,15B(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
866 ("$(6!#(B" . "$,15C(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
867 ("$(6!$(B" . "$,15E(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
868 ("$(6!%(B" . "$,15F(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
869 ("$(6!&(B" . "$,15G(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
870 ("$(6!'(B" . "$,15H(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
871 ("$(6!((B" . "$,15I(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
872 ("$(6!)(B" . "$,15J(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
873 ("$(6!*(B" . "$,15K(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
874 ("$(6!*"p(B" . "$,15p6#(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
875 ("$(6!+(B" . "$,15N(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
876 ("$(6!,(B" . "$,15O(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
877 ("$(6!-(B" . "$,15P(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
878 ("$(6!.(B" . "$,15M(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
879 ("$(6!/(B" . "$,15R(B") |
41470 | 880 ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f |
89298
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
881 ;;2130 $(6!0!1!2!3!4!5!6!7!8!9!:!;!<!=!>!?(B |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
882 ("$(6!0(B" . "$,15S(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
883 ("$(6!1(B" . "$,15T(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
884 ("$(6!2(B" . "$,15Q(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
885 ("$(6!3(B" . "$,15U(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
886 ("$(6!4(B" . "$,15V(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
887 ("$(6!5(B" . "$,15W(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
888 ("$(6!6(B" . "$,15X(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
889 ("$(6!7(B" . "$,15Y(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
890 ("$(6!8(B" . "$,15Z(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
891 ("$(6!9(B" . "$,15[(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
892 ("$(6!:(B" . "$,15\(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
893 ("$(6!;(B" . "$,15](B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
894 ("$(6!<(B" . "$,15^(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
895 ("$(6!=(B" . "$,15_(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
896 ("$(6!>(B" . "$,15`(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
897 ("$(6!?(B" . "$,15a(B") |
41470 | 898 ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f |
89298
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
899 ;;2140 $(6!@!A!B!C!D!E!F!G!H!I!J!K!L!M!N!O(B |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
900 ("$(6!@(B" . "$,15b(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
901 ("$(6!A(B" . "$,15c(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
902 ("$(6!B(B" . "$,15d(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
903 ("$(6!C(B" . "$,15e(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
904 ("$(6!D(B" . "$,15f(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
905 ("$(6!E(B" . "$,15g(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
906 ("$(6!F(B" . "$,15h(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
907 ("$(6!G(B" . "$,15i(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
908 ("$(6!H(B" . "$,15j(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
909 ("$(6!I(B" . "$,15k(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
910 ("$(6!J(B" . "$,15l(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
911 ("$(6!K(B" . "$,15m(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
912 ("$(6!L(B" . "$,15n(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
913 ("$(6!M(B" . "$,15o(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
914 ("$(6!N(B" . "$,16?(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
915 ("$(6!O(B" . "$,15p(B") |
41470 | 916 ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f |
89298
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
917 ;;2150 $(6!P!Q!R!S!T!U!V!W!X!Y!Z![!\!]!^!_(B |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
918 ("$(6!P(B" . "$,15q(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
919 ("$(6!Q(B" . "$,15r(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
920 ("$(6!R(B" . "$,15s(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
921 ("$(6!S(B" . "$,15t(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
922 ("$(6!T(B" . "$,15u(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
923 ("$(6!U(B" . "$,15v(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
924 ("$(6!V(B" . "$,15w(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
925 ("$(6!W(B" . "$,15x(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
926 ("$(6!X(B" . "$,15y(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
927 ("$(6!Z(B" . "$,15~(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
928 ("$(6![(B" . "$,15(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
929 ("$(6!\(B" . "$,16 (B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
930 ("$(6!](B" . "$,16!(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
931 ("$(6!^(B" . "$,16"(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
932 ("$(6!_(B" . "$,16#(B") |
41470 | 933 ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f |
89298
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
934 ;;2160 $(6!`!a!b!c!d!e!f!g!h!i!j!k!l!m!n!o(B |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
935 ("$(6!`(B" . "$,16&(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
936 ("$(6!a(B" . "$,16'(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
937 ("$(6!b(B" . "$,16((B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
938 ("$(6!c(B" . "$,16%(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
939 ("$(6!d(B" . "$,16*(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
940 ("$(6!e(B" . "$,16+(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
941 ("$(6!f(B" . "$,16,(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
942 ("$(6!g(B" . "$,16)(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
943 ("$(6!h(B" . "$,16-(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
944 ("$(6!i(B" . "$,15|(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
945 ("$(6!j(B" . "$,16D(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
946 ("$(6!j!j(B" . "$,16E(B") |
41470 | 947 ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f |
89298
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
948 ;;2170 $(6!p!q!r!s!t!u!v!w!x!y!z!{!|!}!~(B |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
949 ("$(6!q(B" . "$,16F(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
950 ("$(6!r(B" . "$,16G(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
951 ("$(6!s(B" . "$,16H(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
952 ("$(6!t(B" . "$,16I(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
953 ("$(6!u(B" . "$,16J(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
954 ("$(6!v(B" . "$,16K(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
955 ("$(6!w(B" . "$,16L(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
956 ("$(6!x(B" . "$,16M(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
957 ("$(6!y(B" . "$,16N(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
958 ("$(6!z(B" . "$,16O(B") |
41470 | 959 ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f |
89298
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
960 ;;2220 $(6"!"""#"$"%"&"'"(")"*"+","-"."/(B |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
961 ("$(6"!(B" . "$,16;6-5p(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
962 ("$(6""(B" . "$,16>6-5p(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
963 ("$(6"#(B" . "$,15U6-5p(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
964 ("$(6"$(B" . "$,15W6-5p(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
965 ("$(6"%(B" . "$,15d6-5p(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
966 ("$(6"&(B" . "$,15j6-5p(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
967 ("$(6"'(B" . "$,15k6-5p(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
968 ("$(6")(B" . "$,15v6-5p(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
969 ("$(6",(B" . "$,15p6!(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
970 ("$(6"-(B" . "$,15p6"(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
971 ("$(6".(B" . "$,15q6!(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
972 ("$(6"/(B" . "$,15q6"(B") |
41470 | 973 ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f |
89298
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
974 ;;2230 $(6"0"1"2"3"4"5"6"7"8"9":";"<"=">"?(B |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
975 ("$(6"3(B" . "$,15U6-(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
976 ("$(6"4(B" . "$,15V6-(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
977 ("$(6"5(B" . "$,15W6-(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
978 ("$(6"6(B" . "$,15X6-(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
979 ("$(6"8(B" . "$,15Z6-(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
980 ("$(6"8"q(B" . "$,15Z6-5p6-(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
981 ("$(6":(B" . "$,15\6-(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
982 ("$(6";(B" . "$,15]6-(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
983 ("$(6"<(B" . "$,15^6-(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
984 ("$(6"<(B" . "$,15^6-(B") |
41470 | 985 ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f |
89298
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
986 ;;2240 $(6"@"A"B"C"D"E"F"G"H"I"J"K"L"M"N"O(B |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
987 ("$(6"A(B" . "$,15c6-(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
988 ("$(6"B(B" . "$,15d6-(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
989 ("$(6"C(B" . "$,15e6-(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
990 ("$(6"E(B" . "$,15g6-(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
991 ("$(6"F(B" . "$,15h6-(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
992 ("$(6"G(B" . "$,15i6-(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
993 ("$(6"H(B" . "$,15j6-(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
994 ("$(6"I(B" . "$,15k6-(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
995 ("$(6"J(B" . "$,15l6-(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
996 ("$(6"J(B" . "$,15l6-(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
997 ("$(6"K(B" . "$,15m6-(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
998 ("$(6"L(B" . "$,15n6-(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
999 ("$(6"M(B" . "$,15o6-(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1000 ("$(6"N(B" . "$,16?6-(B") |
41470 | 1001 ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f |
89298
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1002 ;;2250 $(6"P"Q"R"S"T"U"V"W"X"Y"Z"["\"]"^"_(B |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1003 ("$(6"Q(B" . "$,15r6-(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1004 ("$(6"R(B" . "$,15s6-(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1005 ("$(6"S(B" . "$,15t6-(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1006 ("$(6"T(B" . "$,15u6-(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1007 ("$(6"U(B" . "$,15v6-(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1008 ("$(6"V(B" . "$,15w6-(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1009 ("$(6"W(B" . "$,15x6-(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1010 ("$(6"](B" . "$,16-5o(B") |
41470 | 1011 ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f |
89298
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1012 ;;2260 $(6"`"a"b"c"d"e"f"g"h"i"j"k"l"m"n"o(B |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1013 ("$(6"`(B" . "$,15W6-5p6-(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1014 ("$(6"a(B" . "$,15X6-5h6-(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1015 ("$(6"c(B" . "$,15d6-5d6-(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1016 ("$(6"d(B" . "$,15d6-5p6-(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1017 ("$(6"e(B" . "$,15g6-5h6-(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1018 ("$(6"f(B" . "$,15g6-5p6-(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1019 ("$(6"g(B" . "$,15j6-5d6-(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1020 ("$(6"h(B" . "$,15v6-5Z6-(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1021 ("$(6"i(B" . "$,15v6-5p6-(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1022 ("$(6"j(B" . "$,15v6-5u6-(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1023 ("$(6"k(B" . "$,15h6-5h6-(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1024 ("$(6"l(B" . "$,15U6-5w6-(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1025 ("$(6"m(B" . "$,15\6-5^6-(B") |
41470 | 1026 ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f |
89298
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1027 ;;2270 $(6"p"q"r"s"t"u"v"w"x"y"z"{"|"}"~(B |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1028 ("$(6"p(B" . "$,15p6-(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1029 ("$(6"q(B" . "$,16-5p(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1030 ("$(6"r(B" . "$,16-5p(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1031 ("$(6"s(B" . "$,1686-(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1032 ("$(6"t(B" . "$,1696-(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1033 ("$(6"u(B" . "$,16:6-(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1034 ("$(6"y(B" . "$,16>6-(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1035 ("$(6"z(B" . "$,16;6-(B") |
41470 | 1036 ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f |
89298
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1037 ;;2320 $(6#!#"###$#%#&#'#(#)#*#+#,#-#.#/(B |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1038 ("$(6#!(B" . "$,160(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1039 ("$(6#&(B" . "$,15L(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1040 ("$(6#&"p(B" . "$,15p6$(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1041 ("$(6#'(B" . "$,16A(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1042 ("$(6#'"p(B" . "$,15p6C(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1043 ("$(6#*(B" . "$,16@(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1044 ("$(6#*"p(B" . "$,15p6B(B") |
41470 | 1045 ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f |
89298
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1046 ;;2330 $(6#0#1#2#3#4#5#6#7#8#9#:#;#<#=#>#?(B |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1047 ("$(6#3(B" . "$,168(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1048 ("$(6#4(B" . "$,169(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1049 ("$(6#5(B" . "$,16:(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1050 ("$(6#:(B" . "$,16;(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1051 ("$(6#?(B" . "$,16<(B") |
41470 | 1052 ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f |
89298
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1053 ;;2340 $(6#@#A#B#C#D#E#F#G#H#I#J#K#L#M#N#O(B |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1054 ("$(6#@(B" . "$,16=(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1055 ("$(6#I(B" . "$,16>(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1056 ("$(6#J(B" . "$,15}(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1057 ("$(6#K(B" . "$,16$(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1058 ("$(6#L(B" . "$,16B(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1059 ("$(6#M(B" . "$,16C(B") |
41470 | 1060 ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f |
89298
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1061 ;;2350 $(6#P#Q#R#S#T#U#V#W#X#Y#Z#[#\#]#^#_(B |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1062 ("$(6#P(B" . "$,15n6-5h(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1063 ("$(6#Q(B" . "$,15n6-5r(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1064 ("$(6#R(B" . "$,15y6#(B") |
41470 | 1065 ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f |
89298
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1066 ;;2360 $(6#`#a#b#c#d#e#f#g#h#i#j#k#l#m#n#o(B |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1067 ("$(6#`(B" . "$,15r6-5r(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1068 ("$(6#a(B" . "$,15u6-5h(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1069 ("$(6#b(B" . "$,15u6-5u(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1070 ("$(6#c(B" . "$,15v6-5Z(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1071 ("$(6#d(B" . "$,15v6-5h(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1072 ("$(6#e(B" . "$,15v6-5l(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1073 ("$(6#f(B" . "$,15v6-5r(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1074 ("$(6#g(B" . "$,15v6-5u(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1075 ("$(6#h(B" . "$,15w6-5_6-5p6-5o(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1076 ("$(6#i(B" . "$,15w6-5_6-5o(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1077 ("$(6#j(B" . "$,15w6-5_6-5u(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1078 ("$(6#k(B" . "$,15w6-5_(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1079 ("$(6#l(B" . "$,15w6-5`(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1080 ("$(6#m(B" . "$,15x6-5h(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1081 ("$(6#n(B" . "$,15x6-5p(B") |
41470 | 1082 ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f |
89298
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1083 ;;2370 $(6#p#q#r#s#t#u#v#w#x#y#z#{#|#}#~(B |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1084 ("$(6#p(B" . "$,15y6-5c(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1085 ("$(6#q(B" . "$,15y6-5h(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1086 ("$(6#r(B" . "$,15y6-5n(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1087 ("$(6#s(B" . "$,15y6-5o(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1088 ("$(6#t(B" . "$,15y6-5p(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1089 ("$(6#u(B" . "$,15y6-5r(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1090 ("$(6#v(B" . "$,15y6-5u(B") |
41470 | 1091 ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f |
89298
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1092 ;;2420 $(6$!$"$#$$$%$&$'$($)$*$+$,$-$.$/(B |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1093 ("$(6$!(B" . "$,15U6-5d6-5p6-5o(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1094 ("$(6$"(B" . "$,15U6-5d6-5u(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1095 ("$(6$#(B" . "$,15U6-5d6-5o(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1096 ("$(6$$(B" . "$,15U6-5h6-5o(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1097 ("$(6$%(B" . "$,15U6-5p6-5o(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1098 ("$(6$&(B" . "$,15U6-5u6-5o(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1099 ("$(6$'(B" . "$,15U6-5U(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1100 ("$(6$((B" . "$,15U6-5d(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1101 ("$(6$)(B" . "$,15U6-5h(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1102 ("$(6$*(B" . "$,15U6-5n(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1103 ("$(6$+(B" . "$,15U6-5o(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1104 ("$(6$,(B" . "$,15U6-5r(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1105 ("$(6$-(B" . "$,15U6-5u(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1106 ("$(6$.(B" . "$,15U6-5w(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1107 ("$(6$/(B" . "$,15X6-5h(B") |
41470 | 1108 ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f |
89298
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1109 ;;2430 $(6$0$1$2$3$4$5$6$7$8$9$:$;$<$=$>$?(B |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1110 ("$(6$0(B" . "$,15Y6-5U6-5d6-5o(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1111 ("$(6$1(B" . "$,15Y6-5U6-5w6-5u(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1112 ("$(6$2(B" . "$,15Y6-5U6-5d(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1113 ("$(6$3(B" . "$,15Y6-5U6-5w(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1114 ("$(6$4(B" . "$,15Y6-5X6-5p(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1115 ("$(6$5(B" . "$,15Y6-5U6-5o(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1116 ("$(6$6(B" . "$,15Y6-5V6-5o(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1117 ("$(6$7(B" . "$,15Y6-5W6-5o(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1118 ("$(6$8(B" . "$,15Y6-5X6-5o(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1119 ("$(6$9(B" . "$,15Y6-5U(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1120 ("$(6$:(B" . "$,15Y6-5V(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1121 ("$(6$;(B" . "$,15Y6-5W(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1122 ("$(6$<(B" . "$,15Y6-5X(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1123 ("$(6$=(B" . "$,15Y6-5Y(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1124 ("$(6$>(B" . "$,15Y6-5h(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1125 ("$(6$?(B" . "$,15Y6-5n(B") |
41470 | 1126 ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f |
89298
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1127 ;;2440 $(6$@$A$B$C$D$E$F$G$H$I$J$K$L$M$N$O(B |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1128 ("$(6$@(B" . "$,15Y6-5o(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1129 ("$(6$A(B" . "$,15Z6-5Z(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1130 ("$(6$B(B" . "$,15Z6-5^(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1131 ("$(6$C(B" . "$,15[6-5o(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1132 ("$(6$D(B" . "$,15\6-5p(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1133 ("$(6$E(B" . "$,15\6-5^(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1134 ("$(6$F(B" . "$,15^6-5Z(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1135 ("$(6$G(B" . "$,15^6-5\(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1136 ("$(6$H(B" . "$,15_6-5U(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1137 ("$(6$I(B" . "$,15_6-5_(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1138 ("$(6$J(B" . "$,15_6-5`(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1139 ("$(6$K(B" . "$,15_6-5o(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1140 ("$(6$L(B" . "$,15`6-5o(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1141 ("$(6$M(B" . "$,15a6-5W6-5o(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1142 ("$(6$N(B" . "$,15a6-5X6-5p(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1143 ("$(6$O(B" . "$,15a6-5p6-5o(B") |
41470 | 1144 ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f |
89298
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1145 ;;2450 $(6$P$Q$R$S$T$U$V$W$X$Y$Z$[$\$]$^$_(B |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1146 ("$(6$P(B" . "$,15a6-5W(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1147 ("$(6$Q(B" . "$,15a6-5X(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1148 ("$(6$R(B" . "$,15a6-5a(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1149 ("$(6$S(B" . "$,15a6-5n(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1150 ("$(6$T(B" . "$,15a6-5o(B") |
41470 | 1151 ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f |
89298
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1152 ;;2460 $(6$`$a$b$c$d$e$f$g$h$i$j$k$l$m$n$o(B |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1153 ("$(6$`(B" . "$,15b6-5o(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1154 ("$(6$a(B" . "$,15d6-5d(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1155 ("$(6$b(B" . "$,15d6-5h(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1156 ("$(6$c(B" . "$,15f6-5f6-5o(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1157 ("$(6$d(B" . "$,15f6-5g6-5o(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1158 ("$(6$e(B" . "$,15f6-5m6-5o(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1159 ("$(6$f(B" . "$,15f6-5p6-5o(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1160 ("$(6$g(B" . "$,15f6-5u6-5o(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1161 ("$(6$h(B" . "$,15f6-5W6-5p(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1162 ("$(6$i(B" . "$,15f6-5X6-5p(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1163 ("$(6$j(B" . "$,15f6-5f6-5u(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1164 ("$(6$k(B" . "$,15f6-5g6-5u(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1165 ("$(6$l(B" . "$,15f6-5W(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1166 ("$(6$m(B" . "$,15f6-5X(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1167 ("$(6$n(B" . "$,15f6-5f(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1168 ("$(6$o(B" . "$,15f6-5g(B") |
41470 | 1169 ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f |
89298
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1170 ;;2470 $(6$p$q$r$s$t$u$v$w$x$y$z${$|$}$~(B |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1171 ("$(6$p(B" . "$,15f6-5h(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1172 ("$(6$q(B" . "$,15f6-5l(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1173 ("$(6$r(B" . "$,15f6-5m(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1174 ("$(6$s(B" . "$,15f6-5n(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1175 ("$(6$t(B" . "$,15f6-5o(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1176 ("$(6$u(B" . "$,15f6-5u(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1177 ("$(6$v(B" . "$,15g6-5h(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1178 ("$(6$w(B" . "$,15h6-5h(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1179 ("$(6$x(B" . "$,15j6-5d(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1180 ("$(6$y(B" . "$,15j6-5h(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1181 ("$(6$z(B" . "$,15j6-5r(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1182 ("$(6${(B" . "$,15l6-5h(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1183 ("$(6$|(B" . "$,15l6-5l(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1184 ("$(6$}(B" . "$,15l6-5u(B") |
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1185 ("$(6$~(B" . "$,15m6-5h(B"))) |
41470 | 1186 |
1187 (defconst indian-2-column-to-ucs-regexp | |
89298
e1d0641b8107
(indian-compose-region): Don't call
Kenichi Handa <handa@m17n.org>
parents:
89262
diff
changeset
|
1188 "$(6!j!j(B\\|$(6"8"q(B\\|[$(6#&#'!*#*(B]$(6"p(B\\|[$(6!!(B-$(6$~(B]") |
41470 | 1189 |
1190 (put 'indian-2-column-to-ucs-chartable 'char-table-extra-slots 1) | |
1191 (defconst indian-2-column-to-ucs-chartable | |
1192 (let ((table (make-char-table 'indian-2-column-to-ucs-chartable)) | |
89094 | 1193 (alist nil)) |
41470 | 1194 (dolist (elt indian-2-colum-to-ucs) |
1195 (if (= (length (car elt)) 1) | |
89094 | 1196 (aset table (aref (car elt) 0) (cdr elt)) |
1197 (setq alist (cons elt alist)))) | |
41470 | 1198 (set-char-table-extra-slot table 0 alist) |
1199 table)) | |
1200 | |
89262
17709000b5f0
(indian-2-column-to-ucs-region): Add autoload cookie.
Kenichi Handa <handa@m17n.org>
parents:
89110
diff
changeset
|
1201 ;;;###autoload |
41470 | 1202 (defun indian-2-column-to-ucs-region (from to) |
1203 "Convert old Emacs Devanagari characters to UCS." | |
1204 (interactive "r") | |
1205 (save-excursion | |
1206 (save-restriction | |
1207 (let ((pos from) | |
89094 | 1208 (alist (char-table-extra-slot indian-2-column-to-ucs-chartable 0))) |
1209 (narrow-to-region from to) | |
1210 (decompose-region from to) | |
1211 (goto-char (point-min)) | |
1212 (while (re-search-forward indian-2-column-to-ucs-regexp nil t) | |
1213 (let ((len (- (match-end 0) (match-beginning 0))) | |
1214 subst) | |
1215 (if (= len 1) | |
1216 (setq subst (aref indian-2-column-to-ucs-chartable | |
42056 | 1217 (char-after (match-beginning 0)))) |
89483 | 1218 (setq subst (cdr (assoc (match-string 0) alist)))) |
89094 | 1219 (replace-match (if subst subst "?")))) |
1220 (indian-compose-region (point-min) (point-max)))))) | |
42056 | 1221 |
89094 | 1222 (provide 'ind-util) |
42056 | 1223 |
41470 | 1224 ;;; ind-util.el ends here |