("oo" ("ôốồổỗộ")) ("OO" ("ÔỐỒỔỖỘ")) ("Oo" ("ÔỐỒỔỖỘ"))
("ow" ("ơớờởỡợ")) ("OW" ("ƠỚỜỞỠỢ")) ("Ow" ("ƠỚỜỞỠỢ"))
("uw" ("ưứừửữự")) ("UW" ("ƯỨỪỬỮỰ")) ("Uw" ("ƯỨỪỬỮỰ"))
- ("w" ("ưứừửữự")) ("W" ("ƯỨỪỬỮỰ"))
+ ("w" (cond ((= V-1 0) ("ưứừửữự")) (1 "w"))) ; Works when it's the
+ ("W" (cond ((= V-1 0) ("ƯỨỪỬỮỰ")) (1 "W"))) ; first vowel (not seư)
("ooo" ("oóòỏõọ") ("oóòỏõọ") (set V-2 V-1) (set V-1 ?o))
("OOO" ("OÓÒỎÕỌ") ("OÓÒỎÕỌ") (set V-2 V-1) (set V-1 ?O))
("Ooo" ("OÓÒỎÕỌ") ("oóòỏõọ") (set V-2 V-1) (set V-1 ?O)))
(consonant-ext
("dd" ?đ) ("DD" ?Đ) ("Dd" ?Đ))
+ ;("dd" (cond ((= C-AFTER-V 0) "dd") (1 ?đ))) ; Works when
+ ;("DD" (cond ((= C-AFTER-V 0) "DD") (1 ?Đ))) ; it is the first
+ ;("Dd" (cond ((= C-AFTER-V 0) "Dd") (1 ?Đ)))) ; letter (not ađ)
(tone-mark
("z" (set SELECT 0) ?z) ("Z" (set SELECT 0) ?Z)
(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.
+ ;; 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 SELECT 0) (set NST (= @-0 -2)))
- (consonant (set C @-1))
- (consonant-ext (set C @-1))
- (consonant-or-tone-mark (set C @-1))
+ (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)))
+ (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
- (consonant (shift after-vc))
- (consonant-ext (shift after-vc))
+ (ending-1st-consonant (handle-mark) (shift after-vc)) ; toans/toasn->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 ((> TPLACE 2) (set SELECT 0))))
+ (cond ((> TPLACE 2) (set SELECT 0)))
+ (handle-mark))
(V-2 (set V-1 V-2) (set V-2 0)
- (cond ((> TPLACE 1) (set SELECT 0))))
+ (cond ((> 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))
- (consonant (add C-AFTER-V 1))
- (consonant-ext (add 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.