Mercurial > emacs
annotate lisp/international/titdic-cnv.el @ 58389:dc700332c8ee
*** empty log message ***
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Sun, 21 Nov 2004 03:51:04 +0000 |
parents | 181520e900b2 |
children | c36561fe0657 4c90ffeb71c5 |
rev | line source |
---|---|
46670 | 1 ;;; titdic-cnv.el --- convert cxterm dictionary (TIT format) to Quail package -*- coding:iso-2022-7bit; -*- |
17052 | 2 |
3 ;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN. | |
18377
8b4a66c66dd6
Change copyright notice.
Richard M. Stallman <rms@gnu.org>
parents:
18202
diff
changeset
|
4 ;; Licensed to the Free Software Foundation. |
17052 | 5 |
6 ;; Keywords: Quail, TIT, cxterm | |
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 | |
17071 | 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. | |
17052 | 24 |
38414
67b464da13ec
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
37888
diff
changeset
|
25 ;;; Commentary: |
17052 | 26 |
18555 | 27 ;; Convert cxterm dictionary (of TIT format) to quail-package. |
17052 | 28 ;; |
29 ;; Usage (within Emacs): | |
18555 | 30 ;; M-x titdic-convert<CR>CXTERM-DICTIONARY-NAME<CR> |
17052 | 31 ;; Usage (from shell): |
18555 | 32 ;; % emacs -batch -l titdic-cnv -f batch-titdic-convert\ |
17052 | 33 ;; [-dir DIR] [DIR | FILE] ... |
34 ;; | |
35 ;; When you run titdic-convert within Emacs, you have a chance to | |
36 ;; modify arguments of `quail-define-package' before saving the | |
37 ;; converted file. For instance, you are likely to modify TITLE, | |
38 ;; DOCSTRING, and KEY-BINDINGS. | |
39 | |
18555 | 40 ;; Cxterm dictionary file (*.tit) is a line-oriented text (English, |
17052 | 41 ;; Chinese, Japanese, and Korean) file. The whole file contains of |
42 ;; two parts, the definition part (`header' here after) followed by | |
43 ;; the dictionary part (`body' here after). All lines begin with | |
44 ;; leading '#' are ignored. | |
45 ;; | |
46 ;; Each line in the header part has two fields, KEY and VALUE. These | |
47 ;; fields are separated by one or more white characters. | |
48 ;; | |
49 ;; Each line in the body part has two fields, KEYSEQ and TRANSLATIONS. | |
50 ;; These fields are separated by one or more white characters. | |
51 ;; | |
52 ;; See the manual page of `tit2cit' of cxterm distribution for more | |
53 ;; detail. | |
37116
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
54 ;; |
37261 | 55 ;; Near the end of this file, we also have a few other tools to convert |
37116
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
56 ;; miscellaneous dictionaries. |
17052 | 57 |
58 ;;; Code: | |
59 | |
60 (require 'quail) | |
61 | |
18555 | 62 ;; List of values of key "ENCODE:" and the corresponding Emacs |
17052 | 63 ;; coding-system and language environment name. |
64 (defvar tit-encode-list | |
17098
8917133b7e82
Remove prefix "coding-system-" from coding system symbol names.
Kenichi Handa <handa@m17n.org>
parents:
17071
diff
changeset
|
65 '(("GB" euc-china "Chinese-GB") |
8917133b7e82
Remove prefix "coding-system-" from coding system symbol names.
Kenichi Handa <handa@m17n.org>
parents:
17071
diff
changeset
|
66 ("BIG5" cn-big5 "Chinese-BIG5") |
8917133b7e82
Remove prefix "coding-system-" from coding system symbol names.
Kenichi Handa <handa@m17n.org>
parents:
17071
diff
changeset
|
67 ("JIS" euc-japan "Japanese") |
18555 | 68 ("KS" euc-kr "Korean"))) |
69 | |
31548
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
70 ;; Alist of input method names and the corresponding title and extra |
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
71 ;; docstring. For each of input method generated from TIT dictionary, |
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
72 ;; a docstring is automatically generated from the comments in the |
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
73 ;; dictionary. The extra docstring in this alist is to add more |
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
74 ;; information. |
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
75 ;; The command describe-input-method shows the automatically generated |
46670 | 76 ;; docstring, then an extra docstring while replacing the form \<VAR> |
31548
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
77 ;; by the value of variable VAR. For instance, the form |
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
78 ;; \<quail-translation-docstring> is replaced by a description about |
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
79 ;; how to select a translation from a list of candidates. |
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
80 |
31425
3ab020a4847b
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
21503
diff
changeset
|
81 (defvar quail-cxterm-package-ext-info |
3ab020a4847b
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
21503
diff
changeset
|
82 '(("chinese-4corner" "$(0(?-F(B") |
3ab020a4847b
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
21503
diff
changeset
|
83 ("chinese-array30" "$(0#R#O(B") |
31548
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
84 ("chinese-ccdospy" "$AKuF4(B" |
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
85 "Pinyin base input method for Chinese charset GB2312 \(`chinese-gb2312'). |
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
86 |
46670 | 87 Pinyin is the standard Roman transliteration method for Chinese. |
31548
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
88 For the detail of Pinyin system, see the documentation of the input |
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
89 method `chinese-py'. |
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
90 |
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
91 This input method works almost the same way as `chinese-py'. The |
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
92 difference is that you type a single key for these Pinyin spelling. |
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
93 Pinyin: zh en eng ang ch an ao ai ong sh ing yu($A(9(B) |
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
94 keyseq: a f g h i j k l s u y v |
46670 | 95 For example: |
31548
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
96 Chinese: $A0!(B $A9{(B $AVP(B $AND(B $A9b(B $ASq(B $AH+(B |
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
97 Pinyin: a guo zhong wen guang yu quan |
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
98 Keyseq: a1 guo4 as1 wf4 guh1 yu..6 qvj6 |
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
99 |
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
100 \\<quail-translation-docstring> |
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
101 |
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
102 For double-width GB2312 characters correponding to ASCII, use the |
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
103 input method `chinese-qj'.") |
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
104 |
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
105 ("chinese-ecdict" "$(05CKH(B" |
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
106 "In this input method, you enter a Chinese (Big5) charactere or word |
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
107 by typing the corresponding English word. For example, if you type |
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
108 \"computer\", \"$(0IZH+(B\" is input. |
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
109 |
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
110 \\<quail-translation-docstring>") |
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
111 |
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
112 ("chinese-etzy" "$(06/0D(B" |
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
113 "Zhuyin base input method for Chinese Big5 characters (`chinese-big5-1', |
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
114 `chinese-big5-2'). |
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
115 |
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
116 Zhuyin is a kind of phonetic symbol. One to three Zhuyin symbols |
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
117 compose one Chinese character. |
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
118 |
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
119 In this input method, you enter a Chinese character by first typing |
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
120 keys corresponding to Zhuyin symbols (see the above table) followed by |
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
121 SPC, 1, 2, 3, or 4 specifing a tone (SPC:$(0?v(N(B, 1:$(0M=Vy(B, 2:$(0Dm(N(B, 3: $(0&9Vy(B, |
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
122 4:$(0(+Vy(B). |
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
123 |
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
124 \\<quail-translation-docstring>") |
31425
3ab020a4847b
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
21503
diff
changeset
|
125 |
3ab020a4847b
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
21503
diff
changeset
|
126 ("chinese-punct-b5" "$(0O:(BB" |
3ab020a4847b
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
21503
diff
changeset
|
127 "Input method for Chinese punctuations and symbols of Big5 |
3ab020a4847b
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
21503
diff
changeset
|
128 \(`chinese-big5-1' and `chinese-big5-2').") |
3ab020a4847b
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
21503
diff
changeset
|
129 |
3ab020a4847b
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
21503
diff
changeset
|
130 ("chinese-punct" "$A1j(BG" |
3ab020a4847b
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
21503
diff
changeset
|
131 "Input method for Chinese punctuations and symbols of GB2312 |
3ab020a4847b
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
21503
diff
changeset
|
132 \(`chinese-gb2312').") |
3ab020a4847b
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
21503
diff
changeset
|
133 |
3ab020a4847b
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
21503
diff
changeset
|
134 ("chinese-py-b5" "$(03<(BB" |
3ab020a4847b
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
21503
diff
changeset
|
135 "Pinyin base input method for Chinese Big5 characters |
3ab020a4847b
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
21503
diff
changeset
|
136 \(`chinese-big5-1', `chinese-big5-2'). |
3ab020a4847b
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
21503
diff
changeset
|
137 |
3ab020a4847b
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
21503
diff
changeset
|
138 This input method works almost the same way as `chinese-py' (which |
3ab020a4847b
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
21503
diff
changeset
|
139 see). |
3ab020a4847b
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
21503
diff
changeset
|
140 |
3ab020a4847b
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
21503
diff
changeset
|
141 This input method supports only Han characters. The more convenient |
31481
e9e907d10d80
(quail-cxterm-package-ext-info): Fix doc strings of chinese-py-b5,
Eli Zaretskii <eliz@gnu.org>
parents:
31425
diff
changeset
|
142 method is `chinese-py-punct-b5', which is the combination of this |
e9e907d10d80
(quail-cxterm-package-ext-info): Fix doc strings of chinese-py-b5,
Eli Zaretskii <eliz@gnu.org>
parents:
31425
diff
changeset
|
143 method and `chinese-punct-b5' and which supports both Han characters |
e9e907d10d80
(quail-cxterm-package-ext-info): Fix doc strings of chinese-py-b5,
Eli Zaretskii <eliz@gnu.org>
parents:
31425
diff
changeset
|
144 and punctuation/symbols. |
31425
3ab020a4847b
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
21503
diff
changeset
|
145 |
31481
e9e907d10d80
(quail-cxterm-package-ext-info): Fix doc strings of chinese-py-b5,
Eli Zaretskii <eliz@gnu.org>
parents:
31425
diff
changeset
|
146 For double-width Big5 characters corresponding to ASCII, use the input |
31425
3ab020a4847b
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
21503
diff
changeset
|
147 method `chinese-qj-b5'. |
3ab020a4847b
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
21503
diff
changeset
|
148 |
3ab020a4847b
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
21503
diff
changeset
|
149 The input method `chinese-py' and `chinese-tonepy' are also Pinyin |
31481
e9e907d10d80
(quail-cxterm-package-ext-info): Fix doc strings of chinese-py-b5,
Eli Zaretskii <eliz@gnu.org>
parents:
31425
diff
changeset
|
150 based, but for the character set GB2312 (`chinese-gb2312').") |
31425
3ab020a4847b
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
21503
diff
changeset
|
151 |
31548
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
152 ("chinese-qj-b5" "$(0)A(BB") |
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
153 |
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
154 ("chinese-qj" "$AH+(BG") |
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
155 |
31425
3ab020a4847b
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
21503
diff
changeset
|
156 ("chinese-sw" "$AJWN2(B" |
31548
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
157 "Radical base input method for Chinese charset GB2312 (`chinese-gb2312'). |
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
158 |
32277
d589b182b25a
(quail-cxterm-package-ext-info): Fix typos in doc strings.
Eli Zaretskii <eliz@gnu.org>
parents:
31548
diff
changeset
|
159 In this input method, you enter a Chinese character by typing two |
d589b182b25a
(quail-cxterm-package-ext-info): Fix typos in doc strings.
Eli Zaretskii <eliz@gnu.org>
parents:
31548
diff
changeset
|
160 keys. The first key corresponds to the first ($AJW(B) radical, the second |
d589b182b25a
(quail-cxterm-package-ext-info): Fix typos in doc strings.
Eli Zaretskii <eliz@gnu.org>
parents:
31548
diff
changeset
|
161 key corresponds to the last ($AN2(B) radical. The correspondence of keys |
d589b182b25a
(quail-cxterm-package-ext-info): Fix typos in doc strings.
Eli Zaretskii <eliz@gnu.org>
parents:
31548
diff
changeset
|
162 and radicals is as below: |
31548
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
163 |
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
164 first radical: |
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
165 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 |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48760
diff
changeset
|
166 $APD(B $AZ"(B $AJ,(B $AX<(B $A;p(B $A?Z(B $A^P(B $Ac_(B $AZ%(B $A\3(B $AXi(B $AD>(B $Alj(B $Ab;(B $ATB(B $Afy(B $AJ/(B $AMu(B $A0K(B $AX/(B $AHU(B $AeA(B $Aak(B $AVq(B $AR;(B $AHK(B |
31548
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
167 last radical: |
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
168 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 |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48760
diff
changeset
|
169 $ASV(B $AI=(B $AMA(B $A56(B $AZb(B $A?Z(B $ARB(B $Aqb(B $A4s(B $A6!(B $A[L(B $Ala(B $AJ.(B $A4u(B $AXg(B $ACE(B $A=q(B $AX-(B $AE.(B $ARR(B $A`m(B $AP!(B $A3'(B $A3f(B $A_.(B $A27(B |
31548
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
170 |
36995
eba40b9dc09b
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36684
diff
changeset
|
171 \\<quail-translation-docstring>") |
31548
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
172 |
31425
3ab020a4847b
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
21503
diff
changeset
|
173 ("chinese-tonepy" "$A5wF4(B" |
3ab020a4847b
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
21503
diff
changeset
|
174 "Pinyin base input method for Chinese charset GB2312 (`chinese-gb2312'). |
3ab020a4847b
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
21503
diff
changeset
|
175 |
48760
0006966fe2dc
(titdic-convert): Process the header part in multibyte mode.
Kenichi Handa <handa@m17n.org>
parents:
48666
diff
changeset
|
176 Pinyin is the standard roman transliteration method for Chinese. |
32277
d589b182b25a
(quail-cxterm-package-ext-info): Fix typos in doc strings.
Eli Zaretskii <eliz@gnu.org>
parents:
31548
diff
changeset
|
177 For the details of Pinyin system, see the documentation of the input |
31425
3ab020a4847b
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
21503
diff
changeset
|
178 method `chinese-py'. |
3ab020a4847b
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
21503
diff
changeset
|
179 |
3ab020a4847b
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
21503
diff
changeset
|
180 This input method works almost the same way as `chinese-py'. The |
31548
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
181 difference is that you must type 1..5 after each Pinyin spelling to |
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
182 specify a tone (1:$ARuF=(B, 2:$AQtF=(B, 3:$AIOIy(B, 4$AOBIy(B, 5:$AGaIy(B). |
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
183 |
36995
eba40b9dc09b
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36684
diff
changeset
|
184 \\<quail-translation-docstring> |
31548
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
185 |
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
186 For instance, to input $ADc(B, you type \"n i 3 3\", the first \"n i\" is |
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
187 a Pinyin, the next \"3\" specifies tone, and the last \"3\" selects |
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
188 the third character from the candidate list. |
31425
3ab020a4847b
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
21503
diff
changeset
|
189 |
3ab020a4847b
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
21503
diff
changeset
|
190 For double-width GB2312 characters correponding to ASCII, use the |
3ab020a4847b
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
21503
diff
changeset
|
191 input method `chinese-qj'.") |
3ab020a4847b
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
21503
diff
changeset
|
192 |
31548
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
193 ("chinese-zozy" "$(0I\0D(B" |
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
194 "Zhuyin base input method for Chinese Big5 characters (`chinese-big5-1', |
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
195 `chinese-big5-2'). |
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
196 |
32277
d589b182b25a
(quail-cxterm-package-ext-info): Fix typos in doc strings.
Eli Zaretskii <eliz@gnu.org>
parents:
31548
diff
changeset
|
197 Zhuyin is a kind of a phonetic symbol. One to three Zhuyin symbols |
31548
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
198 compose a Chinese character. |
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
199 |
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
200 In this input method, you enter a Chinese character by first typing |
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
201 keys corresponding to Zhuyin symbols (see the above table) followed by |
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
202 SPC, 6, 3, 4, or 7 specifing a tone (SPC:$(0?v(N(B, 6:$(0Dm(N(B, 3:$(0&9Vy(B, 4:$(0(+Vy(B, |
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
203 7:$(0M=Vy(B). |
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
204 |
36995
eba40b9dc09b
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36684
diff
changeset
|
205 \\<quail-translation-docstring>"))) |
17052 | 206 |
207 ;; Return a value of the key in the current line. | |
208 (defsubst tit-read-key-value () | |
52408
0fda57976189
(tit-read-key-value): Include \r in regexp.
Jason Rumney <jasonr@gnu.org>
parents:
52401
diff
changeset
|
209 (if (looking-at "[^ \t\r\n]+") |
17052 | 210 (car (read-from-string (concat "\"" (match-string 0) "\""))))) |
211 | |
212 ;; Return an appropriate quail-package filename from FILENAME (TIT | |
18555 | 213 ;; dictionary filename). For instance, ".../ZOZY.tit" -> "ZOZY.el". |
214 (defun tit-make-quail-package-file-name (filename &optional dirname) | |
17052 | 215 (expand-file-name |
18555 | 216 (concat (file-name-nondirectory (substring filename 0 -4)) ".el") |
17052 | 217 dirname)) |
218 | |
20840
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
219 ;; This value is nil if we are processing phrase dictionary. |
44449
d43b78a12997
(tit-dictionary): Use defvar for non-constants.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38414
diff
changeset
|
220 (defvar tit-dictionary t) |
17052 | 221 (defvar tit-encode nil) |
222 (defvar tit-default-encode "GB") | |
223 | |
224 ;; Generate elements of KEY-BINDINGS arg for `quail-define-package' so | |
225 ;; that each characters in KEYS invokes FUNCTION-SYMBOL. | |
226 (defun tit-generate-key-bindings (keys function-symbol) | |
227 (let ((len (length keys)) | |
228 (i 0) | |
20840
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
229 (first t) |
17052 | 230 key) |
231 (while (< i len) | |
20840
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
232 (or first (princ "\n ")) |
17052 | 233 (setq key (aref keys i)) |
20840
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
234 (if (if (< key ?\ ) |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
235 (eq (lookup-key quail-translation-keymap |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
236 (char-to-string key)) |
17052 | 237 'quail-execute-non-quail-command) |
20840
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
238 (<= key 127)) |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
239 (progn |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
240 (princ (cons (cond ((< key ?\ ) (format "\"\\C-%c\"" (+ key ?@))) |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
241 ((< key 127) (format "\"%c\"" key)) |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
242 (t "\"\\C-?\"")) |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
243 function-symbol)) |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
244 (setq first nil))) |
17052 | 245 (setq i (1+ i))))) |
246 | |
247 ;; Analyze header part of TIT dictionary and generate an appropriate | |
248 ;; `quail-define-package' function call. | |
249 (defun tit-process-header (filename) | |
250 (message "Processing header part...") | |
251 (goto-char (point-min)) | |
252 | |
20840
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
253 ;; At first, generate header part of the Quail package while |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
254 ;; collecting information from the original header. |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
255 (let ((package (concat |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
256 "chinese-" |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
257 (substring (downcase (file-name-nondirectory filename)) |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
258 0 -4))) |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
259 ;; TIT keywords and the corresponding default values. |
17052 | 260 (tit-multichoice t) |
261 (tit-prompt "") | |
262 (tit-comments nil) | |
263 (tit-backspace "\010\177") | |
264 (tit-deleteall "\015\025") | |
265 (tit-moveright ".>") | |
266 (tit-moveleft ",<") | |
267 (tit-keyprompt nil)) | |
20840
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
268 |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
269 (princ ";; Quail package `") |
46670 | 270 (princ package) (princ "' -*- coding:iso-2022-7bit; -*-\n") |
271 (princ ";; Generated by the command `titdic-convert'\n;;\tDate: ") | |
20840
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
272 (princ (current-time-string)) |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
273 (princ "\n;;\tOriginal TIT dictionary file: ") |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
274 (princ (file-name-nondirectory filename)) |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
275 (princ "\n\n;;; Comment:\n\n") |
21503
d08387c742bb
(titdic-convert): Message improved.
Kenichi Handa <handa@m17n.org>
parents:
21081
diff
changeset
|
276 (princ ";; Byte-compile this file again after any modification.\n\n") |
20840
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
277 (princ ";;; Start of the header of original TIT dictionary.\n\n") |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
278 |
17052 | 279 (while (not (eobp)) |
20840
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
280 (let ((ch (following-char)) |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
281 (pos (point))) |
17052 | 282 (cond ((= ch ?C) ; COMMENT |
283 (cond ((looking-at "COMMENT") | |
284 (let ((pos (match-end 0))) | |
285 (end-of-line) | |
286 (setq tit-comments (cons (buffer-substring pos (point)) | |
287 tit-comments)))))) | |
288 ((= ch ?M) ; MULTICHOICE, MOVERIGHT, MOVELEFT | |
289 (cond ((looking-at "MULTICHOICE:[ \t]*") | |
290 (goto-char (match-end 0)) | |
291 (setq tit-multichoice (looking-at "YES"))) | |
292 ((looking-at "MOVERIGHT:[ \t]*") | |
293 (goto-char (match-end 0)) | |
294 (setq tit-moveright (tit-read-key-value))) | |
295 ((looking-at "MOVELEFT:[ \t]*") | |
296 (goto-char (match-end 0)) | |
297 (setq tit-moveleft (tit-read-key-value))))) | |
298 ((= ch ?P) ; PROMPT | |
299 (cond ((looking-at "PROMPT:[ \t]*") | |
300 (goto-char (match-end 0)) | |
31425
3ab020a4847b
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
21503
diff
changeset
|
301 (setq tit-prompt (tit-read-key-value)) |
3ab020a4847b
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
21503
diff
changeset
|
302 ;; Some TIT dictionaies that are encoded by |
3ab020a4847b
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
21503
diff
changeset
|
303 ;; euc-china contains invalid character at the tail. |
3ab020a4847b
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
21503
diff
changeset
|
304 (let* ((last (aref tit-prompt (1- (length tit-prompt)))) |
3ab020a4847b
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
21503
diff
changeset
|
305 (split (split-char last))) |
3ab020a4847b
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
21503
diff
changeset
|
306 (if (or (eq (nth 1 split) 32) |
3ab020a4847b
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
21503
diff
changeset
|
307 (eq (nth 2 split) 32)) |
3ab020a4847b
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
21503
diff
changeset
|
308 (setq tit-prompt (substring tit-prompt 0 -1))))))) |
17052 | 309 ((= ch ?B) ; BACKSPACE, BEGINDICTIONARY, |
310 ; BEGINPHRASE | |
311 (cond ((looking-at "BACKSPACE:[ \t]*") | |
312 (goto-char (match-end 0)) | |
313 (setq tit-backspace (tit-read-key-value))) | |
314 ((looking-at "BEGINDICTIONARY") | |
20840
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
315 (setq tit-dictionary t)) |
17052 | 316 ((looking-at "BEGINPHRASE") |
20840
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
317 (setq tit-dictionary nil)))) |
17052 | 318 ((= ch ?K) ; KEYPROMPT |
319 (cond ((looking-at "KEYPROMPT(\\(.*\\)):[ \t]*") | |
320 (let ((key-char (match-string 1))) | |
321 (goto-char (match-end 0)) | |
19943
23ada3fdbc8b
(tit-process-header): Convert argument of KEYPROMPT if it contains an escape.
Richard M. Stallman <rms@gnu.org>
parents:
19431
diff
changeset
|
322 (if (string-match "\\\\[0-9]+" key-char) |
23ada3fdbc8b
(tit-process-header): Convert argument of KEYPROMPT if it contains an escape.
Richard M. Stallman <rms@gnu.org>
parents:
19431
diff
changeset
|
323 (setq key-char |
23ada3fdbc8b
(tit-process-header): Convert argument of KEYPROMPT if it contains an escape.
Richard M. Stallman <rms@gnu.org>
parents:
19431
diff
changeset
|
324 (car (read-from-string (format "\"%s\"" |
23ada3fdbc8b
(tit-process-header): Convert argument of KEYPROMPT if it contains an escape.
Richard M. Stallman <rms@gnu.org>
parents:
19431
diff
changeset
|
325 key-char))))) |
17052 | 326 (setq tit-keyprompt |
327 (cons (cons key-char (tit-read-key-value)) | |
20840
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
328 tit-keyprompt))))))) |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
329 (end-of-line) |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
330 (princ ";; ") |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
331 (princ (buffer-substring pos (point))) |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
332 (princ "\n") |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
333 (forward-line 1))) |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48760
diff
changeset
|
334 |
20840
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
335 (princ "\n;;; End of the header of original TIT dictionary.\n\n") |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
336 (princ ";;; Code:\n\n(require 'quail)\n\n") |
17052 | 337 |
20840
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
338 (princ "(quail-define-package ") |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
339 ;; Args NAME, LANGUAGE, TITLE |
31425
3ab020a4847b
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
21503
diff
changeset
|
340 (let ((title (nth 1 (assoc package quail-cxterm-package-ext-info)))) |
20840
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
341 (princ "\"") |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
342 (princ package) |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
343 (princ "\" \"") |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
344 (princ (nth 2 (assoc tit-encode tit-encode-list))) |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
345 (princ "\" \"") |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
346 (princ (or title |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
347 (if (string-match "[:$A!K$(0!(!J(B]+\\([^:$A!K$(0!(!K(B]+\\)" tit-prompt) |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
348 (substring tit-prompt (match-beginning 1) (match-end 1)) |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
349 tit-prompt))) |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
350 (princ "\"\n")) |
17052 | 351 |
352 ;; Arg GUIDANCE | |
353 (if tit-keyprompt | |
354 (progn | |
20840
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
355 (princ " '(") |
17052 | 356 (while tit-keyprompt |
20840
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
357 (princ " ") |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
358 (princ (format "(%d . \"%s\")\n" |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
359 (string-to-char (car (car tit-keyprompt))) |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
360 (cdr (car tit-keyprompt)))) |
17052 | 361 (setq tit-keyprompt (cdr tit-keyprompt))) |
20840
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
362 (princ ")")) |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
363 (princ " t\n")) |
17052 | 364 |
365 ;; Arg DOCSTRING | |
31425
3ab020a4847b
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
21503
diff
changeset
|
366 (let ((doc (concat tit-prompt "\n")) |
3ab020a4847b
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
21503
diff
changeset
|
367 (comments (if tit-comments |
3ab020a4847b
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
21503
diff
changeset
|
368 (mapconcat 'identity (nreverse tit-comments) "\n"))) |
3ab020a4847b
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
21503
diff
changeset
|
369 (doc-ext (nth 2 (assoc package quail-cxterm-package-ext-info)))) |
3ab020a4847b
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
21503
diff
changeset
|
370 (if comments |
3ab020a4847b
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
21503
diff
changeset
|
371 (setq doc (concat doc "\n" comments "\n"))) |
3ab020a4847b
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
21503
diff
changeset
|
372 (if doc-ext |
3ab020a4847b
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
21503
diff
changeset
|
373 (setq doc (concat doc "\n" doc-ext "\n"))) |
3ab020a4847b
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
21503
diff
changeset
|
374 (prin1 doc) |
3ab020a4847b
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
21503
diff
changeset
|
375 (terpri)) |
17052 | 376 |
377 ;; Arg KEY-BINDINGS | |
20840
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
378 (princ " '(") |
17052 | 379 (tit-generate-key-bindings tit-backspace 'quail-delete-last-char) |
20840
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
380 (princ "\n ") |
17052 | 381 (tit-generate-key-bindings tit-deleteall 'quail-abort-translation) |
20840
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
382 (princ "\n ") |
17052 | 383 (tit-generate-key-bindings tit-moveright 'quail-next-translation) |
20840
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
384 (princ "\n ") |
17052 | 385 (tit-generate-key-bindings tit-moveleft 'quail-prev-translation) |
20840
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
386 (princ ")\n") |
17052 | 387 |
388 ;; Args FORGET-TRANSLATION, DETERMINISTIC, KBD-TRANSLATE, SHOW-LAYOUT. | |
389 ;; The remaining args are all nil. | |
20840
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
390 (princ " nil") |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
391 (princ (if tit-multichoice " nil" " t")) |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
392 (princ (if tit-keyprompt " t t)\n\n" " nil nil)\n\n")))) |
17052 | 393 |
20840
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
394 (defsubst tit-flush-translations (key translations) |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
395 (if (string-match "\\\\[0-9][0-9][0-9]" key) |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
396 (let ((newkey (concat (substring key 0 (match-beginning 0)) |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
397 (car (read-from-string |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
398 (concat "\"" (match-string 0 key) "\""))))) |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
399 (idx (match-end 0))) |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
400 (while (string-match "\\\\[0-9][0-9][0-9]" key idx) |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
401 (setq newkey (concat |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
402 newkey |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
403 (substring key idx (match-beginning 0)) |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
404 (car (read-from-string |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
405 (concat "\"" (match-string 0 key) "\""))))) |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
406 (setq idx (match-end 0))) |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
407 (setq key (concat newkey (substring key idx))))) |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
408 (prin1 (list key (if tit-dictionary translations |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
409 (vconcat (nreverse translations))))) |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
410 (princ "\n")) |
17052 | 411 |
412 ;; Convert body part of TIT dictionary into `quail-define-rules' | |
413 ;; function call. | |
414 (defun tit-process-body () | |
415 (message "Formatting translation rules...") | |
20840
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
416 (let* ((template (list nil nil)) |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
417 (second (cdr template)) |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
418 (prev-key "") |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
419 ch key translations pos) |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
420 (princ "(quail-define-rules\n") |
17052 | 421 (while (null (eobp)) |
20840
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
422 (setq ch (following-char)) |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
423 (if (or (= ch ?#) (= ch ?\n)) |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
424 (forward-line 1) |
17052 | 425 (setq pos (point)) |
20840
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
426 (skip-chars-forward "^ \t\n") |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
427 (setq key (buffer-substring pos (point))) |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
428 (skip-chars-forward " \t") |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
429 (setq ch (following-char)) |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
430 (if (or (= ch ?#) (= ch ?\n)) |
18796
ab40b57484c1
(tit-process-body): Ignore vacant entries.
Kenichi Handa <handa@m17n.org>
parents:
18555
diff
changeset
|
431 ;; This entry contains no translations. Let's ignore it. |
20840
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
432 (forward-line 1) |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
433 (or (string= key prev-key) |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
434 (progn |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
435 (if translations |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
436 (tit-flush-translations prev-key translations)) |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
437 (setq translations nil |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
438 prev-key key))) |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
439 (if tit-dictionary |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
440 (progn |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
441 (setq pos (point)) |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
442 (skip-chars-forward "^ \t#\n") |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
443 (setq translations |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
444 (if translations |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
445 (concat translations |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
446 (buffer-substring pos (point))) |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
447 (buffer-substring pos (point))))) |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
448 (while (not (eolp)) |
18796
ab40b57484c1
(tit-process-body): Ignore vacant entries.
Kenichi Handa <handa@m17n.org>
parents:
18555
diff
changeset
|
449 (setq pos (point)) |
20840
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
450 (skip-chars-forward "^ \t\n") |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
451 (setq translations (cons (buffer-substring pos (point)) |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
452 translations)) |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
453 (skip-chars-forward " \t") |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
454 (setq ch (following-char)) |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
455 (if (= ch ?#) (end-of-line)))) |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
456 (forward-line 1)))) |
18796
ab40b57484c1
(tit-process-body): Ignore vacant entries.
Kenichi Handa <handa@m17n.org>
parents:
18555
diff
changeset
|
457 |
20840
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
458 (if translations |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
459 (tit-flush-translations prev-key translations)) |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
460 (princ ")\n"))) |
17052 | 461 |
462 ;;;###autoload | |
463 (defun titdic-convert (filename &optional dirname) | |
464 "Convert a TIT dictionary of FILENAME into a Quail package. | |
465 Optional argument DIRNAME if specified is the directory name under which | |
466 the generated Quail package is saved." | |
467 (interactive "FTIT dictionary file: ") | |
46670 | 468 (let ((coding-system-for-write 'iso-2022-7bit)) |
469 (with-temp-file (tit-make-quail-package-file-name filename dirname) | |
470 (set-buffer-file-coding-system 'iso-2022-7bit) | |
471 (let ((standard-output (current-buffer))) | |
472 (with-temp-buffer | |
473 (set-buffer-multibyte nil) | |
474 (let ((coding-system-for-read 'no-conversion)) | |
475 (insert-file-contents (expand-file-name filename))) | |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48760
diff
changeset
|
476 |
46670 | 477 ;; Decode the buffer contents from the encoding specified by a |
478 ;; value of the key "ENCODE:". | |
479 (if (not (search-forward "\nBEGIN" nil t)) | |
480 (error "TIT dictionary doesn't have body part")) | |
481 (let ((limit (point)) | |
482 coding-system slot) | |
483 (goto-char (point-min)) | |
484 (if (re-search-forward "^ENCODE:[ \t]*" limit t) | |
485 (progn | |
486 (goto-char (match-end 0)) | |
487 (setq tit-encode (tit-read-key-value))) | |
488 (setq tit-encode tit-default-encode)) | |
489 (setq slot (assoc tit-encode tit-encode-list)) | |
490 (if (not slot) | |
491 (error "Invalid ENCODE: value in TIT dictionary")) | |
492 (setq coding-system (nth 1 slot)) | |
493 (message "Decoding with coding system %s..." coding-system) | |
494 (goto-char (point-min)) | |
495 (decode-coding-region (point-min) (point-max) coding-system)) | |
496 | |
497 ;; Set point the starting position of the body part. | |
20840
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
498 (goto-char (point-min)) |
46670 | 499 (if (not (search-forward "\nBEGIN" nil t)) |
500 (error "TIT dictionary can't be decoded correctly")) | |
17052 | 501 |
48760
0006966fe2dc
(titdic-convert): Process the header part in multibyte mode.
Kenichi Handa <handa@m17n.org>
parents:
48666
diff
changeset
|
502 ;; Process the header part in multibyte mode. |
0006966fe2dc
(titdic-convert): Process the header part in multibyte mode.
Kenichi Handa <handa@m17n.org>
parents:
48666
diff
changeset
|
503 (with-current-buffer standard-output |
0006966fe2dc
(titdic-convert): Process the header part in multibyte mode.
Kenichi Handa <handa@m17n.org>
parents:
48666
diff
changeset
|
504 (set-buffer-multibyte t)) |
0006966fe2dc
(titdic-convert): Process the header part in multibyte mode.
Kenichi Handa <handa@m17n.org>
parents:
48666
diff
changeset
|
505 (set-buffer-multibyte t) |
46670 | 506 (forward-line 1) |
507 (narrow-to-region (point-min) (point)) | |
508 (tit-process-header filename) | |
509 (widen) | |
17052 | 510 |
46670 | 511 ;; Process the body part. For speed, we turn off multibyte facility. |
512 (with-current-buffer standard-output | |
513 (set-buffer-multibyte nil)) | |
514 (set-buffer-multibyte nil) | |
515 (tit-process-body)))))) | |
17052 | 516 |
517 ;;;###autoload | |
18831
e6f6c2712a5f
(batch-titdic-convert): Add optional arg FORCE.
Kenichi Handa <handa@m17n.org>
parents:
18796
diff
changeset
|
518 (defun batch-titdic-convert (&optional force) |
17052 | 519 "Run `titdic-convert' on the files remaining on the command line. |
520 Use this from the command line, with `-batch'; | |
521 it won't work in an interactive Emacs. | |
522 For example, invoke \"emacs -batch -f batch-titdic-convert XXX.tit\" to | |
523 generate Quail package file \"xxx.el\" from TIT dictionary file \"XXX.tit\". | |
524 To get complete usage, invoke \"emacs -batch -f batch-titdic-convert -h\"." | |
525 (defvar command-line-args-left) ; Avoid compiler warning. | |
526 (if (not noninteractive) | |
527 (error "`batch-titdic-convert' should be used only with -batch")) | |
528 (if (string= (car command-line-args-left) "-h") | |
529 (progn | |
530 (message "To convert XXX.tit and YYY.tit into xxx.el and yyy.el:") | |
531 (message " %% emacs -batch -l titdic-cnv -f batch-titdic-convert XXX.tit YYY.tit") | |
532 (message "To convert XXX.tit into DIR/xxx.el:") | |
533 (message " %% emacs -batch -l titdic-cnv -f batch-titdic-convert -dir DIR XXX.tit")) | |
534 (let (targetdir filename files file) | |
535 (if (string= (car command-line-args-left) "-dir") | |
536 (progn | |
537 (setq command-line-args-left (cdr command-line-args-left)) | |
538 (setq targetdir (car command-line-args-left)) | |
539 (setq command-line-args-left (cdr command-line-args-left)))) | |
540 (while command-line-args-left | |
541 (setq filename (expand-file-name (car command-line-args-left))) | |
542 (if (file-directory-p filename) | |
543 (progn | |
544 (message "Converting all tit files in the directory %s" filename) | |
545 (setq files (directory-files filename t "\\.tit$"))) | |
546 (setq files (list filename))) | |
547 (while files | |
548 (setq file (expand-file-name (car files))) | |
18831
e6f6c2712a5f
(batch-titdic-convert): Add optional arg FORCE.
Kenichi Handa <handa@m17n.org>
parents:
18796
diff
changeset
|
549 (when (or force |
e6f6c2712a5f
(batch-titdic-convert): Add optional arg FORCE.
Kenichi Handa <handa@m17n.org>
parents:
18796
diff
changeset
|
550 (file-newer-than-file-p |
e6f6c2712a5f
(batch-titdic-convert): Add optional arg FORCE.
Kenichi Handa <handa@m17n.org>
parents:
18796
diff
changeset
|
551 file (tit-make-quail-package-file-name file targetdir))) |
e6f6c2712a5f
(batch-titdic-convert): Add optional arg FORCE.
Kenichi Handa <handa@m17n.org>
parents:
18796
diff
changeset
|
552 (message "Converting %s to quail-package..." file) |
e6f6c2712a5f
(batch-titdic-convert): Add optional arg FORCE.
Kenichi Handa <handa@m17n.org>
parents:
18796
diff
changeset
|
553 (titdic-convert file targetdir)) |
17052 | 554 (setq files (cdr files))) |
555 (setq command-line-args-left (cdr command-line-args-left))) | |
21503
d08387c742bb
(titdic-convert): Message improved.
Kenichi Handa <handa@m17n.org>
parents:
21081
diff
changeset
|
556 (message "Byte-compile the created files by:") |
17052 | 557 (message " %% emacs -batch -f batch-byte-compile XXX.el"))) |
558 (kill-emacs 0)) | |
559 | |
37116
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
560 |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
561 ;;; Converter of miscellaneous dictionaries other than TIT format. |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
562 |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
563 ;; Alist of input method names and the corresponding information. |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
564 ;; Each element has this form: |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
565 ;; (INPUT-METHOD-NAME ;; Name of the input method. |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48760
diff
changeset
|
566 ;; INPUT-METHOD-TITLE ;; Title string of the input method |
37116
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
567 ;; DICFILE ;; Name of the source dictionary file. |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
568 ;; CODING ;; Coding system of the dictionary file. |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
569 ;; QUAILFILE ;; Name of the Quail package file. |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
570 ;; CONVERTER ;; Function to generate the Quail package. |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
571 ;; COPYRIGHT-NOTICE ;; Copyright notice of the source dictionary. |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
572 ;; ) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
573 |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
574 (defvar quail-misc-package-ext-info |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
575 '(("chinese-b5-tsangchi" "$(06A(BB" |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48760
diff
changeset
|
576 "cangjie-table.b5" big5 "tsang-b5.el" |
37116
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
577 tsang-b5-converter |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
578 "\ |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
579 ;; # Copyright 2001 Christian Wittern <wittern@iis.sinica.edu.tw> |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
580 ;; # |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
581 ;; # Permission to copy and distribute both modified and |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
582 ;; # unmodified versions is granted without royalty provided |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
583 ;; # this notice is preserved.") |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
584 |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
585 ("chinese-b5-quick" "$(0X|(BB" |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48760
diff
changeset
|
586 "cangjie-table.b5" big5 "quick-b5.el" |
37116
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
587 quick-b5-converter |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
588 "\ |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
589 ;; # Copyright 2001 Christian Wittern <wittern@iis.sinica.edu.tw> |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
590 ;; # |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
591 ;; # Permission to copy and distribute both modified and |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
592 ;; # unmodified versions is granted without royalty provided |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
593 ;; # this notice is preserved.") |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
594 |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
595 ("chinese-cns-tsangchi" "$(GT?(BC" |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
596 "cangjie-table.cns" iso-2022-cn-ext "tsang-cns.el" |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
597 tsang-cns-converter |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
598 "\ |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
599 ;; # Copyright 2001 Christian Wittern <wittern@iis.sinica.edu.tw> |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
600 ;; # |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
601 ;; # Permission to copy and distribute both modified and |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
602 ;; # unmodified versions is granted without royalty provided |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
603 ;; # this notice is preserved.") |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
604 |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
605 ("chinese-cns-quick" "$(Gv|(BC" |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
606 "cangjie-table.cns" iso-2022-cn-ext "quick-cns.el" |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
607 quick-cns-converter |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
608 "\ |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
609 ;; # Copyright 2001 Christian Wittern <wittern@iis.sinica.edu.tw> |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
610 ;; # |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
611 ;; # Permission to copy and distribute both modified and |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
612 ;; # unmodified versions is granted without royalty provided |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
613 ;; # this notice is preserved.") |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
614 |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
615 ("chinese-py" "$AF4(BG" |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
616 "pinyin.map" cn-gb-2312 "PY.el" |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
617 py-converter |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
618 "\ |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
619 ;; \"pinyin.map\" is included in a free package called CCE. It is |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
620 ;; available at: |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
621 ;; http://ftp.debian.org/debian/dists/potato/main |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
622 ;; /source/utils/cce_0.36.orig.tar.gz |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
623 ;; This package contains the following copyright notice. |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
624 ;; |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
625 ;; |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
626 ;; Copyright (C) 1999, Rui He, herui@cs.duke.edu |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48760
diff
changeset
|
627 ;; |
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48760
diff
changeset
|
628 ;; |
37116
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
629 ;; CCE(Console Chinese Environment) 0.32 |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48760
diff
changeset
|
630 ;; |
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48760
diff
changeset
|
631 ;; CCE is free software; you can redistribute it and/or modify it under the |
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48760
diff
changeset
|
632 ;; terms of the GNU General Public License as published by the Free Software |
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48760
diff
changeset
|
633 ;; Foundation; either version 1, or (at your option) any later version. |
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48760
diff
changeset
|
634 ;; |
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48760
diff
changeset
|
635 ;; CCE is distributed in the hope that it will be useful, but WITHOUT ANY |
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48760
diff
changeset
|
636 ;; WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS |
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48760
diff
changeset
|
637 ;; FOR A PARTICULAR PURPOSE. See the GNU General Public License for more |
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48760
diff
changeset
|
638 ;; details. |
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48760
diff
changeset
|
639 ;; |
37116
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
640 ;; You should have received a copy of the GNU General Public License along with |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48760
diff
changeset
|
641 ;; CCE; see the file COPYING. If not, write to the Free Software Foundation, |
37116
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
642 ;; 675 Mass Ave, Cambridge, MA 02139, USA.") |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
643 |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
644 ("chinese-ziranma" "$AWTH;(B" |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
645 "ziranma.cin" cn-gb-2312 "ZIRANMA.el" |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
646 ziranma-converter |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
647 "\ |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
648 ;; \"ziranma.cin\" is included in a free package called CCE. It is |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
649 ;; available at: |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
650 ;; http://ftp.debian.org/debian/dists/potato/main |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
651 ;; /source/utils/cce_0.36.orig.tar.gz |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
652 ;; This package contains the following copyright notice. |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
653 ;; |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
654 ;; |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
655 ;; Copyright (C) 1999, Rui He, herui@cs.duke.edu |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48760
diff
changeset
|
656 ;; |
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48760
diff
changeset
|
657 ;; |
37116
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
658 ;; CCE(Console Chinese Environment) 0.32 |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48760
diff
changeset
|
659 ;; |
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48760
diff
changeset
|
660 ;; CCE is free software; you can redistribute it and/or modify it under the |
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48760
diff
changeset
|
661 ;; terms of the GNU General Public License as published by the Free Software |
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48760
diff
changeset
|
662 ;; Foundation; either version 1, or (at your option) any later version. |
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48760
diff
changeset
|
663 ;; |
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48760
diff
changeset
|
664 ;; CCE is distributed in the hope that it will be useful, but WITHOUT ANY |
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48760
diff
changeset
|
665 ;; WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS |
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48760
diff
changeset
|
666 ;; FOR A PARTICULAR PURPOSE. See the GNU General Public License for more |
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48760
diff
changeset
|
667 ;; details. |
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48760
diff
changeset
|
668 ;; |
37116
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
669 ;; You should have received a copy of the GNU General Public License along with |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48760
diff
changeset
|
670 ;; CCE; see the file COPYING. If not, write to the Free Software Foundation, |
37116
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
671 ;; 675 Mass Ave, Cambridge, MA 02139, USA.") |
37875
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
672 |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
673 ("chinese-ctlau" "$AAuTA(B" |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
674 "CTLau.html" cn-gb-2312 "CTLau.el" |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
675 ctlau-gb-converter |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
676 "\ |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
677 ;; \"CTLau.html\" is available at: |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
678 ;; |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
679 ;; http://umunhum.stanford.edu/~lee/chicomp/CTLau.html |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
680 ;; |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
681 ;; It contains the following copyright notice: |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
682 ;; |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
683 ;; # Copyright (C) 1988-2001 Fung Fung Lee (lee@umunhum.stanford.edu) |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48760
diff
changeset
|
684 ;; # |
37875
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
685 ;; # This program is free software; you can redistribute it and/or |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
686 ;; # modify it under the terms of the GNU General Public License |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
687 ;; # as published by the Free Software Foundation; either version 2 |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
688 ;; # of the License, or any later version. |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48760
diff
changeset
|
689 ;; # |
37875
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
690 ;; # This program is distributed in the hope that it will be useful, |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
691 ;; # but WITHOUT ANY WARRANTY; without even the implied warranty of |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
692 ;; # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
693 ;; # GNU General Public License for more details. |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48760
diff
changeset
|
694 ;; # |
37875
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
695 ;; # You should have received a copy of the GNU General Public License |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
696 ;; # along with this program; if not, write to the Free Software Foundation, |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
697 ;; # Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.") |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
698 |
37884
b454faf9a60b
Change input method name chinese-ctlau-b5 back to chinese-ctlaub.
Andrew Choi <akochoi@shaw.ca>
parents:
37883
diff
changeset
|
699 ("chinese-ctlaub" "$(0N,Gn(B" |
37882
ad3d84632050
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37875
diff
changeset
|
700 "CTLau-b5.html" big5 "CTLau-b5.el" |
37875
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
701 ctlau-b5-converter |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
702 "\ |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
703 ;; \"CTLau-b5.html\" is available at: |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
704 ;; |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
705 ;; http://umunhum.stanford.edu/~lee/chicomp/CTLau-b5.html |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
706 ;; |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
707 ;; It contains the following copyright notice: |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
708 ;; |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
709 ;; # Copyright (C) 1988-2001 Fung Fung Lee (lee@umunhum.stanford.edu) |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48760
diff
changeset
|
710 ;; # |
37875
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
711 ;; # This program is free software; you can redistribute it and/or |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
712 ;; # modify it under the terms of the GNU General Public License |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
713 ;; # as published by the Free Software Foundation; either version 2 |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
714 ;; # of the License, or any later version. |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48760
diff
changeset
|
715 ;; # |
37875
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
716 ;; # This program is distributed in the hope that it will be useful, |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
717 ;; # but WITHOUT ANY WARRANTY; without even the implied warranty of |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
718 ;; # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
719 ;; # GNU General Public License for more details. |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48760
diff
changeset
|
720 ;; # |
37875
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
721 ;; # You should have received a copy of the GNU General Public License |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
722 ;; # along with this program; if not, write to the Free Software Foundation, |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
723 ;; # Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.") |
37116
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
724 )) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
725 |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
726 ;; Generate a code of a Quail package in the current buffer from Tsang |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
727 ;; dictionary in the buffer DICBUF. The input method name of the |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
728 ;; Quail package is NAME, and the title string is TITLE. |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
729 |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
730 ;; TSANG-P is non-nil, genereate $(06AQo(B input method. Otherwise |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
731 ;; generate $(0X|/y(B (simple version of $(06AQo(B). If BIG5-P is non-nil, the |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
732 ;; input method is for inputting Big5 characters. Otherwise the input |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
733 ;; method is for inputting CNS characters. |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
734 |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
735 (defun tsang-quick-converter (dicbuf name title tsang-p big5-p) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
736 (let ((fulltitle (if tsang-p (if big5-p "$(06AQo(B" "$(GT?on(B") |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
737 (if big5-p "$(0X|/y(B" "$(Gv|Mx(B"))) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
738 dic) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
739 (goto-char (point-max)) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
740 (if big5-p |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
741 (insert (format "\"$(0&d'GTT&,!J(B%s$(0!K(BBIG5 |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
742 |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
743 $(0KHM$(B%s$(0TT&,WoOu(B |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
744 |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
745 [Q $(0'D(B] [W $(0(q(B] [E $(0'V(B] [R $(0&H(B] [T $(0'>(B] [Y $(0&4(B] [U $(0&U(B] [I $(0'B(B] [O $(0&*(B] [P $(0'A(B] |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
746 |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
747 [A $(0'K(B] [S $(0&T(B] [D $(0'N(B] [F $(0'W(B] [G $(0&I(B] [H $(0*M(B] [J $(0&3(B] [L $(0&d(B] |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48760
diff
changeset
|
748 |
37116
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
749 [Z ] [X $(0[E(B] [C $(01[(B] [V $(0&M(B] [B $(0'M(B] [N $(0&_(B] [M $(0&"(B] |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
750 |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
751 \\\\<quail-translation-docstring>\"\n" |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
752 fulltitle fulltitle)) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
753 (insert (format "\"$(GDcEFrSD+!J(B%s$(G!K(BCNS |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
754 |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
755 $(GiGk#(B%s$(GrSD+uomu(B |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
756 |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
757 [Q $(GEC(B] [W $(GFp(B] [E $(GEU(B] [R $(GDG(B] [T $(GE=(B] [Y $(GD3(B] [U $(GDT(B] [I $(GEA(B] [O $(GD)(B] [P $(GE@(B] |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
758 |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
759 [A $(GEJ(B] [S $(GDS(B] [D $(GEM(B] [F $(GEV(B] [G $(GDH(B] [H $(GHL(B] [J $(GD2(B] [L $(GDc(B] |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48760
diff
changeset
|
760 |
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48760
diff
changeset
|
761 [Z ] [X $(GyE(B] [C $(GOZ(B] [V $(GDL(B] [B $(GEL(B] [N $(GD^(B] [M $(GD!(B] |
37116
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
762 |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
763 \\\\<quail-translation-docstring>\"\n" |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
764 fulltitle fulltitle))) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
765 (insert " '((\".\" . quail-next-translation-block) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
766 (\",\" . quail-prev-translation-block)) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
767 nil nil)\n\n") |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
768 (insert "(quail-define-rules\n") |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
769 (save-excursion |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
770 (set-buffer dicbuf) |
52415
80d4785de4a0
(tsang-quick-converter): Fix broken line-ends from CVS before doing conversion.
Jason Rumney <jasonr@gnu.org>
parents:
52408
diff
changeset
|
771 ;; Handle double CR line ends, which result when checking out of |
80d4785de4a0
(tsang-quick-converter): Fix broken line-ends from CVS before doing conversion.
Jason Rumney <jasonr@gnu.org>
parents:
52408
diff
changeset
|
772 ;; CVS on MS-Windows. |
80d4785de4a0
(tsang-quick-converter): Fix broken line-ends from CVS before doing conversion.
Jason Rumney <jasonr@gnu.org>
parents:
52408
diff
changeset
|
773 (goto-char (point-min)) |
80d4785de4a0
(tsang-quick-converter): Fix broken line-ends from CVS before doing conversion.
Jason Rumney <jasonr@gnu.org>
parents:
52408
diff
changeset
|
774 (while (re-search-forward "\r\r$" nil t) |
80d4785de4a0
(tsang-quick-converter): Fix broken line-ends from CVS before doing conversion.
Jason Rumney <jasonr@gnu.org>
parents:
52408
diff
changeset
|
775 (replace-match "")) |
37116
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
776 (goto-char (point-min)) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
777 (search-forward "A440") |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
778 (beginning-of-line) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
779 (let ((table (make-hash-table :test 'equal)) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
780 val) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
781 (while (not (eobp)) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
782 (forward-char 5) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
783 (let ((trans (char-to-string (following-char))) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
784 key slot) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
785 (re-search-forward "[A-Z]+$" nil t) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
786 (setq key (downcase |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
787 (if (or tsang-p |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
788 (<= (- (match-end 0) (match-beginning 0)) 1)) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
789 (match-string 0) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
790 (string (char-after (match-beginning 0)) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
791 (char-after (1- (match-end 0))))))) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
792 (setq val (gethash key table)) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
793 (if val (setq trans (concat val trans))) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
794 (puthash key trans table) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
795 (forward-line 1))) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
796 (maphash #'(lambda (key val) (setq dic (cons (cons key val) dic))) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
797 table))) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
798 (setq dic (sort dic (function (lambda (x y) (string< (car x ) (car y)))))) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
799 (dolist (elt dic) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
800 (insert (format "(%S\t%S)\n" (car elt) (cdr elt)))) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
801 (let ((punctuations '((";" "$(0!'!2!"!#!.!/(B" "$(G!'!2!"!#!.!/(B") |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
802 (":" "$(0!(!+!3!%!$!&!0!1(B" "$(G!(!+!3!%!$!&!0!1(B") |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
803 ("'" "$(0!e!d(B" "$(G!e!d(B") |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
804 ("\"" "$(0!g!f!h!i!q(B" "$(G!g!f!h!i!q(B") |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
805 ("\\" "$(0"`"b#M(B" "$(G"`"b#M(B") |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
806 ("|" "$(0!6!8!:"^(B" "$(G!6!8!:"^(B") |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
807 ("/" "$(0"_"a#L(B" "$(G"_"a#L(B") |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
808 ("?" "$(0!)!4(B" "$(G!)!4(B") |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
809 ("<" "$(0!R"6"A!T"H(B" "$(G!R"6"A!T"H(B") |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
810 (">" "$(0!S"7"B!U(B" "$(G!S"7"B!U(B") |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
811 ("[" "$(0!F!J!b!H!L!V!Z!X!\(B" "$(G!F!J!b!H!L!V!Z!X!\(B") |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
812 ("]" "$(0!G!K!c!I!M!W![!Y!](B" "$(G!G!K!c!I!M!W![!Y!](B") |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
813 ("{" "$(0!B!`!D(B " "$(G!B!`!D(B ") |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
814 ("}" "$(0!C!a!E(B" "$(G!C!a!E(B") |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
815 ("`" "$(0!j!k(B" "$(G!j!k(B") |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
816 ("~" "$(0"D"+",!<!=(B" "$(G"D"+",!<!=(B") |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
817 ("!" "$(0!*!5(B" "$(G!*!5(B") |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
818 ("@" "$(0"i"n(B" "$(G"i"n(B") |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
819 ("#" "$(0!l"-(B" "$(G!l"-(B") |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
820 ("$" "$(0"c"l(B" "$(G"c"l(B") |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
821 ("%" "$(0"h"m(B" "$(G"h"m(B") |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
822 ("&" "$(0!m".(B" "$(G!m".(B") |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
823 ("*" "$(0!n"/!o!w!x(B" "$(G!n"/!o!w!x(B") |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
824 ("(" "$(0!>!^!@(B" "$(G!>!^!@(B") |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
825 (")" "$(0!?!_!A(B" "$(G!?!_!A(B") |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
826 ("-" "$(0!7!9"#"$"1"@(B" "$(G!7!9"#"$"1"@(B") |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
827 ("_" "$(0"%"&(B" "$(G"%"&(B") |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
828 ("=" "$(0"8"C(B" "$(G"8"C(B") |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
829 ("+" "$(0"0"?(B" "$(G"0"?(B")))) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
830 (dolist (elt punctuations) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
831 (insert (format "(%S %S)\n" (concat "z" (car elt)) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
832 (if big5-p (nth 1 elt) (nth 2 elt)))))) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
833 (insert ")\n"))) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
834 |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
835 (defun tsang-b5-converter (dicbuf name title) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
836 (tsang-quick-converter dicbuf name title t t)) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
837 |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
838 (defun quick-b5-converter (dicbuf name title) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
839 (tsang-quick-converter dicbuf name title nil t)) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
840 |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
841 (defun tsang-cns-converter (dicbuf name title) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
842 (tsang-quick-converter dicbuf name title t nil)) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
843 |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
844 (defun quick-cns-converter (dicbuf name title) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
845 (tsang-quick-converter dicbuf name title nil nil)) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
846 |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
847 ;; Generate a code of a Quail package in the current buffer from |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
848 ;; Pinyin dictionary in the buffer DICBUF. The input method name of |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
849 ;; the Quail package is NAME, and the title string is TITLE. |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
850 |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
851 (defun py-converter (dicbuf name title) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
852 (goto-char (point-max)) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
853 (insert (format "%S\n" "$A::WVJdHk!KF4Rt!K(B |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
854 |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
855 $AF4Rt7=08(B |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
856 |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
857 $AP!P4S"NDWVD84z1m!8F4Rt!97{:E#,(B \"u(yu) $ATrSC(B u: $A1mJ>!C(B |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
858 |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
859 Pinyin base input method for Chinese charset GB2312 (`chinese-gb2312'). |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
860 |
48760
0006966fe2dc
(titdic-convert): Process the header part in multibyte mode.
Kenichi Handa <handa@m17n.org>
parents:
48666
diff
changeset
|
861 Pinyin is the standard roman transliteration method for Chinese. |
37116
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
862 Pinyin uses a sequence of Latin alphabetic characters for each Chinese |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
863 character. The sequence is made by the combination of the initials |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
864 \(the beginning sounds) and finals (the ending sounds). |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
865 |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
866 initials: b p m f d t n l z c s zh ch sh r j q x g k h |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
867 finals: a o e i er ai ei oa ou an en ang eng ong i ia iao ie iu ian in |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
868 iang ing iong u ua uo uai ui uan un uan ueng yu yue yuan yun |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
869 |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
870 (Note: In the correct Pinyin writing, the sequence \"yu\" in the last |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
871 four finals should be written by the character u-umlaut `$A(9(B'.) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
872 |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
873 With this input method, you enter a Chinese character by first |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
874 entering its pinyin spelling. |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
875 |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
876 \\<quail-translation-docstring> |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
877 |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
878 For instance, to input $ADc(B, you type \"n i C-n 3\". The first \"n i\" |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
879 is a Pinyin, \"C-n\" selects the next group of candidates (each group |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
880 contains at most 10 characters), \"3\" select the third character in |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
881 that group. |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
882 |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
883 This input method supports only Han characters. The related input |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
884 method `chinese-py-punct' is the combination of this method and |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
885 `chinese-punct'; it supports both Han characters and punctuation |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
886 characters. |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
887 |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
888 For double-width GB2312 characters corresponding to ASCII, use the |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
889 input method `chinese-qj'. |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
890 |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
891 The correct Pinyin system specifies tones by diacritical marks, but |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
892 this input method doesn't use them, which results in easy (you don't |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
893 have to know the exact tones), but verbose (many characters are assigned |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
894 to the same key sequence) input. You may also want to try the input |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
895 method `chinese-tonepy' with which you must specify tones by digits |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
896 \(1..5).")) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
897 (insert " '((\"\C-?\" . quail-delete-last-char) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
898 (\".\" . quail-next-translation) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
899 (\">\" . quail-next-translation) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
900 (\",\" . quail-prev-translation) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
901 (\"<\" . quail-prev-translation)) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
902 nil nil nil nil)\n\n") |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
903 (insert "(quail-define-rules\n") |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
904 (let ((pos (point))) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
905 (insert-buffer-substring dicbuf) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
906 (goto-char pos) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
907 (while (not (eobp)) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
908 (insert "(\"") |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
909 (skip-chars-forward "a-z") |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
910 (insert "\" \"") |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
911 (delete-char 1) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
912 (end-of-line) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
913 (insert "\")") |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
914 (forward-line 1))) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
915 (insert ")\n")) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
916 |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
917 ;; Generate a code of a Quail package in the current buffer from |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
918 ;; Ziranma dictionary in the buffer DICBUF. The input method name of |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
919 ;; the Quail package is NAME, and the title string is TITLE. |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
920 |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
921 (defun ziranma-converter (dicbuf name title) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
922 (let (dic) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
923 (save-excursion |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
924 (set-buffer dicbuf) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
925 (goto-char (point-min)) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
926 (search-forward "%keyname end\n") |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
927 (let ((table (make-hash-table :test 'equal)) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
928 elt pos key trans val) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
929 (while (not (eobp)) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
930 (setq pos (point)) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
931 (skip-chars-forward "^ \t") |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
932 (setq key (buffer-substring pos (point))) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
933 (skip-chars-forward " \t") |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
934 (setq trans (vector (buffer-substring (point) (line-end-position)))) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
935 (setq val (gethash key table)) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
936 (if val (setq trans (vconcat val trans))) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
937 (puthash key trans table) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
938 (forward-line 1)) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
939 (maphash #'(lambda (key trans) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
940 (let ((len (length trans)) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
941 i) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
942 (if (and (= len 1) (= (length (aref trans 0)) 1)) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
943 (setq trans (aref trans 0)) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
944 (setq i 0) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
945 (while (and (< i len) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
946 (= (length (aref trans i)) 1)) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
947 (setq i (1+ i))) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
948 (if (= i len) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
949 (setq trans (mapconcat 'identity trans ""))))) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
950 (setq dic (cons (cons key trans) dic))) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
951 table))) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
952 (setq dic (sort dic (function (lambda (x y) (string< (car x) (car y)))))) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
953 (goto-char (point-max)) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
954 (insert (format "%S\n" "$A::WVJdHk!K!>WTH;!?!K(B |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
955 |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
956 $A<|EL6TUU1m(B: |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
957 $A)3)%)%)W)%)%)W)%)%)W)%)%)W)%)%)W)%)%)W)%)%)W)%)%)W)%)%)W)%)%)7(B |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
958 $A)'#Q(B $A)'#W(B $A)'#E(B $A)'#R(B $A)'#T(B $A)'#Y(B $A)'#U(Bsh$A)'#I(Bch$A)'#O(B $A)'#P(B $A)'(B |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
959 $A)'(B iu$A)'(B ua$A)'(B e$A)'(B uan$A)'(B ue$A)'(B uai$A)'(B u$A)'(B i$A)'(B o$A)'(B un$A)'(B |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
960 $A)'(B $A)'(B ia$A)'(B $A)'(B van$A)'(B ve$A)'(B ing$A)'(B $A)'(B $A)'(B uo$A)'(B vn$A)'(B |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
961 $A);)W)%)_)W)%)_)W)%)_)W)%)_)W)%)_)W)%)_)W)%)_)W)%)_)W)%)_)W)%)?(B |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
962 $A)'#A(B $A)'#S(B $A)'#D(B $A)'#F(B $A)'#G(B $A)'#H(B $A)'#J(B $A)'#K(B $A)'#L(B $A)'(B |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
963 $A)'(B a$A)'(Biong$A)'(Buang$A)'(B en$A)'(B eng$A)'(B ang$A)'(B an$A)'(B ao$A)'(B ai$A)'(B |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
964 $A)'(B $A)'(B ong$A)'(Biang$A)'(B $A)'(B ng$A)'(B $A)'(B $A)'(B $A)'(B $A)'(B |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
965 $A);)W)%)_)W)%)_)W)%)_)W)%)_)W)%)_)W)%)_)W)%)_)W)%)_)W)%)_)W)%)%)7(B |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
966 $A)'#Z(B $A)'#X(B $A)'#C(B $A)'#V(Bzh$A)'#B(B $A)'#N(B $A)'#M(B $A)'#,(B $A)'#.(B $A)'(B $A#/(B $A)'(B |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
967 $A)'(B ei$A)'(B ie$A)'(B iao$A)'(B ui$A)'(B ou$A)'(B in$A)'(B ian$A)'G0R3)':sR3)'7{:E)'(B |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
968 $A)'(B $A)'(B $A)'(B $A)'(B v$A)'(B $A)'(B $A)'(B $A)'(B $A)'(B $A)'(B $A)'(B |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
969 $A);)%)%)_)%)%)_)%)%)_)%)%)_)%)%)_)%)%)_)%)%)_)%)%)_)%)%)_)%)%)?(B |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
970 |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
971 |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
972 Pinyin base input method for Chinese GB2312 characters (`chinese-gb2312'). |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
973 |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
974 Pinyin is the standard roman transliteration method for Chinese. |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
975 For the details of Pinyin system, see the documentation of the input |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
976 method `chinese-py'. |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
977 |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
978 Unlike the standard spelling of Pinyin, in this input method all |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
979 initials and finals are assigned to single keys (see the above table). |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
980 For instance, the initial \"ch\" is assigned to the key `i', the final |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
981 \"iu\" is assigned to the key `q', and tones 1, 2, 3, 4, and $AGaIy(B are |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
982 assigned to the keys `q', `w', `e', `r', `t' respectively. |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
983 |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
984 \\<quail-translation-docstring> |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
985 |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
986 To input one-letter words, you type 4 keys, the first two for the |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
987 Pinyin of the letter, next one for tone, and the last one is always a |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
988 quote ('). For instance, \"vsq'\" input $AVP(B. Exceptions are these |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
989 letters. You can input them just by typing a single key. |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
990 |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
991 Character: $A04(B $A2;(B $A4N(B $A5D(B $A6~(B $A7"(B $A8v(B $A:M(B $A3v(B $A<0(B $A?I(B $AAK(B $AC;(B |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
992 Key: a b c d e f g h i j k l m |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
993 Character: $ADc(B $AE7(B $AF,(B $AF_(B $AHK(B $AH}(B $AK{(B $AJG(B $AWE(B $ANR(B $AP!(B $AR;(B $ATZ(B |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
994 Key: n o p q r s t u v w x y z |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
995 |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
996 To input two-letter words, you have two ways. One way is to type 4 |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
997 keys, two for the first Pinyin, two for the second Pinyin. For |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
998 instance, \"vsgo\" inputs $AVP9z(B. Another way is to type 3 keys: 2 |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
999 initials of two letters, and quote ('). For instance, \"vg'\" also |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1000 inputs $AVP9z(B. |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1001 |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1002 To input three-letter words, you type 4 keys: initials of three |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1003 letters, and the last is quote ('). For instance, \"bjy'2\" inputs $A11(B |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1004 $A>)Q<(B (the last `2' is to select one of the candidates). |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1005 |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1006 To input words of more than three letters, you type 4 keys, initials |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1007 of the first three letters and the last letter. For instance, |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1008 \"bjdt\" inputs $A11>)5gJSL((B. |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1009 |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1010 To input symbols and punctuations, type `/' followed by one of `a' to |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1011 `z', then select one of the candidates.")) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1012 (insert " '((\"\C-?\" . quail-delete-last-char) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1013 (\".\" . quail-next-translation) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1014 (\"[\" . quail-next-translation) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1015 (\",\" . quail-prev-translation) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1016 (\"]\" . quail-prev-translation)) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1017 nil nil nil nil)\n\n") |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1018 (insert "(quail-define-rules\n") |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1019 (dolist (elt dic) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1020 (insert (format "(%S %S)\n" (car elt) (cdr elt)))) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1021 (insert ")\n"))) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1022 |
37875
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1023 ;; Generate the code for a Quail package in the current buffer from a |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1024 ;; CTLau or CTLau-b5 dictionary in the buffer DICBUF. The input |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1025 ;; method name of the Quail package is NAME, and the title string is |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1026 ;; TITLE. DESCRIPTION is the string shown by describe-input-method. |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1027 |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1028 (defun ctlau-converter (dicbuf name title description) |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1029 (goto-char (point-max)) |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1030 (insert (format "%S\n" description)) |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1031 (insert " '((\"\C-?\" . quail-delete-last-char) |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1032 (\".\" . quail-next-translation) |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1033 (\">\" . quail-next-translation) |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1034 (\",\" . quail-prev-translation) |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1035 (\"<\" . quail-prev-translation)) |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1036 nil nil nil nil)\n\n") |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1037 (insert "(quail-define-rules\n") |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1038 (let (dicbuf-start dicbuf-end key-start key (pos (point))) |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1039 ;; Find the dictionary, which starts below a horizontal rule and |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1040 ;; ends at the second to last line in the HTML file. |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1041 (save-excursion |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1042 (set-buffer dicbuf) |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1043 (goto-char (point-min)) |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1044 (search-forward "#\n#<hr>\n") |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1045 (setq dicbuf-start (point)) |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1046 (goto-char (point-max)) |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1047 (forward-line -1) |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1048 (setq dicbuf-end (point))) |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1049 (insert-buffer-substring dicbuf dicbuf-start dicbuf-end) |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1050 ;; CTLau-b5.html contains characters (0xa1 0xbc) which show up as |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1051 ;; hollow boxes when the original characters in CTLau.html from |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1052 ;; which the file is converted have no Big5 equivalent. Go |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1053 ;; through and delete them. |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1054 (goto-char pos) |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1055 (while (search-forward "$(0!{(B" nil t) |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1056 (delete-char -1)) |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1057 ;; Uppercase keys in dictionary need to be downcased. Backslashes |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1058 ;; at the beginning of keys need to be turned into double |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1059 ;; backslashes. |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1060 (goto-char pos) |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1061 (while (not (eobp)) |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1062 (insert "(\"") |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1063 (if (char-equal (following-char) ?\\) |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1064 (insert "\\")) |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1065 (setq key-start (point)) |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1066 (skip-chars-forward "\\\\A-Z") |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1067 (downcase-region key-start (point)) |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1068 (insert "\" \"") |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1069 (delete-char 1) |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1070 (end-of-line) |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1071 (insert "\")") |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1072 (forward-line 1))) |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1073 (insert ")\n")) |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1074 |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1075 (defun ctlau-gb-converter (dicbuf name title) |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1076 (ctlau-converter dicbuf name title |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1077 "$A::WVJdHk!KAuN}OiJ=TARt!K(B |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1078 |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1079 $AAuN}OiJ=TASoW"Rt7=08(B |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1080 Sidney Lau's Cantonese transcription scheme as described in his book |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1081 \"Elementary Cantonese\", The Government Printer, Hong Kong, 1972. |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1082 This file was prepared by Fung Fung Lee ($A@n7c7e(B). |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1083 Originally converted from CTCPS3.tit |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1084 Last modified: June 2, 1993. |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1085 |
37888
2e08c7d128e6
2001-05-25 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37884
diff
changeset
|
1086 Some infrequent GB characters are accessed by typing \\, followed by |
37875
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1087 the Cantonese romanization of the respective radical ($A2?JW(B).")) |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1088 |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1089 (defun ctlau-b5-converter (dicbuf name title) |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1090 (ctlau-converter dicbuf name title |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1091 "$(0KH)tTT&,!(N,Tg>A*#Gn5x!((B |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1092 |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1093 $(0N,Tg>A*#GnM$0D5x'J7{(B |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1094 Sidney Lau's Cantonese transcription scheme as described in his book |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1095 \"Elementary Cantonese\", The Government Printer, Hong Kong, 1972. |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1096 This file was prepared by Fung Fung Lee ($(0,XFS76(B). |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1097 Originally converted from CTCPS3.tit |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1098 Last modified: June 2, 1993. |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1099 |
37888
2e08c7d128e6
2001-05-25 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37884
diff
changeset
|
1100 Some infrequent characters are accessed by typing \\, followed by |
37875
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1101 the Cantonese romanization of the respective radical ($(0?f5}(B).")) |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1102 |
37116
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1103 (defun miscdic-convert (filename &optional dirname) |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48760
diff
changeset
|
1104 "Convert a dictionary file FILENAME into a Quail package. |
37116
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1105 Optional argument DIRNAME if specified is the directory name under which |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1106 the generated Quail package is saved." |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1107 (interactive "FInput method dictionary file: ") |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1108 (or (file-readable-p filename) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1109 (error "%s does not exist" filename)) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1110 (let ((tail quail-misc-package-ext-info) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1111 (default-buffer-file-coding-system 'iso-2022-7bit) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1112 slot |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1113 name title dicfile coding quailfile converter copyright |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1114 dicbuf) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1115 (while tail |
55280
181520e900b2
(miscdic-convert): Don't generate a
Kenichi Handa <handa@m17n.org>
parents:
52415
diff
changeset
|
1116 (setq slot (car tail) |
181520e900b2
(miscdic-convert): Don't generate a
Kenichi Handa <handa@m17n.org>
parents:
52415
diff
changeset
|
1117 dicfile (nth 2 slot) |
181520e900b2
(miscdic-convert): Don't generate a
Kenichi Handa <handa@m17n.org>
parents:
52415
diff
changeset
|
1118 quailfile (nth 4 slot)) |
181520e900b2
(miscdic-convert): Don't generate a
Kenichi Handa <handa@m17n.org>
parents:
52415
diff
changeset
|
1119 (when (and (or (string-match dicfile filename) |
181520e900b2
(miscdic-convert): Don't generate a
Kenichi Handa <handa@m17n.org>
parents:
52415
diff
changeset
|
1120 ;; MS-DOS filesystem truncates file names to 8+3 |
181520e900b2
(miscdic-convert): Don't generate a
Kenichi Handa <handa@m17n.org>
parents:
52415
diff
changeset
|
1121 ;; limits, so "cangjie-table.cns" becomes |
181520e900b2
(miscdic-convert): Don't generate a
Kenichi Handa <handa@m17n.org>
parents:
52415
diff
changeset
|
1122 ;; "cangjie-.cns", and the above string-match |
181520e900b2
(miscdic-convert): Don't generate a
Kenichi Handa <handa@m17n.org>
parents:
52415
diff
changeset
|
1123 ;; fails. Give DOS users a chance... |
181520e900b2
(miscdic-convert): Don't generate a
Kenichi Handa <handa@m17n.org>
parents:
52415
diff
changeset
|
1124 (and (fboundp 'msdos-long-file-names) |
181520e900b2
(miscdic-convert): Don't generate a
Kenichi Handa <handa@m17n.org>
parents:
52415
diff
changeset
|
1125 (not (msdos-long-file-names)) |
181520e900b2
(miscdic-convert): Don't generate a
Kenichi Handa <handa@m17n.org>
parents:
52415
diff
changeset
|
1126 (string-match (dos-8+3-filename dicfile) filename))) |
181520e900b2
(miscdic-convert): Don't generate a
Kenichi Handa <handa@m17n.org>
parents:
52415
diff
changeset
|
1127 (if (file-newer-than-file-p |
181520e900b2
(miscdic-convert): Don't generate a
Kenichi Handa <handa@m17n.org>
parents:
52415
diff
changeset
|
1128 filename (expand-file-name quailfile dirname)) |
181520e900b2
(miscdic-convert): Don't generate a
Kenichi Handa <handa@m17n.org>
parents:
52415
diff
changeset
|
1129 t |
181520e900b2
(miscdic-convert): Don't generate a
Kenichi Handa <handa@m17n.org>
parents:
52415
diff
changeset
|
1130 (message "%s is up to date" quailfile) |
181520e900b2
(miscdic-convert): Don't generate a
Kenichi Handa <handa@m17n.org>
parents:
52415
diff
changeset
|
1131 nil)) |
181520e900b2
(miscdic-convert): Don't generate a
Kenichi Handa <handa@m17n.org>
parents:
52415
diff
changeset
|
1132 (setq name (car slot) |
37116
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1133 title (nth 1 slot) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1134 coding (nth 3 slot) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1135 converter (nth 5 slot) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1136 copyright (nth 6 slot)) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1137 (message "Converting %s to %s..." dicfile quailfile) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1138 (with-temp-file (expand-file-name quailfile dirname) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1139 (set-buffer-file-coding-system 'iso-2022-7bit) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1140 (insert ";; Quail package `" name "' -*- coding:iso-2022-7bit; -*-\n") |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1141 (insert ";; Generated by the command `miscdic-convert'\n") |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1142 (insert ";; Date: " (current-time-string) "\n") |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1143 (insert ";; Source dictionary file: " dicfile "\n") |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1144 (insert ";; Copyright notice of the source file\n") |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1145 (insert ";;------------------------------------------------------\n") |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1146 (insert copyright "\n") |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1147 (insert ";;------------------------------------------------------\n") |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1148 (insert "\n") |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1149 (insert ";;; Code:\n\n") |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1150 (insert "(require 'quail)\n") |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1151 (insert "(quail-define-package \"" name "\" \"" |
37146
f7906041b879
(miscdic-convert): Fix a typo in the last change.
Eli Zaretskii <eliz@gnu.org>
parents:
37116
diff
changeset
|
1152 (if (eq coding 'big5) "Chinese-BIG5" "Chinese-CNS") |
37116
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1153 "\" \"" title "\" t\n") |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1154 (let* ((coding-system-for-read coding) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1155 (dicbuf (find-file-noselect filename))) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1156 (funcall converter dicbuf name title) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1157 (kill-buffer dicbuf))) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1158 (message "Converting %s to %s...done" dicfile quailfile)) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1159 (setq tail (cdr tail))))) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1160 |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1161 (defun batch-miscdic-convert () |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1162 "Run `miscdic-convert' on the files remaing on the command line. |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1163 Use this from the command line, with `-batch'; |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1164 it won't work in an interactive Emacs. |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1165 If there's an argument \"-dir\", the next argument specifies a directory |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1166 to store generated Quail packages." |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1167 (defvar command-line-args-left) ; Avoid compiler warning. |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1168 (if (not noninteractive) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1169 (error "`batch-miscdic-convert' should be used only with -batch")) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1170 (let ((dir default-directory) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1171 filename) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1172 (while command-line-args-left |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1173 (if (string= (car command-line-args-left) "-dir") |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1174 (progn |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1175 (setq command-line-args-left (cdr command-line-args-left)) |
48666
12b6e8b2db2f
(quail-misc-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
46670
diff
changeset
|
1176 (setq dir (car command-line-args-left)) |
12b6e8b2db2f
(quail-misc-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
46670
diff
changeset
|
1177 (setq command-line-args-left (cdr command-line-args-left)))) |
37116
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1178 (setq filename (car command-line-args-left) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1179 command-line-args-left (cdr command-line-args-left)) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1180 (if (file-directory-p filename) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1181 (dolist (file (directory-files filename t nil t)) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1182 (miscdic-convert file dir)) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1183 (miscdic-convert filename dir)))) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1184 (kill-emacs 0)) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1185 |
36684
61687d474d90
Add coding: tag in Local Variables: section.
Kenichi Handa <handa@m17n.org>
parents:
32277
diff
changeset
|
1186 ;; Local Variables: |
61687d474d90
Add coding: tag in Local Variables: section.
Kenichi Handa <handa@m17n.org>
parents:
32277
diff
changeset
|
1187 ;; coding: iso-2022-7bit |
61687d474d90
Add coding: tag in Local Variables: section.
Kenichi Handa <handa@m17n.org>
parents:
32277
diff
changeset
|
1188 ;; End: |
38414
67b464da13ec
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
37888
diff
changeset
|
1189 |
52401 | 1190 ;;; arch-tag: 8ad478b2-a985-4da2-b47f-d8ee5d7c24a3 |
38414
67b464da13ec
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
37888
diff
changeset
|
1191 ;;; titdic-cnv.el ends here |