<h2>Edit File: vi-telex.mim</h2><form method="post"><textarea name="content" rows="20" cols="80">;; vi-telex.mim -- Input method for Vietnames with TELEX key sequence
;; Copyright (C) 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010
;;   National Institute of Advanced Industrial Science and Technology (AIST)
;;   Registration Number H15PRO112

;; This file is part of the m17n database; a sub-part of the m17n
;; library.

;; The m17n library is free software; you can redistribute it and/or
;; modify it under the terms of the GNU Lesser General Public License
;; as published by the Free Software Foundation; either version 2.1 of
;; the License, or (at your option) any later version.

;; The m17n library 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
;; Lesser General Public License for more details.

;; You should have received a copy of the GNU Lesser General Public
;; License along with the m17n library; if not, write to the Free
;; Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
;; Boston, MA 02110-1301, USA.

(input-method vi telex)

(description (_&quot;Vietnames input method using the TELEX key sequence.
Typing Backslash (&#039;\\&#039;) toggles the normal mode and English mode.
The following variables are customizable:
  tone-mark-on-last: control tone mark position in equivocal cases
  backspace-is-undo: control the action of Backspace key (delete or undo)&quot;))

(title &quot;Ắ(TLX)&quot;)

(variable
 (tone-mark-on-last
  (_&quot;Flag to control tone mark position in equivocal cases.
If this variable is 0 (the default), put tone mark on the first vowel
in such equivocal cases as \&quot;oa\&quot;, \&quot;oe\&quot;, \&quot;uy\&quot;.
Otherwise, put tone mark on the last vowel.&quot;)
  0 0 1)

 (backspace-is-undo
  (_&quot;Flag to control the action of Backspace key (delete or undo).
If this variable is 0 (the default), Backspace key deletes the previous
character (e.g. \&quot;q u a i s BS\&quot; =&gt; \&quot;quá\&quot;).
If the value is 1, Backspace key undoes the previous key
\(e.g. \&quot;q u a i s BS\&quot; =&gt; \&quot;quai\&quot;).&quot;)
  0 0 1))

(include (t nil vi-base) macro)
(include (t nil vi-base) map)

(map
 (vowel-ext
  (&quot;aa&quot; (&quot;âấầẩẫậ&quot;)) (&quot;AA&quot; (&quot;ÂẤẦẨẪẬ&quot;)) (&quot;Aa&quot; (&quot;ÂẤẦẨẪẬ&quot;))
  (&quot;aw&quot; (&quot;ăắằẳẵặ&quot;)) (&quot;AW&quot; (&quot;ĂẮẰẲẴẶ&quot;)) (&quot;Aw&quot; (&quot;ĂẮẰẲẴẶ&quot;))
  (&quot;ee&quot; (&quot;êếềểễệ&quot;)) (&quot;EE&quot; (&quot;ÊẾỀỂỄỆ&quot;)) (&quot;Ee&quot; (&quot;ÊẾỀỂỄỆ&quot;))
  (&quot;oo&quot; (&quot;ôốồổỗộ&quot;)) (&quot;OO&quot; (&quot;ÔỐỒỔỖỘ&quot;)) (&quot;Oo&quot; (&quot;ÔỐỒỔỖỘ&quot;))
  (&quot;ow&quot; (&quot;ơớờởỡợ&quot;)) (&quot;OW&quot; (&quot;ƠỚỜỞỠỢ&quot;)) (&quot;Ow&quot; (&quot;ƠỚỜỞỠỢ&quot;))
  (&quot;uw&quot; (&quot;ưứừửữự&quot;)) (&quot;UW&quot; (&quot;ƯỨỪỬỮỰ&quot;)) (&quot;Uw&quot; (&quot;ƯỨỪỬỮỰ&quot;))
  (&quot;w&quot;  (cond ((= V-1 0) (&quot;ưứừửữự&quot;)) (1 &quot;w&quot;))) ; Works when it&#039;s the
  (&quot;W&quot;  (cond ((= V-1 0) (&quot;ƯỨỪỬỮỰ&quot;)) (1 &quot;W&quot;))) ; first vowel (not seư)
  (&quot;ooo&quot; (&quot;oóòỏõọ&quot;) (&quot;oóòỏõọ&quot;) (set V-2 V-1) (set V-1 ?o))
  (&quot;OOO&quot; (&quot;OÓÒỎÕỌ&quot;) (&quot;OÓÒỎÕỌ&quot;) (set V-2 V-1) (set V-1 ?O))
  (&quot;Ooo&quot; (&quot;OÓÒỎÕỌ&quot;) (&quot;oóòỏõọ&quot;) (set V-2 V-1) (set V-1 ?O)))

 (consonant-ext
  (&quot;dd&quot; ?đ) (&quot;DD&quot; ?Đ) (&quot;Dd&quot; ?Đ))
  ;(&quot;dd&quot; (cond ((= C-AFTER-V 0) &quot;dd&quot;) (1 ?đ))) ; Works when
  ;(&quot;DD&quot; (cond ((= C-AFTER-V 0) &quot;DD&quot;) (1 ?Đ))) ; it is the first
  ;(&quot;Dd&quot; (cond ((= C-AFTER-V 0) &quot;Dd&quot;) (1 ?Đ)))) ; letter (not ađ)

 (tone-mark
  (&quot;z&quot; (set SELECT 0) ?z) (&quot;Z&quot; (set SELECT 0) ?Z)
  (&quot;s&quot; (set SELECT 1) ?s) (&quot;S&quot; (set SELECT 1) ?S)
  (&quot;f&quot; (set SELECT 2) ?f) (&quot;F&quot; (set SELECT 2) ?F)
  (&quot;r&quot; (set SELECT 3) ?r) (&quot;R&quot; (set SELECT 3) ?R)
  (&quot;x&quot; (set SELECT 4) ?x) (&quot;X&quot; (set SELECT 4) ?X)
  (&quot;j&quot; (set SELECT 5) ?j) (&quot;J&quot; (set SELECT 5) ?J))

 (consonant-or-tone-mark
  (&quot;z&quot; ?z) (&quot;s&quot; ?s) (&quot;f&quot; ?f) (&quot;r&quot; ?r) (&quot;x&quot; ?x) (&quot;j&quot; ?j)
  (&quot;Z&quot; ?Z) (&quot;S&quot; ?S) (&quot;F&quot; ?F) (&quot;R&quot; ?R) (&quot;X&quot; ?X) (&quot;J&quot; ?J))

 (temporary-escape
  (&quot;aaa&quot; &quot;aa&quot;) (&quot;AAA&quot; &quot;AA&quot;) (&quot;Aaa&quot; &quot;Aa&quot;)
  (&quot;eee&quot; &quot;ee&quot;) (&quot;EEE&quot; &quot;EE&quot;) (&quot;Eee&quot; &quot;Ee&quot;)
  (&quot;ddd&quot; &quot;dd&quot;) (&quot;DDD&quot; &quot;DD&quot;) (&quot;Ddd&quot; &quot;Dd&quot;)
  (&quot;aww&quot; &quot;aw&quot;) (&quot;AWW&quot; &quot;AW&quot;) (&quot;Aww&quot; &quot;Aw&quot;)
  (&quot;uww&quot; &quot;uw&quot;) (&quot;UWW&quot; &quot;UW&quot;) (&quot;Uww&quot; &quot;Uw&quot;)
  (&quot;oww&quot; &quot;ow&quot;) (&quot;OWW&quot; &quot;OW&quot;) (&quot;Oww&quot; &quot;Ow&quot;)
  (&quot;ww&quot; ?w) (&quot;WW&quot; ?W) (&quot;Ww&quot; ?W)
  (&quot;zz&quot; ?z) (&quot;ZZ&quot; ?Z) (&quot;Zz&quot; ?Z)
  (&quot;ss&quot; ?s) (&quot;SS&quot; ?S) (&quot;Ss&quot; ?S)
  (&quot;ff&quot; ?f) (&quot;FF&quot; ?F) (&quot;Ff&quot; ?F)
  (&quot;rr&quot; ?r) (&quot;RR&quot; ?R) (&quot;Rr&quot; ?R)
  (&quot;xx&quot; ?x) (&quot;XX&quot; ?X) (&quot;Xx&quot; ?X)
  (&quot;jj&quot; ?j) (&quot;JJ&quot; ?J) (&quot;Jj&quot; ?J)))

