lisp/mule/viet-ccl.el

   1 ;;; viet-ccl.el --- CCL codes for Vietnamese -*- coding: iso-2022-7bit; -*-
   2
   3 ;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN.
   4 ;; Licensed to the Free Software Foundation.
   5 ;; Copyright (C) 1997,2000 MORIOKA Tomohiko
   6
   7 ;; Keywords: CCL, MULE, multilingual, Vietnamese
   8
   9 ;; This file is part of XEmacs.
  10
  11 ;; XEmacs is free software; you can redistribute it and/or modify it
  12 ;; under the terms of the GNU General Public License as published by
  13 ;; the Free Software Foundation; either version 2, or (at your option)
  14 ;; any later version.
  15
  16 ;; XEmacs is distributed in the hope that it will be useful, but
  17 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
  18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  19 ;; General Public License for more details.
  20
  21 ;; You should have received a copy of the GNU General Public License
  22 ;; along with XEmacs; see the file COPYING.  If not, write to the Free
  23 ;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
  24 ;; 02111-1307, USA.
  25
  26 ;;; Commentary:
  27
  28 ;; For Vietnames, the character sets VISCII and VSCII are supported.
  29
  30 ;;; Code:
  31
  32 (eval-and-compile
  33
  34 (defvar viet-viscii-decode-table
  35   [;; VISCII is a full 8-bit code.
  36    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
  37    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
  38    32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47
  39    48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63
  40    64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79
  41    80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95
  42    96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111
  43    112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127
  44    ?\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
  45    ?\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,D]\e(B ?\e,2x\e(B ?\e,2O\e(B
  46    ?\e,AU\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
  47    ?\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
  48    ?\e,A@\e(B ?\e,AA\e(B ?\e,AB\e(B ?\e,AC\e(B ?\e,2d\e(B ?\e,BC\e(B ?\e,1F\e(B ?\e,1G\e(B ?\e,AH\e(B ?\e,AI\e(B ?\e,AJ\e(B ?\e,2k\e(B ?\e,AL\e(B ?\e,AM\e(B ?\e,D%\e(B ?\e,1O\e(B
  49    ?\e,BP\e(B ?\e,1Q\e(B ?\e,AR\e(B ?\e,AS\e(B ?\e,AT\e(B ?\e,1U\e(B ?\e,1V\e(B ?\e,1W\e(B ?\e,1X\e(B ?\e,AY\e(B ?\e,AZ\e(B ?\e,1[\e(B ?\e,1\\e(B ?\e,A]\e(B ?\e,1^\e(B ?\e,1_\e(B
  50    ?\e,A`\e(B ?\e,Aa\e(B ?\e,Ab\e(B ?\e,Ac\e(B ?\e,1d\e(B ?\e,Bc\e(B ?\e,1f\e(B ?\e,1g\e(B ?\e,Ah\e(B ?\e,Ai\e(B ?\e,Aj\e(B ?\e,1k\e(B ?\e,Al\e(B ?\e,Am\e(B ?\e,D5\e(B ?\e,1o\e(B
  51    ?\e,Bp\e(B ?\e,1q\e(B ?\e,Ar\e(B ?\e,As\e(B ?\e,At\e(B ?\e,Au\e(B ?\e,1v\e(B ?\e,1w\e(B ?\e,1x\e(B ?\e,Ay\e(B ?\e,Az\e(B ?\e,D}\e(B ?\e,1|\e(B ?\e,A}\e(B ?\e,1~\e(B ?\e,2f\e(B ]
  52   "Vietnamese VISCII decoding table.")
  53
  54 (defvar viet-viscii-encode-table
  55   (let ((table-lower (make-vector 128 0))
  56         (table-upper (make-vector 128 0))
  57         (i 0)
  58         char-component)
  59     (while (< i 256)
  60       (setq char-component
  61             (split-char (aref viet-viscii-decode-table i)))
  62       (cond ((eq (car char-component) 'vietnamese-viscii-lower)
  63              (aset table-lower (nth 1 char-component) i))
  64             ((eq (car char-component) 'vietnamese-viscii-upper)
  65              (aset table-upper (nth 1 char-component) i)))
  66       (setq i (1+ i)))
  67     (cons table-lower table-upper))
  68   "Vietnamese VISCII encoding table.
  69 Cons of tables for encoding lower-case chars and upper-case characters.
  70 Both tables are indexed by the position code of Vietnamese characters.")
  71
  72 (defvar viet-vscii-decode-table
  73   [;; VSCII is a full 8-bit code.
  74    0 ?\e,AZ\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
  75    16 ?\e,2Q\e(B ?\e,2_\e(B ?\e,2O\e(B ?\e,2V\e(B ?\e,2[\e(B ?\e,A]\e(B ?\e,2\\e(B 24 25 26 27 28 29 30 31
  76    32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47
  77    48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63
  78    64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79
  79    80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95
  80    96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111
  81    112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127
  82    ?\e,A@\e(B ?\e,2d\e(B ?\e,AC\e(B ?\e,AA\e(B ?\e,2U\e(B ?\e,2#\e(B ?\e,2'\e(B ?\e,AH\e(B ?\e,2k\e(B ?\e,2(\e(B ?\e,AI\e(B ?\e,2)\e(B ?\e,2.\e(B ?\e,AL\e(B ?\e,2o\e(B ?\e,D%\e(B
  83    ?\e,AM\e(B ?\e,28\e(B ?\e,AR\e(B ?\e,2v\e(B ?\e,AU\e(B ?\e,AS\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,AY\e(B ?\e,2|\e(B ?\e,D]\e(B
  84    160 ?\e,BC\e(B ?\e,AB\e(B ?\e,AJ\e(B ?\e,AT\e(B ?\e,2=\e(B ?\e,2_\e(B ?\e,BP\e(B ?\e,Bc\e(B ?\e,Ab\e(B ?\e,Aj\e(B ?\e,At\e(B ?\e,1>\e(B ?\e,Ay\e(B ?\e,Bp\e(B ?\e,2"\e(B
  85    192 193 194 195 196 ?\e,A`\e(B ?\e,1d\e(B ?\e,Ac\e(B ?\e,Aa\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
  86    ?\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,Ah\e(B ?\e,2,\e(B ?\e,1k\e(B ?\e,1(\e(B
  87    ?\e,Ai\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,Al\e(B ?\e,1o\e(B ?\e,2-\e(B ?\e,2*\e(B ?\e,20\e(B ?\e,D5\e(B ?\e,Am\e(B ?\e,18\e(B ?\e,Ar\e(B
  88    ?\e,21\e(B ?\e,1v\e(B ?\e,Au\e(B ?\e,As\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,Ay\e(B
  89    ?\e,22\e(B ?\e,1|\e(B ?\e,D}\e(B ?\e,Az\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,A}\e(B ?\e,1\\e(B ?\e,2/\e(B]
  90   "Vietnamese VSCII decoding table.")
  91
  92 (defvar viet-vscii-encode-table
  93   (let ((table-lower (make-vector 128 0))
  94         (table-upper (make-vector 128 0))
  95         (i 0)
  96         char-component)
  97     (while (< i 256)
  98       (setq char-component
  99             (split-char (aref viet-vscii-decode-table i)))
 100       (cond ((eq (car char-component) 'vietnamese-viscii-lower)
 101              (aset table-lower (nth 1 char-component) i))
 102             ((eq (car char-component) 'vietnamese-viscii-upper)
 103              (aset table-upper (nth 1 char-component) i)))
 104       (setq i (1+ i)))
 105     (cons table-lower table-upper))
 106   "Vietnamese VSCII encoding table.
 107 Cons of tables for encoding lower-case chars and upper-case characters.
 108 Both tables are indexed by the position code of Vietnamese characters.")
 109
 110 )
 111
 112 (define-ccl-program ccl-decode-viscii
 113   `(3
 114     ((read r0)
 115      (loop
 116       (write-read-repeat r0 ,viet-viscii-decode-table))
 117      ))
 118   "CCL program to decode VISCII 1.1")
 119
 120 ;; Multibyte form of a Vietnamese character is as follows (3-byte):
 121 ;;   LEADING-CODE-PRIVATE-11 LEADING-CODE-EXTENDED-11 POSITION-CODE
 122 ;; where LEADING-CODE-EXTENDED-11 for Vietnamese is
 123 ;; `vietnamese-viscii-lower' or `vietnamese-viscii-upper'.
 124
 125 (define-ccl-program ccl-encode-viscii
 126   `(1
 127      ((read r0)
 128       (loop
 129        (if (r0 < 128)
 130            ;; ASCII
 131            (write-read-repeat r0)
 132          ;; not ASCII
 133          (if (r0 != ,leading-code-private-11)
 134              ;; not Vietnamese
 135              (write-read-repeat r0)
 136            ((read-if (r0 == ,(charset-id 'vietnamese-viscii-lower))
 137              (;; Vietnamese lower
 138               (read r0)
 139               (r0 -= 128)
 140               (write-read-repeat r0 ,(car viet-viscii-encode-table)))
 141              (if (r0 == ,(charset-id 'vietnamese-viscii-upper))
 142                  (;; Vietnamese upper
 143                   (read r0)
 144                   (r0 -= 128)
 145                   (write-read-repeat r0 ,(cdr viet-viscii-encode-table)))
 146                ;; not Vietnamese
 147                (write-read-repeat r0)))))))))
 148   "CCL program to encode VISCII 1.1")
 149
 150 (define-ccl-program ccl-encode-viscii-font
 151   `(0
 152     ;; In:  R0:vietnamese-viscii-lower/vietnamese-viscii-upper
 153     ;;      R1:position code
 154     ;; Out: R1:font code point
 155     (if (r0 == ,(charset-id 'vietnamese-viscii-lower))
 156         (r1 = r1 ,(car viet-viscii-encode-table))
 157       (r1 = r1 ,(cdr viet-viscii-encode-table)))
 158     )
 159   "CCL program to encode Vietnamese chars to VISCII 1.1 font")
 160
 161 (define-ccl-program ccl-decode-vscii
 162   `(3
 163     ((read r0)
 164      (loop
 165       (write-read-repeat r0 ,viet-vscii-decode-table))
 166      ))
 167   "CCL program to decode VSCII-1.")
 168
 169 (define-ccl-program ccl-encode-vscii
 170   `(1
 171     ((read r0)
 172      (loop
 173       (if (r0 < 128)
 174           ;; ASCII
 175           (write-read-repeat r0)
 176         ;; not ASCII
 177         (if (r0 != ,leading-code-private-11)
 178             ;; not Vietnamese
 179             (write-read-repeat r0)
 180           (read-if (r0 == ,(charset-id 'vietnamese-viscii-lower))
 181                    (;; Vietnamese lower
 182                     (read r0)
 183                     (r0 -= 128)
 184                     (write-read-repeat r0 ,(car viet-vscii-encode-table)))
 185                    (if (r0 == ,(charset-id 'vietnamese-viscii-upper))
 186                        (;; Vietnamese upper
 187                         (read r0)
 188                         (r0 -= 128)
 189                         (write-read-repeat r0 ,(cdr viet-vscii-encode-table)))
 190                      ;; not Vietnamese
 191                      (write-read-repeat r0))))))))
 192   "CCL program to encode VSCII-1.")
 193
 194 (define-ccl-program ccl-encode-vscii-font
 195   `(0
 196     ;; In:  R0:vietnamese-viscii-lower/vietnamese-viscii-upper
 197     ;;      R1:position code
 198     ;; Out: R1:font code point
 199     (if (r0 == ,(charset-id 'vietnamese-viscii-lower))
 200         (r1 = r1 ,(car viet-vscii-encode-table))
 201       (r1 = r1 ,(cdr viet-vscii-encode-table)))
 202     )
 203   "CCL program to encode Vietnamese chars to VSCII-1 font.")
 204
 205
 206 (make-coding-system
 207  'viscii 'ccl
 208  "Coding-system used for VISCII 1.1."
 209  `(mnemonic "VISCII"
 210    decode ccl-decode-viscii
 211    encode ccl-encode-viscii))
 212
 213 ;; it is not correct, but XEmacs doesn't have `ccl' category...
 214 (coding-system-put 'viscii 'category 'iso-8-1)
 215
 216 ;; (make-coding-system
 217 ;;  'vietnamese-viscii 4 ?V
 218 ;;  "8-bit encoding for Vietnamese VISCII 1.1 (MIME:VISCII)"
 219 ;;  '(ccl-decode-viscii . ccl-encode-viscii)
 220 ;;  '((safe-charsets ascii vietnamese-viscii-lower vietnamese-viscii-upper)
 221 ;;    (mime-charset . viscii)
 222 ;;    (valid-codes (0 . 255))))
 223
 224 ;; (define-coding-system-alias 'viscii 'vietnamese-viscii)
 225
 226 (make-coding-system
 227  'vscii 'ccl
 228  "Coding-system used for VSCII 1.1."
 229  `(mnemonic "VSCII"
 230    decode ccl-decode-vscii
 231    encode ccl-encode-vscii))
 232
 233 ;; (make-coding-system
 234 ;;  'vietnamese-vscii 4 ?v
 235 ;;  "8-bit encoding for Vietnamese VSCII-1"
 236 ;;  '(ccl-decode-vscii . ccl-encode-vscii)
 237 ;;  '((safe-charsets ascii vietnamese-viscii-lower vietnamese-viscii-upper)
 238 ;;    (valid-codes (0 . 255))))
 239
 240 ;; (define-coding-system-alias 'vscii 'vietnamese-vscii)
 241
 242 ;; For VISCII users
 243 (set-charset-ccl-program 'vietnamese-viscii-lower
 244                          'ccl-encode-viscii-font)
 245 (set-charset-ccl-program 'vietnamese-viscii-upper
 246                          'ccl-encode-viscii-font)
 247 ;; For VSCII users
 248 (set-charset-ccl-program 'vietnamese-viscii-lower 'ccl-encode-vscii-font)
 249 (set-charset-ccl-program 'vietnamese-viscii-upper 'ccl-encode-vscii-font)
 250
 251 ;; (setq font-ccl-encoder-alist
 252 ;;       (cons (cons "viscii" ccl-encode-viscii-font) font-ccl-encoder-alist))
 253
 254 ;; (setq font-ccl-encoder-alist
 255 ;;       (cons (cons "vscii" ccl-encode-vscii-font) font-ccl-encoder-alist))
 256
 257 ;; (defvar viet-viscii-nonascii-translation-table
 258 ;;   (make-translation-table-from-vector viet-viscii-decode-table)
 259 ;;   "Value of `nonascii-translation-table' in Vietnamese language environment.")
 260
 261 ;;; viet-ccl.el ends here