annotate lisp/language/devan-util.el @ 41355:ffd42182dd37

Added note about locale-coding-system on Windows.
author Jason Rumney <jasonr@gnu.org>
date Wed, 21 Nov 2001 19:39:03 +0000
parents b174db545cfd
children f091948e4d1c
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
38436
b174db545cfd Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents: 36680
diff changeset
1 ;;; devan-util.el --- support for Devanagari Script Composition
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2
36680
0c75fe9804e2 Add coding: tag in Local Variables: section.
Kenichi Handa <handa@m17n.org>
parents: 31446
diff changeset
3 ;; Copyright (C) 1996, 2001 Free Software Foundation, Inc.
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5 ;; Author: KAWABATA, Taichi <kawabata@is.s.u-tokyo.ac.jp>
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7 ;; Keywords: multilingual, Indian, Devanagari
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
9 ;; This file is part of GNU Emacs.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
10
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
11 ;; GNU Emacs is free software; you can redistribute it and/or modify
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
12 ;; it under the terms of the GNU General Public License as published by
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
13 ;; the Free Software Foundation; either version 2, or (at your option)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
14 ;; any later version.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
15
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
16 ;; GNU Emacs is distributed in the hope that it will be useful,
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
19 ;; GNU General Public License for more details.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
20
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
21 ;; You should have received a copy of the GNU General Public License
17314
f438ebf1c679 Fix FSF address in comment.
Kenichi Handa <handa@m17n.org>
parents: 17300
diff changeset
22 ;; along with GNU Emacs; see the file COPYING. If not, write to the
f438ebf1c679 Fix FSF address in comment.
Kenichi Handa <handa@m17n.org>
parents: 17300
diff changeset
23 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
f438ebf1c679 Fix FSF address in comment.
Kenichi Handa <handa@m17n.org>
parents: 17300
diff changeset
24 ;; Boston, MA 02111-1307, USA.
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
25
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
26 ;;; Commentary:
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
27
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
28 ;; History:
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
29 ;; 1996.10.18 written by KAWABATA, Taichi <kawabata@is.s.u-tokyo.ac.jp>
17300
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
30 ;; 1997.3.24 fixed some bugs.
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
31
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
32 ;; Future work ::
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
33 ;; Decompose the input characters and process them on the character basis.
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
34
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
35 ;; Devanagari script composition rules and related programs.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
36
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
37 ;;; Code:
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
38
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
39 ;;;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
40 ;;; Steps toward composition of Devanagari Characters.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
41 ;;;
22987
708271862495 (setup-XXX-environment): Just call set-language-environment. If
Kenichi Handa <handa@m17n.org>
parents: 22520
diff changeset
42
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
43 ;;; Basic functions.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
44
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
45 ;;;###autoload
26894
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
46 (defun indian-to-devanagari (char)
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
47 "Convert IS 13194 character CHAR to Devanagari basic characters.
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
48 If CHAR is not IS 13194, return CHAR as is."
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
49 (let ((charcodes (split-char char)))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
50 (if (eq (car charcodes) 'indian-is13194)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
51 (make-char 'indian-2-column ?\x21 (nth 1 charcodes))
26894
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
52 char)))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
53
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
54 ;;;###autoload
26894
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
55 (defun devanagari-to-indian (char)
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
56 "Convert Devanagari basic character CHAR to IS 13194 characters.
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
57 If CHAR is not Devanagari basic character, return CHAR as is."
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
58 (let ((charcodes (split-char char)))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
59 (if (and (eq (car charcodes) 'indian-2-column)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
60 (= (nth 1 charcodes) ?\x21))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
61 (make-char 'indian-is13194 (nth 2 charcodes))
26894
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
62 char)))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
63
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
64 ;;;###autoload
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
65 (defun indian-to-devanagari-region (from to)
26894
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
66 "Convert IS 13194 characters in region to Devanagari basic characters.
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
67 When called from a program, expects two arguments,
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
68 positions (integers or markers) specifying the region."
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
69 (interactive "r")
26894
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
70 (save-excursion
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
71 (goto-char from)
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
72 (while (< (point) to)
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
73 (let ((char (following-char)))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
74 (if (eq (char-charset char) 'indian-is13194)
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
75 (progn
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
76 (delete-char 1)
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
77 (insert (indian-to-devanagari char)))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
78 (forward-char 1))))))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
79
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
80 ;;;###autoload
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
81 (defun devanagari-to-indian-region (from to)
26894
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
82 "Convert Devanagari basic characters in region to Indian characters.
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
83 When called from a program, expects two arguments,
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
84 positions (integers or markers) specifying the region."
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
85 (interactive "r")
26894
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
86 (save-excursion
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
87 (goto-char from)
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
88 (while (< (point) to)
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
89 (let ((char (following-char)))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
90 (if (eq (char-charset char) 'indian-2-column)
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
91 (progn
31446
1cc26c3824f9 (devanagari-to-indian-region): In the loop, change the following char,
Kenichi Handa <handa@m17n.org>
parents: 28906
diff changeset
92 (delete-char 1)
26894
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
93 (insert (devanagari-to-indian char)))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
94 (forward-char 1))))))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
95
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
96 ;;;###autoload
26894
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
97 (defun indian-to-devanagari-string (string)
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
98 "Convert Indian characters in STRING to Devanagari Basic characters."
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
99 (let* ((len (length string))
20839
e933240ee6c0 Do not require `cl'.
Kenichi Handa <handa@m17n.org>
parents: 20737
diff changeset
100 (i 0)
e933240ee6c0 Do not require `cl'.
Kenichi Handa <handa@m17n.org>
parents: 20737
diff changeset
101 (vec (make-vector len 0)))
e933240ee6c0 Do not require `cl'.
Kenichi Handa <handa@m17n.org>
parents: 20737
diff changeset
102 (while (< i len)
26894
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
103 (aset vec i (indian-to-devanagari (aref string i)))
20839
e933240ee6c0 Do not require `cl'.
Kenichi Handa <handa@m17n.org>
parents: 20737
diff changeset
104 (setq i (1+ i)))
e933240ee6c0 Do not require `cl'.
Kenichi Handa <handa@m17n.org>
parents: 20737
diff changeset
105 (concat vec)))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
106
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
107 ;; Phase 0 - Determine whether the characters can be composed.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
108 ;;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
109 ;;;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
110 ;;; Regular expressions to split characters for composition.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
111 ;;;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
112 ;;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
113 ;; Indian script word contains one or more syllables.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
114 ;; In BNF, it can be expressed as follows:
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
115 ;;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
116 ;; Word ::= {Syllable} [Cons-Syllable]
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
117 ;; Syllable ::= Cons-Vowel-Syllable | Vowel-Syllable
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
118 ;; Vowel-Syllable ::= V[D]
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
119 ;; Cons-Vowel-Syllable ::= [Cons-Syllable] Full-Cons [M] [D]
17087
fb13faeea9aa Fix handling of several characters.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
120 ;; Cons-Syllable ::= [Pure-Cons] [Pure-Cons] [Pure-Cons] Pure-Cons
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
121 ;; Pure-Cons ::= Full-Cons H
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
122 ;; Full-Cons ::= C [N]
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
123 ;;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
124 ;; {} repeat, [] optional
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
125 ;;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
126 ;; C - Consonant ($(5!3!4!5!6!7!8!9!:!;!<!=!>!?!@!A!B!C!D!E(B
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
127 ;; $(5!F!G!H!I!J!K!L!M!N!O!P!Q!R!S!T!U!V!W!X(B)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
128 ;; N - Nukta ($(5!i(B)
17087
fb13faeea9aa Fix handling of several characters.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
129 ;; H - Halant($(5!h(B) or Virama
fb13faeea9aa Fix handling of several characters.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
130 ;; V - Vowel ($(5!$!%!&!'!(!)!*!+!,!-!.!/!0!1!2#&#'#*(B)
fb13faeea9aa Fix handling of several characters.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
131 ;; ("$(5#&#'#*(B" can be obtained by IS13194 vowels with nukta.)
17300
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
132 ;; D - Vowel Modifiers, i.e. Anuswar, Chandrabindu ($(5!!!"(B)
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
133 ;; (Visaraga ($(5!#(B) is excluded.)
17087
fb13faeea9aa Fix handling of several characters.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
134 ;; M - Matra ($(5!Z![!\!]!^!_!`!a!b!c!d!e!f!g#K#L#M(B)
fb13faeea9aa Fix handling of several characters.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
135 ;; ("$(5#K#L#M(B" can be obtained by IS13194 matras with nukta.)
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
136 ;;
17300
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
137 ;; In Emacs, one syllable of Indian language is considered to be one
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
138 ;; composite glyph. If we expand the above expression for
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
139 ;; cons-vowel-syllable, it would be:
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
140 ;;
17300
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
141 ;; [[C [N] H] [C [N] H] [C [N] H] C [N] H] C [N] [M] [D]
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
142 ;;
17300
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
143 ;; Therefore, in worst case, the one syllable may contain
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
144 ;; following characters.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
145 ;;
17087
fb13faeea9aa Fix handling of several characters.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
146 ;; C N H C N H C N H C N H C N M D
fb13faeea9aa Fix handling of several characters.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
147 ;;
17300
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
148 ;; The example is a sanskrit word "kArtsnya", where five consecutive
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
149 ;; consonants appear.
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
150 ;;
17300
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
151 ;; On the other hand, consonant-syllable, which appears at the end of
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
152 ;; the word, would have the following expression:
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
153 ;;
17087
fb13faeea9aa Fix handling of several characters.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
154 ;; [C [N] H] [C [N] H] [C [N] H] C [N] H
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
155 ;;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
156 ;; This is acceptable BEFORE proper consonant-syllable is input. The
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
157 ;; string which doesn't match with the above expression is invalid and
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
158 ;; thus must be fixed.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
159 ;;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
160 ;; Note:
21442
b598d28da979 Typos in comment fixed.
Kenichi Handa <handa@m17n.org>
parents: 20839
diff changeset
161 ;; Third case can be considered, which is an acceptable syllable and can
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
162 ;; not add any code more.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
163 ;;
17087
fb13faeea9aa Fix handling of several characters.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
164 ;; [[C [N] H] [C [N] H] [C [N] H] C [N] H] C [N] [M] D
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
165 ;;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
166 ;; However, to make editing possible even in this condition, we will
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
167 ;; not consider about this case.
17300
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
168 ;;
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
169 ;; Note:
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
170 ;; Currently, it seems that the only following consonants would have
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
171 ;; Nukta sign attatched.
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
172 ;; ($(5!3!4!5!:!?!@!I(B)
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
173 ;; Therefore, [$(5!3(B-$(5!X(B]$(5!i(B? can be re-written as
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
174 ;; \\([$(5!3!4!5!:!?!@!I(B]$(5!i(B\\)\\|[$(5!3(B-$(5!X(B]
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
175
17300
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
176 (defconst devanagari-full-cons
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
177 "\\(\\([$(5!3!4!5!:!?!@!I(B]$(5!i(B\\)\\|[$(5!3(B-$(5!X$.$E"%(B]\\)"
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
178 "Devanagari full consonant")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
179
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
180 (defconst devanagari-pure-cons
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
181 (concat "\\(" devanagari-full-cons "$(5!h(B\\)")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
182 "Devanagari pure consonant")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
183
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
184 (defconst devanagari-matra
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
185 "\\(\\([$(5!_![!\(B]$(5!i(B\\)\\|[$(5!Z(B-$(5!g#K#L#M(B]\\)"
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
186 "Devanagari Matra Signs. '$(5#K#L#M(B' can also be created from the combination
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
187 of '$(5!_![!\(B' and nukta sign.")
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
188
17300
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
189 (defconst devanagari-vowel
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
190 "\\(\\([$(5!*!&!'(B]$(5!i(B\\)\\|[$(5!$(B-$(5!2#&#'#*(B]\\)"
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
191 "Devanagari Vowels. '$(5#&#'#*(B' can also be created from the combination
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
192 of '$(5!*!&!'(B' and nukta sign.")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
193
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
194 (defconst devanagari-vowel-syllable
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
195 (concat devanagari-vowel "[$(5!!!"(B]?")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
196 "Devanagari vowel syllable.")
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
197
17300
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
198 (defconst devanagari-cons-syllable
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
199 (concat devanagari-pure-cons "?" devanagari-pure-cons "?"
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
200 devanagari-pure-cons "?" devanagari-pure-cons "$")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
201 "Devanagari consonant syllable")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
202
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
203 (defconst devanagari-cons-vowel-syllable
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
204 (concat "\\("
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
205 devanagari-pure-cons "?" devanagari-pure-cons "?"
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
206 devanagari-pure-cons "?" devanagari-pure-cons "\\)?"
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
207 devanagari-full-cons devanagari-matra "?[$(5!!!"(B]?")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
208 "Devanagari consonant vowel syllable.")
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
209
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
210 ;;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
211 ;; Also, digits and virams should be processed other than syllables.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
212 ;;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
213 ;; In IS 13194, Avagrah is obtained by Nukta after Viram, and
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
214 ;; OM is obtained by Nukta after Chandrabindu
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
215 ;;
17300
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
216
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
217 (defconst devanagari-digit-viram-visarga
22520
901451c61b3f (devanagari-digit-viram-visarga): Set the
Kenichi Handa <handa@m17n.org>
parents: 21442
diff changeset
218 "[$(5!q(B-$(5!z!j!#(B]")
901451c61b3f (devanagari-digit-viram-visarga): Set the
Kenichi Handa <handa@m17n.org>
parents: 21442
diff changeset
219
17300
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
220 (defconst devanagari-other-sign
17087
fb13faeea9aa Fix handling of several characters.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
221 "\\([$(5!!!j(B]$(5!i(B\\)\\|\\([$(5#!#J(B]\\)")
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
222
17300
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
223 (defconst devanagari-composite-glyph-unit
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
224 (concat "\\(" devanagari-cons-syllable
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
225 "\\)\\|\\(" devanagari-vowel-syllable
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
226 "\\)\\|\\(" devanagari-cons-vowel-syllable
22520
901451c61b3f (devanagari-digit-viram-visarga): Set the
Kenichi Handa <handa@m17n.org>
parents: 21442
diff changeset
227 "\\)\\|\\(" devanagari-other-sign
901451c61b3f (devanagari-digit-viram-visarga): Set the
Kenichi Handa <handa@m17n.org>
parents: 21442
diff changeset
228 "\\)\\|\\(" devanagari-digit-viram-visarga "\\)")
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
229 "Regexp matching to Devanagari string to be composed form one glyph.")
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
230
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
231 ;;(put-charset-property charset-devanagari-1-column
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
232 ;; 'char-to-glyph 'devanagari-compose-string)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
233 ;;(put-charset-property charset-devanagari-2-column
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
234 ;; 'char-to-glyph 'devanagari-compose-string)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
235
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
236 ;; Sample
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
237 ;;
17300
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
238 ;;(string-match devanagari-cons-vowel-syllable-examine "$(5!X![(B") => 0
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
239 ;;(string-match devanagari-cons-vowel-syllable-examine "$(5!F!h!D!\(B") => 0
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
240 ;;(string-match devanagari-cons-vowel-syllable-examine "$(5!X![!F!h!D!\(B") => 0
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
241
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
242 ;;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
243 ;; Steps toward the composition
17300
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
244 ;; Converting Character Codes to Composite Glyph.
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
245 ;;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
246 ;; Example : $(5!X![(B/$(5!F!h!D!\(B
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
247 ;;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
248 ;; First, convert Characters to appropriate glyphs.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
249 ;;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
250 ;; => $(5!X![(B/$(5"F!D!\(B
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
251 ;;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
252 ;; Then, determine the base glyph, apply-orders and apply-rules.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
253 ;;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
254 ;; => $(5!X(B (ml.mr) $(5![(B / $(5!D(B (ml.mr) $(5"F(B (mr ml) $(5!\(B
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
255 ;;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
256 ;; Finally, convert 2-column glyphs to 1-column glyph
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
257 ;; if such a glyph exist.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
258 ;;
26894
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
259 ;; => $(6!X(B (ml.mr) $(6![(B / $(6!D(B (ml.mr) $(6"F(B (mr ml) $(6!\(B
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
260 ;;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
261 ;; Compose the glyph.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
262 ;;
26894
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
263 ;; => 4$(6!Xt%![0!X![1(B/4$(6!Dt%"Fv#!\0!D"F!\1(B
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
264 ;; => 4$(6!Xt%![0!X![14!Dt%"Fv#!\0!D"F!\1(B
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
265 ;;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
266
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
267 ;;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
268 ;; Phase 1: Converting Character Code to Glyph Code.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
269 ;;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
270 ;;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
271 ;; IMPORTANT:
26894
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
272 ;; There may be many rules that you many want to suppress.
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
273 ;; In that case, please comment out that rule.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
274 ;;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
275 ;; RULES WILL BE EVALUATED FROM FIRST TO LAST.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
276 ;; PUT MORE SPECIFIC RULES FIRST.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
277 ;;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
278 ;; TO DO:
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
279 ;; Prepare multiple specific list of rules for each languages
26894
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
280 ;; that adopt Devanagari script.
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
281 ;;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
282
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
283 (defconst devanagari-char-to-glyph-rules
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
284 '(
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
285
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
286 ;; `r' at the top of syllable and followed by other consonants.
17300
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
287 ;; ("[^$(5!h(B]\\($(5!O!h(B\\)[$(5!3(B-$(5!X(B]" "$(5"p(B")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
288 ("^\\($(5!O!h(B\\)[$(5!3(B-$(5!X(B]" "$(5"p(B")
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
289
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
290 ;; Ligature Rules
17300
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
291 ("\\($(5!3!h!B!h!O!h!M(B\\)" "$(5$!(B" sanskrit)
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
292 ("\\($(5!3!h!B!h!T(B\\)" "$(5$"(B" sanskrit)
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
293 ("\\($(5!3!h!B!h!M(B\\)" "$(5$#(B" sanskrit)
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
294 ("\\($(5!3!h!F!h!M(B\\)" "$(5$$(B")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
295 ("\\($(5!3!h!O!h!M(B\\)" "$(5$%(B")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
296 ("\\($(5!3!h!O(B\\)" "$(5"#(B") ; Post "r"
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
297 ("\\($(5!3!h!T!h!M(B\\)" "$(5$&(B" sanskrit)
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
298 ("\\($(5!3!h(B\\)$(5!3!h(B[$(5!3(B-$(5!N!P(B-$(5!X(B]" "$(5"3(B") ; Special Half Form
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
299 ("\\($(5!3!h!3(B\\)" "$(5$'(B")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
300 ("\\($(5!3!h(B\\)$(5!B!h!O(B" "$(5"3(B") ; Special Rules for "k-tr"
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
301 ("\\($(5!3!h!B(B\\)" "$(5$((B")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
302 ("\\($(5!3!h!F(B\\)" "$(5$)(B")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
303 ("\\($(5!3!h!L(B\\)" "$(5$*(B")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
304 ("\\($(5!3!h!M(B\\)" "$(5$+(B")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
305 ("\\($(5!3!h!Q(B\\)" "$(5$,(B")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
306 ("\\($(5!3!h!T(B\\)" "$(5$-(B")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
307 ("\\($(5!3!h!V!h(B\\)[$(5!3(B-$(5!N!P(B-$(5!X(B]" "$(5"l(B") ; Half Form
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
308 ("\\($(5$.!h(B\\)[$(5!3(B-$(5!N!P(B-$(5!X(B]" "$(5"l(B") ; Half Form
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
309 ("\\($(5!3!h!V(B\\)" "$(5$.(B")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
310 ("\\($(5!3!h(B\\)[$(5!3(B-$(5!N!P(B-$(5!X(B]" "$(5"3(B") ; Half Form
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
311 ("\\($(5!3!i!h(B\\)[$(5!3(B-$(5!N!P(B-$(5!X(B]" "$(5"s(B") ; Nukta Half Form
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
312 ("\\($(5!3!i(B\\)" "$(5#3(B") ; Nukta
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
313 ("\\($(5!4!h(B\\)[$(5!3(B-$(5!N!P(B-$(5!X(B]" "$(5"4(B") ; Half Form
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
314 ("\\($(5!4!i!h(B\\)[$(5!3(B-$(5!N!P(B-$(5!X(B]" "$(5"t(B") ; Nukta Half Form
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
315 ("\\($(5!4!i(B\\)" "$(5#4(B") ; Nukta
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
316 ("\\($(5!5!h!O!h(B\\)[$(5!3(B-$(5!N!P(B-$(5!X(B]" "$(5"`(B") ; Half Form
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
317 ("\\($(5!5!h!O(B\\)" "$(5"$(B") ; Post "r"
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
318 ("\\($(5!5!h(B\\)[$(5!3(B-$(5!N!P(B-$(5!X(B]" "$(5"5(B") ; Half Form
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
319 ("\\($(5!5!i!h(B\\)[$(5!3(B-$(5!N!P(B-$(5!X(B]" "$(5"u(B") ; Nukta Half Form
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
320 ("\\($(5!5!i(B\\)" "$(5#5(B") ; Nukta
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
321 ("\\($(5!6!h!F!h(B\\)[$(5!3(B-$(5!N!P(B-$(5!X(B]" "$(5"a(B") ; Half Form
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
322 ("\\($(5!6!h!F(B\\)" "$(5$/(B")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
323 ; Slot
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
324 ("\\($(5!6!h!O(B\\)" "$(5!6"q(B") ; Post "r"
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
325 ("\\($(5!6!h(B\\)[$(5!3(B-$(5!N!P(B-$(5!X(B]" "$(5"6(B") ; Half Form
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
326 ("\\($(5!7!h!3!h!B!h!M(B\\)" "$(5$0(B" sanskrit)
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
327 ("\\($(5!7!h!3!h!V!h!T(B\\)" "$(5$1(B" sanskrit)
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
328 ("\\($(5!7!h!3!h!B(B\\)" "$(5$2(B" sanskrit)
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
329 ("\\($(5!7!h!3!h!V(B\\)" "$(5$3(B" sanskrit)
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
330 ("\\($(5!7!h!3!h!O(B\\)" "$(5$9"q(B") ; Special Rule. May be precomposed font needed.
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
331 ("\\($(5!7!h!6!h!O(B\\)" "$(5$4(B" sanskrit)
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
332 ("\\($(5!7!h!3!h!M(B\\)" "$(5$5(B" sanskrit)
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
333 ("\\($(5!7!h!4!h!M(B\\)" "$(5$6(B" sanskrit)
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
334 ("\\($(5!7!h!5!h!M(B\\)" "$(5$7(B" sanskrit)
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
335 ("\\($(5!7!h!6!h!M(B\\)" "$(5$8(B" sanskrit)
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
336 ("\\($(5!7!h!3(B\\)" "$(5$9(B")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
337 ("\\($(5!7!h!4(B\\)" "$(5$:(B")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
338 ("\\($(5!7!h!5!h!O(B\\)" "$(5$;"q(B") ; Special Rule. May be precomposed font needed.
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
339 ("\\($(5!7!h!5(B\\)" "$(5$;(B")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
340 ("\\($(5!7!h!6(B\\)" "$(5$<(B")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
341 ("\\($(5!7!h!7(B\\)" "$(5$=(B")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
342 ("\\($(5!7!h!F(B\\)" "$(5$>(B")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
343 ("\\($(5!7!h!L(B\\)" "$(5$?(B")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
344 ("\\($(5!7!h!M(B\\)" "$(5$@(B")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
345 ("\\($(5!8!h(B\\)[$(5!8!<(B]$(5!h(B" "$(5"8(B") ; Half Form
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
346 ("\\($(5!8!h!8(B\\)" "$(5$A(B")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
347 ("\\($(5!8!h!<(B\\)" "$(5$B(B")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
348 ("\\($(5!8!h!O!h(B\\)[$(5!3(B-$(5!N!P(B-$(5!X(B]" "$(5"8"q(B") ; Half Form Post "r"
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
349 ("\\($(5!8!h!O(B\\)" "$(5!8"q(B") ; Post "r"
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
350 ("\\($(5!8!h(B\\)[$(5!3(B-$(5!N!P(B-$(5!X(B]" "$(5"8(B") ; Half Form
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
351 ("\\($(5!9!h!M(B\\)" "$(5$C(B")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
352 ("\\($(5!:!h!O(B\\)" "$(5$D(B")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
353 ("\\($(5!:!h!<!h(B\\)[$(5!3(B-$(5!N!P(B-$(5!X(B]" "$(5"m(B") ; Half Form
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
354 ("\\($(5!:!h!<(B\\)" "$(5$E(B")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
355 ("\\($(5!:!h(B\\)[$(5!3(B-$(5!N!P(B-$(5!X(B]" "$(5":(B") ; Half Form
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
356 ("\\($(5!:!i!h!O(B\\)" "$(5"!(B") ; Nukta Post "r"
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
357 ("\\($(5!:!i!h(B\\)[$(5!3(B-$(5!N!P(B-$(5!X(B]" "$(5"z(B") ; Nukta Half Form
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
358 ("\\($(5!:!i(B\\)" "$(5#:(B") ; Nukta
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
359 ("\\($(5!;!h(B\\)[$(5!3(B-$(5!N!P(B-$(5!X(B]" "$(5";(B") ; Half Form
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
360 ("\\($(5!<!h(B\\)$(5!8!h(B[$(5!3(B-$(5!N!P(B-$(5!X(B]" "$(5"<(B") ; Special Half Form
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
361 ("\\($(5!<!h!8(B\\)" "$(5$F(B")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
362 ("\\($(5!<!h(B\\)$(5!:!h(B[$(5!3(B-$(5!N!P(B-$(5!X(B]" "$(5"<(B") ; Special Half Form
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
363 ("\\($(5!<!h!:(B\\)" "$(5$G(B")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
364 ("\\($(5!<!h(B\\)[$(5!3(B-$(5!N!P(B-$(5!X(B]" "$(5"<(B") ; Half Form
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
365 ("\\($(5!=!h!3(B\\)" "$(5$H(B")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
366 ("\\($(5!=!h!=(B\\)" "$(5$I(B")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
367 ("\\($(5!=!h!>(B\\)" "$(5$J(B")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
368 ("\\($(5!=!h!M(B\\)" "$(5$K(B")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
369 ("\\($(5!>!h!M(B\\)" "$(5$L(B")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
370 ("\\($(5!?!h!5!h!M(B\\)" "$(5$M(B" sanskrit)
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
371 ("\\($(5!?!h!6!h!O(B\\)" "$(5$N(B" sanskrit)
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
372 ("\\($(5!?!h!O!h!M(B\\)" "$(5$O(B")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
373 ("\\($(5!?!h!5(B\\)" "$(5$P(B")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
374 ("\\($(5!?!h!6(B\\)" "$(5$Q(B")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
375 ("\\($(5!?!h!?(B\\)" "$(5$R(B")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
376 ("\\($(5!?!h!L(B\\)" "$(5$S(B")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
377 ("\\($(5!?!h!M(B\\)" "$(5$T(B")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
378 ("\\($(5!?!i(B\\)" "$(5#?(B") ; Nukta
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
379 ("\\($(5!@!h!M(B\\)" "$(5$`(B")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
380 ("\\($(5!@!i(B\\)" "$(5#@(B") ; Nukta
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
381 ("\\($(5!A!h(B\\)[$(5!3(B-$(5!N!P(B-$(5!X(B]" "$(5"A(B") ; Half Form
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
382 ("\\($(5!B!h(B\\)$(5!B!h!O(B" "$(5"B(B") ; Special Rule for "t-tr"
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
383 ("\\($(5!B!h!B!h(B\\)[$(5!3(B-$(5!N!P(B-$(5!X(B]" "$(5"c(B") ; Half Form
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
384 ("\\($(5!B!h!B(B\\)" "$(5$a(B")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
385 ("\\($(5!B!h!F(B\\)" "$(5$b(B")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
386 ("\\($(5!B!h!O!h(B\\)[$(5!3(B-$(5!N!P(B-$(5!X(B]" "$(5"d(B") ; Half Form Post "r"
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
387 ("\\($(5!B!h!O(B\\)" "$(5"%(B") ; Post "r"
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
388 ("\\($(5!B!h(B\\)[$(5!3(B-$(5!N!P(B-$(5!X(B]" "$(5"B(B") ; Half Form
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
389 ("\\($(5!C!h!O(B\\)" "$(5!C"q(B") ; Post "r"
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
390 ("\\($(5!C!h(B\\)[$(5!3(B-$(5!N!P(B-$(5!X(B]" "$(5"C(B") ; Half Form
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
391 ("\\($(5!D!h!D!h!M(B\\)" "$(5$c(B")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
392 ("\\($(5!D!h!E!h!M(B\\)" "$(5$d(B")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
393 ("\\($(5!D!h!K!h!M(B\\)" "$(5$e(B")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
394 ("\\($(5!D!h!K!h!O(B\\)" "$(5$r"r(B") ; Special Case for "dbhr" ; ***
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
395 ("\\($(5!D!h!O!h!M(B\\)" "$(5$f(B")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
396 ("\\($(5!D!h!T!h!M(B\\)" "$(5$g(B")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
397 ("\\($(5!D!h!5!h!O(B\\)" "$(5$h(B")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
398 ("\\($(5!D!h!6!h!O(B\\)" "$(5$i(B")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
399 ("\\($(5!D!h!D!h!T(B\\)" "$(5$j(B")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
400 ("\\($(5!D!h!E!h!T(B\\)" "$(5$k(B")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
401 ("\\($(5!D!h(B\\)$(5!E!h(B[$(5!3(B-$(5!N!P(B-$(5!X(B]" "$(5!D!h(B") ; Special Half Form (for ddhra)
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
402 ("\\($(5!D!h!5(B\\)" "$(5$l(B")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
403 ("\\($(5!D!h!6(B\\)" "$(5$m(B")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
404 ("\\($(5!D!h!D(B\\)" "$(5$n(B")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
405 ("\\($(5!D!h!E(B\\)" "$(5$o(B")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
406 ("\\($(5!D!h!F(B\\)" "$(5$p(B")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
407 ("\\($(5!D!h(B\\)$(5!J!h(B" "$(5!D!h(B") ; Suppressing "db-"
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
408 ("\\($(5!D!h!J(B\\)" "$(5$q(B")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
409 ("\\($(5!D!h!K(B\\)" "$(5$r(B")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
410 ("\\($(5!D!h!L(B\\)" "$(5$s(B")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
411 ("\\($(5!D!h!M(B\\)" "$(5$t(B")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
412 ("\\($(5!D!h!T(B\\)" "$(5$u(B")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
413 ("\\($(5!E!h!F!h(B\\)[$(5!3(B-$(5!N!P(B-$(5!X(B]" "$(5"e(B") ; Half Form
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
414 ("\\($(5!E!h!F(B\\)" "$(5$v(B")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
415 ("\\($(5!E!h!O!h(B\\)[$(5!3(B-$(5!N!P(B-$(5!X(B]" "$(5"f(B") ; Half Form Post "r"
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
416 ("\\($(5!E!h!O(B\\)" "$(5!E"q(B") ; Post "r"
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
417 ("\\($(5!E!h(B\\)[$(5!3(B-$(5!N!P(B-$(5!X(B]" "$(5"E(B") ; Half Form
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
418 ("\\($(5!F!h!F!h(B\\)[$(5!3(B-$(5!N!P(B-$(5!X(B]" "$(5"k(B") ; Half Form
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
419 ("\\($(5!F!h!F(B\\)" "$(5$w(B")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
420 ("\\($(5!F!h!O(B\\)" "$(5!F"q(B")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
421 ("\\($(5!F!h(B\\)[$(5!3(B-$(5!N!P(B-$(5!X(B]" "$(5"F(B") ; Half Form
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
422 ("\\($(5!G!h(B\\)[$(5!3(B-$(5!N!P(B-$(5!X(B]" "$(5"G(B") ; Nukta Half Form
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
423 ("\\($(5!H!h(B\\)$(5!B!h!O(B" "$(5"H(B") ; Special Rule for "p-tr"
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
424 ("\\($(5!H!h!B!h(B\\)[$(5!3(B-$(5!N!P(B-$(5!X(B]" "$(5"g(B") ; Half Form
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
425 ("\\($(5!H!h!B(B\\)" "$(5$x(B")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
426 ("\\($(5!H!h!F(B\\)" "$(5$y(B")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
427 ("\\($(5!H!h!Q(B\\)" "$(5$z(B")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
428 ("\\($(5!H!h!O(B\\)" "$(5"&(B") ; Post "r"
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
429 ("\\($(5!H!h(B\\)[$(5!3(B-$(5!N!P(B-$(5!X(B]" "$(5"H(B") ; Half Form
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
430 ("\\($(5!I!h!O(B\\)" "$(5"'(B") ; Post "r"
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
431 ("\\($(5!I!h(B\\)[$(5!3(B-$(5!N!P(B-$(5!X(B]" "$(5"I(B") ; Half Form
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
432 ("\\($(5!I!i!h!O(B\\)" "$(5""(B") ; Nukta Post "r"
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
433 ("\\($(5!I!i!h(B\\)[$(5!3(B-$(5!N!P(B-$(5!X(B]" "$(5"y(B") ; Nukta Half Form
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
434 ("\\($(5!I!i(B\\)" "$(5#I(B") ; Nukta
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
435 ("\\($(5!J!h(B\\)$(5!F!h(B[$(5!3(B-$(5!N!P(B-$(5!X(B]" "$(5"J(B") ; Special Half Form
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
436 ("\\($(5!J!h!F(B\\)" "$(5${(B")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
437 ("\\($(5!J!h(B\\)$(5!J!h(B[$(5!3(B-$(5!N!P(B-$(5!X(B]" "$(5"J(B") ; Special Half Form
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
438 ("\\($(5!J!h!J(B\\)" "$(5$|(B")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
439 ("\\($(5!J!h(B\\)$(5!T!h(B[$(5!3(B-$(5!N!P(B-$(5!X(B]" "$(5"J(B") ; Special Half Form
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
440 ("\\($(5!J!h!T(B\\)" "$(5$}(B")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
441 ("\\($(5!J!h!O(B\\)" "$(5!J"q(B") ; Post "r"
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
442 ("\\($(5!J!h(B\\)[$(5!3(B-$(5!N!P(B-$(5!X(B]" "$(5"J(B") ; Half Form
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
443 ("\\($(5!K!h!F(B\\)" "$(5$~(B")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
444 ("\\($(5!K!h!O(B\\)" "$(5!K"q(B") ; Post "r"
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
445 ("\\($(5!K!h(B\\)[$(5!3(B-$(5!N!P(B-$(5!X(B]" "$(5"K(B") ; Half Form
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
446 ("\\($(5!L!h!F(B\\)" "$(5#P(B")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
447 ("\\($(5!L!h!Q(B\\)" "$(5#Q(B")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
448 ("\\($(5!L!h!O(B\\)" "$(5!L"q(B") ; Post "r"
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
449 ("\\($(5!L!h(B\\)[$(5!3(B-$(5!N!P(B-$(5!X(B]" "$(5"L(B") ; Half Form
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
450 ("\\($(5!M!h(B\\)[$(5!3(B-$(5!N!P(B-$(5!X(B]" "$(5"M(B") ; Half Form
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
451 ("\\($(5!N!h(B\\)[$(5!3(B-$(5!N!P(B-$(5!X(B]" "$(5"N(B") ; Half Form
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
452 ;; special form for "ru".
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
453 ("\\($(5!O!](B\\)" "$(5",(B")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
454 ("\\($(5!O!^(B\\)" "$(5"-(B")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
455 ("\\($(5!P!](B\\)" "$(5".(B")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
456 ("\\($(5!P!^(B\\)" "$(5"/(B")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
457 ;;
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
458 ("\\($(5!Q!h!Q(B\\)" "$(5#`(B" sanskrit)
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
459 ("\\($(5!Q!h(B\\)[$(5!3(B-$(5!N!P(B-$(5!X(B]" "$(5"Q(B") ; Half Form
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
460 ("\\($(5!R!h(B\\)[$(5!3(B-$(5!N!P(B-$(5!X(B]" "$(5"R(B") ; Half Form
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
461 ("\\($(5!S!h(B\\)[$(5!3(B-$(5!N!P(B-$(5!X(B]" "$(5"S(B") ; Half Form
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
462 ("\\($(5!T!h!F(B\\)" "$(5#a(B")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
463 ("\\($(5!T!h!T(B\\)" "$(5#b(B")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
464 ("\\($(5!T!h!O(B\\)" "$(5!T"q(B") ; Post "r"
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
465 ("\\($(5!T!h(B\\)[$(5!3(B-$(5!N!P(B-$(5!X(B]" "$(5"T(B") ; Half Form
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
466 ("\\($(5!U!h!8!h(B\\)[$(5!3(B-$(5!N!P(B-$(5!X(B]" "$(5"h(B") ; Half Form
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
467 ("\\($(5!U!h!8(B\\)" "$(5#c(B")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
468 ("\\($(5!U!h!F(B\\)" "$(5#d(B")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
469 ("\\($(5!U!h!J(B\\)" "$(5#e(B")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
470 ("\\($(5!U!h!Q(B\\)" "$(5#f(B")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
471 ("\\($(5!U!h(B\\)$(5!T!h!O(B" "$(5"U(B") ; Special Half Form
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
472 ("\\($(5!U!h!T!h(B\\)[$(5!3(B-$(5!N!P(B-$(5!X(B]" "$(5"j(B") ; Half Form
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
473 ; ("\\($(5!U!h!T(B\\)" "$(5#g(B")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
474 ("\\($(5!U!h!O!h!T(B\\)" "$(5#g(B")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
475 ("\\($(5!U!h!O!h(B\\)[$(5!3(B-$(5!N!P(B-$(5!X(B]" "$(5"i(B") ; Half Form
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
476 ("\\($(5!U!h!O(B\\)" "$(5")(B") ; Post "r"
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
477 ("\\($(5!U!h(B\\)[$(5!3(B-$(5!N!P(B-$(5!X(B]" "$(5"U(B") ; Half Form
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
478 ("\\($(5!V!h!=!h!O!h!M(B\\)" "$(5#h(B")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
479 ("\\($(5!V!h!=!h!M(B\\)" "$(5#i(B")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
480 ("\\($(5!V!h!=!h!T(B\\)" "$(5#j(B")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
481 ("\\($(5!V!h!=(B\\)" "$(5#k(B")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
482 ("\\($(5!V!h!>(B\\)" "$(5#l(B")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
483 ("\\($(5!V!h!O(B\\)" "$(5!V"q(B") ; Post "r"
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
484 ("\\($(5!V!h(B\\)[$(5!3(B-$(5!N!P(B-$(5!X(B]" "$(5"V(B") ; Half Form
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
485 ("\\($(5!W!h!F!h(B\\)[$(5!3(B-$(5!N!P(B-$(5!X(B]" "$(5"W"F(B") ; Special Half Form
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
486 ("\\($(5!W!h!F(B\\)" "$(5#m(B")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
487 ("\\($(5!W!h!O(B\\)" "$(5#n(B")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
488 ("\\($(5!W!h(B\\)[$(5!3(B-$(5!N!P(B-$(5!X(B]" "$(5"W(B") ; Half Form
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
489 ("\\($(5!X!h!A(B\\)" "$(5#p(B")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
490 ("\\($(5!X!h!F(B\\)" "$(5#q(B")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
491 ("\\($(5!X!h!L(B\\)" "$(5#r(B")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
492 ("\\($(5!X!h!M(B\\)" "$(5#s(B")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
493 ("\\($(5!X!h!O(B\\)" "$(5#t(B")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
494 ("\\($(5!X!h!Q(B\\)" "$(5#u(B")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
495 ("\\($(5!X!h!T(B\\)" "$(5#v(B")
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
496 ;; Special Ligature Rules
17300
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
497 ("\\($(5!X!_(B\\)" "$(5#R(B")
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
498
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
499 ;; For consonants other than listed above, glyph-composition will
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
500 ;; be applied. If the consonant which is preceding "$(5!O(B" does not
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
501 ;; have the vertical line (such as "$(5!?(B"), "$(5"r(B" is put beneath the
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
502 ;; consonant.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
503 ;;
17300
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
504 ("[$(5!7!9!=!>!?!@!D!O!P!R!S!X(B]\\($(5!h!O(B\\)" "$(5"r(B")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
505 ("[$(5!6!8!C!E!F!H!J!K!L!M!T!V(B]\\($(5!h!O(B\\)" "$(5"q(B")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
506 ("$(5!?!i(B\\($(5!h!O(B\\)" "$(5"r(B")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
507 ("$(5!@!i(B\\($(5!h!O(B\\)" "$(5"r(B")
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
508
17300
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
509 ;; Nukta with Non-Consonants
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
510 ("\\($(5!!!i(B\\)" "$(5#!(B")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
511 ("\\($(5!&!i(B\\)" "$(5#&(B")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
512 ("\\($(5!'!i(B\\)" "$(5#'(B")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
513 ("\\($(5!*!i(B\\)" "$(5#*(B")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
514 ("\\($(5![!i(B\\)" "$(5#L(B")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
515 ("\\($(5!\!i(B\\)" "$(5#M(B")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
516 ("\\($(5!_!i(B\\)" "$(5#K(B")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
517 ("\\($(5!j!i(B\\)" "$(5#J(B")
17087
fb13faeea9aa Fix handling of several characters.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
518
17300
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
519 ;; Special rule for "r + some vowels"
22520
901451c61b3f (devanagari-digit-viram-visarga): Set the
Kenichi Handa <handa@m17n.org>
parents: 21442
diff changeset
520 ("\\($(5!O!_!i(B\\)" "$(5#*"p(B")
901451c61b3f (devanagari-digit-viram-visarga): Set the
Kenichi Handa <handa@m17n.org>
parents: 21442
diff changeset
521 ("\\($(5!O![!i(B\\)" "$(5#&"p(B")
901451c61b3f (devanagari-digit-viram-visarga): Set the
Kenichi Handa <handa@m17n.org>
parents: 21442
diff changeset
522 ("\\($(5!O!\!i(B\\)" "$(5#'"p(B")
17300
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
523 ("\\($(5!O!_(B\\)" "$(5!*"p(B")
17087
fb13faeea9aa Fix handling of several characters.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
524 ;; If everything fails, "y" will connect to the front consonant.
17300
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
525 ("\\($(5!h!M(B\\)" "$(5"](B")
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
526 )
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
527 "Alist of regexps of Devanagari character sequences vs composed characters.")
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
528
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
529 (let ((rules devanagari-char-to-glyph-rules))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
530 (while rules
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
531 (let ((rule (car rules))
17300
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
532 (chars) (char) (glyphs) (glyph))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
533 (setq rules (cdr rules))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
534 (string-match "\\\\(\\(.+\\)\\\\)" (car rule))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
535 (setq chars (substring (car rule) (match-beginning 1) (match-end 1)))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
536 (setq char (string-to-char chars))
17300
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
537 (setq glyphs (cdr rule))
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
538 (setq glyph (string-to-char (car glyphs)))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
539 (put-char-code-property
17300
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
540 char 'char-to-glyph
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
541 ;; We don't "cons" it since priority is top to down.
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
542 (append (get-char-code-property char 'char-to-glyph) (list rule)))
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
543
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
544 (if (and (< ?(5z(B glyph) ; Glyphs only.
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
545 (null (get-char-code-property glyph 'glyph-to-char)))
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
546 ; One glyph may corresponds to multiple characters,
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
547 ; e.g., surrounding vowel in Tamil, etc.
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
548 ; but for Devanagari, we put this restriction
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
549 ; to make sure the fact that one glyph corresponds to one char.
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
550 (put-char-code-property
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
551 glyph 'glyph-to-char
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
552 (cons (list (car glyphs) chars)
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
553 (get-char-code-property glyph 'glyph-to-char)
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
554 ))))))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
555
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
556 ;;
17300
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
557 ;; Function used in both characters-to-glyphs conversion and
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
558 ;; glyphs-to-characters conversion.
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
559 ;;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
560
26894
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
561 (defun max-match-len (regexp)
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
562 "Return the maximum length of text that can match the pattern REGEXP.
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
563 Only [...] pattern of regexp is recognized."
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
564 (let ((len 0)
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
565 (index 0))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
566 (while (string-match "\\[\\([^\]]\\)+\\]" regexp index)
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
567 (setq len (+ len (- (match-beginning 0) index) 1)
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
568 index (match-end 0)))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
569 len))
17300
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
570
26894
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
571 ;; Return t iff at least one member appears in both LIST1 and LIST2.
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
572 (defun intersecting-p (list1 list2)
20839
e933240ee6c0 Do not require `cl'.
Kenichi Handa <handa@m17n.org>
parents: 20737
diff changeset
573 (let ((found nil))
e933240ee6c0 Do not require `cl'.
Kenichi Handa <handa@m17n.org>
parents: 20737
diff changeset
574 (while (and list1 (not found))
e933240ee6c0 Do not require `cl'.
Kenichi Handa <handa@m17n.org>
parents: 20737
diff changeset
575 (if (memq (car list1) list2)
e933240ee6c0 Do not require `cl'.
Kenichi Handa <handa@m17n.org>
parents: 20737
diff changeset
576 (setq found t)
e933240ee6c0 Do not require `cl'.
Kenichi Handa <handa@m17n.org>
parents: 20737
diff changeset
577 (setq list1 (cdr list1))))
e933240ee6c0 Do not require `cl'.
Kenichi Handa <handa@m17n.org>
parents: 20737
diff changeset
578 found))
e933240ee6c0 Do not require `cl'.
Kenichi Handa <handa@m17n.org>
parents: 20737
diff changeset
579
26894
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
580 (defun string-conversion-by-rule (source symbol &rest specs)
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
581 "Convert string SOURCE by rules stored in SYMBOL property of each character.
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
582 The remaining arguments forms a list SPECS that restricts applicable rules.
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
583
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
584 The rules has the form ((REGEXP STR RULE-SPEC ...) ...).
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
585 Each character sequence in STRING that matches REGEXP is
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
586 replaced by STR.
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
587
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
588 If SPECS is nil, only rules with no RULE-SPECs is applied. Otherwise
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
589 rules with no RULE-SPECS and rules that have at least one member of
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
590 SPECS in RULE-SPECs is applied.
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
591
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
592 Rules are tested in the order of the list, thus more specific rules
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
593 should be placed in front of less specific rules.
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
594
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
595 If rule is given in the forms of regexp '...\\(...\\)...', a character
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
596 sequence that matches the pattern inside of the parenthesis is the
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
597 subject of the match. Otherwise, the entire expression is the subject
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
598 of the match."
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
599 (let ((pos 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
600 (dst-str ""))
26894
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
601 (while (< pos (length source))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
602 (let ((found nil)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
603 (rules (get-char-code-property
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
604 (string-to-char
26894
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
605 (substring source pos)) symbol)))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
606 (while rules
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
607 (let* ((rule (car rules))
17300
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
608 (regexp (car rule))
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
609 (replace-str (car (cdr rule)))
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
610 (rule-specs (cdr (cdr rule)))
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
611 search-pos)
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
612 (if (not (or (null rule-specs)
26894
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
613 (intersecting-p specs rule-specs)))
17300
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
614 (setq rules (cdr rules))
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
615 (if (null (string-match "\\\\(.+\\\\)" regexp))
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
616 (progn
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
617 (setq regexp (concat "\\(" regexp "\\)"))
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
618 (setq search-pos pos))
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
619 (setq search-pos (- pos (max-match-len
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
620 (substring regexp
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
621 (string-match "^[^\\\\]*" regexp)
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
622 (match-end 0))))))
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
623 (if (< search-pos 0) (setq search-pos 0))
26894
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
624 (if (string-match regexp source search-pos)
17300
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
625 (if (= (match-beginning 1) pos)
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
626 (progn
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
627 (setq dst-str (concat dst-str replace-str))
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
628 (setq rules nil) ; Get out of the loop.
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
629 (setq found t)
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
630 ;; proceed `pos' for replaced characters.
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
631 (setq pos (match-end 1)))
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
632 (setq rules (cdr rules)))
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
633 (setq rules (cdr rules))))))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
634 ;; proceed to next position
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
635 (if (not found)
26894
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
636 (setq dst-str (concat dst-str (substring source pos (1+ pos)))
20839
e933240ee6c0 Do not require `cl'.
Kenichi Handa <handa@m17n.org>
parents: 20737
diff changeset
637 pos (1+ pos)))))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
638 dst-str))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
639
17300
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
640
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
641 ;;
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
642 ;; Convert Character Code to Glyph Code
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
643 ;;
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
644
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
645 ;;;###autoload
26894
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
646 (defun char-to-glyph-devanagari (string &rest langs)
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
647 "Convert Devanagari characters in STRING to Devanagari glyphs.
17300
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
648 Ligatures and special rules are processed."
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
649 (apply
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
650 'string-conversion-by-rule
26894
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
651 (append (list string 'char-to-glyph) langs)))
17300
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
652
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
653 ;; Example:
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
654 ;;(char-to-glyph-devanagari "$(5!X![!F!h!D!\(B") => "$(5!X!["F!D!\(B"
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
655 ;;(char-to-glyph-devanagari "$(5!O!Z!V!h!=!h!O![!M(B") => ???
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
656
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
657 ;;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
658 ;; Phase 2: Compose Glyphs to form One Glyph.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
659 ;;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
660
26894
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
661 ;; Each list consists of glyph, application-priority and application-direction.
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
662 ;;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
663 ;; Glyphs will be ordered from low priority number to high priority number.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
664 ;; If application-priority is omitted, it is assumed to be 0.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
665 ;; If application-direction is omitted, it is asumbed to be '(mr . ml).
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
666
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
667 (defconst devanagari-composition-rules
17300
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
668 '((?$(5!!(B 0 (tr . br))
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
669 (?$(5!"(B 0 (mr . mr))
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
670 (?$(5!#(B 0)
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
671 (?$(5!$(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
672 (?$(5!%(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
673 (?$(5!&(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
674 (?$(5!'(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
675 (?$(5!((B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
676 (?$(5!)(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
677 (?$(5!*(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
678 (?$(5!+(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
679 (?$(5!,(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
680 (?$(5!-(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
681 (?$(5!.(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
682 (?$(5!/(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
683 (?$(5!0(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
684 (?$(5!1(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
685 (?$(5!2(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
686 (?$(5!3(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
687 (?$(5!4(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
688 (?$(5!5(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
689 (?$(5!6(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
690 (?$(5!7(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
691 (?$(5!8(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
692 (?$(5!9(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
693 (?$(5!:(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
694 (?$(5!;(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
695 (?$(5!<(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
696 (?$(5!=(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
697 (?$(5!>(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
698 (?$(5!?(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
699 (?$(5!@(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
700 (?$(5!A(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
701 (?$(5!B(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
702 (?$(5!C(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
703 (?$(5!D(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
704 (?$(5!E(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
705 (?$(5!F(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
706 (?$(5!G(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
707 (?$(5!H(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
708 (?$(5!I(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
709 (?$(5!J(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
710 (?$(5!K(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
711 (?$(5!L(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
712 (?$(5!M(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
713 (?$(5!N(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
714 (?$(5!O(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
715 (?$(5!P(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
716 (?$(5!Q(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
717 (?$(5!R(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
718 (?$(5!S(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
719 (?$(5!T(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
720 (?$(5!U(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
721 (?$(5!V(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
722 (?$(5!W(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
723 (?$(5!X(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
724 (?$(5!Y(B 0)
17300
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
725 (?$(5!Z(B 0)
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
726 (?$(5![(B 0 (ml . mr))
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
727 (?$(5!\(B 0)
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
728 (?$(5!](B 0 (br . tr))
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
729 (?$(5!^(B 0 (br . tr))
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
730 (?$(5!_(B 0 (br . tr))
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
731 (?$(5!`(B 0 (mr . mr)) ; (tc . bc)
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
732 (?$(5!a(B 0 (mr . mr))
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
733 (?$(5!b(B 0 (mr . mr))
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
734 (?$(5!c(B 0 (mr . mr))
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
735 (?$(5!d(B 0)
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
736 (?$(5!e(B 0)
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
737 (?$(5!f(B 0)
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
738 (?$(5!g(B 0)
17087
fb13faeea9aa Fix handling of several characters.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
739 (?$(5!h(B 0 (br . tr))
fb13faeea9aa Fix handling of several characters.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
740 (?$(5!i(B 0 (br . tr))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
741 (?$(5!j(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
742 (nil 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
743 (nil 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
744 (nil 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
745 (nil 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
746 (nil 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
747 (nil 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
748 (?$(5!q(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
749 (?$(5!r(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
750 (?$(5!s(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
751 (?$(5!t(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
752 (?$(5!u(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
753 (?$(5!v(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
754 (?$(5!w(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
755 (?$(5!x(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
756 (?$(5!y(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
757 (?$(5!z(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
758 (nil 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
759 (nil 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
760 (nil 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
761 (nil 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
762 (?$(5"!(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
763 (?$(5""(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
764 (?$(5"#(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
765 (?$(5"$(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
766 (?$(5"%(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
767 (?$(5"&(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
768 (?$(5"'(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
769 (?$(5"((B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
770 (?$(5")(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
771 (?$(5"*(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
772 (?$(5"+(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
773 (?$(5",(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
774 (?$(5"-(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
775 (?$(5".(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
776 (?$(5"/(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
777 (?$(5"0(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
778 (?$(5"1(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
779 (?$(5"2(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
780 (?$(5"3(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
781 (?$(5"4(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
782 (?$(5"5(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
783 (?$(5"6(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
784 (?$(5"7(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
785 (?$(5"8(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
786 (?$(5"9(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
787 (?$(5":(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
788 (?$(5";(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
789 (?$(5"<(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
790 (?$(5"=(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
791 (?$(5">(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
792 (?$(5"?(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
793 (?$(5"@(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
794 (?$(5"A(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
795 (?$(5"B(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
796 (?$(5"C(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
797 (?$(5"D(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
798 (?$(5"E(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
799 (?$(5"F(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
800 (?$(5"G(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
801 (?$(5"H(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
802 (?$(5"I(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
803 (?$(5"J(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
804 (?$(5"K(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
805 (?$(5"L(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
806 (?$(5"M(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
807 (?$(5"N(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
808 (?$(5"O(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
809 (?$(5"P(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
810 (?$(5"Q(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
811 (?$(5"R(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
812 (?$(5"S(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
813 (?$(5"T(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
814 (?$(5"U(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
815 (?$(5"V(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
816 (?$(5"W(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
817 (?$(5"X(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
818 (?$(5"Y(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
819 (?$(5"Z(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
820 (?$(5"[(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
821 (?$(5"\(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
822 (?$(5"](B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
823 (?$(5"^(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
824 (?$(5"_(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
825 (?$(5"`(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
826 (?$(5"a(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
827 (?$(5"b(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
828 (?$(5"c(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
829 (?$(5"d(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
830 (?$(5"e(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
831 (?$(5"f(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
832 (?$(5"g(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
833 (?$(5"h(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
834 (?$(5"i(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
835 (?$(5"j(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
836 (?$(5"k(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
837 (?$(5"l(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
838 (?$(5"m(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
839 (?$(5"n(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
840 (?$(5"o(B 0)
17300
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
841 (?$(5"p(B 10 (mr . mr))
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
842 (?$(5"q(B 0 (br . br))
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
843 (?$(5"r(B 0 (br . tr))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
844 (?$(5"s(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
845 (?$(5"t(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
846 (?$(5"u(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
847 (?$(5"v(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
848 (?$(5"w(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
849 (?$(5"x(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
850 (?$(5"y(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
851 (?$(5"z(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
852 (?$(5"{(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
853 (?$(5"|(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
854 (?$(5"}(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
855 (?$(5"~(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
856 (?$(5#!(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
857 (?$(5#"(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
858 (?$(5##(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
859 (?$(5#$(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
860 (?$(5#%(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
861 (?$(5#&(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
862 (?$(5#'(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
863 (?$(5#((B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
864 (?$(5#)(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
865 (?$(5#*(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
866 (?$(5#+(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
867 (?$(5#,(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
868 (?$(5#-(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
869 (?$(5#.(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
870 (?$(5#/(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
871 (?$(5#0(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
872 (?$(5#1(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
873 (?$(5#2(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
874 (?$(5#3(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
875 (?$(5#4(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
876 (?$(5#5(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
877 (?$(5#6(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
878 (?$(5#7(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
879 (?$(5#8(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
880 (?$(5#9(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
881 (?$(5#:(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
882 (?$(5#;(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
883 (?$(5#<(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
884 (?$(5#=(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
885 (?$(5#>(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
886 (?$(5#?(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
887 (?$(5#@(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
888 (?$(5#A(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
889 (?$(5#B(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
890 (?$(5#C(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
891 (?$(5#D(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
892 (?$(5#E(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
893 (?$(5#F(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
894 (?$(5#G(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
895 (?$(5#H(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
896 (?$(5#I(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
897 (?$(5#J(B 0)
17300
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
898 (?$(5#K(B 0 (br . tr))
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
899 (?$(5#L(B 0 (br . tr))
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
900 (?$(5#M(B 0 (br . tr))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
901 (?$(5#N(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
902 (?$(5#O(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
903 (?$(5#P(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
904 (?$(5#Q(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
905 (?$(5#R(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
906 (?$(5#S(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
907 (?$(5#T(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
908 (?$(5#U(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
909 (?$(5#V(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
910 (?$(5#W(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
911 (?$(5#X(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
912 (?$(5#Y(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
913 (?$(5#Z(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
914 (?$(5#[(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
915 (?$(5#\(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
916 (?$(5#](B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
917 (?$(5#^(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
918 (?$(5#_(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
919 (?$(5#`(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
920 (?$(5#a(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
921 (?$(5#b(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
922 (?$(5#c(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
923 (?$(5#d(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
924 (?$(5#e(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
925 (?$(5#f(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
926 (?$(5#g(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
927 (?$(5#h(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
928 (?$(5#i(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
929 (?$(5#j(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
930 (?$(5#k(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
931 (?$(5#l(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
932 (?$(5#m(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
933 (?$(5#n(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
934 (?$(5#o(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
935 (?$(5#p(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
936 (?$(5#q(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
937 (?$(5#r(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
938 (?$(5#s(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
939 (?$(5#t(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
940 (?$(5#u(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
941 (?$(5#v(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
942 (?$(5#w(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
943 (?$(5#x(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
944 (?$(5#y(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
945 (?$(5#z(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
946 (?$(5#{(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
947 (?$(5#|(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
948 (?$(5#}(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
949 (?$(5#~(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
950 (?$(5$!(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
951 (?$(5$"(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
952 (?$(5$#(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
953 (?$(5$$(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
954 (?$(5$%(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
955 (?$(5$&(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
956 (?$(5$'(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
957 (?$(5$((B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
958 (?$(5$)(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
959 (?$(5$*(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
960 (?$(5$+(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
961 (?$(5$,(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
962 (?$(5$-(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
963 (?$(5$.(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
964 (?$(5$/(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
965 (?$(5$0(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
966 (?$(5$1(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
967 (?$(5$2(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
968 (?$(5$3(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
969 (?$(5$4(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
970 (?$(5$5(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
971 (?$(5$6(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
972 (?$(5$7(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
973 (?$(5$8(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
974 (?$(5$9(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
975 (?$(5$:(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
976 (?$(5$;(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
977 (?$(5$<(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
978 (?$(5$=(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
979 (?$(5$>(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
980 (?$(5$?(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
981 (?$(5$@(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
982 (?$(5$A(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
983 (?$(5$B(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
984 (?$(5$C(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
985 (?$(5$D(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
986 (?$(5$E(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
987 (?$(5$F(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
988 (?$(5$G(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
989 (?$(5$H(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
990 (?$(5$I(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
991 (?$(5$J(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
992 (?$(5$K(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
993 (?$(5$L(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
994 (?$(5$M(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
995 (?$(5$N(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
996 (?$(5$O(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
997 (?$(5$P(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
998 (?$(5$Q(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
999 (?$(5$R(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1000 (?$(5$S(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1001 (?$(5$T(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1002 (?$(5$U(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1003 (?$(5$V(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1004 (?$(5$W(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1005 (?$(5$X(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1006 (?$(5$Y(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1007 (?$(5$Z(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1008 (?$(5$[(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1009 (?$(5$\(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1010 (?$(5$](B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1011 (?$(5$^(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1012 (?$(5$_(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1013 (?$(5$`(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1014 (?$(5$a(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1015 (?$(5$b(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1016 (?$(5$c(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1017 (?$(5$d(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1018 (?$(5$e(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1019 (?$(5$f(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1020 (?$(5$g(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1021 (?$(5$h(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1022 (?$(5$i(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1023 (?$(5$j(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1024 (?$(5$k(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1025 (?$(5$l(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1026 (?$(5$m(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1027 (?$(5$n(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1028 (?$(5$o(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1029 (?$(5$p(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1030 (?$(5$q(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1031 (?$(5$r(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1032 (?$(5$s(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1033 (?$(5$t(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1034 (?$(5$u(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1035 (?$(5$v(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1036 (?$(5$w(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1037 (?$(5$x(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1038 (?$(5$y(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1039 (?$(5$z(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1040 (?$(5${(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1041 (?$(5$|(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1042 (?$(5$}(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1043 (?$(5$~(B 0)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1044 ))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1045
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1046 ;; Determine composition priority and rule of the array of Glyphs.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1047 ;; Sort the glyphs with their priority.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1048
26894
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
1049 (defun devanagari-reorder-glyphs-for-composition (string start end)
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
1050 (let ((pos start)
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
1051 (ordered-glyphs nil))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
1052 (while (< pos end)
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
1053 (let ((glyph (aref string pos)))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1054 (setq pos (1+ pos))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1055 (setq ordered-glyphs
26894
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
1056 (append ordered-glyphs
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
1057 (list (assq glyph devanagari-composition-rules))))))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1058 (sort ordered-glyphs '(lambda (x y) (< (car (cdr x)) (car (cdr y)))))))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1059
26894
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
1060 ! ;;(devanagari-compose-to-one-glyph "$(5"5!X![(B") => "4$(6!Xv#"5t%![0!X"5![1(B"
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1061
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1062 (defun devanagari-compose-to-one-glyph (devanagari-string)
17300
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
1063 (let* ((o-glyph-list (devanagari-reorder-glyphs-for-composition
26894
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
1064 devanagari-string 0 (length devanagari-string)))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1065 ;; List of glyphs to be composed.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1066 (cmp-glyph-list (list (car (car o-glyph-list))))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1067 (o-glyph-list (cdr o-glyph-list)))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1068 (while o-glyph-list
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1069 (let* ((o-glyph (car o-glyph-list))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1070 (glyph (if (< 2 (length o-glyph))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1071 ;; default composition
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1072 (list (car (cdr (cdr o-glyph))) (car o-glyph))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1073 ;; composition with a specified rule
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1074 (list '(mr . ml) (car o-glyph)))))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1075 (setq o-glyph-list (cdr o-glyph-list))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1076 (setq cmp-glyph-list (append cmp-glyph-list glyph))))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1077 ;; Before applying compose-chars, convert glyphs to
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1078 ;; 1-column width if possible.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1079 (setq cmp-glyph-list (devanagari-wide-to-narrow cmp-glyph-list))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1080 (if (= (length cmp-glyph-list) 1) (char-to-string (car cmp-glyph-list))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1081 (apply 'compose-chars cmp-glyph-list))))
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1082
26894
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
1083 (defun devanagari-composition-component (string &optional start end)
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
1084 (or start (setq start 0))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
1085 (or end (setq end (length string)))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
1086 (let* ((o-glyph-list (devanagari-reorder-glyphs-for-composition
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
1087 string start end))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
1088 ;; List of glyphs to be composed.
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
1089 (cmp-glyph-list (list (car (car o-glyph-list)))))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
1090 (setq o-glyph-list (cdr o-glyph-list))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
1091 (while o-glyph-list
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
1092 (let* ((o-glyph (car o-glyph-list))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
1093 (glyph (if (< 2 (length o-glyph))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
1094 ;; default composition
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
1095 (list (car (cdr (cdr o-glyph))) (car o-glyph))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
1096 ;; composition with a specified rule
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
1097 (list '(mr . ml) (car o-glyph)))))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
1098 (setq o-glyph-list (cdr o-glyph-list))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
1099 (setq cmp-glyph-list (append cmp-glyph-list glyph))))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
1100 ;; Convert glyphs to 1-column width if possible.
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
1101 (devanagari-wide-to-narrow cmp-glyph-list)))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
1102
17087
fb13faeea9aa Fix handling of several characters.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
1103 ;; Utility function for Phase 2.5
26894
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
1104
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
1105 ;; Check whether GLYPH is a Devanagari vertical modifier or not.
17087
fb13faeea9aa Fix handling of several characters.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
1106 ;; If it is a vertical modifier, whether it should be 1-column shape or not
fb13faeea9aa Fix handling of several characters.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
1107 ;; depends on previous non-vertical modifier.
fb13faeea9aa Fix handling of several characters.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
1108 (defun devanagari-vertical-modifier-p (glyph)
fb13faeea9aa Fix handling of several characters.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
1109 (string-match (char-to-string glyph)
21442
b598d28da979 Typos in comment fixed.
Kenichi Handa <handa@m17n.org>
parents: 20839
diff changeset
1110 "[$(5!"!]!^!_!`!a!b!c!h!i"p"q"r#K#L#M(B]"))
17087
fb13faeea9aa Fix handling of several characters.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
1111
fb13faeea9aa Fix handling of several characters.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
1112 (defun devanagari-non-vertical-modifier-p (glyph)
fb13faeea9aa Fix handling of several characters.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
1113 (string-match (char-to-string glyph)
21442
b598d28da979 Typos in comment fixed.
Kenichi Handa <handa@m17n.org>
parents: 20839
diff changeset
1114 ; "[$(5!Z![!\!d!e!f!g(B]"))
b598d28da979 Typos in comment fixed.
Kenichi Handa <handa@m17n.org>
parents: 20839
diff changeset
1115 "[$(5![(B]"))
17087
fb13faeea9aa Fix handling of several characters.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
1116
21442
b598d28da979 Typos in comment fixed.
Kenichi Handa <handa@m17n.org>
parents: 20839
diff changeset
1117 (defun devanagari-wide-to-narrow-char (char)
26894
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
1118 "Convert Devanagari character CHAR to the corresponding narrow character.
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
1119 If there's no corresponding narrow character, return CHAR as is."
21442
b598d28da979 Typos in comment fixed.
Kenichi Handa <handa@m17n.org>
parents: 20839
diff changeset
1120 (let ((narrow (cdr (assq char devanagari-1-column-char))))
26894
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
1121 (or narrow char)))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1122
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1123 ;;
26894
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
1124 ;; Phase 2.5 Convert appropriate character to 1-column shape.
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1125 ;;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1126 ;; This is temporary and should be removed out when Emacs supports
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1127 ;; variable width characters.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1128 ;;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1129 ;; This will convert the composing glyphs (2 column glyphs)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1130 ;; to narrow (1 column) glyphs if they exist.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1131 ;;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1132 ;; devanagari-wide-to-narrow-old converts glyphs simply.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1133 ;; devanagari-wide-to-narrow takes care of upper/lower apply-glyphs
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1134 ;; with 2 column base-glyph.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1135 ;;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1136 ;; Execution Examples
17087
fb13faeea9aa Fix handling of several characters.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
1137 ;;(devanagari-wide-to-narrow '(?$(5!3(B (ml . ml) ?$(5!a(B))
fb13faeea9aa Fix handling of several characters.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
1138 ;;(devanagari-wide-to-narrow '(?$(5!F(B (ml . ml) ?$(5!a(B))
fb13faeea9aa Fix handling of several characters.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
1139
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1140 (defun devanagari-wide-to-narrow (src-list)
17087
fb13faeea9aa Fix handling of several characters.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
1141 (devanagari-wide-to-narrow-iter src-list t))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1142
21442
b598d28da979 Typos in comment fixed.
Kenichi Handa <handa@m17n.org>
parents: 20839
diff changeset
1143 (defun devanagari-wide-to-narrow-iter (src-list 2-col-glyph)
17087
fb13faeea9aa Fix handling of several characters.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
1144 (let ((glyph (car src-list)))
fb13faeea9aa Fix handling of several characters.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
1145 (cond ((null src-list) '())
fb13faeea9aa Fix handling of several characters.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
1146 ; not glyph code
fb13faeea9aa Fix handling of several characters.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
1147 ((not (numberp glyph))
26894
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
1148 (cons glyph
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
1149 (devanagari-wide-to-narrow-iter (cdr src-list) 2-col-glyph)))
21442
b598d28da979 Typos in comment fixed.
Kenichi Handa <handa@m17n.org>
parents: 20839
diff changeset
1150 ; glyphs to be processed regardless of the value of "2-col-glyph"
b598d28da979 Typos in comment fixed.
Kenichi Handa <handa@m17n.org>
parents: 20839
diff changeset
1151 ((devanagari-non-vertical-modifier-p glyph)
b598d28da979 Typos in comment fixed.
Kenichi Handa <handa@m17n.org>
parents: 20839
diff changeset
1152 (cons (devanagari-wide-to-narrow-char glyph)
b598d28da979 Typos in comment fixed.
Kenichi Handa <handa@m17n.org>
parents: 20839
diff changeset
1153 (devanagari-wide-to-narrow-iter (cdr src-list) 2-col-glyph)))
b598d28da979 Typos in comment fixed.
Kenichi Handa <handa@m17n.org>
parents: 20839
diff changeset
1154 ; glyphs which are depends on the value of "2-col-glyph"
17087
fb13faeea9aa Fix handling of several characters.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
1155 ((devanagari-vertical-modifier-p glyph)
21442
b598d28da979 Typos in comment fixed.
Kenichi Handa <handa@m17n.org>
parents: 20839
diff changeset
1156 (if 2-col-glyph
17087
fb13faeea9aa Fix handling of several characters.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
1157 (cons glyph
21442
b598d28da979 Typos in comment fixed.
Kenichi Handa <handa@m17n.org>
parents: 20839
diff changeset
1158 (devanagari-wide-to-narrow-iter (cdr src-list) t))
b598d28da979 Typos in comment fixed.
Kenichi Handa <handa@m17n.org>
parents: 20839
diff changeset
1159 (cons (devanagari-wide-to-narrow-char glyph)
26894
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
1160 (devanagari-wide-to-narrow-iter (cdr src-list)
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
1161 2-col-glyph))))
17087
fb13faeea9aa Fix handling of several characters.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
1162 ; normal glyph
fb13faeea9aa Fix handling of several characters.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
1163 (t
fb13faeea9aa Fix handling of several characters.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
1164 (if (cdr (assq glyph devanagari-1-column-char))
21442
b598d28da979 Typos in comment fixed.
Kenichi Handa <handa@m17n.org>
parents: 20839
diff changeset
1165 (cons (devanagari-wide-to-narrow-char glyph)
17087
fb13faeea9aa Fix handling of several characters.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
1166 (devanagari-wide-to-narrow-iter (cdr src-list) nil))
fb13faeea9aa Fix handling of several characters.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
1167 (cons glyph
fb13faeea9aa Fix handling of several characters.
Kenichi Handa <handa@m17n.org>
parents: 17071
diff changeset
1168 (devanagari-wide-to-narrow-iter (cdr src-list) t)))))))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1169
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1170
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1171 ;;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1172 ;; Summary
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1173 ;;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1174
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1175 ;;
26894
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
1176 ;; Decomposition of composite sequence.
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1177 ;;
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1178
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1179 ;;;###autoload
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1180 (defun devanagari-decompose-string (str)
26894
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
1181 "Decompose Devanagari string STR"
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
1182 (decompose-string (copy-sequence str)))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1183
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1184 ;;;###autoload
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1185 (defun devanagari-decompose-region (from to)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1186 (interactive "r")
26894
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
1187 (decompose-region from to))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1188
17300
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
1189 ;;;
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
1190 ;;; Composition
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
1191 ;;;
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1192
17300
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
1193 ;;;###autoload
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
1194 (defun devanagari-compose-string (str &rest langs)
26894
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
1195 (setq str (copy-sequence str))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
1196 (let ((idx 0)
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
1197 rest match-b match-e)
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
1198 (while (string-match devanagari-composite-glyph-unit str idx)
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
1199 (let* ((match-b (match-beginning 0))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
1200 (match-e (match-end 0))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
1201 (cmps (devanagari-composition-component
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
1202 (apply
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
1203 'char-to-glyph-devanagari
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
1204 (cons (substring str match-b match-e) langs)))))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
1205 (compose-string str match-b match-e cmps)
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
1206 (setq idx match-e))))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
1207 str)
17300
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
1208
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
1209 ;;;###autoload
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
1210 (defun devanagari-compose-region (from to &rest langs)
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
1211 (interactive "r")
26894
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
1212 (save-excursion
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
1213 (save-restriction
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
1214 (narrow-to-region from to)
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
1215 (goto-char (point-min))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
1216 (while (re-search-forward devanagari-composite-glyph-unit nil t)
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
1217 (let* ((match-b (match-beginning 0)) (match-e (match-end 0))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
1218 (cmps (devanagari-composition-component
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
1219 (apply
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
1220 'char-to-glyph-devanagari
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
1221 (cons (buffer-substring match-b match-e) langs)))))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
1222 (compose-region match-b match-e cmps))))))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1223
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1224 ;; For pre-write and post-read conversion
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1225
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1226 ;;;###autoload
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1227 (defun devanagari-compose-from-is13194-region (from to)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1228 "Compose IS 13194 characters in the region to Devanagari characters."
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1229 (interactive "r")
20111
761a83f7cb4e (devanagari-compose-from-is13194-region):
Kenichi Handa <handa@m17n.org>
parents: 18547
diff changeset
1230 (save-excursion
761a83f7cb4e (devanagari-compose-from-is13194-region):
Kenichi Handa <handa@m17n.org>
parents: 18547
diff changeset
1231 (save-restriction
761a83f7cb4e (devanagari-compose-from-is13194-region):
Kenichi Handa <handa@m17n.org>
parents: 18547
diff changeset
1232 (narrow-to-region from to)
761a83f7cb4e (devanagari-compose-from-is13194-region):
Kenichi Handa <handa@m17n.org>
parents: 18547
diff changeset
1233 (indian-to-devanagari-region (point-min) (point-max))
761a83f7cb4e (devanagari-compose-from-is13194-region):
Kenichi Handa <handa@m17n.org>
parents: 18547
diff changeset
1234 (devanagari-compose-region (point-min) (point-max))
761a83f7cb4e (devanagari-compose-from-is13194-region):
Kenichi Handa <handa@m17n.org>
parents: 18547
diff changeset
1235 (- (point-max) (point-min)))))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1236
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1237 ;;;###autoload
17773
f1ece95d00c2 (in-is13194-devanagari-post-read-conversion): New function.
Kenichi Handa <handa@m17n.org>
parents: 17314
diff changeset
1238 (defun in-is13194-devanagari-post-read-conversion (len)
26894
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
1239 (let ((pos (point)))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
1240 (devanagari-compose-from-is13194-region pos (+ pos len))))
17773
f1ece95d00c2 (in-is13194-devanagari-post-read-conversion): New function.
Kenichi Handa <handa@m17n.org>
parents: 17314
diff changeset
1241
f1ece95d00c2 (in-is13194-devanagari-post-read-conversion): New function.
Kenichi Handa <handa@m17n.org>
parents: 17314
diff changeset
1242 ;;;###autoload
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1243 (defun devanagari-decompose-to-is13194-region (from to)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1244 "Decompose Devanagari characters in the region to IS 13194 characters."
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1245 (interactive "r")
26894
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
1246 (save-excursion
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
1247 (save-restriction
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
1248 (narrow-to-region from to)
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
1249 (devanagari-decompose-region (point-min) (point-max))
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
1250 (devanagari-to-indian-region (point-min) (point-max)))))
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1251
17773
f1ece95d00c2 (in-is13194-devanagari-post-read-conversion): New function.
Kenichi Handa <handa@m17n.org>
parents: 17314
diff changeset
1252 ;;;###autoload
f1ece95d00c2 (in-is13194-devanagari-post-read-conversion): New function.
Kenichi Handa <handa@m17n.org>
parents: 17314
diff changeset
1253 (defun in-is13194-devanagari-pre-write-conversion (from to)
23525
7462da3c79cb (in-is13194-devanagari-pre-write-conversion): Use with-temp-buffer.
Kenichi Handa <handa@m17n.org>
parents: 22987
diff changeset
1254 (let ((old-buf (current-buffer)))
23548
87736ae8e5ff (in-is13194-devanagari-pre-write-conversion): Cancel previous
Kenichi Handa <handa@m17n.org>
parents: 23525
diff changeset
1255 (set-buffer (generate-new-buffer " *temp*"))
87736ae8e5ff (in-is13194-devanagari-pre-write-conversion): Cancel previous
Kenichi Handa <handa@m17n.org>
parents: 23525
diff changeset
1256 (if (stringp from)
87736ae8e5ff (in-is13194-devanagari-pre-write-conversion): Cancel previous
Kenichi Handa <handa@m17n.org>
parents: 23525
diff changeset
1257 (insert from)
87736ae8e5ff (in-is13194-devanagari-pre-write-conversion): Cancel previous
Kenichi Handa <handa@m17n.org>
parents: 23525
diff changeset
1258 (insert-buffer-substring old-buf from to))
87736ae8e5ff (in-is13194-devanagari-pre-write-conversion): Cancel previous
Kenichi Handa <handa@m17n.org>
parents: 23525
diff changeset
1259 (devanagari-decompose-to-is13194-region (point-min) (point-max))
17773
f1ece95d00c2 (in-is13194-devanagari-post-read-conversion): New function.
Kenichi Handa <handa@m17n.org>
parents: 17314
diff changeset
1260 ;; Should return nil as annotations.
f1ece95d00c2 (in-is13194-devanagari-post-read-conversion): New function.
Kenichi Handa <handa@m17n.org>
parents: 17314
diff changeset
1261 nil))
17300
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
1262
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
1263 ;; For input/output of ITRANS
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
1264
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
1265 ;;;###autoload
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
1266 (defun devanagari-encode-itrans-region (from to)
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
1267 (interactive "r")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
1268 (save-restriction
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
1269 (narrow-to-region from to)
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
1270 (devanagari-decompose-to-is13194-region (point-min) (point-max))
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
1271 (indian-encode-itrans-region (point-min) (point-max))))
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
1272
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
1273 ;;;###autoload
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
1274 (defun devanagari-decode-itrans-region (from to)
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
1275 (interactive "r")
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
1276 (save-restriction
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
1277 (narrow-to-region from to)
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
1278 (indian-decode-itrans-region (point-min) (point-max))
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
1279 (devanagari-compose-from-is13194-region (point-min) (point-max))))
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
1280
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1281 ;;
18309
bd8b521f5218 Provide XXX-util instead of
Kenichi Handa <handa@m17n.org>
parents: 18203
diff changeset
1282 (provide 'devan-util)
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1283
36680
0c75fe9804e2 Add coding: tag in Local Variables: section.
Kenichi Handa <handa@m17n.org>
parents: 31446
diff changeset
1284 ;; Local Variables:
0c75fe9804e2 Add coding: tag in Local Variables: section.
Kenichi Handa <handa@m17n.org>
parents: 31446
diff changeset
1285 ;; coding: iso-2022-7bit
0c75fe9804e2 Add coding: tag in Local Variables: section.
Kenichi Handa <handa@m17n.org>
parents: 31446
diff changeset
1286 ;; End:
38436
b174db545cfd Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents: 36680
diff changeset
1287
b174db545cfd Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents: 36680
diff changeset
1288 ;;; devan-util.el ends here