view leim/quail/lao.el @ 22508:c9307c229265

(time-stamp): Handle newlines in time-stamp-pattern. (time-stamp-string-preprocess): Handle more than one numeric arg.

+
鐃緒申��申鐃緒申;;; quail/lao.el --- Quail package for inputting Lao characters
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申;; 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.
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申;;; Code:
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申(require 'quail)
+
鐃緒申��申鐃緒申(require 'lao-util)
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申(eval-and-compile
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申(defconst lao-keyboard-mapping
+
鐃緒申��申鐃緒申  [0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0	; control codes
+
鐃緒申��申鐃緒申   0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0	; control codes
+
鐃緒申��申鐃緒申   0 "1" "=" "3" "4" "(1l(B" "5" "(1'(B"          ; SPC .. '
+
鐃緒申��申鐃緒申   "7" "8" "6" "(1mh(B" "(1A(B" "(1*(B" "(1c(B" "(1=(B"	; ( .. /
+
鐃緒申��申鐃緒申   "(1"(B" "(1B(B" "(1?(B" "(1b(B" "(16(B" "(1X(B" "(1Y(B" "(1$(B"	; 0 .. 7
+
鐃緒申��申鐃緒申   "(15(B" "(1((B" "%" "(1G(B" "(1}(B" "(1m(B" "$" "\)"	; 8 .. ?
+
鐃緒申��申鐃緒申   "2" "(1Qi(B" "(1Vi(B" "(1O(B" "." "(1Si(B" "," ":"	; @ .. G
+
鐃緒申��申鐃緒申   "(1j(B" "(1N(B" "(1k(B" "!" "?" "(1f(B" "(1Wi(B" "(1|(B" 	; H .. O
+
鐃緒申��申鐃緒申   "(1](B" "(1[i(B" "_" ";" "+" "(1Ui(B" "x" "0"	; P .. W
+
鐃緒申��申鐃緒申   "\(" "(1Ti(B" "\"" "(1:(B" 0 "(1E(B" "(1\(B" "9"     ; X .. _
+
鐃緒申��申鐃緒申   "(1'(B" "(1Q(B" "(1V(B" "(1a(B" "(1!(B" "(1S(B" "(14(B" "(1`(B"	; ` .. g
+
鐃緒申��申鐃緒申   "(1i(B" "(1C(B" "(1h(B" "(1R(B" "(1J(B" "(17(B" "(1W(B" "(19(B"	; h .. o
+
鐃緒申��申鐃緒申   "(1-(B" "(1[(B" "(1>(B" "(1K(B" "(1P(B" "(1U(B" "(1M(B" "(1d(B"	; p .. w
+
鐃緒申��申鐃緒申   "(1;(B" "(1T(B" "(1<(B" "-" "(1K\(B" "/" "~" 0]    	; x .. DEL
+
鐃緒申��申鐃緒申  "A table which maps ASCII key codes to corresponding Lao characters."
+
鐃緒申��申鐃緒申  )
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申)
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申;; Template of a cdr part of a Quail map when a consonant is entered.
+
鐃緒申��申鐃緒申(defvar lao-consonant-alist nil)
+
鐃緒申��申鐃緒申;; Template of a cdr part of a Quail map when a vowel upper is entered.
+
鐃緒申��申鐃緒申(defvar lao-vowel-upper-alist nil)
+
鐃緒申��申鐃緒申;; Template of a cdr part of a Quail map when a vowel lower is entered.
+
鐃緒申��申鐃緒申(defvar lao-vowel-lower-alist nil)
+
鐃緒申��申鐃緒申;; Template of a cdr part of a Quail map when a semivowel lower is entered.
+
鐃緒申��申鐃緒申(defvar lao-semivowel-lower-alist nil)
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申;; Return a Quail map corresponding to KEY of length LEN.
+
鐃緒申��申鐃緒申;; The car part of the map is a translation generated automatically.
+
鐃緒申��申鐃緒申;; The cdr part of the map is a copy of ALIST.
+
鐃緒申��申鐃緒申(defun lao-generate-quail-map (key len alist)
+
鐃緒申��申鐃緒申  (let ((str "")
+
鐃緒申��申鐃緒申	(idx 0))
+
鐃緒申��申鐃緒申    (while (< idx len)
+
鐃緒申��申鐃緒申      (setq str (concat str (aref lao-keyboard-mapping (aref key idx)))
+
鐃緒申��申鐃緒申	    idx (1+ idx)))
+
鐃緒申��申鐃緒申    (cons (string-to-char (compose-string str)) (copy-alist alist))))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申;; Return a Quail map corresponding to KEY of length LEN when Lao
+
鐃緒申��申鐃緒申;; tone mark is entered.
+
鐃緒申��申鐃緒申(defun lao-tone-input (key len)
+
鐃緒申��申鐃緒申  (lao-generate-quail-map key len nil))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申;; Return a Quail map corresponding to KEY of length LEN when Lao
+
鐃緒申��申鐃緒申;; vowel upper is entered.
+
鐃緒申��申鐃緒申(defun lao-vowel-upper-input (key len)
+
鐃緒申��申鐃緒申  (lao-generate-quail-map key len lao-vowel-upper-alist))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申;; Return a Quail map corresponding to KEY of length LEN when Lao
+
鐃緒申��申鐃緒申;; vowel lower is entered.
+
鐃緒申��申鐃緒申(defun lao-vowel-lower-input (key len)
+
鐃緒申��申鐃緒申  (lao-generate-quail-map key len lao-vowel-lower-alist))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申;; Return a Quail map corresponding to KEY of length LEN when Lao
+
鐃緒申��申鐃緒申;; semivowel lower is entered.
+
鐃緒申��申鐃緒申(defun lao-semivowel-lower-input (key len)
+
鐃緒申��申鐃緒申  (lao-generate-quail-map key len lao-semivowel-lower-alist))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申;; Return an alist which can be a cdr part of a Quail map
+
鐃緒申��申鐃緒申;; corresponding to the current key when Lao consonant is entered.
+
鐃緒申��申鐃緒申(defun lao-consonant-input (key len)
+
鐃緒申��申鐃緒申  (copy-alist lao-consonant-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 nil nil t)
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申(defmacro lao-quail-define-rules (&rest rules)
+
鐃緒申��申鐃緒申  (let ((l rules)
+
鐃緒申��申鐃緒申	consonant-alist
+
鐃緒申��申鐃緒申	vowel-upper-alist
+
鐃緒申��申鐃緒申	vowel-lower-alist
+
鐃緒申��申鐃緒申	semivowel-lower-alist
+
鐃緒申��申鐃緒申	rule trans ch c-set)
+
鐃緒申��申鐃緒申    (while l
+
鐃緒申��申鐃緒申      (setq rule (car l))
+
鐃緒申��申鐃緒申      (setq trans (nth 1 rule))
+
鐃緒申��申鐃緒申      (if (consp trans)
+
鐃緒申��申鐃緒申	  (setq trans (car trans)))
+
鐃緒申��申鐃緒申      (setq c-set (char-category-set (string-to-char trans)))
+
鐃緒申��申鐃緒申      (cond ((aref c-set ?2)		; vowel upper
+
鐃緒申��申鐃緒申	     (setq consonant-alist
+
鐃緒申��申鐃緒申		   (cons (cons (string-to-char (car rule))
+
鐃緒申��申鐃緒申			       'lao-vowel-upper-input)
+
鐃緒申��申鐃緒申			 consonant-alist)))
+
鐃緒申��申鐃緒申	    ((aref c-set ?3)		; vowel lower
+
鐃緒申��申鐃緒申	     (setq consonant-alist
+
鐃緒申��申鐃緒申		   (cons (cons (string-to-char (car rule))
+
鐃緒申��申鐃緒申			       'lao-vowel-lower-input)
+
鐃緒申��申鐃緒申			 consonant-alist)
+
鐃緒申��申鐃緒申		   semivowel-lower-alist
+
鐃緒申��申鐃緒申		   (cons (cons (string-to-char (car rule))
+
鐃緒申��申鐃緒申			       'lao-vowel-lower-input)
+
鐃緒申��申鐃緒申			 semivowel-lower-alist)))
+
鐃緒申��申鐃緒申	    ((aref c-set ?4)		; tone
+
鐃緒申��申鐃緒申	     (setq consonant-alist
+
鐃緒申��申鐃緒申		   (cons (cons (string-to-char (car rule))
+
鐃緒申��申鐃緒申			       'lao-tone-input)
+
鐃緒申��申鐃緒申			 consonant-alist)
+
鐃緒申��申鐃緒申		   vowel-upper-alist
+
鐃緒申��申鐃緒申		   (cons (cons (string-to-char (car rule))
+
鐃緒申��申鐃緒申			       'lao-tone-input)
+
鐃緒申��申鐃緒申			 vowel-upper-alist)
+
鐃緒申��申鐃緒申		   vowel-lower-alist
+
鐃緒申��申鐃緒申		   (cons (cons (string-to-char (car rule))
+
鐃緒申��申鐃緒申			       'lao-tone-input)
+
鐃緒申��申鐃緒申			 vowel-lower-alist)))
+
鐃緒申��申鐃緒申	    ((aref c-set ?9)		; semivowel lower
+
鐃緒申��申鐃緒申	     (setq consonant-alist
+
鐃緒申��申鐃緒申		   (cons (cons (string-to-char (car rule))
+
鐃緒申��申鐃緒申			       'lao-semivowel-lower-input)
+
鐃緒申��申鐃緒申			 consonant-alist)
+
鐃緒申��申鐃緒申		   vowel-upper-alist
+
鐃緒申��申鐃緒申		   (cons (cons (string-to-char (car rule))
+
鐃緒申��申鐃緒申			       'lao-semivowel-lower-input)
+
鐃緒申��申鐃緒申			 vowel-upper-alist))))
+
鐃緒申��申鐃緒申      (setq l (cdr l)))
+
鐃緒申��申鐃緒申    (list 'progn
+
鐃緒申��申鐃緒申	  (cons 'quail-define-rules rules)
+
鐃緒申��申鐃緒申	  `(setq lao-consonant-alist ',consonant-alist
+
鐃緒申��申鐃緒申		 lao-vowel-upper-alist ',vowel-upper-alist
+
鐃緒申��申鐃緒申		 lao-vowel-lower-alist ',vowel-lower-alist
+
鐃緒申��申鐃緒申		 lao-semivowel-lower-alist ',semivowel-lower-alist))))
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申(lao-quail-define-rules
+
鐃緒申��申鐃緒申 ("!" "1")
+
鐃緒申��申鐃緒申 ("\"" "=")
+
鐃緒申��申鐃緒申 ("#" "3")
+
鐃緒申��申鐃緒申 ("$" "4")
+
鐃緒申��申鐃緒申 ("&" "5")
+
鐃緒申��申鐃緒申 ("%" "(1l(B")
+
鐃緒申��申鐃緒申 ("'" ("(1'(B" . lao-consonant-input))
+
鐃緒申��申鐃緒申 ("(" "7")
+
鐃緒申��申鐃緒申 (")" "8")
+
鐃緒申��申鐃緒申 ("*" "6")
+
鐃緒申��申鐃緒申 ("+" "0(1mh1(B")
+
鐃緒申��申鐃緒申 ("," ("(1A(B" . lao-consonant-input))
+
鐃緒申��申鐃緒申 ("-" ("(1*(B" . lao-consonant-input))
+
鐃緒申��申鐃緒申 ("." "(1c(B")
+
鐃緒申��申鐃緒申 ("/" ("(1=(B" . lao-consonant-input))
+
鐃緒申��申鐃緒申 ("0" ("(1"(B" . lao-consonant-input))
+
鐃緒申��申鐃緒申 ("1" ("(1B(B" . lao-consonant-input))
+
鐃緒申��申鐃緒申 ("2" ("(1?(B" . lao-consonant-input))
+
鐃緒申��申鐃緒申 ("3" "(1b(B")
+
鐃緒申��申鐃緒申 ("4" ("(16(B" . lao-consonant-input))
+
鐃緒申��申鐃緒申 ("5" "(1X(B")
+
鐃緒申��申鐃緒申 ("6" "(1Y(B")
+
鐃緒申��申鐃緒申 ("7" ("(1$(B" . lao-consonant-input))
+
鐃緒申��申鐃緒申 ("8" ("(15(B" . lao-consonant-input))
+
鐃緒申��申鐃緒申 ("9" ("(1((B" . lao-consonant-input))
+
鐃緒申��申鐃緒申 (":" "%")
+
鐃緒申��申鐃緒申 (";" ("(1G(B" . lao-consonant-input))
+
鐃緒申��申鐃緒申 ("<" ("(1}(B" . lao-consonant-input))
+
鐃緒申��申鐃緒申 ("=" "(1m(B")
+
鐃緒申��申鐃緒申 (">" "$")
+
鐃緒申��申鐃緒申 ("?" ")")
+
鐃緒申��申鐃緒申 ("@" "2")
+
鐃緒申��申鐃緒申 ("A" "0(1Qi1(B")
+
鐃緒申��申鐃緒申 ("B" "0(1Vi1(B")
+
鐃緒申��申鐃緒申 ("C" "(1O(B")
+
鐃緒申��申鐃緒申 ("D" ".")
+
鐃緒申��申鐃緒申 ("E" "0(1Si1(B")
+
鐃緒申��申鐃緒申 ("F" ",")
+
鐃緒申��申鐃緒申 ("G" ":")
+
鐃緒申��申鐃緒申 ("H" "(1j(B")
+
鐃緒申��申鐃緒申 ("I" ("(1N(B" . lao-consonant-input))
+
鐃緒申��申鐃緒申 ("J" "(1k(B")
+
鐃緒申��申鐃緒申 ("K" "!")
+
鐃緒申��申鐃緒申 ("L" "?")
+
鐃緒申��申鐃緒申 ("M" "(1f(B")
+
鐃緒申��申鐃緒申 ("N" "0(1Wi1(B")
+
鐃緒申��申鐃緒申 ("O" ("(1|(B" . lao-consonant-input))
+
鐃緒申��申鐃緒申 ("P" "(1](B")
+
鐃緒申��申鐃緒申 ("Q" "0(1[i1(B")
+
鐃緒申��申鐃緒申 ("R" "_")
+
鐃緒申��申鐃緒申 ("S" ";")
+
鐃緒申��申鐃緒申 ("T" "+")
+
鐃緒申��申鐃緒申 ("U" "0(1Ui1(B")
+
鐃緒申��申鐃緒申 ("V" "x")
+
鐃緒申��申鐃緒申 ("W" "0")
+
鐃緒申��申鐃緒申 ("X" "(")
+
鐃緒申��申鐃緒申 ("Y" "0(1Ti1(B")
+
鐃緒申��申鐃緒申 ("Z" "\"")
+
鐃緒申��申鐃緒申 ("[" ("(1:(B" . lao-consonant-input))
+
鐃緒申��申鐃緒申 ("]" ("(1E(B" . lao-consonant-input))
+
鐃緒申��申鐃緒申 ("^" "(1\(B")
+
鐃緒申��申鐃緒申 ("_" "9")
+
鐃緒申��申鐃緒申 ("`" ("(1'(B" . lao-consonant-input))
+
鐃緒申��申鐃緒申 ("a" "(1Q(B")
+
鐃緒申��申鐃緒申 ("b" "(1V(B")
+
鐃緒申��申鐃緒申 ("c" "(1a(B")
+
鐃緒申��申鐃緒申 ("d" ("(1!(B" . lao-consonant-input))
+
鐃緒申��申鐃緒申 ("e" "(1S(B")
+
鐃緒申��申鐃緒申 ("f" ("(14(B" . lao-consonant-input))
+
鐃緒申��申鐃緒申 ("g" "(1`(B")
+
鐃緒申��申鐃緒申 ("h" "(1i(B")
+
鐃緒申��申鐃緒申 ("i" ("(1C(B" . lao-consonant-input))
+
鐃緒申��申鐃緒申 ("j" "(1h(B")
+
鐃緒申��申鐃緒申 ("k" "(1R(B")
+
鐃緒申��申鐃緒申 ("l" ("(1J(B" . lao-consonant-input))
+
鐃緒申��申鐃緒申 ("m" ("(17(B" . lao-consonant-input))
+
鐃緒申��申鐃緒申 ("n" "(1W(B")
+
鐃緒申��申鐃緒申 ("o" ("(19(B" . lao-consonant-input))
+
鐃緒申��申鐃緒申 ("p" ("(1-(B" . lao-consonant-input))
+
鐃緒申��申鐃緒申 ("q" "(1[(B")
+
鐃緒申��申鐃緒申 ("r" ("(1>(B" . lao-consonant-input))
+
鐃緒申��申鐃緒申 ("s" ("(1K(B" . lao-consonant-input))
+
鐃緒申��申鐃緒申 ("t" "(1P(B")
+
鐃緒申��申鐃緒申 ("u" "(1U(B")
+
鐃緒申��申鐃緒申 ("v" ("(1M(B" . lao-consonant-input))
+
鐃緒申��申鐃緒申 ("w" "(1d(B")
+
鐃緒申��申鐃緒申 ("x" ("(1;(B" . lao-consonant-input))
+
鐃緒申��申鐃緒申 ("y" "(1T(B")
+
鐃緒申��申鐃緒申 ("z" ("(1<(B" . lao-consonant-input))
+
鐃緒申��申鐃緒申 ("{" "-")
+
鐃緒申��申鐃緒申 ("|" ("0(1K\1(B" . lao-consonant-input))
+
鐃緒申��申鐃緒申 ("}" "/")
+
鐃緒申��申鐃緒申 ("~" "(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")
+
鐃緒申��申鐃緒申 )
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申
+
鐃緒申��申鐃緒申;;; quail/lao.el ends here