[Emacs-diffs] Changes to emacs/lisp/language/mlm-util.el [emacs-unicode-2]

[Kenichi Handa]

Index: emacs/lisp/language/mlm-util.el
diff -c /dev/null emacs/lisp/language/mlm-util.el:1.4.6.1
*** /dev/null   Mon Sep  8 08:55:45 2003
--- emacs/lisp/language/mlm-util.el     Mon Sep  8 08:53:41 2003
***************
*** 0 ****
--- 1,412 ----
+ ;;; mlm-util.el --- support for composing malayalam characters  -*-coding: 
iso-2022-7bit;-*-
+ 
+ ;; Copyright (C) 2003 Free Software Foundation, Inc.
+ 
+ ;; Maintainer:  KAWABATA, Taichi <address@hidden>
+ ;; Keywords: multilingual, Malayalam
+ 
+ ;; This file is part of GNU Emacs.
+ 
+ ;; GNU Emacs is free software; you can redistribute it and/or modify
+ ;; it under the terms of the GNU General Public License as published by
+ ;; the Free Software Foundation; either version 2, or (at your option)
+ ;; any later version.
+ 
+ ;; GNU Emacs is distributed in the hope that it will be useful,
+ ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+ ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ ;; GNU General Public License for more details.
+ 
+ ;; You should have received a copy of the GNU General Public License
+ ;; along with GNU Emacs; see the file COPYING.  If not, write to the
+ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+ ;; Boston, MA 02111-1307, USA.
+ 
+ ;; Created: Feb. 11. 2003
+ 
+ ;;; Commentary:
+ 
+ ;; This file provides character(Unicode) to glyph(CDAC) conversion and
+ ;; composition of Malayalam script characters.
+ 
+ ;;; Code:
+ 
+ ;; Malayalam Composable Pattern
+ ;;    C .. Consonants
+ ;;    V .. Vowel
+ ;;    H .. Halant
+ ;;    M .. Matra
+ ;;    V .. Vowel
+ ;;    A .. Anuswar
+ ;;    D .. Chandrabindu
+ ;;    (N .. Zerowidth Non Joiner)
+ ;;    (J .. Zerowidth Joiner.  )
+ ;; 1. vowel
+ ;;  V(A|visargam)?
+ ;; 2. syllable : maximum of 5 consecutive consonants.  (e.g. kartsnya)
+ ;;  ((CH)?(CH)?(CH)?CH)?C(H|M?(A|D)?)?
+ 
+ (defconst malayalam-consonant
+   "[$,address@hidden(B-$,address@hidden(B]")
+ 
+ (defconst malayalam-composable-pattern
+   (concat
+    
"\\([$,address@hidden(B-$,address@hidden(B][$,1@"(B]?\\)\\|$,address@hidden(B"
+    "\\|\\("
+    
"\\(?:\\(?:[$,address@hidden(B-$,address@hidden(B]$,address@hidden(B\\)?\\(?:[$,address@hidden(B-$,address@hidden(B]$,address@hidden(B\\)?\\(?:[$,address@hidden(B-$,address@hidden(B]$,address@hidden(B\\)?[$,address@hidden(B-$,address@hidden(B]$,address@hidden(B\\)?"
+    
"[$,address@hidden(B-$,address@hidden(B]\\(?:$,address@hidden(B\\|[$,address@hidden(B-$,address@hidden@address@hidden@address@hidden@address@hidden@l(B]?[$,1@"@m(B]?\\)?"
+    "\\)")
+   "Regexp matching a composable sequence of Malayalam characters.")
+ 
+ ;;;###autoload
+ (defun malayalam-compose-region (from to)
+   (interactive "r")
+   (save-excursion
+     (save-restriction
+       (narrow-to-region from to)
+       (goto-char (point-min))
+       (while (re-search-forward malayalam-composable-pattern nil t)
+       (malayalam-compose-syllable-region (match-beginning 0)
+                                           (match-end 0))))))
+ (defun malayalam-compose-string (string)
+   (with-temp-buffer
+     (insert (decompose-string string))
+     (malayalam-compose-region (point-min) (point-max))
+     (buffer-string)))
+ 
+ (defun malayalam-post-read-conversion (len)
+   (save-excursion
+     (save-restriction
+       (let ((buffer-modified-p (buffer-modified-p)))
+       (narrow-to-region (point) (+ (point) len))
+       (malayalam-compose-region (point-min) (point-max))
+       (set-buffer-modified-p buffer-modified-p)
+       (- (point-max) (point-min))))))
+ 
+ (defun malayalam-range (from to)
+   "Make the list of the integers of range FROM to TO."
+   (let (result)
+     (while (<= from to) (setq result (cons to result) to (1- to))) result))
+ 
+ (defun malayalam-regexp-of-hashtbl-keys (hashtbl)
+   "Return a regular expression that matches all keys in hashtable HASHTBL."
+   (let ((max-specpdl-size 1000))
+     (regexp-opt
+      (sort
+       (let (dummy)
+       (maphash (function (lambda (key val) (setq dummy (cons key dummy)))) 
hashtbl)
+       dummy)
+       (function (lambda (x y) (> (length x) (length y))))))))
+ 
+ 
+ ;;;###autoload
+ (defun malayalam-composition-function (pos  &optional string)
+   "Compose Malayalam characters after the position POS.
+ If STRING is not nil, it is a string, and POS is an index to the string.
+ In this case, compose characters after POS of the string."
+   (if string
+       ;; Not yet implemented.
+       nil
+     (goto-char pos)
+     (if (looking-at malayalam-composable-pattern)
+       (prog1 (match-end 0)
+         (malayalam-compose-syllable-region pos (match-end 0))))))
+ 
+ ;; Notes on conversion steps.
+ 
+ ;; 1. chars to glyphs
+ ;;
+ ;; Simple replacement of characters to glyphs is done.
+ 
+ ;; 2. glyphs reordering.
+ ;;
+ ;; Two special reordering rule takes place.
+ ;; a. following "$,46[(B" goes to the front.
+ ;; b. following "$,46S6S(B", "$,46S(B" or "$,46T(B" goes to the front.
+ ;; This reordering occurs only to the last cluster of consonants.
+ ;; Preceding consonants with halant characters are not affected.
+ 
+ ;; 3. Composition.
+ ;;
+ ;; left modifiers will be attached at the left.
+ ;; others will be attached right.
+ 
+ (defvar mlm-char-glyph
+   '(;; various signs
+     ("$,1@"(B" . "$,46W(B")
+     ("$,address@hidden(B" . "$,46X(B")
+     ;; Independent Vowels
+     ("$,address@hidden(B" . "$,46!(B")
+     ("$,1@&(B" . "$,46"(B")
+     ("$,1@'(B" . "$,46#(B")
+     ("$,1@((B" . "$,46#6U(B")
+     ("$,1@)(B" . "$,46$(B")
+     ("$,address@hidden(B" . "$,46$6U(B")
+     ("$,address@hidden(B" . "$,46%(B")
+     ("$,1@,(B" . "nil") ;; not in present use, not supported.
+     ("$,address@hidden(B" . "$,46&(B")
+     ("$,1@/(B" . "$,46'(B")
+     ("$,address@hidden(B" . "$,46S6&(B")
+     ("$,address@hidden(B" . "$,46((B")
+     ("$,address@hidden(B" . "$,46(6M(B")
+     ("$,address@hidden(B" . "$,46(6U(B")
+     ;; Consonants
+     ("$,address@hidden(B" . "$,46)(B")
+     ("$,address@hidden@address@hidden(B" . "$,47!(B")
+     ("$,address@hidden@address@hidden(B" . "$,47"(B")
+     ("$,address@hidden@address@hidden(B" . "$,47#(B")
+     ("$,address@hidden@address@hidden(B" . "$,47N(B")
+     ("$,address@hidden@address@hidden(B" . "$,47`(B")
+     ("$,address@hidden@a(B" . "$,47f(B")
+     ("$,address@hidden@address@hidden@a(B" . "$,47g(B")
+     ("$,address@hidden@a(B" . "$,47f(B")
+     ("$,address@hidden@address@hidden@a(B" . "$,47g(B")
+ 
+     ("$,address@hidden(B" . "$,46*(B")
+ 
+     ("$,address@hidden(B" . "$,46+(B")
+     ("$,address@hidden@address@hidden(B" . "$,47$(B")
+     ("$,address@hidden@address@hidden(B" . "$,47%(B")
+     ("$,address@hidden@address@hidden(B" . "$,47\(B")
+     ("$,address@hidden@address@hidden(B" . "$,47a(B")
+ 
+     ("$,address@hidden(B" . "$,46,(B")
+ 
+     ("$,address@hidden(B" . "$,46-(B")
+     ("$,address@hidden@address@hidden(B" . "$,47&(B")
+     ("$,address@hidden@address@hidden(B" . "$,47'(B")
+     ("$,address@hidden@address@hidden@a(B" . "$,47h(B")
+ 
+     ("$,1@:(B" . "$,46.(B")
+     ("$,1@:@m@:(B" . "$,47((B") ;; duplicate
+     ("$,1@:@m@;(B" . "$,47Q(B")
+ 
+     ("$,1@;(B" . "$,46/(B")
+ 
+     ("$,1@<(B" . "$,460(B")
+     ("$,1@<@m@<(B" . "$,47V(B")
+     ("$,1@<@m@>(B" . "$,47Z(B")
+ 
+     ("$,address@hidden(B" . "$,461(B")
+ 
+     ("$,1@>(B" . "$,462(B")
+     ("$,1@>@m@:(B" . "$,47)(B")
+     ("$,1@>@m@>(B" . "$,47*(B")
+ 
+     ("$,address@hidden(B" . "$,463(B")
+     ("$,address@hidden@address@hidden(B" . "$,47+(B")
+ 
+     ("$,1@@(B" . "$,464(B")
+     ("$,address@hidden(B" . "$,465(B")
+     ("$,address@hidden@address@hidden(B" . "$,47M(B")
+     ("$,address@hidden(B" . "$,466(B")
+ 
+     ("$,address@hidden(B" . "$,467(B")
+     ("$,address@hidden@address@hidden(B" . "$,47,(B") ;; half consonant
+     ("$,address@hidden@address@hidden(B" . "$,47-(B")
+     ("$,address@hidden@address@hidden(B" . "$,47.(B")
+     ("$,address@hidden@address@hidden(B" . "$,47W(B")
+     ("$,address@hidden@address@hidden(B" . "$,47^(B")
+     ("$,address@hidden@a(B" . "$,47i(B")
+ 
+     ("$,address@hidden(B" . "$,468(B")
+     ("$,address@hidden@address@hidden(B" . "$,47/(B")
+     ("$,address@hidden@address@hidden(B" . "$,470(B")
+     ("$,address@hidden@address@hidden(B" . "$,47U(B")
+     ("$,address@hidden@address@hidden(B" . "$,47[(B")
+     ("$,address@hidden@address@hidden(B" . "$,47_(B")
+ 
+     ("$,address@hidden(B" . "$,469(B")
+ 
+     ("$,address@hidden(B" . "$,46:(B")
+     ("$,address@hidden@address@hidden(B" . "$,471(B")
+     ("$,address@hidden@address@hidden(B" . "$,472(B")
+ 
+     ("$,address@hidden(B" . "$,46;(B")
+ 
+     ("$,address@hidden(B" . "$,46<(B")
+     ("$,address@hidden@address@hidden(B" . "$,473(B") ;; half consonant
+     ("$,address@hidden@address@hidden(B" . "$,474(B")
+     ("$,address@hidden@address@hidden(B" . "$,475(B")
+     ("$,address@hidden@address@hidden(B" . "$,476(B")
+     ("$,address@hidden@address@hidden(B" . "$,477(B")
+     ("$,address@hidden@address@hidden(B" . "$,47T(B")
+     ("$,address@hidden@address@hidden(B" . "$,47Y(B")
+     ("$,address@hidden@address@hidden(B" . "$,47b(B")
+     ("$,address@hidden@a(B" . "$,47k(B")
+     ("$,address@hidden@address@hidden@a(B" . "$,47l(B") 
+ 
+     ("$,address@hidden(B" . "$,46=(B")
+     ("$,address@hidden@address@hidden(B" . "$,478(B") ;; duplicate
+     ("$,address@hidden@address@hidden(B" . "$,479(B") ;; lakar
+ 
+     ("$,address@hidden(B" . "$,46>(B")
+ 
+     ("$,address@hidden(B" . "$,46?(B")
+     ("$,address@hidden@address@hidden(B" . "$,47:(B") ;; duplicate
+     ("$,address@hidden@address@hidden(B" . "$,47;(B") ;; lakar
+     ("$,address@hidden@address@hidden(B" . "$,47O(B")
+     ("$,address@hidden@address@hidden(B" . "$,47P(B")
+ 
+     ("$,address@hidden(B" . "$,address@hidden(B")
+ 
+     ("$,address@hidden(B" . "$,46A(B")
+     ("$,address@hidden@address@hidden(B" . "$,47<(B")
+     ("$,address@hidden@address@hidden(B" . "$,47=(B")
+     ("$,address@hidden@address@hidden(B" . "$,47>(B") ;; lakar
+ 
+     ("$,address@hidden(B" . "$,46B(B")
+     ("$,address@hidden@address@hidden(B" . "$,47?(B") ;; duplicate
+     ("$,address@hidden@address@hidden@address@hidden(B" . "$,47m(B")
+ 
+     ("$,address@hidden(B" . "$,46C(B")
+     ("$,address@hidden@address@hidden(B" . "$,address@hidden(B")
+     ("$,address@hidden@a(B" . "$,47j(B")
+ 
+     ("$,address@hidden(B" . "$,46D(B")
+     ("$,address@hidden@m(B" . "$,address@hidden(B") ;; same glyph as 
"$,address@hidden@m(B"
+     ("$,address@hidden@address@hidden(B" . "$,address@hidden(B") ;; same 
glyph as "$,address@hidden@m(B"
+     ;;("$,address@hidden@address@hidden(B" . "$,47A(B")
+     ("$,address@hidden@address@hidden(B" . "$,47d(B")
+ 
+     ("$,address@hidden(B" . "$,46E(B")
+     ("$,address@hidden@address@hidden(B" . "$,47B(B")
+     ("$,address@hidden@address@hidden(B" . "$,47C(B") ;; lakar
+     ("$,address@hidden@address@hidden(B" . "$,47e(B")
+ 
+     ("$,address@hidden(B" . "$,46F(B")
+     ("$,address@hidden@address@hidden(B" . "$,47D(B")
+     ("$,address@hidden@address@hidden(B" . "$,47E(B")
+ 
+     ("$,address@hidden(B" . "$,46G(B")
+ 
+     ("$,address@hidden(B" . "$,46H(B")
+     ("$,address@hidden@address@hidden(B" . "$,47F(B")
+ 
+     ("$,address@hidden(B" . "$,46I(B")
+     ("$,address@hidden@address@hidden(B" . "$,47G(B")
+     ("$,address@hidden@address@hidden(B" . "$,47H(B")
+     ("$,address@hidden@m@:(B" . "$,47](B")
+ 
+     ("$,address@hidden(B" . "$,46J(B")
+     ("$,address@hidden@address@hidden(B" . "$,47c(B")
+ 
+     ("$,address@hidden(B" . "$,46K(B")
+     ("$,address@hidden@address@hidden(B" . "$,47I(B")
+     ("$,address@hidden@address@hidden(B" . "$,47J(B")
+     ("$,address@hidden@address@hidden@address@hidden(B" . "$,47L(B")
+     ("$,address@hidden@address@hidden(B" . "$,47X(B")
+ 
+     ("$,address@hidden(B" . "$,46L(B")
+     ("$,address@hidden@address@hidden(B" . "$,47K(B")
+     ("$,address@hidden@address@hidden(B" . "$,47R(B")
+     ("$,address@hidden@address@hidden(B" . "$,47S(B")
+ 
+     ;; Dependent vowel signs
+     ("$,address@hidden(B" . "$,46M(B")
+     ("$,address@hidden(B" . "$,46N(B")
+     ("$,address@hidden(B" . "$,46O(B")
+     ("$,address@hidden(B" . "$,46P(B")
+     ("$,address@hidden(B" . "$,46Q(B")
+     ("$,address@hidden(B" . "$,46R(B")
+     ("$,address@hidden(B" . "$,46S(B")
+     ("$,address@hidden(B" . "$,46T(B")
+     ("$,address@hidden(B" . "$,46S6S(B")
+     ("$,address@hidden(B" . "$,46S6M(B")
+     ("$,address@hidden(B" . "$,46T6M(B")
+     ("$,address@hidden(B" . "$,46U(B")
+     ;; Various signs
+     ("$,address@hidden(B" . "$,46V(B")
+     ("$,address@hidden@O(B" . "$,46Y(B") ;; yakar
+     ("$,address@hidden@address@hidden(B" . "$,46\(B") ;; yakar + u
+     ("$,address@hidden@address@hidden(B" . "$,46](B") ;; yakar + uu
+     ("$,address@hidden@U(B" . "$,46Z(B") ;; vakar modifier
+     ("$,address@hidden@P(B" . "$,46[(B") ;; rakar modifier is the same to 
rra modifier.
+     ("$,address@hidden@address@hidden(B" . "$,46R(B") ;; halant + rakar + 
halant
+     ("$,address@hidden@Q(B" . "$,46[(B") ;; rrakar modifier
+     ("$,address@hidden@address@hidden(B" . "$,46R(B") ;; halant + rrakar + 
halant
+     ("$,address@hidden@m(B" . "$,46V(B") ;; double omission sign to stop 
forming half consonant.
+     ("$,address@hidden(B" . "$,46U(B") ;; not in present use, already at 
0D4C.
+     ))
+ 
+ (defvar mlm-char-glyph-hash
+   (let* ((hash (make-hash-table :test 'equal)))
+     (mapc (function (lambda (x) (puthash (car x) (cdr x) hash)))
+         mlm-char-glyph)
+     hash))
+ 
+ (defvar mlm-char-glyph-regexp
+   (malayalam-regexp-of-hashtbl-keys mlm-char-glyph-hash))
+ 
+ ;; Malayalam languages needed to be reordered in a complex mannar.
+ 
+ (defvar mlm-consonants
+   (concat
+   "$,46)6*6+6,6-6.6/606162636465666768696:6;6<6=6>address@hidden(B"
+   
"$,47!7"7#7$7%7&7'7(7)7*7+7,7-7.7/707172737475767778797:7;7<7=7>address@hidden(B"
+   ))
+ 
+ (defvar mlm-consonants-regexp
+   (concat "\\($,46[(B?[" mlm-consonants "][$,46Y6Z(B]?\\)"))
+ 
+ (defvar mlm-glyph-reorder-key-glyphs "[$,46[6S6T(B]")
+ 
+ (defvar mlm-glyph-reordering-regexp-list
+   `((,(concat "\\([" mlm-consonants "][$,46Y6Z(B]?\\)$,46[(B") . 
"$,46[(B\\1")
+     (,(concat mlm-consonants-regexp "$,46S6S(B") . "$,46S6S(B\\1")
+     (,(concat mlm-consonants-regexp "$,46S(B") . "$,46S(B\\1")
+     (,(concat mlm-consonants-regexp "$,46T(B") . "$,46T(B\\1")))
+ 
+ (defun malayalam-compose-syllable-string (string)
+   (with-temp-buffer
+     (insert (decompose-string string))
+     (malayalam-compose-syllable-region (point-min) (point-max))
+     (buffer-string)))
+ 
+ (defun malayalam-compose-syllable-region (from to)
+   "Compose malayalam syllable in region FROM to TO."
+   (let (glyph-str
+       match-str
+       glyph-reorder-regexps
+       glyph-reorder-replace
+       glyph-reorder-regexp)
+     (save-excursion
+       (save-restriction
+         (narrow-to-region from to)
+         (goto-char (point-min))
+         ;; char-glyph-conversion
+         (while (not (eobp))
+         (if (looking-at mlm-char-glyph-regexp)
+             (progn
+               (setq match-str (match-string 0)
+                     glyph-str
+                     (concat glyph-str
+                             (gethash match-str mlm-char-glyph-hash)))
+               (goto-char (match-end 0)))
+           (setq glyph-str (concat glyph-str (string (following-char))))
+           (forward-char 1)))
+         (when (string-match mlm-glyph-reorder-key-glyphs glyph-str)
+           ;; glyph reordering
+           (setq glyph-reorder-regexps mlm-glyph-reordering-regexp-list)
+           (while glyph-reorder-regexps
+             (setq glyph-reorder-regexp (caar glyph-reorder-regexps))
+             (setq glyph-reorder-replace (cdar glyph-reorder-regexps))
+             (setq glyph-reorder-regexps (cdr glyph-reorder-regexps))
+             (if (string-match glyph-reorder-regexp glyph-str)
+                 (setq glyph-str
+                       (replace-match glyph-reorder-replace nil nil
+                                      glyph-str)))))
+         ;; concatenate and attach reference-points.
+         (setq glyph-str
+               (cdr
+                (apply
+                 'nconc
+                 (mapcar
+                  (function 
+                   (lambda (x) (list '(5 . 3) x))) ;; default ref. point.
+                  glyph-str))))
+         (compose-region from to glyph-str)))))
+ 
+ (provide 'mlm-util)
+ 
+ ;;; devan-util.el ends here