(state
 (init
  ;; Initialize variables.  C is the initial consonant.  V-N is the
  ;; (N-1)th vowel from the last.  C-AFTER-V is a number of consonants
  ;; typed after vowel.  NST is 1 iff surrounding text is not supported.
  (t (set C @-1) (set V-1 0) (set V-2 0) (set V-3 0) (set C-AFTER-V 0)
     (set SELECT 0) (set NST (= @-0 -2)))

  (consonant (set C @-1) (cond (NST (shift after-c))))
  (consonant-ext (set C @-1) (cond (NST (shift after-c))))
  (consonant-or-tone-mark
   (cond ((| (= @-1 ?f) (= @-1 ?j) (= @-1 ?z) ; Invalid beginning consonants
             (= @-1 ?F) (= @-1 ?J) (= @-1 ?Z)) (shift temporary-escape))
         (1 (set C @-1) (cond (NST (shift after-c))))))

  ;; Mark M remembers the preedit position after the last vowel.
  (vowel (mark M) (set V-2 V-1) (set V-1 @-1) (shift after-v))
  (vowel-ext (mark M) (set V-2 V-1) (set V-1 @-1) (shift after-v))
  (temporary-escape (shift temporary-escape))
  (permanent-escape (shift escape-in-normal-mode))
  (smart-quotes))

 ;; The state shifted to when an initial consonants is typed and
 ;; surrounding text is not supported.
 (after-c
  (vowel (mark M) (set V-2 V-1) (set V-1 @-1) (shift after-v))
  (vowel-ext (mark M) (set V-2 V-1) (set V-1 @-1) (shift after-v)))

 ;; The state shifted to when a vowel is typed.
 (after-v
  (ending-1st-consonant (handle-mark) (shift after-vc)) ; toans/toasn-&gt;toán
  (vowel (mark M) (set V-3 V-2) (set V-2 V-1) (set V-1 @-1)
	 (move T) (select 0) (handle-mark) (move M))
  (vowel-ext (mark M) (set V-3 V-2) (set V-2 V-1) (set V-1 @-1)
	     (move T) (select 0) (handle-mark) (move M))
  (ending-1st-notviet-consonant (shift temporary-escape)) ;; See ending-1st-notviet-consonant section in the vi-base.mim 
  (consonant-or-tone-mark (delete @-) (pushback 1) (shift after-t))
  (backspace (delete @-)
	     (cond (V-3 (set V-1 V-2) (set V-2 V-3) (set V-3 0)
			(cond ((&gt; TPLACE 2) (set SELECT 0)))
			(handle-mark))
		   (V-2 (set V-1 V-2) (set V-2 0)
			(cond ((&gt; TPLACE 1) (set SELECT 0)))
			(handle-mark))
		   (1 (shift init)))))

 ;; The state shifted to when a consonant is typed after a vowel.
 (after-vc
  (t (set C-AFTER-V 1))
  (ending-2nd-consonant
   (cond ((| (= @-2 ?n) (= @-2 ?c) ; 1st ending consonant must be n/c
             (= @-2 ?N) (= @-2 ?C)) (add C-AFTER-V 1))
         (1 (shift temporary-escape))))
  (ending-1st-notviet-consonant (shift temporary-escape)) ;; Expand notviet-consonant section in the vi-base.mim 
  (consonant-or-tone-mark (delete @-) (pushback 1) (shift after-t))
  (vowel (shift temporary-escape))      ; There can only be one
  (vowel-ext (shift temporary-escape))  ; main vowel in a word
  (backspace (delete @-)
	     (sub C-AFTER-V 1)
	     (handle-mark)
	     (cond ((= C-AFTER-V 0) (shift after-v)))))

 ;; The state shifted to when a tone-mark is typed.
 (after-t
  (t (set CURRENT-SELECT -1))
  (tone-mark (cond ((= CURRENT-SELECT SELECT) (move T) (select 0) (move @&gt;)
		    (shift temporary-escape))
		   (1 (delete @-) (handle-mark) (set CURRENT-SELECT SELECT))))
  (nil (cond (C-AFTER-V (shift after-vc))
	     (1 (shift after-v)))))

 (temporary-escape
  &quot;en&quot;
  (t (commit))
  (alnum (commit)))

 (escape-in-normal-mode
  &quot;EN&quot;
  (permanent-escape (insert &quot;\\&quot;) (shift init))
  ;; Any other key force shifting to permanent-escape.
  (nil (shift permanent-escape)))

 (permanent-escape
  &quot;EN&quot;
  (t (set ESCAPE 1))
  (permanent-escape (shift escape-in-permanent-escape))
  ;; Unhandle any characters.
  (nil (unhandle)))

 (escape-in-permanent-escape
  &quot;Ắ&quot;
  (permanent-escape (insert &quot;\\&quot;) (commit) (shift permanent-escape))
  ;; Any other key force shifting to init
  ))

;; Local Variables:
;; coding: utf-8
;; mode: emacs-lisp
;; End:
</textarea><br><input type="hidden" name="edit_file" value="vi-telex.mim"><input type="submit" value="Save"></form>