[Emacs-diffs] Changes to emacs/leim/quail/lao.el [lexbind]

[Miles Bader]

Index: emacs/leim/quail/lao.el
diff -c /dev/null emacs/leim/quail/lao.el:1.7.4.1
*** /dev/null   Tue Oct 14 19:02:39 2003
--- emacs/leim/quail/lao.el     Tue Oct 14 19:02:13 2003
***************
*** 0 ****
--- 1,201 ----
+ ;;; lao.el --- Quail package for inputting Lao characters  -*-coding: 
iso-2022-7bit;-*-
+ 
+ ;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN.
+ ;; Licensed to the Free Software Foundation.
+ 
+ ;; Keywords: multilingual, input method, Lao
+ 
+ ;; 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:
+ 
+ ;;; Code:
+ 
+ (require 'quail)
+ (require 'lao-util)
+ 
+ (defun quail-lao-update-translation (control-flag)
+   (if (integerp control-flag)
+       ;; Non-composable character typed.
+       (setq quail-current-str
+           (buffer-substring (overlay-start quail-overlay)
+                             (overlay-end quail-overlay))
+           unread-command-events
+           (string-to-list
+            (substring quail-current-key control-flag)))
+     (setq quail-current-str
+         (compose-string (quail-lookup-map-and-concat quail-current-key))))
+   control-flag)
+ 
+ (defconst lao-key-alist
+   '(("!" . "1")
+     ("\"" . "=")
+     ("#" . "3")
+     ("$" . "4")
+     ("&" . "5")
+     ("%" . "(1l(B")
+     ("'" . "(1'(B")
+     ("(" . "7")
+     (")" . "8")
+     ("*" . "6")
+     ("+" . ["(1mh(B"])
+     ("," . "(1A(B")
+     ("-" . "(1*(B")
+     ("." . "(1c(B")
+     ("/" . "(1=(B")
+     ("0" . "(1"(B")
+     ("1" . "(1B(B")
+     ("2" . "(1?(B")
+     ("3" . "(1b(B")
+     ("4" . "(16(B")
+     ("5" . "(1X(B")
+     ("6" . "(1Y(B")
+     ("7" . "(1$(B")
+     ("8" . "(15(B")
+     ("9" . "(1((B")
+     (":" . "%")
+     (";" . "(1G(B")
+     ("<" . "(1}(B")
+     ("=" . "(1m(B")
+     (">" . "$")
+     ("?" . ")")
+     ("@" . "2")
+     ("A" . ["(1Qi(B"])
+     ("B" . ["(1Vi(B"])
+     ("C" . "(1O(B")
+     ("D" . ".")
+     ("E" . ["(1Si(B"])
+     ("F" . ",")
+     ("G" . ":")
+     ("H" . "(1j(B")
+     ("I" . "(1N(B")
+     ("J" . "(1k(B")
+     ("K" . "!")
+     ("L" . "?")
+     ("M" . "(1f(B")
+     ("N" . ["(1Wi(B"])
+     ("O" . "(1|(B")
+     ("P" . "(1](B")
+     ("Q" . ["(1[i(B"])
+     ("R" . "_")
+     ("S" . ";")
+     ("T" . "+")
+     ("U" . ["(1Ui(B"])
+     ("V" . "x")
+     ("W" . "0")
+     ("X" . "(")
+     ("Y" . ["(1Ti(B"])
+     ("Z" . "\"")
+     ("[" . "(1:(B")
+     ("]" . "(1E(B")
+     ("^" . "(1\(B")
+     ("_" . "9")
+     ("`" . "(1'(B")
+     ("a" . "(1Q(B")
+     ("b" . "(1V(B")
+     ("c" . "(1a(B")
+     ("d" . "(1!(B")
+     ("e" . "(1S(B")
+     ("f" . "(14(B")
+     ("g" . "(1`(B")
+     ("h" . "(1i(B")
+     ("i" . "(1C(B")
+     ("j" . "(1h(B")
+     ("k" . "(1R(B")
+     ("l" . "(1J(B")
+     ("m" . "(17(B")
+     ("n" . "(1W(B")
+     ("o" . "(19(B")
+     ("p" . "(1-(B")
+     ("q" . "(1[(B")
+     ("r" . "(1>(B")
+     ("s" . "(1K(B")
+     ("t" . "(1P(B")
+     ("u" . "(1U(B")
+     ("v" . "(1M(B")
+     ("w" . "(1d(B")
+     ("x" . "(1;(B")
+     ("y" . "(1T(B")
+     ("z" . "(1<(B")
+     ("{" . "-")
+     ("|" . ["(1K\(B"])
+     ("}" . "/")
+     ("~" . "(1l(B")
+     ("\\0" . "(1p(B")
+     ("\\1" . "(1q(B")
+     ("\\2" . "(1r(B")
+     ("\\3" . "(1s(B")
+     ("\\4" . "(1t(B")
+     ("\\5" . "(1u(B")
+     ("\\6" . "(1v(B")
+     ("\\7" . "(1w(B")
+     ("\\8" . "(1x(B")
+     ("\\9" . "(1y(B")
+     ))
+ 
+ (defconst lao-consonant-key-alist nil)
+ (defconst lao-semivowel-key-alist nil)
+ (defconst lao-vowel-key-alist nil)
+ (defconst lao-voweltone-key-alist nil)
+ (defconst lao-tone-key-alist nil)
+ (defconst lao-other-key-alist nil)
+ 
+ (let ((tail lao-key-alist)
+       elt phonetic-type)
+   (while tail
+     (setq elt (car tail) tail (cdr tail))
+     (if (stringp (cdr elt))
+       (setq phonetic-type (get-char-code-property (aref (cdr elt) 0)
+                                                   'phonetic-type))
+       (setq phonetic-type (get-char-code-property (aref (aref (cdr elt) 0) 0)
+                                                 'phonetic-type))
+       (aset (cdr elt) 0 (compose-string (aref (cdr elt) 0))))
+     (cond ((eq phonetic-type 'consonant)
+          (setq lao-consonant-key-alist (cons elt lao-consonant-key-alist)))
+         ((memq phonetic-type '(vowel-upper vowel-lower))
+          (if (stringp (cdr elt))
+              (setq lao-vowel-key-alist (cons elt lao-vowel-key-alist))
+            (setq lao-voweltone-key-alist
+                  (cons elt lao-voweltone-key-alist))))
+         ((eq  phonetic-type 'tone)
+          (setq lao-tone-key-alist (cons elt lao-tone-key-alist)))
+         ((eq phonetic-type 'semivowel-lower)
+          (setq lao-semivowel-key-alist (cons elt lao-semivowel-key-alist)))
+         (t
+          (setq lao-other-key-alist (cons elt lao-other-key-alist))))))
+ 
+ (quail-define-package
+  "lao" "Lao" "(1E(B" t
+  "Lao input method simulating Lao keyboard layout based on Thai TIS620"
+  nil t t t t nil nil nil 'quail-lao-update-translation nil t)
+ 
+ (quail-install-map
+  (quail-map-from-table
+   '((base-state (lao-consonant-key-alist . svt-state)
+               lao-vowel-key-alist
+               lao-voweltone-key-alist
+               lao-tone-key-alist
+               lao-other-key-alist)
+     (svt-state (lao-semivowel-key-alist . v-state)
+             (lao-vowel-key-alist . t-state)
+             lao-voweltone-key-alist)
+     (v-state (lao-vowel-key-alist . t-state))
+     (t-state lao-tone-key-alist))))
+ 
+ ;;; arch-tag: 23863a30-a8bf-402c-b7ce-c517a7aa8570
+ ;;; lao.el ends here