code.delx.au - gnu-emacs/blob - leim/quail/viqr.el

   1 ;;; viqr.el --- Quail packages for inputting Vietnamese with VIQR system  -*-coding: iso-2022-7bit;-*-
   2
   3 ;; Copyright (C) 1997
   4 ;;   National Institute of Advanced Industrial Science and Technology (AIST)
   5 ;;   Registration Number H14PRO021
   6
   7 ;; Keywords: multilingual, input method, latin
   8
   9 ;; This file is part of GNU Emacs.
  10
  11 ;; GNU Emacs is free software; you can redistribute it and/or modify
  12 ;; it under the terms of the GNU General Public License as published by
  13 ;; the Free Software Foundation; either version 2, or (at your option)
  14 ;; any later version.
  15
  16 ;; GNU Emacs is distributed in the hope that it will be useful,
  17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  19 ;; GNU General Public License for more details.
  20
  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 the
  23 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
  24 ;; Boston, MA 02110-1301, USA.
  25
  26 ;;; Commentary:
  27
  28 ;;; Code:
  29
  30 (require 'quail)
  31 (require 'viet-util)
  32
  33 ;; `viet-viqr-alist' is an alist of Vietnamese characters vs
  34 ;; corresponding VIQR strings.  We create Quail map which maps VIQR
  35 ;; strings to corresponding Vietnamese characters.
  36
  37 (defmacro viet-quail-define-rules ()
  38   (cons 'quail-define-rules
  39         (let ((l viet-viqr-alist)
  40               rules)
  41           (while l
  42             (setq rules (cons (list (cdr (car l)) (car (car l))) rules))
  43             (setq l (cdr l)))
  44           rules)))
  45
  46 (quail-define-package
  47  "vietnamese-viqr" "Vietnamese" "VQ" t
  48  "Vietnamese input method with VIQR mnemonic system
  49
  50     effect   | postfix | examples
  51  ------------+---------+----------
  52     breve    |    (    | a( -> \e,1e\e(B
  53   circumflex |    ^    | a^ -> \e,1b\e(B
  54     horn     |    +    | o+ -> \e,1=\e(B
  55  ------------+---------+----------
  56     acute    |    '    | a' -> \e,1a\e(B
  57     grave    |    `    | a` -> \e,1`\e(B
  58   hook above |    ?    | a? -> \e,1d\e(B
  59     tilde    |    ~    | a~ -> \e,1c\e(B
  60    dot below |    .    | a. -> \e,1U\e(B
  61  ------------+---------+----------
  62     d bar    |   dd    | dd -> \e,1p\e(B
  63  ------------+---------+----------
  64   no compose |    \\    | a\\. -> a.
  65  ------------+---------+----------
  66   combination|   (~    | a(~ -> \e,1G\e(B
  67 " nil t t nil nil t nil nil nil nil t)
  68
  69
  70 (viet-quail-define-rules)
  71
  72 ;;; arch-tag: d2c29221-5a2e-46b2-898b-0e56bc4eb858
  73 ;;; viqr.el ends here