38 |
64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 |
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 |
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 |
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 |
112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 |
42 |
?,2U(B ?,2!(B ?,2"(B ?,2#(B ?,2$(B ?,2%(B ?,2&(B ?,2'(B ?,2((B ?,2)(B ?,2*(B ?,2+(B ?,2,(B ?,2-(B ?,2.(B ?,2/(B |
?,2U(B ?,2!(B ?,2"(B ?,2#(B ?,2$(B ?,2%(B ?,2&(B ?,2'(B ?,2((B ?,2)(B ?,2*(B ?,2+(B ?,2,(B ?,2-(B ?,2.(B ?,2/(B |
43 |
?,20(B ?,21(B ?,22(B ?,25(B ?,2~(B ?,2>(B ?,26(B ?,27(B ?,28(B ?,2v(B ?,2w(B ?,2o(B ?,2|(B ?,2{(B ?,2x(B ?,2O(B |
?,20(B ?,21(B ?,22(B ?,25(B ?,2~(B ?,2>(B ?,26(B ?,27(B ?,28(B ?,2v(B ?,2w(B ?,2o(B ?,2|(B ?,2{(B ?,2x(B ?,2O(B |
44 |
?,2u(B ?,1!(B ?,1"(B ?,1#(B ?,1$(B ?,1%(B ?,1&(B ?,1'(B ?,1((B ?,1)(B ?,1*(B ?,1+(B ?,1,(B ?,1-(B ?,1.(B ?,1/(B |
?,2u(B ?,1!(B ?,1"(B ?,1#(B ?,1$(B ?,1%(B ?,1&(B ?,1'(B ?,1((B ?,1)(B ?,1*(B ?,1+(B ?,1,(B ?,1-(B ?,1.(B ?,1/(B |
66 |
64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 |
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 |
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 |
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 |
112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 |
70 |
?,2`(B ?,2d(B ?,2c(B ?,2a(B ?,2U(B ?,2#(B ?,2'(B ?,2h(B ?,2k(B ?,2((B ?,2i(B ?,2)(B ?,2.(B ?,2l(B ?,2o(B ?,2n(B |
?,2`(B ?,2d(B ?,2c(B ?,2a(B ?,2U(B ?,2#(B ?,2'(B ?,2h(B ?,2k(B ?,2((B ?,2i(B ?,2)(B ?,2.(B ?,2l(B ?,2o(B ?,2n(B |
71 |
?,2m(B ?,28(B ?,2r(B ?,2v(B ?,2u(B ?,2s(B ?,2w(B ?,25(B ?,26(B ?,27(B ?,2^(B ?,2>(B ?,2~(B ?,2y(B ?,2|(B ?,2{(B |
?,2m(B ?,28(B ?,2r(B ?,2v(B ?,2u(B ?,2s(B ?,2w(B ?,25(B ?,26(B ?,27(B ?,2^(B ?,2>(B ?,2~(B ?,2y(B ?,2|(B ?,2{(B |
72 |
160 ?,2e(B ?,2b(B ?,2j(B ?,2t(B ?,2=(B ?,2_(B ?,2p(B ?,1e(B ?,1b(B ?,1j(B ?,1t(B ?,1=(B ?,1y(B ?,1p(B ?,2"(B |
160 ?,2e(B ?,2b(B ?,2j(B ?,2t(B ?,2=(B ?,2_(B ?,2p(B ?,1e(B ?,1b(B ?,1j(B ?,1t(B ?,1=(B ?,1y(B ?,1p(B ?,2"(B |
92 |
64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 |
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 |
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 |
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 |
112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 |
96 |
?,2`(B ?,2d(B ?,2c(B ?,2a(B ?,2U(B ?,2#(B ?,2'(B ?,2h(B ?,2k(B ?,2((B ?,2i(B ?,2)(B ?,2.(B ?,2l(B ?,2o(B ?,2n(B |
?,2`(B ?,2d(B ?,2c(B ?,2a(B ?,2U(B ?,2#(B ?,2'(B ?,2h(B ?,2k(B ?,2((B ?,2i(B ?,2)(B ?,2.(B ?,2l(B ?,2o(B ?,2n(B |
97 |
?,2m(B ?,28(B ?,2r(B ?,2v(B ?,2u(B ?,2s(B ?,2w(B ?,25(B ?,26(B ?,27(B ?,2^(B ?,2>(B ?,2~(B ?,2y(B ?,2|(B ?,2{(B |
?,2m(B ?,28(B ?,2r(B ?,2v(B ?,2u(B ?,2s(B ?,2w(B ?,25(B ?,26(B ?,27(B ?,2^(B ?,2>(B ?,2~(B ?,2y(B ?,2|(B ?,2{(B |
98 |
160 ?,2e(B ?,2b(B ?,2j(B ?,2t(B ?,2=(B ?,2_(B ?,2p(B ?,1e(B ?,1b(B ?,1j(B ?,1t(B ?,1=(B ?,1_(B ?,1p(B ?,2"(B |
160 ?,2e(B ?,2b(B ?,2j(B ?,2t(B ?,2=(B ?,2_(B ?,2p(B ?,1e(B ?,1b(B ?,1j(B ?,1t(B ?,1=(B ?,1_(B ?,1p(B ?,2"(B |
127 |
;; ?,1`(B ?,1a(B ?,1b(B ?,1c(B ?,1d(B ?,1U(B ?,1e(B 231 ?,1h(B ?,1i(B ?,1j(B ?,1((B ?,1l(B ?,1m(B 238 ?,1n(B |
;; ?,1`(B ?,1a(B ?,1b(B ?,1c(B ?,1d(B ?,1U(B ?,1e(B 231 ?,1h(B ?,1i(B ?,1j(B ?,1((B ?,1l(B ?,1m(B 238 ?,1n(B |
128 |
;; ?,2G(B ?,2p(B ?,1r(B ?,1s(B ?,1t(B ?,1u(B 246 ?,2=(B ?,1x(B ?,1y(B ?,1z(B ?,1|(B 252 ?,2V(B ?,2((B ?,1O(B] |
;; ?,2G(B ?,2p(B ?,1r(B ?,1s(B ?,1t(B ?,1u(B 246 ?,2=(B ?,1x(B ?,1y(B ?,1z(B ?,1|(B 252 ?,2V(B ?,2((B ?,1O(B] |
129 |
;; "Vietnamese VPS decoding table.") |
;; "Vietnamese VPS decoding table.") |
130 |
;; |
;; |
131 |
;; (let ((table (make-translation-table-from-vector viet-vps-decode-table))) |
;; (let ((table (make-translation-table-from-vector viet-vps-decode-table))) |
132 |
;; (define-translation-table 'viet-vps-nonascii-translation-table table) |
;; (define-translation-table 'viet-vps-nonascii-translation-table table) |
133 |
;; (define-translation-table 'viet-vps-encode-table |
;; (define-translation-table 'viet-vps-encode-table |
220 |
;; (write-multibyte-character r0 r1) |
;; (write-multibyte-character r0 r1) |
221 |
;; (repeat)))) |
;; (repeat)))) |
222 |
;; "CCL program to decode VPS.") |
;; "CCL program to decode VPS.") |
223 |
;; |
;; |
224 |
;; (define-ccl-program ccl-encode-vps |
;; (define-ccl-program ccl-encode-vps |
225 |
;; `(1 |
;; `(1 |
226 |
;; ((loop |
;; ((loop |
228 |
;; (translate-character viet-vps-encode-table r0 r1) |
;; (translate-character viet-vps-encode-table r0 r1) |
229 |
;; (write-repeat r1)))) |
;; (write-repeat r1)))) |
230 |
;; "CCL program to encode VPS.") |
;; "CCL program to encode VPS.") |
231 |
;; |
;; |
232 |
;; (define-ccl-program ccl-encode-vps-font |
;; (define-ccl-program ccl-encode-vps-font |
233 |
;; `(0 |
;; `(0 |
234 |
;; ;; In: R0:vietnamese-viscii-lower/vietnamese-viscii-upper |
;; ;; In: R0:vietnamese-viscii-lower/vietnamese-viscii-upper |
271 |
;; '(ccl-decode-vps . ccl-encode-vps) |
;; '(ccl-decode-vps . ccl-encode-vps) |
272 |
;; '((safe-charsets ascii vietnamese-viscii-lower vietnamese-viscii-upper) |
;; '((safe-charsets ascii vietnamese-viscii-lower vietnamese-viscii-upper) |
273 |
;; (valid-codes (0 . 255)))) |
;; (valid-codes (0 . 255)))) |
274 |
;; |
;; |
275 |
;; (define-coding-system-alias 'vps 'vietnamese-vps) |
;; (define-coding-system-alias 'vps 'vietnamese-vps) |
276 |
|
|
277 |
(make-coding-system |
(make-coding-system |
310 |
(features viet-util) |
(features viet-util) |
311 |
(sample-text . "Vietnamese (Ti,1*(Bng Vi,1.(Bt) Ch,1`(Bo b,1U(Bn") |
(sample-text . "Vietnamese (Ti,1*(Bng Vi,1.(Bt) Ch,1`(Bo b,1U(Bn") |
312 |
(documentation . "\ |
(documentation . "\ |
313 |
For Vietnamese, Emacs uses special charasets internally. |
For Vietnamese, Emacs uses special charsets internally. |
314 |
They can be decoded from and encoded to VISCII, VSCII, TCVN-5712, and |
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 |
VIQR. VSCII is deprecated in favour of TCVN-5712. Current setting |
316 |
put higher priority to the coding system VISCII than TCVN-5712. If |
puts higher priority to the coding system VISCII than TCVN-5712. If |
317 |
you prefer TCVN-5712, please do: (prefer-coding-system 'vietnamese-tcvn). |
you prefer TCVN-5712, please do: (prefer-coding-system 'vietnamese-tcvn). |
318 |
There are two Vietnamese input methods: VIQR and Telex, VIQR is the |
There are two Vietnamese input methods: VIQR and Telex, VIQR is the |
319 |
default setting.") |
default setting.") |