Mercurial > emacs
annotate lisp/language/mlm-util.el @ 50860:4fd35ed09e9b
(c-lineup-argcont, c-lineup-gcc-asm-reg): Don't quote nil and t in docstrings.
author | Juanma Barranquero <lekktu@gmail.com> |
---|---|
date | Tue, 06 May 2003 17:44:11 +0000 |
parents | bd6fa6f622f2 |
children | 695cf19ef79e |
rev | line source |
---|---|
49702 | 1 ;;; mlm-util.el --- support for composing malayalam characters -*-coding: iso-2022-7bit;-*- |
2 | |
3 ;; Copyright (C) 2003 Free Software Foundation, Inc. | |
4 | |
5 ;; Maintainer: KAWABATA, Taichi <kawabata@m17n.org> | |
6 ;; Keywords: multilingual, Malayalam | |
7 | |
8 ;; This file is part of GNU Emacs. | |
9 | |
10 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
11 ;; it under the terms of the GNU General Public License as published by | |
12 ;; the Free Software Foundation; either version 2, or (at your option) | |
13 ;; any later version. | |
14 | |
15 ;; GNU Emacs is distributed in the hope that it will be useful, | |
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
18 ;; GNU General Public License for more details. | |
19 | |
20 ;; You should have received a copy of the GNU General Public License | |
21 ;; along with GNU Emacs; see the file COPYING. If not, write to the | |
22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, | |
23 ;; Boston, MA 02111-1307, USA. | |
24 | |
25 ;; Created: Feb. 11. 2003 | |
26 | |
27 ;;; Commentary: | |
28 | |
29 ;; This file provides character(Unicode) to glyph(CDAC) conversion and | |
30 ;; composition of Malayalam script characters. | |
31 | |
32 ;;; Code: | |
33 | |
34 ;; Malayalam Composable Pattern | |
35 ;; C .. Consonants | |
36 ;; V .. Vowel | |
37 ;; H .. Halant | |
38 ;; M .. Matra | |
39 ;; V .. Vowel | |
40 ;; A .. Anuswar | |
41 ;; D .. Chandrabindu | |
42 ;; (N .. Zerowidth Non Joiner) | |
43 ;; (J .. Zerowidth Joiner. ) | |
44 ;; 1. vowel | |
45 ;; V(A|visargam)? | |
46 ;; 2. syllable : maximum of 5 consecutive consonants. (e.g. kartsnya) | |
47 ;; ((CH)?(CH)?(CH)?CH)?C(H|M?(A|D)?)? | |
48 | |
49 (defconst malayalam-consonant | |
50 "[$,1@5(B-$,1@Y(B]") | |
51 | |
52 (defconst malayalam-composable-pattern | |
53 (concat | |
54 "\\([$,1@%(B-$,1@4(B][$,1@"(B]?\\)\\|$,1@#(B" | |
55 "\\|\\(" | |
56 "\\(?:\\(?:[$,1@5(B-$,1@Y(B]$,1@m(B\\)?\\(?:[$,1@5(B-$,1@Y(B]$,1@m(B\\)?\\(?:[$,1@5(B-$,1@Y(B]$,1@m(B\\)?[$,1@5(B-$,1@Y(B]$,1@m(B\\)?" | |
57 "[$,1@5(B-$,1@Y(B]\\(?:$,1@m(B\\|[$,1@^(B-$,1@c@f@g@h@j@j@k@l(B]?[$,1@"@m(B]?\\)?" | |
58 "\\)") | |
59 "Regexp matching a composable sequence of Malayalam characters.") | |
60 | |
61 ;;;###autoload | |
62 (defun malayalam-compose-region (from to) | |
63 (interactive "r") | |
64 (save-excursion | |
65 (save-restriction | |
66 (narrow-to-region from to) | |
67 (goto-char (point-min)) | |
68 (while (re-search-forward malayalam-composable-pattern nil t) | |
69 (malayalam-compose-syllable-region (match-beginning 0) | |
70 (match-end 0)))))) | |
71 (defun malayalam-compose-string (string) | |
72 (with-temp-buffer | |
73 (insert (decompose-string string)) | |
74 (malayalam-compose-region (point-min) (point-max)) | |
75 (buffer-string))) | |
76 | |
77 (defun malayalam-post-read-conversion (len) | |
78 (save-excursion | |
79 (save-restriction | |
80 (let ((buffer-modified-p (buffer-modified-p))) | |
81 (narrow-to-region (point) (+ (point) len)) | |
82 (malayalam-compose-region (point-min) (point-max)) | |
83 (set-buffer-modified-p buffer-modified-p) | |
84 (- (point-max) (point-min)))))) | |
85 | |
86 (defun malayalam-range (from to) | |
87 "Make the list of the integers of range FROM to TO." | |
88 (let (result) | |
89 (while (<= from to) (setq result (cons to result) to (1- to))) result)) | |
90 | |
91 (defun malayalam-regexp-of-hashtbl-keys (hashtbl) | |
92 "Return a regular expression that matches all keys in hashtable HASHTBL." | |
93 (let ((max-specpdl-size 1000)) | |
94 (regexp-opt | |
95 (sort | |
96 (let (dummy) | |
97 (maphash (function (lambda (key val) (setq dummy (cons key dummy)))) hashtbl) | |
98 dummy) | |
99 (function (lambda (x y) (> (length x) (length y)))))))) | |
100 | |
101 | |
102 ;;;###autoload | |
103 (defun malayalam-composition-function (from to pattern &optional string) | |
104 "Compose Malayalam characters in REGION, or STRING if specified. | |
105 Assume that the REGION or STRING must fully match the composable | |
106 PATTERN regexp." | |
107 (if string (malayalam-compose-syllable-string string) | |
108 (malayalam-compose-syllable-region from to)) | |
109 (- to from)) | |
110 | |
111 ;; Register a function to compose Malayalam characters. | |
112 (mapc | |
113 (function (lambda (ucs) | |
114 (aset composition-function-table (decode-char 'ucs ucs) | |
115 (list (cons malayalam-composable-pattern | |
116 'malayalam-composition-function))))) | |
117 (nconc '(#x0d02 #x0d03) (malayalam-range #x0d05 #x0d39))) | |
118 | |
119 ;; Notes on conversion steps. | |
120 | |
121 ;; 1. chars to glyphs | |
122 ;; | |
123 ;; Simple replacement of characters to glyphs is done. | |
124 | |
125 ;; 2. glyphs reordering. | |
126 ;; | |
127 ;; Two special reordering rule takes place. | |
128 ;; a. following "$,46[(B" goes to the front. | |
129 ;; b. following "$,46S6S(B", "$,46S(B" or "$,46T(B" goes to the front. | |
130 ;; This reordering occurs only to the last cluster of consonants. | |
131 ;; Preceding consonants with halant characters are not affected. | |
132 | |
133 ;; 3. Composition. | |
134 ;; | |
135 ;; left modifiers will be attached at the left. | |
136 ;; others will be attached right. | |
137 | |
138 (defvar mlm-char-glyph | |
139 '(;; various signs | |
140 ("$,1@"(B" . "$,46W(B") | |
141 ("$,1@#(B" . "$,46X(B") | |
142 ;; Independent Vowels | |
143 ("$,1@%(B" . "$,46!(B") | |
144 ("$,1@&(B" . "$,46"(B") | |
145 ("$,1@'(B" . "$,46#(B") | |
146 ("$,1@((B" . "$,46#6U(B") | |
147 ("$,1@)(B" . "$,46$(B") | |
148 ("$,1@*(B" . "$,46$6U(B") | |
149 ("$,1@+(B" . "$,46%(B") | |
150 ("$,1@,(B" . "nil") ;; not in present use, not supported. | |
151 ("$,1@.(B" . "$,46&(B") | |
152 ("$,1@/(B" . "$,46'(B") | |
153 ("$,1@0(B" . "$,46S6&(B") | |
154 ("$,1@2(B" . "$,46((B") | |
155 ("$,1@3(B" . "$,46(6M(B") | |
156 ("$,1@4(B" . "$,46(6U(B") | |
157 ;; Consonants | |
158 ("$,1@5(B" . "$,46)(B") | |
159 ("$,1@5@m@5(B" . "$,47!(B") | |
49955
15e3ed34db0a
(mlm-char-glyph): Fix several composing rules.
Kenichi Handa <handa@m17n.org>
parents:
49943
diff
changeset
|
160 ("$,1@5@m@S(B" . "$,47"(B") |
49702 | 161 ("$,1@5@m@W(B" . "$,47#(B") |
49973
bd6fa6f622f2
(mlm-char-glyph): Fix more rules.
Kenichi Handa <handa@m17n.org>
parents:
49955
diff
changeset
|
162 ("$,1@5@m@?(B" . "$,47N(B") |
49702 | 163 ("$,1@5@m@D(B" . "$,47`(B") |
49973
bd6fa6f622f2
(mlm-char-glyph): Fix more rules.
Kenichi Handa <handa@m17n.org>
parents:
49955
diff
changeset
|
164 ("$,1@5@a(B" . "$,47f(B") |
bd6fa6f622f2
(mlm-char-glyph): Fix more rules.
Kenichi Handa <handa@m17n.org>
parents:
49955
diff
changeset
|
165 ("$,1@5@m@5@a(B" . "$,47g(B") |
bd6fa6f622f2
(mlm-char-glyph): Fix more rules.
Kenichi Handa <handa@m17n.org>
parents:
49955
diff
changeset
|
166 ("$,1@5@a(B" . "$,47f(B") |
bd6fa6f622f2
(mlm-char-glyph): Fix more rules.
Kenichi Handa <handa@m17n.org>
parents:
49955
diff
changeset
|
167 ("$,1@5@m@5@a(B" . "$,47g(B") |
49702 | 168 |
169 ("$,1@6(B" . "$,46*(B") | |
170 | |
171 ("$,1@7(B" . "$,46+(B") | |
172 ("$,1@7@m@7(B" . "$,47$(B") | |
173 ("$,1@7@m@R(B" . "$,47%(B") | |
174 ("$,1@7@m@N(B" . "$,47\(B") | |
175 ("$,1@7@m@H(B" . "$,47a(B") | |
176 | |
177 ("$,1@8(B" . "$,46,(B") | |
178 | |
179 ("$,1@9(B" . "$,46-(B") | |
180 ("$,1@9@m@5(B" . "$,47&(B") | |
181 ("$,1@9@m@9(B" . "$,47'(B") | |
49973
bd6fa6f622f2
(mlm-char-glyph): Fix more rules.
Kenichi Handa <handa@m17n.org>
parents:
49955
diff
changeset
|
182 ("$,1@9@m@5@a(B" . "$,47h(B") |
49702 | 183 |
184 ("$,1@:(B" . "$,46.(B") | |
185 ("$,1@:@m@:(B" . "$,47((B") ;; duplicate | |
49973
bd6fa6f622f2
(mlm-char-glyph): Fix more rules.
Kenichi Handa <handa@m17n.org>
parents:
49955
diff
changeset
|
186 ("$,1@:@m@;(B" . "$,47Q(B") |
49702 | 187 |
188 ("$,1@;(B" . "$,46/(B") | |
189 | |
190 ("$,1@<(B" . "$,460(B") | |
191 ("$,1@<@m@<(B" . "$,47V(B") | |
192 ("$,1@<@m@>(B" . "$,47Z(B") | |
193 | |
194 ("$,1@=(B" . "$,461(B") | |
195 | |
196 ("$,1@>(B" . "$,462(B") | |
197 ("$,1@>@m@:(B" . "$,47)(B") | |
198 ("$,1@>@m@>(B" . "$,47*(B") | |
199 | |
200 ("$,1@?(B" . "$,463(B") | |
201 ("$,1@?@m@?(B" . "$,47+(B") | |
202 | |
203 ("$,1@@(B" . "$,464(B") | |
204 ("$,1@A(B" . "$,465(B") | |
205 ("$,1@A@m@A(B" . "$,47M(B") | |
206 ("$,1@B(B" . "$,466(B") | |
207 | |
208 ("$,1@C(B" . "$,467(B") | |
49973
bd6fa6f622f2
(mlm-char-glyph): Fix more rules.
Kenichi Handa <handa@m17n.org>
parents:
49955
diff
changeset
|
209 ("$,1@C@a@m(B" . "$,47,(B") ;; half consonant |
49702 | 210 ("$,1@C@m@?(B" . "$,47-(B") |
211 ("$,1@C@m@C(B" . "$,47.(B") | |
212 ("$,1@C@m@N(B" . "$,47W(B") | |
49973
bd6fa6f622f2
(mlm-char-glyph): Fix more rules.
Kenichi Handa <handa@m17n.org>
parents:
49955
diff
changeset
|
213 ("$,1@C@m@A(B" . "$,47^(B") |
bd6fa6f622f2
(mlm-char-glyph): Fix more rules.
Kenichi Handa <handa@m17n.org>
parents:
49955
diff
changeset
|
214 ("$,1@C@a(B" . "$,47i(B") |
49702 | 215 |
216 ("$,1@D(B" . "$,468(B") | |
217 ("$,1@D@m@D(B" . "$,47/(B") | |
218 ("$,1@D@m@E(B" . "$,470(B") | |
219 ("$,1@D@m@X(B" . "$,47U(B") | |
220 ("$,1@D@m@M(B" . "$,47[(B") | |
221 ("$,1@D@m@N(B" . "$,47_(B") | |
222 | |
223 ("$,1@E(B" . "$,469(B") | |
224 | |
225 ("$,1@F(B" . "$,46:(B") | |
226 ("$,1@F@m@F(B" . "$,471(B") | |
227 ("$,1@F@m@G(B" . "$,472(B") | |
228 | |
229 ("$,1@G(B" . "$,46;(B") | |
230 | |
231 ("$,1@H(B" . "$,46<(B") | |
49973
bd6fa6f622f2
(mlm-char-glyph): Fix more rules.
Kenichi Handa <handa@m17n.org>
parents:
49955
diff
changeset
|
232 ("$,1@H@a@m(B" . "$,473(B") ;; half consonant |
49702 | 233 ("$,1@H@m@D(B" . "$,474(B") |
234 ("$,1@H@m@F(B" . "$,475(B") | |
235 ("$,1@H@m@H(B" . "$,476(B") | |
236 ("$,1@H@m@N(B" . "$,477(B") | |
237 ("$,1@H@m@G(B" . "$,47T(B") | |
238 ("$,1@H@m@E(B" . "$,47Y(B") | |
239 ("$,1@H@m@Q(B" . "$,47b(B") | |
49973
bd6fa6f622f2
(mlm-char-glyph): Fix more rules.
Kenichi Handa <handa@m17n.org>
parents:
49955
diff
changeset
|
240 ("$,1@H@a(B" . "$,47k(B") |
bd6fa6f622f2
(mlm-char-glyph): Fix more rules.
Kenichi Handa <handa@m17n.org>
parents:
49955
diff
changeset
|
241 ("$,1@H@m@H@a(B" . "$,47l(B") |
49702 | 242 |
243 ("$,1@J(B" . "$,46=(B") | |
244 ("$,1@J@m@J(B" . "$,478(B") ;; duplicate | |
245 ("$,1@J@m@R(B" . "$,479(B") ;; lakar | |
246 | |
247 ("$,1@K(B" . "$,46>(B") | |
248 | |
249 ("$,1@L(B" . "$,46?(B") | |
250 ("$,1@L@m@L(B" . "$,47:(B") ;; duplicate | |
251 ("$,1@L@m@R(B" . "$,47;(B") ;; lakar | |
49973
bd6fa6f622f2
(mlm-char-glyph): Fix more rules.
Kenichi Handa <handa@m17n.org>
parents:
49955
diff
changeset
|
252 ("$,1@L@m@G(B" . "$,47O(B") |
bd6fa6f622f2
(mlm-char-glyph): Fix more rules.
Kenichi Handa <handa@m17n.org>
parents:
49955
diff
changeset
|
253 ("$,1@L@m@F(B" . "$,47P(B") |
49702 | 254 |
255 ("$,1@M(B" . "$,46@(B") | |
256 | |
257 ("$,1@N(B" . "$,46A(B") | |
258 ("$,1@N@m@J(B" . "$,47<(B") | |
259 ("$,1@N@m@N(B" . "$,47=(B") | |
260 ("$,1@N@m@R(B" . "$,47>(B") ;; lakar | |
261 | |
262 ("$,1@O(B" . "$,46B(B") | |
263 ("$,1@O@m@O(B" . "$,47?(B") ;; duplicate | |
49973
bd6fa6f622f2
(mlm-char-glyph): Fix more rules.
Kenichi Handa <handa@m17n.org>
parents:
49955
diff
changeset
|
264 ("$,1@O@m@5@m@5(B" . "$,47m(B") |
49702 | 265 |
266 ("$,1@P(B" . "$,46C(B") | |
49973
bd6fa6f622f2
(mlm-char-glyph): Fix more rules.
Kenichi Handa <handa@m17n.org>
parents:
49955
diff
changeset
|
267 ("$,1@P@a@m(B" . "$,47@(B") |
bd6fa6f622f2
(mlm-char-glyph): Fix more rules.
Kenichi Handa <handa@m17n.org>
parents:
49955
diff
changeset
|
268 ("$,1@P@a(B" . "$,47j(B") |
49702 | 269 |
270 ("$,1@Q(B" . "$,46D(B") | |
271 ("$,1@Q@m(B" . "$,47@(B") ;; same glyph as "$,1@P@m(B" | |
49973
bd6fa6f622f2
(mlm-char-glyph): Fix more rules.
Kenichi Handa <handa@m17n.org>
parents:
49955
diff
changeset
|
272 ("$,1@Q@a@m(B" . "$,47@(B") ;; same glyph as "$,1@P@m(B" |
49702 | 273 ;;("$,1@Q@m@Q(B" . "$,47A(B") |
274 ("$,1@Q@m@Q(B" . "$,47d(B") | |
275 | |
276 ("$,1@R(B" . "$,46E(B") | |
49973
bd6fa6f622f2
(mlm-char-glyph): Fix more rules.
Kenichi Handa <handa@m17n.org>
parents:
49955
diff
changeset
|
277 ("$,1@R@a@m(B" . "$,47B(B") |
49702 | 278 ("$,1@R@m@R(B" . "$,47C(B") ;; lakar |
49973
bd6fa6f622f2
(mlm-char-glyph): Fix more rules.
Kenichi Handa <handa@m17n.org>
parents:
49955
diff
changeset
|
279 ("$,1@R@m@J(B" . "$,47e(B") |
49702 | 280 |
281 ("$,1@S(B" . "$,46F(B") | |
49973
bd6fa6f622f2
(mlm-char-glyph): Fix more rules.
Kenichi Handa <handa@m17n.org>
parents:
49955
diff
changeset
|
282 ("$,1@S@a@m(B" . "$,47D(B") |
49702 | 283 ("$,1@S@m@S(B" . "$,47E(B") |
284 | |
285 ("$,1@T(B" . "$,46G(B") | |
286 | |
287 ("$,1@U(B" . "$,46H(B") | |
288 ("$,1@U@m@U(B" . "$,47F(B") | |
289 | |
290 ("$,1@V(B" . "$,46I(B") | |
291 ("$,1@V@m@R(B" . "$,47G(B") | |
292 ("$,1@V@m@V(B" . "$,47H(B") | |
293 ("$,1@V@m@:(B" . "$,47](B") | |
294 | |
295 ("$,1@W(B" . "$,46J(B") | |
296 ("$,1@W@m@?(B" . "$,47c(B") | |
297 | |
298 ("$,1@X(B" . "$,46K(B") | |
299 ("$,1@X@m@R(B" . "$,47I(B") | |
300 ("$,1@X@m@X(B" . "$,47J(B") | |
301 ("$,1@X@m@Q@m@Q(B" . "$,47L(B") | |
302 ("$,1@X@m@E(B" . "$,47X(B") | |
303 | |
304 ("$,1@Y(B" . "$,46L(B") | |
305 ("$,1@Y@m@R(B" . "$,47K(B") | |
306 ("$,1@Y@m@N(B" . "$,47R(B") | |
307 ("$,1@Y@m@H(B" . "$,47S(B") | |
308 | |
309 ;; Dependent vowel signs | |
310 ("$,1@^(B" . "$,46M(B") | |
311 ("$,1@_(B" . "$,46N(B") | |
312 ("$,1@`(B" . "$,46O(B") | |
313 ("$,1@a(B" . "$,46P(B") | |
314 ("$,1@b(B" . "$,46Q(B") | |
315 ("$,1@c(B" . "$,46R(B") | |
316 ("$,1@f(B" . "$,46S(B") | |
317 ("$,1@g(B" . "$,46T(B") | |
318 ("$,1@h(B" . "$,46S6S(B") | |
319 ("$,1@j(B" . "$,46S6M(B") | |
320 ("$,1@k(B" . "$,46T6M(B") | |
321 ("$,1@l(B" . "$,46U(B") | |
322 ;; Various signs | |
323 ("$,1@m(B" . "$,46V(B") | |
324 ("$,1@m@O(B" . "$,46Y(B") ;; yakar | |
49973
bd6fa6f622f2
(mlm-char-glyph): Fix more rules.
Kenichi Handa <handa@m17n.org>
parents:
49955
diff
changeset
|
325 ("$,1@m@O@a(B" . "$,46\(B") ;; yakar + u |
bd6fa6f622f2
(mlm-char-glyph): Fix more rules.
Kenichi Handa <handa@m17n.org>
parents:
49955
diff
changeset
|
326 ("$,1@m@O@b(B" . "$,46](B") ;; yakar + uu |
49702 | 327 ("$,1@m@U(B" . "$,46Z(B") ;; vakar modifier |
328 ("$,1@m@P(B" . "$,46[(B") ;; rakar modifier is the same to rra modifier. | |
49943
f70ce138a267
(mlm-char-glyph): Add entries for "halant +
Kenichi Handa <handa@m17n.org>
parents:
49702
diff
changeset
|
329 ("$,1@m@P@m(B" . "$,46R(B") ;; halant + rakar + halant |
49702 | 330 ("$,1@m@Q(B" . "$,46[(B") ;; rrakar modifier |
49943
f70ce138a267
(mlm-char-glyph): Add entries for "halant +
Kenichi Handa <handa@m17n.org>
parents:
49702
diff
changeset
|
331 ("$,1@m@Q@m(B" . "$,46R(B") ;; halant + rrakar + halant |
49702 | 332 ("$,1@m@m(B" . "$,46V(B") ;; double omission sign to stop forming half consonant. |
333 ("$,1@w(B" . "$,46U(B") ;; not in present use, already at 0D4C. | |
334 )) | |
335 | |
336 (defvar mlm-char-glyph-hash | |
337 (let* ((hash (make-hash-table :test 'equal))) | |
338 (mapc (function (lambda (x) (puthash (car x) (cdr x) hash))) | |
339 mlm-char-glyph) | |
340 hash)) | |
341 | |
342 (defvar mlm-char-glyph-regexp | |
343 (malayalam-regexp-of-hashtbl-keys mlm-char-glyph-hash)) | |
344 | |
345 ;; Malayalam languages needed to be reordered in a complex mannar. | |
346 | |
347 (defvar mlm-consonants | |
348 (concat | |
349 "$,46)6*6+6,6-6.6/606162636465666768696:6;6<6=6>6?6@6A6B6C6D6E6F6G6H6I6J6K6L(B" | |
350 "$,47!7"7#7$7%7&7'7(7)7*7+7,7-7.7/707172737475767778797:7;7<7=7>7?7@7A7B7C7D7E7F7G7H7I7J7K7L7M7N7O7P7Q7R7S7T7U7V7W7X7Y7Z7[7\7]7^7_7`7a7b7c7d7e(B" | |
351 )) | |
352 | |
353 (defvar mlm-consonants-regexp | |
354 (concat "\\($,46[(B?[" mlm-consonants "][$,46Y6Z(B]?\\)")) | |
355 | |
356 (defvar mlm-glyph-reorder-key-glyphs "[$,46[6S6T(B]") | |
357 | |
358 (defvar mlm-glyph-reordering-regexp-list | |
359 `((,(concat "\\([" mlm-consonants "][$,46Y6Z(B]?\\)$,46[(B") . "$,46[(B\\1") | |
360 (,(concat mlm-consonants-regexp "$,46S6S(B") . "$,46S6S(B\\1") | |
361 (,(concat mlm-consonants-regexp "$,46S(B") . "$,46S(B\\1") | |
362 (,(concat mlm-consonants-regexp "$,46T(B") . "$,46T(B\\1"))) | |
363 | |
364 (defun malayalam-compose-syllable-string (string) | |
365 (with-temp-buffer | |
366 (insert (decompose-string string)) | |
367 (malayalam-compose-syllable-region (point-min) (point-max)) | |
368 (buffer-string))) | |
369 | |
370 (defun malayalam-compose-syllable-region (from to) | |
371 "Compose malayalam syllable in region FROM to TO." | |
372 (let (glyph-str | |
373 match-str | |
374 glyph-reorder-regexps | |
375 glyph-reorder-replace | |
376 glyph-reorder-regexp) | |
377 (save-excursion | |
378 (save-restriction | |
379 (narrow-to-region from to) | |
380 (goto-char (point-min)) | |
381 ;; char-glyph-conversion | |
382 (while (re-search-forward mlm-char-glyph-regexp nil t) | |
383 (setq match-str (match-string 0)) | |
384 (setq glyph-str | |
385 (concat glyph-str (gethash match-str mlm-char-glyph-hash)))) | |
386 (when (string-match mlm-glyph-reorder-key-glyphs glyph-str) | |
387 ;; glyph reordering | |
388 (setq glyph-reorder-regexps mlm-glyph-reordering-regexp-list) | |
389 (while glyph-reorder-regexps | |
390 (setq glyph-reorder-regexp (caar glyph-reorder-regexps)) | |
391 (setq glyph-reorder-replace (cdar glyph-reorder-regexps)) | |
392 (setq glyph-reorder-regexps (cdr glyph-reorder-regexps)) | |
393 (if (string-match glyph-reorder-regexp glyph-str) | |
394 (setq glyph-str | |
395 (replace-match glyph-reorder-replace nil nil | |
396 glyph-str))))) | |
397 ;; concatenate and attach reference-points. | |
398 (setq glyph-str | |
399 (cdr | |
400 (apply | |
401 'nconc | |
402 (mapcar | |
403 (function | |
404 (lambda (x) (list '(5 . 3) x))) ;; default ref. point. | |
405 glyph-str)))) | |
406 (compose-region from to glyph-str))))) | |
407 | |
408 (provide 'mlm-util) | |
409 | |
410 ;;; devan-util.el ends here |