code.delx.au - gnu-emacs/blob - lisp/language/chinese.el

   1 ;;; chinese.el --- Support for Chinese
   2
   3 ;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN.
   4 ;; Licensed to the Free Software Foundation.
   5
   6 ;; Keywords: multilingual, Chinese
   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 Chinese, three character sets GB2312, BIG5, and CNS11643 are
  28 ;; supported.
  29
  30 ;;; Code:
  31
  32 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  33 ;;; Chinese (general)
  34 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  35
  36 (make-coding-system
  37  'chinese-iso-7bit 2 ?C
  38  "ISO 2022 based 7bit encoding for Chinese GB and CNS (MIME:ISO-2022-CN)"
  39  '(ascii
  40    (nil chinese-gb2312 chinese-cns11643-1)
  41    (nil chinese-cns11643-2)
  42    (nil chinese-cns11643-3 chinese-cns11643-4 chinese-cns11643-5
  43         chinese-cns11643-6 chinese-cns11643-7)
  44    nil ascii-eol ascii-cntl seven locking-shift single-shift nil nil nil
  45    init-bol)
  46  '(ascii chinese-gb2312 chinese-cns11643-1 chinese-cns11643-2
  47          chinese-cns11643-3 chinese-cns11643-4 chinese-cns11643-5
  48          chinese-cns11643-6 chinese-cns11643-7))
  49
  50 (define-coding-system-alias 'iso-2022-cn 'chinese-iso-7bit)
  51 (define-coding-system-alias 'iso-2022-cn-ext 'chinese-iso-7bit)
  52
  53 (define-prefix-command 'describe-chinese-environment-map)
  54 (define-key-after describe-language-environment-map [Chinese]
  55   '("Chinese" . describe-chinese-environment-map)
  56   t)
  57
  58 (define-prefix-command 'setup-chinese-environment-map)
  59 (define-key-after setup-language-environment-map [Chinese]
  60   '("Chinese" . setup-chinese-environment-map)
  61   t)
  62 \f
  63 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  64 ;;; Chinese GB2312 (simplified)
  65 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  66
  67 (make-coding-system
  68  'chinese-iso-8bit 2 ?c
  69  "ISO 2022 based EUC encoding for Chinese GB2312 (MIME:CN-GB-2312)"
  70  '((ascii t) chinese-gb2312 chinese-sisheng nil
  71    nil ascii-eol ascii-cntl nil nil single-shift nil)
  72  '(ascii chinese-gb2312 chinese-sisheng))
  73
  74 (define-coding-system-alias 'cn-gb-2312 'chinese-iso-8bit)
  75 (define-coding-system-alias 'euc-china 'chinese-iso-8bit)
  76 (define-coding-system-alias 'euc-cn 'chinese-iso-8bit)
  77
  78 (make-coding-system
  79  'chinese-hz 0 ?z
  80  "Hz/ZW 7-bit encoding for Chinese GB2312 (MIME:HZ-GB-2312)"
  81  nil
  82  '(ascii chinese-gb2312))
  83 (coding-system-put 'chinese-hz 'post-read-conversion 'post-read-decode-hz)
  84 (coding-system-put 'chinese-hz 'pre-write-conversion 'pre-write-encode-hz)
  85
  86 (define-coding-system-alias 'hz-gb-2312 'chinese-hz)
  87 (define-coding-system-alias 'hz 'chinese-hz)
  88
  89 (defun post-read-decode-hz (len)
  90   (let ((pos (point))
  91         (buffer-modified-p (buffer-modified-p))
  92         last-coding-system-used)
  93     (prog1
  94         (decode-hz-region pos (+ pos len))
  95       (set-buffer-modified-p buffer-modified-p))))
  96
  97 (defun pre-write-encode-hz (from to)
  98   (let ((buf (current-buffer))
  99         (work (get-buffer-create " *pre-write-encoding-work*")))
 100     (set-buffer work)
 101     (erase-buffer)
 102     (if (stringp from)
 103         (insert from)
 104       (insert-buffer-substring buf from to))
 105     (let (last-coding-system-used)
 106       (encode-hz-region 1 (point-max)))
 107     nil))
 108
 109 (set-language-info-alist
 110  "Chinese-GB" '((setup-function . (setup-chinese-gb-environment
 111                                    . setup-chinese-environment-map))
 112                 (charset . (chinese-gb2312 chinese-sisheng))
 113                 (coding-system
 114                  . (chinese-iso-8bit chinese-iso-7bit chinese-hz))
 115                 (sample-text . "Chinese (\e$AVPND\e(B,\e$AFUM(;0\e(B,\e$A::So\e(B)    \e$ADc:C\e(B")
 116                 (documentation . ("Support for Chinese GB2312 character set."
 117                                   . describe-chinese-environment-map))
 118                 ))
 119
 120 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 121 ;; Chinese BIG5 (traditional)
 122 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 123
 124 (make-coding-system
 125  'chinese-big5 3 ?B "BIG5 8-bit encoding for Chinese (MIME:CN-BIG5)"
 126  nil '(chinese-big5-1 chinese-big5-2))
 127
 128 (define-coding-system-alias 'big5 'chinese-big5)
 129 (define-coding-system-alias 'cn-big5 'chinese-big5)
 130
 131 ;; Big5 font requires special encoding.
 132 (define-ccl-program ccl-encode-big5-font
 133   `(0
 134     ;; In:  R0:chinese-big5-1 or chinese-big5-2
 135     ;;      R1:position code 1
 136     ;;      R2:position code 2
 137     ;; Out: R1:font code point 1
 138     ;;      R2:font code point 2
 139     ((r2 = ((((r1 - ?\x21) * 94) + r2) - ?\x21))
 140      (if (r0 == ,(charset-id 'chinese-big5-2)) (r2 += 6280))
 141      (r1 = ((r2 / 157) + ?\xA1))
 142      (r2 %= 157)
 143      (if (r2 < ?\x3F) (r2 += ?\x40) (r2 += ?\x62))))
 144   "CCL program to encode a Big5 code to code point of Big5 font.")
 145
 146 (setq font-ccl-encoder-alist
 147       (cons (cons "big5" ccl-encode-big5-font) font-ccl-encoder-alist))
 148
 149 (set-language-info-alist
 150  "Chinese-BIG5" '((setup-function . (setup-chinese-big5-environment
 151                                      . setup-chinese-environment-map))
 152                   (charset . (chinese-big5-1 chinese-big5-2))
 153                   (coding-system . (chinese-big5 chinese-iso-7bit))
 154                   (sample-text . "Cantonese (\e$(0GnM$\e(B,\e$(0N]0*Hd\e(B) \e$(0*/=(\e(B, \e$(0+$)p\e(B")
 155                   (documentation . ("Support for Chinese Big5 character set."
 156                                     . describe-chinese-environment-map))
 157                   ))
 158
 159 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 160 ;; Chinese CNS11643 (traditional)
 161 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 162
 163 (set-language-info-alist
 164  "Chinese-CNS" '((setup-function . (setup-chinese-cns-environment
 165                                     . setup-chinese-environment-map))
 166                  (charset . (chinese-cns11643-1 chinese-cns11643-2
 167                              chinese-cns11643-3 chinese-cns11643-4
 168                              chinese-cns11643-5 chinese-cns11643-6
 169                              chinese-cns11643-7))
 170                  (coding-system . (chinese-iso-7bit))
 171                  (documentation . ("Support for Chinese CNS character sets."
 172                                    . describe-chinese-environment-map))
 173                  ))
 174
 175 ;;; chinese.el ends here