comparison lisp/language/devan-util.el @ 42061:0332665b9445

(devanagari-range): Renamed from `range'. All calls changed. (devanagari-regexp-of-hashtbl-keys): Renamed from `regexp-of-hashtbl-keys'. All calls changed.

42060:f3b460667d31

	(narrow-to-region (point) (+ (point) len))
	(devanagari-compose-region (point-min) (point-max))
	(set-buffer-modified-p buffer-modified-p)
	(- (point-max) (point-min))))))

(defun 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 regexp-of-hashtbl-keys (hashtbl)
  "Returns the regular expression of hashtable keys."
  (let ((max-specpdl-size 1000))
    (regexp-opt
     (sort 
      (let (dummy)
	(maphash (function (lambda (key val) (setq dummy (cons key dummy)))) hashtbl)

(mapc
 (function (lambda (ucs)
   (aset composition-function-table (decode-char 'ucs ucs)
	 (list (cons devanagari-composable-pattern 
                     'devanagari-composition-function)))))
 (nconc '(#x0903) (range #x0905 #x0939) (range #x0958 #x0961)))

;; Notes on conversion steps.

;; 1. chars to glyphs 
;;

    (mapc (function (lambda (x) (puthash (car x) (cdr x) hash)))
	  dev-char-glyph)
    hash))

(defvar dev-char-glyph-regexp
  (regexp-of-hashtbl-keys dev-char-glyph-hash))

;; glyph-to-glyph conversion table.
;; it is supposed that glyphs are ordered in 
;;   [consonant/nukta] - [matra/halant] - [preceding-r] - [anuswar].

  (let* ((hash (makehash 'equal)))
    (mapc (function (lambda (x) (puthash (car x) (cdr x) hash)))
	  dev-glyph-glyph)
    hash))
(defvar dev-glyph-glyph-regexp
  (regexp-of-hashtbl-keys dev-glyph-glyph-hash))


;; yet another glyph-to-glyph conversions.
(defvar dev-glyph-glyph-2
  '(("$,4"*(B" . "$,4".(B")

  (let* ((hash (makehash 'equal)))
    (mapc (function (lambda (x) (puthash (car x) (cdr x) hash)))
	  dev-glyph-glyph-2)
    hash))
(defvar dev-glyph-glyph-2-regexp
  (regexp-of-hashtbl-keys dev-glyph-glyph-2-hash))


(defun dev-charseq (from &optional to)
  (if (null to) (setq to from))
  (mapcar (function (lambda (x) (indian-glyph-char x 'devanagari)))
          (range from to)))

(defvar dev-glyph-cvn
  (append 
   (dev-charseq #x2b)
   (dev-charseq #x3c #xc1)

42061:0332665b9445

	(narrow-to-region (point) (+ (point) len))
	(devanagari-compose-region (point-min) (point-max))
	(set-buffer-modified-p buffer-modified-p)
	(- (point-max) (point-min))))))

(defun devanagari-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 devanagari-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)

(mapc
 (function (lambda (ucs)
   (aset composition-function-table (decode-char 'ucs ucs)
	 (list (cons devanagari-composable-pattern 
                     'devanagari-composition-function)))))
 (nconc '(#x0903) (devanagari-range #x0905 #x0939) (devanagari-range #x0958 #x0961)))

;; Notes on conversion steps.

;; 1. chars to glyphs 
;;

    (mapc (function (lambda (x) (puthash (car x) (cdr x) hash)))
	  dev-char-glyph)
    hash))

(defvar dev-char-glyph-regexp
  (devanagari-regexp-of-hashtbl-keys dev-char-glyph-hash))

;; glyph-to-glyph conversion table.
;; it is supposed that glyphs are ordered in 
;;   [consonant/nukta] - [matra/halant] - [preceding-r] - [anuswar].

  (let* ((hash (makehash 'equal)))
    (mapc (function (lambda (x) (puthash (car x) (cdr x) hash)))
	  dev-glyph-glyph)
    hash))
(defvar dev-glyph-glyph-regexp
  (devanagari-regexp-of-hashtbl-keys dev-glyph-glyph-hash))


;; yet another glyph-to-glyph conversions.
(defvar dev-glyph-glyph-2
  '(("$,4"*(B" . "$,4".(B")

  (let* ((hash (makehash 'equal)))
    (mapc (function (lambda (x) (puthash (car x) (cdr x) hash)))
	  dev-glyph-glyph-2)
    hash))
(defvar dev-glyph-glyph-2-regexp
  (devanagari-regexp-of-hashtbl-keys dev-glyph-glyph-2-hash))


(defun dev-charseq (from &optional to)
  (if (null to) (setq to from))
  (mapcar (function (lambda (x) (indian-glyph-char x 'devanagari)))
          (devanagari-range from to)))

(defvar dev-glyph-cvn
  (append 
   (dev-charseq #x2b)
   (dev-charseq #x3c #xc1)