Mercurial > hg > xemacs-beta

comparison lisp/leim/quail/devanagari.el @ 197:acd284d43ca1 r20-3b25

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b25
author cvs
date Mon, 13 Aug 2007 10:00:02 +0200
parents 43dd3413c7c7
children
comparison
equal deleted inserted replaced
196:58e0786448ca 197:acd284d43ca1
1 ;; quail/devanagari.el -- Quail packages for inputting Devanagari 1 ;; quail/devanagari.el -- Quail packages for inputting Devanagari
2 2
3 ;; Copyright (C) 1996 Free Software Foundation, Inc. 3 ;; Copyright (C) 1997 Free Software Foundation, Inc.
4 4
5 ;; Author: KAWABATA, Taichi <kawabata@is.s.u-tokyo.ac.jp> 5 ;; Author: KAWABATA, Taichi <kawabata@is.s.u-tokyo.ac.jp>
6 6
7 ;; Keywords: multilingual, input method, Indian, Devanagari 7 ;; Keywords: multilingual, input method, Indian, Devanagari
8 8
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of 17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
19 ;; GNU General Public License for more details. 19 ;; GNU General Public License for more details.
20 20
21 ;; You should have received a copy of the GNU General Public License 21 ;; You should have received a copy of the GNU General Public License
22 ;; along with GNU Emacs; see the file COPYING. If not, write to 22 ;; along with GNU Emacs; see the file COPYING. If not, write to the
23 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. 23 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
24 ;; Boston, MA 02111-1307, USA.
24 25
25 ;;; Commentary: 26 ;;; Commentary:
26 27
27 ;; History: 28 ;; History:
28 ;; 1996.10.10 written by KAWABATA, Taichi <kawabata@is.s.u-tokyo.ac.jp> 29 ;; 1996.10.10 written by KAWABATA, Taichi <kawabata@is.s.u-tokyo.ac.jp>
32 ;; Please let me know if it is not. 33 ;; Please let me know if it is not.
33 34
34 ;;; Code: 35 ;;; Code:
35 36
36 (require 'quail) 37 (require 'quail)
37 (require 'language/devan-util) 38 (require 'devan-util)
38 39
39 ;; This function does nothing for now. For future use. 40 ;; This function does nothing for now. For future use.
40 (defun quail-devanagari-update-translation (control-flag) 41 (defun quail-devanagari-update-translation (control-flag)
41 (cond ((eq control-flag t) ; terminate translation with the whole key. 42 (cond ((eq control-flag t) ; terminate translation with the whole key.
42 (insert quail-current-str) 43 (insert quail-current-str)
60 (narrow-to-region from to) 61 (narrow-to-region from to)
61 (goto-char (point-min)) 62 (goto-char (point-min))
62 (delete-region (point-min) (point-max)) 63 (delete-region (point-min) (point-max))
63 (insert (devanagari-compose-string dstr 'sanskrit)) 64 (insert (devanagari-compose-string dstr 'sanskrit))
64 (goto-char (point-max))) 65 (goto-char (point-max)))
65 (move-overlay quail-conv-overlay from (point)) 66 (setq overriding-terminal-local-map nil)))
66 (setq unread-command-events (list last-command-event)) 67 (setq unread-command-events (list last-command-event)))
67 (throw 'exit nil)) 68
68 (setq unread-command-events (list last-command-event)) 69 (quail-define-package
69 (throw 'exit nil))) 70 "devanagari-keyboard-a" "Devanagari" "DevK" t
70 71 "Devanagari input method with ISCII format
71 (quail-define-package "quail-devanagari-keyboard-a" "Devanagari" "DevK" t 72
72 "ISCII Format of Inputting Devanagari.
73 `$(5!\(B !$(5!.(B @$(5!c(B #x $x %x ^x &$(5")(B *$(5"((B ( ) _$(5!#(B +$(5!*(B 73 `$(5!\(B !$(5!.(B @$(5!c(B #x $x %x ^x &$(5")(B *$(5"((B ( ) _$(5!#(B +$(5!*(B
74 ~$(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 74 ~$(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
75 75
76 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 76 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
77 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 77 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
354 (make-vector 1 (cdr (car ml)))) 354 (make-vector 1 (cdr (car ml))))
355 rules)) 355 rules))
356 (setq ml (cdr ml))) 356 (setq ml (cdr ml)))
357 rules))) 357 rules)))
358 358
359 (quail-define-package "quail-devanagari-transliteration" "Devanagari" "DEVt" t 359 (quail-define-package
360 "Devanagari inputting method by transliteration 360 "devanagari-transliteration" "Devanagari" "DEVt" t
361 "Devanagari input method by transliteration
361 VOWELS : a $(5!$(B A $(5!%(B i $(5!&(B I $(5!'(B u $(5!((B U $(5!)(B 362 VOWELS : a $(5!$(B A $(5!%(B i $(5!&(B I $(5!'(B u $(5!((B U $(5!)(B
362 R $(5!*(B q $(5#*(B L $(5#&(B E $(5#'(B Ex $(5!+(B e $(5!,(B 363 R $(5!*(B q $(5#*(B L $(5#&(B E $(5#'(B Ex $(5!+(B e $(5!,(B
363 ai $(5!-(B EE $(5!.(B O $(5!/(B o $(5!0(B au $(5!1(B OO $(5!2(B 364 ai $(5!-(B EE $(5!.(B O $(5!/(B o $(5!0(B au $(5!1(B OO $(5!2(B
364 GRUTTALS : k $(5!3(B kh $(5!4(B g $(5!5(B gh $(5!6(B G $(5!7(B 365 GRUTTALS : k $(5!3(B kh $(5!4(B g $(5!5(B gh $(5!6(B G $(5!7(B
365 PALATALS : c $(5!8(B ch $(5!9(B j $(5!:(B jh $(5!;(B J $(5!<(B (Z $(5!:!i(B) 366 PALATALS : c $(5!8(B ch $(5!9(B j $(5!:(B jh $(5!;(B J $(5!<(B (Z $(5!:!i(B)
432 (make-vector 1 (cdr (car ml)))) 433 (make-vector 1 (cdr (car ml))))
433 rules)) 434 rules))
434 (setq ml (cdr ml))) 435 (setq ml (cdr ml)))
435 rules))) 436 rules)))
436 437
437 (quail-define-package "quail-devanagari-itrans" "Devanagari" "DEVi" t 438 (quail-define-package
438 "Devanagari inputting method by ITRANS 439 "devanagari-itrans" "Devanagari" "DEVi" t
440 "Devanagari input method by ITRANS
439 Special Keys : Anuswar n' 441 Special Keys : Anuswar n'
440 Chandrabindu nn' 442 Chandrabindu nn'
441 Visarg nh 443 Visarg nh
442 Nukta type capital letter for first character. 444 Nukta type capital letter for first character.
443 $(5!7(B(ng) $(5!<(B(ny) $(5!A(B(nn) $(5!F(B(n) $(5!G(B(nnn) 445 $(5!7(B(ng) $(5!<(B(ny) $(5!A(B(nn) $(5!F(B(n) $(5!G(B(nnn)
471 (narrow-to-region from to) 473 (narrow-to-region from to)
472 (goto-char (point-min)) 474 (goto-char (point-min))
473 (delete-region (point-min) (point-max)) 475 (delete-region (point-min) (point-max))
474 (insert (devanagari-compose-string dstr)) 476 (insert (devanagari-compose-string dstr))
475 (goto-char (point-max))) 477 (goto-char (point-max)))
476 (move-overlay quail-conv-overlay from (point)) 478 (setq overriding-terminal-local-map nil)))
477 (setq unread-command-events (list last-command-event)) 479 (setq unread-command-events (list last-command-event)))
478 (throw 'exit nil))
479 (setq unread-command-events (list last-command-event))
480 (throw 'exit nil)))
481 480
482 (eval-when-compile 481 (eval-when-compile
483 482
484 (defvar devanagari-hindi-consonant-transliteration-alist 483 (defvar devanagari-hindi-consonant-transliteration-alist
485 '( 484 '(
640 (make-vector 1 (cdr (car ml)))) 639 (make-vector 1 (cdr (car ml))))
641 rules)) 640 rules))
642 (setq ml (cdr ml))) 641 (setq ml (cdr ml)))
643 rules))) 642 rules)))
644 643
645 (quail-define-package "quail-devanagari-hindi-transliteration" "Hindi" "HINt" t 644 (quail-define-package
646 "Devanagari-Hindi inputting method by transliteration 645 "devanagari-hindi-transliteration" "Hindi" "HINt" t
646 "Devanagari-Hindi input method by transliteration
647 VOWELS : a $(5!$(B A $(5!%(B i $(5!&(B I $(5!'(B u $(5!((B U $(5!)(B 647 VOWELS : a $(5!$(B A $(5!%(B i $(5!&(B I $(5!'(B u $(5!((B U $(5!)(B
648 R $(5!*(B q $(5#*(B L $(5#&(B E $(5#'(B Ex $(5!+(B e $(5!,(B 648 R $(5!*(B q $(5#*(B L $(5#&(B E $(5#'(B Ex $(5!+(B e $(5!,(B
649 ai $(5!-(B EE $(5!.(B O $(5!/(B o $(5!0(B au $(5!1(B OO $(5!2(B 649 ai $(5!-(B EE $(5!.(B O $(5!/(B o $(5!0(B au $(5!1(B OO $(5!2(B
650 GRUTTALS : k $(5!3(B kh $(5!4(B g $(5!5(B gh $(5!6(B G $(5!7(B 650 GRUTTALS : k $(5!3(B kh $(5!4(B g $(5!5(B gh $(5!6(B G $(5!7(B
651 PALATALS : c $(5!8(B ch $(5!9(B j $(5!:(B jh $(5!;(B J $(5!<(B z $(5!:!i(B 651 PALATALS : c $(5!8(B ch $(5!9(B j $(5!:(B jh $(5!;(B J $(5!<(B z $(5!:!i(B