1 |
;;; ind-util.el --- Transliteration and Misc. Tools for Indian Languages -*- coding: iso-2022-7bit; -*- |
;;; ind-util.el --- Transliteration and Misc. Tools for Indian Languages -*- coding: iso-2022-7bit; -*- |
2 |
|
|
3 |
;; Copyright (C) 2001 Free Software Foundation, Inc. |
;; Copyright (C) 2001, 2003 Free Software Foundation, Inc. |
4 |
|
|
5 |
;; Maintainer: KAWABATA, Taichi <kawabata@m17n.org> |
;; Maintainer: KAWABATA, Taichi <kawabata@m17n.org> |
6 |
;; Keywords: multilingual, Indian, Devanagari |
;; Keywords: multilingual, Indian, Devanagari |
42 |
|
|
43 |
(defun indian-regexp-of-hashtbl-keys (hashtbl) |
(defun indian-regexp-of-hashtbl-keys (hashtbl) |
44 |
"Returns the regular expression of hashtable keys." |
"Returns the regular expression of hashtable keys." |
45 |
(let ((max-specpdl-size 1000)) |
(let (keys) |
46 |
(regexp-opt |
(maphash (lambda (key val) (push key keys)) hashtbl) |
47 |
(sort |
(regexp-opt keys))) |
|
(let (dummy) |
|
|
(maphash (function (lambda (key val) (setq dummy (cons key dummy)))) |
|
|
hashtbl) |
|
|
dummy) |
|
|
(function (lambda (x y) (> (length x) (length y)))))))) |
|
48 |
|
|
49 |
(defvar indian-dev-base-table |
(defvar indian-dev-base-table |
50 |
'( |
'( |
409 |
(if (stringp trans-char) (setq trans-char (list trans-char))) |
(if (stringp trans-char) (setq trans-char (list trans-char))) |
410 |
(if (char-valid-p char) (setq char (char-to-string char))) |
(if (char-valid-p char) (setq char (char-to-string char))) |
411 |
(puthash char (car trans-char) encode-hash) |
(puthash char (car trans-char) encode-hash) |
412 |
(mapc |
(dolist (trans trans-char) |
413 |
(lambda (trans) |
(puthash trans char decode-hash))))) |
|
(puthash trans char decode-hash)) |
|
|
trans-char)))) |
|
414 |
|
|
415 |
(defun indian--map (f l1 l2) |
(defun indian--map (f l1 l2) |
416 |
(while l1 |
(while l1 |