annotate lisp/language/devan-util.el @ 57279:c8797551b3a0

(diff-file-header-re): Tighten up regexp a tiny bit. (diff-fixup-modifs): Catch unified-diff file-headers.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Wed, 29 Sep 2004 17:42:50 +0000
parents c66eebe86159
children 197607499a29
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
41469
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
1 ;;; devan-util.el --- Support for composing Devanagari characters
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2
41469
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
3 ;; Copyright (C) 2001 Free Software Foundation, Inc.
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4
49704
003055ca7e13 Maintainer's mail address changed.
Kenichi Handa <handa@m17n.org>
parents: 49598
diff changeset
5 ;; Maintainer: KAWABATA, Taichi <kawabata@m17n.org>
41469
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
6 ;; Keywords: multilingual, Devanagari
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8 ;; This file is part of GNU Emacs.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
9
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
10 ;; GNU Emacs is free software; you can redistribute it and/or modify
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
11 ;; it under the terms of the GNU General Public License as published by
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
12 ;; the Free Software Foundation; either version 2, or (at your option)
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
13 ;; any later version.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
14
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
15 ;; GNU Emacs is distributed in the hope that it will be useful,
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
18 ;; GNU General Public License for more details.
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
19
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
20 ;; 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
21 ;; 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
22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
f438ebf1c679 Fix FSF address in comment.
Kenichi Handa <handa@m17n.org>
parents: 17300
diff changeset
23 ;; Boston, MA 02111-1307, USA.
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
24
41469
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
25 ;; Created: Feb. 17. 2001
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
26
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
27 ;;; Commentary:
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
28
41469
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
29 ;; This file provides character(Unicode) to glyph(CDAC) conversion and
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
30 ;; composition of Devanagari script characters.
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
31
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
32 ;;; Code:
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
33
41599
89445d205fb8 Undo 2001-11-26 change.
Kenichi Handa <handa@m17n.org>
parents: 41554
diff changeset
34 ;;;###autoload
26894
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
35
41469
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
36 ;; Devanagari Composable Pattern
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
37 ;; C .. Consonants
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
38 ;; V .. Vowel
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
39 ;; H .. Halant
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
40 ;; M .. Matra
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
41 ;; V .. Vowel
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
42 ;; A .. Anuswar
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
43 ;; D .. Chandrabindu
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
44 ;; (N .. Zerowidth Non Joiner)
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
45 ;; (J .. Zerowidth Joiner. )
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
46 ;; 1. vowel
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
47 ;; V(A/D)?
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
48 ;; 2. syllable : maximum of 5 consecutive consonants. (e.g. kartsnya)
41602
402b676048e8 Fix comment.
Kenichi Handa <handa@m17n.org>
parents: 41599
diff changeset
49 ;; ((CH)?(CH)?(CH)?CH)?C(H|M?(A|D)?)?
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
50
41469
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
51 (defconst devanagari-consonant
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
52 "[$,15U(B-$,15y68(B-$,16?(B]")
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
53
41469
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
54 (defconst devanagari-composable-pattern
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
55 (concat
49709
512864aab842 (devanagari-composable-pattern): Add DANDA character.
Kenichi Handa <handa@m17n.org>
parents: 49704
diff changeset
56 "\\([$,15E(B-$,15T6@6A(B][$,15A5B(B]?\\)\\|[$,15C6D(B]"
41469
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
57 "\\|\\("
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
58 "\\(?:\\(?:[$,15U(B-$,15y68(B-$,16?(B]$,16-(B\\)?\\(?:[$,15U(B-$,15y68(B-$,16?(B]$,16-(B\\)?\\(?:[$,15U(B-$,15y68(B-$,16?(B]$,16-(B\\)?[$,15U(B-$,15y68(B-$,16?(B]$,16-(B\\)?"
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
59 "[$,15U(B-$,15y68(B-$,16?(B]\\(?:$,16-(B\\|[$,15~(B-$,16-6B6C(B]?[$,15B5A(B]?\\)?"
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
60 "\\)")
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
61 "Regexp matching a composable sequence of Devanagari characters.")
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
62
56030
c66eebe86159 (devanagari-compose-region): Add autoload cookie.
Kenichi Handa <handa@m17n.org>
parents: 52517
diff changeset
63 ;;;###autoload
41469
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
64 (defun devanagari-compose-region (from to)
17300
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
65 (interactive "r")
26894
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
66 (save-excursion
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
67 (save-restriction
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
68 (narrow-to-region from to)
e0a13ff5901d Mostly rewritten.
Kenichi Handa <handa@m17n.org>
parents: 23886
diff changeset
69 (goto-char (point-min))
41469
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
70 (while (re-search-forward devanagari-composable-pattern nil t)
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
71 (devanagari-compose-syllable-region (match-beginning 0)
41469
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
72 (match-end 0))))))
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
73 (defun devanagari-compose-string (string)
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
74 (with-temp-buffer
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
75 (insert (decompose-string string))
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
76 (devanagari-compose-region (point-min) (point-max))
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
77 (buffer-string)))
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
78
52517
549161fcb9cc (devanagari-post-read-conversion): Add autoload cookie.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
79 ;;;###autoload
42054
144a811f0590 (devanagari-post-read-conversion): New
Dave Love <fx@gnu.org>
parents: 41602
diff changeset
80 (defun devanagari-post-read-conversion (len)
144a811f0590 (devanagari-post-read-conversion): New
Dave Love <fx@gnu.org>
parents: 41602
diff changeset
81 (save-excursion
144a811f0590 (devanagari-post-read-conversion): New
Dave Love <fx@gnu.org>
parents: 41602
diff changeset
82 (save-restriction
144a811f0590 (devanagari-post-read-conversion): New
Dave Love <fx@gnu.org>
parents: 41602
diff changeset
83 (let ((buffer-modified-p (buffer-modified-p)))
144a811f0590 (devanagari-post-read-conversion): New
Dave Love <fx@gnu.org>
parents: 41602
diff changeset
84 (narrow-to-region (point) (+ (point) len))
144a811f0590 (devanagari-post-read-conversion): New
Dave Love <fx@gnu.org>
parents: 41602
diff changeset
85 (devanagari-compose-region (point-min) (point-max))
144a811f0590 (devanagari-post-read-conversion): New
Dave Love <fx@gnu.org>
parents: 41602
diff changeset
86 (set-buffer-modified-p buffer-modified-p)
144a811f0590 (devanagari-post-read-conversion): New
Dave Love <fx@gnu.org>
parents: 41602
diff changeset
87 (- (point-max) (point-min))))))
144a811f0590 (devanagari-post-read-conversion): New
Dave Love <fx@gnu.org>
parents: 41602
diff changeset
88
42061
0332665b9445 (devanagari-range): Renamed from `range'. All calls changed.
Richard M. Stallman <rms@gnu.org>
parents: 42054
diff changeset
89 (defun devanagari-range (from to)
41469
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
90 "Make the list of the integers of range FROM to TO."
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
91 (let (result)
41469
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
92 (while (<= from to) (setq result (cons to result) to (1- to))) result))
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
93
42061
0332665b9445 (devanagari-range): Renamed from `range'. All calls changed.
Richard M. Stallman <rms@gnu.org>
parents: 42054
diff changeset
94 (defun devanagari-regexp-of-hashtbl-keys (hashtbl)
0332665b9445 (devanagari-range): Renamed from `range'. All calls changed.
Richard M. Stallman <rms@gnu.org>
parents: 42054
diff changeset
95 "Return a regular expression that matches all keys in hashtable HASHTBL."
41469
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
96 (let ((max-specpdl-size 1000))
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
97 (regexp-opt
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
98 (sort
41469
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
99 (let (dummy)
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
100 (maphash (function (lambda (key val) (setq dummy (cons key dummy)))) hashtbl)
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
101 dummy)
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
102 (function (lambda (x y) (> (length x) (length y))))))))
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
103
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
104 (defun devanagari-composition-function (from to pattern &optional string)
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
105 "Compose Devanagari characters in REGION, or STRING if specified.
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
106 Assume that the REGION or STRING must fully match the composable
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
107 PATTERN regexp."
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
108 (if string (devanagari-compose-syllable-string string)
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
109 (devanagari-compose-syllable-region from to))
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
110 (- to from))
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
111
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
112 ;; Register a function to compose Devanagari characters.
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
113 (mapc
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
114 (function (lambda (ucs)
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
115 (aset composition-function-table (decode-char 'ucs ucs)
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
116 (list (cons devanagari-composable-pattern
41469
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
117 'devanagari-composition-function)))))
42061
0332665b9445 (devanagari-range): Renamed from `range'. All calls changed.
Richard M. Stallman <rms@gnu.org>
parents: 42054
diff changeset
118 (nconc '(#x0903) (devanagari-range #x0905 #x0939) (devanagari-range #x0958 #x0961)))
41469
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
119
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
120 ;; Notes on conversion steps.
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
121
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
122 ;; 1. chars to glyphs
41469
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
123 ;;
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
124 ;; Rules will not be applied to the halant appeared at the end of the
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
125 ;; text. Also, the preceding/following "r" will be treated as special case.
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
126
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
127 ;; 2. glyphs reordering.
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
128 ;;
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
129 ;; The glyphs are split by halant, and each glyph groups are
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
130 ;; re-ordered in the following order.
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
131 ;;
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
132 ;; Note that `consonant-glyph' mentioned here does not contain the
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
133 ;; vertical bar (right modifier) attached at the right of the
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
134 ;; consonant.
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
135 ;;
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
136 ;; If the glyph-group contains right modifier,
41469
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
137 ;; (1) consonant-glyphs/vowels, with nukta sign
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
138 ;; (2) spacing
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
139 ;; (3) right modifier (may be matra)
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
140 ;; (4) top matra
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
141 ;; (5) preceding "r"
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
142 ;; (6) anuswar
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
143 ;; (7) following "r"
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
144 ;; (8) bottom matra or halant.
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
145 ;;
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
146 ;; Otherwise,
41469
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
147 ;; (1) consonant-glyph/vowels, with nukta sign
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
148 ;; (3) left matra
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
149 ;; (4) top matra
41469
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
150 ;; (5) preceding "r"
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
151 ;; (6) anuswar
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
152 ;; (7) following "r"
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
153 ;; (8) bottom matra or halant.
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
154 ;; (2) spacing
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
155
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
156 ;; 3. glyph to glyph
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
157 ;;
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
158 ;; For better display, some glyph display would be tuned.
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
159
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
160 ;; 4. Composition.
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
161 ;;
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
162 ;; left modifiers will be attached at the left.
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
163 ;; others will be attached right.
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
164
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
165 ;; Problem::
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
166 ;; Can we generalize this methods to other Indian scripts?
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
167
41523
9dcf83921a38 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 41477
diff changeset
168 (defvar dev-char-glyph
9dcf83921a38 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 41477
diff changeset
169 '(("$,15E(B" . "$,4 K(B")
41599
89445d205fb8 Undo 2001-11-26 change.
Kenichi Handa <handa@m17n.org>
parents: 41554
diff changeset
170 ("$,15F(B" . "$,4 K")(B")
89445d205fb8 Undo 2001-11-26 change.
Kenichi Handa <handa@m17n.org>
parents: 41554
diff changeset
171 ("$,15~(B" . "$,4")(B")
41523
9dcf83921a38 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 41477
diff changeset
172 ("$,15G(B" . "$,4 \(B")
41599
89445d205fb8 Undo 2001-11-26 change.
Kenichi Handa <handa@m17n.org>
parents: 41554
diff changeset
173 ("$,15(B" . "$,4"*(B")
89445d205fb8 Undo 2001-11-26 change.
Kenichi Handa <handa@m17n.org>
parents: 41554
diff changeset
174 ("$,155A(B" . "$,4"*(B\$,4"&(B")
41523
9dcf83921a38 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 41477
diff changeset
175 ("$,15H(B" . "$,4 \"'(B")
41599
89445d205fb8 Undo 2001-11-26 change.
Kenichi Handa <handa@m17n.org>
parents: 41554
diff changeset
176 ("$,15H5A(B" . "$,4 \"'"&(B")
89445d205fb8 Undo 2001-11-26 change.
Kenichi Handa <handa@m17n.org>
parents: 41554
diff changeset
177 ("$,16 (B" . "$,4"2(B")
89445d205fb8 Undo 2001-11-26 change.
Kenichi Handa <handa@m17n.org>
parents: 41554
diff changeset
178 ("$,16 5A(B" . "$,4"2"&(B")
41523
9dcf83921a38 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 41477
diff changeset
179 ("$,15I(B" . "$,4 ](B")
41599
89445d205fb8 Undo 2001-11-26 change.
Kenichi Handa <handa@m17n.org>
parents: 41554
diff changeset
180 ("$,16!(B" . "$,4"6(B")
89445d205fb8 Undo 2001-11-26 change.
Kenichi Handa <handa@m17n.org>
parents: 41554
diff changeset
181 ("$,15J(B" . "$,4 ^"P(B")
89445d205fb8 Undo 2001-11-26 change.
Kenichi Handa <handa@m17n.org>
parents: 41554
diff changeset
182 ("$,16"(B" . "$,4":(B")
89445d205fb8 Undo 2001-11-26 change.
Kenichi Handa <handa@m17n.org>
parents: 41554
diff changeset
183 ("$,15K(B" . "$,4 `"Q(B")
89445d205fb8 Undo 2001-11-26 change.
Kenichi Handa <handa@m17n.org>
parents: 41554
diff changeset
184 ("$,16#(B" . "$,4">(B")
41523
9dcf83921a38 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 41477
diff changeset
185 ;;("$,15L(B" . nil) ; not implemented.
41599
89445d205fb8 Undo 2001-11-26 change.
Kenichi Handa <handa@m17n.org>
parents: 41554
diff changeset
186 ("$,16$(B" . "$,4"?(B")
89445d205fb8 Undo 2001-11-26 change.
Kenichi Handa <handa@m17n.org>
parents: 41554
diff changeset
187 ("$,15M(B" . "$,4 b"L(B")
89445d205fb8 Undo 2001-11-26 change.
Kenichi Handa <handa@m17n.org>
parents: 41554
diff changeset
188 ("$,15M5A(B" . "$,4 b"$(B")
89445d205fb8 Undo 2001-11-26 change.
Kenichi Handa <handa@m17n.org>
parents: 41554
diff changeset
189 ("$,15M5B(B" . "$,4 b"$(B")
89445d205fb8 Undo 2001-11-26 change.
Kenichi Handa <handa@m17n.org>
parents: 41554
diff changeset
190 ("$,16%(B" . "\$,4"L(B")
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
191 ("$,15N(B" . "$,4 b"@(B")
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
192 ("$,15N5A(B" . "$,4 b"@"&(B")
41599
89445d205fb8 Undo 2001-11-26 change.
Kenichi Handa <handa@m17n.org>
parents: 41554
diff changeset
193 ("$,16&(B" . "\$,4"@(B")
89445d205fb8 Undo 2001-11-26 change.
Kenichi Handa <handa@m17n.org>
parents: 41554
diff changeset
194 ("$,16&5A(B" . "\$,4"@(B\$,4"&(B")
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
195 ("$,15O(B" . "$,4 b(B")
41599
89445d205fb8 Undo 2001-11-26 change.
Kenichi Handa <handa@m17n.org>
parents: 41554
diff changeset
196 ("$,16'(B" . "\$,4"D(B")
89445d205fb8 Undo 2001-11-26 change.
Kenichi Handa <handa@m17n.org>
parents: 41554
diff changeset
197 ("$,16'5A(B" . "\$,4"D(B\$,4"&(B")
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
198 ("$,15P(B" . "$,4 b"D(B")
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
199 ("$,15P5A(B" . "$,4 b"D"&(B")
41599
89445d205fb8 Undo 2001-11-26 change.
Kenichi Handa <handa@m17n.org>
parents: 41554
diff changeset
200 ("$,16((B" . "\$,4"H(B")
89445d205fb8 Undo 2001-11-26 change.
Kenichi Handa <handa@m17n.org>
parents: 41554
diff changeset
201 ("$,16(5A(B" . "\$,4"H(B\$,4"&(B")
89445d205fb8 Undo 2001-11-26 change.
Kenichi Handa <handa@m17n.org>
parents: 41554
diff changeset
202 ("$,15Q(B" . "$,4 K")"L(B") ;; special rule for reodering.
89445d205fb8 Undo 2001-11-26 change.
Kenichi Handa <handa@m17n.org>
parents: 41554
diff changeset
203 ("$,15Q5A(B" . "$,4 K")"$(B")
89445d205fb8 Undo 2001-11-26 change.
Kenichi Handa <handa@m17n.org>
parents: 41554
diff changeset
204 ("$,15Q5B(B" . "$,4 K")"$(B")
89445d205fb8 Undo 2001-11-26 change.
Kenichi Handa <handa@m17n.org>
parents: 41554
diff changeset
205 ("$,16)(B" . "\$,4")"L(B")
89445d205fb8 Undo 2001-11-26 change.
Kenichi Handa <handa@m17n.org>
parents: 41554
diff changeset
206 ("$,16)5A(B" . "\$,4")"$(B")
89445d205fb8 Undo 2001-11-26 change.
Kenichi Handa <handa@m17n.org>
parents: 41554
diff changeset
207 ("$,16)5B(B" . "\$,4")"$(B")
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
208 ("$,15R(B" . "$,4 K")"@(B")
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
209 ("$,15R5A(B" . "$,4 K")"@"&(B")
41599
89445d205fb8 Undo 2001-11-26 change.
Kenichi Handa <handa@m17n.org>
parents: 41554
diff changeset
210 ("$,16*(B" . "\$,4")"@(B")
89445d205fb8 Undo 2001-11-26 change.
Kenichi Handa <handa@m17n.org>
parents: 41554
diff changeset
211 ("$,16*5A(B" . "\$,4")"@"&(B")
89445d205fb8 Undo 2001-11-26 change.
Kenichi Handa <handa@m17n.org>
parents: 41554
diff changeset
212 ("$,15S(B" . "$,4 K")"D(B")
89445d205fb8 Undo 2001-11-26 change.
Kenichi Handa <handa@m17n.org>
parents: 41554
diff changeset
213 ("$,15S5A(B" . "$,4 K")"D"&(B")
89445d205fb8 Undo 2001-11-26 change.
Kenichi Handa <handa@m17n.org>
parents: 41554
diff changeset
214 ("$,16+(B" . "\$,4")"D(B")
89445d205fb8 Undo 2001-11-26 change.
Kenichi Handa <handa@m17n.org>
parents: 41554
diff changeset
215 ("$,16+5A(B" . "\$,4")"D"&(B")
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
216 ("$,15T(B" . "$,4 K")"H(B")
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
217 ("$,15T5A(B" . "$,4 K")"H"&(B")
41599
89445d205fb8 Undo 2001-11-26 change.
Kenichi Handa <handa@m17n.org>
parents: 41554
diff changeset
218 ("$,16,(B" . "\$,4")"H(B")
89445d205fb8 Undo 2001-11-26 change.
Kenichi Handa <handa@m17n.org>
parents: 41554
diff changeset
219 ("$,16,5A(B" . "\$,4")"H"&(B")
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
220 ("$,16@(B" . "$,4 a"Q(B")
41523
9dcf83921a38 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 41477
diff changeset
221 ;;("$,16B(B" . nil)
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
222 ;;("$,16A(B" . nil)
41523
9dcf83921a38 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 41477
diff changeset
223 ;;("$,16C(B" . nil)
41469
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
224
41523
9dcf83921a38 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 41477
diff changeset
225 ;; GRUTTALS
41599
89445d205fb8 Undo 2001-11-26 change.
Kenichi Handa <handa@m17n.org>
parents: 41554
diff changeset
226 ("$,15U(B" . "$,4 e"R(B")
41523
9dcf83921a38 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 41477
diff changeset
227 ("$,15U6-(B" . "$,4 c(B")
41599
89445d205fb8 Undo 2001-11-26 change.
Kenichi Handa <handa@m17n.org>
parents: 41554
diff changeset
228 ("$,15U6-5p(B" . "$,4 g"R(B")
89445d205fb8 Undo 2001-11-26 change.
Kenichi Handa <handa@m17n.org>
parents: 41554
diff changeset
229 ("$,15U6-5d(B" . "$,4 h"R(B")
89445d205fb8 Undo 2001-11-26 change.
Kenichi Handa <handa@m17n.org>
parents: 41554
diff changeset
230 ("$,15U6-5w(B" . "$,4 i")(B")
41523
9dcf83921a38 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 41477
diff changeset
231 ("$,15U6-5w6-(B" . "$,4 i(B")
41469
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
232
41599
89445d205fb8 Undo 2001-11-26 change.
Kenichi Handa <handa@m17n.org>
parents: 41554
diff changeset
233 ("$,15V(B" . "$,4 j")(B")
41523
9dcf83921a38 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 41477
diff changeset
234 ("$,15V6-(B" . "$,4 j(B")
41599
89445d205fb8 Undo 2001-11-26 change.
Kenichi Handa <handa@m17n.org>
parents: 41554
diff changeset
235 ("$,15V6-5p(B" . "$,4 l")(B")
41523
9dcf83921a38 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 41477
diff changeset
236 ("$,15V6-5p6-(B" . "$,4 l(B")
41469
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
237
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
238 ("$,15W(B" . "$,4 m")(B")
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
239 ("$,15W6-(B" . "$,4 m(B")
41599
89445d205fb8 Undo 2001-11-26 change.
Kenichi Handa <handa@m17n.org>
parents: 41554
diff changeset
240 ("$,15W6-5p(B" . "$,4 o")(B")
41523
9dcf83921a38 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 41477
diff changeset
241 ("$,15W6-5p6-(B" . "$,4 o(B")
41469
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
242
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
243 ("$,15X(B" . "$,4 p")(B")
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
244 ("$,15X6-(B" . "$,4 p(B")
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
245 ("$,15X6-5p(B" . "$,4 q")(B")
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
246 ("$,15X6-5p6-(B" . "$,4 q(B")
41469
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
247
41599
89445d205fb8 Undo 2001-11-26 change.
Kenichi Handa <handa@m17n.org>
parents: 41554
diff changeset
248 ("$,15Y(B" . "$,4 r"S(B")
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
249 ;; PALATALS
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
250 ("$,15Z(B" . "$,4 s")(B")
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
251 ("$,15Z6-(B" . "$,4 s(B")
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
252 ("$,15Z6-5p(B" . "$,4 t")(B")
41523
9dcf83921a38 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 41477
diff changeset
253 ("$,15Z6-5p6-(B" . "$,4 t(B")
41469
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
254
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
255 ("$,15[(B" . "$,4 u"T(B")
41469
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
256
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
257 ("$,15\(B" . "$,4 v")(B")
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
258 ("$,15\6-(B" . "$,4 v(B")
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
259 ("$,15\6-5p(B" . "$,4 x")(B")
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
260 ("$,15\6-5p6-(B" . "$,4 x(B")
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
261 ("$,15\6-5^(B" . "$,4 y")(B")
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
262 ("$,15\6-5^6-(B" . "$,4 y(B")
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
263
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
264 ("$,15](B" . "$,4 z")(B")
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
265 ("$,15]6-(B" . "$,4 z(B")
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
266 ("$,15]6-5p(B" . "$,4 {")(B")
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
267 ("$,15]6-5p6-(B" . "$,4 {(B")
41469
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
268
41599
89445d205fb8 Undo 2001-11-26 change.
Kenichi Handa <handa@m17n.org>
parents: 41554
diff changeset
269 ("$,15^(B" . "$,4 |")(B")
41523
9dcf83921a38 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 41477
diff changeset
270 ("$,15^6-(B" . "$,4 |(B")
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
271 ;; CEREBRALS
41599
89445d205fb8 Undo 2001-11-26 change.
Kenichi Handa <handa@m17n.org>
parents: 41554
diff changeset
272 ("$,15_(B" . "$,4 }"U(B")
89445d205fb8 Undo 2001-11-26 change.
Kenichi Handa <handa@m17n.org>
parents: 41554
diff changeset
273 ("$,15_6-5_(B" . "$,4 ~"U(B")
89445d205fb8 Undo 2001-11-26 change.
Kenichi Handa <handa@m17n.org>
parents: 41554
diff changeset
274 ("$,15_6-5`(B" . "$,4 "U(B")
41469
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
275
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
276 ("$,15`(B" . "$,4! "V(B")
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
277 ("$,15`6-5`(B" . "$,4!!"V(B")
41469
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
278
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
279 ("$,15a(B" . "$,4!""W(B")
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
280 ("$,15a6-5a(B" . "$,4!$"W(B")
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
281 ("$,15a6-5b(B" . "$,4!%"W(B")
41469
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
282
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
283 ("$,15b(B" . "$,4!&"X(B")
41469
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
284
41599
89445d205fb8 Undo 2001-11-26 change.
Kenichi Handa <handa@m17n.org>
parents: 41554
diff changeset
285 ("$,15c(B" . "$,4!(")(B")
41523
9dcf83921a38 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 41477
diff changeset
286 ("$,15c6-(B" . "$,4!((B")
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
287 ;; DENTALS
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
288 ("$,15d(B" . "$,4!)")(B")
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
289 ("$,15d6-(B" . "$,4!)(B")
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
290 ("$,15d6-5p(B" . "$,4!*")(B")
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
291 ("$,15d6-5p6-(B" . "$,4!*(B")
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
292 ("$,15d6-5d(B" . "$,4!+")(B")
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
293 ("$,15d6-5d6-(B" . "$,4!+(B")
41469
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
294
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
295 ("$,15e(B" . "$,4!,")(B")
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
296 ("$,15e6-(B" . "$,4!,(B")
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
297 ("$,15e6-5p(B" . "$,4!-")(B")
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
298 ("$,15e6-5p6-(B" . "$,4!-(B")
41469
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
299
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
300 ("$,15f(B" . "$,4!."Y(B")
41599
89445d205fb8 Undo 2001-11-26 change.
Kenichi Handa <handa@m17n.org>
parents: 41554
diff changeset
301 ("$,15f6#(B" . "$,4!/"Y(B")
89445d205fb8 Undo 2001-11-26 change.
Kenichi Handa <handa@m17n.org>
parents: 41554
diff changeset
302 ("$,15f6-5p(B" . "$,4!0"Y(B")
89445d205fb8 Undo 2001-11-26 change.
Kenichi Handa <handa@m17n.org>
parents: 41554
diff changeset
303 ("$,15f6-5f(B" . "$,4!1"Y(B")
89445d205fb8 Undo 2001-11-26 change.
Kenichi Handa <handa@m17n.org>
parents: 41554
diff changeset
304 ("$,15f6-5g(B" . "$,4!2"Y(B")
41523
9dcf83921a38 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 41477
diff changeset
305 ("$,15f6-5n(B" . "$,4!3(B")
9dcf83921a38 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 41477
diff changeset
306 ("$,15f6-5o(B" . "$,4!4(B")
41599
89445d205fb8 Undo 2001-11-26 change.
Kenichi Handa <handa@m17n.org>
parents: 41554
diff changeset
307 ("$,15f6-5u(B" . "$,4!5"Y(B")
17773
f1ece95d00c2 (in-is13194-devanagari-post-read-conversion): New function.
Kenichi Handa <handa@m17n.org>
parents: 17314
diff changeset
308
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
309 ("$,15g(B" . "$,4!6")(B")
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
310 ("$,15g6-(B" . "$,4!6(B")
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
311 ("$,15g6-5p(B" . "$,4!7")(B")
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
312 ("$,15g6-5p6-(B" . "$,4!7(B")
41469
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
313
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
314 ("$,15h(B" . "$,4!8")(B")
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
315 ("$,15h6-(B" . "$,4!8(B")
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
316 ("$,15h6-5p(B" . "$,4!9")(B")
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
317 ("$,15h6-5p6-(B" . "$,4!9")(B")
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
318 ("$,15h6-5h(B" . "$,4!:")(B")
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
319 ("$,15h6-5h6-(B" . "$,4!:(B")
41469
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
320
41599
89445d205fb8 Undo 2001-11-26 change.
Kenichi Handa <handa@m17n.org>
parents: 41554
diff changeset
321 ("$,15i(B" . "$,4!8"#")(B")
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
322 ;; LABIALS
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
323 ("$,15j(B" . "$,4!;")(B")
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
324 ("$,15j6-(B" . "$,4!;(B")
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
325 ("$,15j6-5p(B" . "$,4!<")(B")
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
326 ("$,15j6-5p6-(B" . "$,4!<(B")
41469
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
327
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
328 ("$,15k(B" . "$,4!a"[(B")
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
329 ("$,15k6-(B" . "$,4!=(B")
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
330 ("$,15k6-5p(B" . "$,4!c"[(B")
41469
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
331
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
332 ("$,15l(B" . "$,4!d")(B")
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
333 ("$,15l6-(B" . "$,4!d(B")
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
334 ("$,15l6-5p(B" . "$,4!e")(B")
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
335 ("$,15l6-5p6-(B" . "$,4!e(B")
41469
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
336
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
337 ("$,15m(B" . "$,4!f")(B")
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
338 ("$,15m6-(B" . "$,4!f(B")
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
339 ("$,15m6-5p(B" . "$,4!g")(B")
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
340 ("$,15m6-5p6-(B" . "$,4!g(B")
41469
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
341
41599
89445d205fb8 Undo 2001-11-26 change.
Kenichi Handa <handa@m17n.org>
parents: 41554
diff changeset
342 ("$,15n(B" . "$,4!h")(B")
41523
9dcf83921a38 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 41477
diff changeset
343 ("$,15n6-(B" . "$,4!h(B")
41599
89445d205fb8 Undo 2001-11-26 change.
Kenichi Handa <handa@m17n.org>
parents: 41554
diff changeset
344 ("$,15n6-5p(B" . "$,4!i")(B")
41523
9dcf83921a38 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 41477
diff changeset
345 ("$,15n6-5p6-(B" . "$,4!i(B")
9dcf83921a38 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 41477
diff changeset
346 ;; SEMIVOWELS
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
347 ("$,15o(B" . "$,4!j")(B")
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
348 ("$,15o6-(B" . "$,4!j(B")
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
349 ("$,15o6-5p(B" . "$,4!k")(B")
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
350 ("$,15o6-5p6-(B" . "$,4!k(B")
41523
9dcf83921a38 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 41477
diff changeset
351 ("$,16-5o(B" . "$,4!l(B") ;; when every ohter lig. fails.
41469
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
352
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
353 ("$,15p(B" . "$,4!n"W(B")
41523
9dcf83921a38 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 41477
diff changeset
354 ;; ("$,15p6-(B" . "\$,4"'(B") ;; special case. only the topmost pos.
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
355 ("$,15q(B" . "$,4!n"#"W(B")
41523
9dcf83921a38 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 41477
diff changeset
356 ("$,15q6-(B" . "$,4!m(B") ;; IS 13194 speical rule.
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
357 ("$,15p6!(B" . "$,4!o"[(B")
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
358 ("$,15p6"(B" . "$,4!p"\(B")
17052
d0d7b244b1d0 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
359
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
360 ("$,15r(B" . "$,4!q")(B")
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
361 ("$,15r6-(B" . "$,4!q(B")
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
362 ("$,15s(B" . "$,4!s(B")
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
363 ("$,15s6-(B" . "$,4!r(B")
41599
89445d205fb8 Undo 2001-11-26 change.
Kenichi Handa <handa@m17n.org>
parents: 41554
diff changeset
364 ("$,15t(B" . "$,4!s"#(B")
89445d205fb8 Undo 2001-11-26 change.
Kenichi Handa <handa@m17n.org>
parents: 41554
diff changeset
365 ("$,15t6-(B" . "$,4!r"#(B")
41469
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
366
41599
89445d205fb8 Undo 2001-11-26 change.
Kenichi Handa <handa@m17n.org>
parents: 41554
diff changeset
367 ("$,15u(B" . "$,4!t")(B")
41523
9dcf83921a38 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 41477
diff changeset
368 ("$,15u6-(B" . "$,4!t(B")
41599
89445d205fb8 Undo 2001-11-26 change.
Kenichi Handa <handa@m17n.org>
parents: 41554
diff changeset
369 ("$,15u6-5p(B" . "$,4!u")(B")
41523
9dcf83921a38 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 41477
diff changeset
370 ("$,15u6-5p6-(B" . "$,4!u(B")
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
371 ;; SIBILANTS
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
372 ("$,15v(B" . "$,4!v")(B")
41523
9dcf83921a38 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 41477
diff changeset
373 ("$,15v6-(B" . "$,4!v(B")
41599
89445d205fb8 Undo 2001-11-26 change.
Kenichi Handa <handa@m17n.org>
parents: 41554
diff changeset
374 ("$,15v6-5u(B" . "$,4!w")(B")
41523
9dcf83921a38 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 41477
diff changeset
375 ("$,15v6-5u6-(B" . "$,4!w(B")
41599
89445d205fb8 Undo 2001-11-26 change.
Kenichi Handa <handa@m17n.org>
parents: 41554
diff changeset
376 ("$,15v6-5p(B" . "$,4!x")(B")
41523
9dcf83921a38 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 41477
diff changeset
377 ("$,15v6-5p6-(B" . "$,4!x(B")
41469
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
378
41599
89445d205fb8 Undo 2001-11-26 change.
Kenichi Handa <handa@m17n.org>
parents: 41554
diff changeset
379 ("$,15w(B" . "$,4!y")(B")
41523
9dcf83921a38 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 41477
diff changeset
380 ("$,15w6-(B" . "$,4!y(B")
41599
89445d205fb8 Undo 2001-11-26 change.
Kenichi Handa <handa@m17n.org>
parents: 41554
diff changeset
381 ("$,15x(B" . "$,4!z")(B")
41523
9dcf83921a38 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 41477
diff changeset
382 ("$,15x6-(B" . "$,4!z(B")
41599
89445d205fb8 Undo 2001-11-26 change.
Kenichi Handa <handa@m17n.org>
parents: 41554
diff changeset
383 ("$,15x6-5p(B" . "$,4!{")(B")
41523
9dcf83921a38 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 41477
diff changeset
384 ("$,15x6-5p6-(B" . "$,4!{(B")
17300
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
385
41523
9dcf83921a38 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 41477
diff changeset
386 ("$,15y(B" . "$,4!}(B")
9dcf83921a38 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 41477
diff changeset
387 ("$,15y6-(B" . "$,4!|(B")
9dcf83921a38 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 41477
diff changeset
388 ("$,15y6#(B" . "$,4!~(B")
9dcf83921a38 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 41477
diff changeset
389 ("$,15y6-5p(B" . "$,4!(B")
41599
89445d205fb8 Undo 2001-11-26 change.
Kenichi Handa <handa@m17n.org>
parents: 41554
diff changeset
390 ("$,15y6-5n(B" . "$,4" (B")
89445d205fb8 Undo 2001-11-26 change.
Kenichi Handa <handa@m17n.org>
parents: 41554
diff changeset
391 ("$,15y6-5o(B" . "$,4"!(B")
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
392 ;; NUKTAS
41599
89445d205fb8 Undo 2001-11-26 change.
Kenichi Handa <handa@m17n.org>
parents: 41554
diff changeset
393 ("$,168(B" . "$,4 f"R"S(B")
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
394 ("$,1686-(B" . "$,4 d(B")
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
395 ("$,169(B" . "$,4 k")(B")
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
396 ("$,1696-(B" . "$,4 k(B")
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
397 ("$,16:(B" . "$,4 n")(B")
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
398 ("$,16:6-(B" . "$,4 n(B")
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
399 ("$,16;(B" . "$,4 w")(B")
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
400 ("$,16;6-(B" . "$,4 w(B")
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
401 ("$,16<(B" . "$,4!#"W(B")
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
402 ("$,16=(B" . "$,4!'"X(B")
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
403 ("$,16>(B" . "$,4!b"[(B")
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
404 ("$,16>6-(B" . "$,4!>(B")
41599
89445d205fb8 Undo 2001-11-26 change.
Kenichi Handa <handa@m17n.org>
parents: 41554
diff changeset
405 ("$,16?(B" . "$,4!j"#")(B")
41523
9dcf83921a38 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 41477
diff changeset
406 ;; misc modifiers.
41599
89445d205fb8 Undo 2001-11-26 change.
Kenichi Handa <handa@m17n.org>
parents: 41554
diff changeset
407 ("$,15A(B" . "\$,4"$(B")
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
408 ("$,15B(B" . "\$,4"&(B")
41523
9dcf83921a38 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 41477
diff changeset
409 ("$,15C(B" . "$,4 F(B")
41599
89445d205fb8 Undo 2001-11-26 change.
Kenichi Handa <handa@m17n.org>
parents: 41554
diff changeset
410 ("$,15|(B" . "$,4"#(B")
41523
9dcf83921a38 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 41477
diff changeset
411 ("$,15}(B" . "$,4 E(B")
41599
89445d205fb8 Undo 2001-11-26 change.
Kenichi Handa <handa@m17n.org>
parents: 41554
diff changeset
412 ("$,16-(B" . "$,4""(B")
89445d205fb8 Undo 2001-11-26 change.
Kenichi Handa <handa@m17n.org>
parents: 41554
diff changeset
413 ("$,16-5p(B" . "$,4"%(B") ;; following "r"
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
414 ;; ("$,160(B" . "$,4 D(B")
49709
512864aab842 (devanagari-composable-pattern): Add DANDA character.
Kenichi Handa <handa@m17n.org>
parents: 49704
diff changeset
415 ("$,16D(B" . "$,4 J(B")
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
416 ;; ("$,16F(B" . "")
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
417 ;; ("$,16G(B" . "")
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
418 ;; ("$,16H(B" . "")
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
419 ;; ("$,16I(B" . "")
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
420 ;; ("$,16J(B" . "")
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
421 ;; ("$,16K(B" . "")
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
422 ;; ("$,16L(B" . "")
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
423 ;; ("$,16M(B" . "")
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
424 ;; ("$,16N(B" . "")
41523
9dcf83921a38 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 41477
diff changeset
425 ;; ("$,16O(B" . "")
9dcf83921a38 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 41477
diff changeset
426 )
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
427 "Devanagari characters to glyphs conversion table.
41523
9dcf83921a38 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 41477
diff changeset
428 Default value contains only the basic rules. You may add your own
9dcf83921a38 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 41477
diff changeset
429 preferred rule from the sanskrit fonts." )
41469
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
430
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
431 (defvar dev-char-glyph-hash
46222
abba3d3c7e98 (dev-char-glyph-hash, dev-glyph-glyph-hash)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42311
diff changeset
432 (let* ((hash (make-hash-table :test 'equal)))
41469
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
433 (mapc (function (lambda (x) (puthash (car x) (cdr x) hash)))
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
434 dev-char-glyph)
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
435 hash))
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
436
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
437 (defvar dev-char-glyph-regexp
42061
0332665b9445 (devanagari-range): Renamed from `range'. All calls changed.
Richard M. Stallman <rms@gnu.org>
parents: 42054
diff changeset
438 (devanagari-regexp-of-hashtbl-keys dev-char-glyph-hash))
41469
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
439
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
440 ;; glyph-to-glyph conversion table.
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
441 ;; it is supposed that glyphs are ordered in
41469
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
442 ;; [consonant/nukta] - [matra/halant] - [preceding-r] - [anuswar].
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
443
41523
9dcf83921a38 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 41477
diff changeset
444 (defvar dev-glyph-glyph
41599
89445d205fb8 Undo 2001-11-26 change.
Kenichi Handa <handa@m17n.org>
parents: 41554
diff changeset
445 '(("\$,4"'(B\$,4"&(B" . "\$,4"((B")
89445d205fb8 Undo 2001-11-26 change.
Kenichi Handa <handa@m17n.org>
parents: 41554
diff changeset
446 ("\$,4"'(B\$,4"$(B" . "\$,4"((B")
89445d205fb8 Undo 2001-11-26 change.
Kenichi Handa <handa@m17n.org>
parents: 41554
diff changeset
447 ("$,4"*(B\$,4"&(B" . "$,4"+(B")
89445d205fb8 Undo 2001-11-26 change.
Kenichi Handa <handa@m17n.org>
parents: 41554
diff changeset
448 ("$,4"*(B\$,4"'(B" . "$,4",(B")
89445d205fb8 Undo 2001-11-26 change.
Kenichi Handa <handa@m17n.org>
parents: 41554
diff changeset
449 ("$,4"*(B\$,4"'(B\$,4"&(B" . "$,4"-(B")
89445d205fb8 Undo 2001-11-26 change.
Kenichi Handa <handa@m17n.org>
parents: 41554
diff changeset
450 ("$,4"2(B\$,4"&(B" . "$,4"3(B")
89445d205fb8 Undo 2001-11-26 change.
Kenichi Handa <handa@m17n.org>
parents: 41554
diff changeset
451 ("$,4"2(B\$,4"'(B" . "$,4"4(B")
89445d205fb8 Undo 2001-11-26 change.
Kenichi Handa <handa@m17n.org>
parents: 41554
diff changeset
452 ("$,4"2(B\$,4"'(B\$,4"&(B" . "$,4"5(B")
89445d205fb8 Undo 2001-11-26 change.
Kenichi Handa <handa@m17n.org>
parents: 41554
diff changeset
453 ("$,4"#(B\$,4"6(B" . "$,4"7(B")
89445d205fb8 Undo 2001-11-26 change.
Kenichi Handa <handa@m17n.org>
parents: 41554
diff changeset
454 ("$,4"%(B\$,4"6(B" . "$,4"8(B")
89445d205fb8 Undo 2001-11-26 change.
Kenichi Handa <handa@m17n.org>
parents: 41554
diff changeset
455 ;;("$,4"6(B" . "$,4"9(B")
89445d205fb8 Undo 2001-11-26 change.
Kenichi Handa <handa@m17n.org>
parents: 41554
diff changeset
456 ("$,4"#(B\$,4":(B" . "$,4";(B")
89445d205fb8 Undo 2001-11-26 change.
Kenichi Handa <handa@m17n.org>
parents: 41554
diff changeset
457 ("$,4"%(B\$,4":(B" . "$,4"<(B")
89445d205fb8 Undo 2001-11-26 change.
Kenichi Handa <handa@m17n.org>
parents: 41554
diff changeset
458 ;;("$,4":(B" . "$,4"=(B")
89445d205fb8 Undo 2001-11-26 change.
Kenichi Handa <handa@m17n.org>
parents: 41554
diff changeset
459 ("\$,4"@(B\$,4"&(B" . "\$,4"A(B")
89445d205fb8 Undo 2001-11-26 change.
Kenichi Handa <handa@m17n.org>
parents: 41554
diff changeset
460 ("\$,4"@(B\$,4"'(B" . "\$,4"B(B")
89445d205fb8 Undo 2001-11-26 change.
Kenichi Handa <handa@m17n.org>
parents: 41554
diff changeset
461 ("\$,4"@(B\$,4"'(B\$,4"&(B" . "\$,4"C(B")
89445d205fb8 Undo 2001-11-26 change.
Kenichi Handa <handa@m17n.org>
parents: 41554
diff changeset
462 ("\$,4"D(B\$,4"&(B" . "\$,4"E(B")
89445d205fb8 Undo 2001-11-26 change.
Kenichi Handa <handa@m17n.org>
parents: 41554
diff changeset
463 ("\$,4"D(B\$,4"'(B" . "\$,4"F(B")
89445d205fb8 Undo 2001-11-26 change.
Kenichi Handa <handa@m17n.org>
parents: 41554
diff changeset
464 ("\$,4"D(B\$,4"'(B\$,4"&(B" . "\$,4"G(B")
89445d205fb8 Undo 2001-11-26 change.
Kenichi Handa <handa@m17n.org>
parents: 41554
diff changeset
465 ("\$,4"H(B\$,4"&(B" . "\$,4"I(B")
89445d205fb8 Undo 2001-11-26 change.
Kenichi Handa <handa@m17n.org>
parents: 41554
diff changeset
466 ("\$,4"H(B\$,4"'(B" . "\$,4"J(B")
89445d205fb8 Undo 2001-11-26 change.
Kenichi Handa <handa@m17n.org>
parents: 41554
diff changeset
467 ("\$,4"H(B\$,4"'(B\$,4"&(B" . "\$,4"K(B")
89445d205fb8 Undo 2001-11-26 change.
Kenichi Handa <handa@m17n.org>
parents: 41554
diff changeset
468 ("\$,4"L(B\$,4"&(B" . "\$,4"M(B")
89445d205fb8 Undo 2001-11-26 change.
Kenichi Handa <handa@m17n.org>
parents: 41554
diff changeset
469 ("\$,4"L(B\$,4"'(B" . "\$,4"N(B")
89445d205fb8 Undo 2001-11-26 change.
Kenichi Handa <handa@m17n.org>
parents: 41554
diff changeset
470 ("\$,4"L(B\$,4"'(B\$,4"&(B" . "\$,4"O(B")
41523
9dcf83921a38 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 41477
diff changeset
471 ))
41469
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
472 (defvar dev-glyph-glyph-hash
46222
abba3d3c7e98 (dev-char-glyph-hash, dev-glyph-glyph-hash)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42311
diff changeset
473 (let* ((hash (make-hash-table :test 'equal)))
41469
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
474 (mapc (function (lambda (x) (puthash (car x) (cdr x) hash)))
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
475 dev-glyph-glyph)
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
476 hash))
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
477 (defvar dev-glyph-glyph-regexp
42061
0332665b9445 (devanagari-range): Renamed from `range'. All calls changed.
Richard M. Stallman <rms@gnu.org>
parents: 42054
diff changeset
478 (devanagari-regexp-of-hashtbl-keys dev-glyph-glyph-hash))
41469
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
479
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
480
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
481 ;; yet another glyph-to-glyph conversions.
41523
9dcf83921a38 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 41477
diff changeset
482 (defvar dev-glyph-glyph-2
41599
89445d205fb8 Undo 2001-11-26 change.
Kenichi Handa <handa@m17n.org>
parents: 41554
diff changeset
483 '(("$,4"*(B" . "$,4".(B")
89445d205fb8 Undo 2001-11-26 change.
Kenichi Handa <handa@m17n.org>
parents: 41554
diff changeset
484 ("$,4"+(B" . "$,4"/(B")
89445d205fb8 Undo 2001-11-26 change.
Kenichi Handa <handa@m17n.org>
parents: 41554
diff changeset
485 ("$,4",(B" . "$,4"0(B")
89445d205fb8 Undo 2001-11-26 change.
Kenichi Handa <handa@m17n.org>
parents: 41554
diff changeset
486 ("$,4"-(B" . "$,4"1(B")))
41469
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
487 (defvar dev-glyph-glyph-2-hash
46222
abba3d3c7e98 (dev-char-glyph-hash, dev-glyph-glyph-hash)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42311
diff changeset
488 (let* ((hash (make-hash-table :test 'equal)))
41469
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
489 (mapc (function (lambda (x) (puthash (car x) (cdr x) hash)))
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
490 dev-glyph-glyph-2)
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
491 hash))
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
492 (defvar dev-glyph-glyph-2-regexp
42061
0332665b9445 (devanagari-range): Renamed from `range'. All calls changed.
Richard M. Stallman <rms@gnu.org>
parents: 42054
diff changeset
493 (devanagari-regexp-of-hashtbl-keys dev-glyph-glyph-2-hash))
41469
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
494
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
495
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
496 (defun dev-charseq (from &optional to)
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
497 (if (null to) (setq to from))
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
498 (mapcar (function (lambda (x) (indian-glyph-char x 'devanagari)))
42061
0332665b9445 (devanagari-range): Renamed from `range'. All calls changed.
Richard M. Stallman <rms@gnu.org>
parents: 42054
diff changeset
499 (devanagari-range from to)))
17300
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
500
41469
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
501 (defvar dev-glyph-cvn
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
502 (append
41469
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
503 (dev-charseq #x2b)
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
504 (dev-charseq #x3c #xc1)
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
505 (dev-charseq #xc3))
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
506 "Devanagari Consonants/Vowels/Nukta Glyphs")
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
507
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
508 (defvar dev-glyph-space
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
509 (dev-charseq #xf0 #xfe)
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
510 "Devanagari Spacing Glyphs")
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
511
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
512 (defvar dev-glyph-right-modifier
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
513 (append
41469
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
514 (dev-charseq #xc9)
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
515 (dev-charseq #xd2 #xd5))
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
516 "Devanagari Modifiers attached at the right side.")
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
517
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
518 (defvar dev-glyph-right-modifier-regexp
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
519 (concat "[" dev-glyph-right-modifier "]"))
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
520
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
521 (defvar dev-glyph-left-matra
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
522 (dev-charseq #xca #xd1)
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
523 "Devanagari Matras attached at the left side.")
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
524
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
525 (defvar dev-glyph-top-matra
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
526 (dev-charseq #xe0 #xef)
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
527 "Devanagari Matras attached at the top side.")
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
528
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
529 (defvar dev-glyph-bottom-modifier
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
530 (append
41469
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
531 (dev-charseq #xd6 #xdf)
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
532 (dev-charseq #xc2))
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
533 "Devanagari Modifiers attached at the bottom.")
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
534
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
535 (defvar dev-glyph-order
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
536 `((,dev-glyph-cvn . 1)
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
537 (,dev-glyph-space . 2)
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
538 (,dev-glyph-right-modifier . 3)
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
539 (,dev-glyph-left-matra . 3) ;; processed by reference point.
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
540 (,dev-glyph-top-matra . 4)
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
541 (,(dev-charseq #xc7 #xc8) . 5)
52124
f961cd1cd732 (dev-glyph-order): Add an entry for the glyph code #xC4.
Kenichi Handa <handa@m17n.org>
parents: 49709
diff changeset
542 (,(dev-charseq #xc4) . 6)
41469
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
543 (,(dev-charseq #xc6) . 6)
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
544 (,(dev-charseq #xc5) . 7)
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
545 (,dev-glyph-bottom-modifier . 8)))
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
546
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
547 (mapc
41469
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
548 (function (lambda (x)
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 46222
diff changeset
549 (mapc
41469
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
550 (function (lambda (y)
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
551 (put-char-code-property y 'composition-order (cdr x))))
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
552 (car x))))
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
553 dev-glyph-order)
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
554
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
555 (mapc
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
556 (function (lambda (x)
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
557 (put-char-code-property x 'reference-point '(3 . 5))))
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
558 dev-glyph-left-matra)
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
559
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
560 (defun devanagari-compose-syllable-string (string)
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
561 (with-temp-buffer
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
562 (insert (decompose-string string))
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
563 (devanagari-compose-syllable-region (point-min) (point-max))
f091948e4d1c Completely re-written.
Richard M. Stallman <rms@gnu.org>
parents: 38436
diff changeset
564 (buffer-string)))
17300
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
565
41523
9dcf83921a38 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 41477
diff changeset
566 (defun devanagari-compose-syllable-region (from to)
9dcf83921a38 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 41477
diff changeset
567 "Compose devanagari syllable in region FROM to TO."
9dcf83921a38 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 41477
diff changeset
568 (let ((glyph-str nil) (cons-num 0) glyph-str-list
52517
549161fcb9cc (devanagari-post-read-conversion): Add autoload cookie.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
569 (last-halant nil) (preceding-r nil) (last-modifier nil)
549161fcb9cc (devanagari-post-read-conversion): Add autoload cookie.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
570 (last-char (char-before to)) match-str
549161fcb9cc (devanagari-post-read-conversion): Add autoload cookie.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
571 glyph-block split-pos)
41523
9dcf83921a38 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 41477
diff changeset
572 (save-excursion
9dcf83921a38 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 41477
diff changeset
573 (save-restriction
52517
549161fcb9cc (devanagari-post-read-conversion): Add autoload cookie.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
574 ;;; *** char-to-glyph conversion ***
549161fcb9cc (devanagari-post-read-conversion): Add autoload cookie.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
575 ;; Special rule 1. -- Last halant must be preserved.
549161fcb9cc (devanagari-post-read-conversion): Add autoload cookie.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
576 (if (eq last-char ?$,16-(B)
549161fcb9cc (devanagari-post-read-conversion): Add autoload cookie.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
577 (progn
549161fcb9cc (devanagari-post-read-conversion): Add autoload cookie.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
578 (setq last-halant t)
549161fcb9cc (devanagari-post-read-conversion): Add autoload cookie.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
579 (narrow-to-region from (1- to)))
549161fcb9cc (devanagari-post-read-conversion): Add autoload cookie.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
580 (narrow-to-region from to)
549161fcb9cc (devanagari-post-read-conversion): Add autoload cookie.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
581 ;; note if the last char is modifier.
549161fcb9cc (devanagari-post-read-conversion): Add autoload cookie.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
582 (if (or (eq last-char ?$,15A(B) (eq last-char ?$,15B(B))
549161fcb9cc (devanagari-post-read-conversion): Add autoload cookie.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
583 (setq last-modifier t)))
549161fcb9cc (devanagari-post-read-conversion): Add autoload cookie.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
584 (goto-char (point-min))
549161fcb9cc (devanagari-post-read-conversion): Add autoload cookie.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
585 ;; Special rule 2. -- preceding "r halant" must be modifier.
549161fcb9cc (devanagari-post-read-conversion): Add autoload cookie.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
586 (when (looking-at "$,15p6-(B.")
549161fcb9cc (devanagari-post-read-conversion): Add autoload cookie.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
587 (setq preceding-r t)
549161fcb9cc (devanagari-post-read-conversion): Add autoload cookie.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
588 (goto-char (+ 2 (point))))
549161fcb9cc (devanagari-post-read-conversion): Add autoload cookie.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
589 ;; translate the rest characters into glyphs
549161fcb9cc (devanagari-post-read-conversion): Add autoload cookie.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
590 (while (re-search-forward dev-char-glyph-regexp nil t)
549161fcb9cc (devanagari-post-read-conversion): Add autoload cookie.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
591 (setq match-str (match-string 0))
549161fcb9cc (devanagari-post-read-conversion): Add autoload cookie.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
592 (setq glyph-str
549161fcb9cc (devanagari-post-read-conversion): Add autoload cookie.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
593 (concat glyph-str
549161fcb9cc (devanagari-post-read-conversion): Add autoload cookie.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
594 (gethash match-str dev-char-glyph-hash)))
549161fcb9cc (devanagari-post-read-conversion): Add autoload cookie.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
595 ;; count the number of consonant-glyhs.
549161fcb9cc (devanagari-post-read-conversion): Add autoload cookie.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
596 (if (string-match devanagari-consonant match-str)
549161fcb9cc (devanagari-post-read-conversion): Add autoload cookie.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
597 (setq cons-num (1+ cons-num))))
549161fcb9cc (devanagari-post-read-conversion): Add autoload cookie.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
598 ;; preceding-r must be attached before the anuswar if exists.
549161fcb9cc (devanagari-post-read-conversion): Add autoload cookie.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
599 (if preceding-r
549161fcb9cc (devanagari-post-read-conversion): Add autoload cookie.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
600 (if last-modifier
549161fcb9cc (devanagari-post-read-conversion): Add autoload cookie.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
601 (setq glyph-str (concat (substring glyph-str 0 -1)
549161fcb9cc (devanagari-post-read-conversion): Add autoload cookie.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
602 "$,4"'(B" (substring glyph-str -1)))
549161fcb9cc (devanagari-post-read-conversion): Add autoload cookie.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
603 (setq glyph-str (concat glyph-str "$,4"'(B"))))
549161fcb9cc (devanagari-post-read-conversion): Add autoload cookie.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
604 (if last-halant (setq glyph-str (concat glyph-str "$,4""(B")))
549161fcb9cc (devanagari-post-read-conversion): Add autoload cookie.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
605 ;;; *** glyph-to-glyph conversion ***
549161fcb9cc (devanagari-post-read-conversion): Add autoload cookie.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
606 (when (string-match dev-glyph-glyph-regexp glyph-str)
549161fcb9cc (devanagari-post-read-conversion): Add autoload cookie.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
607 (setq glyph-str
549161fcb9cc (devanagari-post-read-conversion): Add autoload cookie.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
608 (replace-match (gethash (match-string 0 glyph-str)
549161fcb9cc (devanagari-post-read-conversion): Add autoload cookie.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
609 dev-glyph-glyph-hash)
549161fcb9cc (devanagari-post-read-conversion): Add autoload cookie.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
610 nil t glyph-str))
549161fcb9cc (devanagari-post-read-conversion): Add autoload cookie.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
611 (if (and (> cons-num 1)
549161fcb9cc (devanagari-post-read-conversion): Add autoload cookie.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
612 (string-match dev-glyph-glyph-2-regexp glyph-str))
549161fcb9cc (devanagari-post-read-conversion): Add autoload cookie.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
613 (setq glyph-str
549161fcb9cc (devanagari-post-read-conversion): Add autoload cookie.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
614 (replace-match (gethash (match-string 0 glyph-str)
549161fcb9cc (devanagari-post-read-conversion): Add autoload cookie.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
615 dev-glyph-glyph-2-hash)
549161fcb9cc (devanagari-post-read-conversion): Add autoload cookie.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
616 nil t glyph-str))))
549161fcb9cc (devanagari-post-read-conversion): Add autoload cookie.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
617 ;;; *** glyph reordering ***
549161fcb9cc (devanagari-post-read-conversion): Add autoload cookie.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
618 (while (setq split-pos (string-match "$,4""(B\\|.$" glyph-str))
549161fcb9cc (devanagari-post-read-conversion): Add autoload cookie.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
619 (setq glyph-block (substring glyph-str 0 (1+ split-pos)))
549161fcb9cc (devanagari-post-read-conversion): Add autoload cookie.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
620 (setq glyph-str (substring glyph-str (1+ split-pos)))
549161fcb9cc (devanagari-post-read-conversion): Add autoload cookie.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
621 (setq
549161fcb9cc (devanagari-post-read-conversion): Add autoload cookie.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
622 glyph-block
549161fcb9cc (devanagari-post-read-conversion): Add autoload cookie.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
623 (if (string-match dev-glyph-right-modifier-regexp glyph-block)
549161fcb9cc (devanagari-post-read-conversion): Add autoload cookie.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
624 (sort (string-to-list glyph-block)
549161fcb9cc (devanagari-post-read-conversion): Add autoload cookie.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
625 (function (lambda (x y)
549161fcb9cc (devanagari-post-read-conversion): Add autoload cookie.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
626 (< (get-char-code-property x 'composition-order)
549161fcb9cc (devanagari-post-read-conversion): Add autoload cookie.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
627 (get-char-code-property y 'composition-order)))))
549161fcb9cc (devanagari-post-read-conversion): Add autoload cookie.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
628 (sort (string-to-list glyph-block)
549161fcb9cc (devanagari-post-read-conversion): Add autoload cookie.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
629 (function (lambda (x y)
549161fcb9cc (devanagari-post-read-conversion): Add autoload cookie.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
630 (let ((xo (get-char-code-property x 'composition-order))
549161fcb9cc (devanagari-post-read-conversion): Add autoload cookie.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
631 (yo (get-char-code-property y 'composition-order)))
549161fcb9cc (devanagari-post-read-conversion): Add autoload cookie.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
632 (if (= xo 2) nil (if (= yo 2) t (< xo yo)))))))))
549161fcb9cc (devanagari-post-read-conversion): Add autoload cookie.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
633 (setq glyph-str-list (nconc glyph-str-list glyph-block)))
549161fcb9cc (devanagari-post-read-conversion): Add autoload cookie.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
634 ;; concatenate and attach reference-points.
549161fcb9cc (devanagari-post-read-conversion): Add autoload cookie.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
635 (setq glyph-str
549161fcb9cc (devanagari-post-read-conversion): Add autoload cookie.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
636 (cdr
549161fcb9cc (devanagari-post-read-conversion): Add autoload cookie.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
637 (apply
549161fcb9cc (devanagari-post-read-conversion): Add autoload cookie.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
638 'nconc
549161fcb9cc (devanagari-post-read-conversion): Add autoload cookie.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
639 (mapcar
549161fcb9cc (devanagari-post-read-conversion): Add autoload cookie.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
640 (function (lambda (x)
549161fcb9cc (devanagari-post-read-conversion): Add autoload cookie.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
641 (list
549161fcb9cc (devanagari-post-read-conversion): Add autoload cookie.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
642 (or (get-char-code-property x 'reference-point)
549161fcb9cc (devanagari-post-read-conversion): Add autoload cookie.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
643 '(5 . 3) ;; default reference point.
549161fcb9cc (devanagari-post-read-conversion): Add autoload cookie.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
644 )
549161fcb9cc (devanagari-post-read-conversion): Add autoload cookie.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
645 x)))
549161fcb9cc (devanagari-post-read-conversion): Add autoload cookie.
Kenichi Handa <handa@m17n.org>
parents: 52401
diff changeset
646 glyph-str-list))))))
41523
9dcf83921a38 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 41477
diff changeset
647 (compose-region from to glyph-str)))
17300
01d528c5dd18 Handle more Devanagari characters correctly.
Kenichi Handa <handa@m17n.org>
parents: 17087
diff changeset
648
18309
bd8b521f5218 Provide XXX-util instead of
Kenichi Handa <handa@m17n.org>
parents: 18203
diff changeset
649 (provide 'devan-util)
42311
4c8338cf29e9 Fix Lisp footer.
Pavel Janík <Pavel@Janik.cz>
parents: 42061
diff changeset
650
52401
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 52124
diff changeset
651 ;;; arch-tag: 9bc4d6e3-f2b9-4110-886e-ff9b66b7eebc
42311
4c8338cf29e9 Fix Lisp footer.
Pavel Janík <Pavel@Janik.cz>
parents: 42061
diff changeset
652 ;;; devan-util.el ends here