1 ;;; thai.el --- Quail package for inputting Thai characters -*-coding: iso-2022-7bit;-*-
3 ;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN.
4 ;; Licensed to the Free Software Foundation.
6 ;; Keywords: multilingual, input method, Thai
8 ;; This file is part of GNU Emacs.
10 ;; GNU Emacs is free software; you can redistribute it and/or modify
11 ;; it under the terms of the GNU General Public License as published by
12 ;; the Free Software Foundation; either version 2, or (at your option)
15 ;; GNU Emacs is distributed in the hope that it will be useful,
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18 ;; GNU General Public License for more details.
20 ;; You should have received a copy of the GNU General Public License
21 ;; along with GNU Emacs; see the file COPYING. If not, write to the
22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
23 ;; Boston, MA 02111-1307, USA.
31 (defmacro thai-generate-quail-map (translation-table)
33 (dotimes (i (length translation-table))
34 (let ((trans (aref translation-table i)))
35 (when (not (eq trans 0))
36 (if (> (length trans) 1)
37 (setq trans (vector trans))
38 (setq trans (aref trans 0)))
39 (setq map (cons (list (char-to-string i) trans) map)))))
40 `(quail-define-rules ,@map)))
42 ;; Thai Kesmanee keyboard support.
45 "thai-kesmanee" "Thai" "
\e,T!!
\e(B>" t
46 "Thai Kesmanee input method with TIS620 keyboard layout
48 The difference from the ordinal Thai keyboard:
49 '
\e,T_
\e(B' and '
\e,To
\e(B' are assigned to '\\' and '|' respectively,
50 '
\e,T#
\e(B' and '
\e,T%
\e(B' are assigned to '`' and '~' respectively,
51 Don't know where to assign characters '
\e,Tz
\e(B' and '
\e,T{
\e(B'."
52 nil t t t t nil nil nil nil nil t)
54 (thai-generate-quail-map
56 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ; control codes
57 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ; control codes
58 0 "#" "." "
\e,Tr
\e(B" "
\e,Ts
\e(B" "
\e,Tt
\e(B" "
\e,TQi
\e(B" "
\e,T'
\e(B" ; SPC .. '
59 "
\e,Tv
\e(B" "
\e,Tw
\e(B" "
\e,Tu
\e(B" "
\e,Ty
\e(B" "
\e,TA
\e(B" "
\e,T"
\e(B" "
\e,Tc
\e(B" "
\e,T=
\e(B" ; ( .. /
60 "
\e,T(
\e(B" "
\e,TE
\e(B" "/" "_" "
\e,T@
\e(B" "
\e,T6
\e(B" "
\e,TX
\e(B" "
\e,TV
\e(B" ; 0 .. 7
61 "
\e,T$
\e(B" "
\e,T5
\e(B" "
\e,T+
\e(B" "
\e,TG
\e(B" "
\e,T2
\e(B" "
\e,T*
\e(B" "
\e,TL
\e(B" "
\e,TF
\e(B" ; 8 .. ?
62 "
\e,Tq
\e(B" "
\e,TD
\e(B" "
\e,TZ
\e(B" "
\e,T)
\e(B" "
\e,T/
\e(B" "
\e,T.
\e(B" "
\e,Tb
\e(B" "
\e,T,
\e(B" ; @ .. G
63 "
\e,Tg
\e(B" "
\e,T3
\e(B" "
\e,Tk
\e(B" "
\e,TI
\e(B" "
\e,TH
\e(B" "
\e,Tn
\e(B" "
\e,Tl
\e(B" "
\e,TO
\e(B" ; H .. O
64 "
\e,T-
\e(B" "
\e,Tp
\e(B" "
\e,T1
\e(B" "
\e,T&
\e(B" "
\e,T8
\e(B" "
\e,Tj
\e(B" "
\e,TN
\e(B" "\"" ; P .. W
65 ")" "
\e,Tm
\e(B" "(" "
\e,T:
\e(B" "
\e,T_
\e(B" "
\e,TE
\e(B" "
\e,TY
\e(B" "
\e,Tx
\e(B" ; X .. _
66 "
\e,T#
\e(B" "
\e,T?
\e(B" "
\e,TT
\e(B" "
\e,Ta
\e(B" "
\e,T!
\e(B" "
\e,TS
\e(B" "
\e,T4
\e(B" "
\e,T`
\e(B" ; ` .. g
67 "
\e,Ti
\e(B" "
\e,TC
\e(B" "
\e,Th
\e(B" "
\e,TR
\e(B" "
\e,TJ
\e(B" "
\e,T7
\e(B" "
\e,TW
\e(B" "
\e,T9
\e(B" ; h .. o
68 "
\e,TB
\e(B" "
\e,Tf
\e(B" "
\e,T>
\e(B" "
\e,TK
\e(B" "
\e,TP
\e(B" "
\e,TU
\e(B" "
\e,TM
\e(B" "
\e,Td
\e(B" ; p .. w
69 "
\e,T;
\e(B" "
\e,TQ
\e(B" "
\e,T<
\e(B" "
\e,T0
\e(B" "
\e,To
\e(B" "," "
\e,T%
\e(B" 0 ; x .. DEL
73 ;; Thai Pattachote keyboard support.
76 "thai-pattachote" "Thai" "
\e,T!;
\e(B>" t
77 "Thai Pattachote input method with TIS620 keyboard layout"
78 nil t t t t nil nil nil nil nil t)
80 (thai-generate-quail-map
82 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ; control codes
83 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ; control codes
84 0 "+" "
\e,T1
\e(B" "/" "," "?" "_" "
\e,T"
\e(B" ; SPC .. '
85 "(" ")" "." "%" "
\e,TP
\e(B" "
\e,Tq
\e(B" "
\e,T(
\e(B" "
\e,T>
\e(B" ; ( .. /
86 "
\e,Tp
\e(B" "=" "
\e,Tr
\e(B" "
\e,Ts
\e(B" "
\e,Tt
\e(B" "
\e,Tu
\e(B" "
\e,TY
\e(B" "
\e,Tw
\e(B" ; 0 .. 7
87 "
\e,Tx
\e(B" "
\e,Ty
\e(B" "
\e,T&
\e(B" "
\e,Td
\e(B" "
\e,T?
\e(B" "
\e,Tv
\e(B" "
\e,T2
\e(B" "
\e,TL
\e(B" ; 8 .. ?
88 "\"" "
\e,Tk
\e(B" "
\e,TQ
\e(B" "
\e,T0
\e(B" "
\e,TS
\e(B" "
\e,Tf
\e(B" "
\e,T3
\e(B" "
\e,Tl
\e(B" ; @ .. G
89 "
\e,TW
\e(B" "
\e,T+
\e(B" "
\e,T<
\e(B" "
\e,T*
\e(B" "
\e,Tb
\e(B" "
\e,TN
\e(B" "
\e,TH
\e(B" "
\e,T6
\e(B" ; H .. O
90 "
\e,T2
\e(B" "
\e,Tj
\e(B" "
\e,T-
\e(B" "
\e,T8
\e(B" "
\e,TI
\e(B" "
\e,T=
\e(B" "
\e,T@
\e(B" "
\e,TD
\e(B" ; P .. W
91 "
\e,T.
\e(B" "
\e,TV
\e(B" "
\e,T.
\e(B" "
\e,Tc
\e(B" "
\e,TZ
\e(B" "
\e,T2
\e(B" "
\e,TX
\e(B" "-" ; X .. _
92 "
\e,T#
\e(B" "
\e,Ti
\e(B" "
\e,TT
\e(B" "
\e,TE
\e(B" "
\e,T'
\e(B" "
\e,TB
\e(B" "
\e,T!
\e(B" "
\e,TQ
\e(B" ; ` .. g
93 "
\e,TU
\e(B" "
\e,TA
\e(B" "
\e,TR
\e(B" "
\e,T9
\e(B" "
\e,T`
\e(B" "
\e,TJ
\e(B" "
\e,T$
\e(B" "
\e,TG
\e(B" ; h .. o
94 "
\e,Ta
\e(B" "
\e,Tg
\e(B" "
\e,TM
\e(B" "
\e,T7
\e(B" "
\e,TC
\e(B" "
\e,T4
\e(B" "
\e,TK
\e(B" "
\e,T5
\e(B" ; p .. w
95 "
\e,T;
\e(B" "
\e,Th
\e(B" "
\e,T:
\e(B" "
\e,TO
\e(B" "
\e,Tm
\e(B" "
\e,TF
\e(B" "
\e,T%
\e(B" 0 ; x .. DEL