Commit | Line | Data |
---|---|---|
cd4e9344 RS |
1 | ;;; ind-util.el --- Transliteration and Misc. Tools for Indian Languages -*- coding: iso-2022-7bit; -*- |
2 | ||
462a7ed6 | 3 | ;; Copyright (C) 2001, 2003 Free Software Foundation, Inc. |
cd4e9344 | 4 | |
c7357293 | 5 | ;; Maintainer: KAWABATA, Taichi <kawabata@m17n.org> |
cd4e9344 RS |
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 | |
3a35cf56 LK |
22 | ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, |
23 | ;; Boston, MA 02110-1301, USA. | |
cd4e9344 RS |
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 | |
cd4e9344 | 42 | |
48cb5913 | 43 | (defun indian-regexp-of-hashtbl-keys (hashtbl) |
cd4e9344 | 44 | "Returns the regular expression of hashtable keys." |
462a7ed6 SM |
45 | (let (keys) |
46 | (maphash (lambda (key val) (push key keys)) hashtbl) | |
47 | (regexp-opt keys))) | |
cd4e9344 RS |
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) | |
c7357293 KH |
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)) | |
cd4e9344 RS |
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 | |
a1506d29 JB |
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 | |
cd4e9344 | 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 |
a1506d29 JB |
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 | |
cd4e9344 | 64 | "\e$,15\6-5^\e(B" "\e$,15U6-5w\e(B") |
a1506d29 | 65 | (;; Misc Symbols (7) |
cd4e9344 RS |
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 | ||
c7357293 KH |
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))) | |
cd4e9344 RS |
279 | |
280 | (defvar indian-base-table-to-language-alist | |
281 | '((indian-dev-base-table . "Devanagari") | |
a1506d29 | 282 | (indian-pnj-base-table . "Punjabi") |
cd4e9344 RS |
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") | |
b057ab61 KH |
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")) | |
a1506d29 | 297 | (;; consonants -- 40 |
cd4e9344 RS |
298 | "k" "kh" "g" "gh" ("~N" "N^") |
299 | "ch" ("Ch" "chh") "j" "jh" ("~n" "JN") | |
300 | "T" "Th" "D" "Dh" "N" | |
a1506d29 | 301 | "t" "th" "d" "dh" "n" "nh" |
cd4e9344 RS |
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 | |
a1506d29 | 393 | (mapcar |
cd4e9344 | 394 | (lambda (x) |
a1506d29 JB |
395 | (apply |
396 | 'mapthread | |
da490c95 | 397 | `(lambda (&rest y) (apply ',function x y)) |
cd4e9344 RS |
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))) | |
19150538 | 410 | (if (characterp char) (setq char (char-to-string char))) |
cd4e9344 | 411 | (puthash char (car trans-char) encode-hash) |
462a7ed6 SM |
412 | (dolist (trans trans-char) |
413 | (puthash trans char decode-hash))))) | |
cd4e9344 | 414 | |
e6432b68 DL |
415 | (defun indian--map (f l1 l2) |
416 | (while l1 | |
417 | (funcall f (pop l1) (pop l2)))) | |
418 | ||
cd4e9344 | 419 | (defun indian--puthash-v (v trans-v hashtbls) |
a1506d29 | 420 | (indian--map |
e6432b68 DL |
421 | (lambda (v trans-v) |
422 | (indian--puthash-char (car v) trans-v hashtbls)) | |
cd4e9344 RS |
423 | v trans-v)) |
424 | ||
425 | (defun indian--puthash-c (c trans-c halant hashtbls) | |
e6432b68 DL |
426 | (indian--map |
427 | (lambda (c trans-c) | |
19150538 | 428 | (if (characterp c) (setq c (char-to-string c))) |
e6432b68 | 429 | (indian--puthash-char (concat c halant) trans-c hashtbls)) |
cd4e9344 RS |
430 | c trans-c)) |
431 | ||
432 | (defun indian--puthash-m (m trans-m hashtbls) | |
e6432b68 DL |
433 | (indian--map |
434 | (lambda (m trans-m) | |
435 | (indian--puthash-char m trans-m hashtbls)) | |
cd4e9344 RS |
436 | m trans-m)) |
437 | ||
438 | (defun indian--puthash-cv (c trans-c v trans-v hashtbls) | |
e6432b68 DL |
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) | |
19150538 DL |
444 | (if (characterp c) (setq c (char-to-string c))) |
445 | (setq v (if (characterp (cadr v)) (char-to-string (cadr v)) "")) | |
e6432b68 DL |
446 | (if (stringp trans-c) (setq trans-c (list trans-c))) |
447 | (if (stringp trans-v) (setq trans-v (list trans-v))) | |
a1506d29 | 448 | (indian--puthash-char |
e6432b68 DL |
449 | (concat c v) |
450 | (apply 'append | |
451 | (mapthread 'concat trans-c trans-v)) | |
452 | hashtbls))) | |
453 | v trans-v)) | |
cd4e9344 RS |
454 | c trans-c)) |
455 | ||
456 | (defun indian-make-hash (table trans-table) | |
457 | "Indian Transliteration Hash for decode/encode" | |
b1432379 SM |
458 | (let* ((encode-hash (make-hash-table :test 'equal)) |
459 | (decode-hash (make-hash-table :test 'equal)) | |
cd4e9344 RS |
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) | |
a1506d29 | 472 | (indian--puthash-cv consonants trans-consonants |
cd4e9344 RS |
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 | ||
c7357293 KH |
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)) | |
cd4e9344 RS |
523 | ) |
524 | ||
525 | (defmacro indian-translate-region (from to hashtable encode-p) | |
526 | `(save-excursion | |
527 | (save-restriction | |
a1506d29 JB |
528 | (let ((regexp ,(indian-regexp-of-hashtbl-keys |
529 | (if encode-p (car (eval hashtable)) | |
cd4e9344 RS |
530 | (cdr (eval hashtable)))))) |
531 | (narrow-to-region from to) | |
532 | (goto-char (point-min)) | |
533 | (while (re-search-forward regexp nil t) | |
a1506d29 | 534 | (let ((matchstr (gethash (match-string 0) |
e6432b68 DL |
535 | (if ,encode-p |
536 | (car ,hashtable) | |
537 | (cdr ,hashtable))))) | |
cd4e9344 RS |
538 | (if matchstr (replace-match matchstr)))))))) |
539 | ||
540 | ;;; | |
541 | ||
542 | (defun indian-dev-itrans-v5-encode-region (from to) | |
543 | (interactive "r") | |
a1506d29 | 544 | (indian-translate-region |
cd4e9344 RS |
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") | |
a1506d29 | 554 | (indian-translate-region |
cd4e9344 RS |
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") | |
a1506d29 | 564 | (indian-translate-region |
cd4e9344 RS |
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 | ||
3ff57641 | 579 | (let |
8f924df7 | 580 | ;;Unicode vs IS13194 ;; only Devanagari is supported now. |
3ff57641 DL |
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) | |
6b61353c KH |
717 | (ucs-malayalam-to-is13194-alist nil) |
718 | (ucs-kannada-to-is13194-alist nil)) | |
3ff57641 | 719 | (dolist (script '(devanagari bengali assamese gurmukhi gujarati |
6b61353c | 720 | oriya tamil telugu malayalam kannada)) |
f47a2e09 DL |
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")))) | |
cd4e9344 | 725 | (set hashtable (make-hash-table :test 'equal :size 128)) |
3ff57641 DL |
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))) | |
8f924df7 KH |
731 | (set regexp (indian-regexp-of-hashtbl-keys (eval hashtable)))))) |
732 | ||
733 | (defvar is13194-default-repertory 'devanagari) | |
cd4e9344 RS |
734 | |
735 | (defvar is13194-repertory-to-ucs-script | |
8f924df7 KH |
736 | `((DEF ?\x40 ,is13194-default-repertory) |
737 | (RMN ?\x41 ,is13194-default-repertory) | |
cd4e9344 RS |
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) | |
6b61353c KH |
768 | (defvar is13194-to-ucs-kannada-hashtbl nil) |
769 | (defvar is13194-to-ucs-kannada-regexp nil) | |
cd4e9344 | 770 | |
cd4e9344 RS |
771 | (defvar ucs-to-is13194-regexp |
772 | ;; only Devanagari is supported now. | |
19150538 | 773 | (concat "[" (char-to-string #x0900) |
8f924df7 | 774 | "-" (char-to-string #x097f) "]") |
cd4e9344 RS |
775 | "Regexp that matches to conversion") |
776 | ||
777 | (defun ucs-to-iscii-region (from to) | |
a1506d29 | 778 | "Converts the indian UCS characters in the region to ISCII. |
cd4e9344 RS |
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)) | |
f47a2e09 DL |
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)))) | |
cd4e9344 RS |
791 | (point-max)))) |
792 | ||
793 | (defun iscii-to-ucs-region (from to) | |
a1506d29 | 794 | "Converts the ISCII characters in the region to UCS. |
cd4e9344 RS |
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)) | |
f47a2e09 DL |
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)) | |
12bb15ad | 810 | (hash (eval current-hashtable))) |
f47a2e09 DL |
811 | (while (re-search-forward re nil t) |
812 | (replace-match (gethash (match-string 0) hash "")))) | |
cd4e9344 RS |
813 | (point-max)))) |
814 | ||
815 | ;;;###autoload | |
816 | (defun indian-compose-region (from to) | |
6acef79f | 817 | "Compose the region according to `composition-function-table'." |
cd4e9344 RS |
818 | (interactive "r") |
819 | (save-excursion | |
820 | (save-restriction | |
6acef79f | 821 | (let ((pos from) newpos func (max to)) |
f47a2e09 DL |
822 | (narrow-to-region from to) |
823 | (while (< pos max) | |
6acef79f KH |
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)))))))) | |
cd4e9344 RS |
830 | |
831 | ;;;###autoload | |
832 | (defun indian-compose-string (string) | |
a1506d29 | 833 | (with-temp-buffer |
cd4e9344 RS |
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 | ||
f47a2e09 | 860 | ;; The following provides the conversion from old-implementation of |
cd4e9344 RS |
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 | |
6acef79f KH |
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") | |
cd4e9344 | 883 | ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f |
6acef79f KH |
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") | |
cd4e9344 | 901 | ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f |
6acef79f KH |
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") | |
cd4e9344 | 919 | ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f |
6acef79f KH |
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") | |
cd4e9344 | 936 | ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f |
6acef79f KH |
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") | |
cd4e9344 | 950 | ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f |
6acef79f KH |
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") | |
cd4e9344 | 962 | ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f |
6acef79f KH |
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") | |
cd4e9344 | 976 | ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f |
6acef79f KH |
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") | |
cd4e9344 | 988 | ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f |
6acef79f KH |
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") | |
cd4e9344 | 1004 | ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f |
6acef79f KH |
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") | |
cd4e9344 | 1014 | ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f |
6acef79f KH |
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") | |
cd4e9344 | 1029 | ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f |
6acef79f KH |
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") | |
cd4e9344 | 1039 | ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f |
6acef79f KH |
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") | |
cd4e9344 | 1048 | ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f |
6acef79f KH |
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") | |
cd4e9344 | 1055 | ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f |
6acef79f KH |
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") | |
cd4e9344 | 1063 | ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f |
6acef79f KH |
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") | |
cd4e9344 | 1068 | ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f |
6acef79f KH |
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") | |
cd4e9344 | 1085 | ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f |
6acef79f KH |
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") | |
cd4e9344 | 1094 | ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f |
6acef79f KH |
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") | |
cd4e9344 | 1111 | ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f |
6acef79f KH |
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") | |
cd4e9344 | 1129 | ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f |
6acef79f KH |
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") | |
cd4e9344 | 1147 | ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f |
6acef79f KH |
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") | |
cd4e9344 | 1154 | ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f |
6acef79f KH |
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") | |
cd4e9344 | 1172 | ;; 0 1 2 3 4 5 6 7 8 9 a b c d e f |
6acef79f KH |
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"))) | |
cd4e9344 RS |
1189 | |
1190 | (defconst indian-2-column-to-ucs-regexp | |
6acef79f | 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]") |
cd4e9344 RS |
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)) | |
f47a2e09 | 1196 | (alist nil)) |
cd4e9344 RS |
1197 | (dolist (elt indian-2-colum-to-ucs) |
1198 | (if (= (length (car elt)) 1) | |
f47a2e09 DL |
1199 | (aset table (aref (car elt) 0) (cdr elt)) |
1200 | (setq alist (cons elt alist)))) | |
cd4e9344 RS |
1201 | (set-char-table-extra-slot table 0 alist) |
1202 | table)) | |
1203 | ||
2ba14a8f | 1204 | ;;;###autoload |
cd4e9344 RS |
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) | |
f47a2e09 DL |
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 | |
e6432b68 | 1220 | (char-after (match-beginning 0)))) |
8f924df7 | 1221 | (setq subst (cdr (assoc (match-string 0) alist)))) |
f47a2e09 DL |
1222 | (replace-match (if subst subst "?")))) |
1223 | (indian-compose-region (point-min) (point-max)))))) | |
a1506d29 | 1224 | |
cd4e9344 | 1225 | (provide 'ind-util) |
a1506d29 | 1226 | |
6b61353c | 1227 | ;;; arch-tag: 59aacd71-46c2-4cb3-bb26-e12bbad55545 |
cd4e9344 | 1228 | ;;; ind-util.el ends here |