lisp/language/vietnamese.el

   1 ;;; vietnamese.el --- Support for Vietnamese -*- coding: iso-2022-7bit; -*-
   2
   3 ;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN.
   4 ;; Licensed to the Free Software Foundation.
   5
   6 ;; Keywords: multilingual, Vietnamese
   7
   8 ;; This file is part of GNU Emacs.
   9
  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)
  13 ;; any later version.
  14
  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.
  19
  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.
  24
  25 ;;; Commentary:
  26
  27 ;; For Vietnames, the character sets VISCII and VSCII are supported.
  28
  29 ;;; Code:
  30
  31 (eval-and-compile
  32
  33 (defvar viet-viscii-decode-table
  34   [;; VISCII is a full 8-bit code.
  35    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
  36    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
  37    32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47
  38    48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63
  39    64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79
  40    80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95
  41    96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111
  42    112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127
  43    ?\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
  44    ?\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
  45    ?\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
  46    ?\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
  47    ?\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
  48    ?\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
  49    ?\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
  50    ?\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 ]
  51   "Vietnamese VISCII decoding table.")
  52
  53 (defvar viet-viscii-encode-table
  54   (let ((table-lower (make-vector 128 0))
  55         (table-upper (make-vector 128 0))
  56         (i 0)
  57         char-component)
  58     (while (< i 256)
  59       (setq char-component (split-char (aref viet-viscii-decode-table i)))
  60       (cond ((eq (car char-component) 'vietnamese-viscii-lower)
  61              (aset table-lower (nth 1 char-component) i))
  62             ((eq (car char-component) 'vietnamese-viscii-upper)
  63              (aset table-upper (nth 1 char-component) i)))
  64       (setq i (1+ i)))
  65     (cons table-lower table-upper))
  66   "Vietnamese VISCII encoding table.
  67 Cons of tables for encoding lower-case chars and upper-case characters.
  68 Both tables are indexed by the position code of Vietnamese characters.")
  69
  70 (defvar viet-vscii-decode-table
  71   [;; VSCII is a full 8-bit code.
  72    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
  73    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
  74    32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47
  75    48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63
  76    64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79
  77    80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95
  78    96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111
  79    112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127
  80    ?\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
  81    ?\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
  82    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
  83    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
  84    ?\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
  85    ?\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
  86    ?\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
  87    ?\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]
  88   "Vietnamese VSCII decoding table.")
  89
  90 (defvar viet-vscii-encode-table
  91   (let ((table-lower (make-vector 128 0))
  92         (table-upper (make-vector 128 0))
  93         (i 0)
  94         char-component)
  95     (while (< i 256)
  96       (setq char-component (split-char (aref viet-vscii-decode-table i)))
  97       (cond ((eq (car char-component) 'vietnamese-viscii-lower)
  98              (aset table-lower (nth 1 char-component) i))
  99             ((eq (car char-component) 'vietnamese-viscii-upper)
 100              (aset table-upper (nth 1 char-component) i)))
 101       (setq i (1+ i)))
 102     (cons table-lower table-upper))
 103   "Vietnamese VSCII encoding table.
 104 Cons of tables for encoding lower-case chars and upper-case characters.
 105 Both tables are indexed by the position code of Vietnamese characters.")
 106
 107 )
 108
 109 (define-ccl-program ccl-decode-viscii
 110   `(3
 111     ((read r0)
 112      (loop
 113       (write-read-repeat r0 ,viet-viscii-decode-table))
 114      ))
 115   "CCL program to decode VISCII 1.1")
 116
 117 ;; Multibyte form of a Vietnamese character is as follows (3-byte):
 118 ;;   LEADING-CODE-PRIVATE-11 LEADING-CODE-EXTENDED-11 POSITION-CODE
 119 ;; where LEADING-CODE-EXTENDED-11 for Vietnamese is
 120 ;; `vietnamese-viscii-lower' or `vietnamese-viscii-upper'.
 121
 122 (define-ccl-program ccl-encode-viscii
 123   `(1
 124      ((read r0)
 125       (loop
 126        (if (r0 < 128)
 127            ;; ASCII
 128            (write-read-repeat r0)
 129          ;; not ASCII
 130          (if (r0 != ,leading-code-private-11)
 131              ;; not Vietnamese
 132              (write-read-repeat r0)
 133            ((read-if (r0 == ,(charset-id 'vietnamese-viscii-lower))
 134              (;; Vietnamese lower
 135               (read r0)
 136               (r0 -= 128)
 137               (write-read-repeat r0 ,(car viet-viscii-encode-table)))
 138              (if (r0 == ,(charset-id 'vietnamese-viscii-upper))
 139                  (;; Vietnamese upper
 140                   (read r0)
 141                   (r0 -= 128)
 142                   (write-read-repeat r0 ,(cdr viet-viscii-encode-table)))
 143                ;; not Vietnamese
 144                (write-read-repeat r0)))))))))
 145   "CCL program to encode VISCII 1.1")
 146
 147 (define-ccl-program ccl-encode-viscii-font
 148   `(0
 149     ;; In:  R0:vietnamese-viscii-lower/vietnamese-viscii-upper
 150     ;;      R1:position code
 151     ;; Out: R1:font code point
 152     (if (r0 == ,(charset-id 'vietnamese-viscii-lower))
 153         (r1 = r1 ,(car viet-viscii-encode-table))
 154       (r1 = r1 ,(cdr viet-viscii-encode-table)))
 155     )
 156   "CCL program to encode Vietnamese chars to VISCII 1.1 font")
 157
 158 (define-ccl-program ccl-decode-vscii
 159   `(3
 160     ((read r0)
 161      (loop
 162       (write-read-repeat r0 ,viet-vscii-decode-table))
 163      ))
 164   "CCL program to decode VSCII-1.")
 165
 166 (define-ccl-program ccl-encode-vscii
 167   `(1
 168     ((read r0)
 169      (loop
 170       (if (r0 < 128)
 171           ;; ASCII
 172           (write-read-repeat r0)
 173         ;; not ASCII
 174         (if (r0 != ,leading-code-private-11)
 175             ;; not Vietnamese
 176             (write-read-repeat r0)
 177           (read-if (r0 == ,(charset-id 'vietnamese-viscii-lower))
 178                    (;; Vietnamese lower
 179                     (read r0)
 180                     (r0 -= 128)
 181                     (write-read-repeat r0 ,(car viet-vscii-encode-table)))
 182                    (if (r0 == ,(charset-id 'vietnamese-viscii-upper))
 183                        (;; Vietnamese upper
 184                         (read r0)
 185                         (r0 -= 128)
 186                         (write-read-repeat r0 ,(cdr viet-vscii-encode-table)))
 187                      ;; not Vietnamese
 188                      (write-read-repeat r0))))))))
 189   "CCL program to encode VSCII-1.")
 190
 191 (define-ccl-program ccl-encode-vscii-font
 192   `(0
 193     ;; In:  R0:vietnamese-viscii-lower/vietnamese-viscii-upper
 194     ;;      R1:position code
 195     ;; Out: R1:font code point
 196     (if (r0 == ,(charset-id 'vietnamese-viscii-lower))
 197         (r1 = r1 ,(car viet-vscii-encode-table))
 198       (r1 = r1 ,(cdr viet-vscii-encode-table)))
 199     )
 200   "CCL program to encode Vietnamese chars to VSCII-1 font.")
 201
 202
 203 (make-coding-system
 204  'vietnamese-viscii 4 ?V
 205  "8-bit encoding for Vietnamese VISCII 1.1 (MIME:VISCII)"
 206  '(ccl-decode-viscii . ccl-encode-viscii)
 207  '((safe-charsets ascii vietnamese-viscii-lower vietnamese-viscii-upper)
 208    (mime-charset . viscii)
 209    (valid-codes (0 . 255))))
 210
 211 (define-coding-system-alias 'viscii 'vietnamese-viscii)
 212
 213 (make-coding-system
 214  'vietnamese-vscii 4 ?v
 215  "8-bit encoding for Vietnamese VSCII-1"
 216  '(ccl-decode-vscii . ccl-encode-vscii)
 217  '((safe-charsets ascii vietnamese-viscii-lower vietnamese-viscii-upper)
 218    (valid-codes (0 . 255))))
 219
 220 (define-coding-system-alias 'vscii 'vietnamese-vscii)
 221
 222 (make-coding-system
 223  'vietnamese-viqr 0 ?q
 224  "Vietnamese latin transcription (VIQR)"
 225  nil
 226  '((safe-charsets ascii vietnamese-viscii-lower vietnamese-viscii-upper)
 227    (post-read-conversion . viqr-post-read-conversion)
 228    (pre-write-conversion . viqr-pre-write-conversion)
 229    (charset-origin-alist
 230     (vietnamese-viscii-lower "VISCII" viet-encode-viscii-char)
 231     (vietnamese-viscii-upper "VISCII" viet-encode-viscii-char))))
 232
 233
 234 (define-coding-system-alias 'viqr 'vietnamese-viqr)
 235
 236 (setq font-ccl-encoder-alist
 237       (cons (cons "viscii" ccl-encode-viscii-font) font-ccl-encoder-alist))
 238
 239 (setq font-ccl-encoder-alist
 240       (cons (cons "vscii" ccl-encode-vscii-font) font-ccl-encoder-alist))
 241
 242 (defvar viet-viscii-nonascii-translation-table
 243   (make-translation-table-from-vector viet-viscii-decode-table)
 244   "Value of `nonascii-translation-table' in Vietnamese language environment.")
 245
 246 (set-language-info-alist
 247  "Vietnamese" `((charset vietnamese-viscii-lower vietnamese-viscii-upper)
 248                 (nonascii-translation
 249                  . ,viet-viscii-nonascii-translation-table)
 250                 (coding-system vietnamese-viscii vietnamese-vscii
 251                                vietnamese-viqr)
 252                 (coding-priority vietnamese-viscii)
 253                 (input-method . "vietnamese-viqr")
 254                 (unibyte-display . vietnamese-viscii)
 255                 (features viet-util)
 256                 (sample-text . "Vietnamese (Ti\e,1*\e(Bng Vi\e,1.\e(Bt)     Ch\e,1`\e(Bo b\e,1U\e(Bn")
 257                 (documentation . "\
 258 For Vietnamese, Emacs uses special charasets internally.
 259 They can be decoded from and encoded to VISCC, VSCII, and VIQR.
 260 Current setting put higher priority to the coding system VISCII than VSCII.
 261 If you prefer VSCII, please do: (prefer-coding-system 'vietnamese-vscii)")
 262                 ))
 263
 264 ;;; vietnamese.el ends here