[bpt/emacs.git] / lisp / language / mlm-util.el

;;; mlm-util.el --- support for composing malayalam characters  -*-coding: iso-2022-7bit;-*-

;; Copyright (C) 2003, 2004, 2005, 2006, 2007, 2008
;;   Free Software Foundation, Inc.

;; Maintainer:  KAWABATA, Taichi <kawabata@m17n.org>
;; 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 3, 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., 51 Franklin Street, Fifth Floor,
;; Boston, MA 02110-1301, 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
  "[\e$,1@5\e(B-\e$,1@Y\e(B]")

(defconst malayalam-composable-pattern
  (concat
   "\\([\e$,1@%\e(B-\e$,1@4\e(B][\e$,1@"\e(B]?\\)\\|\e$,1@#\e(B"
   "\\|\\("
   "\\(?:\\(?:[\e$,1@5\e(B-\e$,1@Y\e(B]\e$,1@m\e(B\\)?\\(?:[\e$,1@5\e(B-\e$,1@Y\e(B]\e$,1@m\e(B\\)?\\(?:[\e$,1@5\e(B-\e$,1@Y\e(B]\e$,1@m\e(B\\)?[\e$,1@5\e(B-\e$,1@Y\e(B]\e$,1@m\e(B\\)?"
   "[\e$,1@5\e(B-\e$,1@Y\e(B]\\(?:\e$,1@m\e(B\\|[\e$,1@^\e(B-\e$,1@c@f@g@h@j@j@k@l\e(B]?[\e$,1@"@m\e(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)))

