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

   1 ;;; chinese.el --- Support for Chinese
   2
   3 ;; Copyright (C) 1995 Free Software Foundation, Inc.
   4 ;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN.
   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 'chinese-iso-7bit 'iso-2022-cn)
  48 (define-coding-system-alias 'chinese-iso-7bit 'iso-2022-cn-ext)
  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 'chinese-iso-8bit 'cn-gb-2312)
  71 (define-coding-system-alias 'chinese-iso-8bit 'euc-china)
  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 'chinese-hz 'hz-gb-2312)
  81 (define-coding-system-alias 'chinese-hz '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 (register-input-method
  99  "Chinese-GB" '("quail-ccdospy" quail-use-package "quail/ccdospy"))
 100 (register-input-method
 101  "Chinese-GB" '("quail-ctlau" quail-use-package "quail/ctlau"))
 102 (register-input-method
 103  "Chinese-GB" '("quail-punct" quail-use-package "quail/punct"))
 104 (register-input-method
 105  "Chinese-GB" '("quail-qj" quail-use-package "quail/qj"))
 106 (register-input-method
 107  "Chinese-GB" '("quail-sw" quail-use-package "quail/sw"))
 108 (register-input-method
 109  "Chinese-GB" '("quail-ziranma" quail-use-package "quail/ziranma"))
 110 (register-input-method
 111  "Chinese-GB" '("quail-tonepy" quail-use-package "quail/tonepy"))
 112 (register-input-method
 113  "Chinese-GB" '("quail-py" quail-use-package "quail/py"))
 114
 115 (set-language-info-alist
 116  "Chinese-GB" '((setup-function . (setup-chinese-gb-environment
 117                                    . setup-chinese-environment-map))
 118                 (charset . (chinese-gb2312 chinese-sisheng))
 119                 (coding-system
 120                  . (chinese-iso-8bit chinese-iso-7bit chinese-hz))
 121                 (sample-text . "Chinese (\e$AVPND\e(B,\e$AFUM(;0\e(B,\e$A::So\e(B)    \e$ADc:C\e(B")
 122                 (documentation . ("Support for Chinese GB2312 character set."
 123                                   . describe-chinese-environment-map))
 124                 ))
 125
 126 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 127 ;; Chinese BIG5 (traditional)
 128 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 129
 130 (make-coding-system
 131  'chinese-big5 3 ?B "BIG5 8-bit encoding for Chinese (MIME:CN-BIG5)")
 132
 133 (define-coding-system-alias 'chinese-big5 'big5)
 134 (define-coding-system-alias 'chinese-big5 'cn-big5)
 135
 136 ;; Big5 font requires special encoding.
 137 (define-ccl-program ccl-encode-big5-font
 138   `(0
 139     ;; In:  R0:chinese-big5-1 or chinese-big5-2
 140     ;;      R1:position code 1
 141     ;;      R2:position code 2
 142     ;; Out: R1:font code point 1
 143     ;;      R2:font code point 2
 144     ((r2 = ((((r1 - ?\x21) * 94) + r2) - ?\x21))
 145      (if (r0 == ,(charset-id 'chinese-big5-2)) (r2 += 6280))
 146      (r1 = ((r2 / 157) + ?\xA1))
 147      (r2 %= 157)
 148      (if (r2 < ?\x3F) (r2 += ?\x40) (r2 += ?\x62))))
 149   "CCL program to encode a Big5 code to code point of Big5 font.")
 150
 151 (setq font-ccl-encoder-alist
 152       (cons (cons "big5" ccl-encode-big5-font) font-ccl-encoder-alist))
 153
 154 (register-input-method
 155  "Chinese-BIG5" '("quail-qj-b5" quail-use-package "quail/qj-b5"))
 156 (register-input-method
 157  "Chinese-BIG5" '("quail-zozy" quail-use-package "quail/zozy"))
 158 (register-input-method
 159  "Chinese-BIG5" '("quail-tsangchi-b5" quail-use-package "quail/tsangchi-b5"))
 160 (register-input-method
 161  "Chinese-BIG5" '("quail-py-b5" quail-use-package "quail/py-b5"))
 162 (register-input-method
 163  "Chinese-BIG5" '("quail-quick-b5" quail-use-package "quail/quick-bt"))
 164 (register-input-method
 165  "Chinese-BIG5" '("quail-etzy" quail-use-package "quail/etzy"))
 166 (register-input-method
 167  "Chinese-BIG5" '("quail-ecdict" quail-use-package "quail/ecdict"))
 168 (register-input-method
 169  "Chinese-BIG5" '("quail-ctlaub" quail-use-package "quail/ctlaub"))
 170 (register-input-method
 171  "Chinese-BIG5" '("quail-array30" quail-use-package "quail/array30"))
 172 (register-input-method
 173  "Chinese-BIG5" '("quail-4corner" quail-use-package "quail/4corner"))
 174
 175 (set-language-info-alist
 176  "Chinese-BIG5" '((setup-function . (setup-chinese-big5-environment
 177                                      . setup-chinese-environment-map))
 178                   (charset . (chinese-big5-1 chinese-big5-2))
 179                   (coding-system . (chinese-big5 chinese-iso-7bit))
 180                   (sample-text . "Cantonese (\e$(0GnM$\e(B,\e$(0N]0*Hd\e(B) \e$(0*/=(\e(B, \e$(0+$)p\e(B")
 181                   (documentation . ("Support for Chinese Big5 character set."
 182                                     . describe-chinese-environment-map))
 183                   ))
 184
 185 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 186 ;; Chinese CNS11643 (traditional)
 187 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 188
 189 (register-input-method
 190  "Chinese-CNS" '("quail-quick-cns" quail-use-package "quail/quick-cns"))
 191 (register-input-method
 192  "Chinese-CNS" '("quail-tsangchi-cns" quail-use-package "quail/tsangchi-cns"))
 193
 194 (set-language-info-alist
 195  "Chinese-CNS" '((setup-function . (setup-chinese-cns-environment
 196                                     . setup-chinese-environment-map))
 197                  (charset . (chinese-cns11643-1 chinese-cns11643-2
 198                              chinese-cns11643-3 chinese-cns11643-4
 199                              chinese-cns11643-5 chinese-cns11643-6
 200                              chinese-cns11643-7))
 201                  (coding-system . (chinese-iso-7bit))
 202                  (documentation . ("Support for Chinese CNS character sets."
 203                                    . describe-chinese-environment-map))
 204                  ))
 205
 206 ;;; chinese.el ends here