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