Mercurial > emacs
annotate lisp/international/titdic-cnv.el @ 86933:553d66dcf5fd
(math-compose-var): Fix declaration.
author | Jay Belanger <jay.p.belanger@gmail.com> |
---|---|
date | Sun, 02 Dec 2007 03:45:14 +0000 |
parents | 8a7ed478f7bc |
children | 9c2d6ea3390d |
rev | line source |
---|---|
46670 | 1 ;;; titdic-cnv.el --- convert cxterm dictionary (TIT format) to Quail package -*- coding:iso-2022-7bit; -*- |
17052 | 2 |
74544 | 3 ;; Copyright (C) 1997, 1998, 2000, 2001, 2002, 2003, 2004, |
75347 | 4 ;; 2005, 2006, 2007 Free Software Foundation, Inc. |
74605
6ee41fdd69ff
Update AIST copyright years.
Kenichi Handa <handa@m17n.org>
parents:
74544
diff
changeset
|
5 ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, |
75347 | 6 ;; 2005, 2006, 2007 |
62274 | 7 ;; National Institute of Advanced Industrial Science and Technology (AIST) |
8 ;; Registration Number H14PRO021 | |
17052 | 9 |
10 ;; Keywords: Quail, TIT, cxterm | |
11 | |
12 ;; This file is part of GNU Emacs. | |
13 | |
14 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
15 ;; it under the terms of the GNU General Public License as published by | |
78310
2daf9c28b3a4
Restore comma mistakenly removed in last change.
Glenn Morris <rgm@gnu.org>
parents:
78301
diff
changeset
|
16 ;; the Free Software Foundation; either version 3, or (at your option) |
17052 | 17 ;; any later version. |
18 | |
19 ;; GNU Emacs is distributed in the hope that it will be useful, | |
20 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
21 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
22 ;; GNU General Public License for more details. | |
23 | |
24 ;; You should have received a copy of the GNU General Public License | |
17071 | 25 ;; along with GNU Emacs; see the file COPYING. If not, write to the |
64085 | 26 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, |
27 ;; Boston, MA 02110-1301, USA. | |
17052 | 28 |
38414
67b464da13ec
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
37888
diff
changeset
|
29 ;;; Commentary: |
17052 | 30 |
18555 | 31 ;; Convert cxterm dictionary (of TIT format) to quail-package. |
17052 | 32 ;; |
33 ;; Usage (within Emacs): | |
18555 | 34 ;; M-x titdic-convert<CR>CXTERM-DICTIONARY-NAME<CR> |
17052 | 35 ;; Usage (from shell): |
18555 | 36 ;; % emacs -batch -l titdic-cnv -f batch-titdic-convert\ |
17052 | 37 ;; [-dir DIR] [DIR | FILE] ... |
38 ;; | |
39 ;; When you run titdic-convert within Emacs, you have a chance to | |
40 ;; modify arguments of `quail-define-package' before saving the | |
41 ;; converted file. For instance, you are likely to modify TITLE, | |
42 ;; DOCSTRING, and KEY-BINDINGS. | |
43 | |
18555 | 44 ;; Cxterm dictionary file (*.tit) is a line-oriented text (English, |
17052 | 45 ;; Chinese, Japanese, and Korean) file. The whole file contains of |
46 ;; two parts, the definition part (`header' here after) followed by | |
47 ;; the dictionary part (`body' here after). All lines begin with | |
48 ;; leading '#' are ignored. | |
49 ;; | |
50 ;; Each line in the header part has two fields, KEY and VALUE. These | |
51 ;; fields are separated by one or more white characters. | |
52 ;; | |
53 ;; Each line in the body part has two fields, KEYSEQ and TRANSLATIONS. | |
54 ;; These fields are separated by one or more white characters. | |
55 ;; | |
56 ;; See the manual page of `tit2cit' of cxterm distribution for more | |
57 ;; detail. | |
37116
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
58 ;; |
37261 | 59 ;; 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
|
60 ;; miscellaneous dictionaries. |
17052 | 61 |
62 ;;; Code: | |
63 | |
64 (require 'quail) | |
65 | |
18555 | 66 ;; List of values of key "ENCODE:" and the corresponding Emacs |
17052 | 67 ;; coding-system and language environment name. |
68 (defvar tit-encode-list | |
17098
8917133b7e82
Remove prefix "coding-system-" from coding system symbol names.
Kenichi Handa <handa@m17n.org>
parents:
17071
diff
changeset
|
69 '(("GB" euc-china "Chinese-GB") |
8917133b7e82
Remove prefix "coding-system-" from coding system symbol names.
Kenichi Handa <handa@m17n.org>
parents:
17071
diff
changeset
|
70 ("BIG5" cn-big5 "Chinese-BIG5") |
8917133b7e82
Remove prefix "coding-system-" from coding system symbol names.
Kenichi Handa <handa@m17n.org>
parents:
17071
diff
changeset
|
71 ("JIS" euc-japan "Japanese") |
18555 | 72 ("KS" euc-kr "Korean"))) |
73 | |
31548
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
74 ;; 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
|
75 ;; 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
|
76 ;; 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
|
77 ;; 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
|
78 ;; information. |
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
79 ;; The command describe-input-method shows the automatically generated |
46670 | 80 ;; 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
|
81 ;; 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
|
82 ;; \<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
|
83 ;; 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
|
84 |
31425
3ab020a4847b
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
21503
diff
changeset
|
85 (defvar quail-cxterm-package-ext-info |
3ab020a4847b
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
21503
diff
changeset
|
86 '(("chinese-4corner" "$(0(?-F(B") |
3ab020a4847b
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
21503
diff
changeset
|
87 ("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
|
88 ("chinese-ccdospy" "$AKuF4(B" |
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
89 "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
|
90 |
46670 | 91 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
|
92 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
|
93 method `chinese-py'. |
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
94 |
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
95 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
|
96 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
|
97 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
|
98 keyseq: a f g h i j k l s u y v |
46670 | 99 For example: |
31548
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
100 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
|
101 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
|
102 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
|
103 |
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
104 \\<quail-translation-docstring> |
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
105 |
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
106 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
|
107 input method `chinese-qj'.") |
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
108 |
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
109 ("chinese-ecdict" "$(05CKH(B" |
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
110 "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
|
111 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
|
112 \"computer\", \"$(0IZH+(B\" is input. |
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
113 |
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
114 \\<quail-translation-docstring>") |
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 ("chinese-etzy" "$(06/0D(B" |
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
117 "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
|
118 `chinese-big5-2'). |
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
119 |
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
120 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
|
121 compose one Chinese character. |
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
122 |
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
123 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
|
124 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
|
125 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
|
126 4:$(0(+Vy(B). |
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
127 |
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
128 \\<quail-translation-docstring>") |
31425
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-b5" "$(0O:(BB" |
3ab020a4847b
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
21503
diff
changeset
|
131 "Input method for Chinese punctuations and symbols of Big5 |
3ab020a4847b
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
21503
diff
changeset
|
132 \(`chinese-big5-1' and `chinese-big5-2').") |
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-punct" "$A1j(BG" |
3ab020a4847b
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
21503
diff
changeset
|
135 "Input method for Chinese punctuations and symbols of GB2312 |
3ab020a4847b
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
21503
diff
changeset
|
136 \(`chinese-gb2312').") |
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 ("chinese-py-b5" "$(03<(BB" |
3ab020a4847b
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
21503
diff
changeset
|
139 "Pinyin base input method for Chinese Big5 characters |
3ab020a4847b
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
21503
diff
changeset
|
140 \(`chinese-big5-1', `chinese-big5-2'). |
3ab020a4847b
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
21503
diff
changeset
|
141 |
3ab020a4847b
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
21503
diff
changeset
|
142 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
|
143 see). |
3ab020a4847b
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
21503
diff
changeset
|
144 |
3ab020a4847b
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
21503
diff
changeset
|
145 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
|
146 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
|
147 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
|
148 and punctuation/symbols. |
31425
3ab020a4847b
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
21503
diff
changeset
|
149 |
31481
e9e907d10d80
(quail-cxterm-package-ext-info): Fix doc strings of chinese-py-b5,
Eli Zaretskii <eliz@gnu.org>
parents:
31425
diff
changeset
|
150 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
|
151 method `chinese-qj-b5'. |
3ab020a4847b
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
21503
diff
changeset
|
152 |
3ab020a4847b
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
21503
diff
changeset
|
153 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
|
154 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
|
155 |
31548
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
156 ("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
|
157 |
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
158 ("chinese-qj" "$AH+(BG") |
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
159 |
31425
3ab020a4847b
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
21503
diff
changeset
|
160 ("chinese-sw" "$AJWN2(B" |
31548
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
161 "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
|
162 |
32277
d589b182b25a
(quail-cxterm-package-ext-info): Fix typos in doc strings.
Eli Zaretskii <eliz@gnu.org>
parents:
31548
diff
changeset
|
163 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
|
164 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
|
165 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
|
166 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
|
167 |
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
168 first radical: |
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
169 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
|
170 $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
|
171 last radical: |
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
172 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
|
173 $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
|
174 |
36995
eba40b9dc09b
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36684
diff
changeset
|
175 \\<quail-translation-docstring>") |
31548
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
176 |
31425
3ab020a4847b
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
21503
diff
changeset
|
177 ("chinese-tonepy" "$A5wF4(B" |
3ab020a4847b
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
21503
diff
changeset
|
178 "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
|
179 |
48760
0006966fe2dc
(titdic-convert): Process the header part in multibyte mode.
Kenichi Handa <handa@m17n.org>
parents:
48666
diff
changeset
|
180 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
|
181 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
|
182 method `chinese-py'. |
3ab020a4847b
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
21503
diff
changeset
|
183 |
3ab020a4847b
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
21503
diff
changeset
|
184 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
|
185 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
|
186 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
|
187 |
36995
eba40b9dc09b
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36684
diff
changeset
|
188 \\<quail-translation-docstring> |
31548
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
189 |
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
190 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
|
191 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
|
192 the third character from the candidate list. |
31425
3ab020a4847b
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
21503
diff
changeset
|
193 |
3ab020a4847b
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
21503
diff
changeset
|
194 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
|
195 input method `chinese-qj'.") |
3ab020a4847b
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
21503
diff
changeset
|
196 |
31548
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
197 ("chinese-zozy" "$(0I\0D(B" |
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
198 "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
|
199 `chinese-big5-2'). |
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
200 |
32277
d589b182b25a
(quail-cxterm-package-ext-info): Fix typos in doc strings.
Eli Zaretskii <eliz@gnu.org>
parents:
31548
diff
changeset
|
201 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
|
202 compose a Chinese character. |
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
203 |
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
204 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
|
205 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
|
206 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
|
207 7:$(0M=Vy(B). |
c8f1f4614a02
(quail-cxterm-package-ext-info): Add extra docstrings for
Kenichi Handa <handa@m17n.org>
parents:
31481
diff
changeset
|
208 |
36995
eba40b9dc09b
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36684
diff
changeset
|
209 \\<quail-translation-docstring>"))) |
17052 | 210 |
211 ;; Return a value of the key in the current line. | |
212 (defsubst tit-read-key-value () | |
52408
0fda57976189
(tit-read-key-value): Include \r in regexp.
Jason Rumney <jasonr@gnu.org>
parents:
52401
diff
changeset
|
213 (if (looking-at "[^ \t\r\n]+") |
17052 | 214 (car (read-from-string (concat "\"" (match-string 0) "\""))))) |
215 | |
216 ;; Return an appropriate quail-package filename from FILENAME (TIT | |
18555 | 217 ;; dictionary filename). For instance, ".../ZOZY.tit" -> "ZOZY.el". |
218 (defun tit-make-quail-package-file-name (filename &optional dirname) | |
17052 | 219 (expand-file-name |
18555 | 220 (concat (file-name-nondirectory (substring filename 0 -4)) ".el") |
17052 | 221 dirname)) |
222 | |
20840
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
223 ;; 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
|
224 (defvar tit-dictionary t) |
17052 | 225 (defvar tit-encode nil) |
226 (defvar tit-default-encode "GB") | |
227 | |
228 ;; Generate elements of KEY-BINDINGS arg for `quail-define-package' so | |
229 ;; that each characters in KEYS invokes FUNCTION-SYMBOL. | |
230 (defun tit-generate-key-bindings (keys function-symbol) | |
231 (let ((len (length keys)) | |
232 (i 0) | |
20840
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
233 (first t) |
17052 | 234 key) |
235 (while (< i len) | |
20840
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
236 (or first (princ "\n ")) |
17052 | 237 (setq key (aref keys i)) |
20840
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
238 (if (if (< key ?\ ) |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
239 (eq (lookup-key quail-translation-keymap |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
240 (char-to-string key)) |
17052 | 241 'quail-execute-non-quail-command) |
20840
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
242 (<= key 127)) |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
243 (progn |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
244 (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
|
245 ((< key 127) (format "\"%c\"" key)) |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
246 (t "\"\\C-?\"")) |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
247 function-symbol)) |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
248 (setq first nil))) |
17052 | 249 (setq i (1+ i))))) |
250 | |
251 ;; Analyze header part of TIT dictionary and generate an appropriate | |
252 ;; `quail-define-package' function call. | |
253 (defun tit-process-header (filename) | |
254 (message "Processing header part...") | |
255 (goto-char (point-min)) | |
256 | |
20840
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
257 ;; 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
|
258 ;; collecting information from the original header. |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
259 (let ((package (concat |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
260 "chinese-" |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
261 (substring (downcase (file-name-nondirectory filename)) |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
262 0 -4))) |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
263 ;; TIT keywords and the corresponding default values. |
17052 | 264 (tit-multichoice t) |
265 (tit-prompt "") | |
266 (tit-comments nil) | |
267 (tit-backspace "\010\177") | |
268 (tit-deleteall "\015\025") | |
269 (tit-moveright ".>") | |
270 (tit-moveleft ",<") | |
271 (tit-keyprompt nil)) | |
20840
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
272 |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
273 (princ ";; Quail package `") |
75496 | 274 (princ package) |
275 (princ "' -*- coding:iso-2022-7bit; ") | |
276 (princ "byte-compile-disable-print-circle:t; -*-\n") | |
46670 | 277 (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
|
278 (princ (current-time-string)) |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
279 (princ "\n;;\tOriginal TIT dictionary file: ") |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
280 (princ (file-name-nondirectory filename)) |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
281 (princ "\n\n;;; Comment:\n\n") |
21503
d08387c742bb
(titdic-convert): Message improved.
Kenichi Handa <handa@m17n.org>
parents:
21081
diff
changeset
|
282 (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
|
283 (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
|
284 |
17052 | 285 (while (not (eobp)) |
20840
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
286 (let ((ch (following-char)) |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
287 (pos (point))) |
17052 | 288 (cond ((= ch ?C) ; COMMENT |
289 (cond ((looking-at "COMMENT") | |
290 (let ((pos (match-end 0))) | |
291 (end-of-line) | |
292 (setq tit-comments (cons (buffer-substring pos (point)) | |
293 tit-comments)))))) | |
294 ((= ch ?M) ; MULTICHOICE, MOVERIGHT, MOVELEFT | |
295 (cond ((looking-at "MULTICHOICE:[ \t]*") | |
296 (goto-char (match-end 0)) | |
297 (setq tit-multichoice (looking-at "YES"))) | |
298 ((looking-at "MOVERIGHT:[ \t]*") | |
299 (goto-char (match-end 0)) | |
300 (setq tit-moveright (tit-read-key-value))) | |
301 ((looking-at "MOVELEFT:[ \t]*") | |
302 (goto-char (match-end 0)) | |
303 (setq tit-moveleft (tit-read-key-value))))) | |
304 ((= ch ?P) ; PROMPT | |
305 (cond ((looking-at "PROMPT:[ \t]*") | |
306 (goto-char (match-end 0)) | |
31425
3ab020a4847b
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
21503
diff
changeset
|
307 (setq tit-prompt (tit-read-key-value)) |
3ab020a4847b
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
21503
diff
changeset
|
308 ;; Some TIT dictionaies that are encoded by |
3ab020a4847b
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
21503
diff
changeset
|
309 ;; euc-china contains invalid character at the tail. |
3ab020a4847b
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
21503
diff
changeset
|
310 (let* ((last (aref tit-prompt (1- (length tit-prompt)))) |
3ab020a4847b
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
21503
diff
changeset
|
311 (split (split-char last))) |
3ab020a4847b
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
21503
diff
changeset
|
312 (if (or (eq (nth 1 split) 32) |
3ab020a4847b
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
21503
diff
changeset
|
313 (eq (nth 2 split) 32)) |
3ab020a4847b
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
21503
diff
changeset
|
314 (setq tit-prompt (substring tit-prompt 0 -1))))))) |
17052 | 315 ((= ch ?B) ; BACKSPACE, BEGINDICTIONARY, |
316 ; BEGINPHRASE | |
317 (cond ((looking-at "BACKSPACE:[ \t]*") | |
318 (goto-char (match-end 0)) | |
319 (setq tit-backspace (tit-read-key-value))) | |
320 ((looking-at "BEGINDICTIONARY") | |
20840
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
321 (setq tit-dictionary t)) |
17052 | 322 ((looking-at "BEGINPHRASE") |
20840
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
323 (setq tit-dictionary nil)))) |
17052 | 324 ((= ch ?K) ; KEYPROMPT |
325 (cond ((looking-at "KEYPROMPT(\\(.*\\)):[ \t]*") | |
326 (let ((key-char (match-string 1))) | |
327 (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
|
328 (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
|
329 (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
|
330 (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
|
331 key-char))))) |
17052 | 332 (setq tit-keyprompt |
333 (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
|
334 tit-keyprompt))))))) |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
335 (end-of-line) |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
336 (princ ";; ") |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
337 (princ (buffer-substring pos (point))) |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
338 (princ "\n") |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
339 (forward-line 1))) |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48760
diff
changeset
|
340 |
20840
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
341 (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
|
342 (princ ";;; Code:\n\n(require 'quail)\n\n") |
17052 | 343 |
20840
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
344 (princ "(quail-define-package ") |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
345 ;; Args NAME, LANGUAGE, TITLE |
31425
3ab020a4847b
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
21503
diff
changeset
|
346 (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
|
347 (princ "\"") |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
348 (princ package) |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
349 (princ "\" \"") |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
350 (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
|
351 (princ "\" \"") |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
352 (princ (or title |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
353 (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
|
354 (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
|
355 tit-prompt))) |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
356 (princ "\"\n")) |
17052 | 357 |
358 ;; Arg GUIDANCE | |
359 (if tit-keyprompt | |
360 (progn | |
20840
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
361 (princ " '(") |
17052 | 362 (while tit-keyprompt |
20840
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
363 (princ " ") |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
364 (princ (format "(%d . \"%s\")\n" |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
365 (string-to-char (car (car tit-keyprompt))) |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
366 (cdr (car tit-keyprompt)))) |
17052 | 367 (setq tit-keyprompt (cdr tit-keyprompt))) |
20840
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
368 (princ ")")) |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
369 (princ " t\n")) |
17052 | 370 |
371 ;; Arg DOCSTRING | |
31425
3ab020a4847b
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
21503
diff
changeset
|
372 (let ((doc (concat tit-prompt "\n")) |
3ab020a4847b
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
21503
diff
changeset
|
373 (comments (if tit-comments |
3ab020a4847b
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
21503
diff
changeset
|
374 (mapconcat 'identity (nreverse tit-comments) "\n"))) |
3ab020a4847b
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
21503
diff
changeset
|
375 (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
|
376 (if comments |
3ab020a4847b
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
21503
diff
changeset
|
377 (setq doc (concat doc "\n" comments "\n"))) |
3ab020a4847b
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
21503
diff
changeset
|
378 (if doc-ext |
3ab020a4847b
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
21503
diff
changeset
|
379 (setq doc (concat doc "\n" doc-ext "\n"))) |
3ab020a4847b
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
21503
diff
changeset
|
380 (prin1 doc) |
3ab020a4847b
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
21503
diff
changeset
|
381 (terpri)) |
17052 | 382 |
383 ;; Arg KEY-BINDINGS | |
20840
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
384 (princ " '(") |
17052 | 385 (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
|
386 (princ "\n ") |
17052 | 387 (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
|
388 (princ "\n ") |
17052 | 389 (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
|
390 (princ "\n ") |
17052 | 391 (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
|
392 (princ ")\n") |
17052 | 393 |
394 ;; Args FORGET-TRANSLATION, DETERMINISTIC, KBD-TRANSLATE, SHOW-LAYOUT. | |
395 ;; The remaining args are all nil. | |
20840
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
396 (princ " nil") |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
397 (princ (if tit-multichoice " nil" " t")) |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
398 (princ (if tit-keyprompt " t t)\n\n" " nil nil)\n\n")))) |
17052 | 399 |
20840
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
400 (defsubst tit-flush-translations (key translations) |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
401 (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
|
402 (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
|
403 (car (read-from-string |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
404 (concat "\"" (match-string 0 key) "\""))))) |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
405 (idx (match-end 0))) |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
406 (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
|
407 (setq newkey (concat |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
408 newkey |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
409 (substring key idx (match-beginning 0)) |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
410 (car (read-from-string |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
411 (concat "\"" (match-string 0 key) "\""))))) |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
412 (setq idx (match-end 0))) |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
413 (setq key (concat newkey (substring key idx))))) |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
414 (prin1 (list key (if tit-dictionary translations |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
415 (vconcat (nreverse translations))))) |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
416 (princ "\n")) |
17052 | 417 |
418 ;; Convert body part of TIT dictionary into `quail-define-rules' | |
419 ;; function call. | |
420 (defun tit-process-body () | |
421 (message "Formatting translation rules...") | |
20840
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
422 (let* ((template (list nil nil)) |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
423 (second (cdr template)) |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
424 (prev-key "") |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
425 ch key translations pos) |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
426 (princ "(quail-define-rules\n") |
17052 | 427 (while (null (eobp)) |
20840
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
428 (setq ch (following-char)) |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
429 (if (or (= ch ?#) (= ch ?\n)) |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
430 (forward-line 1) |
17052 | 431 (setq pos (point)) |
20840
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
432 (skip-chars-forward "^ \t\n") |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
433 (setq key (buffer-substring pos (point))) |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
434 (skip-chars-forward " \t") |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
435 (setq ch (following-char)) |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
436 (if (or (= ch ?#) (= ch ?\n)) |
18796
ab40b57484c1
(tit-process-body): Ignore vacant entries.
Kenichi Handa <handa@m17n.org>
parents:
18555
diff
changeset
|
437 ;; 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
|
438 (forward-line 1) |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
439 (or (string= key prev-key) |
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 (if translations |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
442 (tit-flush-translations prev-key translations)) |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
443 (setq translations nil |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
444 prev-key key))) |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
445 (if tit-dictionary |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
446 (progn |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
447 (setq pos (point)) |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
448 (skip-chars-forward "^ \t#\n") |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
449 (setq translations |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
450 (if translations |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
451 (concat translations |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
452 (buffer-substring pos (point))) |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
453 (buffer-substring pos (point))))) |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
454 (while (not (eolp)) |
18796
ab40b57484c1
(tit-process-body): Ignore vacant entries.
Kenichi Handa <handa@m17n.org>
parents:
18555
diff
changeset
|
455 (setq pos (point)) |
20840
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
456 (skip-chars-forward "^ \t\n") |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
457 (setq translations (cons (buffer-substring pos (point)) |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
458 translations)) |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
459 (skip-chars-forward " \t") |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
460 (setq ch (following-char)) |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
461 (if (= ch ?#) (end-of-line)))) |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
462 (forward-line 1)))) |
18796
ab40b57484c1
(tit-process-body): Ignore vacant entries.
Kenichi Handa <handa@m17n.org>
parents:
18555
diff
changeset
|
463 |
20840
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
464 (if translations |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
465 (tit-flush-translations prev-key translations)) |
1842af0263da
Many codes re-written to adjust for
Kenichi Handa <handa@m17n.org>
parents:
20795
diff
changeset
|
466 (princ ")\n"))) |
17052 | 467 |
468 ;;;###autoload | |
469 (defun titdic-convert (filename &optional dirname) | |
470 "Convert a TIT dictionary of FILENAME into a Quail package. | |
471 Optional argument DIRNAME if specified is the directory name under which | |
472 the generated Quail package is saved." | |
473 (interactive "FTIT dictionary file: ") | |
75788
9099b36e6499
(titdic-convert): Force files be
Kenichi Handa <handa@m17n.org>
parents:
75504
diff
changeset
|
474 (let ((coding-system-for-write 'iso-2022-7bit-unix)) |
46670 | 475 (with-temp-file (tit-make-quail-package-file-name filename dirname) |
75788
9099b36e6499
(titdic-convert): Force files be
Kenichi Handa <handa@m17n.org>
parents:
75504
diff
changeset
|
476 ;; Explicitly speficy eol format to `unix'. |
9099b36e6499
(titdic-convert): Force files be
Kenichi Handa <handa@m17n.org>
parents:
75504
diff
changeset
|
477 (set-buffer-file-coding-system 'iso-2022-7bit-unix) |
46670 | 478 (let ((standard-output (current-buffer))) |
479 (with-temp-buffer | |
480 (set-buffer-multibyte nil) | |
75788
9099b36e6499
(titdic-convert): Force files be
Kenichi Handa <handa@m17n.org>
parents:
75504
diff
changeset
|
481 ;; Here we must use `raw-text' instead of `no-conversion' to |
9099b36e6499
(titdic-convert): Force files be
Kenichi Handa <handa@m17n.org>
parents:
75504
diff
changeset
|
482 ;; enable auto-decoding of eol format (CRLF->LF). |
9099b36e6499
(titdic-convert): Force files be
Kenichi Handa <handa@m17n.org>
parents:
75504
diff
changeset
|
483 (let ((coding-system-for-read 'raw-text)) |
46670 | 484 (insert-file-contents (expand-file-name filename))) |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48760
diff
changeset
|
485 |
46670 | 486 ;; Decode the buffer contents from the encoding specified by a |
487 ;; value of the key "ENCODE:". | |
488 (if (not (search-forward "\nBEGIN" nil t)) | |
489 (error "TIT dictionary doesn't have body part")) | |
490 (let ((limit (point)) | |
491 coding-system slot) | |
492 (goto-char (point-min)) | |
493 (if (re-search-forward "^ENCODE:[ \t]*" limit t) | |
494 (progn | |
495 (goto-char (match-end 0)) | |
496 (setq tit-encode (tit-read-key-value))) | |
497 (setq tit-encode tit-default-encode)) | |
498 (setq slot (assoc tit-encode tit-encode-list)) | |
499 (if (not slot) | |
500 (error "Invalid ENCODE: value in TIT dictionary")) | |
501 (setq coding-system (nth 1 slot)) | |
502 (message "Decoding with coding system %s..." coding-system) | |
503 (goto-char (point-min)) | |
504 (decode-coding-region (point-min) (point-max) coding-system)) | |
505 | |
506 ;; 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
|
507 (goto-char (point-min)) |
46670 | 508 (if (not (search-forward "\nBEGIN" nil t)) |
509 (error "TIT dictionary can't be decoded correctly")) | |
17052 | 510 |
48760
0006966fe2dc
(titdic-convert): Process the header part in multibyte mode.
Kenichi Handa <handa@m17n.org>
parents:
48666
diff
changeset
|
511 ;; 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
|
512 (with-current-buffer standard-output |
0006966fe2dc
(titdic-convert): Process the header part in multibyte mode.
Kenichi Handa <handa@m17n.org>
parents:
48666
diff
changeset
|
513 (set-buffer-multibyte t)) |
0006966fe2dc
(titdic-convert): Process the header part in multibyte mode.
Kenichi Handa <handa@m17n.org>
parents:
48666
diff
changeset
|
514 (set-buffer-multibyte t) |
46670 | 515 (forward-line 1) |
516 (narrow-to-region (point-min) (point)) | |
517 (tit-process-header filename) | |
518 (widen) | |
17052 | 519 |
46670 | 520 ;; Process the body part. For speed, we turn off multibyte facility. |
521 (with-current-buffer standard-output | |
522 (set-buffer-multibyte nil)) | |
523 (set-buffer-multibyte nil) | |
524 (tit-process-body)))))) | |
17052 | 525 |
526 ;;;###autoload | |
18831
e6f6c2712a5f
(batch-titdic-convert): Add optional arg FORCE.
Kenichi Handa <handa@m17n.org>
parents:
18796
diff
changeset
|
527 (defun batch-titdic-convert (&optional force) |
17052 | 528 "Run `titdic-convert' on the files remaining on the command line. |
529 Use this from the command line, with `-batch'; | |
530 it won't work in an interactive Emacs. | |
531 For example, invoke \"emacs -batch -f batch-titdic-convert XXX.tit\" to | |
532 generate Quail package file \"xxx.el\" from TIT dictionary file \"XXX.tit\". | |
533 To get complete usage, invoke \"emacs -batch -f batch-titdic-convert -h\"." | |
534 (defvar command-line-args-left) ; Avoid compiler warning. | |
535 (if (not noninteractive) | |
536 (error "`batch-titdic-convert' should be used only with -batch")) | |
537 (if (string= (car command-line-args-left) "-h") | |
538 (progn | |
539 (message "To convert XXX.tit and YYY.tit into xxx.el and yyy.el:") | |
540 (message " %% emacs -batch -l titdic-cnv -f batch-titdic-convert XXX.tit YYY.tit") | |
541 (message "To convert XXX.tit into DIR/xxx.el:") | |
542 (message " %% emacs -batch -l titdic-cnv -f batch-titdic-convert -dir DIR XXX.tit")) | |
543 (let (targetdir filename files file) | |
544 (if (string= (car command-line-args-left) "-dir") | |
545 (progn | |
546 (setq command-line-args-left (cdr command-line-args-left)) | |
547 (setq targetdir (car command-line-args-left)) | |
548 (setq command-line-args-left (cdr command-line-args-left)))) | |
549 (while command-line-args-left | |
550 (setq filename (expand-file-name (car command-line-args-left))) | |
551 (if (file-directory-p filename) | |
552 (progn | |
553 (message "Converting all tit files in the directory %s" filename) | |
554 (setq files (directory-files filename t "\\.tit$"))) | |
555 (setq files (list filename))) | |
556 (while files | |
557 (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
|
558 (when (or force |
e6f6c2712a5f
(batch-titdic-convert): Add optional arg FORCE.
Kenichi Handa <handa@m17n.org>
parents:
18796
diff
changeset
|
559 (file-newer-than-file-p |
e6f6c2712a5f
(batch-titdic-convert): Add optional arg FORCE.
Kenichi Handa <handa@m17n.org>
parents:
18796
diff
changeset
|
560 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
|
561 (message "Converting %s to quail-package..." file) |
e6f6c2712a5f
(batch-titdic-convert): Add optional arg FORCE.
Kenichi Handa <handa@m17n.org>
parents:
18796
diff
changeset
|
562 (titdic-convert file targetdir)) |
17052 | 563 (setq files (cdr files))) |
564 (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
|
565 (message "Byte-compile the created files by:") |
17052 | 566 (message " %% emacs -batch -f batch-byte-compile XXX.el"))) |
567 (kill-emacs 0)) | |
568 | |
37116
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
569 |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
570 ;;; Converter of miscellaneous dictionaries other than TIT format. |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
571 |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
572 ;; Alist of input method names and the corresponding information. |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
573 ;; Each element has this form: |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
574 ;; (INPUT-METHOD-NAME ;; Name of the input method. |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48760
diff
changeset
|
575 ;; 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
|
576 ;; DICFILE ;; Name of the source dictionary file. |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
577 ;; CODING ;; Coding system of the dictionary file. |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
578 ;; QUAILFILE ;; Name of the Quail package file. |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
579 ;; CONVERTER ;; Function to generate the Quail package. |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
580 ;; COPYRIGHT-NOTICE ;; Copyright notice of the source dictionary. |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
581 ;; ) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
582 |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
583 (defvar quail-misc-package-ext-info |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
584 '(("chinese-b5-tsangchi" "$(06A(BB" |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48760
diff
changeset
|
585 "cangjie-table.b5" big5 "tsang-b5.el" |
37116
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
586 tsang-b5-converter |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
587 "\ |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
588 ;; # Copyright 2001 Christian Wittern <wittern@iis.sinica.edu.tw> |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
589 ;; # |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
590 ;; # Permission to copy and distribute both modified and |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
591 ;; # unmodified versions is granted without royalty provided |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
592 ;; # this notice is preserved.") |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
593 |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
594 ("chinese-b5-quick" "$(0X|(BB" |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48760
diff
changeset
|
595 "cangjie-table.b5" big5 "quick-b5.el" |
37116
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
596 quick-b5-converter |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
597 "\ |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
598 ;; # Copyright 2001 Christian Wittern <wittern@iis.sinica.edu.tw> |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
599 ;; # |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
600 ;; # Permission to copy and distribute both modified and |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
601 ;; # unmodified versions is granted without royalty provided |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
602 ;; # this notice is preserved.") |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
603 |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
604 ("chinese-cns-tsangchi" "$(GT?(BC" |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
605 "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
|
606 tsang-cns-converter |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
607 "\ |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
608 ;; # Copyright 2001 Christian Wittern <wittern@iis.sinica.edu.tw> |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
609 ;; # |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
610 ;; # Permission to copy and distribute both modified and |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
611 ;; # unmodified versions is granted without royalty provided |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
612 ;; # this notice is preserved.") |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
613 |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
614 ("chinese-cns-quick" "$(Gv|(BC" |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
615 "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
|
616 quick-cns-converter |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
617 "\ |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
618 ;; # Copyright 2001 Christian Wittern <wittern@iis.sinica.edu.tw> |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
619 ;; # |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
620 ;; # Permission to copy and distribute both modified and |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
621 ;; # unmodified versions is granted without royalty provided |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
622 ;; # this notice is preserved.") |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
623 |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
624 ("chinese-py" "$AF4(BG" |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
625 "pinyin.map" cn-gb-2312 "PY.el" |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
626 py-converter |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
627 "\ |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
628 ;; \"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
|
629 ;; available at: |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
630 ;; http://ftp.debian.org/debian/dists/potato/main |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
631 ;; /source/utils/cce_0.36.orig.tar.gz |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
632 ;; This package contains the following copyright notice. |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
633 ;; |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
634 ;; |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
635 ;; Copyright (C) 1999, Rui He, herui@cs.duke.edu |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48760
diff
changeset
|
636 ;; |
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48760
diff
changeset
|
637 ;; |
37116
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
638 ;; CCE(Console Chinese Environment) 0.32 |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48760
diff
changeset
|
639 ;; |
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48760
diff
changeset
|
640 ;; 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
|
641 ;; 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
|
642 ;; Foundation; either version 1, or (at your option) any later version. |
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48760
diff
changeset
|
643 ;; |
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48760
diff
changeset
|
644 ;; 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
|
645 ;; WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS |
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48760
diff
changeset
|
646 ;; 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
|
647 ;; details. |
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48760
diff
changeset
|
648 ;; |
37116
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
649 ;; 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
|
650 ;; CCE; see the file COPYING. If not, write to the Free Software Foundation, |
64092 | 651 ;; 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.") |
37116
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
652 |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
653 ("chinese-ziranma" "$AWTH;(B" |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
654 "ziranma.cin" cn-gb-2312 "ZIRANMA.el" |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
655 ziranma-converter |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
656 "\ |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
657 ;; \"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
|
658 ;; available at: |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
659 ;; http://ftp.debian.org/debian/dists/potato/main |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
660 ;; /source/utils/cce_0.36.orig.tar.gz |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
661 ;; This package contains the following copyright notice. |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
662 ;; |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
663 ;; |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
664 ;; Copyright (C) 1999, Rui He, herui@cs.duke.edu |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48760
diff
changeset
|
665 ;; |
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48760
diff
changeset
|
666 ;; |
37116
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
667 ;; CCE(Console Chinese Environment) 0.32 |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48760
diff
changeset
|
668 ;; |
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48760
diff
changeset
|
669 ;; 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
|
670 ;; 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
|
671 ;; Foundation; either version 1, or (at your option) any later version. |
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48760
diff
changeset
|
672 ;; |
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48760
diff
changeset
|
673 ;; 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
|
674 ;; WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS |
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48760
diff
changeset
|
675 ;; 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
|
676 ;; details. |
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48760
diff
changeset
|
677 ;; |
37116
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
678 ;; 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
|
679 ;; CCE; see the file COPYING. If not, write to the Free Software Foundation, |
64092 | 680 ;; 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.") |
37875
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
681 |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
682 ("chinese-ctlau" "$AAuTA(B" |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
683 "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
|
684 ctlau-gb-converter |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
685 "\ |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
686 ;; \"CTLau.html\" is available at: |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
687 ;; |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
688 ;; 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
|
689 ;; |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
690 ;; 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
|
691 ;; |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
692 ;; # 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
|
693 ;; # |
37875
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
694 ;; # 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
|
695 ;; # 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
|
696 ;; # 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
|
697 ;; # of the License, or any later version. |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48760
diff
changeset
|
698 ;; # |
37875
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
699 ;; # 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
|
700 ;; # 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
|
701 ;; # 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
|
702 ;; # GNU General Public License for more details. |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48760
diff
changeset
|
703 ;; # |
37875
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
704 ;; # 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
|
705 ;; # along with this program; if not, write to the Free Software Foundation, |
64091 | 706 ;; # Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.") |
37875
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
707 |
37884
b454faf9a60b
Change input method name chinese-ctlau-b5 back to chinese-ctlaub.
Andrew Choi <akochoi@shaw.ca>
parents:
37883
diff
changeset
|
708 ("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
|
709 "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
|
710 ctlau-b5-converter |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
711 "\ |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
712 ;; \"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
|
713 ;; |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
714 ;; 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
|
715 ;; |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
716 ;; 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
|
717 ;; |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
718 ;; # 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
|
719 ;; # |
37875
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
720 ;; # 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
|
721 ;; # 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
|
722 ;; # 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
|
723 ;; # of the License, or any later version. |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48760
diff
changeset
|
724 ;; # |
37875
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
725 ;; # 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
|
726 ;; # 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
|
727 ;; # 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
|
728 ;; # GNU General Public License for more details. |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48760
diff
changeset
|
729 ;; # |
37875
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
730 ;; # 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
|
731 ;; # along with this program; if not, write to the Free Software Foundation, |
64091 | 732 ;; # Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.") |
37116
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
733 )) |
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 ;; 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
|
736 ;; 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
|
737 ;; 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
|
738 |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
739 ;; 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
|
740 ;; 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
|
741 ;; 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
|
742 ;; method is for inputting CNS characters. |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
743 |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
744 (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
|
745 (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
|
746 (if big5-p "$(0X|/y(B" "$(Gv|Mx(B"))) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
747 dic) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
748 (goto-char (point-max)) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
749 (if big5-p |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
750 (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
|
751 |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
752 $(0KHM$(B%s$(0TT&,WoOu(B |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
753 |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
754 [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
|
755 |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
756 [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
|
757 |
37116
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
758 [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
|
759 |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
760 \\\\<quail-translation-docstring>\"\n" |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
761 fulltitle fulltitle)) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
762 (insert (format "\"$(GDcEFrSD+!J(B%s$(G!K(BCNS |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
763 |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
764 $(GiGk#(B%s$(GrSD+uomu(B |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
765 |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
766 [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
|
767 |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
768 [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
|
769 |
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48760
diff
changeset
|
770 [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
|
771 |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
772 \\\\<quail-translation-docstring>\"\n" |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
773 fulltitle fulltitle))) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
774 (insert " '((\".\" . quail-next-translation-block) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
775 (\",\" . quail-prev-translation-block)) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
776 nil nil)\n\n") |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
777 (insert "(quail-define-rules\n") |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
778 (save-excursion |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
779 (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
|
780 ;; 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
|
781 ;; 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
|
782 (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
|
783 (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
|
784 (replace-match "")) |
37116
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
785 (goto-char (point-min)) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
786 (search-forward "A440") |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
787 (beginning-of-line) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
788 (let ((table (make-hash-table :test 'equal)) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
789 val) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
790 (while (not (eobp)) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
791 (forward-char 5) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
792 (let ((trans (char-to-string (following-char))) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
793 key slot) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
794 (re-search-forward "[A-Z]+$" nil t) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
795 (setq key (downcase |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
796 (if (or tsang-p |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
797 (<= (- (match-end 0) (match-beginning 0)) 1)) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
798 (match-string 0) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
799 (string (char-after (match-beginning 0)) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
800 (char-after (1- (match-end 0))))))) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
801 (setq val (gethash key table)) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
802 (if val (setq trans (concat val trans))) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
803 (puthash key trans table) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
804 (forward-line 1))) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
805 (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
|
806 table))) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
807 (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
|
808 (dolist (elt dic) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
809 (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
|
810 (let ((punctuations '((";" "$(0!'!2!"!#!.!/(B" "$(G!'!2!"!#!.!/(B") |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
811 (":" "$(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
|
812 ("'" "$(0!e!d(B" "$(G!e!d(B") |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
813 ("\"" "$(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
|
814 ("\\" "$(0"`"b#M(B" "$(G"`"b#M(B") |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
815 ("|" "$(0!6!8!:"^(B" "$(G!6!8!:"^(B") |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
816 ("/" "$(0"_"a#L(B" "$(G"_"a#L(B") |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
817 ("?" "$(0!)!4(B" "$(G!)!4(B") |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
818 ("<" "$(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
|
819 (">" "$(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
|
820 ("[" "$(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
|
821 ("]" "$(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
|
822 ("{" "$(0!B!`!D(B " "$(G!B!`!D(B ") |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
823 ("}" "$(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
|
824 ("`" "$(0!j!k(B" "$(G!j!k(B") |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
825 ("~" "$(0"D"+",!<!=(B" "$(G"D"+",!<!=(B") |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
826 ("!" "$(0!*!5(B" "$(G!*!5(B") |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
827 ("@" "$(0"i"n(B" "$(G"i"n(B") |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
828 ("#" "$(0!l"-(B" "$(G!l"-(B") |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
829 ("$" "$(0"c"l(B" "$(G"c"l(B") |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
830 ("%" "$(0"h"m(B" "$(G"h"m(B") |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
831 ("&" "$(0!m".(B" "$(G!m".(B") |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
832 ("*" "$(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
|
833 ("(" "$(0!>!^!@(B" "$(G!>!^!@(B") |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
834 (")" "$(0!?!_!A(B" "$(G!?!_!A(B") |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
835 ("-" "$(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
|
836 ("_" "$(0"%"&(B" "$(G"%"&(B") |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
837 ("=" "$(0"8"C(B" "$(G"8"C(B") |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
838 ("+" "$(0"0"?(B" "$(G"0"?(B")))) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
839 (dolist (elt punctuations) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
840 (insert (format "(%S %S)\n" (concat "z" (car elt)) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
841 (if big5-p (nth 1 elt) (nth 2 elt)))))) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
842 (insert ")\n"))) |
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 tsang-b5-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 t t)) |
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 (defun quick-b5-converter (dicbuf name title) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
848 (tsang-quick-converter dicbuf name title nil t)) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
849 |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
850 (defun tsang-cns-converter (dicbuf name title) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
851 (tsang-quick-converter dicbuf name title t nil)) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
852 |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
853 (defun quick-cns-converter (dicbuf name title) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
854 (tsang-quick-converter dicbuf name title nil nil)) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
855 |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
856 ;; 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
|
857 ;; 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
|
858 ;; 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
|
859 |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
860 (defun py-converter (dicbuf name title) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
861 (goto-char (point-max)) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
862 (insert (format "%S\n" "$A::WVJdHk!KF4Rt!K(B |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
863 |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
864 $AF4Rt7=08(B |
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 $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
|
867 |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
868 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
|
869 |
48760
0006966fe2dc
(titdic-convert): Process the header part in multibyte mode.
Kenichi Handa <handa@m17n.org>
parents:
48666
diff
changeset
|
870 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
|
871 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
|
872 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
|
873 \(the beginning sounds) and finals (the ending sounds). |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
874 |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
875 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
|
876 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
|
877 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
|
878 |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
879 (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
|
880 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
|
881 |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
882 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
|
883 entering its pinyin spelling. |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
884 |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
885 \\<quail-translation-docstring> |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
886 |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
887 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
|
888 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
|
889 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
|
890 that group. |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
891 |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
892 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
|
893 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
|
894 `chinese-punct'; it supports both Han characters and punctuation |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
895 characters. |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
896 |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
897 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
|
898 input method `chinese-qj'. |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
899 |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
900 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
|
901 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
|
902 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
|
903 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
|
904 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
|
905 \(1..5).")) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
906 (insert " '((\"\C-?\" . quail-delete-last-char) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
907 (\".\" . quail-next-translation) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
908 (\">\" . quail-next-translation) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
909 (\",\" . quail-prev-translation) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
910 (\"<\" . quail-prev-translation)) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
911 nil nil nil nil)\n\n") |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
912 (insert "(quail-define-rules\n") |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
913 (let ((pos (point))) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
914 (insert-buffer-substring dicbuf) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
915 (goto-char pos) |
75504
7a1804e97bdf
(py-converter): Fix previous change.
Kenichi Handa <handa@m17n.org>
parents:
75496
diff
changeset
|
916 (re-search-forward "^[a-z]") |
75496 | 917 (beginning-of-line) |
918 (delete-region pos (point)) | |
37116
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
919 (while (not (eobp)) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
920 (insert "(\"") |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
921 (skip-chars-forward "a-z") |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
922 (insert "\" \"") |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
923 (delete-char 1) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
924 (end-of-line) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
925 (insert "\")") |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
926 (forward-line 1))) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
927 (insert ")\n")) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
928 |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
929 ;; 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
|
930 ;; 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
|
931 ;; 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
|
932 |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
933 (defun ziranma-converter (dicbuf name title) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
934 (let (dic) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
935 (save-excursion |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
936 (set-buffer dicbuf) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
937 (goto-char (point-min)) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
938 (search-forward "%keyname end\n") |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
939 (let ((table (make-hash-table :test 'equal)) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
940 elt pos key trans val) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
941 (while (not (eobp)) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
942 (setq pos (point)) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
943 (skip-chars-forward "^ \t") |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
944 (setq key (buffer-substring pos (point))) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
945 (skip-chars-forward " \t") |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
946 (setq trans (vector (buffer-substring (point) (line-end-position)))) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
947 (setq val (gethash key table)) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
948 (if val (setq trans (vconcat val trans))) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
949 (puthash key trans table) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
950 (forward-line 1)) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
951 (maphash #'(lambda (key trans) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
952 (let ((len (length trans)) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
953 i) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
954 (if (and (= len 1) (= (length (aref trans 0)) 1)) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
955 (setq trans (aref trans 0)) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
956 (setq i 0) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
957 (while (and (< i len) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
958 (= (length (aref trans i)) 1)) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
959 (setq i (1+ i))) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
960 (if (= i len) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
961 (setq trans (mapconcat 'identity trans ""))))) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
962 (setq dic (cons (cons key trans) dic))) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
963 table))) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
964 (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
|
965 (goto-char (point-max)) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
966 (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
|
967 |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
968 $A<|EL6TUU1m(B: |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
969 $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
|
970 $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
|
971 $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
|
972 $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
|
973 $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
|
974 $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
|
975 $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
|
976 $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
|
977 $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
|
978 $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
|
979 $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
|
980 $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
|
981 $A);)%)%)_)%)%)_)%)%)_)%)%)_)%)%)_)%)%)_)%)%)_)%)%)_)%)%)_)%)%)?(B |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
982 |
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 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
|
985 |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
986 Pinyin is the standard roman transliteration method for Chinese. |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
987 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
|
988 method `chinese-py'. |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
989 |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
990 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
|
991 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
|
992 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
|
993 \"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
|
994 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
|
995 |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
996 \\<quail-translation-docstring> |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
997 |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
998 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
|
999 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
|
1000 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
|
1001 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
|
1002 |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1003 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
|
1004 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
|
1005 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
|
1006 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
|
1007 |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1008 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
|
1009 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
|
1010 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
|
1011 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
|
1012 inputs $AVP9z(B. |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1013 |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1014 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
|
1015 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
|
1016 $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
|
1017 |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1018 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
|
1019 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
|
1020 \"bjdt\" inputs $A11>)5gJSL((B. |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1021 |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1022 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
|
1023 `z', then select one of the candidates.")) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1024 (insert " '((\"\C-?\" . quail-delete-last-char) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1025 (\".\" . quail-next-translation) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1026 (\"[\" . quail-next-translation) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1027 (\",\" . quail-prev-translation) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1028 (\"]\" . quail-prev-translation)) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1029 nil nil nil nil)\n\n") |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1030 (insert "(quail-define-rules\n") |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1031 (dolist (elt dic) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1032 (insert (format "(%S %S)\n" (car elt) (cdr elt)))) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1033 (insert ")\n"))) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1034 |
37875
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1035 ;; 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
|
1036 ;; 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
|
1037 ;; 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
|
1038 ;; 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
|
1039 |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1040 (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
|
1041 (goto-char (point-max)) |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1042 (insert (format "%S\n" description)) |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1043 (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
|
1044 (\".\" . quail-next-translation) |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1045 (\">\" . quail-next-translation) |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1046 (\",\" . quail-prev-translation) |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1047 (\"<\" . quail-prev-translation)) |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1048 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
|
1049 (insert "(quail-define-rules\n") |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1050 (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
|
1051 ;; 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
|
1052 ;; 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
|
1053 (save-excursion |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1054 (set-buffer dicbuf) |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1055 (goto-char (point-min)) |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1056 (search-forward "#\n#<hr>\n") |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1057 (setq dicbuf-start (point)) |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1058 (goto-char (point-max)) |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1059 (forward-line -1) |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1060 (setq dicbuf-end (point))) |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1061 (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
|
1062 ;; 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
|
1063 ;; 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
|
1064 ;; 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
|
1065 ;; through and delete them. |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1066 (goto-char pos) |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1067 (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
|
1068 (delete-char -1)) |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1069 ;; 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
|
1070 ;; 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
|
1071 ;; backslashes. |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1072 (goto-char pos) |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1073 (while (not (eobp)) |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1074 (insert "(\"") |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1075 (if (char-equal (following-char) ?\\) |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1076 (insert "\\")) |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1077 (setq key-start (point)) |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1078 (skip-chars-forward "\\\\A-Z") |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1079 (downcase-region key-start (point)) |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1080 (insert "\" \"") |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1081 (delete-char 1) |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1082 (end-of-line) |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1083 (insert "\")") |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1084 (forward-line 1))) |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1085 (insert ")\n")) |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1086 |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1087 (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
|
1088 (ctlau-converter dicbuf name title |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1089 "$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
|
1090 |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1091 $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
|
1092 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
|
1093 \"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
|
1094 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
|
1095 Originally converted from CTCPS3.tit |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1096 Last modified: June 2, 1993. |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1097 |
37888
2e08c7d128e6
2001-05-25 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37884
diff
changeset
|
1098 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
|
1099 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
|
1100 |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1101 (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
|
1102 (ctlau-converter dicbuf name title |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1103 "$(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
|
1104 |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1105 $(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
|
1106 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
|
1107 \"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
|
1108 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
|
1109 Originally converted from CTCPS3.tit |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1110 Last modified: June 2, 1993. |
91cf555a6d8d
2001-05-24 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37262
diff
changeset
|
1111 |
37888
2e08c7d128e6
2001-05-25 Andrew Choi <akochoi@i-cable.com>
Andrew Choi <akochoi@shaw.ca>
parents:
37884
diff
changeset
|
1112 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
|
1113 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
|
1114 |
86289
8a7ed478f7bc
* international/titdic-cnv.el (dos-8+3-filename):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
78310
diff
changeset
|
1115 (declare-function dos-8+3-filename "../dos-fns.el" (filename)) |
8a7ed478f7bc
* international/titdic-cnv.el (dos-8+3-filename):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
78310
diff
changeset
|
1116 |
37116
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1117 (defun miscdic-convert (filename &optional dirname) |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
48760
diff
changeset
|
1118 "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
|
1119 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
|
1120 the generated Quail package is saved." |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1121 (interactive "FInput method dictionary file: ") |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1122 (or (file-readable-p filename) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1123 (error "%s does not exist" filename)) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1124 (let ((tail quail-misc-package-ext-info) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1125 (default-buffer-file-coding-system 'iso-2022-7bit) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1126 slot |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1127 name title dicfile coding quailfile converter copyright |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1128 dicbuf) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1129 (while tail |
55280
181520e900b2
(miscdic-convert): Don't generate a
Kenichi Handa <handa@m17n.org>
parents:
52415
diff
changeset
|
1130 (setq slot (car tail) |
181520e900b2
(miscdic-convert): Don't generate a
Kenichi Handa <handa@m17n.org>
parents:
52415
diff
changeset
|
1131 dicfile (nth 2 slot) |
181520e900b2
(miscdic-convert): Don't generate a
Kenichi Handa <handa@m17n.org>
parents:
52415
diff
changeset
|
1132 quailfile (nth 4 slot)) |
181520e900b2
(miscdic-convert): Don't generate a
Kenichi Handa <handa@m17n.org>
parents:
52415
diff
changeset
|
1133 (when (and (or (string-match dicfile filename) |
181520e900b2
(miscdic-convert): Don't generate a
Kenichi Handa <handa@m17n.org>
parents:
52415
diff
changeset
|
1134 ;; 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
|
1135 ;; limits, so "cangjie-table.cns" becomes |
181520e900b2
(miscdic-convert): Don't generate a
Kenichi Handa <handa@m17n.org>
parents:
52415
diff
changeset
|
1136 ;; "cangjie-.cns", and the above string-match |
181520e900b2
(miscdic-convert): Don't generate a
Kenichi Handa <handa@m17n.org>
parents:
52415
diff
changeset
|
1137 ;; fails. Give DOS users a chance... |
181520e900b2
(miscdic-convert): Don't generate a
Kenichi Handa <handa@m17n.org>
parents:
52415
diff
changeset
|
1138 (and (fboundp 'msdos-long-file-names) |
181520e900b2
(miscdic-convert): Don't generate a
Kenichi Handa <handa@m17n.org>
parents:
52415
diff
changeset
|
1139 (not (msdos-long-file-names)) |
181520e900b2
(miscdic-convert): Don't generate a
Kenichi Handa <handa@m17n.org>
parents:
52415
diff
changeset
|
1140 (string-match (dos-8+3-filename dicfile) filename))) |
181520e900b2
(miscdic-convert): Don't generate a
Kenichi Handa <handa@m17n.org>
parents:
52415
diff
changeset
|
1141 (if (file-newer-than-file-p |
181520e900b2
(miscdic-convert): Don't generate a
Kenichi Handa <handa@m17n.org>
parents:
52415
diff
changeset
|
1142 filename (expand-file-name quailfile dirname)) |
181520e900b2
(miscdic-convert): Don't generate a
Kenichi Handa <handa@m17n.org>
parents:
52415
diff
changeset
|
1143 t |
181520e900b2
(miscdic-convert): Don't generate a
Kenichi Handa <handa@m17n.org>
parents:
52415
diff
changeset
|
1144 (message "%s is up to date" quailfile) |
181520e900b2
(miscdic-convert): Don't generate a
Kenichi Handa <handa@m17n.org>
parents:
52415
diff
changeset
|
1145 nil)) |
181520e900b2
(miscdic-convert): Don't generate a
Kenichi Handa <handa@m17n.org>
parents:
52415
diff
changeset
|
1146 (setq name (car slot) |
37116
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1147 title (nth 1 slot) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1148 coding (nth 3 slot) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1149 converter (nth 5 slot) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1150 copyright (nth 6 slot)) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1151 (message "Converting %s to %s..." dicfile quailfile) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1152 (with-temp-file (expand-file-name quailfile dirname) |
75788
9099b36e6499
(titdic-convert): Force files be
Kenichi Handa <handa@m17n.org>
parents:
75504
diff
changeset
|
1153 ;; Explicitly speficy eol format to `unix'. |
9099b36e6499
(titdic-convert): Force files be
Kenichi Handa <handa@m17n.org>
parents:
75504
diff
changeset
|
1154 (set-buffer-file-coding-system 'iso-2022-7bit-unix) |
75496 | 1155 (insert ";; Quail package `" name "' -*- coding:iso-2022-7bit; ") |
1156 (insert "byte-compile-disable-print-circle:t; -*-\n"); | |
37116
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1157 (insert ";; Generated by the command `miscdic-convert'\n") |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1158 (insert ";; Date: " (current-time-string) "\n") |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1159 (insert ";; Source dictionary file: " dicfile "\n") |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1160 (insert ";; Copyright notice of the source file\n") |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1161 (insert ";;------------------------------------------------------\n") |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1162 (insert copyright "\n") |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1163 (insert ";;------------------------------------------------------\n") |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1164 (insert "\n") |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1165 (insert ";;; Code:\n\n") |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1166 (insert "(require 'quail)\n") |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1167 (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
|
1168 (if (eq coding 'big5) "Chinese-BIG5" "Chinese-CNS") |
37116
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1169 "\" \"" title "\" t\n") |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1170 (let* ((coding-system-for-read coding) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1171 (dicbuf (find-file-noselect filename))) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1172 (funcall converter dicbuf name title) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1173 (kill-buffer dicbuf))) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1174 (message "Converting %s to %s...done" dicfile quailfile)) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1175 (setq tail (cdr tail))))) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1176 |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1177 (defun batch-miscdic-convert () |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1178 "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
|
1179 Use this from the command line, with `-batch'; |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1180 it won't work in an interactive Emacs. |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1181 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
|
1182 to store generated Quail packages." |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1183 (defvar command-line-args-left) ; Avoid compiler warning. |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1184 (if (not noninteractive) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1185 (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
|
1186 (let ((dir default-directory) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1187 filename) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1188 (while command-line-args-left |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1189 (if (string= (car command-line-args-left) "-dir") |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1190 (progn |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1191 (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
|
1192 (setq dir (car command-line-args-left)) |
12b6e8b2db2f
(quail-misc-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
46670
diff
changeset
|
1193 (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
|
1194 (setq filename (car command-line-args-left) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1195 command-line-args-left (cdr command-line-args-left)) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1196 (if (file-directory-p filename) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1197 (dolist (file (directory-files filename t nil t)) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1198 (miscdic-convert file dir)) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1199 (miscdic-convert filename dir)))) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1200 (kill-emacs 0)) |
dafc644df705
(quail-cxterm-package-ext-info):
Kenichi Handa <handa@m17n.org>
parents:
36995
diff
changeset
|
1201 |
36684
61687d474d90
Add coding: tag in Local Variables: section.
Kenichi Handa <handa@m17n.org>
parents:
32277
diff
changeset
|
1202 ;; Local Variables: |
61687d474d90
Add coding: tag in Local Variables: section.
Kenichi Handa <handa@m17n.org>
parents:
32277
diff
changeset
|
1203 ;; coding: iso-2022-7bit |
61687d474d90
Add coding: tag in Local Variables: section.
Kenichi Handa <handa@m17n.org>
parents:
32277
diff
changeset
|
1204 ;; End: |
38414
67b464da13ec
Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents:
37888
diff
changeset
|
1205 |
52401 | 1206 ;;; 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
|
1207 ;;; titdic-cnv.el ends here |