;;; ind-util.el --- Transliteration and Misc. Tools for Indian Languages -*- coding: iso-2022-7bit; -*-
-;; Copyright (C) 2001 Free Software Foundation, Inc.
+;; Copyright (C) 2001, 2003 Free Software Foundation, Inc.
-;; Maintainer: KAWABATA, Taichi <batta@beige.ocn.ne.jp>
+;; Maintainer: KAWABATA, Taichi <kawabata@m17n.org>
;; Keywords: multilingual, Indian, Devanagari
;; This file is part of GNU Emacs.
;; 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.
+;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
;;; Commentary:
;; used in quail/indian.el for typing Indian script in Emacs.
(eval-and-compile
-(require 'cl)
-(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)
+(defun indian-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)
- dummy)
- (function (lambda (x y) (> (length x) (length y))))))))
+ (let (keys)
+ (maphash (lambda (key val) (push key keys)) hashtbl)
+ (regexp-opt keys)))
(defvar indian-dev-base-table
'(
(;; VOWELS (18)
(?\e$,15E\e(B nil) (?\e$,15F\e(B ?\e$,15~\e(B) (?\e$,15G\e(B ?\e$,15\7f\e(B) (?\e$,15H\e(B ?\e$,16 \e(B) (?\e$,15I\e(B ?\e$,16!\e(B) (?\e$,15J\e(B ?\e$,16"\e(B)
- (?\e$,15K\e(B ?\e$,16#\e(B) (?\e$,15L\e(B ?\e$,16$\e(B) (?\e$,15M\e(B ?\e$,16%\e(B) (?\e$,15N\e(B ?\e$,16&\e(B) (?\e$,15O\e(B ?\e$,16'\e(B) (?\e$,15P\e(B ?\e$,16(\e(B)
- (?\e$,15Q\e(B ?\e$,16)\e(B) (?\e$,15R\e(B ?\e$,16*\e(B) (?\e$,15S\e(B ?\e$,16+\e(B) (?\e$,15T\e(B ?\e$,16,\e(B) (?\e$,16@\e(B ?\e$,16B\e(B) (?\e$,16A\e(B ?\e$,16C\e(B))
+ (?\e$,15K\e(B ?\e$,16#\e(B) (?\e$,15L\e(B ?\e$,16B\e(B) (?\e$,15M\e(B ?\e$,16%\e(B) (?\e$,15N\e(B ?\e$,16&\e(B) (?\e$,15O\e(B ?\e$,16'\e(B) (?\e$,15P\e(B ?\e$,16(\e(B)
+ (?\e$,15Q\e(B ?\e$,16)\e(B) (?\e$,15R\e(B ?\e$,16*\e(B) (?\e$,15S\e(B ?\e$,16+\e(B) (?\e$,15T\e(B ?\e$,16,\e(B) (?\e$,16@\e(B ?\e$,16$\e(B) (?\e$,16A\e(B ?\e$,16C\e(B))
(;; CONSONANTS (currently 42, including special cases)
?\e$,15U\e(B ?\e$,15V\e(B ?\e$,15W\e(B ?\e$,15X\e(B ?\e$,15Y\e(B ;; GUTTRULS
- ?\e$,15Z\e(B ?\e$,15[\e(B ?\e$,15\\e(B ?\e$,15]\e(B ?\e$,15^\e(B ;; PALATALS
- ?\e$,15_\e(B ?\e$,15`\e(B ?\e$,15a\e(B ?\e$,15b\e(B ?\e$,15c\e(B ;; CEREBRALS
- ?\e$,15d\e(B ?\e$,15e\e(B ?\e$,15f\e(B ?\e$,15g\e(B ?\e$,15h\e(B ?\e$,15i\e(B ;; DENTALS
- ?\e$,15j\e(B ?\e$,15k\e(B ?\e$,15l\e(B ?\e$,15m\e(B ?\e$,15n\e(B ;; LABIALS
+ ?\e$,15Z\e(B ?\e$,15[\e(B ?\e$,15\\e(B ?\e$,15]\e(B ?\e$,15^\e(B ;; PALATALS
+ ?\e$,15_\e(B ?\e$,15`\e(B ?\e$,15a\e(B ?\e$,15b\e(B ?\e$,15c\e(B ;; CEREBRALS
+ ?\e$,15d\e(B ?\e$,15e\e(B ?\e$,15f\e(B ?\e$,15g\e(B ?\e$,15h\e(B ?\e$,15i\e(B ;; DENTALS
+ ?\e$,15j\e(B ?\e$,15k\e(B ?\e$,15l\e(B ?\e$,15m\e(B ?\e$,15n\e(B ;; LABIALS
?\e$,15o\e(B ?\e$,15p\e(B ?\e$,15q\e(B ?\e$,15r\e(B ?\e$,15s\e(B ?\e$,15t\e(B ?\e$,15u\e(B ;; SEMIVOWELS
- ?\e$,15v\e(B ?\e$,15w\e(B ?\e$,15x\e(B ?\e$,15y\e(B ;; SIBILANTS
- ?\e$,168\e(B ?\e$,169\e(B ?\e$,16:\e(B ?\e$,16;\e(B ?\e$,16<\e(B ?\e$,16=\e(B ?\e$,16>\e(B ?\e$,16?\e(B ;; NUKTAS
+ ?\e$,15v\e(B ?\e$,15w\e(B ?\e$,15x\e(B ?\e$,15y\e(B ;; SIBILANTS
+ ?\e$,168\e(B ?\e$,169\e(B ?\e$,16:\e(B ?\e$,16;\e(B ?\e$,16<\e(B ?\e$,16=\e(B ?\e$,16>\e(B ?\e$,16?\e(B ;; NUKTAS
"\e$,15\6-5^\e(B" "\e$,15U6-5w\e(B")
- (;; Misc Symbols (7)
+ (;; Misc Symbols (7)
?\e$,15A\e(B ?\e$,15B\e(B ?\e$,15C\e(B ?\e$,15}\e(B ?\e$,16-\e(B ?\e$,160\e(B ?\e$,16D\e(B)
(;; Digits (10)
?\e$,16F\e(B ?\e$,16G\e(B ?\e$,16H\e(B ?\e$,16I\e(B ?\e$,16J\e(B ?\e$,16K\e(B ?\e$,16L\e(B ?\e$,16M\e(B ?\e$,16N\e(B ?\e$,16O\e(B)
(;; Inscript-extra (4) (#, $, ^, *, ])
"\e$,16-5p\e(B" "\e$,15p6-\e(B" "\e$,15d6-5p\e(B" "\e$,15v6-5p\e(B" "\e$,15|\e(B")))
-(defvar indian-pnj-base-table nil)
-(defvar indian-ori-base-table nil)
-(defvar indian-bng-base-table nil)
-(defvar indian-asm-base-table nil)
-(defvar indian-tlg-base-table nil)
-(defvar indian-knd-base-table nil)
-(defvar indian-mlm-base-table nil)
-(defvar indian-tml-base-table nil)
+;; Punjabi is also known as Gurmukhi.
+(defvar indian-pnj-base-table
+ '(
+ (;; VOWELS
+ (?\e$,18%\e(B nil) (?\e$,18&\e(B ?\e$,18^\e(B) (?\e$,18'\e(B ?\e$,18_\e(B) (?\e$,18(\e(B ?\e$,18`\e(B) (?\e$,18)\e(B ?\e$,18a\e(B) (?\e$,18*\e(B ?\e$,18b\e(B)
+ nil nil nil nil (?\e$,18/\e(B ?\e$,18g\e(B) (?\e$,180\e(B ?\e$,18h\e(B)
+ nil nil (?\e$,183\e(B ?\e$,18k\e(B) (?\e$,184\e(B ?\e$,18l\e(B) nil nil)
+ (;; CONSONANTS
+ ?\e$,185\e(B ?\e$,186\e(B ?\e$,187\e(B ?\e$,188\e(B ?\e$,189\e(B ;; GUTTRULS
+ ?\e$,18:\e(B ?\e$,18;\e(B ?\e$,18<\e(B ?\e$,18=\e(B ?\e$,18>\e(B ;; PALATALS
+ ?\e$,18?\e(B ?\e$,18@\e(B ?\e$,18A\e(B ?\e$,18B\e(B ?\e$,18C\e(B ;; CEREBRALS
+ ?\e$,18D\e(B ?\e$,18E\e(B ?\e$,18F\e(B ?\e$,18G\e(B ?\e$,18H\e(B nil ;; DENTALS
+ ?\e$,18J\e(B ?\e$,18K\e(B ?\e$,18L\e(B ?\e$,18M\e(B ?\e$,18N\e(B ;; LABIALS
+ ?\e$,18O\e(B ?\e$,18P\e(B nil ?\e$,18R\e(B ?\e$,18S\e(B nil ?\e$,18U\e(B ;; SEMIVOWELS
+ ?\e$,18V\e(B nil ?\e$,18X\e(B ?\e$,18Y\e(B ;; SIBILANTS
+ nil ?\e$,18y\e(B ?\e$,18z\e(B ?\e$,18{\e(B ?\e$,18|\e(B nil ?\e$,18~\e(B nil ;; NUKTAS
+ "\e$,18<8m8>\e(B" nil)
+ (;; Misc Symbols (7)
+ nil ?\e$,18"\e(B nil nil ?\e$,18m\e(B nil nil) ;; ek onkar, etc.
+ (;; Digits
+ ?\e$,19&\e(B ?\e$,19'\e(B ?\e$,19(\e(B ?\e$,19)\e(B ?\e$,19*\e(B ?\e$,19+\e(B ?\e$,19,\e(B ?\e$,19-\e(B ?\e$,19.\e(B ?\e$,19/\e(B)
+ (;; Inscript-extra (4) (#, $, ^, *, ])
+ "\e$,18m8P\e(B" "\e$,18P8m\e(B" "\e$,18D8m8P\e(B" "\e$,18V8m8P\e(B" "\e$,18\\e(B")))
+
+(defvar indian-gjr-base-table
+ '(
+ (;; VOWELS
+ (?\e$,19E\e(B nil) (?\e$,19F\e(B ?\e$,19~\e(B) (?\e$,19G\e(B ?\e$,19\7f\e(B) (?\e$,19H\e(B ?\e$,1: \e(B) (?\e$,19I\e(B ?\e$,1:!\e(B) (?\e$,19J\e(B ?\e$,1:"\e(B)
+ (?\e$,19K\e(B ?\e$,1:#\e(B) nil (?\e$,19M\e(B ?\e$,1:%\e(B) nil (?\e$,19O\e(B ?\e$,1:'\e(B) (?\e$,19P\e(B ?\e$,1:(\e(B)
+ (?\e$,19Q\e(B ?\e$,1:)\e(B) nil (?\e$,19S\e(B ?\e$,1:+\e(B) (?\e$,19T\e(B ?\e$,1:,\e(B) (?\e$,1:@\e(B ?\e$,1:$\e(B) nil)
+ (;; CONSONANTS
+ ?\e$,19U\e(B ?\e$,19V\e(B ?\e$,19W\e(B ?\e$,19X\e(B ?\e$,19Y\e(B ;; GUTTRULS
+ ?\e$,19Z\e(B ?\e$,19[\e(B ?\e$,19\\e(B ?\e$,19]\e(B ?\e$,19^\e(B ;; PALATALS
+ ?\e$,19_\e(B ?\e$,19`\e(B ?\e$,19a\e(B ?\e$,19b\e(B ?\e$,19c\e(B ;; CEREBRALS
+ ?\e$,19d\e(B ?\e$,19e\e(B ?\e$,19f\e(B ?\e$,19g\e(B ?\e$,19h\e(B nil ;; DENTALS
+ ?\e$,19j\e(B ?\e$,19k\e(B ?\e$,19l\e(B ?\e$,19m\e(B ?\e$,19n\e(B ;; LABIALS
+ ?\e$,19o\e(B ?\e$,19p\e(B nil ?\e$,19r\e(B ?\e$,19s\e(B nil ?\e$,19u\e(B ;; SEMIVOWELS
+ ?\e$,19v\e(B ?\e$,19w\e(B ?\e$,19x\e(B ?\e$,19y\e(B ;; SIBILANTS
+ nil nil nil nil nil nil nil nil ;; NUKTAS
+ "\e$,19\:-9^\e(B" "\e$,19U:-9w\e(B")
+ (;; Misc Symbols (7)
+ ?\e$,19A\e(B ?\e$,19B\e(B ?\e$,19C\e(B ?\e$,19}\e(B ?\e$,1:-\e(B ?\e$,1:0\e(B nil)
+ (;; Digits
+ ?\e$,1:F\e(B ?\e$,1:G\e(B ?\e$,1:H\e(B ?\e$,1:I\e(B ?\e$,1:J\e(B ?\e$,1:K\e(B ?\e$,1:L\e(B ?\e$,1:M\e(B ?\e$,1:N\e(B ?\e$,1:O\e(B)
+ (;; Inscript-extra (4) (#, $, ^, *, ])
+ "\e$,1:-9p\e(B" "\e$,19p:-\e(B" "\e$,19d:-9p\e(B" "\e$,19v:-9p\e(B" "\e$,19|\e(B")))
+
+(defvar indian-ori-base-table
+ '(
+ (;; VOWELS
+ (?\e$,1:e\e(B nil) (?\e$,1:f\e(B ?\e$,1;>\e(B) (?\e$,1:g\e(B ?\e$,1;?\e(B) (?\e$,1:h\e(B ?\e$,1;@\e(B) (?\e$,1:i\e(B ?\e$,1;A\e(B) (?\e$,1:j\e(B ?\e$,1;B\e(B)
+ (?\e$,1:k\e(B ?\e$,1;C\e(B) (?\e$,1:l\e(B nil) nil nil (?\e$,1:o\e(B ?\e$,1;G\e(B) (?\e$,1:p\e(B ?\e$,1;H\e(B)
+ nil nil (?\e$,1:s\e(B ?\e$,1;K\e(B) (?\e$,1:t\e(B ?\e$,1;L\e(B) (?\e$,1;`\e(B nil) (?\e$,1;a\e(B nil))
+ (;; CONSONANTS
+ ?\e$,1:u\e(B ?\e$,1:v\e(B ?\e$,1:w\e(B ?\e$,1:x\e(B ?\e$,1:y\e(B ;; GUTTRULS
+ ?\e$,1:z\e(B ?\e$,1:{\e(B ?\e$,1:|\e(B ?\e$,1:}\e(B ?\e$,1:~\e(B ;; PALATALS
+ ?\e$,1:\7f\e(B ?\e$,1; \e(B ?\e$,1;!\e(B ?\e$,1;"\e(B ?\e$,1;#\e(B ;; CEREBRALS
+ ?\e$,1;$\e(B ?\e$,1;%\e(B ?\e$,1;&\e(B ?\e$,1;'\e(B ?\e$,1;(\e(B nil ;; DENTALS
+ ?\e$,1;*\e(B ?\e$,1;+\e(B ?\e$,1;,\e(B ?\e$,1;-\e(B ?\e$,1;.\e(B ;; LABIALS
+ ?\e$,1;/\e(B ?\e$,1;0\e(B nil ?\e$,1;2\e(B ?\e$,1;3\e(B nil nil ;; SEMIVOWELS
+ ?\e$,1;6\e(B ?\e$,1;7\e(B ?\e$,1;8\e(B ?\e$,1;9\e(B ;; SIBILANTS
+ nil nil nil nil ?\e$,1;\\e(B ?\e$,1;]\e(B nil ?\e$,1;_\e(B ;; NUKTAS
+ "\e$,1:|;M:~\e(B" "\e$,1:u;M;7\e(B")
+ (;; Misc Symbols
+ ?\e$,1:a\e(B ?\e$,1:b\e(B ?\e$,1:c\e(B ?\e$,1;=\e(B ?\e$,1;M\e(B nil nil)
+ (;; Digits
+ ?\e$,1;f\e(B ?\e$,1;g\e(B ?\e$,1;h\e(B ?\e$,1;i\e(B ?\e$,1;j\e(B ?\e$,1;k\e(B ?\e$,1;l\e(B ?\e$,1;m\e(B ?\e$,1;n\e(B ?\e$,1;o\e(B)
+ (;; Inscript-extra (4) (#, $, ^, *, ])
+ "\e$,1;M;0\e(B" "\e$,1;0;M\e(B" "\e$,1;$;M;0\e(B" "\e$,1;6;M;0\e(B" "\e$,1;<\e(B")))
+
+(defvar indian-bng-base-table
+ '(
+ (;; VOWELS
+ (?\e$,16e\e(B nil) (?\e$,16f\e(B ?\e$,17>\e(B) (?\e$,16g\e(B ?\e$,17?\e(B) (?\e$,16h\e(B ?\e$,17@\e(B) (?\e$,16i\e(B ?\e$,17A\e(B) (?\e$,16j\e(B ?\e$,17B\e(B)
+ (?\e$,16k\e(B ?\e$,17C\e(B) (?\e$,16l\e(B ?\e$,17b\e(B) nil nil (?\e$,16o\e(B ?\e$,17G\e(B) (?\e$,16p\e(B ?\e$,17H\e(B)
+ nil nil (?\e$,16s\e(B ?\e$,17K\e(B) (?\e$,16t\e(B ?\e$,17L\e(B) (?\e$,17`\e(B ?\e$,17D\e(B) (?\e$,17a\e(B ?\e$,17c\e(B))
+ (;; CONSONANTS
+ ?\e$,16u\e(B ?\e$,16v\e(B ?\e$,16w\e(B ?\e$,16x\e(B ?\e$,16y\e(B ;; GUTTRULS
+ ?\e$,16z\e(B ?\e$,16{\e(B ?\e$,16|\e(B ?\e$,16}\e(B ?\e$,16~\e(B ;; PALATALS
+ ?\e$,16\7f\e(B ?\e$,17 \e(B ?\e$,17!\e(B ?\e$,17"\e(B ?\e$,17#\e(B ;; CEREBRALS
+ ?\e$,17$\e(B ?\e$,17%\e(B ?\e$,17&\e(B ?\e$,17'\e(B ?\e$,17(\e(B nil ;; DENTALS
+ ?\e$,17*\e(B ?\e$,17+\e(B ?\e$,17,\e(B ?\e$,17-\e(B ?\e$,17.\e(B ;; LABIALS
+ ?\e$,17/\e(B ?\e$,170\e(B nil ?\e$,172\e(B nil nil nil ;; SEMIVOWELS
+ ?\e$,176\e(B ?\e$,177\e(B ?\e$,178\e(B ?\e$,179\e(B ;; SIBILANTS
+ nil nil nil nil ?\e$,17\\e(B ?\e$,17]\e(B nil ?\e$,17_\e(B ;; NUKTAS
+ "\e$,16|7M6~\e(B" "\e$,16u7M77\e(B")
+ (;; Misc Symbols
+ ?\e$,16a\e(B ?\e$,16b\e(B ?\e$,16c\e(B nil ?\e$,17M\e(B nil nil)
+ (;; Digits
+ ?\e$,17f\e(B ?\e$,17g\e(B ?\e$,17h\e(B ?\e$,17i\e(B ?\e$,17j\e(B ?\e$,17k\e(B ?\e$,17l\e(B ?\e$,17m\e(B ?\e$,17n\e(B ?\e$,17o\e(B)
+ (;; Inscript-extra (4) (#, $, ^, *, ])
+ "\e$,17M70\e(B" "\e$,1707M\e(B" "\e$,17$7M70\e(B" "\e$,1767M70\e(B" "\e$,17<\e(B")))
+
+(defvar indian-asm-base-table
+ '(
+ (;; VOWELS
+ (?\e$,16e\e(B nil) (?\e$,16f\e(B ?\e$,17>\e(B) (?\e$,16g\e(B ?\e$,17?\e(B) (?\e$,16h\e(B ?\e$,17@\e(B) (?\e$,16i\e(B ?\e$,17A\e(B) (?\e$,16j\e(B ?\e$,17B\e(B)
+ (?\e$,16k\e(B ?\e$,17C\e(B) (?\e$,16l\e(B ?\e$,17b\e(B) nil nil (?\e$,16o\e(B ?\e$,17G\e(B) (?\e$,16p\e(B ?\e$,17H\e(B)
+ nil nil (?\e$,16s\e(B ?\e$,17K\e(B) (?\e$,16t\e(B ?\e$,17L\e(B) (?\e$,17`\e(B ?\e$,17D\e(B) (?\e$,17a\e(B ?\e$,17c\e(B))
+ (;; CONSONANTS
+ ?\e$,16u\e(B ?\e$,16v\e(B ?\e$,16w\e(B ?\e$,16x\e(B ?\e$,16y\e(B ;; GUTTRULS
+ ?\e$,16z\e(B ?\e$,16{\e(B ?\e$,16|\e(B ?\e$,16}\e(B ?\e$,16~\e(B ;; PALATALS
+ ?\e$,16\7f\e(B ?\e$,17 \e(B ?\e$,17!\e(B ?\e$,17"\e(B ?\e$,17#\e(B ;; CEREBRALS
+ ?\e$,17$\e(B ?\e$,17%\e(B ?\e$,17&\e(B ?\e$,17'\e(B ?\e$,17(\e(B nil ;; DENTALS
+ ?\e$,17*\e(B ?\e$,17+\e(B ?\e$,17,\e(B ?\e$,17-\e(B ?\e$,17.\e(B ;; LABIALS
+ ?\e$,17/\e(B ?\e$,17p\e(B nil ?\e$,172\e(B nil nil ?\e$,17q\e(B ;; SEMIVOWELS
+ ?\e$,176\e(B ?\e$,177\e(B ?\e$,178\e(B ?\e$,179\e(B ;; SIBILANTS
+ nil nil nil nil ?\e$,17\\e(B ?\e$,17]\e(B nil ?\e$,17_\e(B ;; NUKTAS
+ "\e$,16|7M6~\e(B" "\e$,16u7M77\e(B")
+ (;; Misc Symbols
+ ?\e$,16a\e(B ?\e$,16b\e(B ?\e$,16c\e(B nil ?\e$,17M\e(B nil nil)
+ (;; Digits
+ ?\e$,17f\e(B ?\e$,17g\e(B ?\e$,17h\e(B ?\e$,17i\e(B ?\e$,17j\e(B ?\e$,17k\e(B ?\e$,17l\e(B ?\e$,17m\e(B ?\e$,17n\e(B ?\e$,17o\e(B)
+ (;; Inscript-extra (4) (#, $, ^, *, ])
+ "\e$,17M7p\e(B" "\e$,17p7M\e(B" "\e$,17$7M7p\e(B" "\e$,1767M7p\e(B" "\e$,17<\e(B")))
+
+(defvar indian-tlg-base-table
+ '(
+ (;; VOWELS
+ (?\e$,1=E\e(B nil) (?\e$,1=F\e(B ?\e$,1=~\e(B) (?\e$,1=G\e(B ?\e$,1=\7f\e(B) (?\e$,1=H\e(B ?\e$,1> \e(B) (?\e$,1=I\e(B ?\e$,1>!\e(B) (?\e$,1=J\e(B ?\e$,1>"\e(B)
+ (?\e$,1=K\e(B ?\e$,1>#\e(B) (?\e$,1=L\e(B nil) nil (?\e$,1=O\e(B ?\e$,1>'\e(B) (?\e$,1=N\e(B ?\e$,1>&\e(B) (?\e$,1=P\e(B ?\e$,1>(\e(B)
+ nil (?\e$,1=S\e(B ?\e$,1>+\e(B) (?\e$,1=R\e(B ?\e$,1>*\e(B) (?\e$,1=T\e(B ?\e$,1>,\e(B) (?\e$,1>@\e(B ?\e$,1>$\e(B) (?\e$,1>A\e(B nil))
+ (;; CONSONANTS
+ ?\e$,1=U\e(B ?\e$,1=V\e(B ?\e$,1=W\e(B ?\e$,1=X\e(B ?\e$,1=Y\e(B ;; GUTTRULS
+ ?\e$,1=Z\e(B ?\e$,1=[\e(B ?\e$,1=\\e(B ?\e$,1=]\e(B ?\e$,1=^\e(B ;; PALATALS
+ ?\e$,1=_\e(B ?\e$,1=`\e(B ?\e$,1=a\e(B ?\e$,1=b\e(B ?\e$,1=c\e(B ;; CEREBRALS
+ ?\e$,1=d\e(B ?\e$,1=e\e(B ?\e$,1=f\e(B ?\e$,1=g\e(B ?\e$,1=h\e(B nil ;; DENTALS
+ ?\e$,1=j\e(B ?\e$,1=k\e(B ?\e$,1=l\e(B ?\e$,1=m\e(B ?\e$,1=n\e(B ;; LABIALS
+ ?\e$,1=o\e(B ?\e$,1=p\e(B ?\e$,1=q\e(B ?\e$,1=r\e(B ?\e$,1=s\e(B nil ?\e$,1=u\e(B ;; SEMIVOWELS
+ ?\e$,1=v\e(B ?\e$,1=w\e(B ?\e$,1=x\e(B ?\e$,1=y\e(B ;; SIBILANTS
+ nil nil nil nil nil nil nil nil ;; NUKTAS
+ "\e$,1=\>-=^\e(B" "\e$,1=U>-=w\e(B")
+ (;; Misc Symbols
+ ?\e$,1=A\e(B ?\e$,1=B\e(B ?\e$,1=C\e(B nil ?\e$,1>-\e(B nil nil)
+ (;; Digits
+ ?\e$,1>F\e(B ?\e$,1>G\e(B ?\e$,1>H\e(B ?\e$,1>I\e(B ?\e$,1>J\e(B ?\e$,1>K\e(B ?\e$,1>L\e(B ?\e$,1>M\e(B ?\e$,1>N\e(B ?\e$,1>O\e(B)
+ (;; Inscript-extra (4) (#, $, ^, *, ])
+ "\e$,1>-=p\e(B" "\e$,1=p>-\e(B" "\e$,1=d>-=p\e(B" "\e$,1=v>-=p\e(B" nil)))
+
+(defvar indian-knd-base-table
+ '(
+ (;; VOWELS
+ (?\e$,1>e\e(B nil) (?\e$,1>f\e(B ?\e$,1?>\e(B) (?\e$,1>g\e(B ?\e$,1??\e(B) (?\e$,1>h\e(B ?\e$,1?@\e(B) (?\e$,1>i\e(B ?\e$,1?A\e(B) (?\e$,1>j\e(B ?\e$,1?B\e(B)
+ (?\e$,1>k\e(B ?\e$,1?C\e(B) (?\e$,1>l\e(B nil) nil (?\e$,1>o\e(B ?\e$,1?G\e(B) (?\e$,1>n\e(B ?\e$,1?F\e(B) (?\e$,1>p\e(B ?\e$,1?H\e(B)
+ nil (?\e$,1>s\e(B ?\e$,1?K\e(B) (?\e$,1>r\e(B ?\e$,1?J\e(B) (?\e$,1>t\e(B ?\e$,1?L\e(B) (?\e$,1?`\e(B ?\e$,1?D\e(B) (?\e$,1?a\e(B nil))
+ (;; CONSONANTS
+ ?\e$,1>u\e(B ?\e$,1>v\e(B ?\e$,1>w\e(B ?\e$,1>x\e(B ?\e$,1>y\e(B ;; GUTTRULS
+ ?\e$,1>z\e(B ?\e$,1>{\e(B ?\e$,1>|\e(B ?\e$,1>}\e(B ?\e$,1>~\e(B ;; PALATALS
+ ?\e$,1>\7f\e(B ?\e$,1? \e(B ?\e$,1?!\e(B ?\e$,1?"\e(B ?\e$,1?#\e(B ;; CEREBRALS
+ ?\e$,1?$\e(B ?\e$,1?%\e(B ?\e$,1?&\e(B ?\e$,1?'\e(B ?\e$,1?(\e(B nil ;; DENTALS
+ ?\e$,1?*\e(B ?\e$,1?+\e(B ?\e$,1?,\e(B ?\e$,1?-\e(B ?\e$,1?.\e(B ;; LABIALS
+ ?\e$,1?/\e(B ?\e$,1?0\e(B ?\e$,1?1\e(B ?\e$,1?2\e(B ?\e$,1?3\e(B nil ?\e$,1?5\e(B ;; SEMIVOWELS
+ ?\e$,1?6\e(B ?\e$,1?7\e(B ?\e$,1?8\e(B ?\e$,1?9\e(B ;; SIBILANTS
+ nil nil nil nil nil nil ?\e$,1?^\e(B nil ;; NUKTAS
+ "\e$,1>|?M>~\e(B" "\e$,1>u?M?7\e(B")
+ (;; Misc Symbols
+ nil ?\e$,1>b\e(B ?\e$,1>c\e(B nil ?\e$,1?M\e(B nil nil)
+ (;; Digits
+ ?\e$,1?f\e(B ?\e$,1?g\e(B ?\e$,1?h\e(B ?\e$,1?i\e(B ?\e$,1?j\e(B ?\e$,1?k\e(B ?\e$,1?l\e(B ?\e$,1?m\e(B ?\e$,1?n\e(B ?\e$,1?o\e(B)
+ (;; Inscript-extra (4) (#, $, ^, *, ])
+ "\e$,1?M?0\e(B" "\e$,1?0?M\e(B" "\e$,1?$?M?0\e(B" "\e$,1?6?M?0\e(B" nil)))
+
+(defvar indian-mlm-base-table
+ '(
+ (;; VOWELS
+ (?\e$,1@%\e(B nil) (?\e$,1@&\e(B ?\e$,1@^\e(B) (?\e$,1@'\e(B ?\e$,1@_\e(B) (?\e$,1@(\e(B ?\e$,1@`\e(B) (?\e$,1@)\e(B ?\e$,1@a\e(B) (?\e$,1@*\e(B ?\e$,1@b\e(B)
+ (?\e$,1@+\e(B ?\e$,1@c\e(B) (?\e$,1@,\e(B nil) nil (?\e$,1@/\e(B ?\e$,1@g\e(B) (?\e$,1@.\e(B ?\e$,1@f\e(B) (?\e$,1@0\e(B ?\e$,1@h\e(B)
+ nil (?\e$,1@3\e(B ?\e$,1@k\e(B) (?\e$,1@2\e(B ?\e$,1@j\e(B) (?\e$,1@4\e(B ?\e$,1@l\e(B) nil nil)
+ (;; CONSONANTS
+ ?\e$,1@5\e(B ?\e$,1@6\e(B ?\e$,1@7\e(B ?\e$,1@8\e(B ?\e$,1@9\e(B ;; GUTTRULS
+ ?\e$,1@:\e(B ?\e$,1@;\e(B ?\e$,1@<\e(B ?\e$,1@=\e(B ?\e$,1@>\e(B ;; PALATALS
+ ?\e$,1@?\e(B ?\e$,1@@\e(B ?\e$,1@A\e(B ?\e$,1@B\e(B ?\e$,1@C\e(B ;; CEREBRALS
+ ?\e$,1@D\e(B ?\e$,1@E\e(B ?\e$,1@F\e(B ?\e$,1@G\e(B ?\e$,1@H\e(B nil ;; DENTALS
+ ?\e$,1@J\e(B ?\e$,1@K\e(B ?\e$,1@L\e(B ?\e$,1@M\e(B ?\e$,1@N\e(B ;; LABIALS
+ ?\e$,1@O\e(B ?\e$,1@P\e(B ?\e$,1@Q\e(B ?\e$,1@R\e(B ?\e$,1@S\e(B ?\e$,1@T\e(B ?\e$,1@U\e(B ;; SEMIVOWELS
+ ?\e$,1@V\e(B ?\e$,1@W\e(B ?\e$,1@X\e(B ?\e$,1@Y\e(B ;; SIBILANTS
+ nil nil nil nil nil nil nil nil ;; NUKTAS
+ "\e$,1@<@m@>\e(B" "\e$,1@5@m@W\e(B")
+ (;; Misc Symbols
+ nil ?\e$,1@"\e(B ?\e$,1@#\e(B nil ?\e$,1@m\e(B nil nil)
+ (;; Digits
+ ?\e$,1A&\e(B ?\e$,1A'\e(B ?\e$,1A(\e(B ?\e$,1A)\e(B ?\e$,1A*\e(B ?\e$,1A+\e(B ?\e$,1A,\e(B ?\e$,1A-\e(B ?\e$,1A.\e(B ?\e$,1A/\e(B)
+ (;; Inscript-extra (4) (#, $, ^, *, ])
+ "\e$,1@m@P\e(B" "\e$,1@P@m\e(B" "\e$,1@D@m@P\e(B" "\e$,1@V@m@P\e(B" nil)))
+
+(defvar indian-tml-base-table
+ '(
+ (;; VOWELS
+ (?
\e$,1<%
\e(B nil) (?
\e$,1<&
\e(B ?
\e$,1<^
\e(B) (?
\e$,1<'
\e(B ?
\e$,1<_
\e(B) (?
\e$,1<(
\e(B ?
\e$,1<`
\e(B) (?
\e$,1<)
\e(B ?
\e$,1<a
\e(B) (?
\e$,1<*
\e(B ?
\e$,1<b
\e(B)
+ nil nil nil (?\e$,1</\e(B ?\e$,1<g\e(B) (?\e$,1<.\e(B ?\e$,1<f\e(B) (?\e$,1<0\e(B ?\e$,1<h\e(B)
+ nil (?\e$,1<3\e(B ?\e$,1<k\e(B) (?\e$,1<2\e(B ?\e$,1<j\e(B) (?\e$,1<4\e(B ?\e$,1<l\e(B) nil nil)
+ (;; CONSONANTS
+ ?\e$,1<5\e(B nil nil nil ?\e$,1<9\e(B ;; GUTTRULS
+ ?\e$,1<:\e(B nil ?\e$,1<<\e(B nil ?\e$,1<>\e(B ;; PALATALS
+ ?\e$,1<?\e(B nil nil nil ?\e$,1<C\e(B ;; CEREBRALS
+ ?\e$,1<D\e(B nil nil nil ?\e$,1<H\e(B ?\e$,1<I\e(B ;; DENTALS
+ ?\e$,1<J\e(B nil nil nil ?\e$,1<N\e(B ;; LABIALS
+ ?
\e$,1<O
\e(B ?
\e$,1<P
\e(B ?
\e$,1<Q
\e(B ?
\e$,1<R
\e(B ?
\e$,1<S
\e(B ?
\e$,1<T
\e(B ?
\e$,1<U
\e(B ;; SEMIVOWELS
+ nil ?\e$,1<W\e(B ?\e$,1<X\e(B ?\e$,1<Y\e(B ;; SIBILANTS
+ nil nil nil nil nil nil nil nil ;; NUKTAS
+ "\e$,1<<<m<>\e(B" "\e$,1<5<m<W\e(B")
+ (;; Misc Symbols
+ nil ?\e$,1<"\e(B ?\e$,1<#\e(B nil ?\e$,1<m\e(B nil nil)
+ (;; Digits
+ nil ?\e$,1='\e(B ?\e$,1=(\e(B ?\e$,1=)\e(B ?\e$,1=*\e(B ?\e$,1=+\e(B ?\e$,1=,\e(B ?\e$,1=-\e(B ?\e$,1=.\e(B ?\e$,1=/\e(B)
+ (;; Inscript-extra (4) (#, $, ^, *, ])
+ "
\e$,1<m<P
\e(B" "
\e$,1<P<m
\e(B" "
\e$,1<D<m<P
\e(B" nil nil)))
(defvar indian-base-table-to-language-alist
'((indian-dev-base-table . "Devanagari")
- (indian-pnj-base-table . "Punjabi")
+ (indian-pnj-base-table . "Punjabi")
(indian-ori-base-table . "Oriya")
(indian-bng-base-table . "Bengali")
(indian-asm-base-table . "Assamese")
'(;; for encode/decode
(;; vowels -- 18
"a" ("aa" "A") "i" ("ii" "I") "u" ("uu" "U")
- ("RRi" "R^i") ("LLi" "L^i") (".c" "e.c") nil "e" "ai"
- "o.c" nil "o" "au" ("RRI" "R^I") ("LLI" "L^I"))
- (;; consonants -- 40
+ ("RRi" "R^i") ("LLi" "L^i") (".c" "e.c") "E" "e" "ai"
+ "o.c" "O" "o" "au" ("RRI" "R^I") ("LLI" "L^I"))
+ (;; consonants -- 40
"k" "kh" "g" "gh" ("~N" "N^")
"ch" ("Ch" "chh") "j" "jh" ("~n" "JN")
"T" "Th" "D" "Dh" "N"
- "t" "th" "d" "dh" "n" "nh"
+ "t" "th" "d" "dh" "n" "nh"
"p" "ph" "b" "bh" "m"
"y" "r" "rh" "l" ("L" "ld") nil ("v" "w")
"sh" ("Sh" "shh") "s" "h"
Thus, if SEQ1 contains 3 elements and SEQ2 contains 5 elements, then
FUNCTION will be called 15 times."
(if seqrest
- (mapcar
+ (mapcar
(lambda (x)
- (apply
- 'mapthread
- `(lambda (&rest y) (apply (quote ,function) ,x y))
+ (apply
+ 'mapthread
+ `(lambda (&rest y) (apply ',function x y))
seqrest))
seq1)
(mapcar function seq1)))
(if (stringp trans-char) (setq trans-char (list trans-char)))
(if (char-valid-p char) (setq char (char-to-string char)))
(puthash char (car trans-char) encode-hash)
- (mapc
- '(lambda (trans)
- (puthash trans char decode-hash))
- trans-char))))
+ (dolist (trans trans-char)
+ (puthash trans char decode-hash)))))
+
+(defun indian--map (f l1 l2)
+ (while l1
+ (funcall f (pop l1) (pop l2))))
(defun indian--puthash-v (v trans-v hashtbls)
- (mapcar*
- '(lambda (v trans-v)
- (indian--puthash-char (car v) trans-v hashtbls))
+ (indian--map
+ (lambda (v trans-v)
+ (indian--puthash-char (car v) trans-v hashtbls))
v trans-v))
(defun indian--puthash-c (c trans-c halant hashtbls)
- (mapcar*
- '(lambda (c trans-c)
- (if (char-valid-p c) (setq c (char-to-string c)))
- (indian--puthash-char (concat c halant) trans-c hashtbls))
+ (indian--map
+ (lambda (c trans-c)
+ (if (char-valid-p c) (setq c (char-to-string c)))
+ (indian--puthash-char (concat c halant) trans-c hashtbls))
c trans-c))
(defun indian--puthash-m (m trans-m hashtbls)
- (mapcar*
- '(lambda (m trans-m)
- (indian--puthash-char m trans-m hashtbls))
+ (indian--map
+ (lambda (m trans-m)
+ (indian--puthash-char m trans-m hashtbls))
m trans-m))
(defun indian--puthash-cv (c trans-c v trans-v hashtbls)
- (mapcar*
- '(lambda (c trans-c)
- (mapcar*
- (lambda (v trans-v)
- (when (and c trans-c v trans-v)
- (if (char-valid-p c) (setq c (char-to-string c)))
- (setq v (if (char-valid-p (cadr v)) (char-to-string (cadr v)) ""))
- (if (stringp trans-c) (setq trans-c (list trans-c)))
- (if (stringp trans-v) (setq trans-v (list trans-v)))
- (indian--puthash-char
- (concat c v)
- (apply 'append
- (mapthread 'concat trans-c trans-v))
- hashtbls)))
- v trans-v))
+ (indian--map
+ (lambda (c trans-c)
+ (indian--map
+ (lambda (v trans-v)
+ (when (and c trans-c v trans-v)
+ (if (char-valid-p c) (setq c (char-to-string c)))
+ (setq v (if (char-valid-p (cadr v)) (char-to-string (cadr v)) ""))
+ (if (stringp trans-c) (setq trans-c (list trans-c)))
+ (if (stringp trans-v) (setq trans-v (list trans-v)))
+ (indian--puthash-char
+ (concat c v)
+ (apply 'append
+ (mapthread 'concat trans-c trans-v))
+ hashtbls)))
+ v trans-v))
c trans-c))
(defun indian-make-hash (table trans-table)
"Indian Transliteration Hash for decode/encode"
- (let* ((encode-hash (makehash 'equal))
- (decode-hash (makehash 'equal))
+ (let* ((encode-hash (make-hash-table :test 'equal))
+ (decode-hash (make-hash-table :test 'equal))
(hashtbls (cons encode-hash decode-hash))
(vowels (elt table 0))
(consonants (elt table 1))
(trans-digits '("0" "1" "2" "3" "4" "5" "6" "7" "8" "9")))
(indian--puthash-v vowels trans-vowels hashtbls)
(indian--puthash-c consonants trans-consonants halant hashtbls)
- (indian--puthash-cv consonants trans-consonants
+ (indian--puthash-cv consonants trans-consonants
vowels trans-vowels hashtbls)
(indian--puthash-m misc trans-misc hashtbls)
(indian--puthash-m digits trans-digits hashtbls)
(indian-make-hash indian-dev-base-table
indian-aiba-table))
+(defvar indian-pnj-itrans-v5-hash
+ (indian-make-hash indian-pnj-base-table
+ indian-itrans-v5-table))
+
+(defvar indian-gjr-itrans-v5-hash
+ (indian-make-hash indian-gjr-base-table
+ indian-itrans-v5-table))
+
+(defvar indian-ori-itrans-v5-hash
+ (indian-make-hash indian-ori-base-table
+ indian-itrans-v5-table))
+
+(defvar indian-bng-itrans-v5-hash
+ (indian-make-hash indian-bng-base-table
+ indian-itrans-v5-table))
+
+(defvar indian-asm-itrans-v5-hash
+ (indian-make-hash indian-asm-base-table
+ indian-itrans-v5-table))
+
+(defvar indian-tlg-itrans-v5-hash
+ (indian-make-hash indian-tlg-base-table
+ indian-itrans-v5-table))
+
+(defvar indian-knd-itrans-v5-hash
+ (indian-make-hash indian-knd-base-table
+ indian-itrans-v5-table))
+
+(defvar indian-mlm-itrans-v5-hash
+ (indian-make-hash indian-mlm-base-table
+ indian-itrans-v5-table))
+
+(defvar indian-tml-itrans-v5-hash
+ (indian-make-hash indian-tml-base-table
+ indian-itrans-v5-table))
)
(defmacro indian-translate-region (from to hashtable encode-p)
`(save-excursion
(save-restriction
- (let ((regexp ,(regexp-of-hashtbl-keys
- (if encode-p (car (eval hashtable))
+ (let ((regexp ,(indian-regexp-of-hashtbl-keys
+ (if encode-p (car (eval hashtable))
(cdr (eval hashtable))))))
(narrow-to-region from to)
(goto-char (point-min))
(while (re-search-forward regexp nil t)
- (let ((matchstr (gethash (match-string 0)
- (if ,encode-p (car ,hashtable) (cdr ,hashtable)))))
+ (let ((matchstr (gethash (match-string 0)
+ (if ,encode-p
+ (car ,hashtable)
+ (cdr ,hashtable)))))
(if matchstr (replace-match matchstr))))))))
;;;
(defun indian-dev-itrans-v5-encode-region (from to)
(interactive "r")
- (indian-translate-region
+ (indian-translate-region
from to indian-dev-itrans-v5-hash t))
(defun indian-dev-itrans-v5-decode-region (from to)
(defun indian-dev-kyoto-harvard-encode-region (from to)
(interactive "r")
- (indian-translate-region
+ (indian-translate-region
from to indian-dev-kyoto-harvard-hash t))
(defun indian-dev-kyoto-harvard-decode-region (from to)
(defun indian-dev-aiba-encode-region (from to)
(interactive "r")
- (indian-translate-region
+ (indian-translate-region
from to indian-dev-aiba-hash t))
(defun indian-dev-aiba-decode-region (from to)
(defvar ucs-tamil-to-is13194-alist nil)
(defvar ucs-telugu-to-is13194-alist nil)
(defvar ucs-malayalam-to-is13194-alist nil)
+(defvar ucs-kannada-to-is13194-alist nil)
(defvar is13194-default-repartory 'devanagari)
(defvar is13194-to-ucs-telugu-regexp nil)
(defvar is13194-to-ucs-malayalam-hashtbl nil)
(defvar is13194-to-ucs-malayalam-regexp nil)
+(defvar is13194-to-ucs-kannada-hashtbl nil)
+(defvar is13194-to-ucs-kannada-regexp nil)
-(mapc
- (function (lambda (script)
- (let ((hashtable (intern (concat "is13194-to-ucs-"
+(mapc
+ (function (lambda (script)
+ (let ((hashtable (intern (concat "is13194-to-ucs-"
(symbol-name script) "-hashtbl" )))
(regexp (intern (concat "is13194-to-ucs-"
(symbol-name script) "-regexp"))))
(set hashtable (make-hash-table :test 'equal :size 128))
(mapc
(function (lambda (x)
- (put-char-code-property (decode-char 'ucs (car x))
+ (put-char-code-property (decode-char 'ucs (car x))
'script script)
- (put-char-code-property (decode-char 'ucs (car x))
+ (put-char-code-property (decode-char 'ucs (car x))
'iscii (cdr x))
(puthash (cdr x) (char-to-string (decode-char 'ucs (car x)))
(eval hashtable))))
(eval (intern (concat "ucs-" (symbol-name script)
"-to-is13194-alist"))))
- (set regexp (regexp-of-hashtbl-keys (eval hashtable))))))
+ (set regexp (indian-regexp-of-hashtbl-keys (eval hashtable))))))
'(devanagari bengali assamese gurmukhi gujarati
- oriya tamil telugu malayalam))
+ oriya tamil telugu malayalam kannada))
(defvar ucs-to-is13194-regexp
;; only Devanagari is supported now.
"Regexp that matches to conversion")
(defun ucs-to-iscii-region (from to)
- "Converts the indian UCS characters in the region to ISCII.
+ "Converts the indian UCS characters in the region to ISCII.
Returns new end position."
(interactive "r")
;; only Devanagari is supported now.
(goto-char (point-min))
(let* ((current-repertory is13194-default-repartory))
(while (re-search-forward ucs-to-is13194-regexp nil t)
- (replace-match
+ (replace-match
(get-char-code-property (string-to-char (match-string 0))
'iscii))))
(point-max))))
(defun iscii-to-ucs-region (from to)
- "Converts the ISCII characters in the region to UCS.
+ "Converts the ISCII characters in the region to UCS.
Returns new end position."
(interactive "r")
;; only Devanagari is supported now.
(goto-char (point-min))
(let* ((current-repertory is13194-default-repartory)
(current-hashtable
- (intern (concat "is13194-to-ucs-"
+ (intern (concat "is13194-to-ucs-"
(symbol-name current-repertory) "-hashtbl")))
(current-regexp
- (intern (concat "is13194-to-ucs-"
+ (intern (concat "is13194-to-ucs-"
(symbol-name current-repertory) "-regexp"))))
(while (re-search-forward (eval current-regexp) nil t)
- (replace-match
+ (replace-match
(gethash (match-string 0) (eval current-hashtable) ""))))
(point-max))))
;;;###autoload
(defun indian-compose-region (from to)
- "Compose the region according to `composition-function-table'. "
+ "Compose the region according to `composition-function-table'."
(interactive "r")
(save-excursion
(save-restriction
;;;###autoload
(defun indian-compose-string (string)
- (with-temp-buffer
+ (with-temp-buffer
(insert string)
(indian-compose-region (point-min) (point-max))
(buffer-string)))
(let ((len (- (match-end 0) (match-beginning 0)))
subst)
(if (= len 1)
- (setq subst (aref indian-2-column-to-ucs-chartable (char-after (match-beginning 0))))
- (setq subst (assoc (match-string 0) alist)))
+ (setq subst (aref indian-2-column-to-ucs-chartable
+ (char-after (match-beginning 0))))
+ (setq subst (cdr (assoc (match-string 0) alist))))
(replace-match (if subst subst "?"))))
(indian-compose-region (point-min) (point-max))))))
-
+
+;;;###autoload
+(defun indian-glyph-char (index &optional script)
+ "Return character of charset `indian-glyph' made from glyph index INDEX.
+The variable `indian-default-script' specifies the script of the glyph.
+Optional argument SCRIPT, if non-nil, overrides `indian-default-script'.
+See also the function `indian-char-glyph'."
+ (or script
+ (setq script indian-default-script))
+ (let ((offset (get script 'indian-glyph-code-offset)))
+ (or (integerp offset)
+ (error "Invalid script name: %s" script))
+ (or (and (>= index 0) (< index 256))
+ (error "Invalid glyph index: %d" index))
+ (setq index (+ offset index))
+ (make-char 'indian-glyph (+ (/ index 96) 32) (+ (% index 96) 32))))
+
+(defvar indian-glyph-max-char
+ (indian-glyph-char
+ 255 (aref indian-script-table (1- (length indian-script-table))))
+ "The maximum valid code of characters in the charset `indian-glyph'.")
+
+;;;###autoload
+(defun indian-char-glyph (char)
+ "Return information about the glyph code for CHAR of `indian-glyph' charset.
+The value is (INDEX . SCRIPT), where INDEX is the glyph index
+in the font that Indian script name SCRIPT specifies.
+See also the function `indian-glyph-char'."
+ (let ((split (split-char char))
+ code)
+ (or (eq (car split) 'indian-glyph)
+ (error "Charset of `%c' is not indian-glyph" char))
+ (or (<= char indian-glyph-max-char)
+ (error "Invalid indian-glyph char: %d" char))
+ (setq code (+ (* (- (nth 1 split) 32) 96) (nth 2 split) -32))
+ (cons (% code 256) (aref indian-script-table (/ code 256)))))
+
(provide 'ind-util)
-
+
+;;; arch-tag: 59aacd71-46c2-4cb3-bb26-e12bbad55545
;;; ind-util.el ends here