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