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