1 ;;; chinese.el --- support for Chinese -*- coding: iso-2022-7bit; -*-
3 ;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN.
4 ;; Licensed to the Free Software Foundation.
6 ;; Keywords: multilingual, Chinese
8 ;; This file is part of GNU Emacs.
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)
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.
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.
27 ;; For Chinese, three character sets GB2312, BIG5, and CNS11643 are
32 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
34 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
38 "ISO 2022 based 7bit encoding for Chinese GB and CNS (MIME:ISO-2022-CN)"
40 (nil chinese-gb2312 chinese-cns11643-1)
41 (nil chinese-cns11643-2)
43 nil ascii-eol ascii-cntl seven locking-shift single-shift nil nil nil
45 '((safe-charsets ascii chinese-gb2312 chinese-cns11643-1 chinese-cns11643-2)
46 (mime-charset . iso-2022-cn)))
48 (define-coding-system-alias 'chinese-iso-7bit 'iso-2022-cn)
52 "ISO 2022 based 7bit encoding for Chinese GB and CNS (MIME:ISO-2022-CN-EXT)"
54 (nil chinese-gb2312 chinese-cns11643-1)
55 (nil chinese-cns11643-2)
56 (nil chinese-cns11643-3 chinese-cns11643-4 chinese-cns11643-5
57 chinese-cns11643-6 chinese-cns11643-7)
58 nil ascii-eol ascii-cntl seven locking-shift single-shift nil nil nil
60 '((safe-charsets ascii chinese-gb2312 chinese-cns11643-1 chinese-cns11643-2
61 chinese-cns11643-3 chinese-cns11643-4 chinese-cns11643-5
62 chinese-cns11643-6 chinese-cns11643-7)
63 (mime-charset . iso-2022-cn-ext)))
66 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
67 ;;; Chinese GB2312 (simplified)
68 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
71 'chinese-iso-8bit 2 ?c
72 "ISO 2022 based EUC encoding for Chinese GB2312 (MIME:GB2312)"
73 '(ascii chinese-gb2312 nil nil
74 nil ascii-eol ascii-cntl nil nil nil nil)
75 '((safe-charsets ascii chinese-gb2312)
76 (mime-charset . gb2312)))
78 (define-coding-system-alias 'cn-gb-2312 'chinese-iso-8bit)
79 (define-coding-system-alias 'euc-china 'chinese-iso-8bit)
80 (define-coding-system-alias 'euc-cn 'chinese-iso-8bit)
81 (define-coding-system-alias 'cn-gb 'chinese-iso-8bit)
82 (define-coding-system-alias 'gb2312 'chinese-iso-8bit)
86 "Hz/ZW 7-bit encoding for Chinese GB2312 (MIME:HZ-GB-2312)"
88 '((safe-charsets ascii chinese-gb2312)
89 (mime-charset . hz-gb-2312)
90 (post-read-conversion . post-read-decode-hz)
91 (pre-write-conversion . pre-write-encode-hz)))
93 (define-coding-system-alias 'hz-gb-2312 'chinese-hz)
94 (define-coding-system-alias 'hz 'chinese-hz)
96 (defun post-read-decode-hz (len)
98 (buffer-modified-p (buffer-modified-p))
99 last-coding-system-used)
101 (decode-hz-region pos (+ pos len))
102 (set-buffer-modified-p buffer-modified-p))))
104 (defun pre-write-encode-hz (from to)
105 (let ((buf (current-buffer)))
106 (set-buffer (generate-new-buffer " *temp*"))
109 (insert-buffer-substring buf from to))
110 (let (last-coding-system-used)
111 (encode-hz-region 1 (point-max)))
114 (set-language-info-alist
115 "Chinese-GB" '((charset chinese-gb2312 chinese-sisheng)
116 (coding-system chinese-iso-8bit iso-2022-cn chinese-hz)
117 (coding-priority chinese-iso-8bit chinese-big5 iso-2022-cn)
118 (input-method . "chinese-py-punct")
119 (features china-util)
120 (sample-text . "Chinese (
\e$AVPND
\e(B,
\e$AFUM(;0
\e(B,
\e$A::So
\e(B)
\e$ADc:C
\e(B")
121 (documentation . "Support for Chinese GB2312 character set."))
124 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
125 ;; Chinese BIG5 (traditional)
126 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
129 'chinese-big5 3 ?B "BIG5 8-bit encoding for Chinese (MIME:Big5)"
131 '((safe-charsets ascii chinese-big5-1 chinese-big5-2)
132 (mime-charset . big5)
133 (charset-origin-alist (chinese-big5-1 "BIG5" encode-big5-char)
134 (chinese-big5-2 "BIG5" encode-big5-char))))
136 (define-coding-system-alias 'big5 'chinese-big5)
137 (define-coding-system-alias 'cn-big5 'chinese-big5)
139 ;; Big5 font requires special encoding.
140 (define-ccl-program ccl-encode-big5-font
142 ;; In: R0:chinese-big5-1 or chinese-big5-2
143 ;; R1:position code 1
144 ;; R2:position code 2
145 ;; Out: R1:font code point 1
146 ;; R2:font code point 2
147 ((r2 = ((((r1 - ?\x21) * 94) + r2) - ?\x21))
148 (if (r0 == ,(charset-id 'chinese-big5-2)) (r2 += 6280))
149 (r1 = ((r2 / 157) + ?\xA1))
151 (if (r2 < ?\x3F) (r2 += ?\x40) (r2 += ?\x62))))
152 "CCL program to encode a Big5 code to code point of Big5 font.")
154 (setq font-ccl-encoder-alist
155 (cons (cons "big5" ccl-encode-big5-font) font-ccl-encoder-alist))
157 (set-language-info-alist
158 "Chinese-BIG5" '((charset chinese-big5-1 chinese-big5-2)
159 (coding-system chinese-big5 chinese-iso-7bit)
160 (coding-priority chinese-big5 iso-2022-cn chinese-iso-8bit)
161 (input-method . "chinese-py-punct-b5")
162 (features china-util)
163 (sample-text . "Cantonese (
\e$(0GnM$
\e(B,
\e$(0N]0*Hd
\e(B)
\e$(0*/=(
\e(B,
\e$(0+$)p
\e(B")
164 (documentation . "Support for Chinese Big5 character set."))
167 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
168 ;; Chinese CNS11643 (traditional)
169 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
171 (set-language-info-alist
172 "Chinese-CNS" '((charset chinese-cns11643-1 chinese-cns11643-2
173 chinese-cns11643-3 chinese-cns11643-4
174 chinese-cns11643-5 chinese-cns11643-6
176 (coding-system iso-2022-cn)
177 (coding-priority iso-2022-cn chinese-big5 chinese-iso-8bit)
178 (features china-util)
179 (input-method . "chinese-cns-quick")
180 (documentation . "Support for Chinese CNS character sets."))
185 ;;; chinese.el ends here