annotate leim/quail/viqr.el @ 39051:b5c421a7a5c2

New file.
author Eli Zaretskii <eliz@gnu.org>
date Fri, 31 Aug 2001 10:15:47 +0000
parents 519983161a46
children 890f548046c1
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
38453
519983161a46 Some fixes to follow lisp coding conventions and typo fixes.
Pavel Janík <Pavel@Janik.cz>
parents: 19939
diff changeset
1 ;;; viqr.el --- Quail packages for inputting Vietnamese with VIQR system
18673
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3 ;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN.
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4 ;; Licensed to the Free Software Foundation.
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
6 ;; Keywords: multilingual, input method, latin
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
7
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
8 ;; This file is part of GNU Emacs.
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
9
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
10 ;; GNU Emacs is free software; you can redistribute it and/or modify
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
11 ;; it under the terms of the GNU General Public License as published by
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
12 ;; the Free Software Foundation; either version 2, or (at your option)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
13 ;; any later version.
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
14
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
15 ;; GNU Emacs is distributed in the hope that it will be useful,
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
18 ;; GNU General Public License for more details.
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
19
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
20 ;; You should have received a copy of the GNU General Public License
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
21 ;; along with GNU Emacs; see the file COPYING. If not, write to the
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
23 ;; Boston, MA 02111-1307, USA.
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
24
38453
519983161a46 Some fixes to follow lisp coding conventions and typo fixes.
Pavel Janík <Pavel@Janik.cz>
parents: 19939
diff changeset
25 ;;; Commentary:
519983161a46 Some fixes to follow lisp coding conventions and typo fixes.
Pavel Janík <Pavel@Janik.cz>
parents: 19939
diff changeset
26
18673
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
27 ;;; Code:
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
28
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
29 (require 'quail)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
30 (require 'viet-util)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
31
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
32 ;; `viet-viqr-alist' is an alist of Vietnamese characters vs
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
33 ;; corresponding VIQR strings. We create Quail map which maps VIQR
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
34 ;; strings to corresponding Vietnamese characters.
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
35
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
36 (defmacro viet-quail-define-rules ()
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
37 (cons 'quail-define-rules
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
38 (let ((l viet-viqr-alist)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
39 rules)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
40 (while l
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
41 (setq rules (cons (list (cdr (car l)) (car (car l))) rules))
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
42 (setq l (cdr l)))
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
43 rules)))
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
44
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
45 (quail-define-package
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
46 "vietnamese-viqr" "Vietnamese" "VQ" t
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
47 "Vietnamese input method with VIQR mnemonic system
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
48
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
49 effect | postfix | examples
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
50 ------------+---------+----------
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
51 breve | ( | a( -> ,1e(B
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
52 circumflex | ^ | a^ -> ,1b(B
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
53 horn | + | o+ -> ,1=(B
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
54 ------------+---------+----------
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
55 acute | ' | a' -> ,1a(B
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
56 grave | ` | a` -> ,1`(B
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
57 hook above | ? | a? -> ,1d(B
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
58 tilde | ~ | a~ -> ,1c(B
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
59 dot below | . | a. -> ,1U(B
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
60 ------------+---------+----------
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
61 d bar | dd | dd -> ,1p(B
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
62 ------------+---------+----------
19939
bd8f326c0aad (vietnamese-viqr): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 19722
diff changeset
63 no compose | \\ | a\\. -> a.
18673
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
64 ------------+---------+----------
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
65 combination| (~ | a(~ -> ,1G(B
19722
dd39cae4cf0f For each package, pass t for the SIMPLE
Kenichi Handa <handa@m17n.org>
parents: 18673
diff changeset
66 " nil t t nil nil t nil nil nil nil t)
18673
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
67
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
68
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
69 (viet-quail-define-rules)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
70
38453
519983161a46 Some fixes to follow lisp coding conventions and typo fixes.
Pavel Janík <Pavel@Janik.cz>
parents: 19939
diff changeset
71 ;;; viqr.el ends here