<h2>Edit File: vi-base.mim</h2><form method="post"><textarea name="content" rows="20" cols="80">;; vi-base.mim -- Provide bases for Vietnamese Input method
;; Copyright (C) 2008, 2009
;;   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 t nil vi-base)

(description &quot;Provide bases for Vietnamese input methods.
This is acutually not a standalone input method, but is expected
to be included in the other Vietnamese input method (e.g. vi-telex, vi-vni).
&quot;)

;; Usage of variables:
;; M (mark): point after the last vowel
;; T (mark): point after the tone-mark-attached vowel
;; TPLACE: On which vowel a tone is attached (0:none, 1:1st, 2:2nd, or 3:3rd)
;; C: The initial consonant
;; V-1: The last vowel
;; V-2: The second from the last vowel (or 0 if there aren&#039;t two vowels)
;; V-3: The third from the last vowel (or 0 if there aren&#039;t three vowels)
;; C-AFTER-V: Number of the final consonants
;; SELECT: Which tone is selected

(macro
 (handle-mark
  ;; At first, cancel the tone mark if already put.
  (move T) (select 0)
  (move M)
  (cond (V-3
	 ;; Tripple-vowel
	 ;; Put a tone mark on the last vowel if it is ê, or ơ.
	 ;; Otherwise put a tone mark on the second vowel.
	 (cond ((| (= V-1 ?ê) (= V-1 ?ơ) (= V-1 ?Ê) (= V-1 ?Ơ))
		(set TPLACE 3))
	       (1 (move @-) (set TPLACE 2))))
	(V-2
	 ;; Double-vowel
	 ;; Put a tone mark on the last vowel in the following cases:
	 ;;  * The last vowel is  â, ă, ê, ô, ơ, ư, or ư (i.e. non-ASCII).
	 ;;  * The initial consonant and the first vowel is &quot;gi&quot; or &quot;qu&quot;.
	 ;;  * tone-mark-on-last is customized to 1 in such equivocal
	 ;;    cases as &quot;oa&quot;, &quot;oe&quot;, &quot;oo&quot;, and &quot;uy&quot;.
	 ;; Otherwise put a tone mark on the first vowel.
	 (cond ((| (&gt; V-1 127)
		   (&amp; (| (= C ?g) (= C ?G)) (| (= V-2 ?i) (= V-2 ?I)))
		   (&amp; (| (= C ?q) (= C ?Q)) (| (= V-2 ?u) (= V-2 ?U)))
		   (&amp; (| tone-mark-on-last (&gt; C-AFTER-V 0))
		      (| (&amp; (| (= V-2 ?o) (= V-2 ?O))
			    (| (= V-1 ?a) (= V-1 ?A) (= V-1 ?e) (= V-1 ?E)
			       (= V-1 ?o) (= V-1 ?O)))
			 (&amp; (| (= V-2 ?u) (= V-2 ?U))
			    (| (= V-1 ?y) (= V-1 ?Y))))))
		(set TPLACE 2))
	       (1 (move @-) (set TPLACE 1))))
	(1 (set TPLACE 1)))
  (select SELECT)
  (mark T)
  (move @&gt;)))

(map
 ;; These must be defined in each input method.
 ;; (vowel-ext)
 ;; (consonant-ext)
 ;; (tone-mark)
 ;; (consonant-or-tone-mark)
 ;; (temporary-escape)

 (vowel
  (&quot;a&quot;  (&quot;aáàảãạ&quot;)) (&quot;A&quot;  (&quot;AÁÀẢÃẠ&quot;))
  (&quot;e&quot;  (&quot;eéèẻẽẹ&quot;)) (&quot;E&quot;  (&quot;EÉÈẺẼẸ&quot;))
  (&quot;i&quot;  (&quot;iíìỉĩị&quot;)) (&quot;I&quot;  (&quot;IÍÌỈĨỊ&quot;))
  (&quot;o&quot;  (&quot;oóòỏõọ&quot;)) (&quot;O&quot;  (&quot;OÓÒỎÕỌ&quot;))
  (&quot;u&quot;  (&quot;uúùủũụ&quot;)) (&quot;U&quot;  (&quot;UÚÙỦŨỤ&quot;))
  (&quot;y&quot;  (&quot;yýỳỷỹỵ&quot;)) (&quot;Y&quot;  (&quot;YÝỲỶỸỴ&quot;)))

 (consonant
  (&quot;b&quot; ?b) (&quot;c&quot; ?c) (&quot;d&quot; ?d) (&quot;g&quot; ?g) (&quot;h&quot; ?h) (&quot;k&quot; ?k) (&quot;l&quot; ?l) (&quot;m&quot; ?m)
  (&quot;n&quot; ?n) (&quot;p&quot; ?p) (&quot;q&quot; ?q) (&quot;t&quot; ?t) (&quot;v&quot; ?v)
  (&quot;B&quot; ?B) (&quot;C&quot; ?C) (&quot;D&quot; ?D) (&quot;G&quot; ?G) (&quot;H&quot; ?H) (&quot;K&quot; ?K) (&quot;L&quot; ?L) (&quot;M&quot; ?M)
  (&quot;N&quot; ?N) (&quot;P&quot; ?P) (&quot;Q&quot; ?Q) (&quot;T&quot; ?T) (&quot;V&quot; ?V))
 ;;Khi cac phu am nay di sau nguyen am thi nen thoat ve tieng Anh
 ;;Should switch to English when these consonants are after any vowel (set temporary-escape)  
 (ending-1st-notviet-consonant ;
  (&quot;q&quot; ?q) (&quot;Q&quot; ?Q) (&quot;d&quot; ?d) (&quot;D&quot; ?D) (&quot;g&quot; ?g) (&quot;G&quot; ?G) (&quot;h&quot; ?h) (&quot;H&quot; ?H)
  (&quot;k&quot; ?k) (&quot;K&quot; ?K) (&quot;l&quot; ?l) (&quot;L&quot; ?L) (&quot;v&quot; ?v) (&quot;V&quot; ?V) (&quot;b&quot; ?b) (&quot;B&quot; ?B) (&quot;z&quot; ?z) (&quot;Z&quot; ?Z))
 ;; These are the consonants that can end a word, anything else is not VNese
 (ending-1st-consonant ; (e.g. tốt, đẹp, xấu)
  (&quot;c&quot; ?c) (&quot;m&quot; ?m) (&quot;n&quot; ?n) (&quot;p&quot; ?p) (&quot;t&quot; ?t)
  (&quot;C&quot; ?C) (&quot;M&quot; ?M) (&quot;N&quot; ?N) (&quot;P&quot; ?P) (&quot;T&quot; ?T))
 (ending-2nd-consonant ; Can only go with &#039;n&#039; or &#039;c&#039; (e.g. sóng, sang, ích)
  (&quot;g&quot; ?g) (&quot;h&quot; ?h)
  (&quot;G&quot; ?G) (&quot;H&quot; ?H))

 (alnum
  (&quot;a&quot; ?a) (&quot;b&quot; ?b) (&quot;c&quot; ?c) (&quot;d&quot; ?d) (&quot;e&quot; ?e) (&quot;f&quot; ?f) (&quot;g&quot; ?g) 
  (&quot;h&quot; ?h) (&quot;i&quot; ?i) (&quot;j&quot; ?j) (&quot;k&quot; ?k) (&quot;l&quot; ?l) (&quot;m&quot; ?m) (&quot;n&quot; ?n)
  (&quot;o&quot; ?o) (&quot;p&quot; ?p) (&quot;q&quot; ?q) (&quot;r&quot; ?r) (&quot;s&quot; ?s) (&quot;t&quot; ?t) (&quot;u&quot; ?u)
  (&quot;v&quot; ?v) (&quot;w&quot; ?w) (&quot;x&quot; ?x) (&quot;y&quot; ?y) (&quot;z&quot; ?z)
  (&quot;A&quot; ?A) (&quot;B&quot; ?B) (&quot;C&quot; ?C) (&quot;D&quot; ?D) (&quot;E&quot; ?E) (&quot;F&quot; ?F) (&quot;G&quot; ?G) 
  (&quot;H&quot; ?H) (&quot;I&quot; ?I) (&quot;J&quot; ?J) (&quot;K&quot; ?K) (&quot;L&quot; ?L) (&quot;M&quot; ?M) (&quot;N&quot; ?N)
  (&quot;O&quot; ?O) (&quot;P&quot; ?P) (&quot;Q&quot; ?Q) (&quot;R&quot; ?R) (&quot;S&quot; ?S) (&quot;T&quot; ?T) (&quot;U&quot; ?U)
  (&quot;V&quot; ?V) (&quot;W&quot; ?W) (&quot;X&quot; ?X) (&quot;Y&quot; ?Y) (&quot;Z&quot; ?Z)
  (&quot;0&quot; ?0) (&quot;1&quot; ?1) (&quot;2&quot; ?2) (&quot;3&quot; ?3) (&quot;4&quot; ?4)
  (&quot;5&quot; ?5) (&quot;6&quot; ?6) (&quot;7&quot; ?7) (&quot;8&quot; ?8) (&quot;9&quot; ?9))

 (smart-quotes
   (&quot;&#039;&quot; ?\&#039;)
   (&quot;&#039;&#039;&quot; &quot;‘’&quot;)
   (&quot;\&quot;&quot; ?\&quot;)
   (&quot;\&quot;\&quot;&quot; &quot;“”&quot;))

 (permanent-escape
  (&quot;\\&quot;))

 (backspace
  ((BackSpace) (cond (backspace-is-undo (undo))))))

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