annotate lisp/language/mlm-util.el @ 74057:636627b25f70

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