Mercurial > emacs
annotate lisp/language/mlm-util.el @ 78258:6aba169c4b1f
Switch license to GPLv3 or later.
author | Glenn Morris <rgm@gnu.org> |
---|---|
date | Wed, 25 Jul 2007 05:07:12 +0000 |
parents | 9355f9b7bbff |
children | b5d3fc1c4afe f55f9811f5d7 |
rev | line source |
---|---|
49702 | 1 ;;; mlm-util.el --- support for composing malayalam characters -*-coding: iso-2022-7bit;-*- |
2 | |
75347 | 3 ;; Copyright (C) 2003, 2004, 2005, 2006, 2007 Free Software Foundation, Inc. |
49702 | 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 | |
78236
9355f9b7bbff
Switch license to GPLv3 or later.
Glenn Morris <rgm@gnu.org>
parents:
75347
diff
changeset
|
12 ;; the Free Software Foundation; either version 3, or (at your option) |
49702 | 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 | |
64085 | 22 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, |
23 ;; Boston, MA 02110-1301, USA. | |
49702 | 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 | |
52518
88807cd5407c
(malayalam-post-read-conversion): Add autoload cookie.
Kenichi Handa <handa@m17n.org>
parents:
52401
diff
changeset
|
77 ;;;###autoload |
49702 | 78 (defun malayalam-post-read-conversion (len) |
79 (save-excursion | |
80 (save-restriction | |
81 (let ((buffer-modified-p (buffer-modified-p))) | |
82 (narrow-to-region (point) (+ (point) len)) | |
83 (malayalam-compose-region (point-min) (point-max)) | |
84 (set-buffer-modified-p buffer-modified-p) | |
85 (- (point-max) (point-min)))))) | |
86 | |
87 (defun malayalam-range (from to) | |
88 "Make the list of the integers of range FROM to TO." | |
89 (let (result) | |
90 (while (<= from to) (setq result (cons to result) to (1- to))) result)) | |
91 | |
92 (defun malayalam-regexp-of-hashtbl-keys (hashtbl) | |
93 "Return a regular expression that matches all keys in hashtable HASHTBL." | |
94 (let ((max-specpdl-size 1000)) | |
95 (regexp-opt | |
96 (sort | |
97 (let (dummy) | |
98 (maphash (function (lambda (key val) (setq dummy (cons key dummy)))) hashtbl) | |
99 dummy) | |
100 (function (lambda (x y) (> (length x) (length y)))))))) | |
101 | |
102 | |
103 ;;;###autoload | |
104 (defun malayalam-composition-function (from to pattern &optional string) | |
105 "Compose Malayalam characters in REGION, or STRING if specified. | |
68019
b9546af7814e
Delete spurious trailing whitespaces.
Kenichi Handa <handa@m17n.org>
parents:
64085
diff
changeset
|
106 Assume that the REGION or STRING must fully match the composable |
49702 | 107 PATTERN regexp." |
108 (if string (malayalam-compose-syllable-string string) | |
109 (malayalam-compose-syllable-region from to)) | |
110 (- to from)) | |
111 | |
112 ;; Register a function to compose Malayalam characters. | |
113 (mapc | |
114 (function (lambda (ucs) | |
115 (aset composition-function-table (decode-char 'ucs ucs) | |
116 (list (cons malayalam-composable-pattern | |
117 'malayalam-composition-function))))) | |
118 (nconc '(#x0d02 #x0d03) (malayalam-range #x0d05 #x0d39))) | |
119 | |
120 ;; Notes on conversion steps. | |
121 | |
122 ;; 1. chars to glyphs | |
123 ;; | |
124 ;; Simple replacement of characters to glyphs is done. | |
125 | |
126 ;; 2. glyphs reordering. | |
127 ;; | |
128 ;; Two special reordering rule takes place. | |
129 ;; a. following "$,46[(B" goes to the front. | |
130 ;; b. following "$,46S6S(B", "$,46S(B" or "$,46T(B" goes to the front. | |
131 ;; This reordering occurs only to the last cluster of consonants. | |
132 ;; Preceding consonants with halant characters are not affected. | |
133 | |
134 ;; 3. Composition. | |
135 ;; | |
136 ;; left modifiers will be attached at the left. | |
137 ;; others will be attached right. | |
138 | |
139 (defvar mlm-char-glyph | |
140 '(;; various signs | |
141 ("$,1@"(B" . "$,46W(B") | |
142 ("$,1@#(B" . "$,46X(B") | |
143 ;; Independent Vowels | |
144 ("$,1@%(B" . "$,46!(B") | |
145 ("$,1@&(B" . "$,46"(B") | |
146 ("$,1@'(B" . "$,46#(B") | |
147 ("$,1@((B" . "$,46#6U(B") | |
148 ("$,1@)(B" . "$,46$(B") | |
149 ("$,1@*(B" . "$,46$6U(B") | |
150 ("$,1@+(B" . "$,46%(B") | |
151 ("$,1@,(B" . "nil") ;; not in present use, not supported. | |
152 ("$,1@.(B" . "$,46&(B") | |
153 ("$,1@/(B" . "$,46'(B") | |
154 ("$,1@0(B" . "$,46S6&(B") | |
155 ("$,1@2(B" . "$,46((B") | |
156 ("$,1@3(B" . "$,46(6M(B") | |
157 ("$,1@4(B" . "$,46(6U(B") | |
158 ;; Consonants | |
159 ("$,1@5(B" . "$,46)(B") | |
160 ("$,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
|
161 ("$,1@5@m@S(B" . "$,47"(B") |
49702 | 162 ("$,1@5@m@W(B" . "$,47#(B") |
49973
bd6fa6f622f2
(mlm-char-glyph): Fix more rules.
Kenichi Handa <handa@m17n.org>
parents:
49955
diff
changeset
|
163 ("$,1@5@m@?(B" . "$,47N(B") |
49702 | 164 ("$,1@5@m@D(B" . "$,47`(B") |
49973
bd6fa6f622f2
(mlm-char-glyph): Fix more rules.
Kenichi Handa <handa@m17n.org>
parents:
49955
diff
changeset
|
165 ("$,1@5@a(B" . "$,47f(B") |
bd6fa6f622f2
(mlm-char-glyph): Fix more rules.
Kenichi Handa <handa@m17n.org>
parents:
49955
diff
changeset
|
166 ("$,1@5@m@5@a(B" . "$,47g(B") |
bd6fa6f622f2
(mlm-char-glyph): Fix more rules.
Kenichi Handa <handa@m17n.org>
parents:
49955
diff
changeset
|
167 ("$,1@5@a(B" . "$,47f(B") |
bd6fa6f622f2
(mlm-char-glyph): Fix more rules.
Kenichi Handa <handa@m17n.org>
parents:
49955
diff
changeset
|
168 ("$,1@5@m@5@a(B" . "$,47g(B") |
49702 | 169 |
170 ("$,1@6(B" . "$,46*(B") | |
171 | |
172 ("$,1@7(B" . "$,46+(B") | |
173 ("$,1@7@m@7(B" . "$,47$(B") | |
174 ("$,1@7@m@R(B" . "$,47%(B") | |
175 ("$,1@7@m@N(B" . "$,47\(B") | |
176 ("$,1@7@m@H(B" . "$,47a(B") | |
177 | |
178 ("$,1@8(B" . "$,46,(B") | |
179 | |
180 ("$,1@9(B" . "$,46-(B") | |
181 ("$,1@9@m@5(B" . "$,47&(B") | |
182 ("$,1@9@m@9(B" . "$,47'(B") | |
49973
bd6fa6f622f2
(mlm-char-glyph): Fix more rules.
Kenichi Handa <handa@m17n.org>
parents:
49955
diff
changeset
|
183 ("$,1@9@m@5@a(B" . "$,47h(B") |
49702 | 184 |
185 ("$,1@:(B" . "$,46.(B") | |
186 ("$,1@:@m@:(B" . "$,47((B") ;; duplicate | |
49973
bd6fa6f622f2
(mlm-char-glyph): Fix more rules.
Kenichi Handa <handa@m17n.org>
parents:
49955
diff
changeset
|
187 ("$,1@:@m@;(B" . "$,47Q(B") |
49702 | 188 |
189 ("$,1@;(B" . "$,46/(B") | |
190 | |
191 ("$,1@<(B" . "$,460(B") | |
192 ("$,1@<@m@<(B" . "$,47V(B") | |
193 ("$,1@<@m@>(B" . "$,47Z(B") | |
194 | |
195 ("$,1@=(B" . "$,461(B") | |
196 | |
197 ("$,1@>(B" . "$,462(B") | |
198 ("$,1@>@m@:(B" . "$,47)(B") | |
199 ("$,1@>@m@>(B" . "$,47*(B") | |
200 | |
201 ("$,1@?(B" . "$,463(B") | |
202 ("$,1@?@m@?(B" . "$,47+(B") | |
203 | |
204 ("$,1@@(B" . "$,464(B") | |
205 ("$,1@A(B" . "$,465(B") | |
206 ("$,1@A@m@A(B" . "$,47M(B") | |
207 ("$,1@B(B" . "$,466(B") | |
208 | |
209 ("$,1@C(B" . "$,467(B") | |
49973
bd6fa6f622f2
(mlm-char-glyph): Fix more rules.
Kenichi Handa <handa@m17n.org>
parents:
49955
diff
changeset
|
210 ("$,1@C@a@m(B" . "$,47,(B") ;; half consonant |
49702 | 211 ("$,1@C@m@?(B" . "$,47-(B") |
212 ("$,1@C@m@C(B" . "$,47.(B") | |
213 ("$,1@C@m@N(B" . "$,47W(B") | |
49973
bd6fa6f622f2
(mlm-char-glyph): Fix more rules.
Kenichi Handa <handa@m17n.org>
parents:
49955
diff
changeset
|
214 ("$,1@C@m@A(B" . "$,47^(B") |
bd6fa6f622f2
(mlm-char-glyph): Fix more rules.
Kenichi Handa <handa@m17n.org>
parents:
49955
diff
changeset
|
215 ("$,1@C@a(B" . "$,47i(B") |
49702 | 216 |
217 ("$,1@D(B" . "$,468(B") | |
218 ("$,1@D@m@D(B" . "$,47/(B") | |
219 ("$,1@D@m@E(B" . "$,470(B") | |
220 ("$,1@D@m@X(B" . "$,47U(B") | |
221 ("$,1@D@m@M(B" . "$,47[(B") | |
222 ("$,1@D@m@N(B" . "$,47_(B") | |
223 | |
224 ("$,1@E(B" . "$,469(B") | |
225 | |
226 ("$,1@F(B" . "$,46:(B") | |
227 ("$,1@F@m@F(B" . "$,471(B") | |
228 ("$,1@F@m@G(B" . "$,472(B") | |
229 | |
230 ("$,1@G(B" . "$,46;(B") | |
231 | |
232 ("$,1@H(B" . "$,46<(B") | |
49973
bd6fa6f622f2
(mlm-char-glyph): Fix more rules.
Kenichi Handa <handa@m17n.org>
parents:
49955
diff
changeset
|
233 ("$,1@H@a@m(B" . "$,473(B") ;; half consonant |
49702 | 234 ("$,1@H@m@D(B" . "$,474(B") |
235 ("$,1@H@m@F(B" . "$,475(B") | |
236 ("$,1@H@m@H(B" . "$,476(B") | |
237 ("$,1@H@m@N(B" . "$,477(B") | |
238 ("$,1@H@m@G(B" . "$,47T(B") | |
239 ("$,1@H@m@E(B" . "$,47Y(B") | |
240 ("$,1@H@m@Q(B" . "$,47b(B") | |
49973
bd6fa6f622f2
(mlm-char-glyph): Fix more rules.
Kenichi Handa <handa@m17n.org>
parents:
49955
diff
changeset
|
241 ("$,1@H@a(B" . "$,47k(B") |
68019
b9546af7814e
Delete spurious trailing whitespaces.
Kenichi Handa <handa@m17n.org>
parents:
64085
diff
changeset
|
242 ("$,1@H@m@H@a(B" . "$,47l(B") |
49702 | 243 |
244 ("$,1@J(B" . "$,46=(B") | |
245 ("$,1@J@m@J(B" . "$,478(B") ;; duplicate | |
246 ("$,1@J@m@R(B" . "$,479(B") ;; lakar | |
247 | |
248 ("$,1@K(B" . "$,46>(B") | |
249 | |
250 ("$,1@L(B" . "$,46?(B") | |
251 ("$,1@L@m@L(B" . "$,47:(B") ;; duplicate | |
252 ("$,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
|
253 ("$,1@L@m@G(B" . "$,47O(B") |
bd6fa6f622f2
(mlm-char-glyph): Fix more rules.
Kenichi Handa <handa@m17n.org>
parents:
49955
diff
changeset
|
254 ("$,1@L@m@F(B" . "$,47P(B") |
49702 | 255 |
256 ("$,1@M(B" . "$,46@(B") | |
257 | |
258 ("$,1@N(B" . "$,46A(B") | |
259 ("$,1@N@m@J(B" . "$,47<(B") | |
260 ("$,1@N@m@N(B" . "$,47=(B") | |
261 ("$,1@N@m@R(B" . "$,47>(B") ;; lakar | |
262 | |
263 ("$,1@O(B" . "$,46B(B") | |
264 ("$,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
|
265 ("$,1@O@m@5@m@5(B" . "$,47m(B") |
49702 | 266 |
267 ("$,1@P(B" . "$,46C(B") | |
49973
bd6fa6f622f2
(mlm-char-glyph): Fix more rules.
Kenichi Handa <handa@m17n.org>
parents:
49955
diff
changeset
|
268 ("$,1@P@a@m(B" . "$,47@(B") |
bd6fa6f622f2
(mlm-char-glyph): Fix more rules.
Kenichi Handa <handa@m17n.org>
parents:
49955
diff
changeset
|
269 ("$,1@P@a(B" . "$,47j(B") |
49702 | 270 |
271 ("$,1@Q(B" . "$,46D(B") | |
272 ("$,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
|
273 ("$,1@Q@a@m(B" . "$,47@(B") ;; same glyph as "$,1@P@m(B" |
49702 | 274 ;;("$,1@Q@m@Q(B" . "$,47A(B") |
275 ("$,1@Q@m@Q(B" . "$,47d(B") | |
276 | |
277 ("$,1@R(B" . "$,46E(B") | |
49973
bd6fa6f622f2
(mlm-char-glyph): Fix more rules.
Kenichi Handa <handa@m17n.org>
parents:
49955
diff
changeset
|
278 ("$,1@R@a@m(B" . "$,47B(B") |
49702 | 279 ("$,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
|
280 ("$,1@R@m@J(B" . "$,47e(B") |
49702 | 281 |
282 ("$,1@S(B" . "$,46F(B") | |
49973
bd6fa6f622f2
(mlm-char-glyph): Fix more rules.
Kenichi Handa <handa@m17n.org>
parents:
49955
diff
changeset
|
283 ("$,1@S@a@m(B" . "$,47D(B") |
49702 | 284 ("$,1@S@m@S(B" . "$,47E(B") |
285 | |
286 ("$,1@T(B" . "$,46G(B") | |
287 | |
288 ("$,1@U(B" . "$,46H(B") | |
289 ("$,1@U@m@U(B" . "$,47F(B") | |
290 | |
291 ("$,1@V(B" . "$,46I(B") | |
292 ("$,1@V@m@R(B" . "$,47G(B") | |
293 ("$,1@V@m@V(B" . "$,47H(B") | |
294 ("$,1@V@m@:(B" . "$,47](B") | |
295 | |
296 ("$,1@W(B" . "$,46J(B") | |
297 ("$,1@W@m@?(B" . "$,47c(B") | |
298 | |
299 ("$,1@X(B" . "$,46K(B") | |
300 ("$,1@X@m@R(B" . "$,47I(B") | |
301 ("$,1@X@m@X(B" . "$,47J(B") | |
302 ("$,1@X@m@Q@m@Q(B" . "$,47L(B") | |
303 ("$,1@X@m@E(B" . "$,47X(B") | |
304 | |
305 ("$,1@Y(B" . "$,46L(B") | |
306 ("$,1@Y@m@R(B" . "$,47K(B") | |
307 ("$,1@Y@m@N(B" . "$,47R(B") | |
308 ("$,1@Y@m@H(B" . "$,47S(B") | |
309 | |
310 ;; Dependent vowel signs | |
311 ("$,1@^(B" . "$,46M(B") | |
312 ("$,1@_(B" . "$,46N(B") | |
313 ("$,1@`(B" . "$,46O(B") | |
314 ("$,1@a(B" . "$,46P(B") | |
315 ("$,1@b(B" . "$,46Q(B") | |
316 ("$,1@c(B" . "$,46R(B") | |
317 ("$,1@f(B" . "$,46S(B") | |
318 ("$,1@g(B" . "$,46T(B") | |
319 ("$,1@h(B" . "$,46S6S(B") | |
320 ("$,1@j(B" . "$,46S6M(B") | |
321 ("$,1@k(B" . "$,46T6M(B") | |
322 ("$,1@l(B" . "$,46U(B") | |
323 ;; Various signs | |
324 ("$,1@m(B" . "$,46V(B") | |
325 ("$,1@m@O(B" . "$,46Y(B") ;; yakar | |
49973
bd6fa6f622f2
(mlm-char-glyph): Fix more rules.
Kenichi Handa <handa@m17n.org>
parents:
49955
diff
changeset
|
326 ("$,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
|
327 ("$,1@m@O@b(B" . "$,46](B") ;; yakar + uu |
49702 | 328 ("$,1@m@U(B" . "$,46Z(B") ;; vakar modifier |
329 ("$,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
|
330 ("$,1@m@P@m(B" . "$,46R(B") ;; halant + rakar + halant |
49702 | 331 ("$,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
|
332 ("$,1@m@Q@m(B" . "$,46R(B") ;; halant + rrakar + halant |
49702 | 333 ("$,1@m@m(B" . "$,46V(B") ;; double omission sign to stop forming half consonant. |
334 ("$,1@w(B" . "$,46U(B") ;; not in present use, already at 0D4C. | |
335 )) | |
336 | |
337 (defvar mlm-char-glyph-hash | |
338 (let* ((hash (make-hash-table :test 'equal))) | |
339 (mapc (function (lambda (x) (puthash (car x) (cdr x) hash))) | |
340 mlm-char-glyph) | |
341 hash)) | |
342 | |
343 (defvar mlm-char-glyph-regexp | |
344 (malayalam-regexp-of-hashtbl-keys mlm-char-glyph-hash)) | |
345 | |
346 ;; Malayalam languages needed to be reordered in a complex mannar. | |
347 | |
348 (defvar mlm-consonants | |
349 (concat | |
350 "$,46)6*6+6,6-6.6/606162636465666768696:6;6<6=6>6?6@6A6B6C6D6E6F6G6H6I6J6K6L(B" | |
351 "$,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" | |
352 )) | |
353 | |
354 (defvar mlm-consonants-regexp | |
355 (concat "\\($,46[(B?[" mlm-consonants "][$,46Y6Z(B]?\\)")) | |
356 | |
357 (defvar mlm-glyph-reorder-key-glyphs "[$,46[6S6T(B]") | |
358 | |
359 (defvar mlm-glyph-reordering-regexp-list | |
360 `((,(concat "\\([" mlm-consonants "][$,46Y6Z(B]?\\)$,46[(B") . "$,46[(B\\1") | |
361 (,(concat mlm-consonants-regexp "$,46S6S(B") . "$,46S6S(B\\1") | |
362 (,(concat mlm-consonants-regexp "$,46S(B") . "$,46S(B\\1") | |
363 (,(concat mlm-consonants-regexp "$,46T(B") . "$,46T(B\\1"))) | |
364 | |
365 (defun malayalam-compose-syllable-string (string) | |
366 (with-temp-buffer | |
367 (insert (decompose-string string)) | |
368 (malayalam-compose-syllable-region (point-min) (point-max)) | |
369 (buffer-string))) | |
370 | |
371 (defun malayalam-compose-syllable-region (from to) | |
372 "Compose malayalam syllable in region FROM to TO." | |
373 (let (glyph-str | |
374 match-str | |
375 glyph-reorder-regexps | |
376 glyph-reorder-replace | |
377 glyph-reorder-regexp) | |
378 (save-excursion | |
379 (save-restriction | |
380 (narrow-to-region from to) | |
381 (goto-char (point-min)) | |
382 ;; char-glyph-conversion | |
383 (while (re-search-forward mlm-char-glyph-regexp nil t) | |
384 (setq match-str (match-string 0)) | |
385 (setq glyph-str | |
386 (concat glyph-str (gethash match-str mlm-char-glyph-hash)))) | |
387 (when (string-match mlm-glyph-reorder-key-glyphs glyph-str) | |
388 ;; glyph reordering | |
389 (setq glyph-reorder-regexps mlm-glyph-reordering-regexp-list) | |
390 (while glyph-reorder-regexps | |
391 (setq glyph-reorder-regexp (caar glyph-reorder-regexps)) | |
392 (setq glyph-reorder-replace (cdar glyph-reorder-regexps)) | |
393 (setq glyph-reorder-regexps (cdr glyph-reorder-regexps)) | |
394 (if (string-match glyph-reorder-regexp glyph-str) | |
395 (setq glyph-str | |
396 (replace-match glyph-reorder-replace nil nil | |
397 glyph-str))))) | |
398 ;; concatenate and attach reference-points. | |
399 (setq glyph-str | |
400 (cdr | |
401 (apply | |
402 'nconc | |
403 (mapcar | |
68019
b9546af7814e
Delete spurious trailing whitespaces.
Kenichi Handa <handa@m17n.org>
parents:
64085
diff
changeset
|
404 (function |
49702 | 405 (lambda (x) (list '(5 . 3) x))) ;; default ref. point. |
406 glyph-str)))) | |
407 (compose-region from to glyph-str))))) | |
408 | |
409 (provide 'mlm-util) | |
410 | |
52401 | 411 ;;; arch-tag: 7f25ee67-8f9d-49f2-837b-35c412c00eba |
49702 | 412 ;;; devan-util.el ends here |