annotate lisp/language/ind-util.el @ 102153:603bb57bb542

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