Mercurial > emacs
diff leim/quail/devanagari.el @ 18673:751941736224
Initial revision
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Tue, 08 Jul 1997 01:48:20 +0000 |
| parents | |
| children | 81fe2432f1a6 |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/leim/quail/devanagari.el Tue Jul 08 01:48:20 1997 +0000 @@ -0,0 +1,681 @@ +;; 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))) + (move-overlay quail-conv-overlay from (point)) + (setq unread-command-events (list last-command-event)) + (throw 'exit nil)) + (setq unread-command-events (list last-command-event)) + (throw 'exit nil))) + +(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 + ("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))) + (move-overlay quail-conv-overlay from (point)) + (setq unread-command-events (list last-command-event)) + (throw 'exit nil)) + (setq unread-command-events (list last-command-event)) + (throw 'exit nil))) + +(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)