;;;###autoload
(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
      (if auto-compose-current-font
	  (if (eq (string-match "[\e$,1@ \e(B-\e$,1A?\e(B]+" pos) pos)
	      (or (font-shape-text 0 (match-end 0) auto-compose-current-font
				   string)
		  pos)))
    (goto-char pos)
    (if auto-compose-current-font
	(if (looking-at  "[\e$,1@ \e(B-\e$,1A?\e(B]+")
	    (or (font-shape-text pos (match-end 0) auto-compose-current-font)
		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 "\e$,46[\e(B" goes to the front.
;; b. following "\e$,46S6S\e(B", "\e$,46S\e(B" or "\e$,46T\e(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
    ("\e$,1@"\e(B" . "\e$,46W\e(B")
    ("\e$,1@#\e(B" . "\e$,46X\e(B")
    ;; Independent Vowels
    ("\e$,1@%\e(B" . "\e$,46!\e(B")
    ("\e$,1@&\e(B" . "\e$,46"\e(B")
    ("\e$,1@'\e(B" . "\e$,46#\e(B")
    ("\e$,1@(\e(B" . "\e$,46#6U\e(B")
    ("\e$,1@)\e(B" . "\e$,46$\e(B")
    ("\e$,1@*\e(B" . "\e$,46$6U\e(B")
    ("\e$,1@+\e(B" . "\e$,46%\e(B")
    ("\e$,1@,\e(B" . "nil") ;; not in present use, not supported.
    ("\e$,1@.\e(B" . "\e$,46&\e(B")
    ("\e$,1@/\e(B" . "\e$,46'\e(B")
    ("\e$,1@0\e(B" . "\e$,46S6&\e(B")
    ("\e$,1@2\e(B" . "\e$,46(\e(B")
    ("\e$,1@3\e(B" . "\e$,46(6M\e(B")
    ("\e$,1@4\e(B" . "\e$,46(6U\e(B")
    ;; Consonants
    ("\e$,1@5\e(B" . "\e$,46)\e(B")
    ("\e$,1@5@m@5\e(B" . "\e$,47!\e(B")
    ("\e$,1@5@m@S\e(B" . "\e$,47"\e(B")
    ("\e$,1@5@m@W\e(B" . "\e$,47#\e(B")
    ("\e$,1@5@m@?\e(B" . "\e$,47N\e(B")
    ("\e$,1@5@m@D\e(B" . "\e$,47`\e(B")
    ("\e$,1@5@a\e(B" . "\e$,47f\e(B")
    ("\e$,1@5@m@5@a\e(B" . "\e$,47g\e(B")
    ("\e$,1@5@a\e(B" . "\e$,47f\e(B")
    ("\e$,1@5@m@5@a\e(B" . "\e$,47g\e(B")

    ("\e$,1@6\e(B" . "\e$,46*\e(B")

    ("\e$,1@7\e(B" . "\e$,46+\e(B")
    ("\e$,1@7@m@7\e(B" . "\e$,47$\e(B")
    ("\e$,1@7@m@R\e(B" . "\e$,47%\e(B")
    ("\e$,1@7@m@N\e(B" . "\e$,47\\e(B")
    ("\e$,1@7@m@H\e(B" . "\e$,47a\e(B")

    ("\e$,1@8\e(B" . "\e$,46,\e(B")

    ("\e$,1@9\e(B" . "\e$,46-\e(B")
    ("\e$,1@9@m@5\e(B" . "\e$,47&\e(B")
    ("\e$,1@9@m@9\e(B" . "\e$,47'\e(B")
    ("\e$,1@9@m@5@a\e(B" . "\e$,47h\e(B")

    ("\e$,1@:\e(B" . "\e$,46.\e(B")
    ("\e$,1@:@m@:\e(B" . "\e$,47(\e(B") ;; duplicate
    ("\e$,1@:@m@;\e(B" . "\e$,47Q\e(B")

    ("\e$,1@;\e(B" . "\e$,46/\e(B")

    ("\e$,1@<\e(B" . "\e$,460\e(B")
    ("\e$,1@<@m@<\e(B" . "\e$,47V\e(B")
    ("\e$,1@<@m@>\e(B" . "\e$,47Z\e(B")

    ("\e$,1@=\e(B" . "\e$,461\e(B")

    ("\e$,1@>\e(B" . "\e$,462\e(B")
    ("\e$,1@>@m@:\e(B" . "\e$,47)\e(B")
    ("\e$,1@>@m@>\e(B" . "\e$,47*\e(B")

    ("\e$,1@?\e(B" . "\e$,463\e(B")
    ("\e$,1@?@m@?\e(B" . "\e$,47+\e(B")

    ("\e$,1@@\e(B" . "\e$,464\e(B")
    ("\e$,1@A\e(B" . "\e$,465\e(B")
    ("\e$,1@A@m@A\e(B" . "\e$,47M\e(B")
    ("\e$,1@B\e(B" . "\e$,466\e(B")

    ("\e$,1@C\e(B" . "\e$,467\e(B")
    ("\e$,1@C@a@m\e(B" . "\e$,47,\e(B") ;; half consonant
    ("\e$,1@C@m@?\e(B" . "\e$,47-\e(B")
    ("\e$,1@C@m@C\e(B" . "\e$,47.\e(B")
    ("\e$,1@C@m@N\e(B" . "\e$,47W\e(B")
    ("\e$,1@C@m@A\e(B" . "\e$,47^\e(B")
    ("\e$,1@C@a\e(B" . "\e$,47i\e(B")

    ("\e$,1@D\e(B" . "\e$,468\e(B")
    ("\e$,1@D@m@D\e(B" . "\e$,47/\e(B")
    ("\e$,1@D@m@E\e(B" . "\e$,470\e(B")
    ("\e$,1@D@m@X\e(B" . "\e$,47U\e(B")
    ("\e$,1@D@m@M\e(B" . "\e$,47[\e(B")
    ("\e$,1@D@m@N\e(B" . "\e$,47_\e(B")

    ("\e$,1@E\e(B" . "\e$,469\e(B")

    ("\e$,1@F\e(B" . "\e$,46:\e(B")
    ("\e$,1@F@m@F\e(B" . "\e$,471\e(B")
    ("\e$,1@F@m@G\e(B" . "\e$,472\e(B")

    ("\e$,1@G\e(B" . "\e$,46;\e(B")

    ("\e$,1@H\e(B" . "\e$,46<\e(B")
    ("\e$,1@H@a@m\e(B" . "\e$,473\e(B") ;; half consonant
    ("\e$,1@H@m@D\e(B" . "\e$,474\e(B")
    ("\e$,1@H@m@F\e(B" . "\e$,475\e(B")
    ("\e$,1@H@m@H\e(B" . "\e$,476\e(B")
    ("\e$,1@H@m@N\e(B" . "\e$,477\e(B")
    ("\e$,1@H@m@G\e(B" . "\e$,47T\e(B")
    ("\e$,1@H@m@E\e(B" . "\e$,47Y\e(B")
    ("\e$,1@H@m@Q\e(B" . "\e$,47b\e(B")
    ("\e$,1@H@a\e(B" . "\e$,47k\e(B")
    ("\e$,1@H@m@H@a\e(B" . "\e$,47l\e(B")

    ("\e$,1@J\e(B" . "\e$,46=\e(B")
    ("\e$,1@J@m@J\e(B" . "\e$,478\e(B") ;; duplicate
    ("\e$,1@J@m@R\e(B" . "\e$,479\e(B") ;; lakar

    ("\e$,1@K\e(B" . "\e$,46>\e(B")

    ("\e$,1@L\e(B" . "\e$,46?\e(B")
    ("\e$,1@L@m@L\e(B" . "\e$,47:\e(B") ;; duplicate
    ("\e$,1@L@m@R\e(B" . "\e$,47;\e(B") ;; lakar
    ("\e$,1@L@m@G\e(B" . "\e$,47O\e(B")
    ("\e$,1@L@m@F\e(B" . "\e$,47P\e(B")

    ("\e$,1@M\e(B" . "\e$,46@\e(B")

    ("\e$,1@N\e(B" . "\e$,46A\e(B")
    ("\e$,1@N@m@J\e(B" . "\e$,47<\e(B")
    ("\e$,1@N@m@N\e(B" . "\e$,47=\e(B")
    ("\e$,1@N@m@R\e(B" . "\e$,47>\e(B") ;; lakar

    ("\e$,1@O\e(B" . "\e$,46B\e(B")
    ("\e$,1@O@m@O\e(B" . "\e$,47?\e(B") ;; duplicate
    ("\e$,1@O@m@5@m@5\e(B" . "\e$,47m\e(B")

    ("\e$,1@P\e(B" . "\e$,46C\e(B")
    ("\e$,1@P@a@m\e(B" . "\e$,47@\e(B")
    ("\e$,1@P@a\e(B" . "\e$,47j\e(B")

    ("\e$,1@Q\e(B" . "\e$,46D\e(B")
    ("\e$,1@Q@m\e(B" . "\e$,47@\e(B") ;; same glyph as "\e$,1@P@m\e(B"
    ("\e$,1@Q@a@m\e(B" . "\e$,47@\e(B") ;; same glyph as "\e$,1@P@m\e(B"
    ;;("\e$,1@Q@m@Q\e(B" . "\e$,47A\e(B")
    ("\e$,1@Q@m@Q\e(B" . "\e$,47d\e(B")

    ("\e$,1@R\e(B" . "\e$,46E\e(B")
    ("\e$,1@R@a@m\e(B" . "\e$,47B\e(B")
    ("\e$,1@R@m@R\e(B" . "\e$,47C\e(B") ;; lakar
    ("\e$,1@R@m@J\e(B" . "\e$,47e\e(B")

    ("\e$,1@S\e(B" . "\e$,46F\e(B")
    ("\e$,1@S@a@m\e(B" . "\e$,47D\e(B")
    ("\e$,1@S@m@S\e(B" . "\e$,47E\e(B")

    ("\e$,1@T\e(B" . "\e$,46G\e(B")

    ("\e$,1@U\e(B" . "\e$,46H\e(B")
    ("\e$,1@U@m@U\e(B" . "\e$,47F\e(B")

    ("\e$,1@V\e(B" . "\e$,46I\e(B")
    ("\e$,1@V@m@R\e(B" . "\e$,47G\e(B")
    ("\e$,1@V@m@V\e(B" . "\e$,47H\e(B")
    ("\e$,1@V@m@:\e(B" . "\e$,47]\e(B")

    ("\e$,1@W\e(B" . "\e$,46J\e(B")
    ("\e$,1@W@m@?\e(B" . "\e$,47c\e(B")

    ("\e$,1@X\e(B" . "\e$,46K\e(B")
    ("\e$,1@X@m@R\e(B" . "\e$,47I\e(B")
    ("\e$,1@X@m@X\e(B" . "\e$,47J\e(B")
    ("\e$,1@X@m@Q@m@Q\e(B" . "\e$,47L\e(B")
    ("\e$,1@X@m@E\e(B" . "\e$,47X\e(B")

    ("\e$,1@Y\e(B" . "\e$,46L\e(B")
    ("\e$,1@Y@m@R\e(B" . "\e$,47K\e(B")
    ("\e$,1@Y@m@N\e(B" . "\e$,47R\e(B")
    ("\e$,1@Y@m@H\e(B" . "\e$,47S\e(B")

    ;; Dependent vowel signs
    ("\e$,1@^\e(B" . "\e$,46M\e(B")
    ("\e$,1@_\e(B" . "\e$,46N\e(B")
    ("\e$,1@`\e(B" . "\e$,46O\e(B")
    ("\e$,1@a\e(B" . "\e$,46P\e(B")
    ("\e$,1@b\e(B" . "\e$,46Q\e(B")
    ("\e$,1@c\e(B" . "\e$,46R\e(B")
    ("\e$,1@f\e(B" . "\e$,46S\e(B")
    ("\e$,1@g\e(B" . "\e$,46T\e(B")
    ("\e$,1@h\e(B" . "\e$,46S6S\e(B")
    ("\e$,1@j\e(B" . "\e$,46S6M\e(B")
    ("\e$,1@k\e(B" . "\e$,46T6M\e(B")
    ("\e$,1@l\e(B" . "\e$,46U\e(B")
    ;; Various signs
    ("\e$,1@m\e(B" . "\e$,46V\e(B")
    ("\e$,1@m@O\e(B" . "\e$,46Y\e(B") ;; yakar
    ("\e$,1@m@O@a\e(B" . "\e$,46\\e(B") ;; yakar + u
    ("\e$,1@m@O@b\e(B" . "\e$,46]\e(B") ;; yakar + uu
    ("\e$,1@m@U\e(B" . "\e$,46Z\e(B") ;; vakar modifier
    ("\e$,1@m@P\e(B" . "\e$,46[\e(B") ;; rakar modifier is the same to rra modifier.
    ("\e$,1@m@P@m\e(B" . "\e$,46R\e(B") ;; halant + rakar + halant
    ("\e$,1@m@Q\e(B" . "\e$,46[\e(B") ;; rrakar modifier
    ("\e$,1@m@Q@m\e(B" . "\e$,46R\e(B") ;; halant + rrakar + halant
    ("\e$,1@m@m\e(B" . "\e$,46V\e(B") ;; double omission sign to stop forming half consonant.
    ("\e$,1@w\e(B" . "\e$,46U\e(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
  "\e$,46)6*6+6,6-6.6/606162636465666768696:6;6<6=6>6?6@6A6B6C6D6E6F6G6H6I6J6K6L\e(B"
  "\e$,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\e(B"
  ))

(defvar mlm-consonants-regexp
  (concat "\\(\e$,46[\e(B?[" mlm-consonants "][\e$,46Y6Z\e(B]?\\)"))

(defvar mlm-glyph-reorder-key-glyphs "[\e$,46[6S6T\e(B]")

(defvar mlm-glyph-reordering-regexp-list
  `((,(concat "\\([" mlm-consonants "][\e$,46Y6Z\e(B]?\\)\e$,46[\e(B") . "\e$,46[\e(B\\1")
    (,(concat mlm-consonants-regexp "\e$,46S6S\e(B") . "\e$,46S6S\e(B\\1")
    (,(concat mlm-consonants-regexp "\e$,46S\e(B") . "\e$,46S\e(B\\1")
    (,(concat mlm-consonants-regexp "\e$,46T\e(B") . "\e$,46T\e(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)

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