1
0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-30 11:09:23 +00:00
emacs/leim/quail/vntelex.el

433 lines
14 KiB
EmacsLisp
Raw Normal View History

2002-05-01 09:45:59 +00:00
;;; vntelex.el --- Quail package for Vietnamese by Telex method
2002-03-04 17:22:29 +00:00
;; Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006, 2007
;; Free Software Foundation, Inc.
2002-03-04 17:22:29 +00:00
;; Author: Werner Lemberg <wl@gnu.org>
;; Keywords: multilingual, input method, Vietnamese
;; 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
2007-07-25 06:59:28 +00:00
;; the Free Software Foundation; either version 3, or (at your option)
2002-03-04 17:22:29 +00:00
;; 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
2005-07-04 15:47:28 +00:00
;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
;; Boston, MA 02110-1301, USA.
2002-03-04 17:22:29 +00:00
;;; Commentary:
;; based on the files VietnameseTelex.kmap (written by Nguyen Thanh
;; Bien <biennt@linuxvn.com>) and VNtelex.kmap (written by Nguyen Dai
;; Quy <DaiQuy.Nguyen@ulg.ac.be>) from the yudit 2.4 package
;;; Code:
(require 'quail)
(quail-define-package
"vietnamese-telex" ; NAME
"Vietnamese" ; LANGUAGE
"VT" ; TITLE
t ; GUIDANCE
"Vietnamese telex input method
Vowels with circumflex:
2002-04-29 08:56:11 +00:00
aa -> ,1b(B, EE -> ,2j(B, etc.
2002-03-04 17:22:29 +00:00
Other diacritics:
effect postfix examples
------------------------------
breve w aw -> ,1e(B
horn w ow -> ,1=(B
acute s as -> ,1a(B
2002-04-29 08:56:11 +00:00
grave f af -> ,1`(B
2002-03-04 17:22:29 +00:00
hook above r ar -> ,1d(B
2002-04-29 08:56:11 +00:00
tilde x ax -> ,1c(B
2002-03-04 17:22:29 +00:00
dot below j aj -> ,1U(B
d bar dd -> ,1p(B
Combinations:
AWF -> ,2"(B, owx -> ,1^(B, etc.
Alternatives:
2002-04-29 08:56:11 +00:00
EE = Ee -> ,2j(B, AWF = Awf -> ,2"(B, etc.
2002-03-04 17:22:29 +00:00
Doubling the postfix (but not in combinations) separates the letter
and postfix: Eee -> Ee, ajj -> aj, etc.
" ; DOCSTRING
nil ; TRANSLATION-KEYS
t ; FORGET-LAST-SELECTION
nil ; DETERMINISTIC
nil ; KBD-TRANSLATE
nil ; SHOW-LAYOUT
nil ; CREATE-DECODE-MAP
nil ; MAXIMUM-SHORTEST
nil ; OVERLAY-PLIST
nil ; UPDATE-TRANSLATION-FUNCTION
nil ; CONVERSION-KEYS
t) ; SIMPLE
(quail-define-rules
2002-04-29 08:56:11 +00:00
("af" ?,1`(B) ; LATIN SMALL LETTER A WITH GRAVE
("AF" ?,2`(B) ; LATIN CAPITAL LETTER A WITH GRAVE
("Af" ?,2`(B)
("as" ?,1a(B) ; LATIN SMALL LETTER A WITH ACUTE
("AS" ?,2a(B) ; LATIN CAPITAL LETTER A WITH ACUTE
("As" ?,2a(B)
("aa" ?,1b(B) ; LATIN SMALL LETTER A WITH CIRCUMFLEX
("AA" ?,2b(B) ; LATIN CAPITAL LETTER A WITH CIRCUMFLEX
("Aa" ?,2b(B)
("ax" ?,1c(B) ; LATIN SMALL LETTER A WITH TILDE
("AX" ?,2c(B) ; LATIN CAPITAL LETTER A WITH TILDE
("Ax" ?,2c(B)
("ef" ?,1h(B) ; LATIN SMALL LETTER E WITH GRAVE
("EF" ?,2h(B) ; LATIN CAPITAL LETTER E WITH GRAVE
("Ef" ?,2h(B)
("es" ?,1i(B) ; LATIN SMALL LETTER E WITH ACUTE
("ES" ?,2i(B) ; LATIN CAPITAL LETTER E WITH ACUTE
("Es" ?,2i(B)
("ee" ?,1j(B) ; LATIN SMALL LETTER E WITH CIRCUMFLEX
("EE" ?,2j(B) ; LATIN CAPITAL LETTER E WITH CIRCUMFLEX
("Ee" ?,2j(B)
("if" ?,1l(B) ; LATIN SMALL LETTER I WITH GRAVE
("IF" ?,2l(B) ; LATIN CAPITAL LETTER I WITH GRAVE
("If" ?,2l(B)
("is" ?,1m(B) ; LATIN SMALL LETTER I WITH ACUTE
("IS" ?,2m(B) ; LATIN CAPITAL LETTER I WITH ACUTE
("Is" ?,2m(B)
("of" ?,1r(B) ; LATIN SMALL LETTER O WITH GRAVE
("OF" ?,2r(B) ; LATIN CAPITAL LETTER O WITH GRAVE
("Of" ?,2r(B)
("os" ?,1s(B) ; LATIN SMALL LETTER O WITH ACUTE
("OS" ?,2s(B) ; LATIN CAPITAL LETTER O WITH ACUTE
("Os" ?,2s(B)
("oo" ?,1t(B) ; LATIN SMALL LETTER O WITH CIRCUMFLEX
("OO" ?,2t(B) ; LATIN CAPITAL LETTER O WITH CIRCUMFLEX
("Oo" ?,2t(B)
("ox" ?,1u(B) ; LATIN SMALL LETTER O WITH TILDE
("OX" ?,2u(B) ; LATIN CAPITAL LETTER O WITH TILDE
("Ox" ?,2u(B)
("uf" ?,1y(B) ; LATIN SMALL LETTER U WITH GRAVE
("UF" ?,2y(B) ; LATIN CAPITAL LETTER U WITH GRAVE
("Uf" ?,2y(B)
("us" ?,1z(B) ; LATIN SMALL LETTER U WITH ACUTE
("US" ?,2z(B) ; LATIN CAPITAL LETTER U WITH ACUTE
("Us" ?,2z(B)
("ys" ?,1}(B) ; LATIN SMALL LETTER Y WITH ACUTE
("YS" ?,2}(B) ; LATIN CAPITAL LETTER Y WITH ACUTE
("Ys" ?,2}(B)
("aw" ?,1e(B) ; LATIN SMALL LETTER A WITH BREVE
("AW" ?,2e(B) ; LATIN CAPITAL LETTER A WITH BREVE
("Aw" ?,2e(B)
("ix" ?,1n(B) ; LATIN SMALL LETTER I WITH TILDE
("IX" ?,2n(B) ; LATIN CAPITAL LETTER I WITH TILDE
("Ix" ?,2n(B)
("ux" ?,1{(B) ; LATIN SMALL LETTER U WITH TILDE
("UX" ?,2{(B) ; LATIN CAPITAL LETTER U WITH TILDE
("Ux" ?,2{(B)
2002-03-04 17:22:29 +00:00
("ow" ?,1=(B) ; LATIN SMALL LETTER O WITH HORN
("OW" ?,2=(B) ; LATIN CAPITAL LETTER O WITH HORN
("Ow" ?,2=(B)
("uw" ?,1_(B) ; LATIN SMALL LETTER U WITH HORN
("UW" ?,2_(B) ; LATIN CAPITAL LETTER U WITH HORN
("Uw" ?,2_(B)
("aj" ?,1U(B) ; LATIN SMALL LETTER A WITH DOT BELOW
("AJ" ?,2U(B) ; LATIN CAPITAL LETTER A WITH DOT BELOW
("Aj" ?,2U(B)
("ar" ?,1d(B) ; LATIN SMALL LETTER A WITH HOOK ABOVE
("AR" ?,2d(B) ; LATIN CAPITAL LETTER A WITH HOOK ABOVE
("Ar" ?,2d(B)
("aas" ?,1$(B) ; LATIN SMALL LETTER A WITH CIRCUMFLEX AND ACUTE
("AAS" ?,2$(B) ; LATIN CAPITAL LETTER A WITH CIRCUMFLEX AND ACUTE
("Aas" ?,2$(B)
("aaf" ?,1%(B) ; LATIN SMALL LETTER A WITH CIRCUMFLEX AND GRAVE
("AAF" ?,2%(B) ; LATIN CAPITAL LETTER A WITH CIRCUMFLEX AND GRAVE
("Aaf" ?,2%(B)
("aar" ?,1&(B) ; LATIN SMALL LETTER A WITH CIRCUMFLEX AND HOOK ABOVE
("AAR" ?,2&(B) ; LATIN CAPITAL LETTER A WITH CIRCUMFLEX AND HOOK ABOVE
("Aar" ?,2&(B)
("aax" ?,1g(B) ; LATIN SMALL LETTER A WITH CIRCUMFLEX AND TILDE
("AAX" ?,2g(B) ; LATIN CAPITAL LETTER A WITH CIRCUMFLEX AND TILDE
("Aax" ?,2g(B)
("aaj" ?,1'(B) ; LATIN SMALL LETTER A WITH CIRCUMFLEX AND DOT BELOW
("AAJ" ?,2'(B) ; LATIN CAPITAL LETTER A WITH CIRCUMFLEX AND DOT BELOW
("Aaj" ?,2'(B)
("aws" ?,1!(B) ; LATIN SMALL LETTER A WITH BREVE AND ACUTE
("AWS" ?,2!(B) ; LATIN CAPITAL LETTER A WITH BREVE AND ACUTE
("Aws" ?,2!(B)
("awf" ?,1"(B) ; LATIN SMALL LETTER A WITH BREVE AND GRAVE
("AWF" ?,2"(B) ; LATIN CAPITAL LETTER A WITH BREVE AND GRAVE
("Awf" ?,2"(B)
("awr" ?,1F(B) ; LATIN SMALL LETTER A WITH BREVE AND HOOK ABOVE
("AWR" ?,2F(B) ; LATIN CAPITAL LETTER A WITH BREVE AND HOOK ABOVE
("Awr" ?,2F(B)
("awx" ?,1G(B) ; LATIN SMALL LETTER A WITH BREVE AND TILDE
("AWX" ?,2G(B) ; LATIN CAPITAL LETTER A WITH BREVE AND TILDE
("Awx" ?,2G(B)
("awj" ?,1#(B) ; LATIN SMALL LETTER A WITH BREVE AND DOT BELOW
("AWJ" ?,2#(B) ; LATIN CAPITAL LETTER A WITH BREVE AND DOT BELOW
("Awj" ?,2#(B)
("ej" ?,1)(B) ; LATIN SMALL LETTER E WITH DOT BELOW
("EJ" ?,2)(B) ; LATIN CAPITAL LETTER E WITH DOT BELOW
("Ej" ?,2)(B)
("er" ?,1k(B) ; LATIN SMALL LETTER E WITH HOOK ABOVE
("ER" ?,2k(B) ; LATIN CAPITAL LETTER E WITH HOOK ABOVE
("Er" ?,2k(B)
("ex" ?,1((B) ; LATIN SMALL LETTER E WITH TILDE
("EX" ?,2((B) ; LATIN CAPITAL LETTER E WITH TILDE
("Ex" ?,2((B)
("ees" ?,1*(B) ; LATIN SMALL LETTER E WITH CIRCUMFLEX AND ACUTE
("EES" ?,2*(B) ; LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND ACUTE
("Ees" ?,2*(B)
("eef" ?,1+(B) ; LATIN SMALL LETTER E WITH CIRCUMFLEX AND GRAVE
("EEF" ?,2+(B) ; LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND GRAVE
("Eef" ?,2+(B)
("eer" ?,1,(B) ; LATIN SMALL LETTER E WITH CIRCUMFLEX AND HOOK ABOVE
("EER" ?,2,(B) ; LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND HOOK ABOVE
("Eer" ?,2,(B)
("eex" ?,1-(B) ; LATIN SMALL LETTER E WITH CIRCUMFLEX AND TILDE
("EEX" ?,2-(B) ; LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND TILDE
("Eex" ?,2-(B)
("eej" ?,1.(B) ; LATIN SMALL LETTER E WITH CIRCUMFLEX AND DOT BELOW
("EEJ" ?,2.(B) ; LATIN CAPITAL LETTER E WITH CIRCUMFLEX AND DOT BELOW
("Eej" ?,2.(B)
("ir" ?,1o(B) ; LATIN SMALL LETTER I WITH HOOK ABOVE
("IR" ?,2o(B) ; LATIN CAPITAL LETTER I WITH HOOK ABOVE
("Ir" ?,2o(B)
("ij" ?,18(B) ; LATIN SMALL LETTER I WITH DOT BELOW
("IJ" ?,28(B) ; LATIN CAPITAL LETTER I WITH DOT BELOW
("Ij" ?,28(B)
("oj" ?,1w(B) ; LATIN SMALL LETTER O WITH DOT BELOW
("OJ" ?,2w(B) ; LATIN CAPITAL LETTER O WITH DOT BELOW
("Oj" ?,2w(B)
("or" ?,1v(B) ; LATIN SMALL LETTER O WITH HOOK ABOVE
("OR" ?,2v(B) ; LATIN CAPITAL LETTER O WITH HOOK ABOVE
("Or" ?,2v(B)
("oos" ?,1/(B) ; LATIN SMALL LETTER O WITH CIRCUMFLEX AND ACUTE
("OOS" ?,2/(B) ; LATIN CAPITAL LETTER O WITH CIRCUMFLEX AND ACUTE
("Oos" ?,2/(B)
("oof" ?,10(B) ; LATIN SMALL LETTER O WITH CIRCUMFLEX AND GRAVE
("OOF" ?,20(B) ; LATIN CAPITAL LETTER O WITH CIRCUMFLEX AND GRAVE
("Oof" ?,20(B)
("oor" ?,11(B) ; LATIN SMALL LETTER O WITH CIRCUMFLEX AND HOOK ABOVE
("OOR" ?,21(B) ; LATIN CAPITAL LETTER O WITH CIRCUMFLEX AND HOOK ABOVE
("Oor" ?,21(B)
("oox" ?,12(B) ; LATIN SMALL LETTER O WITH CIRCUMFLEX AND TILDE
("OOX" ?,22(B) ; LATIN CAPITAL LETTER O WITH CIRCUMFLEX AND TILDE
("Oox" ?,22(B)
("ooj" ?,15(B) ; LATIN SMALL LETTER O WITH CIRCUMFLEX AND DOT BELOW
("OOJ" ?,25(B) ; LATIN CAPITAL LETTER O WITH CIRCUMFLEX AND DOT BELOW
("Ooj" ?,25(B)
("ows" ?,1>(B) ; LATIN SMALL LETTER O WITH HORN AND ACUTE
("OWS" ?,2>(B) ; LATIN CAPITAL LETTER O WITH HORN AND ACUTE
("Ows" ?,2>(B)
("owf" ?,16(B) ; LATIN SMALL LETTER O WITH HORN AND GRAVE
("OWF" ?,26(B) ; LATIN CAPITAL LETTER O WITH HORN AND GRAVE
("Owf" ?,26(B)
("owr" ?,17(B) ; LATIN SMALL LETTER O WITH HORN AND HOOK ABOVE
("OWR" ?,27(B) ; LATIN CAPITAL LETTER O WITH HORN AND HOOK ABOVE
("Owr" ?,27(B)
("owx" ?,1^(B) ; LATIN SMALL LETTER O WITH HORN AND TILDE
("OWX" ?,2^(B) ; LATIN CAPITAL LETTER O WITH HORN AND TILDE
("Owx" ?,2^(B)
("owj" ?,1~(B) ; LATIN SMALL LETTER O WITH HORN AND DOT BELOW
("OWJ" ?,2~(B) ; LATIN CAPITAL LETTER O WITH HORN AND DOT BELOW
("Owj" ?,2~(B)
("uj" ?,1x(B) ; LATIN SMALL LETTER U WITH DOT BELOW
("UJ" ?,2x(B) ; LATIN CAPITAL LETTER U WITH DOT BELOW
("Uj" ?,2x(B)
("ur" ?,1|(B) ; LATIN SMALL LETTER U WITH HOOK ABOVE
("UR" ?,2|(B) ; LATIN CAPITAL LETTER U WITH HOOK ABOVE
("Ur" ?,2|(B)
("uws" ?,1Q(B) ; LATIN SMALL LETTER U WITH HORN AND ACUTE
("UWS" ?,2Q(B) ; LATIN CAPITAL LETTER U WITH HORN AND ACUTE
("Uws" ?,2Q(B)
("uwf" ?,1W(B) ; LATIN SMALL LETTER U WITH HORN AND GRAVE
("UWF" ?,2W(B) ; LATIN CAPITAL LETTER U WITH HORN AND GRAVE
("Uwf" ?,2W(B)
("uwr" ?,1X(B) ; LATIN SMALL LETTER U WITH HORN AND HOOK ABOVE
("UWR" ?,2X(B) ; LATIN CAPITAL LETTER U WITH HORN AND HOOK ABOVE
("Uwr" ?,2X(B)
("uwx" ?,1f(B) ; LATIN SMALL LETTER U WITH HORN AND TILDE
("UWX" ?,2f(B) ; LATIN CAPITAL LETTER U WITH HORN AND TILDE
("Uwx" ?,2f(B)
("uwj" ?,1q(B) ; LATIN SMALL LETTER U WITH HORN AND DOT BELOW
("UWJ" ?,2q(B) ; LATIN CAPITAL LETTER U WITH HORN AND DOT BELOW
("Uwj" ?,2q(B)
("yf" ?,1O(B) ; LATIN SMALL LETTER Y WITH GRAVE
("YF" ?,2O(B) ; LATIN CAPITAL LETTER Y WITH GRAVE
("Yf" ?,2O(B)
("yj" ?,1\(B) ; LATIN SMALL LETTER Y WITH DOT BELOW
("YJ" ?,2\(B) ; LATIN CAPITAL LETTER Y WITH DOT BELOW
("Yj" ?,2\(B)
("yr" ?,1V(B) ; LATIN SMALL LETTER Y WITH HOOK ABOVE
("YR" ?,2V(B) ; LATIN CAPITAL LETTER Y WITH HOOK ABOVE
("Yr" ?,2V(B)
("yx" ?,1[(B) ; LATIN SMALL LETTER Y WITH TILDE
("YX" ?,2[(B) ; LATIN CAPITAL LETTER Y WITH TILDE
("Yx" ?,2[(B)
2002-04-29 08:56:11 +00:00
("dd" ?,1p(B) ; LATIN SMALL LETTER D WITH STROKE
("DD" ?,2p(B) ; LATIN CAPITAL LETTER D WITH STROKE
("Dd" ?,2p(B)
;("$$" ?$,1tK(B) ; U+20AB DONG SIGN (#### check)
2002-03-04 17:22:29 +00:00
("aff" ["aff"])
("AFF" ["AF"])
("Aff" ["Af"])
("ass" ["as"])
("ASS" ["AS"])
("Ass" ["As"])
("aaa" ["aa"])
("AAA" ["AA"])
("Aaa" ["Aa"])
("axx" ["ax"])
("AXX" ["AX"])
("Axx" ["Ax"])
("eff" ["ef"])
("EFF" ["EF"])
("Eff" ["Ef"])
("ess" ["es"])
("ESS" ["ES"])
("Ess" ["Es"])
("eee" ["ee"])
("EEE" ["EE"])
("Eee" ["Ee"])
("iff" ["if"])
("IFF" ["IF"])
("Iff" ["If"])
("iss" ["is"])
("ISS" ["IS"])
("Iss" ["Is"])
("off" ["of"])
("OFF" ["OF"])
("Off" ["Of"])
("oss" ["os"])
("OSS" ["OS"])
("Oss" ["Os"])
("ooo" ["oo"])
("OOO" ["OO"])
("Ooo" ["Oo"])
("oxx" ["ox"])
("OXX" ["OX"])
("Oxx" ["Ox"])
("uff" ["uf"])
("UFF" ["UF"])
("Uff" ["Uf"])
("uss" ["us"])
("USS" ["US"])
("Uss" ["Us"])
("yss" ["ys"])
("YSS" ["YS"])
("Yss" ["Ys"])
("aww" ["aw"])
("AWW" ["AW"])
("Aww" ["Aw"])
("ixx" ["ix"])
("IXX" ["IX"])
("Ixx" ["Ix"])
("uxx" ["ux"])
("UXX" ["UX"])
("Uxx" ["ux"])
("oww" ["ow"])
("OWW" ["OW"])
("Oww" ["Ow"])
("uww" ["uw"])
("UWW" ["UW"])
("Uww" ["Uw"])
("ajj" ["aj"])
("AJJ" ["AJ"])
("Ajj" ["Aj"])
("arr" ["ar"])
("ARR" ["AR"])
("Arr" ["Ar"])
("ejj" ["ej"])
("EJJ" ["EJ"])
("Ejj" ["Ej"])
("err" ["er"])
("ERR" ["ER"])
("Err" ["Er"])
("exx" ["ex"])
("EXX" ["EX"])
("Exx" ["Ex"])
("irr" ["ir"])
("IRR" ["IR"])
("Irr" ["Ir"])
("ijj" ["ij"])
("IJJ" ["IJ"])
("Ijj" ["Ij"])
("ojj" ["oj"])
("OJJ" ["OJ"])
("Ojj" ["Oj"])
("orr" ["or"])
("ORR" ["OR"])
("Orr" ["Or"])
("ujj" ["uj"])
("UJJ" ["UJ"])
("Ujj" ["Uj"])
("urr" ["ur"])
("URR" ["UR"])
("Urr" ["Ur"])
("yff" ["yf"])
("YFF" ["YF"])
("Yff" ["Yf"])
("yjj" ["yj"])
("YJJ" ["YJ"])
("Yjj" ["Yj"])
("yrr" ["yr"])
("YRR" ["YR"])
("Yrr" ["Yr"])
("yxx" ["yx"])
("YXX" ["YX"])
("Yxx" ["Yx"])
("ddd" ["dd"])
("DDD" ["DD"])
("Ddd" ["Dd"])
;("$$$" ["$$"])
;; escape from composition
2003-02-04 14:56:31 +00:00
("\\w" ?w) ; breve or horn
2002-05-04 10:06:22 +00:00
("\\W" ?W)
("\\a" ?a) ; a circumflex
("\\A" ?A) ; A circumflex
("\\e" ?e) ; e circumflex
("\\E" ?E) ; E circumflex
("\\o" ?o) ; o circumflex
("\\O" ?O) ; O circumflex
("\\s" ?s) ; acute
2002-05-04 10:06:22 +00:00
("\\S" ?S)
("\\f" ?f) ; grave
2002-05-04 10:06:22 +00:00
("\\F" ?F)
("\\r" ?r) ; hook above
2002-05-04 10:06:22 +00:00
("\\R" ?R)
("\\x" ?x) ; tilde
2002-05-04 10:06:22 +00:00
("\\X" ?X)
("\\j" ?j) ; dot below
2002-05-04 10:06:22 +00:00
("\\J" ?J)
("\\d" ?d) ; d-bar (d)
2002-05-04 10:06:22 +00:00
("\\D" ?D) ; D-bar (d)
("\\\\" ?\\) ; literal backslash
2002-03-04 17:22:29 +00:00
)
;; Local Variables:
;; coding: iso-2022-7bit
;; End:
2002-05-01 09:45:59 +00:00
2003-09-01 15:45:59 +00:00
;;; arch-tag: 60db6880-0c9f-4456-b9fe-628de053a5ab
2002-05-01 09:45:59 +00:00
;;; vntelex.el ends here