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