HCoop / bpt / emacs.git / blob
? search:
summary | shortlog | log | commit | commitdiff | tree
blame | history | raw | HEAD
Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-68
[bpt/emacs.git] / lisp / language / ind-util.el
1 ;;; ind-util.el --- Transliteration and Misc. Tools for Indian Languages -*- coding: iso-2022-7bit; -*-
2
3 ;; Copyright (C) 2001, 2003 Free Software Foundation, Inc.
4
5 ;; Maintainer: KAWABATA, Taichi <kawabata@m17n.org>
6 ;; Keywords: multilingual, Indian, Devanagari
7
8 ;; This file is part of GNU Emacs.
9
10 ;; GNU Emacs is free software; you can redistribute it and/or modify
11 ;; it under the terms of the GNU General Public License as published by
12 ;; the Free Software Foundation; either version 2, or (at your option)
13 ;; any later version.
14
15 ;; GNU Emacs is distributed in the hope that it will be useful,
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18 ;; GNU General Public License for more details.
19
20 ;; You should have received a copy of the GNU General Public License
21 ;; along with GNU Emacs; see the file COPYING. If not, write to the
22 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
23 ;; Boston, MA 02110-1301, USA.
24
25 ;;; Commentary:
26
27 ;; This file provides conversion between UCS and various
28 ;; transliteration schemes, such as ITRANS, kyoto-harvard and aiba
29 ;; methods. It also provides conversion between IS 13194 and UCS.
30 ;; Finally, this program provides the compatibility support with
31 ;; old implementation of Devanagari script.
32
33 ;;; Code:
34
35 ;;; Transliteration
36
37 ;; The followings provide the various transliteration schemes (such as
38 ;; ITRANS, kyoto-harvard, and Aiba) of Indian scripts. They are also
39 ;; used in quail/indian.el for typing Indian script in Emacs.
40
41 (eval-and-compile
42
43 (defun indian-regexp-of-hashtbl-keys (hashtbl)
44 "Returns the regular expression of hashtable keys."
45 (let (keys)
46 (maphash (lambda (key val) (push key keys)) hashtbl)
47 (regexp-opt keys)))
48
49 (defvar indian-dev-base-table
50 '(
51 (;; VOWELS (18)
52 (?\e$,15E\e(B nil) (?\e$,15F\e(B ?\e$,15~\e(B) (?\e$,15G\e(B ?\e$,15\7f\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)
53 (?\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)
54 (?\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))
55 (;; CONSONANTS (currently 42, including special cases)
56 ?\e$,15U\e(B ?\e$,15V\e(B ?\e$,15W\e(B ?\e$,15X\e(B ?\e$,15Y\e(B ;; GUTTRULS
57 ?\e$,15Z\e(B ?\e$,15[\e(B ?\e$,15\\e(B ?\e$,15]\e(B ?\e$,15^\e(B ;; PALATALS
58 ?\e$,15_\e(B ?\e$,15`\e(B ?\e$,15a\e(B ?\e$,15b\e(B ?\e$,15c\e(B ;; CEREBRALS
59 ?\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
60 ?\e$,15j\e(B ?\e$,15k\e(B ?\e$,15l\e(B ?\e$,15m\e(B ?\e$,15n\e(B ;; LABIALS
61 ?\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
62 ?\e$,15v\e(B ?\e$,15w\e(B ?\e$,15x\e(B ?\e$,15y\e(B ;; SIBILANTS
63 ?\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
64 "\e$,15\6-5^\e(B" "\e$,15U6-5w\e(B")
65 (;; Misc Symbols (7)
66 ?\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)
67 (;; Digits (10)
68 ?\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)
69 (;; Inscript-extra (4) (#, $, ^, *, ])
70 "\e$,16-5p\e(B" "\e$,15p6-\e(B" "\e$,15d6-5p\e(B" "\e$,15v6-5p\e(B" "\e$,15|\e(B")))
71
72 ;; Punjabi is also known as Gurmukhi.
73 (defvar indian-pnj-base-table
74 '(
75 (;; VOWELS
76 (?\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)
77 nil nil nil nil (?\e$,18/\e(B ?\e$,18g\e(B) (?\e$,180\e(B ?\e$,18h\e(B)
78 nil nil (?\e$,183\e(B ?\e$,18k\e(B) (?\e$,184\e(B ?\e$,18l\e(B) nil nil)
79 (;; CONSONANTS
80 ?\e$,185\e(B ?\e$,186\e(B ?\e$,187\e(B ?\e$,188\e(B ?\e$,189\e(B ;; GUTTRULS
81 ?\e$,18:\e(B ?\e$,18;\e(B ?\e$,18<\e(B ?\e$,18=\e(B ?\e$,18>\e(B ;; PALATALS
82 ?\e$,18?\e(B ?\e$,18@\e(B ?\e$,18A\e(B ?\e$,18B\e(B ?\e$,18C\e(B ;; CEREBRALS
83 ?\e$,18D\e(B ?\e$,18E\e(B ?\e$,18F\e(B ?\e$,18G\e(B ?\e$,18H\e(B nil ;; DENTALS
84 ?\e$,18J\e(B ?\e$,18K\e(B ?\e$,18L\e(B ?\e$,18M\e(B ?\e$,18N\e(B ;; LABIALS
85 ?\e$,18O\e(B ?\e$,18P\e(B nil ?\e$,18R\e(B ?\e$,18S\e(B nil ?\e$,18U\e(B ;; SEMIVOWELS
86 ?\e$,18V\e(B nil ?\e$,18X\e(B ?\e$,18Y\e(B ;; SIBILANTS
87 nil ?\e$,18y\e(B ?\e$,18z\e(B ?\e$,18{\e(B ?\e$,18|\e(B nil ?\e$,18~\e(B nil ;; NUKTAS
88 "\e$,18<8m8>\e(B" nil)
89 (;; Misc Symbols (7)
90 nil ?\e$,18"\e(B nil nil ?\e$,18m\e(B nil nil) ;; ek onkar, etc.
91 (;; Digits
92 ?\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)
93 (;; Inscript-extra (4) (#, $, ^, *, ])
94 "\e$,18m8P\e(B" "\e$,18P8m\e(B" "\e$,18D8m8P\e(B" "\e$,18V8m8P\e(B" "\e$,18\\e(B")))
95
96 (defvar indian-gjr-base-table
97 '(
98 (;; VOWELS
99 (?\e$,19E\e(B nil) (?\e$,19F\e(B ?\e$,19~\e(B) (?\e$,19G\e(B ?\e$,19\7f\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)
100 (?\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)
101 (?\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)
102 (;; CONSONANTS
103 ?\e$,19U\e(B ?\e$,19V\e(B ?\e$,19W\e(B ?\e$,19X\e(B ?\e$,19Y\e(B ;; GUTTRULS
104 ?\e$,19Z\e(B ?\e$,19[\e(B ?\e$,19\\e(B ?\e$,19]\e(B ?\e$,19^\e(B ;; PALATALS
105 ?\e$,19_\e(B ?\e$,19`\e(B ?\e$,19a\e(B ?\e$,19b\e(B ?\e$,19c\e(B ;; CEREBRALS
106 ?\e$,19d\e(B ?\e$,19e\e(B ?\e$,19f\e(B ?\e$,19g\e(B ?\e$,19h\e(B nil ;; DENTALS
107 ?\e$,19j\e(B ?\e$,19k\e(B ?\e$,19l\e(B ?\e$,19m\e(B ?\e$,19n\e(B ;; LABIALS
108 ?\e$,19o\e(B ?\e$,19p\e(B nil ?\e$,19r\e(B ?\e$,19s\e(B nil ?\e$,19u\e(B ;; SEMIVOWELS
109 ?\e$,19v\e(B ?\e$,19w\e(B ?\e$,19x\e(B ?\e$,19y\e(B ;; SIBILANTS
110 nil nil nil nil nil nil nil nil ;; NUKTAS
111 "\e$,19\:-9^\e(B" "\e$,19U:-9w\e(B")
112 (;; Misc Symbols (7)
113 ?\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)
114 (;; Digits
115 ?\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)
116 (;; Inscript-extra (4) (#, $, ^, *, ])
117 "\e$,1:-9p\e(B" "\e$,19p:-\e(B" "\e$,19d:-9p\e(B" "\e$,19v:-9p\e(B" "\e$,19|\e(B")))
118
119 (defvar indian-ori-base-table
120 '(
121 (;; VOWELS
122 (?\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)
123 (?\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)
124 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))
125 (;; CONSONANTS
126 ?\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
127 ?\e$,1:z\e(B ?\e$,1:{\e(B ?\e$,1:|\e(B ?\e$,1:}\e(B ?\e$,1:~\e(B ;; PALATALS
128 ?\e$,1:\7f\e(B ?\e$,1; \e(B ?\e$,1;!\e(B ?\e$,1;"\e(B ?\e$,1;#\e(B ;; CEREBRALS
129 ?\e$,1;$\e(B ?\e$,1;%\e(B ?\e$,1;&\e(B ?\e$,1;'\e(B ?\e$,1;(\e(B nil ;; DENTALS
130 ?\e$,1;*\e(B ?\e$,1;+\e(B ?\e$,1;,\e(B ?\e$,1;-\e(B ?\e$,1;.\e(B ;; LABIALS
131 ?\e$,1;/\e(B ?\e$,1;0\e(B nil ?\e$,1;2\e(B ?\e$,1;3\e(B nil nil ;; SEMIVOWELS
132 ?\e$,1;6\e(B ?\e$,1;7\e(B ?\e$,1;8\e(B ?\e$,1;9\e(B ;; SIBILANTS
133 nil nil nil nil ?\e$,1;\\e(B ?\e$,1;]\e(B nil ?\e$,1;_\e(B ;; NUKTAS
134 "\e$,1:|;M:~\e(B" "\e$,1:u;M;7\e(B")
135 (;; Misc Symbols
136 ?\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)
137 (;; Digits
138 ?\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)
139 (;; Inscript-extra (4) (#, $, ^, *, ])
140 "\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")))
141
142 (defvar indian-bng-base-table
143 '(
144 (;; VOWELS
145 (?\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)
146 (?\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)
147 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))
148 (;; CONSONANTS
149 ?\e$,16u\e(B ?\e$,16v\e(B ?\e$,16w\e(B ?\e$,16x\e(B ?\e$,16y\e(B ;; GUTTRULS
150 ?\e$,16z\e(B ?\e$,16{\e(B ?\e$,16|\e(B ?\e$,16}\e(B ?\e$,16~\e(B ;; PALATALS
151 ?\e$,16\7f\e(B ?\e$,17 \e(B ?\e$,17!\e(B ?\e$,17"\e(B ?\e$,17#\e(B ;; CEREBRALS
152 ?\e$,17$\e(B ?\e$,17%\e(B ?\e$,17&\e(B ?\e$,17'\e(B ?\e$,17(\e(B nil ;; DENTALS
153 ?\e$,17*\e(B ?\e$,17+\e(B ?\e$,17,\e(B ?\e$,17-\e(B ?\e$,17.\e(B ;; LABIALS
154 ?\e$,17/\e(B ?\e$,170\e(B nil ?\e$,172\e(B nil nil nil ;; SEMIVOWELS
155 ?\e$,176\e(B ?\e$,177\e(B ?\e$,178\e(B ?\e$,179\e(B ;; SIBILANTS
156 nil nil nil nil ?\e$,17\\e(B ?\e$,17]\e(B nil ?\e$,17_\e(B ;; NUKTAS
157 "\e$,16|7M6~\e(B" "\e$,16u7M77\e(B")
158 (;; Misc Symbols
159 ?\e$,16a\e(B ?\e$,16b\e(B ?\e$,16c\e(B nil ?\e$,17M\e(B nil nil)
160 (;; Digits
161 ?\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)
162 (;; Inscript-extra (4) (#, $, ^, *, ])
163 "\e$,17M70\e(B" "\e$,1707M\e(B" "\e$,17$7M70\e(B" "\e$,1767M70\e(B" "\e$,17<\e(B")))
164
165 (defvar indian-asm-base-table
166 '(
167 (;; VOWELS
168 (?\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)
169 (?\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)
170 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))
171 (;; CONSONANTS
172 ?\e$,16u\e(B ?\e$,16v\e(B ?\e$,16w\e(B ?\e$,16x\e(B ?\e$,16y\e(B ;; GUTTRULS
173 ?\e$,16z\e(B ?\e$,16{\e(B ?\e$,16|\e(B ?\e$,16}\e(B ?\e$,16~\e(B ;; PALATALS
174 ?\e$,16\7f\e(B ?\e$,17 \e(B ?\e$,17!\e(B ?\e$,17"\e(B ?\e$,17#\e(B ;; CEREBRALS
175 ?\e$,17$\e(B ?\e$,17%\e(B ?\e$,17&\e(B ?\e$,17'\e(B ?\e$,17(\e(B nil ;; DENTALS
176 ?\e$,17*\e(B ?\e$,17+\e(B ?\e$,17,\e(B ?\e$,17-\e(B ?\e$,17.\e(B ;; LABIALS
177 ?\e$,17/\e(B ?\e$,17p\e(B nil ?\e$,172\e(B nil nil ?\e$,17q\e(B ;; SEMIVOWELS
178 ?\e$,176\e(B ?\e$,177\e(B ?\e$,178\e(B ?\e$,179\e(B ;; SIBILANTS
179 nil nil nil nil ?\e$,17\\e(B ?\e$,17]\e(B nil ?\e$,17_\e(B ;; NUKTAS
180 "\e$,16|7M6~\e(B" "\e$,16u7M77\e(B")
181 (;; Misc Symbols
182 ?\e$,16a\e(B ?\e$,16b\e(B ?\e$,16c\e(B nil ?\e$,17M\e(B nil nil)
183 (;; Digits
184 ?\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)
185 (;; Inscript-extra (4) (#, $, ^, *, ])
186 "\e$,17M7p\e(B" "\e$,17p7M\e(B" "\e$,17$7M7p\e(B" "\e$,1767M7p\e(B" "\e$,17<\e(B")))
187
188 (defvar indian-tlg-base-table
189 '(
190 (;; VOWELS
191 (?\e$,1=E\e(B nil) (?\e$,1=F\e(B ?\e$,1=~\e(B) (?\e$,1=G\e(B ?\e$,1=\7f\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)
192 (?\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)
193 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))
194 (;; CONSONANTS
195 ?\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
196 ?\e$,1=Z\e(B ?\e$,1=[\e(B ?\e$,1=\\e(B ?\e$,1=]\e(B ?\e$,1=^\e(B ;; PALATALS
197 ?\e$,1=_\e(B ?\e$,1=`\e(B ?\e$,1=a\e(B ?\e$,1=b\e(B ?\e$,1=c\e(B ;; CEREBRALS
198 ?\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
199 ?\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
200 ?\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
201 ?\e$,1=v\e(B ?\e$,1=w\e(B ?\e$,1=x\e(B ?\e$,1=y\e(B ;; SIBILANTS
202 nil nil nil nil nil nil nil nil ;; NUKTAS
203 "\e$,1=\>-=^\e(B" "\e$,1=U>-=w\e(B")
204 (;; Misc Symbols
205 ?\e$,1=A\e(B ?\e$,1=B\e(B ?\e$,1=C\e(B nil ?\e$,1>-\e(B nil nil)
206 (;; Digits
207 ?\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)
208 (;; Inscript-extra (4) (#, $, ^, *, ])
209 "\e$,1>-=p\e(B" "\e$,1=p>-\e(B" "\e$,1=d>-=p\e(B" "\e$,1=v>-=p\e(B" nil)))
210
211 (defvar indian-knd-base-table
212 '(
213 (;; VOWELS
214 (?\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)
215 (?\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)
216 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))
217 (;; CONSONANTS
218 ?\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
219 ?\e$,1>z\e(B ?\e$,1>{\e(B ?\e$,1>|\e(B ?\e$,1>}\e(B ?\e$,1>~\e(B ;; PALATALS
220 ?\e$,1>\7f\e(B ?\e$,1? \e(B ?\e$,1?!\e(B ?\e$,1?"\e(B ?\e$,1?#\e(B ;; CEREBRALS
221 ?\e$,1?$\e(B ?\e$,1?%\e(B ?\e$,1?&\e(B ?\e$,1?'\e(B ?\e$,1?(\e(B nil ;; DENTALS
222 ?\e$,1?*\e(B ?\e$,1?+\e(B ?\e$,1?,\e(B ?\e$,1?-\e(B ?\e$,1?.\e(B ;; LABIALS
223 ?\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
224 ?\e$,1?6\e(B ?\e$,1?7\e(B ?\e$,1?8\e(B ?\e$,1?9\e(B ;; SIBILANTS
225 nil nil nil nil nil nil ?\e$,1?^\e(B nil ;; NUKTAS
226 "\e$,1>|?M>~\e(B" "\e$,1>u?M?7\e(B")
227 (;; Misc Symbols
228 nil ?\e$,1>b\e(B ?\e$,1>c\e(B nil ?\e$,1?M\e(B nil nil)
229 (;; Digits
230 ?\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)
231 (;; Inscript-extra (4) (#, $, ^, *, ])
232 "\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)))
233
234 (defvar indian-mlm-base-table
235 '(
236 (;; VOWELS
237 (?\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)
238 (?\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)
239 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)
240 (;; CONSONANTS
241 ?\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
242 ?\e$,1@:\e(B ?\e$,1@;\e(B ?\e$,1@<\e(B ?\e$,1@=\e(B ?\e$,1@>\e(B ;; PALATALS
243 ?\e$,1@?\e(B ?\e$,1@@\e(B ?\e$,1@A\e(B ?\e$,1@B\e(B ?\e$,1@C\e(B ;; CEREBRALS
244 ?\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
245 ?\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
246 ?\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
247 ?\e$,1@V\e(B ?\e$,1@W\e(B ?\e$,1@X\e(B ?\e$,1@Y\e(B ;; SIBILANTS
248 nil nil nil nil nil nil nil nil ;; NUKTAS
249 "\e$,1@<@m@>\e(B" "\e$,1@5@m@W\e(B")
250 (;; Misc Symbols
251 nil ?\e$,1@"\e(B ?\e$,1@#\e(B nil ?\e$,1@m\e(B nil nil)
252 (;; Digits
253 ?\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)
254 (;; Inscript-extra (4) (#, $, ^, *, ])
255 "\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)))
256
257 (defvar indian-tml-base-table
258 '(
259 (;; VOWELS
260 (?\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)
261 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)
262 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)
263 (;; CONSONANTS
264 ?\e$,1<5\e(B nil nil nil ?\e$,1<9\e(B ;; GUTTRULS
265 ?\e$,1<:\e(B nil ?\e$,1<<\e(B nil ?\e$,1<>\e(B ;; PALATALS
266 ?\e$,1<?\e(B nil nil nil ?\e$,1<C\e(B ;; CEREBRALS
267 ?\e$,1<D\e(B nil nil nil ?\e$,1<H\e(B ?\e$,1<I\e(B ;; DENTALS
268 ?\e$,1<J\e(B nil nil nil ?\e$,1<N\e(B ;; LABIALS
269 ?\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
270 nil ?\e$,1<W\e(B ?\e$,1<X\e(B ?\e$,1<Y\e(B ;; SIBILANTS
271 nil nil nil nil nil nil nil nil ;; NUKTAS
272 "\e$,1<<<m<>\e(B" "\e$,1<5<m<W\e(B")
273 (;; Misc Symbols
274 nil ?\e$,1<"\e(B ?\e$,1<#\e(B nil ?\e$,1<m\e(B nil nil)
275 (;; Digits
276 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)
277 (;; Inscript-extra (4) (#, $, ^, *, ])
278 "\e$,1<m<P\e(B" "\e$,1<P<m\e(B" "\e$,1<D<m<P\e(B" nil nil)))
279
280 (defvar indian-base-table-to-language-alist
281 '((indian-dev-base-table . "Devanagari")
282 (indian-pnj-base-table . "Punjabi")
283 (indian-ori-base-table . "Oriya")
284 (indian-bng-base-table . "Bengali")
285 (indian-asm-base-table . "Assamese")
286 (indian-tlg-base-table . "Telugu")
287 (indian-knd-base-table . "Kannada")
288 (indian-mlm-base-table . "Malayalam")
289 (indian-tml-base-table . "Tamil")))
290
291 (defvar indian-itrans-v5-table
292 '(;; for encode/decode
293 (;; vowels -- 18
294 "a" ("aa" "A") "i" ("ii" "I") "u" ("uu" "U")
295 ("RRi" "R^i") ("LLi" "L^i") (".c" "e.c") "E" "e" "ai"
296 "o.c" "O" "o" "au" ("RRI" "R^I") ("LLI" "L^I"))
297 (;; consonants -- 40
298 "k" "kh" "g" "gh" ("~N" "N^")
299 "ch" ("Ch" "chh") "j" "jh" ("~n" "JN")
300 "T" "Th" "D" "Dh" "N"
301 "t" "th" "d" "dh" "n" "nh"
302 "p" "ph" "b" "bh" "m"
303 "y" "r" "rh" "l" ("L" "ld") nil ("v" "w")
304 "sh" ("Sh" "shh") "s" "h"
305 "q" "K" "G" ("J" "z") ".D" ".Dh" "f" ("Y" "yh")
306 ("GY" "dny") "x")
307 (;; misc -- 7
308 ".N" (".n" "M") "H" ".a" ".h" ("AUM" "OM") "..")))
309
310 (defvar indian-kyoto-harvard-table
311 '(;; for encode/decode
312 (;; vowel
313 "a" ("A" "aa") "i" ("I" "ii") "u" ("U" "uu")
314 "R" ("L" "lR") nil nil "e" "ai"
315 nil nil "o" "au" ("q" "RR" "Q") ("E" "LL" "lRR"))
316 (;; consonant
317 "k" "kh" "g" "gh" "G"
318 "c" "ch" "j" "jh" "J"
319 "T" "Th" "D" "Dh" "N"
320 "t" "th" "d" "dh" "n" nil
321 "p" "ph" "b" "bh" "m"
322 "y" "r" nil "l" "L" nil "v"
323 ("z" "Z") "S" "s" "h"
324 nil nil nil nil nil nil nil nil
325 nil nil)
326 (;; misc
327 nil "M" "H" "'" nil "." nil)))
328
329 (defvar indian-harvard-table
330 '(;; for encode/decode
331 (;; vowel
332 "a" ("A" "aa") "i" ("I" "ii") "u" ("U" "uu")
333 "R" ("L" "lR") nil nil "e" "ai"
334 nil nil "o" "au" ("RR" "q" "Q") ("LL" "E" "lRR"))
335 (;; consonant
336 "k" "kh" "g" "gh" "G"
337 "c" "ch" "j" "jh" "J"
338 "T" "Th" "D" "Dh" "N"
339 "t" "th" "d" "dh" "n" nil
340 "p" "ph" "b" "bh" "m"
341 "y" "r" nil "l" "L" nil "v"
342 ("z" "Z") "S" "s" "h"
343 nil nil nil nil nil nil nil nil
344 nil nil)
345 (;; misc
346 nil "M" "H" "'" nil "." nil)))
347
348 (defvar indian-tokyo-table
349 '(;; for encode/decode
350 (;; vowel
351 "a" ("A" "aa") "i" ("I" "ii") "u" ("U" "uu")
352 "R" ("L" "lR") nil nil "e" "ai"
353 nil nil "o" "au" ("Q" "RR" "q") ("E" "LL" "lRR"))
354 (;; consonant
355 "k" "kh" "g" "gh" "G"
356 "c" "ch" "j" "jh" "J"
357 "T" "Th" "D" "Dh" "N"
358 "t" "th" "d" "dh" "n" nil
359 "p" "ph" "b" "bh" "m"
360 "y" "r" nil "l" "L" nil "v"
361 ("Z" "z") "S" "s" "h"
362 nil nil nil nil nil nil nil nil
363 nil nil)
364 (;; misc
365 nil "M" "H" "'" nil "." nil)))
366
367 (defvar indian-aiba-table
368 '(;; for encode/decode
369 (;; vowel
370 "a" "aa" "i" "ii" "u" "uu"
371 ".r" ".l" nil nil "e" "ai"
372 nil nil "o" "au" "~r" "~l")
373 (;; consonant
374 "k" "kh" "g" "gh" "^n"
375 "c" "ch" "j" "jh" "~n"
376 ".t" ".th" ".d" ".dh" ".n"
377 "t" "th" "d" "dh" "n" nil
378 "p" "ph" "b" "bh" "m"
379 "y" "r" nil "l" nil nil "v"
380 "^s" ".s" "s" "h"
381 nil nil nil nil nil nil nil nil
382 nil nil)
383 (;; misc
384 nil ".m" ".h" "'" nil "." nil)))
385
386 (defun mapthread (function seq1 &rest seqrest)
387 "Apply FUNCTION to each element of SEQ1 and return result list.
388 If there are several SEQRESTs, FUNCTION is called with that many
389 arguments, with all possible combinations of these multiple SEQUENCES.
390 Thus, if SEQ1 contains 3 elements and SEQ2 contains 5 elements, then
391 FUNCTION will be called 15 times."
392 (if seqrest
393 (mapcar
394 (lambda (x)
395 (apply
396 'mapthread
397 `(lambda (&rest y) (apply ',function x y))
398 seqrest))
399 seq1)
400 (mapcar function seq1)))
401
402 (defun indian--puthash-char (char trans-char hashtbls)
403 (let ((encode-hash (car hashtbls)) ;; char -> trans
404 (decode-hash (cdr hashtbls)) ;; trans -> char
405 )
406 ;; char -- nil / char / string (/ list of vowel & matra)
407 ;; trans-char -- nil / string / list of strings
408 (when (and char trans-char)
409 (if (stringp trans-char) (setq trans-char (list trans-char)))
410 (if (characterp char) (setq char (char-to-string char)))
411 (puthash char (car trans-char) encode-hash)
412 (dolist (trans trans-char)
413 (puthash trans char decode-hash)))))
414
415 (defun indian--map (f l1 l2)
416 (while l1
417 (funcall f (pop l1) (pop l2))))
418
419 (defun indian--puthash-v (v trans-v hashtbls)
420 (indian--map
421 (lambda (v trans-v)
422 (indian--puthash-char (car v) trans-v hashtbls))
423 v trans-v))
424
425 (defun indian--puthash-c (c trans-c halant hashtbls)
426 (indian--map
427 (lambda (c trans-c)
428 (if (characterp c) (setq c (char-to-string c)))
429 (indian--puthash-char (concat c halant) trans-c hashtbls))
430 c trans-c))
431
432 (defun indian--puthash-m (m trans-m hashtbls)
433 (indian--map
434 (lambda (m trans-m)
435 (indian--puthash-char m trans-m hashtbls))
436 m trans-m))
437
438 (defun indian--puthash-cv (c trans-c v trans-v hashtbls)
439 (indian--map
440 (lambda (c trans-c)
441 (indian--map
442 (lambda (v trans-v)
443 (when (and c trans-c v trans-v)
444 (if (characterp c) (setq c (char-to-string c)))
445 (setq v (if (characterp (cadr v)) (char-to-string (cadr v)) ""))
446 (if (stringp trans-c) (setq trans-c (list trans-c)))
447 (if (stringp trans-v) (setq trans-v (list trans-v)))
448 (indian--puthash-char
449 (concat c v)
450 (apply 'append
451 (mapthread 'concat trans-c trans-v))
452 hashtbls)))
453 v trans-v))
454 c trans-c))
455
456 (defun indian-make-hash (table trans-table)
457 "Indian Transliteration Hash for decode/encode"
458 (let* ((encode-hash (make-hash-table :test 'equal))
459 (decode-hash (make-hash-table :test 'equal))
460 (hashtbls (cons encode-hash decode-hash))
461 (vowels (elt table 0))
462 (consonants (elt table 1))
463 (misc (elt table 2))
464 (digits (elt table 3))
465 (halant (char-to-string (elt misc 4)))
466 (trans-vowels (elt trans-table 0))
467 (trans-consonants (elt trans-table 1))
468 (trans-misc (elt trans-table 2))
469 (trans-digits '("0" "1" "2" "3" "4" "5" "6" "7" "8" "9")))
470 (indian--puthash-v vowels trans-vowels hashtbls)
471 (indian--puthash-c consonants trans-consonants halant hashtbls)
472 (indian--puthash-cv consonants trans-consonants
473 vowels trans-vowels hashtbls)
474 (indian--puthash-m misc trans-misc hashtbls)
475 (indian--puthash-m digits trans-digits hashtbls)
476 hashtbls))
477
478 (defvar indian-dev-itrans-v5-hash
479 (indian-make-hash indian-dev-base-table
480 indian-itrans-v5-table))
481 (defvar indian-dev-kyoto-harvard-hash
482 (indian-make-hash indian-dev-base-table
483 indian-kyoto-harvard-table))
484 (defvar indian-dev-aiba-hash
485 (indian-make-hash indian-dev-base-table
486 indian-aiba-table))
487
488 (defvar indian-pnj-itrans-v5-hash
489 (indian-make-hash indian-pnj-base-table
490 indian-itrans-v5-table))
491
492 (defvar indian-gjr-itrans-v5-hash
493 (indian-make-hash indian-gjr-base-table
494 indian-itrans-v5-table))
495
496 (defvar indian-ori-itrans-v5-hash
497 (indian-make-hash indian-ori-base-table
498 indian-itrans-v5-table))
499
500 (defvar indian-bng-itrans-v5-hash
501 (indian-make-hash indian-bng-base-table
502 indian-itrans-v5-table))
503
504 (defvar indian-asm-itrans-v5-hash
505 (indian-make-hash indian-asm-base-table
506 indian-itrans-v5-table))
507
508 (defvar indian-tlg-itrans-v5-hash
509 (indian-make-hash indian-tlg-base-table
510 indian-itrans-v5-table))
511
512 (defvar indian-knd-itrans-v5-hash
513 (indian-make-hash indian-knd-base-table
514 indian-itrans-v5-table))
515
516 (defvar indian-mlm-itrans-v5-hash
517 (indian-make-hash indian-mlm-base-table
518 indian-itrans-v5-table))
519
520 (defvar indian-tml-itrans-v5-hash
521 (indian-make-hash indian-tml-base-table
522 indian-itrans-v5-table))
523 )
524
525 (defmacro indian-translate-region (from to hashtable encode-p)
526 `(save-excursion
527 (save-restriction
528 (let ((regexp ,(indian-regexp-of-hashtbl-keys
529 (if encode-p (car (eval hashtable))
530 (cdr (eval hashtable))))))
531 (narrow-to-region from to)
532 (goto-char (point-min))
533 (while (re-search-forward regexp nil t)
534 (let ((matchstr (gethash (match-string 0)
535 (if ,encode-p
536 (car ,hashtable)
537 (cdr ,hashtable)))))
538 (if matchstr (replace-match matchstr))))))))
539
540 ;;;
541
542 (defun indian-dev-itrans-v5-encode-region (from to)
543 (interactive "r")
544 (indian-translate-region
545 from to indian-dev-itrans-v5-hash t))
546
547 (defun indian-dev-itrans-v5-decode-region (from to)
548 (interactive "r")
549 (indian-translate-region
550 from to indian-dev-itrans-v5-hash nil))
551
552 (defun indian-dev-kyoto-harvard-encode-region (from to)
553 (interactive "r")
554 (indian-translate-region
555 from to indian-dev-kyoto-harvard-hash t))
556
557 (defun indian-dev-kyoto-harvard-decode-region (from to)
558 (interactive "r")
559 (indian-translate-region
560 from to indian-dev-kyoto-harvard-hash nil))
561
562 (defun indian-dev-aiba-encode-region (from to)
563 (interactive "r")
564 (indian-translate-region
565 from to indian-dev-aiba-hash t))
566
567 (defun indian-dev-aiba-decode-region (from to)
568 (interactive "r")
569 (indian-translate-region
570 from to indian-dev-aiba-hash nil))
571
572
573
574
575 ;;; IS 13194 utilities
576
577 ;; The followings provide conversion between IS 13194 (ISCII) and UCS.
578
579 (let
580 ;;Unicode vs IS13194 ;; only Devanagari is supported now.
581 ((ucs-devanagari-to-is13194-alist
582 '((?\x0900 . "[U+0900]")
583 (?\x0901 . "\e(5!\e(B")
584 (?\x0902 . "\e(5"\e(B")
585 (?\x0903 . "\e(5#\e(B")
586 (?\x0904 . "[U+0904]")
587 (?\x0905 . "\e(5$\e(B")
588 (?\x0906 . "\e(5%\e(B")
589 (?\x0907 . "\e(5&\e(B")
590 (?\x0908 . "\e(5'\e(B")
591 (?\x0909 . "\e(5(\e(B")
592 (?\x090a . "\e(5)\e(B")
593 (?\x090b . "\e(5*\e(B")
594 (?\x090c . "\e(5&i\e(B")
595 (?\x090d . "\e(5.\e(B")
596 (?\x090e . "\e(5+\e(B")
597 (?\x090f . "\e(5,\e(B")
598 (?\x0910 . "\e(5-\e(B")
599 (?\x0911 . "\e(52\e(B")
600 (?\x0912 . "\e(5/\e(B")
601 (?\x0913 . "\e(50\e(B")
602 (?\x0914 . "\e(51\e(B")
603 (?\x0915 . "\e(53\e(B")
604 (?\x0916 . "\e(54\e(B")
605 (?\x0917 . "\e(55\e(B")
606 (?\x0918 . "\e(56\e(B")
607 (?\x0919 . "\e(57\e(B")
608 (?\x091a . "\e(58\e(B")
609 (?\x091b . "\e(59\e(B")
610 (?\x091c . "\e(5:\e(B")
611 (?\x091d . "\e(5;\e(B")
612 (?\x091e . "\e(5<\e(B")
613 (?\x091f . "\e(5=\e(B")
614 (?\x0920 . "\e(5>\e(B")
615 (?\x0921 . "\e(5?\e(B")
616 (?\x0922 . "\e(5@\e(B")
617 (?\x0923 . "\e(5A\e(B")
618 (?\x0924 . "\e(5B\e(B")
619 (?\x0925 . "\e(5C\e(B")
620 (?\x0926 . "\e(5D\e(B")
621 (?\x0927 . "\e(5E\e(B")
622 (?\x0928 . "\e(5F\e(B")
623 (?\x0929 . "\e(5G\e(B")
624 (?\x092a . "\e(5H\e(B")
625 (?\x092b . "\e(5I\e(B")
626 (?\x092c . "\e(5J\e(B")
627 (?\x092d . "\e(5K\e(B")
628 (?\x092e . "\e(5L\e(B")
629 (?\x092f . "\e(5M\e(B")
630 (?\x0930 . "\e(5O\e(B")
631 (?\x0931 . "\e(5P\e(B")
632 (?\x0932 . "\e(5Q\e(B")
633 (?\x0933 . "\e(5R\e(B")
634 (?\x0934 . "\e(5S\e(B")
635 (?\x0935 . "\e(5T\e(B")
636 (?\x0936 . "\e(5U\e(B")
637 (?\x0937 . "\e(5V\e(B")
638 (?\x0938 . "\e(5W\e(B")
639 (?\x0939 . "\e(5X\e(B")
640 (?\x093a . "[U+093a]")
641 (?\x093b . "[U+093b]")
642 (?\x093c . "\e(5i\e(B")
643 (?\x093d . "\e(5ji\e(B")
644 (?\x093e . "\e(5Z\e(B")
645 (?\x093f . "\e(5[\e(B")
646 (?\x0940 . "\e(5\\e(B")
647 (?\x0941 . "\e(5]\e(B")
648 (?\x0942 . "\e(5^\e(B")
649 (?\x0943 . "\e(5_\e(B")
650 (?\x0944 . "\e(5_i\e(B")
651 (?\x0945 . "\e(5c\e(B")
652 (?\x0946 . "\e(5`\e(B")
653 (?\x0947 . "\e(5a\e(B")
654 (?\x0948 . "\e(5b\e(B")
655 (?\x0949 . "\e(5g\e(B")
656 (?\x094a . "\e(5d\e(B")
657 (?\x094b . "\e(5e\e(B")
658 (?\x094c . "\e(5f\e(B")
659 (?\x094d . "\e(5h\e(B")
660 (?\x094e . "[U+094e]")
661 (?\x094f . "[U+094f]")
662 (?\x0950 . "\e(5!i\e(B")
663 (?\x0951 . "\e(5p5\e(B")
664 (?\x0952 . "\e(5p8\e(B")
665 (?\x0953 . "[DEVANAGARI GRAVE ACCENT]")
666 (?\x0954 . "[DEVANAGARI ACUTE ACCENT]")
667 (?\x0955 . "[U+0955]")
668 (?\x0956 . "[U+0956]")
669 (?\x0957 . "[U+0957]")
670 (?\x0958 . "\e(53i\e(B")
671 (?\x0959 . "\e(54i\e(B")
672 (?\x095a . "\e(55i\e(B")
673 (?\x095b . "\e(5:i\e(B")
674 (?\x095c . "\e(5?i\e(B")
675 (?\x095d . "\e(5@i\e(B")
676 (?\x095e . "\e(5Ii\e(B")
677 (?\x095f . "\e(5N\e(B")
678 (?\x0960 . "\e(5*i\e(B")
679 (?\x0961 . "\e(5'i\e(B")
680 (?\x0962 . "\e(5[i\e(B")
681 (?\x0963 . "\e(5ei\e(B")
682 (?\x0964 . "\e(5j\e(B")
683 (?\x0965 . "\e(5jj\e(B")
684 (?\x0966 . "\e(5q\e(B")
685 (?\x0967 . "\e(5r\e(B")
686 (?\x0968 . "\e(5s\e(B")
687 (?\x0969 . "\e(5t\e(B")
688 (?\x096a . "\e(5u\e(B")
689 (?\x096b . "\e(5v\e(B")
690 (?\x096c . "\e(5w\e(B")
691 (?\x096d . "\e(5x\e(B")
692 (?\x096e . "\e(5y\e(B")
693 (?\x096f . "\e(5z\e(B")
694 (?\x0970 . "[U+0970]")
695 (?\x0971 . "[U+0971]")
696 (?\x0972 . "[U+0972]")
697 (?\x0973 . "[U+0973]")
698 (?\x0974 . "[U+0974]")
699 (?\x0975 . "[U+0975]")
700 (?\x0976 . "[U+0976]")
701 (?\x0977 . "[U+0977]")
702 (?\x0978 . "[U+0978]")
703 (?\x0979 . "[U+0979]")
704 (?\x097a . "[U+097a]")
705 (?\x097b . "[U+097b]")
706 (?\x097c . "[U+097c]")
707 (?\x097d . "[U+097d]")
708 (?\x097e . "[U+097e]")
709 (?\x097f . "[U+097f]")))
710 (ucs-bengali-to-is13194-alist nil)
711 (ucs-assamese-to-is13194-alist nil)
712 (ucs-gurmukhi-to-is13194-alist nil)
713 (ucs-gujarati-to-is13194-alist nil)
714 (ucs-oriya-to-is13194-alist nil)
715 (ucs-tamil-to-is13194-alist nil)
716 (ucs-telugu-to-is13194-alist nil)
717 (ucs-malayalam-to-is13194-alist nil)
718 (ucs-kannada-to-is13194-alist nil))
719 (dolist (script '(devanagari bengali assamese gurmukhi gujarati
720 oriya tamil telugu malayalam kannada))
721 (let ((hashtable (intern (concat "is13194-to-ucs-"
722 (symbol-name script) "-hashtbl" )))
723 (regexp (intern (concat "is13194-to-ucs-"
724 (symbol-name script) "-regexp"))))
725 (set hashtable (make-hash-table :test 'equal :size 128))
726 (dolist (x (eval (intern (concat "ucs-" (symbol-name script)
727 "-to-is13194-alist"))))
728 (put-char-code-property (car x) 'script script)
729 (put-char-code-property (car x) 'iscii (cdr x))
730 (puthash (cdr x) (char-to-string (car x)) (eval hashtable)))
731 (set regexp (indian-regexp-of-hashtbl-keys (eval hashtable))))))
732
733 (defvar is13194-default-repertory 'devanagari)
734
735 (defvar is13194-repertory-to-ucs-script
736 `((DEF ?\x40 ,is13194-default-repertory)
737 (RMN ?\x41 ,is13194-default-repertory)
738 (DEV ?\x42 devanagari)
739 (BNG ?\x43 bengali)
740 (TML ?\x44 tamil)
741 (TLG ?\x45 telugu)
742 (ASM ?\x46 bengali)
743 (ORI ?\x47 oriya)
744 (KND ?\x48 kannada)
745 (MLM ?\x49 malayalam)
746 (GJR ?\x4a gujarati)
747 (PNJ ?\x4b gurmukhi)))
748
749 ;; for guiding find-variable function.
750 (defvar is13194-to-ucs-devanagari-hashtbl nil)
751 (defvar is13194-to-ucs-devanagari-regexp nil)
752 (defvar is13194-to-ucs-bengali-hashtbl nil)
753 (defvar is13194-to-ucs-bengali-regexp nil)
754 (defvar is13194-to-ucs-assamese-hashtbl nil)
755 (defvar is13194-to-ucs-assamese-regexp nil)
756 (defvar is13194-to-ucs-gurmukhi-hashtbl nil)
757 (defvar is13194-to-ucs-gurmukhi-regexp nil)
758 (defvar is13194-to-ucs-gujarati-hashtbl nil)
759 (defvar is13194-to-ucs-gujarati-regexp nil)
760 (defvar is13194-to-ucs-oriya-hashtbl nil)
761 (defvar is13194-to-ucs-oriya-regexp nil)
762 (defvar is13194-to-ucs-tamil-hashtbl nil)
763 (defvar is13194-to-ucs-tamil-regexp nil)
764 (defvar is13194-to-ucs-telugu-hashtbl nil)
765 (defvar is13194-to-ucs-telugu-regexp nil)
766 (defvar is13194-to-ucs-malayalam-hashtbl nil)
767 (defvar is13194-to-ucs-malayalam-regexp nil)
768 (defvar is13194-to-ucs-kannada-hashtbl nil)
769 (defvar is13194-to-ucs-kannada-regexp nil)
770
771 (defvar ucs-to-is13194-regexp
772 ;; only Devanagari is supported now.
773 (concat "[" (char-to-string #x0900)
774 "-" (char-to-string #x097f) "]")
775 "Regexp that matches to conversion")
776
777 (defun ucs-to-iscii-region (from to)
778 "Converts the indian UCS characters in the region to ISCII.
779 Returns new end position."
780 (interactive "r")
781 ;; only Devanagari is supported now.
782 (save-excursion
783 (save-restriction
784 (narrow-to-region from to)
785 (goto-char (point-min))
786 (let* ((current-repertory is13194-default-repertory))
787 (while (re-search-forward ucs-to-is13194-regexp nil t)
788 (replace-match
789 (get-char-code-property (string-to-char (match-string 0))
790 'iscii))))
791 (point-max))))
792
793 (defun iscii-to-ucs-region (from to)
794 "Converts the ISCII characters in the region to UCS.
795 Returns new end position."
796 (interactive "r")
797 ;; only Devanagari is supported now.
798 (save-excursion
799 (save-restriction
800 (narrow-to-region from to)
801 (goto-char (point-min))
802 (let* ((current-repertory is13194-default-repertory)
803 (current-hashtable
804 (intern (concat "is13194-to-ucs-"
805 (symbol-name current-repertory) "-hashtbl")))
806 (current-regexp
807 (intern (concat "is13194-to-ucs-"
808 (symbol-name current-repertory) "-regexp")))
809 (re (eval current-regexp))
810 (hash (eval current-hashtable)))
811 (while (re-search-forward re nil t)
812 (replace-match (gethash (match-string 0) hash ""))))
813 (point-max))))
814
815 ;;;###autoload
816 (defun indian-compose-region (from to)
817 "Compose the region according to `composition-function-table'."
818 (interactive "r")
819 (save-excursion
820 (save-restriction
821 (let ((pos from) newpos func (max to))
822 (narrow-to-region from to)
823 (while (< pos max)
824 (setq func (aref composition-function-table (char-after pos)))
825 (if (fboundp func)
826 (setq newpos (funcall func pos nil)
827 pos (if (and (integerp newpos) (> newpos pos))
828 newpos (1+ pos)))
829 (setq pos (1+ pos))))))))
830
831 ;;;###autoload
832 (defun indian-compose-string (string)
833 (with-temp-buffer
834 (insert string)
835 (indian-compose-region (point-min) (point-max))
836 (buffer-string)))
837
838 ;;;###autoload
839 (defun in-is13194-post-read-conversion (len)
840 (let ((pos (point)) endpos)
841 (setq endpos (iscii-to-ucs-region pos (+ pos len)))
842 (indian-compose-region pos endpos)
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\7f\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
Unnamed repository; edit this file 'description' to name the repository.