Mercurial > emacs

view leim/quail/devanagari.el @ 19860:c17fd465ea95 libc-970911 libc-970912 libc-970913 libc-970914 libc-970915 libc-970916 libc-970917 libc-970918 libc-970919 libc-970920 libc-970921 libc-970922 libc-970923 libc-970924 libc-970925 libc-970926 libc-970927 libc-970928 libc-970929 libc-970930 libc-971001 libc-971018 libc-971019 libc-971020 libc-971021 libc-971022 libc-971023 libc-971024 libc-971025 libc-971026 libc-971027 libc-971028 libc-971029 libc-971030 libc-971031 libc-971101 libc-971102 libc-971103 libc-971104 libc-971105 libc-971106 libc-971107 libc-971108 libc-971109 libc-971110 libc-971111 libc-971112 libc-971113 libc-971114 libc-971115 libc-971116 libc-971117 libc-971118 libc-971120 libc-971121 libc-971122 libc-971123 libc-971124 libc-971125 libc-971126 libc-971127 libc-971128 libc-971129 libc-971130 libc-971201 libc-971203 libc-971204 libc-971205 libc-971206 libc-971207 libc-971208 libc-971209 libc-971210 libc-971211 libc-971212 libc-971213 libc-971214 libc-971217 libc-971218 libc-971219 libc-971220 libc-971221 libc-971222 libc-971223 libc-971224 libc-971225 libc-971226 libc-971227 libc-971228 libc-971229 libc-971230 libc-971231 libc-980103 libc-980104 libc-980105 libc-980106 libc-980107 libc-980108 libc-980109 libc-980110 libc-980111 libc-980112 libc-980114 libc-980115 libc-980116 libc-980117 libc-980118 libc-980119 libc-980120 libc-980121 libc-980122 libc-980123 libc-980124 libc-980125 libc-980126 libc-980127 libc-980128

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
typos.
author Jeff Law <law@redhat.com>
date Wed, 10 Sep 1997 21:16:20 +0000
parents 0f690a5476fe
children db21a8833d0f
line wrap: on
line source

;; quail/devanagari.el -- Quail packages for inputting Devanagari

;; Copyright (C) 1997 Free Software Foundation, Inc.

;; Author: KAWABATA, Taichi <kawabata@is.s.u-tokyo.ac.jp>

;; Keywords: multilingual, input method, Indian, Devanagari

;; 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.

;;; Commentary:

;; History:
;; 1996.10.10 written by KAWABATA, Taichi <kawabata@is.s.u-tokyo.ac.jp>
;; 1997.03.21 fixed by KAWABATA, Taichi

;; I'm not sure if this keyboard layout is REALLY an ISCII keyboard layout.
;; Please let me know if it is not.

;;; Code:

(require 'quail)
(require 'devan-util)

;; This function does nothing for now.  For future use.
(defun quail-devanagari-update-translation (control-flag)
  (cond ((eq control-flag t) ; terminate translation with the whole key.
	 (insert quail-current-str)
	 (quail-terminate-translation))
	((null control-flag) ; proceed translation with more keys.
	 (insert (or quail-current-str quail-current-key)))
	(t            ; control-flag is the number of keys to be translated.
	 (insert (aref quail-current-key 0))
	 (setq unread-command-events
	       (list (aref quail-current-key control-flag))))))

(defun quail-devanagari-compose-characters ()
  (interactive)
  (if (quail-point-in-conversion-region)
      (let* ((from (overlay-start quail-conv-overlay))
	     (to   (overlay-end quail-conv-overlay))
	     (dstr (buffer-substring from to)))
	(delete-overlay quail-overlay)
	(delete-overlay quail-conv-overlay)
	(save-restriction
	  (narrow-to-region from to)
	  (goto-char (point-min))
	  (delete-region (point-min) (point-max))
	  (insert (devanagari-compose-string dstr 'sanskrit))
	  (goto-char (point-max)))
	(setq overriding-terminal-local-map nil)))
  (setq unread-command-events (list last-command-event)))

(quail-define-package 
 "devanagari-keyboard-a" "Devanagari" "DevK" t
 "Devanagari input method with ISCII format

 `$(5!\(B !$(5!.(B @$(5!c(B #x  $x  %x  ^x  &$(5")(B *$(5"((B (   )   _$(5!#(B +$(5!*(B
 ~$(5!/(B 1$(5!r(B 2$(5!s(B 3$(5!t(B 4$(5!u(B 5$(5!v(B 6$(5!w(B 7$(5!x(B 8$(5!y(B 9$(5!z(B 0$(5!q(B -   =$(5!_(B

   Q$(5!f(B W$(5!-(B E$(5!%(B R$(5!'(B T$(5!)(B Y$(5!K(B U$(5!7(B I$(5!E(B O$(5!C(B P$(5!;(B {$(5!@(B }$(5!<(B |$(5!2(B
   q$(5!f(B w$(5!b(B e$(5!Z(B r$(5!\(B t$(5!^(B y$(5!J(B u$(5!X(B i$(5!5(B o$(5!D(B p$(5!:(B [$(5!?(B ]$(5!i(B \\$(5!g(B

     A$(5!0(B S$(5!,(B D$(5!$(B F$(5!&(B G$(5!((B H$(5!I(B J$(5!P(B K$(5!4(B l$(5!C(B :$(5!8(B \"$(5!>(B
     a$(5!e(B s$(5!a(B d$(5!h(B f$(5![(B g$(5!](B h$(5!H(B j$(5!O(B k$(5!3(B l$(5!B(B ;$(5!9(B '$(5!=(B

       Z$(5!+(B X$(5!!(B C$(5!A(B V$(5!G(B B$(5!S(B N$(5!R(B M$(5!U(B <$(5!V(B >$(5!j(B ?$(5!N(B
       z$(5!`(B x$(5!"(B c$(5!L(B v$(5!F(B b$(5!T(B n$(5!Q(B m$(5!W(B ,   .   /$(5!M(B
"
		      nil t t nil nil nil nil nil 
		      ;;'quail-devanagari-update-translation
		      nil
		      '((" "      . quail-devanagari-compose-characters)
			("-"      . quail-devanagari-compose-characters)
			(","      . quail-devanagari-compose-characters)
			("\C-m"   . quail-devanagari-compose-characters)
			([return] . quail-devanagari-compose-characters))
		      )

;;   ..... (not prepared yet)
;;   I forgot where I got this keymap from.  
;;   Please let me know if you know what this keymap is.

(quail-define-rules
 ("`" ?$(5!\(B)
 ("~" ?$(5!/(B)
 ("1" ?$(5!r(B)
 ("!" ?$(5!.(B)
 ("2" ?$(5!s(B)
 ("@" ?$(5!c(B)
 ("3" ?$(5!t(B)
 ("#" ?# ) ; following "r" in keymap...
 ("4" ?$(5!u(B)
 ("$" ?$ ) ; preceding "r" in keymap...
 ("5" ?$(5!v(B)
 ("%" ?x ) ; ??
 ("6" ?$(5!w(B)
 ("^" ?x ) ; %tra
 ("7" ?$(5!x(B)
 ("&" ?$(5")(B) ; % special
 ("8" ?$(5!y(B)
 ("*" ?$(5"((B) ; % special
 ("9" ?$(5!z(B)
 ("(" ?\()
 ("0" ?$(5!q(B)
 (")" ?\))
 ("-" ?-)
 ("_" ?$(5!#(B)
 ("=" ?$(5!_(B)
 ("+" ?$(5!*(B)
 ("q" ?$(5!f(B)
 ("Q" ?$(5!1(B)
 ("w" ?$(5!b(B)
 ("W" ?$(5!-(B)
 ("e" ?$(5!Z(B)
 ("E" ?$(5!%(B)
 ("r" ?$(5!\(B)
 ("R" ?$(5!'(B)
 ("t" ?$(5!^(B)
 ("T" ?$(5!)(B)
 ("y" ?$(5!J(B)
 ("Y" ?$(5!K(B)
 ("u" ?$(5!X(B)
 ("U" ?$(5!7(B)
 ("i" ?$(5!5(B)
 ("I" ?$(5!E(B)
 ("o" ?$(5!D(B)
 ("O" ?$(5!C(B)
 ("p" ?$(5!:(B)
 ("P" ?$(5!;(B)
 ("[" ?$(5!?(B)
 ("{" ?$(5!@(B)
 ("]" ?$(5!i(B)
 ("}" ?$(5!<(B)
 ("\\" ?$(5!g(B)
 ("|" ?$(5!2(B)
 ("a" ?$(5!e(B)
 ("A" ?$(5!0(B)
 ("s" ?$(5!a(B)
 ("S" ?$(5!,(B)
 ("d" ?$(5!h(B)
 ("D" ?$(5!$(B)
 ("f" ?$(5![(B)
 ("F" ?$(5!&(B)
 ("g" ?$(5!](B)
 ("G" ?$(5!((B)
 ("h" ?$(5!H(B)
 ("H" ?$(5!I(B)
 ("j" ?$(5!O(B)
 ("J" ?$(5!P(B)
 ("k" ?$(5!3(B)
 ("K" ?$(5!4(B)
 ("l" ?$(5!B(B)
 ("L" ?$(5!C(B)
 (";" ?$(5!8(B)
 (":" ?$(5!9(B)
 ("'" ?$(5!=(B)
 ("\"" ?$(5!>(B)
 ("z" ?$(5!`(B)
 ("Z" ?$(5!+(B)
 ("x" ?$(5!"(B)
 ("X" ?$(5!!(B)
 ("c" ?$(5!L(B)
 ("C" ?$(5!A(B)
 ("v" ?$(5!F(B)
 ("V" ?$(5!G(B)
 ("b" ?$(5!T(B)
 ("B" ?$(5!S(B)
 ("n" ?$(5!Q(B)
 ("N" ?$(5!R(B)
 ("m" ?$(5!W(B)
 ("M" ?$(5!U(B)
 ;; ("," ?,)
 ("<" ?$(5!V(B)
 ;; ("." ?.)
 (">" ?$(5!j(B)
 ("/" ?$(5!M(B)
 ("?" ?$(5!N(B)
 )


;;
;; Quail Devanagari Input By Transliteration
;;

(eval-when-compile

(defvar devanagari-consonant-transliteration-alist
  '(
    ; GUTTURALS
    ("k" . "$(5!3(B")
    ("k." . "$(5!3!i(B")
    ("kh" . "$(5!4(B")
    ("kh." . "$(5!4!i(B")
    ("g" . "$(5!5(B")
    ("g." . "$(5!5!i(B")
    ("gh" . "$(5!6(B")
    ("G" . "$(5!7(B")
    ; PALATALS
    ("c" . "$(5!8(B")
    ("ch" . "$(5!9(B")
    ("j" . "$(5!:(B")
    ("j." . "$(5!:!i(B")
    ("Z" . "$(5!:!i(B")
    ("jh" . "$(5!;(B")
    ("J" . "$(5!<(B")
    ; CEREBRALS
    ("T" . "$(5!=(B")
    ("Th" . "$(5!>(B")
    ("D" . "$(5!?(B")
    ("D." . "$(5!?!i(B")
    ("Dh" . "$(5!@(B")
    ("Dh." . "$(5!@!i(B")
    ("N" . "$(5!A(B")
    ; DENTALS
    ("t" . "$(5!B(B")
    ("th" . "$(5!C(B")
    ("d" . "$(5!D(B")
    ("dh" . "$(5!E(B")
    ("n" . "$(5!F(B")
    ("N." . "$(5!G(B")
    ; LABIALS
    ("p" . "$(5!H(B")
    ("ph" . "$(5!I(B")
    ("ph." . "$(5!I!i(B")
    ("f" . "$(5!I(B")
    ("f." . "$(5!I!i(B")
    ("b" . "$(5!J(B")
    ("bh" . "$(5!K(B")
    ("m" . "$(5!L(B")
    ; SEMIVOWELS
    ("y" . "$(5!M(B")
    ("y." . "$(5!N(B")
    ("Y" . "$(5!N(B")
    ("r" . "$(5!O(B")
    ("r." . "$(5!P(B")
    ("l" . "$(5!Q(B")
    ("W" . "$(5!R(B")
    ("W." . "$(5!S(B")
    ("v" . "$(5!T(B")
    ("w" . "$(5!T(B")
    ; SIBILANTS
    ("z" . "$(5!U(B")
    ("S" . "$(5!V(B")
    ("s" . "$(5!W(B")
    ("h" . "$(5!X(B")
  ))

(defvar devanagari-vowel-transliteration-alist
  '(
    ;; Special treatment unique to IS 13194 Transliteration
    ("" . "$(5!h(B")
    ("a" . "")
    ; Matra (Vowel Sign)
    ("A" . "$(5!Z(B")
    ("i" . "$(5![(B")
    ("I" . "$(5!\(B")
    ("u" . "$(5!](B")
    ("U" . "$(5!^(B")
    ("R" . "$(5!_(B")
    ;; ("RR" . "x")	; not specified in ordinary IS 13194.(but in Unicode??)
    ("q" . "$(5#K(B")  ; "$(5#K(B" = "$(5!_!i(B" in IS 13194.
    ("L" . "$(5#L(B")  ; "$(5#L(B" = "$(5![!i(B" in IS 13194.
    ("E" . "$(5#M(B")  ; "$(5#M(B" = "$(5!\!i(B" in IS 13194.
    ("E" . "$(5!`(B")  ; only for transcription of other scripts.
    ("e" . "$(5!a(B")
    ("ai" . "$(5!b(B")
    ("ae" . "$(5!b(B") ; variation of transliteration.
    ("EE" . "$(5!c(B") ; only for transcription of other scripts. (Candra E)
    ("O" . "$(5!d(B")  ; only for transcription of other scripts.
    ("o" . "$(5!e(B")
    ("au" . "$(5!f(B")
    ("ao" . "$(5!f(B") ; variation of transliteration.
    ("OO" . "$(5!g(B") ; only for transcription of other scripts. (Candra O)
    ))

;;
;; Independent vowels and other signs.
;;

(defvar devanagari-other-letters-alist
  '(
    ("a" . "$(5!$(B")
    ("A" . "$(5!%(B")
    ("i" . "$(5!&(B")
    ("I" . "$(5!'(B")
    ("u" . "$(5!((B")
    ("U" . "$(5!)(B")
    ("R" . "$(5!*(B")
    ;; ("RR" . "x")	; not specified in IS 13194. (but in Unicode??)
    ("q" . "$(5#*(B")  ; "$(5#*(B" = "$(5!*!i(B" in IS 13194.
    ("L" . "$(5#&(B")  ; "$(5#&(B" = "$(5!&!i(B" in IS 13194.
    ("E" . "$(5#'(B")  ; "$(5#'(B" = "$(5!'!i(B" in IS 13194.
    ("Ex" . "$(5!+(B") ; only for transcription of other scripts.
    ("e" . "$(5!,(B")
    ("ai" . "$(5!-(B")
    ("EE" . "$(5!.(B") ; only for transcription of other scripts. (Candra E)
    ("O" . "$(5!/(B")  ; only for transcription of other scripts.
    ("o" . "$(5!0(B")
    ("au" . "$(5!1(B")
    ("ao" . "$(5!1(B") ; variation of transliteration.
    ("OO" . "$(5!2(B") ; only for transcription of other scripts. (Candra O)
    ("'" . "$(5#J(B") ; avagraha
    ("@" . "$(5#!(B") ; OM
    ("/" . "$(5!j(B")
    ("M" . "$(5!"(B")
    ("&" . "$(5!!(B")
    ("H" . "$(5!#(B")
    ("." . "$(5!i(B")        ; Nukta
    ("0" . "$(5!q(B")
    ("1" . "$(5!r(B")
    ("2" . "$(5!s(B")
    ("3" . "$(5!t(B")
    ("4" . "$(5!u(B")
    ("5" . "$(5!v(B")
    ("6" . "$(5!w(B")
    ("7" . "$(5!x(B")
    ("8" . "$(5!y(B")
    ("9" . "$(5!z(B")
    ))
)

(defmacro devanagari-transliteration-quail-define-rules ()
  (cons 'quail-define-rules
	(let ((cl devanagari-consonant-transliteration-alist)
	      (ml devanagari-other-letters-alist) rules)
	  (while cl
	    (let ((vl devanagari-vowel-transliteration-alist))
	      (while vl
		(setq rules 
		      (cons (list (concat (car (car cl)) (car (car vl)))
				  (make-vector 1
				   (concat (cdr (car cl)) (cdr (car vl)))))
			    rules))
		(setq vl (cdr vl))))
	    (setq cl (cdr cl)))
	  (while ml
	    (setq rules (cons (list (car (car ml)) 
				    (make-vector 1 (cdr (car ml))))
			      rules))
	    (setq ml (cdr ml)))
	  rules)))

(quail-define-package
 "devanagari-transliteration" "Devanagari" "DEVt" t
 "Devanagari input method by transliteration
VOWELS     :   a  $(5!$(B   A  $(5!%(B   i  $(5!&(B   I  $(5!'(B   u  $(5!((B   U  $(5!)(B
               R  $(5!*(B   q  $(5#*(B   L  $(5#&(B   E  $(5#'(B   Ex $(5!+(B   e  $(5!,(B
               ai $(5!-(B   EE $(5!.(B   O  $(5!/(B   o  $(5!0(B   au $(5!1(B   OO $(5!2(B
GRUTTALS   :   k  $(5!3(B   kh $(5!4(B   g  $(5!5(B   gh $(5!6(B   G  $(5!7(B
PALATALS   :   c  $(5!8(B   ch $(5!9(B   j  $(5!:(B   jh $(5!;(B   J  $(5!<(B   (Z  $(5!:!i(B)
CEREBRALS  :   T  $(5!=(B   Th $(5!>(B   D  $(5!?(B   Dh $(5!@(B   N  $(5!A(B
DENTALS    :   t  $(5!B(B   th $(5!C(B   d  $(5!D(B   dh $(5!E(B   n  $(5!F(B   (Nq $(5!G(B)
LABIALS    :   p  $(5!H(B   ph $(5!I(B   b  $(5!J(B   bh $(5!K(B   m  $(5!L(B   (f  $(5!I(B)
SEMIVOWELS :   y  $(5!M(B   Y  $(5!N(B   r  $(5!O(B   Rq $(5!P(B   
               l  $(5!Q(B   W  $(5!R(B   W. $(5!S(B   v  $(5!T(B   w  $(5!T(B
SIBILANTS  :   z  $(5!U(B   S  $(5!V(B   s  $(5!W(B   h  $(5!X(B

Specials   :   Anuswar       M  $(5!"(B     Visarg        H  $(5!#(B
               Chandrabindu  &  $(5!!(B     Nukta         .  $(5!i(B
               Danda         /   $(5!j(B    Avagrah       '  $(5#J(B
               OM            @   $(5#!(B
" 
		      nil t t nil nil nil nil nil 
		      ;; 'quail-devanagari-update-translation
		      nil
		      '((" "      . quail-devanagari-compose-characters)
			("-"      . quail-devanagari-compose-characters)
			(","      . quail-devanagari-compose-characters)
			("\C-m"   . quail-devanagari-compose-characters)
			([return] . quail-devanagari-compose-characters))
		      )

(devanagari-transliteration-quail-define-rules)

;;
;;  ITRANS - Indian Script Translation
;;

(eval-and-compile

(defun rule-indian-to-devanagari (alist)
  (if (null alist) nil
    (cons (cons (car (car alist)) 
		(indian-to-devanagari-string (cdr (car alist))))
	  (rule-indian-to-devanagari (cdr alist)))))
)

(eval-when-compile

(defvar devanagari-consonant-itrans-alist
  (rule-indian-to-devanagari indian-itrans-consonant-alist))

(defvar devanagari-vowel-itrans-alist
  (rule-indian-to-devanagari indian-itrans-vowel-sign-alist))

(defvar devanagari-other-letters-itrans-alist
  (rule-indian-to-devanagari indian-itrans-other-letters-alist))

)

(defmacro devanagari-itrans-quail-define-rules ()
  (cons 'quail-define-rules
	(let ((cl devanagari-consonant-itrans-alist)
	      (ml devanagari-other-letters-itrans-alist) rules)
	  (while cl
	    (let ((vl devanagari-vowel-itrans-alist))
	      (while vl
		(setq rules 
		      (cons (list (concat (car (car cl)) (car (car vl)))
				  (make-vector 1
				   (concat (cdr (car cl)) (cdr (car vl)))))
			    rules))
		(setq vl (cdr vl))))
	    (setq cl (cdr cl)))
	  (while ml
	    (setq rules (cons (list (car (car ml)) 
				    (make-vector 1 (cdr (car ml))))
			      rules))
	    (setq ml (cdr ml)))
	  rules)))

(quail-define-package
 "devanagari-itrans" "Devanagari" "DEVi" t
 "Devanagari input method by ITRANS
Special Keys : Anuswar         n'
               Chandrabindu    nn'
               Visarg          nh
               Nukta           type capital letter for first character.
               $(5!7(B(ng) $(5!<(B(ny) $(5!A(B(nn) $(5!F(B(n) $(5!G(B(nnn)
" 
		      nil t t nil nil nil nil nil 
		      ;; 'quail-devanagari-update-translation
		      nil
		      '((" "      . quail-devanagari-compose-characters)
			("-"      . quail-devanagari-compose-characters)
			(","      . quail-devanagari-compose-characters)
			("\C-m"   . quail-devanagari-compose-characters)
			([return] . quail-devanagari-compose-characters))
		      )

(devanagari-itrans-quail-define-rules)


;;
;; Quail Hindi Input By Transliteration
;;

(defun quail-devanagari-hindi-compose-characters ()
  (interactive)
  (if (quail-point-in-conversion-region)
      (let* ((from (overlay-start quail-conv-overlay))
	     (to   (overlay-end quail-conv-overlay))
	     (dstr (buffer-substring from to)))
	(delete-overlay quail-overlay)
	(delete-overlay quail-conv-overlay)
	(save-restriction
	  (narrow-to-region from to)
	  (goto-char (point-min))
	  (delete-region (point-min) (point-max))
	  (insert (devanagari-compose-string dstr))
	  (goto-char (point-max)))
	(setq overriding-terminal-local-map nil)))
  (setq unread-command-events (list last-command-event)))

(eval-when-compile

(defvar devanagari-hindi-consonant-transliteration-alist
  '(
    ; GUTTURALS
    ("k" . "$(5!3(B")
    ("ks" . "$(5$.(B")
    ("k." . "$(5!3!i(B")
    ("kh" . "$(5!4(B")
    ("kh." . "$(5!4!i(B")
    ("g" . "$(5!5(B")
    ("g." . "$(5!5!i(B")
    ("gh" . "$(5!6(B")
    ("G" . "$(5!7(B")
    ; PALATALS
    ("ch" . "$(5!8(B")
    ("chh" . "$(5!9(B")
    ("j" . "$(5!:(B")
    ("j." . "$(5!:!i(B")
    ("z" . "$(5!:!i(B")
    ("jh" . "$(5!;(B")
    ("J" . "$(5!<(B")
    ; CEREBRALS
    ("T" . "$(5!=(B")
    ("Th" . "$(5!>(B")
    ("D" . "$(5!?(B")
    ("D." . "$(5!?!i(B")
    ("Dh" . "$(5!@(B")
    ("Dh." . "$(5!@!i(B")
    ("N" . "$(5!A(B")
    ; DENTALS
    ("t" . "$(5!B(B")
    ("th" . "$(5!C(B")
    ("d" . "$(5!D(B")
    ("dh" . "$(5!E(B")
    ("n" . "$(5!F(B")
    ("N." . "$(5!G(B")
    ; LABIALS
    ("p" . "$(5!H(B")
    ("ph" . "$(5!I(B")
    ("ph." . "$(5!I!i(B")
    ("f" . "$(5!I(B")
    ("f." . "$(5!I!i(B")
    ("b" . "$(5!J(B")
    ("bh" . "$(5!K(B")
    ("m" . "$(5!L(B")
    ; SEMIVOWELS
    ("y" . "$(5!M(B")
    ("y." . "$(5!N(B")
    ("Y" . "$(5!N(B")
    ("r" . "$(5!O(B")
    ("r." . "$(5!P(B")
    ("l" . "$(5!Q(B")
    ("W" . "$(5!R(B")
    ("W." . "$(5!S(B")
    ("v" . "$(5!T(B")
    ("w" . "$(5!T(B")
    ; SIBILANTS
    ("sh" . "$(5!U(B")
    ("S" . "$(5!V(B")
    ("s" . "$(5!W(B")
    ("h" . "$(5!X(B")
    ; Special for Hindi
    ("ks" . "$(5$.(B")
    ("tr" . "$(5"%(B")
    ("xn" . "$(5$E(B")
  ))

(defvar devanagari-hindi-vowel-transliteration-alist
  '(
    ; In hindi, halant sign is rarely used so should explicity typed in.
    ("" . "")
    ("~" . "$(5!h(B")
    ; Matra (Vowel Sign)
    ("a" . "$(5!Z(B")
    ("i" . "$(5![(B")
    ("I" . "$(5!\(B")
    ("u" . "$(5!](B")
    ("U" . "$(5!^(B")
    ("R" . "$(5!_(B")
    ;; ("RR" . "x")	; not specified in ordinary IS 13194.(but in Unicode??)
    ("q" . "$(5#K(B")  ; "$(5#K(B" = "$(5!_!i(B" in IS 13194.
    ("L" . "$(5#L(B")  ; "$(5#L(B" = "$(5![!i(B" in IS 13194.
    ("E" . "$(5#M(B")  ; "$(5#M(B" = "$(5!\!i(B" in IS 13194.
    ("E" . "$(5!`(B")  ; only for transcription of other scripts.
    ("e" . "$(5!a(B")
    ("ai" . "$(5!b(B")
    ("ae" . "$(5!b(B") ; variation of transliteration.
    ("EE" . "$(5!c(B") ; only for transcription of other scripts. (Candra E)
    ("O" . "$(5!d(B")  ; only for transcription of other scripts.
    ("o" . "$(5!e(B")
    ("au" . "$(5!f(B")
    ("ao" . "$(5!f(B") ; variation of transliteration.
    ("OO" . "$(5!g(B") ; only for transcription of other scripts. (Candra O)
    ))

;;
;; Independent vowels and other signs.
;;

(defvar devanagari-hindi-other-letters-alist
  '(
    ("a" . "$(5!$(B")
    ("A" . "$(5!%(B")
    ("i" . "$(5!&(B")
    ("I" . "$(5!'(B")
    ("u" . "$(5!((B")
    ("U" . "$(5!)(B")
    ("R" . "$(5!*(B")
    ;; ("RR" . "x")	; not specified in IS 13194. (but in Unicode??)
    ("q" . "$(5#*(B")  ; "$(5#*(B" = "$(5!*!i(B" in IS 13194.
    ("L" . "$(5#&(B")  ; "$(5#&(B" = "$(5!&!i(B" in IS 13194.
    ("E" . "$(5#'(B")  ; "$(5#'(B" = "$(5!'!i(B" in IS 13194.
    ("Ex" . "$(5!+(B") ; only for transcription of other scripts.
    ("e" . "$(5!,(B")
    ("ai" . "$(5!-(B")
    ("EE" . "$(5!.(B") ; only for transcription of other scripts. (Candra E)
    ("O" . "$(5!/(B")  ; only for transcription of other scripts.
    ("o" . "$(5!0(B")
    ("au" . "$(5!1(B")
    ("ao" . "$(5!1(B") ; variation of transliteration.
    ("OO" . "$(5!2(B") ; only for transcription of other scripts. (Candra O)
    ("'" . "$(5#J(B") ; avagraha
    ("@" . "$(5#!(B") ; OM
    ("/" . "$(5!j(B")
    ("M" . "$(5!"(B")
    ("&" . "$(5!!(B")
    ("H" . "$(5!#(B")
    ("." . "$(5!i(B")        ; Nukta
    ("0" . "$(5!q(B")
    ("1" . "$(5!r(B")
    ("2" . "$(5!s(B")
    ("3" . "$(5!t(B")
    ("4" . "$(5!u(B")
    ("5" . "$(5!v(B")
    ("6" . "$(5!w(B")
    ("7" . "$(5!x(B")
    ("8" . "$(5!y(B")
    ("9" . "$(5!z(B")
    ))
)

(defmacro devanagari-hindi-transliteration-quail-define-rules ()
  (cons 'quail-define-rules
	(let ((cl devanagari-hindi-consonant-transliteration-alist)
	      (ml devanagari-hindi-other-letters-alist) rules)
	  (while cl
	    (let ((vl devanagari-hindi-vowel-transliteration-alist))
	      (while vl
		(setq rules 
		      (cons (list (concat (car (car cl)) (car (car vl)))
				  (make-vector 1
				   (concat (cdr (car cl)) (cdr (car vl)))))
			    rules))
		(setq vl (cdr vl))))
	    (setq cl (cdr cl)))
	  (while ml
	    (setq rules (cons (list (car (car ml)) 
				    (make-vector 1 (cdr (car ml))))
			      rules))
	    (setq ml (cdr ml)))
	  rules)))

(quail-define-package
 "devanagari-hindi-transliteration" "Hindi" "HINt" t
 "Devanagari-Hindi input method by transliteration
VOWELS     :   a  $(5!$(B   A  $(5!%(B   i  $(5!&(B   I  $(5!'(B   u  $(5!((B   U  $(5!)(B
               R  $(5!*(B   q  $(5#*(B   L  $(5#&(B   E  $(5#'(B   Ex $(5!+(B   e  $(5!,(B
               ai $(5!-(B   EE $(5!.(B   O  $(5!/(B   o  $(5!0(B   au $(5!1(B   OO $(5!2(B
GRUTTALS   :   k  $(5!3(B   kh $(5!4(B   g  $(5!5(B   gh $(5!6(B   G  $(5!7(B
PALATALS   :   c  $(5!8(B   ch $(5!9(B   j  $(5!:(B   jh $(5!;(B   J  $(5!<(B   z  $(5!:!i(B
CEREBRALS  :   T  $(5!=(B   Th $(5!>(B   D  $(5!?(B   Dh $(5!@(B   N  $(5!A(B
DENTALS    :   t  $(5!B(B   th $(5!C(B   d  $(5!D(B   dh $(5!E(B   n  $(5!F(B   (Nq $(5!G(B)
LABIALS    :   p  $(5!H(B   ph $(5!I(B   b  $(5!J(B   bh $(5!K(B   m  $(5!L(B   (f  $(5!I(B)
SEMIVOWELS :   y  $(5!M(B   Y  $(5!N(B   r  $(5!O(B   Rq $(5!P(B   
               l  $(5!Q(B   W  $(5!R(B   W. $(5!S(B   v  $(5!T(B   w  $(5!T(B
SIBILANTS  :   sh $(5!U(B   S  $(5!V(B   s  $(5!W(B   h  $(5!X(B
OTHERS     :   ks $(5$.(B   tr $(5"%(B   xn $(5$E(B

Specials   :   Anuswar       M  $(5!"(B     Visarg        H  $(5!#(B
               Chandrabindu  &  $(5!!(B     Nukta         .  $(5!i(B
               Danda         /   $(5!j(B    Avagrah       '  $(5#J(B
               OM            @   $(5#!(B    Halant        ~  $(5!h(B
" 
		      nil t t nil nil nil nil nil 
		      ;; 'quail-devanagari-update-translation
		      nil
		      '((" "      . quail-devanagari-hindi-compose-characters)
			("-"      . quail-devanagari-hindi-compose-characters)
			(","      . quail-devanagari-hindi-compose-characters)
			("\C-m"   . quail-devanagari-hindi-compose-characters)
			([return] . quail-devanagari-hindi-compose-characters))
		      )

(devanagari-hindi-transliteration-quail-define-rules)