-;;; titdic-cnv.el --- convert cxterm dictionary (TIT format) to Quail package
+;;; titdic-cnv.el --- convert cxterm dictionary (TIT format) to Quail package -*- coding:iso-2022-7bit; -*-
;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN.
-;; Licensed to the Free Software Foundation.
+;; Licensed to the Free Software Foundation.
+;; Copyright (C) 2003
+;; National Institute of Advanced Industrial Science and Technology (AIST)
+;; Registration Number H13PRO009
;; Keywords: Quail, TIT, cxterm
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
-;;; Comments:
+;;; Commentary:
;; Convert cxterm dictionary (of TIT format) to quail-package.
;;
;;
;; See the manual page of `tit2cit' of cxterm distribution for more
;; detail.
+;;
+;; Near the end of this file, we also have a few other tools to convert
+;; miscellaneous dictionaries.
;;; Code:
("JIS" euc-japan "Japanese")
("KS" euc-kr "Korean")))
-;; List of package names and the corresponding titles.
-(defvar quail-cxterm-package-title-alist
- '(("chinese-4corner" . "\e$(0(?-F\e(B")
- ("chinese-array30" . "\e$(0#R#O\e(B")
- ("chinese-ccdospy" . "\e$AKuF4\e(B")
- ("chinese-ctlau" . "\e$AAuTA\e(B")
- ("chinese-ctlaub" . "\e$(0N,Gn\e(B")
- ("chinese-ecdict" . "\e$(05CKH\e(B")
- ("chinese-etzy" . "\e$(06/0D\e(B")
- ("chinese-punct-b5" . "\e$(0O:\e(BB")
- ("chinese-punct" . "\e$A1j\e(BG")
- ("chinese-py-b5" . "\e$(03<\e(BB")
- ("chinese-py" . "\e$AF4\e(BG")
- ("chinese-qj-b5" . "\e$(0)A\e(BB")
- ("chinese-qj" . "\e$AH+\e(BG")
- ("chinese-sw" . "\e$AJWN2\e(B")
- ("chinese-tonepy" . "\e$A5wF4\e(B")
- ("chinese-ziranma" . "\e$AK+F4\e(B")
- ("chinese-zozy" . "\e$(0I\0D\e(B")))
+;; Alist of input method names and the corresponding title and extra
+;; docstring. For each of input method generated from TIT dictionary,
+;; a docstring is automatically generated from the comments in the
+;; dictionary. The extra docstring in this alist is to add more
+;; information.
+;; The command describe-input-method shows the automatically generated
+;; docstring, then an extra docstring while replacing the form \<VAR>
+;; by the value of variable VAR. For instance, the form
+;; \<quail-translation-docstring> is replaced by a description about
+;; how to select a translation from a list of candidates.
+
+(defvar quail-cxterm-package-ext-info
+ '(("chinese-4corner" "\e$(0(?-F\e(B")
+ ("chinese-array30" "\e$(0#R#O\e(B")
+ ("chinese-ccdospy" "\e$AKuF4\e(B"
+ "Pinyin base input method for Chinese charset GB2312 \(`chinese-gb2312').
+
+Pinyin is the standard Roman transliteration method for Chinese.
+For the detail of Pinyin system, see the documentation of the input
+method `chinese-py'.
+
+This input method works almost the same way as `chinese-py'. The
+difference is that you type a single key for these Pinyin spelling.
+ Pinyin: zh en eng ang ch an ao ai ong sh ing yu(\e$A(9\e(B)
+ keyseq: a f g h i j k l s u y v
+For example:
+ Chinese: \e$A0!\e(B \e$A9{\e(B \e$AVP\e(B \e$AND\e(B \e$A9b\e(B \e$ASq\e(B \e$AH+\e(B
+ Pinyin: a guo zhong wen guang yu quan
+ Keyseq: a1 guo4 as1 wf4 guh1 yu..6 qvj6
+
+\\<quail-translation-docstring>
+
+For double-width GB2312 characters correponding to ASCII, use the
+input method `chinese-qj'.")
+
+ ("chinese-ecdict" "\e$(05CKH\e(B"
+"In this input method, you enter a Chinese (Big5) charactere or word
+by typing the corresponding English word. For example, if you type
+\"computer\", \"\e$(0IZH+\e(B\" is input.
+
+\\<quail-translation-docstring>")
+
+ ("chinese-etzy" "\e$(06/0D\e(B"
+"Zhuyin base input method for Chinese Big5 characters (`chinese-big5-1',
+`chinese-big5-2').
+
+Zhuyin is a kind of phonetic symbol. One to three Zhuyin symbols
+compose one Chinese character.
+
+In this input method, you enter a Chinese character by first typing
+keys corresponding to Zhuyin symbols (see the above table) followed by
+SPC, 1, 2, 3, or 4 specifing a tone (SPC:\e$(0?v(N\e(B, 1:\e$(0M=Vy\e(B, 2:\e$(0Dm(N\e(B, 3: \e$(0&9Vy\e(B,
+4:\e$(0(+Vy\e(B).
+
+\\<quail-translation-docstring>")
+
+ ("chinese-punct-b5" "\e$(0O:\e(BB"
+ "Input method for Chinese punctuations and symbols of Big5
+\(`chinese-big5-1' and `chinese-big5-2').")
+
+ ("chinese-punct" "\e$A1j\e(BG"
+ "Input method for Chinese punctuations and symbols of GB2312
+\(`chinese-gb2312').")
+
+ ("chinese-py-b5" "\e$(03<\e(BB"
+ "Pinyin base input method for Chinese Big5 characters
+\(`chinese-big5-1', `chinese-big5-2').
+
+This input method works almost the same way as `chinese-py' (which
+see).
+
+This input method supports only Han characters. The more convenient
+method is `chinese-py-punct-b5', which is the combination of this
+method and `chinese-punct-b5' and which supports both Han characters
+and punctuation/symbols.
+
+For double-width Big5 characters corresponding to ASCII, use the input
+method `chinese-qj-b5'.
+
+The input method `chinese-py' and `chinese-tonepy' are also Pinyin
+based, but for the character set GB2312 (`chinese-gb2312').")
+
+ ("chinese-qj-b5" "\e$(0)A\e(BB")
+
+ ("chinese-qj" "\e$AH+\e(BG")
+
+ ("chinese-sw" "\e$AJWN2\e(B"
+"Radical base input method for Chinese charset GB2312 (`chinese-gb2312').
+
+In this input method, you enter a Chinese character by typing two
+keys. The first key corresponds to the first (\e$AJW\e(B) radical, the second
+key corresponds to the last (\e$AN2\e(B) radical. The correspondence of keys
+and radicals is as below:
+
+ first radical:
+ a b c d e f g h i j k l m n o p q r s t u v w x y z
+ \e$APD\e(B \e$AZ"\e(B \e$AJ,\e(B \e$AX<\e(B \e$A;p\e(B \e$A?Z\e(B \e$A^P\e(B \e$Ac_\e(B \e$AZ%\e(B \e$A\3\e(B \e$AXi\e(B \e$AD>\e(B \e$Alj\e(B \e$Ab;\e(B \e$ATB\e(B \e$Afy\e(B \e$AJ/\e(B \e$AMu\e(B \e$A0K\e(B \e$AX/\e(B \e$AHU\e(B \e$AeA\e(B \e$Aak\e(B \e$AVq\e(B \e$AR;\e(B \e$AHK\e(B
+ last radical:
+ a b c d e f g h i j k l m n o p q r s t u v w x y z
+ \e$ASV\e(B \e$AI=\e(B \e$AMA\e(B \e$A56\e(B \e$AZb\e(B \e$A?Z\e(B \e$ARB\e(B \e$Aqb\e(B \e$A4s\e(B \e$A6!\e(B \e$A[L\e(B \e$Ala\e(B \e$AJ.\e(B \e$A4u\e(B \e$AXg\e(B \e$ACE\e(B \e$A=q\e(B \e$AX-\e(B \e$AE.\e(B \e$ARR\e(B \e$A`m\e(B \e$AP!\e(B \e$A3'\e(B \e$A3f\e(B \e$A_.\e(B \e$A27\e(B
+
+\\<quail-translation-docstring>")
+
+ ("chinese-tonepy" "\e$A5wF4\e(B"
+ "Pinyin base input method for Chinese charset GB2312 (`chinese-gb2312').
+
+Pinyin is the standard roman transliteration method for Chinese.
+For the details of Pinyin system, see the documentation of the input
+method `chinese-py'.
+
+This input method works almost the same way as `chinese-py'. The
+difference is that you must type 1..5 after each Pinyin spelling to
+specify a tone (1:\e$ARuF=\e(B, 2:\e$AQtF=\e(B, 3:\e$AIOIy\e(B, 4\e$AOBIy\e(B, 5:\e$AGaIy\e(B).
+
+\\<quail-translation-docstring>
+
+For instance, to input \e$ADc\e(B, you type \"n i 3 3\", the first \"n i\" is
+a Pinyin, the next \"3\" specifies tone, and the last \"3\" selects
+the third character from the candidate list.
+
+For double-width GB2312 characters correponding to ASCII, use the
+input method `chinese-qj'.")
+
+ ("chinese-zozy" "\e$(0I\0D\e(B"
+"Zhuyin base input method for Chinese Big5 characters (`chinese-big5-1',
+`chinese-big5-2').
+
+Zhuyin is a kind of a phonetic symbol. One to three Zhuyin symbols
+compose a Chinese character.
+
+In this input method, you enter a Chinese character by first typing
+keys corresponding to Zhuyin symbols (see the above table) followed by
+SPC, 6, 3, 4, or 7 specifing a tone (SPC:\e$(0?v(N\e(B, 6:\e$(0Dm(N\e(B, 3:\e$(0&9Vy\e(B, 4:\e$(0(+Vy\e(B,
+7:\e$(0M=Vy\e(B).
+
+\\<quail-translation-docstring>")))
;; Return a value of the key in the current line.
(defsubst tit-read-key-value ()
- (if (looking-at "[^ \t\n]+")
+ (if (looking-at "[^ \t\r\n]+")
(car (read-from-string (concat "\"" (match-string 0) "\"")))))
;; Return an appropriate quail-package filename from FILENAME (TIT
(concat (file-name-nondirectory (substring filename 0 -4)) ".el")
dirname))
-;; This value is t if we are processing phrase dictionary.
-(defvar tit-phrase nil)
+;; This value is nil if we are processing phrase dictionary.
+(defvar tit-dictionary t)
(defvar tit-encode nil)
(defvar tit-default-encode "GB")
(defun tit-generate-key-bindings (keys function-symbol)
(let ((len (length keys))
(i 0)
+ (first t)
key)
(while (< i len)
+ (or first (princ "\n "))
(setq key (aref keys i))
- (indent-to 3)
- (if (< key ?\ )
- (if (eq (lookup-key quail-translation-keymap (char-to-string key))
+ (if (if (< key ?\ )
+ (eq (lookup-key quail-translation-keymap
+ (char-to-string key))
'quail-execute-non-quail-command)
- (insert (format "(\"\\C-%c\" . %s)\n"
- (+ key ?@) function-symbol)))
- (if (< key 127)
- (insert (format "(\"%c\" . %s)\n" key function-symbol))
- (insert (format "(\"\\C-?\" . %s)\n" function-symbol))))
+ (<= key 127))
+ (progn
+ (princ (cons (cond ((< key ?\ ) (format "\"\\C-%c\"" (+ key ?@)))
+ ((< key 127) (format "\"%c\"" key))
+ (t "\"\\C-?\""))
+ function-symbol))
+ (setq first nil)))
(setq i (1+ i)))))
;; Analyze header part of TIT dictionary and generate an appropriate
(message "Processing header part...")
(goto-char (point-min))
- (let (;; TIT keywords and the corresponding default values.
+ ;; At first, generate header part of the Quail package while
+ ;; collecting information from the original header.
+ (let ((package (concat
+ "chinese-"
+ (substring (downcase (file-name-nondirectory filename))
+ 0 -4)))
+ ;; TIT keywords and the corresponding default values.
(tit-multichoice t)
(tit-prompt "")
(tit-comments nil)
(tit-moveright ".>")
(tit-moveleft ",<")
(tit-keyprompt nil))
- ;; At first, collect information from the header.
+
+ (princ ";; Quail package `")
+ (princ package) (princ "' -*- coding:iso-2022-7bit; -*-\n")
+ (princ ";; Generated by the command `titdic-convert'\n;;\tDate: ")
+ (princ (current-time-string))
+ (princ "\n;;\tOriginal TIT dictionary file: ")
+ (princ (file-name-nondirectory filename))
+ (princ "\n\n;;; Comment:\n\n")
+ (princ ";; Byte-compile this file again after any modification.\n\n")
+ (princ ";;; Start of the header of original TIT dictionary.\n\n")
+
(while (not (eobp))
- (insert ";; ")
- (let ((ch (following-char)))
+ (let ((ch (following-char))
+ (pos (point)))
(cond ((= ch ?C) ; COMMENT
(cond ((looking-at "COMMENT")
(let ((pos (match-end 0)))
(end-of-line)
- (while (re-search-backward "[\"\\]" pos t)
- (insert "\\")
- (forward-char -1))
- (end-of-line)
(setq tit-comments (cons (buffer-substring pos (point))
tit-comments))))))
((= ch ?M) ; MULTICHOICE, MOVERIGHT, MOVELEFT
((= ch ?P) ; PROMPT
(cond ((looking-at "PROMPT:[ \t]*")
(goto-char (match-end 0))
- (setq tit-prompt (tit-read-key-value)))))
+ (setq tit-prompt (tit-read-key-value))
+ ;; Some TIT dictionaies that are encoded by
+ ;; euc-china contains invalid character at the tail.
+ (let* ((last (aref tit-prompt (1- (length tit-prompt))))
+ (split (split-char last)))
+ (if (or (eq (nth 1 split) 32)
+ (eq (nth 2 split) 32))
+ (setq tit-prompt (substring tit-prompt 0 -1)))))))
((= ch ?B) ; BACKSPACE, BEGINDICTIONARY,
; BEGINPHRASE
(cond ((looking-at "BACKSPACE:[ \t]*")
(goto-char (match-end 0))
(setq tit-backspace (tit-read-key-value)))
((looking-at "BEGINDICTIONARY")
- (setq tit-phrase nil))
+ (setq tit-dictionary t))
((looking-at "BEGINPHRASE")
- (setq tit-phrase t))))
+ (setq tit-dictionary nil))))
((= ch ?K) ; KEYPROMPT
(cond ((looking-at "KEYPROMPT(\\(.*\\)):[ \t]*")
(let ((key-char (match-string 1)))
key-char)))))
(setq tit-keyprompt
(cons (cons key-char (tit-read-key-value))
- tit-keyprompt))))))))
- (forward-line 1))
-
- ;; Then, generate header part of the Quail package.
- (goto-char (point-min))
- (let ((package
- (concat
- "chinese-"
- (substring (downcase (file-name-nondirectory buffer-file-name))
- 0 -3))))
- (insert ";; Quail package `"
- package
- "' generated by the command `titdic-convert'\n"
- ";;\tDate: " (current-time-string) "\n"
- ";;\tOriginal TIT dictionary file: "
- (file-name-nondirectory filename)
- "\n\n"
- ";;; Comment:\n\n"
- ";; Do byte-compile this file again after any modification.\n\n"
- ";;; Start of the header of original TIT dictionary.\n\n")
+ tit-keyprompt)))))))
+ (end-of-line)
+ (princ ";; ")
+ (princ (buffer-substring pos (point)))
+ (princ "\n")
+ (forward-line 1)))
- (goto-char (point-max))
- (insert "\n"
- ";;; End of the header of original TIT dictionary.\n\n"
- ";;; Code:\n\n"
- "(require 'quail)\n\n")
-
- (insert "(quail-define-package ")
- ;; Args NAME, LANGUAGE, TITLE
- (let ((title (cdr (assoc package quail-cxterm-package-title-alist))))
- (insert
- "\""
- package
- "\" \"" (nth 2 (assoc tit-encode tit-encode-list))
- "\" \""
- (or title
- (if (string-match "[:\e$A!K\e$(0!(!J\e(B]+\\([^:\e$A!K\e$(0!(!K\e(B]+\\)" tit-prompt)
- (substring tit-prompt (match-beginning 1) (match-end 1))
- tit-prompt))
- "\"\n"))
- )
+ (princ "\n;;; End of the header of original TIT dictionary.\n\n")
+ (princ ";;; Code:\n\n(require 'quail)\n\n")
+
+ (princ "(quail-define-package ")
+ ;; Args NAME, LANGUAGE, TITLE
+ (let ((title (nth 1 (assoc package quail-cxterm-package-ext-info))))
+ (princ "\"")
+ (princ package)
+ (princ "\" \"")
+ (princ (nth 2 (assoc tit-encode tit-encode-list)))
+ (princ "\" \"")
+ (princ (or title
+ (if (string-match "[:\e$A!K\e$(0!(!J\e(B]+\\([^:\e$A!K\e$(0!(!K\e(B]+\\)" tit-prompt)
+ (substring tit-prompt (match-beginning 1) (match-end 1))
+ tit-prompt)))
+ (princ "\"\n"))
;; Arg GUIDANCE
(if tit-keyprompt
(progn
- (insert " '(")
+ (princ " '(")
(while tit-keyprompt
- (indent-to 3)
- (insert (format "(%d . \"%s\")\n"
- (string-to-char (car (car tit-keyprompt)))
- (cdr (car tit-keyprompt))))
+ (princ " ")
+ (princ (format "(%d . \"%s\")\n"
+ (string-to-char (car (car tit-keyprompt)))
+ (cdr (car tit-keyprompt))))
(setq tit-keyprompt (cdr tit-keyprompt)))
- (forward-char -1)
- (insert ")")
- (forward-char 1))
- (insert " t\n"))
+ (princ ")"))
+ (princ " t\n"))
;; Arg DOCSTRING
- (insert "\"" tit-prompt "\n")
- (let ((l (nreverse tit-comments)))
- (while l
- (insert (format "%s\n" (car l)))
- (setq l (cdr l))))
- (insert "\"\n")
+ (let ((doc (concat tit-prompt "\n"))
+ (comments (if tit-comments
+ (mapconcat 'identity (nreverse tit-comments) "\n")))
+ (doc-ext (nth 2 (assoc package quail-cxterm-package-ext-info))))
+ (if comments
+ (setq doc (concat doc "\n" comments "\n")))
+ (if doc-ext
+ (setq doc (concat doc "\n" doc-ext "\n")))
+ (prin1 doc)
+ (terpri))
;; Arg KEY-BINDINGS
- (insert " '(")
+ (princ " '(")
(tit-generate-key-bindings tit-backspace 'quail-delete-last-char)
+ (princ "\n ")
(tit-generate-key-bindings tit-deleteall 'quail-abort-translation)
+ (princ "\n ")
(tit-generate-key-bindings tit-moveright 'quail-next-translation)
+ (princ "\n ")
(tit-generate-key-bindings tit-moveleft 'quail-prev-translation)
- (forward-char -1)
- (insert ")")
- (forward-char 1)
+ (princ ")\n")
;; Args FORGET-TRANSLATION, DETERMINISTIC, KBD-TRANSLATE, SHOW-LAYOUT.
;; The remaining args are all nil.
- (insert " nil"
- (if tit-multichoice " nil" " t")
- (if tit-keyprompt " t t)\n\n" " nil nil)\n\n")))
+ (princ " nil")
+ (princ (if tit-multichoice " nil" " t"))
+ (princ (if tit-keyprompt " t t)\n\n" " nil nil)\n\n"))))
- ;; Return the position of end of the header.
- (point-max))
+(defsubst tit-flush-translations (key translations)
+ (if (string-match "\\\\[0-9][0-9][0-9]" key)
+ (let ((newkey (concat (substring key 0 (match-beginning 0))
+ (car (read-from-string
+ (concat "\"" (match-string 0 key) "\"")))))
+ (idx (match-end 0)))
+ (while (string-match "\\\\[0-9][0-9][0-9]" key idx)
+ (setq newkey (concat
+ newkey
+ (substring key idx (match-beginning 0))
+ (car (read-from-string
+ (concat "\"" (match-string 0 key) "\"")))))
+ (setq idx (match-end 0)))
+ (setq key (concat newkey (substring key idx)))))
+ (prin1 (list key (if tit-dictionary translations
+ (vconcat (nreverse translations)))))
+ (princ "\n"))
;; Convert body part of TIT dictionary into `quail-define-rules'
;; function call.
(defun tit-process-body ()
(message "Formatting translation rules...")
- (let ((keyseq "\000")
- pos)
- (insert "(quail-define-rules\n")
+ (let* ((template (list nil nil))
+ (second (cdr template))
+ (prev-key "")
+ ch key translations pos)
+ (princ "(quail-define-rules\n")
(while (null (eobp))
- (if (or (= (following-char) ?#) (= (following-char) ?\n))
- (progn
- (insert ";; ")
- (forward-line 1))
- (insert "(\"")
+ (setq ch (following-char))
+ (if (or (= ch ?#) (= ch ?\n))
+ (forward-line 1)
(setq pos (point))
- (skip-chars-forward "^ \t")
- (setq keyseq
- (concat (regexp-quote (buffer-substring pos (point))) "[ \t]+"))
- (save-excursion
- ;; Escape `"' and `\' which is not used for quoting the
- ;; following octal digits.
- (while (re-search-backward "\"\\|\\\\[^0-9]" pos t)
- (insert "\\")
- (forward-char -1)))
- (insert "\"")
+ (skip-chars-forward "^ \t\n")
+ (setq key (buffer-substring pos (point)))
(skip-chars-forward " \t")
-
- ;; Now point is at the start of translations. Remember it in
- ;; POS and combine lines of the same key sequence while
- ;; deleting trailing white spaces and comments (start with
- ;; '#'). POS doesn't has to be a marker because we never
- ;; modify region before POS.
- (setq pos (point))
- (if (looking-at "[^ \t]*\\([ \t]*#.*\\)")
- (delete-region (match-beginning 1) (match-end 1)))
- (while (and (= (forward-line 1) 0)
- (looking-at keyseq))
- (let ((p (match-end 0)))
- (skip-chars-backward " \t\n")
- (delete-region (point) p)
- (if tit-phrase (insert " "))
- (if (looking-at "[^ \t]*\\([ \t]*#.*\\)")
- (delete-region (match-beginning 1) (match-end 1)))
- ))
-
- (goto-char pos)
- (if (eolp)
+ (setq ch (following-char))
+ (if (or (= ch ?#) (= ch ?\n))
;; This entry contains no translations. Let's ignore it.
- (progn
- (beginning-of-line)
- (setq pos (point))
- (forward-line 1)
- (delete-region pos (point)))
-
- ;; Modify the current line to meet the syntax of Quail package.
- (if tit-phrase
+ (forward-line 1)
+ (or (string= key prev-key)
+ (progn
+ (if translations
+ (tit-flush-translations prev-key translations))
+ (setq translations nil
+ prev-key key)))
+ (if tit-dictionary
(progn
- ;; PHRASE1 PHRASE2 ... => ["PHRASE1" "PHRASE2" ...]
- (insert "[")
- (skip-chars-forward " \t")
- (while (not (eolp))
- (insert "\"")
- (skip-chars-forward "^ \t\n")
- (insert "\"")
- (skip-chars-forward " \t"))
- (insert "])"))
- ;; TRANSLATIONS => "TRANSLATIONS"
- (insert "\"")
- (end-of-line)
- (skip-chars-backward " \t")
- (insert "\")"))
+ (setq pos (point))
+ (skip-chars-forward "^ \t#\n")
+ (setq translations
+ (if translations
+ (concat translations
+ (buffer-substring pos (point)))
+ (buffer-substring pos (point)))))
+ (while (not (eolp))
+ (setq pos (point))
+ (skip-chars-forward "^ \t\n")
+ (setq translations (cons (buffer-substring pos (point))
+ translations))
+ (skip-chars-forward " \t")
+ (setq ch (following-char))
+ (if (= ch ?#) (end-of-line))))
(forward-line 1))))
- (insert ")\n")))
+
+ (if translations
+ (tit-flush-translations prev-key translations))
+ (princ ")\n")))
;;;###autoload
(defun titdic-convert (filename &optional dirname)
Optional argument DIRNAME if specified is the directory name under which
the generated Quail package is saved."
(interactive "FTIT dictionary file: ")
- (let ((buf (get-buffer-create "*tit-work*")))
- (save-excursion
- ;; Setup the buffer.
- (set-buffer buf)
- (erase-buffer)
- (let ((coding-system-for-read 'no-conversion))
- (insert-file-contents (expand-file-name filename)))
- (set-visited-file-name
- (tit-make-quail-package-file-name filename dirname) t)
- (setq enable-multibyte-characters t)
+ (let ((coding-system-for-write 'iso-2022-7bit))
+ (with-temp-file (tit-make-quail-package-file-name filename dirname)
(set-buffer-file-coding-system 'iso-2022-7bit)
+ (let ((standard-output (current-buffer)))
+ (with-temp-buffer
+ (set-buffer-multibyte nil)
+ (let ((coding-system-for-read 'no-conversion))
+ (insert-file-contents (expand-file-name filename)))
- ;; Decode the buffer contents from the encoding specified by a
- ;; value of the key "ENCODE:".
- (let (coding-system)
- (save-excursion
- (if (search-forward "\nBEGIN" nil t)
- (let ((limit (point))
- slot)
- (goto-char 1)
- (if (re-search-forward "^ENCODE:[ \t]*" limit t)
- (progn
- (goto-char (match-end 0))
- (setq tit-encode (tit-read-key-value)))
- (setq tit-encode tit-default-encode))
- (setq slot (assoc tit-encode tit-encode-list))
- (if slot
- (setq coding-system (nth 1 slot))
- (error "Invalid ENCODE: value in TIT dictionary")))
- (error "TIT dictionary doesn't have body part")))
- (message "Decoding %s..." coding-system)
- (goto-char 1)
- (decode-coding-region 1 (point-max) coding-system))
-
- ;; Set point the starting position of the body part.
- (goto-char 1)
- (if (search-forward "\nBEGIN" nil t)
+ ;; Decode the buffer contents from the encoding specified by a
+ ;; value of the key "ENCODE:".
+ (if (not (search-forward "\nBEGIN" nil t))
+ (error "TIT dictionary doesn't have body part"))
+ (let ((limit (point))
+ coding-system slot)
+ (goto-char (point-min))
+ (if (re-search-forward "^ENCODE:[ \t]*" limit t)
+ (progn
+ (goto-char (match-end 0))
+ (setq tit-encode (tit-read-key-value)))
+ (setq tit-encode tit-default-encode))
+ (setq slot (assoc tit-encode tit-encode-list))
+ (if (not slot)
+ (error "Invalid ENCODE: value in TIT dictionary"))
+ (setq coding-system (nth 1 slot))
+ (message "Decoding with coding system %s..." coding-system)
+ (goto-char (point-min))
+ (decode-coding-region (point-min) (point-max) coding-system))
+
+ (set-buffer-multibyte t)
+ ;; Set point the starting position of the body part.
+ (goto-char (point-min))
+ (if (not (search-forward "\nBEGIN" nil t))
+ (error "TIT dictionary can't be decoded correctly"))
+
+ ;; Process the header part.
(forward-line 1)
- (error "TIT dictionary can't be decoded correctly"))
-
- ;; Now process the header and body parts.
- (goto-char
- (save-excursion
- (save-restriction
- (narrow-to-region 1 (point))
- (tit-process-header filename))))
- (tit-process-body))
-
- (if noninteractive
- ;; Save the Quail package file.
- (save-excursion
- (set-buffer buf)
- (save-buffer 0))
- ;; Show the Quail package just generated.
- (switch-to-buffer buf)
- (goto-char 1)
- (message "Save this buffer after you make any modification"))))
+ (narrow-to-region (point-min) (point))
+ (tit-process-header filename)
+ (widen)
+
+ ;; Process the body part
+ (tit-process-body))))))
;;;###autoload
(defun batch-titdic-convert (&optional force)
(titdic-convert file targetdir))
(setq files (cdr files)))
(setq command-line-args-left (cdr command-line-args-left)))
- (message "Do byte-compile the created files by:")
+ (message "Byte-compile the created files by:")
(message " %% emacs -batch -f batch-byte-compile XXX.el")))
(kill-emacs 0))
+\f
+;;; Converter of miscellaneous dictionaries other than TIT format.
+
+;; Alist of input method names and the corresponding information.
+;; Each element has this form:
+;; (INPUT-METHOD-NAME ;; Name of the input method.
+;; INPUT-METHOD-TITLE ;; Title string of the input method
+;; DICFILE ;; Name of the source dictionary file.
+;; CODING ;; Coding system of the dictionary file.
+;; QUAILFILE ;; Name of the Quail package file.
+;; CONVERTER ;; Function to generate the Quail package.
+;; COPYRIGHT-NOTICE ;; Copyright notice of the source dictionary.
+;; )
+
+(defvar quail-misc-package-ext-info
+ '(("chinese-b5-tsangchi" "\e$(06A\e(BB"
+ "cangjie-table.b5" big5 "tsang-b5.el"
+ tsang-b5-converter
+ "\
+;; # Copyright 2001 Christian Wittern <wittern@iis.sinica.edu.tw>
+;; #
+;; # Permission to copy and distribute both modified and
+;; # unmodified versions is granted without royalty provided
+;; # this notice is preserved.")
+
+ ("chinese-b5-quick" "\e$(0X|\e(BB"
+ "cangjie-table.b5" big5 "quick-b5.el"
+ quick-b5-converter
+ "\
+;; # Copyright 2001 Christian Wittern <wittern@iis.sinica.edu.tw>
+;; #
+;; # Permission to copy and distribute both modified and
+;; # unmodified versions is granted without royalty provided
+;; # this notice is preserved.")
+
+ ("chinese-cns-tsangchi" "\e$(GT?\e(BC"
+ "cangjie-table.cns" iso-2022-cn-ext "tsang-cns.el"
+ tsang-cns-converter
+ "\
+;; # Copyright 2001 Christian Wittern <wittern@iis.sinica.edu.tw>
+;; #
+;; # Permission to copy and distribute both modified and
+;; # unmodified versions is granted without royalty provided
+;; # this notice is preserved.")
+
+ ("chinese-cns-quick" "\e$(Gv|\e(BC"
+ "cangjie-table.cns" iso-2022-cn-ext "quick-cns.el"
+ quick-cns-converter
+ "\
+;; # Copyright 2001 Christian Wittern <wittern@iis.sinica.edu.tw>
+;; #
+;; # Permission to copy and distribute both modified and
+;; # unmodified versions is granted without royalty provided
+;; # this notice is preserved.")
+
+ ("chinese-py" "\e$AF4\e(BG"
+ "pinyin.map" cn-gb-2312 "PY.el"
+ py-converter
+ "\
+;; \"pinyin.map\" is included in a free package called CCE. It is
+;; available at:
+;; http://ftp.debian.org/debian/dists/potato/main
+;; /source/utils/cce_0.36.orig.tar.gz
+;; This package contains the following copyright notice.
+;;
+;;
+;; Copyright (C) 1999, Rui He, herui@cs.duke.edu
+;;
+;;
+;; CCE(Console Chinese Environment) 0.32
+;;
+;; CCE 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 1, or (at your option) any later version.
+;;
+;; CCE 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
+;; CCE; see the file COPYING. If not, write to the Free Software Foundation,
+;; 675 Mass Ave, Cambridge, MA 02139, USA.")
+
+ ("chinese-ziranma" "\e$AWTH;\e(B"
+ "ziranma.cin" cn-gb-2312 "ZIRANMA.el"
+ ziranma-converter
+ "\
+;; \"ziranma.cin\" is included in a free package called CCE. It is
+;; available at:
+;; http://ftp.debian.org/debian/dists/potato/main
+;; /source/utils/cce_0.36.orig.tar.gz
+;; This package contains the following copyright notice.
+;;
+;;
+;; Copyright (C) 1999, Rui He, herui@cs.duke.edu
+;;
+;;
+;; CCE(Console Chinese Environment) 0.32
+;;
+;; CCE 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 1, or (at your option) any later version.
+;;
+;; CCE 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
+;; CCE; see the file COPYING. If not, write to the Free Software Foundation,
+;; 675 Mass Ave, Cambridge, MA 02139, USA.")
+
+ ("chinese-ctlau" "\e$AAuTA\e(B"
+ "CTLau.html" cn-gb-2312 "CTLau.el"
+ ctlau-gb-converter
+ "\
+;; \"CTLau.html\" is available at:
+;;
+;; http://umunhum.stanford.edu/~lee/chicomp/CTLau.html
+;;
+;; It contains the following copyright notice:
+;;
+;; # Copyright (C) 1988-2001 Fung Fung Lee (lee@umunhum.stanford.edu)
+;; #
+;; # This program 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
+;; # of the License, or any later version.
+;; #
+;; # This program 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 this program; if not, write to the Free Software Foundation,
+;; # Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.")
+
+ ("chinese-ctlaub" "\e$(0N,Gn\e(B"
+ "CTLau-b5.html" big5 "CTLau-b5.el"
+ ctlau-b5-converter
+ "\
+;; \"CTLau-b5.html\" is available at:
+;;
+;; http://umunhum.stanford.edu/~lee/chicomp/CTLau-b5.html
+;;
+;; It contains the following copyright notice:
+;;
+;; # Copyright (C) 1988-2001 Fung Fung Lee (lee@umunhum.stanford.edu)
+;; #
+;; # This program 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
+;; # of the License, or any later version.
+;; #
+;; # This program 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 this program; if not, write to the Free Software Foundation,
+;; # Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.")
+ ))
+
+;; Generate a code of a Quail package in the current buffer from Tsang
+;; dictionary in the buffer DICBUF. The input method name of the
+;; Quail package is NAME, and the title string is TITLE.
+
+;; TSANG-P is non-nil, genereate \e$(06AQo\e(B input method. Otherwise
+;; generate \e$(0X|/y\e(B (simple version of \e$(06AQo\e(B). If BIG5-P is non-nil, the
+;; input method is for inputting Big5 characters. Otherwise the input
+;; method is for inputting CNS characters.
+
+(defun tsang-quick-converter (dicbuf name title tsang-p big5-p)
+ (let ((fulltitle (if tsang-p (if big5-p "\e$(06AQo\e(B" "\e$(GT?on\e(B")
+ (if big5-p "\e$(0X|/y\e(B" "\e$(Gv|Mx\e(B")))
+ dic)
+ (goto-char (point-max))
+ (if big5-p
+ (insert (format "\"\e$(0&d'GTT&,!J\e(B%s\e$(0!K\e(BBIG5
+
+ \e$(0KHM$\e(B%s\e$(0TT&,WoOu\e(B
+
+ [Q \e$(0'D\e(B] [W \e$(0(q\e(B] [E \e$(0'V\e(B] [R \e$(0&H\e(B] [T \e$(0'>\e(B] [Y \e$(0&4\e(B] [U \e$(0&U\e(B] [I \e$(0'B\e(B] [O \e$(0&*\e(B] [P \e$(0'A\e(B]
+
+ [A \e$(0'K\e(B] [S \e$(0&T\e(B] [D \e$(0'N\e(B] [F \e$(0'W\e(B] [G \e$(0&I\e(B] [H \e$(0*M\e(B] [J \e$(0&3\e(B] [L \e$(0&d\e(B]
+
+ [Z ] [X \e$(0[E\e(B] [C \e$(01[\e(B] [V \e$(0&M\e(B] [B \e$(0'M\e(B] [N \e$(0&_\e(B] [M \e$(0&"\e(B]
+
+\\\\<quail-translation-docstring>\"\n"
+ fulltitle fulltitle))
+ (insert (format "\"\e$(GDcEFrSD+!J\e(B%s\e$(G!K\e(BCNS
+
+ \e$(GiGk#\e(B%s\e$(GrSD+uomu\e(B
+
+ [Q \e$(GEC\e(B] [W \e$(GFp\e(B] [E \e$(GEU\e(B] [R \e$(GDG\e(B] [T \e$(GE=\e(B] [Y \e$(GD3\e(B] [U \e$(GDT\e(B] [I \e$(GEA\e(B] [O \e$(GD)\e(B] [P \e$(GE@\e(B]
+
+ [A \e$(GEJ\e(B] [S \e$(GDS\e(B] [D \e$(GEM\e(B] [F \e$(GEV\e(B] [G \e$(GDH\e(B] [H \e$(GHL\e(B] [J \e$(GD2\e(B] [L \e$(GDc\e(B]
+
+ [Z ] [X \e$(GyE\e(B] [C \e$(GOZ\e(B] [V \e$(GDL\e(B] [B \e$(GEL\e(B] [N \e$(GD^\e(B] [M \e$(GD!\e(B]
+
+\\\\<quail-translation-docstring>\"\n"
+ fulltitle fulltitle)))
+ (insert " '((\".\" . quail-next-translation-block)
+ (\",\" . quail-prev-translation-block))
+ nil nil)\n\n")
+ (insert "(quail-define-rules\n")
+ (save-excursion
+ (set-buffer dicbuf)
+ ;; Handle double CR line ends, which result when checking out of
+ ;; CVS on MS-Windows.
+ (goto-char (point-min))
+ (while (re-search-forward "\r\r$" nil t)
+ (replace-match ""))
+ (goto-char (point-min))
+ (search-forward "A440")
+ (beginning-of-line)
+ (let ((table (make-hash-table :test 'equal))
+ val)
+ (while (not (eobp))
+ (forward-char 5)
+ (let ((trans (char-to-string (following-char)))
+ key slot)
+ (re-search-forward "[A-Z]+$" nil t)
+ (setq key (downcase
+ (if (or tsang-p
+ (<= (- (match-end 0) (match-beginning 0)) 1))
+ (match-string 0)
+ (string (char-after (match-beginning 0))
+ (char-after (1- (match-end 0)))))))
+ (setq val (gethash key table))
+ (if val (setq trans (concat val trans)))
+ (puthash key trans table)
+ (forward-line 1)))
+ (maphash #'(lambda (key val) (setq dic (cons (cons key val) dic)))
+ table)))
+ (setq dic (sort dic (function (lambda (x y) (string< (car x ) (car y))))))
+ (dolist (elt dic)
+ (insert (format "(%S\t%S)\n" (car elt) (cdr elt))))
+ (let ((punctuations '((";" "\e$(0!'!2!"!#!.!/\e(B" "\e$(G!'!2!"!#!.!/\e(B")
+ (":" "\e$(0!(!+!3!%!$!&!0!1\e(B" "\e$(G!(!+!3!%!$!&!0!1\e(B")
+ ("'" "\e$(0!e!d\e(B" "\e$(G!e!d\e(B")
+ ("\"" "\e$(0!g!f!h!i!q\e(B" "\e$(G!g!f!h!i!q\e(B")
+ ("\\" "\e$(0"`"b#M\e(B" "\e$(G"`"b#M\e(B")
+ ("|" "\e$(0!6!8!:"^\e(B" "\e$(G!6!8!:"^\e(B")
+ ("/" "\e$(0"_"a#L\e(B" "\e$(G"_"a#L\e(B")
+ ("?" "\e$(0!)!4\e(B" "\e$(G!)!4\e(B")
+ ("<" "\e$(0!R"6"A!T"H\e(B" "\e$(G!R"6"A!T"H\e(B")
+ (">" "\e$(0!S"7"B!U\e(B" "\e$(G!S"7"B!U\e(B")
+ ("[" "\e$(0!F!J!b!H!L!V!Z!X!\\e(B" "\e$(G!F!J!b!H!L!V!Z!X!\\e(B")
+ ("]" "\e$(0!G!K!c!I!M!W![!Y!]\e(B" "\e$(G!G!K!c!I!M!W![!Y!]\e(B")
+ ("{" "\e$(0!B!`!D\e(B " "\e$(G!B!`!D\e(B ")
+ ("}" "\e$(0!C!a!E\e(B" "\e$(G!C!a!E\e(B")
+ ("`" "\e$(0!j!k\e(B" "\e$(G!j!k\e(B")
+ ("~" "\e$(0"D"+",!<!=\e(B" "\e$(G"D"+",!<!=\e(B")
+ ("!" "\e$(0!*!5\e(B" "\e$(G!*!5\e(B")
+ ("@" "\e$(0"i"n\e(B" "\e$(G"i"n\e(B")
+ ("#" "\e$(0!l"-\e(B" "\e$(G!l"-\e(B")
+ ("$" "\e$(0"c"l\e(B" "\e$(G"c"l\e(B")
+ ("%" "\e$(0"h"m\e(B" "\e$(G"h"m\e(B")
+ ("&" "\e$(0!m".\e(B" "\e$(G!m".\e(B")
+ ("*" "\e$(0!n"/!o!w!x\e(B" "\e$(G!n"/!o!w!x\e(B")
+ ("(" "\e$(0!>!^!@\e(B" "\e$(G!>!^!@\e(B")
+ (")" "\e$(0!?!_!A\e(B" "\e$(G!?!_!A\e(B")
+ ("-" "\e$(0!7!9"#"$"1"@\e(B" "\e$(G!7!9"#"$"1"@\e(B")
+ ("_" "\e$(0"%"&\e(B" "\e$(G"%"&\e(B")
+ ("=" "\e$(0"8"C\e(B" "\e$(G"8"C\e(B")
+ ("+" "\e$(0"0"?\e(B" "\e$(G"0"?\e(B"))))
+ (dolist (elt punctuations)
+ (insert (format "(%S %S)\n" (concat "z" (car elt))
+ (if big5-p (nth 1 elt) (nth 2 elt))))))
+ (insert ")\n")))
+
+(defun tsang-b5-converter (dicbuf name title)
+ (tsang-quick-converter dicbuf name title t t))
+
+(defun quick-b5-converter (dicbuf name title)
+ (tsang-quick-converter dicbuf name title nil t))
+
+(defun tsang-cns-converter (dicbuf name title)
+ (tsang-quick-converter dicbuf name title t nil))
+
+(defun quick-cns-converter (dicbuf name title)
+ (tsang-quick-converter dicbuf name title nil nil))
+
+;; Generate a code of a Quail package in the current buffer from
+;; Pinyin dictionary in the buffer DICBUF. The input method name of
+;; the Quail package is NAME, and the title string is TITLE.
+
+(defun py-converter (dicbuf name title)
+ (goto-char (point-max))
+ (insert (format "%S\n" "\e$A::WVJdHk!KF4Rt!K\e(B
+
+ \e$AF4Rt7=08\e(B
+
+ \e$AP!P4S"NDWVD84z1m!8F4Rt!97{:E#,\e(B \"u(yu) \e$ATrSC\e(B u: \e$A1mJ>!C\e(B
+
+Pinyin base input method for Chinese charset GB2312 (`chinese-gb2312').
+
+Pinyin is the standard roman transliteration method for Chinese.
+Pinyin uses a sequence of Latin alphabetic characters for each Chinese
+character. The sequence is made by the combination of the initials
+\(the beginning sounds) and finals (the ending sounds).
+
+ initials: b p m f d t n l z c s zh ch sh r j q x g k h
+ finals: a o e i er ai ei oa ou an en ang eng ong i ia iao ie iu ian in
+ iang ing iong u ua uo uai ui uan un uan ueng yu yue yuan yun
+
+ (Note: In the correct Pinyin writing, the sequence \"yu\" in the last
+ four finals should be written by the character u-umlaut `\e$A(9\e(B'.)
+
+With this input method, you enter a Chinese character by first
+entering its pinyin spelling.
+
+\\<quail-translation-docstring>
+
+For instance, to input \e$ADc\e(B, you type \"n i C-n 3\". The first \"n i\"
+is a Pinyin, \"C-n\" selects the next group of candidates (each group
+contains at most 10 characters), \"3\" select the third character in
+that group.
+
+This input method supports only Han characters. The related input
+method `chinese-py-punct' is the combination of this method and
+`chinese-punct'; it supports both Han characters and punctuation
+characters.
+
+For double-width GB2312 characters corresponding to ASCII, use the
+input method `chinese-qj'.
+
+The correct Pinyin system specifies tones by diacritical marks, but
+this input method doesn't use them, which results in easy (you don't
+have to know the exact tones), but verbose (many characters are assigned
+to the same key sequence) input. You may also want to try the input
+method `chinese-tonepy' with which you must specify tones by digits
+\(1..5)."))
+ (insert " '((\"\C-?\" . quail-delete-last-char)
+ (\".\" . quail-next-translation)
+ (\">\" . quail-next-translation)
+ (\",\" . quail-prev-translation)
+ (\"<\" . quail-prev-translation))
+ nil nil nil nil)\n\n")
+ (insert "(quail-define-rules\n")
+ (let ((pos (point)))
+ (insert-buffer-substring dicbuf)
+ (goto-char pos)
+ (while (not (eobp))
+ (insert "(\"")
+ (skip-chars-forward "a-z")
+ (insert "\" \"")
+ (delete-char 1)
+ (end-of-line)
+ (insert "\")")
+ (forward-line 1)))
+ (insert ")\n"))
+
+;; Generate a code of a Quail package in the current buffer from
+;; Ziranma dictionary in the buffer DICBUF. The input method name of
+;; the Quail package is NAME, and the title string is TITLE.
+
+(defun ziranma-converter (dicbuf name title)
+ (let (dic)
+ (save-excursion
+ (set-buffer dicbuf)
+ (goto-char (point-min))
+ (search-forward "%keyname end\n")
+ (let ((table (make-hash-table :test 'equal))
+ elt pos key trans val)
+ (while (not (eobp))
+ (setq pos (point))
+ (skip-chars-forward "^ \t")
+ (setq key (buffer-substring pos (point)))
+ (skip-chars-forward " \t")
+ (setq trans (vector (buffer-substring (point) (line-end-position))))
+ (setq val (gethash key table))
+ (if val (setq trans (vconcat val trans)))
+ (puthash key trans table)
+ (forward-line 1))
+ (maphash #'(lambda (key trans)
+ (let ((len (length trans))
+ i)
+ (if (and (= len 1) (= (length (aref trans 0)) 1))
+ (setq trans (aref trans 0))
+ (setq i 0)
+ (while (and (< i len)
+ (= (length (aref trans i)) 1))
+ (setq i (1+ i)))
+ (if (= i len)
+ (setq trans (mapconcat 'identity trans "")))))
+ (setq dic (cons (cons key trans) dic)))
+ table)))
+ (setq dic (sort dic (function (lambda (x y) (string< (car x) (car y))))))
+ (goto-char (point-max))
+ (insert (format "%S\n" "\e$A::WVJdHk!K!>WTH;!?!K\e(B
+
+ \e$A<|EL6TUU1m\e(B:
+ \e$A)3)%)%)W)%)%)W)%)%)W)%)%)W)%)%)W)%)%)W)%)%)W)%)%)W)%)%)W)%)%)7\e(B
+ \e$A)'#Q\e(B \e$A)'#W\e(B \e$A)'#E\e(B \e$A)'#R\e(B \e$A)'#T\e(B \e$A)'#Y\e(B \e$A)'#U\e(Bsh\e$A)'#I\e(Bch\e$A)'#O\e(B \e$A)'#P\e(B \e$A)'\e(B
+ \e$A)'\e(B iu\e$A)'\e(B ua\e$A)'\e(B e\e$A)'\e(B uan\e$A)'\e(B ue\e$A)'\e(B uai\e$A)'\e(B u\e$A)'\e(B i\e$A)'\e(B o\e$A)'\e(B un\e$A)'\e(B
+ \e$A)'\e(B \e$A)'\e(B ia\e$A)'\e(B \e$A)'\e(B van\e$A)'\e(B ve\e$A)'\e(B ing\e$A)'\e(B \e$A)'\e(B \e$A)'\e(B uo\e$A)'\e(B vn\e$A)'\e(B
+ \e$A);)W)%)_)W)%)_)W)%)_)W)%)_)W)%)_)W)%)_)W)%)_)W)%)_)W)%)_)W)%)?\e(B
+ \e$A)'#A\e(B \e$A)'#S\e(B \e$A)'#D\e(B \e$A)'#F\e(B \e$A)'#G\e(B \e$A)'#H\e(B \e$A)'#J\e(B \e$A)'#K\e(B \e$A)'#L\e(B \e$A)'\e(B
+ \e$A)'\e(B a\e$A)'\e(Biong\e$A)'\e(Buang\e$A)'\e(B en\e$A)'\e(B eng\e$A)'\e(B ang\e$A)'\e(B an\e$A)'\e(B ao\e$A)'\e(B ai\e$A)'\e(B
+ \e$A)'\e(B \e$A)'\e(B ong\e$A)'\e(Biang\e$A)'\e(B \e$A)'\e(B ng\e$A)'\e(B \e$A)'\e(B \e$A)'\e(B \e$A)'\e(B \e$A)'\e(B
+ \e$A);)W)%)_)W)%)_)W)%)_)W)%)_)W)%)_)W)%)_)W)%)_)W)%)_)W)%)_)W)%)%)7\e(B
+ \e$A)'#Z\e(B \e$A)'#X\e(B \e$A)'#C\e(B \e$A)'#V\e(Bzh\e$A)'#B\e(B \e$A)'#N\e(B \e$A)'#M\e(B \e$A)'#,\e(B \e$A)'#.\e(B \e$A)'\e(B \e$A#/\e(B \e$A)'\e(B
+ \e$A)'\e(B ei\e$A)'\e(B ie\e$A)'\e(B iao\e$A)'\e(B ui\e$A)'\e(B ou\e$A)'\e(B in\e$A)'\e(B ian\e$A)'G0R3)':sR3)'7{:E)'\e(B
+ \e$A)'\e(B \e$A)'\e(B \e$A)'\e(B \e$A)'\e(B v\e$A)'\e(B \e$A)'\e(B \e$A)'\e(B \e$A)'\e(B \e$A)'\e(B \e$A)'\e(B \e$A)'\e(B
+ \e$A);)%)%)_)%)%)_)%)%)_)%)%)_)%)%)_)%)%)_)%)%)_)%)%)_)%)%)_)%)%)?\e(B
+
+
+Pinyin base input method for Chinese GB2312 characters (`chinese-gb2312').
+
+Pinyin is the standard roman transliteration method for Chinese.
+For the details of Pinyin system, see the documentation of the input
+method `chinese-py'.
+
+Unlike the standard spelling of Pinyin, in this input method all
+initials and finals are assigned to single keys (see the above table).
+For instance, the initial \"ch\" is assigned to the key `i', the final
+\"iu\" is assigned to the key `q', and tones 1, 2, 3, 4, and \e$AGaIy\e(B are
+assigned to the keys `q', `w', `e', `r', `t' respectively.
+
+\\<quail-translation-docstring>
+
+To input one-letter words, you type 4 keys, the first two for the
+Pinyin of the letter, next one for tone, and the last one is always a
+quote ('). For instance, \"vsq'\" input \e$AVP\e(B. Exceptions are these
+letters. You can input them just by typing a single key.
+
+ Character: \e$A04\e(B \e$A2;\e(B \e$A4N\e(B \e$A5D\e(B \e$A6~\e(B \e$A7"\e(B \e$A8v\e(B \e$A:M\e(B \e$A3v\e(B \e$A<0\e(B \e$A?I\e(B \e$AAK\e(B \e$AC;\e(B
+ Key: a b c d e f g h i j k l m
+ Character: \e$ADc\e(B \e$AE7\e(B \e$AF,\e(B \e$AF_\e(B \e$AHK\e(B \e$AH}\e(B \e$AK{\e(B \e$AJG\e(B \e$AWE\e(B \e$ANR\e(B \e$AP!\e(B \e$AR;\e(B \e$ATZ\e(B
+ Key: n o p q r s t u v w x y z
+
+To input two-letter words, you have two ways. One way is to type 4
+keys, two for the first Pinyin, two for the second Pinyin. For
+instance, \"vsgo\" inputs \e$AVP9z\e(B. Another way is to type 3 keys: 2
+initials of two letters, and quote ('). For instance, \"vg'\" also
+inputs \e$AVP9z\e(B.
+
+To input three-letter words, you type 4 keys: initials of three
+letters, and the last is quote ('). For instance, \"bjy'2\" inputs \e$A11\e(B
+\e$A>)Q<\e(B (the last `2' is to select one of the candidates).
+
+To input words of more than three letters, you type 4 keys, initials
+of the first three letters and the last letter. For instance,
+\"bjdt\" inputs \e$A11>)5gJSL(\e(B.
+
+To input symbols and punctuations, type `/' followed by one of `a' to
+`z', then select one of the candidates."))
+ (insert " '((\"\C-?\" . quail-delete-last-char)
+ (\".\" . quail-next-translation)
+ (\"[\" . quail-next-translation)
+ (\",\" . quail-prev-translation)
+ (\"]\" . quail-prev-translation))
+ nil nil nil nil)\n\n")
+ (insert "(quail-define-rules\n")
+ (dolist (elt dic)
+ (insert (format "(%S %S)\n" (car elt) (cdr elt))))
+ (insert ")\n")))
+
+;; Generate the code for a Quail package in the current buffer from a
+;; CTLau or CTLau-b5 dictionary in the buffer DICBUF. The input
+;; method name of the Quail package is NAME, and the title string is
+;; TITLE. DESCRIPTION is the string shown by describe-input-method.
+
+(defun ctlau-converter (dicbuf name title description)
+ (goto-char (point-max))
+ (insert (format "%S\n" description))
+ (insert " '((\"\C-?\" . quail-delete-last-char)
+ (\".\" . quail-next-translation)
+ (\">\" . quail-next-translation)
+ (\",\" . quail-prev-translation)
+ (\"<\" . quail-prev-translation))
+ nil nil nil nil)\n\n")
+ (insert "(quail-define-rules\n")
+ (let (dicbuf-start dicbuf-end key-start key (pos (point)))
+ ;; Find the dictionary, which starts below a horizontal rule and
+ ;; ends at the second to last line in the HTML file.
+ (save-excursion
+ (set-buffer dicbuf)
+ (goto-char (point-min))
+ (search-forward "#\n#<hr>\n")
+ (setq dicbuf-start (point))
+ (goto-char (point-max))
+ (forward-line -1)
+ (setq dicbuf-end (point)))
+ (insert-buffer-substring dicbuf dicbuf-start dicbuf-end)
+ ;; CTLau-b5.html contains characters (0xa1 0xbc) which show up as
+ ;; hollow boxes when the original characters in CTLau.html from
+ ;; which the file is converted have no Big5 equivalent. Go
+ ;; through and delete them.
+ (goto-char pos)
+ (while (search-forward "\e$(0!{\e(B" nil t)
+ (delete-char -1))
+ ;; Uppercase keys in dictionary need to be downcased. Backslashes
+ ;; at the beginning of keys need to be turned into double
+ ;; backslashes.
+ (goto-char pos)
+ (while (not (eobp))
+ (insert "(\"")
+ (if (char-equal (following-char) ?\\)
+ (insert "\\"))
+ (setq key-start (point))
+ (skip-chars-forward "\\\\A-Z")
+ (downcase-region key-start (point))
+ (insert "\" \"")
+ (delete-char 1)
+ (end-of-line)
+ (insert "\")")
+ (forward-line 1)))
+ (insert ")\n"))
+
+(defun ctlau-gb-converter (dicbuf name title)
+ (ctlau-converter dicbuf name title
+"\e$A::WVJdHk!KAuN}OiJ=TARt!K\e(B
+
+ \e$AAuN}OiJ=TASoW"Rt7=08\e(B
+ Sidney Lau's Cantonese transcription scheme as described in his book
+ \"Elementary Cantonese\", The Government Printer, Hong Kong, 1972.
+ This file was prepared by Fung Fung Lee (\e$A@n7c7e\e(B).
+ Originally converted from CTCPS3.tit
+ Last modified: June 2, 1993.
+
+ Some infrequent GB characters are accessed by typing \\, followed by
+ the Cantonese romanization of the respective radical (\e$A2?JW\e(B)."))
+
+(defun ctlau-b5-converter (dicbuf name title)
+ (ctlau-converter dicbuf name title
+"\e$(0KH)tTT&,!(N,Tg>A*#Gn5x!(\e(B
+
+ \e$(0N,Tg>A*#GnM$0D5x'J7{\e(B
+ Sidney Lau's Cantonese transcription scheme as described in his book
+ \"Elementary Cantonese\", The Government Printer, Hong Kong, 1972.
+ This file was prepared by Fung Fung Lee (\e$(0,XFS76\e(B).
+ Originally converted from CTCPS3.tit
+ Last modified: June 2, 1993.
+
+ Some infrequent characters are accessed by typing \\, followed by
+ the Cantonese romanization of the respective radical (\e$(0?f5}\e(B)."))
+
+(defun miscdic-convert (filename &optional dirname)
+ "Convert a dictionary file FILENAME into a Quail package.
+Optional argument DIRNAME if specified is the directory name under which
+the generated Quail package is saved."
+ (interactive "FInput method dictionary file: ")
+ (or (file-readable-p filename)
+ (error "%s does not exist" filename))
+ (let ((tail quail-misc-package-ext-info)
+ (default-buffer-file-coding-system 'iso-2022-7bit)
+ (coding-system-for-write 'iso-2022-7bit)
+ slot
+ name title dicfile coding quailfile converter copyright
+ dicbuf)
+ (while tail
+ (setq slot (car tail)
+ dicfile (nth 2 slot)
+ quailfile (nth 4 slot))
+ (when (and (or (string-match dicfile filename)
+ ;; MS-DOS filesystem truncates file names to 8+3
+ ;; limits, so "cangjie-table.cns" becomes
+ ;; "cangjie-.cns", and the above string-match
+ ;; fails. Give DOS users a chance...
+ (and (fboundp 'msdos-long-file-names)
+ (not (msdos-long-file-names))
+ (string-match (dos-8+3-filename dicfile) filename)))
+ (if (file-newer-than-file-p
+ filename (expand-file-name quailfile dirname))
+ t
+ (message "%s is up to date" quailfile)
+ nil))
+ (setq name (car slot)
+ title (nth 1 slot)
+ coding (nth 3 slot)
+ converter (nth 5 slot)
+ copyright (nth 6 slot))
+ (message "Converting %s to %s..." dicfile quailfile)
+ (with-temp-file (expand-file-name quailfile dirname)
+ (set-buffer-file-coding-system 'iso-2022-7bit)
+ (insert ";; Quail package `" name "' -*- coding:iso-2022-7bit; -*-\n")
+ (insert ";; Generated by the command `miscdic-convert'\n")
+ (insert ";; Date: " (current-time-string) "\n")
+ (insert ";; Source dictionary file: " dicfile "\n")
+ (insert ";; Copyright notice of the source file\n")
+ (insert ";;------------------------------------------------------\n")
+ (insert copyright "\n")
+ (insert ";;------------------------------------------------------\n")
+ (insert "\n")
+ (insert ";;; Code:\n\n")
+ (insert "(require 'quail)\n")
+ (insert "(quail-define-package \"" name "\" \""
+ (if (eq coding 'big5) "Chinese-BIG5" "Chinese-CNS")
+ "\" \"" title "\" t\n")
+ (let* ((coding-system-for-read coding)
+ (dicbuf (find-file-noselect filename)))
+ (funcall converter dicbuf name title)
+ (kill-buffer dicbuf)))
+ (message "Converting %s to %s...done" dicfile quailfile))
+ (setq tail (cdr tail)))))
+
+(defun batch-miscdic-convert ()
+ "Run `miscdic-convert' on the files remaing on the command line.
+Use this from the command line, with `-batch';
+it won't work in an interactive Emacs.
+If there's an argument \"-dir\", the next argument specifies a directory
+to store generated Quail packages."
+ (defvar command-line-args-left) ; Avoid compiler warning.
+ (if (not noninteractive)
+ (error "`batch-miscdic-convert' should be used only with -batch"))
+ (let ((dir default-directory)
+ filename)
+ (while command-line-args-left
+ (if (string= (car command-line-args-left) "-dir")
+ (progn
+ (setq command-line-args-left (cdr command-line-args-left))
+ (setq dir (car command-line-args-left))
+ (setq command-line-args-left (cdr command-line-args-left))))
+ (setq filename (car command-line-args-left)
+ command-line-args-left (cdr command-line-args-left))
+ (if (file-directory-p filename)
+ (dolist (file (directory-files filename t nil t))
+ (miscdic-convert file dir))
+ (miscdic-convert filename dir))))
+ (kill-emacs 0))
+
+;; Local Variables:
+;; coding: iso-2022-7bit
+;; End:
+
+;;; arch-tag: 8ad478b2-a985-4da2-b47f-d8ee5d7c24a3
;;; titdic-cnv.el ends here
HCoop / bpt / emacs.git / blobdiff