Mercurial > emacs
view lisp/language/china-util.el @ 20310:b6fd8353113b
(doprnt1): Declare `charbuf' as unsigned char.
author | Andreas Schwab <schwab@suse.de> |
---|---|
date | Fri, 21 Nov 1997 14:48:34 +0000 |
parents | c42eb695ebcd |
children | f510736ce3d1 |
line wrap: on
line source
;;; china-util.el --- utilities for Chinese ;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN. ;; Licensed to the Free Software Foundation. ;; Keywords: mule, multilingual, Chinese ;; This file is part of GNU Emacs. ;; GNU Emacs is free software; you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by ;; the Free Software Foundation; either version 2, or (at your option) ;; any later version. ;; GNU Emacs is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ;; along with GNU Emacs; see the file COPYING. If not, write to the ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. ;;; Code: ;;;###autoload (defun setup-chinese-gb-environment () "Setup multilingual environment (MULE) for Chinese GB2312 users." (interactive) (setup-english-environment) (set-default-coding-systems 'chinese-iso-8bit) (setq coding-category-iso-8-2 'chinese-iso-8bit) (setq coding-category-iso-7-else 'chinese-iso-7bit) (setq coding-category-big5 'chinese-big5) (set-coding-priority '(coding-category-iso-7 coding-category-iso-7-else coding-category-iso-8-2 coding-category-big5 coding-category-iso-8-1 coding-category-emacs-mule coding-category-iso-8-else)) (setq-default buffer-file-coding-system 'chinese-iso-8bit) (setq default-terminal-coding-system 'chinese-iso-8bit) (setq default-keyboard-coding-system 'chinese-iso-8bit) (setq default-input-method "chinese-py-punct")) ;;;###autoload (defun setup-chinese-big5-environment () "Setup multilingual environment (MULE) for Chinese Big5 users." (interactive) (setup-english-environment) (set-default-coding-systems 'chinese-big5) (setq coding-category-iso-8-2 'chinese-big5) (setq coding-category-iso-7-else 'chinese-iso-7bit) (setq coding-category-big5 'chinese-big5) (set-coding-priority '(coding-category-iso-7 coding-category-iso-7-else coding-category-big5 coding-category-iso-8-2 coding-category-emacs-mule coding-category-iso-8-else)) (setq-default buffer-file-coding-system 'chinese-big5) (setq default-terminal-coding-system 'chinese-big5) (setq default-keyboard-coding-system 'chinese-big5) (setq default-input-method "chinese-py-punct-b5")) ;;;###autoload (defun setup-chinese-cns-environment () "Setup multilingual environment (MULE) for Chinese CNS11643 family users." (interactive) (setup-english-environment) (setq coding-category-iso-7-else 'chinese-iso-7bit) (setq coding-category-big5 'chinese-big5) (setq coding-category-iso-8-2 'chinese-big5) (set-default-coding-systems 'chinese-iso-7bit) (set-coding-priority '(coding-category-iso-7 coding-category-iso-7-else coding-category-iso-8-2 coding-category-big5 coding-category-iso-7-else)) (setq-default buffer-file-coding-system 'chinese-iso-7bit) (setq default-terminal-coding-system 'chinese-iso-7bit) (setq default-keyboard-coding-system 'chinese-iso-7bit) (setq default-input-method "chinese-quick-cns")) ;; Hz/ZW encoding stuffs ;; HZ is an encoding method for Chinese character set GB2312 used ;; widely in Internet. It is very similar to 7-bit environment of ;; ISO-2022. The difference is that HZ uses the sequence "~{" and ;; "~}" for designating GB2312 and ASCII respectively, hence, it ;; doesn't uses ESC (0x1B) code. ;; ZW is another encoding method for Chinese character set GB2312. It ;; encodes Chinese characters line by line by starting each line with ;; the sequence "zW". It also uses only 7-bit as HZ. ;; ISO-2022 escape sequence to designate GB2312. (defvar iso2022-gb-designation "\e$A") ;; HZ escape sequence to designate GB2312. (defvar hz-gb-designnation "~{") ;; ISO-2022 escape sequence to designate ASCII. (defvar iso2022-ascii-designation "\e(B") ;; HZ escape sequence to designate ASCII. (defvar hz-ascii-designnation "~}") ;; Regexp of ZW sequence to start GB2312. (defvar zw-start-gb "^zW") ;; Regexp for start of GB2312 in an encoding mixture of HZ and ZW. (defvar hz/zw-start-gb (concat hz-gb-designnation "\\|" zw-start-gb)) (defvar decode-hz-line-continuation nil "Flag to tell if we should care line continuation convention of Hz.") ;;;###autoload (defun decode-hz-region (beg end) "Decode HZ/ZW encoded text in the current region. Return the length of resulting text." (interactive "r") (save-excursion (save-restriction (narrow-to-region beg end) ;; We, at first, convert HZ/ZW to `iso-2022-7bit', ;; then decode it. ;; "~\n" -> "\n" (goto-char (point-min)) (while (search-forward "~" nil t) (if (= (following-char) ?\n) (delete-char -1)) (if (not (eobp)) (forward-char 1))) ;; "^zW...\n" -> Chinese GB2312 ;; "~{...~}" -> Chinese GB2312 (goto-char (point-min)) (let ((chinese-found nil)) (while (re-search-forward hz/zw-start-gb nil t) (if (= (char-after (match-beginning 0)) ?z) ;; ZW -> iso-2022-7bit (progn (delete-char -2) (insert iso2022-gb-designation) (end-of-line) (insert iso2022-ascii-designation)) ;; HZ -> iso-2022-7bit (delete-char -2) (insert iso2022-gb-designation) (let ((pos (save-excursion (end-of-line) (point)))) (if (search-forward hz-ascii-designnation pos t) (replace-match iso2022-ascii-designation) (if (not decode-hz-line-continuation) (insert iso2022-ascii-designation))))) (setq chinese-found t)) (if (or chinese-found (let ((enable-multibyte-characters nil)) ;; Here we check if the text contains EUC (China) codes. ;; If any, we had better decode them also. (goto-char (point-min)) (re-search-forward "[\240-\377]" nil t))) (decode-coding-region (point-min) (point-max) 'euc-china))) ;; "~~" -> "~" (goto-char (point-min)) (while (search-forward "~~" nil t) (delete-char -1)) (- (point-max) (point-min))))) ;;;###autoload (defun decode-hz-buffer () "Decode HZ/ZW encoded text in the current buffer." (interactive) (decode-hz-region (point-min) (point-max))) ;;;###autoload (defun encode-hz-region (beg end) "Encode the text in the current region to HZ. Return the length of resulting text." (interactive "r") (save-excursion (save-restriction (narrow-to-region beg end) ;; "~" -> "~~" (goto-char (point-min)) (while (search-forward "~" nil t) (insert ?~)) ;; Chinese GB2312 -> "~{...~}" (goto-char (point-min)) (if (re-search-forward "\\cc" nil t) (let ((enable-multibyte-characters nil) pos) (goto-char (setq pos (match-beginning 0))) (encode-coding-region pos (point-max) 'iso-2022-7bit) (goto-char pos) (while (search-forward iso2022-gb-designation nil t) (delete-char -3) (insert hz-gb-designnation)) (goto-char pos) (while (search-forward iso2022-ascii-designation nil t) (delete-char -3) (insert hz-ascii-designnation)))) (- (point-max) (point-min))))) ;;;###autoload (defun encode-hz-buffer () "Encode the text in the current buffer to HZ." (interactive) (encode-hz-region (point-min) (point-max))) ;; (provide 'china-util) ;;; china-util.el ends here