Mercurial > emacs
annotate lisp/language/mlm-util.el @ 89573:6b5d42f51038
(x_get_font_repertory): Handle the case that the
encoding of font is other than Unicode.
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Mon, 06 Oct 2003 11:23:25 +0000 |
parents | 2f877ed80fa6 |
children | 68c22ea6027c |
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 | |
89483 | 103 (defun malayalam-composition-function (pos &optional string) |
104 "Compose Malayalam characters after the position POS. | |
105 If STRING is not nil, it is a string, and POS is an index to the string. | |
106 In this case, compose characters after POS of the string." | |
107 (if string | |
108 ;; Not yet implemented. | |
109 nil | |
110 (goto-char pos) | |
111 (if (looking-at malayalam-composable-pattern) | |
112 (prog1 (match-end 0) | |
113 (malayalam-compose-syllable-region pos (match-end 0)))))) | |
49702 | 114 |
115 ;; Notes on conversion steps. | |
116 | |
117 ;; 1. chars to glyphs | |
118 ;; | |
119 ;; Simple replacement of characters to glyphs is done. | |
120 | |
121 ;; 2. glyphs reordering. | |
122 ;; | |
123 ;; Two special reordering rule takes place. | |
124 ;; a. following "$,46[(B" goes to the front. | |
125 ;; b. following "$,46S6S(B", "$,46S(B" or "$,46T(B" goes to the front. | |
126 ;; This reordering occurs only to the last cluster of consonants. | |
127 ;; Preceding consonants with halant characters are not affected. | |
128 | |
129 ;; 3. Composition. | |
130 ;; | |
131 ;; left modifiers will be attached at the left. | |
132 ;; others will be attached right. | |
133 | |
134 (defvar mlm-char-glyph | |
135 '(;; various signs | |
136 ("$,1@"(B" . "$,46W(B") | |
137 ("$,1@#(B" . "$,46X(B") | |
138 ;; Independent Vowels | |
139 ("$,1@%(B" . "$,46!(B") | |
140 ("$,1@&(B" . "$,46"(B") | |
141 ("$,1@'(B" . "$,46#(B") | |
142 ("$,1@((B" . "$,46#6U(B") | |
143 ("$,1@)(B" . "$,46$(B") | |
144 ("$,1@*(B" . "$,46$6U(B") | |
145 ("$,1@+(B" . "$,46%(B") | |
146 ("$,1@,(B" . "nil") ;; not in present use, not supported. | |
147 ("$,1@.(B" . "$,46&(B") | |
148 ("$,1@/(B" . "$,46'(B") | |
149 ("$,1@0(B" . "$,46S6&(B") | |
150 ("$,1@2(B" . "$,46((B") | |
151 ("$,1@3(B" . "$,46(6M(B") | |
152 ("$,1@4(B" . "$,46(6U(B") | |
153 ;; Consonants | |
154 ("$,1@5(B" . "$,46)(B") | |
155 ("$,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
|
156 ("$,1@5@m@S(B" . "$,47"(B") |
49702 | 157 ("$,1@5@m@W(B" . "$,47#(B") |
49973
bd6fa6f622f2
(mlm-char-glyph): Fix more rules.
Kenichi Handa <handa@m17n.org>
parents:
49955
diff
changeset
|
158 ("$,1@5@m@?(B" . "$,47N(B") |
49702 | 159 ("$,1@5@m@D(B" . "$,47`(B") |
49973
bd6fa6f622f2
(mlm-char-glyph): Fix more rules.
Kenichi Handa <handa@m17n.org>
parents:
49955
diff
changeset
|
160 ("$,1@5@a(B" . "$,47f(B") |
bd6fa6f622f2
(mlm-char-glyph): Fix more rules.
Kenichi Handa <handa@m17n.org>
parents:
49955
diff
changeset
|
161 ("$,1@5@m@5@a(B" . "$,47g(B") |
bd6fa6f622f2
(mlm-char-glyph): Fix more rules.
Kenichi Handa <handa@m17n.org>
parents:
49955
diff
changeset
|
162 ("$,1@5@a(B" . "$,47f(B") |
bd6fa6f622f2
(mlm-char-glyph): Fix more rules.
Kenichi Handa <handa@m17n.org>
parents:
49955
diff
changeset
|
163 ("$,1@5@m@5@a(B" . "$,47g(B") |
49702 | 164 |
165 ("$,1@6(B" . "$,46*(B") | |
166 | |
167 ("$,1@7(B" . "$,46+(B") | |
168 ("$,1@7@m@7(B" . "$,47$(B") | |
169 ("$,1@7@m@R(B" . "$,47%(B") | |
170 ("$,1@7@m@N(B" . "$,47\(B") | |
171 ("$,1@7@m@H(B" . "$,47a(B") | |
172 | |
173 ("$,1@8(B" . "$,46,(B") | |
174 | |
175 ("$,1@9(B" . "$,46-(B") | |
176 ("$,1@9@m@5(B" . "$,47&(B") | |
177 ("$,1@9@m@9(B" . "$,47'(B") | |
49973
bd6fa6f622f2
(mlm-char-glyph): Fix more rules.
Kenichi Handa <handa@m17n.org>
parents:
49955
diff
changeset
|
178 ("$,1@9@m@5@a(B" . "$,47h(B") |
49702 | 179 |
180 ("$,1@:(B" . "$,46.(B") | |
181 ("$,1@:@m@:(B" . "$,47((B") ;; duplicate | |
49973
bd6fa6f622f2
(mlm-char-glyph): Fix more rules.
Kenichi Handa <handa@m17n.org>
parents:
49955
diff
changeset
|
182 ("$,1@:@m@;(B" . "$,47Q(B") |
49702 | 183 |
184 ("$,1@;(B" . "$,46/(B") | |
185 | |
186 ("$,1@<(B" . "$,460(B") | |
187 ("$,1@<@m@<(B" . "$,47V(B") | |
188 ("$,1@<@m@>(B" . "$,47Z(B") | |
189 | |
190 ("$,1@=(B" . "$,461(B") | |
191 | |
192 ("$,1@>(B" . "$,462(B") | |
193 ("$,1@>@m@:(B" . "$,47)(B") | |
194 ("$,1@>@m@>(B" . "$,47*(B") | |
195 | |
196 ("$,1@?(B" . "$,463(B") | |
197 ("$,1@?@m@?(B" . "$,47+(B") | |
198 | |
199 ("$,1@@(B" . "$,464(B") | |
200 ("$,1@A(B" . "$,465(B") | |
201 ("$,1@A@m@A(B" . "$,47M(B") | |
202 ("$,1@B(B" . "$,466(B") | |
203 | |
204 ("$,1@C(B" . "$,467(B") | |
49973
bd6fa6f622f2
(mlm-char-glyph): Fix more rules.
Kenichi Handa <handa@m17n.org>
parents:
49955
diff
changeset
|
205 ("$,1@C@a@m(B" . "$,47,(B") ;; half consonant |
49702 | 206 ("$,1@C@m@?(B" . "$,47-(B") |
207 ("$,1@C@m@C(B" . "$,47.(B") | |
208 ("$,1@C@m@N(B" . "$,47W(B") | |
49973
bd6fa6f622f2
(mlm-char-glyph): Fix more rules.
Kenichi Handa <handa@m17n.org>
parents:
49955
diff
changeset
|
209 ("$,1@C@m@A(B" . "$,47^(B") |
bd6fa6f622f2
(mlm-char-glyph): Fix more rules.
Kenichi Handa <handa@m17n.org>
parents:
49955
diff
changeset
|
210 ("$,1@C@a(B" . "$,47i(B") |
49702 | 211 |
212 ("$,1@D(B" . "$,468(B") | |
213 ("$,1@D@m@D(B" . "$,47/(B") | |
214 ("$,1@D@m@E(B" . "$,470(B") | |
215 ("$,1@D@m@X(B" . "$,47U(B") | |
216 ("$,1@D@m@M(B" . "$,47[(B") | |
217 ("$,1@D@m@N(B" . "$,47_(B") | |
218 | |
219 ("$,1@E(B" . "$,469(B") | |
220 | |
221 ("$,1@F(B" . "$,46:(B") | |
222 ("$,1@F@m@F(B" . "$,471(B") | |
223 ("$,1@F@m@G(B" . "$,472(B") | |
224 | |
225 ("$,1@G(B" . "$,46;(B") | |
226 | |
227 ("$,1@H(B" . "$,46<(B") | |
49973
bd6fa6f622f2
(mlm-char-glyph): Fix more rules.
Kenichi Handa <handa@m17n.org>
parents:
49955
diff
changeset
|
228 ("$,1@H@a@m(B" . "$,473(B") ;; half consonant |
49702 | 229 ("$,1@H@m@D(B" . "$,474(B") |
230 ("$,1@H@m@F(B" . "$,475(B") | |
231 ("$,1@H@m@H(B" . "$,476(B") | |
232 ("$,1@H@m@N(B" . "$,477(B") | |
233 ("$,1@H@m@G(B" . "$,47T(B") | |
234 ("$,1@H@m@E(B" . "$,47Y(B") | |
235 ("$,1@H@m@Q(B" . "$,47b(B") | |
49973
bd6fa6f622f2
(mlm-char-glyph): Fix more rules.
Kenichi Handa <handa@m17n.org>
parents:
49955
diff
changeset
|
236 ("$,1@H@a(B" . "$,47k(B") |
bd6fa6f622f2
(mlm-char-glyph): Fix more rules.
Kenichi Handa <handa@m17n.org>
parents:
49955
diff
changeset
|
237 ("$,1@H@m@H@a(B" . "$,47l(B") |
49702 | 238 |
239 ("$,1@J(B" . "$,46=(B") | |
240 ("$,1@J@m@J(B" . "$,478(B") ;; duplicate | |
241 ("$,1@J@m@R(B" . "$,479(B") ;; lakar | |
242 | |
243 ("$,1@K(B" . "$,46>(B") | |
244 | |
245 ("$,1@L(B" . "$,46?(B") | |
246 ("$,1@L@m@L(B" . "$,47:(B") ;; duplicate | |
247 ("$,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
|
248 ("$,1@L@m@G(B" . "$,47O(B") |
bd6fa6f622f2
(mlm-char-glyph): Fix more rules.
Kenichi Handa <handa@m17n.org>
parents:
49955
diff
changeset
|
249 ("$,1@L@m@F(B" . "$,47P(B") |
49702 | 250 |
251 ("$,1@M(B" . "$,46@(B") | |
252 | |
253 ("$,1@N(B" . "$,46A(B") | |
254 ("$,1@N@m@J(B" . "$,47<(B") | |
255 ("$,1@N@m@N(B" . "$,47=(B") | |
256 ("$,1@N@m@R(B" . "$,47>(B") ;; lakar | |
257 | |
258 ("$,1@O(B" . "$,46B(B") | |
259 ("$,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
|
260 ("$,1@O@m@5@m@5(B" . "$,47m(B") |
49702 | 261 |
262 ("$,1@P(B" . "$,46C(B") | |
49973
bd6fa6f622f2
(mlm-char-glyph): Fix more rules.
Kenichi Handa <handa@m17n.org>
parents:
49955
diff
changeset
|
263 ("$,1@P@a@m(B" . "$,47@(B") |
bd6fa6f622f2
(mlm-char-glyph): Fix more rules.
Kenichi Handa <handa@m17n.org>
parents:
49955
diff
changeset
|
264 ("$,1@P@a(B" . "$,47j(B") |
49702 | 265 |
266 ("$,1@Q(B" . "$,46D(B") | |
267 ("$,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
|
268 ("$,1@Q@a@m(B" . "$,47@(B") ;; same glyph as "$,1@P@m(B" |
49702 | 269 ;;("$,1@Q@m@Q(B" . "$,47A(B") |
270 ("$,1@Q@m@Q(B" . "$,47d(B") | |
271 | |
272 ("$,1@R(B" . "$,46E(B") | |
49973
bd6fa6f622f2
(mlm-char-glyph): Fix more rules.
Kenichi Handa <handa@m17n.org>
parents:
49955
diff
changeset
|
273 ("$,1@R@a@m(B" . "$,47B(B") |
49702 | 274 ("$,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
|
275 ("$,1@R@m@J(B" . "$,47e(B") |
49702 | 276 |
277 ("$,1@S(B" . "$,46F(B") | |
49973
bd6fa6f622f2
(mlm-char-glyph): Fix more rules.
Kenichi Handa <handa@m17n.org>
parents:
49955
diff
changeset
|
278 ("$,1@S@a@m(B" . "$,47D(B") |
49702 | 279 ("$,1@S@m@S(B" . "$,47E(B") |
280 | |
281 ("$,1@T(B" . "$,46G(B") | |
282 | |
283 ("$,1@U(B" . "$,46H(B") | |
284 ("$,1@U@m@U(B" . "$,47F(B") | |
285 | |
286 ("$,1@V(B" . "$,46I(B") | |
287 ("$,1@V@m@R(B" . "$,47G(B") | |
288 ("$,1@V@m@V(B" . "$,47H(B") | |
289 ("$,1@V@m@:(B" . "$,47](B") | |
290 | |
291 ("$,1@W(B" . "$,46J(B") | |
292 ("$,1@W@m@?(B" . "$,47c(B") | |
293 | |
294 ("$,1@X(B" . "$,46K(B") | |
295 ("$,1@X@m@R(B" . "$,47I(B") | |
296 ("$,1@X@m@X(B" . "$,47J(B") | |
297 ("$,1@X@m@Q@m@Q(B" . "$,47L(B") | |
298 ("$,1@X@m@E(B" . "$,47X(B") | |
299 | |
300 ("$,1@Y(B" . "$,46L(B") | |
301 ("$,1@Y@m@R(B" . "$,47K(B") | |
302 ("$,1@Y@m@N(B" . "$,47R(B") | |
303 ("$,1@Y@m@H(B" . "$,47S(B") | |
304 | |
305 ;; Dependent vowel signs | |
306 ("$,1@^(B" . "$,46M(B") | |
307 ("$,1@_(B" . "$,46N(B") | |
308 ("$,1@`(B" . "$,46O(B") | |
309 ("$,1@a(B" . "$,46P(B") | |
310 ("$,1@b(B" . "$,46Q(B") | |
311 ("$,1@c(B" . "$,46R(B") | |
312 ("$,1@f(B" . "$,46S(B") | |
313 ("$,1@g(B" . "$,46T(B") | |
314 ("$,1@h(B" . "$,46S6S(B") | |
315 ("$,1@j(B" . "$,46S6M(B") | |
316 ("$,1@k(B" . "$,46T6M(B") | |
317 ("$,1@l(B" . "$,46U(B") | |
318 ;; Various signs | |
319 ("$,1@m(B" . "$,46V(B") | |
320 ("$,1@m@O(B" . "$,46Y(B") ;; yakar | |
49973
bd6fa6f622f2
(mlm-char-glyph): Fix more rules.
Kenichi Handa <handa@m17n.org>
parents:
49955
diff
changeset
|
321 ("$,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
|
322 ("$,1@m@O@b(B" . "$,46](B") ;; yakar + uu |
49702 | 323 ("$,1@m@U(B" . "$,46Z(B") ;; vakar modifier |
324 ("$,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
|
325 ("$,1@m@P@m(B" . "$,46R(B") ;; halant + rakar + halant |
49702 | 326 ("$,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
|
327 ("$,1@m@Q@m(B" . "$,46R(B") ;; halant + rrakar + halant |
49702 | 328 ("$,1@m@m(B" . "$,46V(B") ;; double omission sign to stop forming half consonant. |
329 ("$,1@w(B" . "$,46U(B") ;; not in present use, already at 0D4C. | |
330 )) | |
331 | |
332 (defvar mlm-char-glyph-hash | |
333 (let* ((hash (make-hash-table :test 'equal))) | |
334 (mapc (function (lambda (x) (puthash (car x) (cdr x) hash))) | |
335 mlm-char-glyph) | |
336 hash)) | |
337 | |
338 (defvar mlm-char-glyph-regexp | |
339 (malayalam-regexp-of-hashtbl-keys mlm-char-glyph-hash)) | |
340 | |
341 ;; Malayalam languages needed to be reordered in a complex mannar. | |
342 | |
343 (defvar mlm-consonants | |
344 (concat | |
345 "$,46)6*6+6,6-6.6/606162636465666768696:6;6<6=6>6?6@6A6B6C6D6E6F6G6H6I6J6K6L(B" | |
346 "$,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" | |
347 )) | |
348 | |
349 (defvar mlm-consonants-regexp | |
350 (concat "\\($,46[(B?[" mlm-consonants "][$,46Y6Z(B]?\\)")) | |
351 | |
352 (defvar mlm-glyph-reorder-key-glyphs "[$,46[6S6T(B]") | |
353 | |
354 (defvar mlm-glyph-reordering-regexp-list | |
355 `((,(concat "\\([" mlm-consonants "][$,46Y6Z(B]?\\)$,46[(B") . "$,46[(B\\1") | |
356 (,(concat mlm-consonants-regexp "$,46S6S(B") . "$,46S6S(B\\1") | |
357 (,(concat mlm-consonants-regexp "$,46S(B") . "$,46S(B\\1") | |
358 (,(concat mlm-consonants-regexp "$,46T(B") . "$,46T(B\\1"))) | |
359 | |
360 (defun malayalam-compose-syllable-string (string) | |
361 (with-temp-buffer | |
362 (insert (decompose-string string)) | |
363 (malayalam-compose-syllable-region (point-min) (point-max)) | |
364 (buffer-string))) | |
365 | |
366 (defun malayalam-compose-syllable-region (from to) | |
367 "Compose malayalam syllable in region FROM to TO." | |
368 (let (glyph-str | |
369 match-str | |
370 glyph-reorder-regexps | |
371 glyph-reorder-replace | |
372 glyph-reorder-regexp) | |
373 (save-excursion | |
374 (save-restriction | |
375 (narrow-to-region from to) | |
376 (goto-char (point-min)) | |
377 ;; char-glyph-conversion | |
89483 | 378 (while (not (eobp)) |
379 (if (looking-at mlm-char-glyph-regexp) | |
380 (progn | |
381 (setq match-str (match-string 0) | |
382 glyph-str | |
383 (concat glyph-str | |
384 (gethash match-str mlm-char-glyph-hash))) | |
385 (goto-char (match-end 0))) | |
386 (setq glyph-str (concat glyph-str (string (following-char)))) | |
387 (forward-char 1))) | |
49702 | 388 (when (string-match mlm-glyph-reorder-key-glyphs glyph-str) |
389 ;; glyph reordering | |
390 (setq glyph-reorder-regexps mlm-glyph-reordering-regexp-list) | |
391 (while glyph-reorder-regexps | |
392 (setq glyph-reorder-regexp (caar glyph-reorder-regexps)) | |
393 (setq glyph-reorder-replace (cdar glyph-reorder-regexps)) | |
394 (setq glyph-reorder-regexps (cdr glyph-reorder-regexps)) | |
395 (if (string-match glyph-reorder-regexp glyph-str) | |
396 (setq glyph-str | |
397 (replace-match glyph-reorder-replace nil nil | |
398 glyph-str))))) | |
399 ;; concatenate and attach reference-points. | |
400 (setq glyph-str | |
401 (cdr | |
402 (apply | |
403 'nconc | |
404 (mapcar | |
405 (function | |
406 (lambda (x) (list '(5 . 3) x))) ;; default ref. point. | |
407 glyph-str)))) | |
408 (compose-region from to glyph-str))))) | |
409 | |
410 (provide 'mlm-util) | |
411 | |
412 ;;; devan-util.el ends here |