1 ;;; vietnamese.el --- support for Vietnamese -*- coding: iso-2022-7bit; -*-
3 ;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN.
4 ;; Licensed to the Free Software Foundation.
6 ;; Keywords: multilingual, Vietnamese
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.
27 ;; For Vietnames, the character sets VISCII, VSCII and TCVN-5712 are
32 (defvar viet-viscii-decode-table
33 [;; VISCII is a full 8-bit code.
34 0 1 ?
\e,2F
\e(B 3 4 ?
\e,2G
\e(B ?
\e,2g
\e(B 7 8 9 10 11 12 13 14 15
35 16 17 18 19 ?
\e,2V
\e(B 21 22 23 24 ?
\e,2[
\e(B 26 27 28 29 ?
\e,2\
\e(B 31
36 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47
37 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63
38 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79
39 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95
40 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111
41 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127
42 ?
\e,2U
\e(B ?
\e,2!
\e(B ?
\e,2"
\e(B ?
\e,2#
\e(B ?
\e,2$
\e(B ?
\e,2%
\e(B ?
\e,2&
\e(B ?
\e,2'
\e(B ?
\e,2(
\e(B ?
\e,2)
\e(B ?
\e,2*
\e(B ?
\e,2+
\e(B ?
\e,2,
\e(B ?
\e,2-
\e(B ?
\e,2.
\e(B ?
\e,2/
\e(B
43 ?
\e,20
\e(B ?
\e,21
\e(B ?
\e,22
\e(B ?
\e,25
\e(B ?
\e,2~
\e(B ?
\e,2>
\e(B ?
\e,26
\e(B ?
\e,27
\e(B ?
\e,28
\e(B ?
\e,2v
\e(B ?
\e,2w
\e(B ?
\e,2o
\e(B ?
\e,2|
\e(B ?
\e,2{
\e(B ?
\e,2x
\e(B ?
\e,2O
\e(B
44 ?
\e,2u
\e(B ?
\e,1!
\e(B ?
\e,1"
\e(B ?
\e,1#
\e(B ?
\e,1$
\e(B ?
\e,1%
\e(B ?
\e,1&
\e(B ?
\e,1'
\e(B ?
\e,1(
\e(B ?
\e,1)
\e(B ?
\e,1*
\e(B ?
\e,1+
\e(B ?
\e,1,
\e(B ?
\e,1-
\e(B ?
\e,1.
\e(B ?
\e,1/
\e(B
45 ?
\e,10
\e(B ?
\e,11
\e(B ?
\e,12
\e(B ?
\e,2^
\e(B ?
\e,2=
\e(B ?
\e,15
\e(B ?
\e,16
\e(B ?
\e,17
\e(B ?
\e,18
\e(B ?
\e,2q
\e(B ?
\e,2Q
\e(B ?
\e,2W
\e(B ?
\e,2X
\e(B ?
\e,1=
\e(B ?
\e,1>
\e(B ?
\e,2_
\e(B
46 ?
\e,2`
\e(B ?
\e,2a
\e(B ?
\e,2b
\e(B ?
\e,2c
\e(B ?
\e,2d
\e(B ?
\e,2e
\e(B ?
\e,1F
\e(B ?
\e,1G
\e(B ?
\e,2h
\e(B ?
\e,2i
\e(B ?
\e,2j
\e(B ?
\e,2k
\e(B ?
\e,2l
\e(B ?
\e,2m
\e(B ?
\e,2n
\e(B ?
\e,1O
\e(B
47 ?
\e,2p
\e(B ?
\e,1Q
\e(B ?
\e,2r
\e(B ?
\e,2s
\e(B ?
\e,2t
\e(B ?
\e,1U
\e(B ?
\e,1V
\e(B ?
\e,1W
\e(B ?
\e,1X
\e(B ?
\e,2y
\e(B ?
\e,2z
\e(B ?
\e,1[
\e(B ?
\e,1\
\e(B ?
\e,2}
\e(B ?
\e,1^
\e(B ?
\e,1_
\e(B
48 ?
\e,1`
\e(B ?
\e,1a
\e(B ?
\e,1b
\e(B ?
\e,1c
\e(B ?
\e,1d
\e(B ?
\e,1e
\e(B ?
\e,1f
\e(B ?
\e,1g
\e(B ?
\e,1h
\e(B ?
\e,1i
\e(B ?
\e,1j
\e(B ?
\e,1k
\e(B ?
\e,1l
\e(B ?
\e,1m
\e(B ?
\e,1n
\e(B ?
\e,1o
\e(B
49 ?
\e,1p
\e(B ?
\e,1q
\e(B ?
\e,1r
\e(B ?
\e,1s
\e(B ?
\e,1t
\e(B ?
\e,1u
\e(B ?
\e,1v
\e(B ?
\e,1w
\e(B ?
\e,1x
\e(B ?
\e,1y
\e(B ?
\e,1z
\e(B ?
\e,1{
\e(B ?
\e,1|
\e(B ?
\e,1}
\e(B ?
\e,1~
\e(B ?
\e,2f
\e(B ]
50 "Vietnamese VISCII decoding table.")
52 (let ((table (make-translation-table-from-vector viet-viscii-decode-table)))
53 (define-translation-table 'viet-viscii-nonascii-translation-table table)
54 (define-translation-table 'viet-viscii-encode-table
55 (char-table-extra-slot table 0)))
58 ;;; VSCII is a pre-version of TCVN-5712 and deprecated
60 (defvar viet-vscii-decode-table
61 [;; VSCII is a full 8-bit code.
62 0 ?
\e,2z
\e(B ?
\e,2x
\e(B 3 ?
\e,2W
\e(B ?
\e,2X
\e(B ?
\e,2f
\e(B 7 8 9 10 11 12 13 14 15
63 16 ?
\e,2Q
\e(B ?
\e,2_
\e(B ?
\e,2O
\e(B ?
\e,2V
\e(B ?
\e,2[
\e(B ?
\e,2}
\e(B ?
\e,2\
\e(B 24 25 26 27 28 29 30 31
64 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47
65 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63
66 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79
67 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95
68 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111
69 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127
70 ?
\e,2`
\e(B ?
\e,2d
\e(B ?
\e,2c
\e(B ?
\e,2a
\e(B ?
\e,2U
\e(B ?
\e,2#
\e(B ?
\e,2'
\e(B ?
\e,2h
\e(B ?
\e,2k
\e(B ?
\e,2(
\e(B ?
\e,2i
\e(B ?
\e,2)
\e(B ?
\e,2.
\e(B ?
\e,2l
\e(B ?
\e,2o
\e(B ?
\e,2n
\e(B
71 ?
\e,2m
\e(B ?
\e,28
\e(B ?
\e,2r
\e(B ?
\e,2v
\e(B ?
\e,2u
\e(B ?
\e,2s
\e(B ?
\e,2w
\e(B ?
\e,25
\e(B ?
\e,26
\e(B ?
\e,27
\e(B ?
\e,2^
\e(B ?
\e,2>
\e(B ?
\e,2~
\e(B ?
\e,2y
\e(B ?
\e,2|
\e(B ?
\e,2{
\e(B
72 160 ?
\e,2e
\e(B ?
\e,2b
\e(B ?
\e,2j
\e(B ?
\e,2t
\e(B ?
\e,2=
\e(B ?
\e,2_
\e(B ?
\e,2p
\e(B ?
\e,1e
\e(B ?
\e,1b
\e(B ?
\e,1j
\e(B ?
\e,1t
\e(B ?
\e,1=
\e(B ?
\e,1y
\e(B ?
\e,1p
\e(B ?
\e,2"
\e(B
73 192 193 194 195 196 ?
\e,1`
\e(B ?
\e,1d
\e(B ?
\e,1c
\e(B ?
\e,1a
\e(B ?
\e,1U
\e(B ?
\e,2F
\e(B ?
\e,1"
\e(B ?
\e,1F
\e(B ?
\e,1G
\e(B ?
\e,1!
\e(B ?
\e,2G
\e(B
74 ?
\e,2!
\e(B ?
\e,2%
\e(B ?
\e,2&
\e(B ?
\e,2g
\e(B ?
\e,2%
\e(B ?
\e,2+
\e(B ?
\e,1#
\e(B ?
\e,1%
\e(B ?
\e,1&
\e(B ?
\e,1g
\e(B ?
\e,1$
\e(B ?
\e,1'
\e(B ?
\e,1h
\e(B ?
\e,2,
\e(B ?
\e,1k
\e(B ?
\e,1(
\e(B
75 ?
\e,1i
\e(B ?
\e,1)
\e(B ?
\e,1+
\e(B ?
\e,1,
\e(B ?
\e,1-
\e(B ?
\e,1*
\e(B ?
\e,1.
\e(B ?
\e,1l
\e(B ?
\e,1o
\e(B ?
\e,2-
\e(B ?
\e,2*
\e(B ?
\e,20
\e(B ?
\e,1n
\e(B ?
\e,1m
\e(B ?
\e,18
\e(B ?
\e,1r
\e(B
76 ?
\e,21
\e(B ?
\e,1v
\e(B ?
\e,1u
\e(B ?
\e,1s
\e(B ?
\e,1w
\e(B ?
\e,10
\e(B ?
\e,11
\e(B ?
\e,12
\e(B ?
\e,1/
\e(B ?
\e,15
\e(B ?
\e,16
\e(B ?
\e,17
\e(B ?
\e,1^
\e(B ?
\e,1>
\e(B ?
\e,1~
\e(B ?
\e,1y
\e(B
77 ?
\e,22
\e(B ?
\e,1|
\e(B ?
\e,1{
\e(B ?
\e,1z
\e(B ?
\e,1x
\e(B ?
\e,1W
\e(B ?
\e,1X
\e(B ?
\e,1f
\e(B ?
\e,1Q
\e(B ?
\e,1q
\e(B ?
\e,1O
\e(B ?
\e,1V
\e(B ?
\e,1[
\e(B ?
\e,1}
\e(B ?
\e,1\
\e(B ?
\e,2/
\e(B]
78 "Vietnamese VSCII decoding table.")
80 (let ((table (make-translation-table-from-vector viet-vscii-decode-table)))
81 (define-translation-table 'viet-vscii-nonascii-translation-table table)
82 (define-translation-table 'viet-vscii-encode-table
83 (char-table-extra-slot table 0)))
85 ;; Does not support combining characters in the range [176, 180]
86 (defvar viet-tcvn-decode-table
87 [;; TCVN is a full 8-bit code.
88 0 ?
\e,2z
\e(B ?
\e,2x
\e(B 3 ?
\e,2W
\e(B ?
\e,2X
\e(B ?
\e,2f
\e(B 7 8 9 10 11 12 13 14 15
89 16 ?
\e,2Q
\e(B ?
\e,2q
\e(B ?
\e,2O
\e(B ?
\e,2V
\e(B ?
\e,2[
\e(B ?
\e,2}
\e(B ?
\e,2\
\e(B 24 25 26 27 28 29 30 31
90 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47
91 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63
92 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79
93 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95
94 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111
95 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127
96 ?
\e,2`
\e(B ?
\e,2d
\e(B ?
\e,2c
\e(B ?
\e,2a
\e(B ?
\e,2U
\e(B ?
\e,2#
\e(B ?
\e,2'
\e(B ?
\e,2h
\e(B ?
\e,2k
\e(B ?
\e,2(
\e(B ?
\e,2i
\e(B ?
\e,2)
\e(B ?
\e,2.
\e(B ?
\e,2l
\e(B ?
\e,2o
\e(B ?
\e,2n
\e(B
97 ?
\e,2m
\e(B ?
\e,28
\e(B ?
\e,2r
\e(B ?
\e,2v
\e(B ?
\e,2u
\e(B ?
\e,2s
\e(B ?
\e,2w
\e(B ?
\e,25
\e(B ?
\e,26
\e(B ?
\e,27
\e(B ?
\e,2^
\e(B ?
\e,2>
\e(B ?
\e,2~
\e(B ?
\e,2y
\e(B ?
\e,2|
\e(B ?
\e,2{
\e(B
98 160 ?
\e,2e
\e(B ?
\e,2b
\e(B ?
\e,2j
\e(B ?
\e,2t
\e(B ?
\e,2=
\e(B ?
\e,2_
\e(B ?
\e,2p
\e(B ?
\e,1e
\e(B ?
\e,1b
\e(B ?
\e,1j
\e(B ?
\e,1t
\e(B ?
\e,1=
\e(B ?
\e,1_
\e(B ?
\e,1p
\e(B ?
\e,2"
\e(B
99 176 177 178 179 180 ?
\e,1`
\e(B ?
\e,1d
\e(B ?
\e,1c
\e(B ?
\e,1a
\e(B ?
\e,1U
\e(B ?
\e,2F
\e(B ?
\e,1"
\e(B ?
\e,1F
\e(B ?
\e,1G
\e(B ?
\e,1!
\e(B ?
\e,2G
\e(B
100 ?
\e,2!
\e(B ?
\e,2%
\e(B ?
\e,2&
\e(B ?
\e,2g
\e(B ?
\e,2$
\e(B ?
\e,2+
\e(B ?
\e,1#
\e(B ?
\e,1%
\e(B ?
\e,1&
\e(B ?
\e,1g
\e(B ?
\e,1$
\e(B ?
\e,1'
\e(B ?
\e,1h
\e(B ?
\e,2,
\e(B ?
\e,1k
\e(B ?
\e,1(
\e(B
101 ?
\e,1i
\e(B ?
\e,1)
\e(B ?
\e,1+
\e(B ?
\e,1,
\e(B ?
\e,1-
\e(B ?
\e,1*
\e(B ?
\e,1.
\e(B ?
\e,1l
\e(B ?
\e,1o
\e(B ?
\e,2-
\e(B ?
\e,2*
\e(B ?
\e,20
\e(B ?
\e,1n
\e(B ?
\e,1m
\e(B ?
\e,18
\e(B ?
\e,1r
\e(B
102 ?
\e,21
\e(B ?
\e,1v
\e(B ?
\e,1u
\e(B ?
\e,1s
\e(B ?
\e,1w
\e(B ?
\e,10
\e(B ?
\e,11
\e(B ?
\e,12
\e(B ?
\e,1/
\e(B ?
\e,15
\e(B ?
\e,16
\e(B ?
\e,17
\e(B ?
\e,1^
\e(B ?
\e,1>
\e(B ?
\e,1~
\e(B ?
\e,1y
\e(B
103 ?
\e,22
\e(B ?
\e,1|
\e(B ?
\e,1{
\e(B ?
\e,1z
\e(B ?
\e,1x
\e(B ?
\e,1W
\e(B ?
\e,1X
\e(B ?
\e,1f
\e(B ?
\e,1Q
\e(B ?
\e,1q
\e(B ?
\e,1O
\e(B ?
\e,1V
\e(B ?
\e,1[
\e(B ?
\e,1}
\e(B ?
\e,1\
\e(B ?
\e,2/
\e(B]
104 "Vietnamese TCVN-5712 decoding table.")
106 (let ((table (make-translation-table-from-vector viet-tcvn-decode-table)))
107 (define-translation-table 'viet-tcvn-nonascii-translation-table table)
108 (define-translation-table 'viet-tcvn-encode-table
109 (char-table-extra-slot table 0)))
111 ;; (defvar viet-vps-decode-table
112 ;; [;; VPS is a full 8-bit code.
113 ;; 0 1 ?
\e,2U
\e(B ?
\e,2'
\e(B ?
\e,2#
\e(B ?
\e,2)
\e(B ?
\e,2.
\e(B 7 8 9 10 11 12 13 14 15
114 ;; ?
\e,28
\e(B ?
\e,2w
\e(B ?
\e,25
\e(B ?
\e,2~
\e(B ?
\e,2x
\e(B ?
\e,2q
\e(B 22 23 24 ?
\e,2\
\e(B 26 27 ?
\e,2g
\e(B ?
\e,2f
\e(B 30 31
115 ;; 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47
116 ;; 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63
117 ;; 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79
118 ;; 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95
119 ;; 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111
120 ;; 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127
121 ;; ?
\e,2`
\e(B ?
\e,2d
\e(B ?
\e,2c
\e(B ?
\e,2$
\e(B ?
\e,2%
\e(B ?
\e,2&
\e(B ?
\e,1w
\e(B ?
\e,12
\e(B ?
\e,2e
\e(B ?
\e,1*
\e(B ?
\e,1+
\e(B ?
\e,1,
\e(B ?
\e,1.
\e(B ?
\e,2!
\e(B ?
\e,2"
\e(B ?
\e,2F
\e(B
122 ;; ?
\e,2*
\e(B 145 146 ?
\e,2+
\e(B ?
\e,2,
\e(B ?
\e,2-
\e(B ?
\e,2/
\e(B ?
\e,20
\e(B ?
\e,21
\e(B ?
\e,22
\e(B ?
\e,1}
\e(B ?
\e,1V
\e(B ?
\e,1\
\e(B ?
\e,2>
\e(B ?
\e,26
\e(B ?
\e,27
\e(B
123 ;; 160 ?
\e,1!
\e(B ?
\e,1"
\e(B ?
\e,1F
\e(B ?
\e,1G
\e(B ?
\e,1#
\e(B ?
\e,2^
\e(B ?
\e,1>
\e(B ?
\e,2y
\e(B ?
\e,16
\e(B ?
\e,17
\e(B ?
\e,1^
\e(B ?
\e,2{
\e(B ?
\e,2Q
\e(B ?
\e,1~
\e(B ?
\e,2W
\e(B
124 ;; ?
\e,11
\e(B ?
\e,2X
\e(B ?
\e,2O
\e(B ?
\e,2[
\e(B ?
\e,2m
\e(B ?
\e,2l
\e(B ?
\e,15
\e(B ?
\e,2o
\e(B ?
\e,2n
\e(B ?
\e,2s
\e(B ?
\e,1X
\e(B ?
\e,1f
\e(B ?
\e,2r
\e(B ?
\e,2v
\e(B ?
\e,2u
\e(B ?
\e,1q
\e(B
125 ;; ?
\e,1%
\e(B ?
\e,2a
\e(B ?
\e,2b
\e(B ?
\e,1$
\e(B ?
\e,1&
\e(B ?
\e,1g
\e(B ?
\e,1'
\e(B ?
\e,1p
\e(B ?
\e,1k
\e(B ?
\e,2i
\e(B ?
\e,2j
\e(B ?
\e,1)
\e(B ?
\e,1o
\e(B ?
\e,1-
\e(B ?
\e,18
\e(B ?
\e,1[
\e(B
126 ;; ?
\e,2_
\e(B ?
\e,2|
\e(B ?
\e,10
\e(B ?
\e,1/
\e(B ?
\e,2t
\e(B ?
\e,1v
\e(B ?
\e,1=
\e(B ?
\e,2h
\e(B ?
\e,1W
\e(B ?
\e,1Q
\e(B ?
\e,2z
\e(B ?
\e,1{
\e(B ?
\e,1_
\e(B ?
\e,2}
\e(B ?
\e,2k
\e(B 223
127 ;; ?
\e,1`
\e(B ?
\e,1a
\e(B ?
\e,1b
\e(B ?
\e,1c
\e(B ?
\e,1d
\e(B ?
\e,1U
\e(B ?
\e,1e
\e(B 231 ?
\e,1h
\e(B ?
\e,1i
\e(B ?
\e,1j
\e(B ?
\e,1(
\e(B ?
\e,1l
\e(B ?
\e,1m
\e(B 238 ?
\e,1n
\e(B
128 ;; ?
\e,2G
\e(B ?
\e,2p
\e(B ?
\e,1r
\e(B ?
\e,1s
\e(B ?
\e,1t
\e(B ?
\e,1u
\e(B 246 ?
\e,2=
\e(B ?
\e,1x
\e(B ?
\e,1y
\e(B ?
\e,1z
\e(B ?
\e,1|
\e(B 252 ?
\e,2V
\e(B ?
\e,2(
\e(B ?
\e,1O
\e(B]
129 ;; "Vietnamese VPS decoding table.")
131 ;; (let ((table (make-translation-table-from-vector viet-vps-decode-table)))
132 ;; (define-translation-table 'viet-vps-nonascii-translation-table table)
133 ;; (define-translation-table 'viet-vps-encode-table
134 ;; (char-table-extra-slot table 0)))
136 (define-ccl-program ccl-decode-viscii
141 (translate-character viet-viscii-nonascii-translation-table r0 r1)
142 (write-multibyte-character r0 r1)
144 "CCL program to decode VISCII 1.1")
146 (define-ccl-program ccl-encode-viscii
149 (read-multibyte-character r0 r1)
150 (translate-character viet-viscii-encode-table r0 r1)
152 "CCL program to encode VISCII 1.1")
154 (define-ccl-program ccl-encode-viscii-font
156 ;; In: R0:vietnamese-viscii-lower/vietnamese-viscii-upper
158 ;; Out: R1:font code point
159 (translate-character viet-viscii-encode-table r0 r1))
160 "CCL program to encode Vietnamese chars to VISCII 1.1 font")
162 (define-ccl-program ccl-decode-vscii
167 (translate-character viet-vscii-nonascii-translation-table r0 r1)
168 (write-multibyte-character r0 r1)
170 "CCL program to decode VSCII-1.")
172 (define-ccl-program ccl-encode-vscii
175 (read-multibyte-character r0 r1)
176 (translate-character viet-vscii-encode-table r0 r1)
178 "CCL program to encode VSCII-1.")
180 (define-ccl-program ccl-encode-vscii-font
182 ;; In: R0:vietnamese-viscii-lower/vietnamese-viscii-upper
184 ;; Out: R1:font code point
185 (translate-character viet-vscii-encode-table r0 r1))
186 "CCL program to encode Vietnamese chars to VSCII-1 font.")
188 (define-ccl-program ccl-decode-tcvn
193 (translate-character viet-tcvn-nonascii-translation-table r0 r1)
194 (write-multibyte-character r0 r1)
196 "CCL program to decode TCVN-5712.")
198 (define-ccl-program ccl-encode-tcvn
201 (read-multibyte-character r0 r1)
202 (translate-character viet-tcvn-encode-table r0 r1)
204 "CCL program to encode TCVN-5712.")
206 (define-ccl-program ccl-encode-tcvn-font
208 ;; In: R0:vietnamese-viscii-lower/vietnamese-viscii-upper
210 ;; Out: R1:font code point
211 (translate-character viet-tcvn-encode-table r0 r1))
212 "CCL program to encode Vietnamese chars to TCVN-5712 font.")
214 ;; (define-ccl-program ccl-decode-vps
219 ;; (translate-character viet-vps-nonascii-translation-table r0 r1)
220 ;; (write-multibyte-character r0 r1)
222 ;; "CCL program to decode VPS.")
224 ;; (define-ccl-program ccl-encode-vps
227 ;; (read-multibyte-character r0 r1)
228 ;; (translate-character viet-vps-encode-table r0 r1)
229 ;; (write-repeat r1))))
230 ;; "CCL program to encode VPS.")
232 ;; (define-ccl-program ccl-encode-vps-font
234 ;; ;; In: R0:vietnamese-viscii-lower/vietnamese-viscii-upper
235 ;; ;; R1:position code
236 ;; ;; Out: R1:font code point
237 ;; (translate-character viet-vps-encode-table r0 r1))
238 ;; "CCL program to encode Vietnamese chars to VPS font.")
241 'vietnamese-viscii 4 ?V
242 "8-bit encoding for Vietnamese VISCII 1.1 (MIME:VISCII)"
243 '(ccl-decode-viscii . ccl-encode-viscii)
244 '((safe-charsets ascii vietnamese-viscii-lower vietnamese-viscii-upper)
245 (mime-charset . viscii)
246 (valid-codes (0 . 255))))
248 (define-coding-system-alias 'viscii 'vietnamese-viscii)
251 'vietnamese-vscii 4 ?v
252 "8-bit encoding for Vietnamese VSCII-1"
253 '(ccl-decode-vscii . ccl-encode-vscii)
254 '((safe-charsets ascii vietnamese-viscii-lower vietnamese-viscii-upper)
255 (valid-codes (0 . 255))))
257 (define-coding-system-alias 'vscii 'vietnamese-vscii)
260 'vietnamese-tcvn 4 ?t
261 "8-bit encoding for Vietnamese TCVN-5712"
262 '(ccl-decode-tcvn . ccl-encode-tcvn)
263 '((safe-charsets ascii vietnamese-viscii-lower vietnamese-viscii-upper)
264 (valid-codes (0 . 255))))
266 (define-coding-system-alias 'tcvn 'vietnamese-tcvn)
268 ;; (make-coding-system
269 ;; 'vietnamese-vps 4 ?p
270 ;; "8-bit encoding for Vietnamese VPS"
271 ;; '(ccl-decode-vps . ccl-encode-vps)
272 ;; '((safe-charsets ascii vietnamese-viscii-lower vietnamese-viscii-upper)
273 ;; (valid-codes (0 . 255))))
275 ;; (define-coding-system-alias 'vps 'vietnamese-vps)
278 'vietnamese-viqr 0 ?q
279 "Vietnamese latin transcription (VIQR)"
281 '((safe-charsets ascii vietnamese-viscii-lower vietnamese-viscii-upper)
282 (post-read-conversion . viqr-post-read-conversion)
283 (pre-write-conversion . viqr-pre-write-conversion)
284 (charset-origin-alist
285 (vietnamese-viscii-lower "VISCII" viet-encode-viscii-char)
286 (vietnamese-viscii-upper "VISCII" viet-encode-viscii-char))))
289 (define-coding-system-alias 'viqr 'vietnamese-viqr)
291 (setq font-ccl-encoder-alist
292 (cons '("viscii" . ccl-encode-viscii-font) font-ccl-encoder-alist))
294 (setq font-ccl-encoder-alist
295 (cons '("vscii" . ccl-encode-vscii-font) font-ccl-encoder-alist))
297 (setq font-ccl-encoder-alist
298 (cons '("tcvn" . ccl-encode-tcvn-font) font-ccl-encoder-alist))
300 (set-language-info-alist
301 "Vietnamese" `((charset vietnamese-viscii-lower vietnamese-viscii-upper)
302 (nonascii-translation
303 . ,(get 'viet-viscii-nonascii-translation-table
305 (coding-system vietnamese-viscii vietnamese-vscii vietnamese-tcvn
307 (coding-priority vietnamese-viscii)
308 (input-method . "vietnamese-viqr")
309 (unibyte-display . vietnamese-viscii)
311 (sample-text . "Vietnamese (Ti
\e,1*
\e(Bng Vi
\e,1.
\e(Bt) Ch
\e,1`
\e(Bo b
\e,1U
\e(Bn")
313 For Vietnamese, Emacs uses special charsets internally.
314 They can be decoded from and encoded to VISCII, VSCII, TCVN-5712, and
315 VIQR. VSCII is deprecated in favour of TCVN-5712. Current setting
316 puts higher priority to the coding system VISCII than TCVN-5712. If
317 you prefer TCVN-5712, please do: (prefer-coding-system 'vietnamese-tcvn).
318 There are two Vietnamese input methods: VIQR and Telex, VIQR is the
322 (provide 'vietnamese)
324 ;;; vietnamese.el ends here