1 |
;;; titdic-cnv.el --- convert cxterm dictionary (TIT format) to Quail package |
;;; titdic-cnv.el --- convert cxterm dictionary (TIT format) to Quail package -*- coding:iso-2022-7bit; -*- |
2 |
|
|
3 |
;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN. |
;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN. |
4 |
;; Licensed to the Free Software Foundation. |
;; Licensed to the Free Software Foundation. |
73 |
;; dictionary. The extra docstring in this alist is to add more |
;; dictionary. The extra docstring in this alist is to add more |
74 |
;; information. |
;; information. |
75 |
;; The command describe-input-method shows the automatically generated |
;; The command describe-input-method shows the automatically generated |
76 |
;; docstring, then an extra docstrings while replacing the form \<VAR> |
;; docstring, then an extra docstring while replacing the form \<VAR> |
77 |
;; by the value of variable VAR. For instance, the form |
;; by the value of variable VAR. For instance, the form |
78 |
;; \<quail-translation-docstring> is replaced by a description about |
;; \<quail-translation-docstring> is replaced by a description about |
79 |
;; how to select a translation from a list of candidates. |
;; how to select a translation from a list of candidates. |
84 |
("chinese-ccdospy" "$AKuF4(B" |
("chinese-ccdospy" "$AKuF4(B" |
85 |
"Pinyin base input method for Chinese charset GB2312 \(`chinese-gb2312'). |
"Pinyin base input method for Chinese charset GB2312 \(`chinese-gb2312'). |
86 |
|
|
87 |
Pinyin is the standared roman transliteration method for Chinese. |
Pinyin is the standard Roman transliteration method for Chinese. |
88 |
For the detail of Pinyin system, see the documentation of the input |
For the detail of Pinyin system, see the documentation of the input |
89 |
method `chinese-py'. |
method `chinese-py'. |
90 |
|
|
92 |
difference is that you type a single key for these Pinyin spelling. |
difference is that you type a single key for these Pinyin spelling. |
93 |
Pinyin: zh en eng ang ch an ao ai ong sh ing yu($A(9(B) |
Pinyin: zh en eng ang ch an ao ai ong sh ing yu($A(9(B) |
94 |
keyseq: a f g h i j k l s u y v |
keyseq: a f g h i j k l s u y v |
95 |
For expample: |
For example: |
96 |
Chinese: $A0!(B $A9{(B $AVP(B $AND(B $A9b(B $ASq(B $AH+(B |
Chinese: $A0!(B $A9{(B $AVP(B $AND(B $A9b(B $ASq(B $AH+(B |
97 |
Pinyin: a guo zhong wen guang yu quan |
Pinyin: a guo zhong wen guang yu quan |
98 |
Keyseq: a1 guo4 as1 wf4 guh1 yu..6 qvj6 |
Keyseq: a1 guo4 as1 wf4 guh1 yu..6 qvj6 |
163 |
|
|
164 |
first radical: |
first radical: |
165 |
a b c d e f g h i j k l m n o p q r s t u v w x y z |
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 |
166 |
$APD(B $AZ"(B $AJ,(B $AX<(B $A;p(B $A?Z(B $A^P(B $Ac_(B $AZ%(B $A\3(B $AXi(B $AD>(B $Alj(B $Ab;(B $ATB(B $Afy(B $AJ/(B $AMu(B $A0K(B $AX/(B $AHU(B $AeA(B $Aak(B $AVq(B $AR;(B $AHK(B |
$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 |
167 |
last radical: |
last radical: |
168 |
a b c d e f g h i j k l m n o p q r s t u v w x y z |
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 |
169 |
$ASV(B $AI=(B $AMA(B $A56(B $AZb(B $A?Z(B $ARB(B $Aqb(B $A4s(B $A6!(B $A[L(B $Ala(B $AJ.(B $A4u(B $AXg(B $ACE(B $A=q(B $AX-(B $AE.(B $ARR(B $A`m(B $AP!(B $A3'(B $A3f(B $A_.(B $A27(B |
$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 |
170 |
|
|
171 |
\\<quail-translation-docstring>") |
\\<quail-translation-docstring>") |
172 |
|
|
173 |
("chinese-tonepy" "$A5wF4(B" |
("chinese-tonepy" "$A5wF4(B" |
174 |
"Pinyin base input method for Chinese charset GB2312 (`chinese-gb2312'). |
"Pinyin base input method for Chinese charset GB2312 (`chinese-gb2312'). |
175 |
|
|
176 |
Pinyin is the standared roman transliteration method for Chinese. |
Pinyin is the standard roman transliteration method for Chinese. |
177 |
For the details of Pinyin system, see the documentation of the input |
For the details of Pinyin system, see the documentation of the input |
178 |
method `chinese-py'. |
method `chinese-py'. |
179 |
|
|
267 |
(tit-keyprompt nil)) |
(tit-keyprompt nil)) |
268 |
|
|
269 |
(princ ";; Quail package `") |
(princ ";; Quail package `") |
270 |
(princ package) |
(princ package) (princ "' -*- coding:iso-2022-7bit; -*-\n") |
271 |
(princ "' generated by the command `titdic-convert'\n;;\tDate: ") |
(princ ";; Generated by the command `titdic-convert'\n;;\tDate: ") |
272 |
(princ (current-time-string)) |
(princ (current-time-string)) |
273 |
(princ "\n;;\tOriginal TIT dictionary file: ") |
(princ "\n;;\tOriginal TIT dictionary file: ") |
274 |
(princ (file-name-nondirectory filename)) |
(princ (file-name-nondirectory filename)) |
331 |
(princ (buffer-substring pos (point))) |
(princ (buffer-substring pos (point))) |
332 |
(princ "\n") |
(princ "\n") |
333 |
(forward-line 1))) |
(forward-line 1))) |
334 |
|
|
335 |
(princ "\n;;; End of the header of original TIT dictionary.\n\n") |
(princ "\n;;; End of the header of original TIT dictionary.\n\n") |
336 |
(princ ";;; Code:\n\n(require 'quail)\n\n") |
(princ ";;; Code:\n\n(require 'quail)\n\n") |
337 |
|
|
465 |
Optional argument DIRNAME if specified is the directory name under which |
Optional argument DIRNAME if specified is the directory name under which |
466 |
the generated Quail package is saved." |
the generated Quail package is saved." |
467 |
(interactive "FTIT dictionary file: ") |
(interactive "FTIT dictionary file: ") |
468 |
(with-temp-file (tit-make-quail-package-file-name filename dirname) |
(let ((coding-system-for-write 'iso-2022-7bit)) |
469 |
(set-buffer-file-coding-system 'iso-2022-7bit) |
(with-temp-file (tit-make-quail-package-file-name filename dirname) |
470 |
(let ((standard-output (current-buffer))) |
(set-buffer-file-coding-system 'iso-2022-7bit) |
471 |
(with-temp-buffer |
(let ((standard-output (current-buffer))) |
472 |
(let ((coding-system-for-read 'no-conversion)) |
(with-temp-buffer |
473 |
(insert-file-contents (expand-file-name filename))) |
(set-buffer-multibyte nil) |
474 |
(set-buffer-multibyte t) |
(let ((coding-system-for-read 'no-conversion)) |
475 |
|
(insert-file-contents (expand-file-name filename))) |
476 |
;; Decode the buffer contents from the encoding specified by a |
|
477 |
;; value of the key "ENCODE:". |
;; Decode the buffer contents from the encoding specified by a |
478 |
(if (not (search-forward "\nBEGIN" nil t)) |
;; value of the key "ENCODE:". |
479 |
(error "TIT dictionary doesn't have body part")) |
(if (not (search-forward "\nBEGIN" nil t)) |
480 |
(let ((limit (point)) |
(error "TIT dictionary doesn't have body part")) |
481 |
coding-system slot) |
(let ((limit (point)) |
482 |
(goto-char (point-min)) |
coding-system slot) |
483 |
(if (re-search-forward "^ENCODE:[ \t]*" limit t) |
(goto-char (point-min)) |
484 |
(progn |
(if (re-search-forward "^ENCODE:[ \t]*" limit t) |
485 |
(goto-char (match-end 0)) |
(progn |
486 |
(setq tit-encode (tit-read-key-value))) |
(goto-char (match-end 0)) |
487 |
(setq tit-encode tit-default-encode)) |
(setq tit-encode (tit-read-key-value))) |
488 |
(setq slot (assoc tit-encode tit-encode-list)) |
(setq tit-encode tit-default-encode)) |
489 |
(if (not slot) |
(setq slot (assoc tit-encode tit-encode-list)) |
490 |
(error "Invalid ENCODE: value in TIT dictionary")) |
(if (not slot) |
491 |
(setq coding-system (nth 1 slot)) |
(error "Invalid ENCODE: value in TIT dictionary")) |
492 |
(message "Decoding with coding system %s..." coding-system) |
(setq coding-system (nth 1 slot)) |
493 |
|
(message "Decoding with coding system %s..." coding-system) |
494 |
|
(goto-char (point-min)) |
495 |
|
(decode-coding-region (point-min) (point-max) coding-system)) |
496 |
|
|
497 |
|
;; Set point the starting position of the body part. |
498 |
(goto-char (point-min)) |
(goto-char (point-min)) |
499 |
(decode-coding-region (point-min) (point-max) coding-system)) |
(if (not (search-forward "\nBEGIN" nil t)) |
500 |
|
(error "TIT dictionary can't be decoded correctly")) |
501 |
|
|
502 |
;; Set point the starting position of the body part. |
;; Process the header part in multibyte mode. |
503 |
(goto-char (point-min)) |
(with-current-buffer standard-output |
504 |
(if (not (search-forward "\nBEGIN" nil t)) |
(set-buffer-multibyte t)) |
505 |
(error "TIT dictionary can't be decoded correctly")) |
(set-buffer-multibyte t) |
506 |
|
(forward-line 1) |
507 |
;; Process the header part. |
(narrow-to-region (point-min) (point)) |
508 |
(forward-line 1) |
(tit-process-header filename) |
509 |
(narrow-to-region (point-min) (point)) |
(widen) |
510 |
(tit-process-header filename) |
|
511 |
(widen) |
;; Process the body part. For speed, we turn off multibyte facility. |
512 |
|
(with-current-buffer standard-output |
513 |
;; Process the body part. For speed, we turn off multibyte facility. |
(set-buffer-multibyte nil)) |
514 |
(with-current-buffer standard-output |
(set-buffer-multibyte nil) |
515 |
(set-buffer-multibyte nil)) |
(tit-process-body)))))) |
|
(set-buffer-multibyte nil) |
|
|
(tit-process-body))))) |
|
516 |
|
|
517 |
;;;###autoload |
;;;###autoload |
518 |
(defun batch-titdic-convert (&optional force) |
(defun batch-titdic-convert (&optional force) |
563 |
;; Alist of input method names and the corresponding information. |
;; Alist of input method names and the corresponding information. |
564 |
;; Each element has this form: |
;; Each element has this form: |
565 |
;; (INPUT-METHOD-NAME ;; Name of the input method. |
;; (INPUT-METHOD-NAME ;; Name of the input method. |
566 |
;; INPUT-METHOD-TITLE ;; Title string of the input method |
;; INPUT-METHOD-TITLE ;; Title string of the input method |
567 |
;; DICFILE ;; Name of the source dictionary file. |
;; DICFILE ;; Name of the source dictionary file. |
568 |
;; CODING ;; Coding system of the dictionary file. |
;; CODING ;; Coding system of the dictionary file. |
569 |
;; QUAILFILE ;; Name of the Quail package file. |
;; QUAILFILE ;; Name of the Quail package file. |
573 |
|
|
574 |
(defvar quail-misc-package-ext-info |
(defvar quail-misc-package-ext-info |
575 |
'(("chinese-b5-tsangchi" "$(06A(BB" |
'(("chinese-b5-tsangchi" "$(06A(BB" |
576 |
"cangjie-table.b5" big5 "tsang-b5.el" |
"cangjie-table.b5" big5 "tsang-b5.el" |
577 |
tsang-b5-converter |
tsang-b5-converter |
578 |
"\ |
"\ |
579 |
;; # Copyright 2001 Christian Wittern <wittern@iis.sinica.edu.tw> |
;; # Copyright 2001 Christian Wittern <wittern@iis.sinica.edu.tw> |
583 |
;; # this notice is preserved.") |
;; # this notice is preserved.") |
584 |
|
|
585 |
("chinese-b5-quick" "$(0X|(BB" |
("chinese-b5-quick" "$(0X|(BB" |
586 |
"cangjie-table.b5" big5 "quick-b5.el" |
"cangjie-table.b5" big5 "quick-b5.el" |
587 |
quick-b5-converter |
quick-b5-converter |
588 |
"\ |
"\ |
589 |
;; # Copyright 2001 Christian Wittern <wittern@iis.sinica.edu.tw> |
;; # Copyright 2001 Christian Wittern <wittern@iis.sinica.edu.tw> |
624 |
;; |
;; |
625 |
;; |
;; |
626 |
;; Copyright (C) 1999, Rui He, herui@cs.duke.edu |
;; Copyright (C) 1999, Rui He, herui@cs.duke.edu |
627 |
;; |
;; |
628 |
;; |
;; |
629 |
;; CCE(Console Chinese Environment) 0.32 |
;; CCE(Console Chinese Environment) 0.32 |
630 |
;; |
;; |
631 |
;; CCE is free software; you can redistribute it and/or modify it under the |
;; CCE is free software; you can redistribute it and/or modify it under the |
632 |
;; terms of the GNU General Public License as published by the Free Software |
;; terms of the GNU General Public License as published by the Free Software |
633 |
;; Foundation; either version 1, or (at your option) any later version. |
;; Foundation; either version 1, or (at your option) any later version. |
634 |
;; |
;; |
635 |
;; CCE is distributed in the hope that it will be useful, but WITHOUT ANY |
;; CCE is distributed in the hope that it will be useful, but WITHOUT ANY |
636 |
;; WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS |
;; WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS |
637 |
;; FOR A PARTICULAR PURPOSE. See the GNU General Public License for more |
;; FOR A PARTICULAR PURPOSE. See the GNU General Public License for more |
638 |
;; details. |
;; details. |
639 |
;; |
;; |
640 |
;; You should have received a copy of the GNU General Public License along with |
;; You should have received a copy of the GNU General Public License along with |
641 |
;; CCE; see the file COPYING. If not, write to the Free Software Foundation, |
;; CCE; see the file COPYING. If not, write to the Free Software Foundation, |
642 |
;; 675 Mass Ave, Cambridge, MA 02139, USA.") |
;; 675 Mass Ave, Cambridge, MA 02139, USA.") |
643 |
|
|
644 |
("chinese-ziranma" "$AWTH;(B" |
("chinese-ziranma" "$AWTH;(B" |
653 |
;; |
;; |
654 |
;; |
;; |
655 |
;; Copyright (C) 1999, Rui He, herui@cs.duke.edu |
;; Copyright (C) 1999, Rui He, herui@cs.duke.edu |
656 |
;; |
;; |
657 |
;; |
;; |
658 |
;; CCE(Console Chinese Environment) 0.32 |
;; CCE(Console Chinese Environment) 0.32 |
659 |
;; |
;; |
660 |
;; CCE is free software; you can redistribute it and/or modify it under the |
;; CCE is free software; you can redistribute it and/or modify it under the |
661 |
;; terms of the GNU General Public License as published by the Free Software |
;; terms of the GNU General Public License as published by the Free Software |
662 |
;; Foundation; either version 1, or (at your option) any later version. |
;; Foundation; either version 1, or (at your option) any later version. |
663 |
;; |
;; |
664 |
;; CCE is distributed in the hope that it will be useful, but WITHOUT ANY |
;; CCE is distributed in the hope that it will be useful, but WITHOUT ANY |
665 |
;; WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS |
;; WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS |
666 |
;; FOR A PARTICULAR PURPOSE. See the GNU General Public License for more |
;; FOR A PARTICULAR PURPOSE. See the GNU General Public License for more |
667 |
;; details. |
;; details. |
668 |
;; |
;; |
669 |
;; You should have received a copy of the GNU General Public License along with |
;; You should have received a copy of the GNU General Public License along with |
670 |
;; CCE; see the file COPYING. If not, write to the Free Software Foundation, |
;; CCE; see the file COPYING. If not, write to the Free Software Foundation, |
671 |
;; 675 Mass Ave, Cambridge, MA 02139, USA.") |
;; 675 Mass Ave, Cambridge, MA 02139, USA.") |
672 |
|
|
|
("chinese-b5-quick" "$(0X|(BB" |
|
|
"cangjie-table.b5" big5 "quick-b5.el" |
|
|
quick-b5-converter |
|
|
"\ |
|
|
;; # Copyright 2001 Christian Wittern <wittern@iis.sinica.edu.tw> |
|
|
;; # |
|
|
;; # Permission to copy and distribute both modified and |
|
|
;; # unmodified versions is granted without royalty provided |
|
|
;; # this notice is preserved.") |
|
|
|
|
673 |
("chinese-ctlau" "$AAuTA(B" |
("chinese-ctlau" "$AAuTA(B" |
674 |
"CTLau.html" cn-gb-2312 "CTLau.el" |
"CTLau.html" cn-gb-2312 "CTLau.el" |
675 |
ctlau-gb-converter |
ctlau-gb-converter |
681 |
;; It contains the following copyright notice: |
;; It contains the following copyright notice: |
682 |
;; |
;; |
683 |
;; # Copyright (C) 1988-2001 Fung Fung Lee (lee@umunhum.stanford.edu) |
;; # Copyright (C) 1988-2001 Fung Fung Lee (lee@umunhum.stanford.edu) |
684 |
;; # |
;; # |
685 |
;; # This program is free software; you can redistribute it and/or |
;; # This program is free software; you can redistribute it and/or |
686 |
;; # modify it under the terms of the GNU General Public License |
;; # modify it under the terms of the GNU General Public License |
687 |
;; # as published by the Free Software Foundation; either version 2 |
;; # as published by the Free Software Foundation; either version 2 |
688 |
;; # of the License, or any later version. |
;; # of the License, or any later version. |
689 |
;; # |
;; # |
690 |
;; # This program is distributed in the hope that it will be useful, |
;; # This program is distributed in the hope that it will be useful, |
691 |
;; # but WITHOUT ANY WARRANTY; without even the implied warranty of |
;; # but WITHOUT ANY WARRANTY; without even the implied warranty of |
692 |
;; # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
;; # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
693 |
;; # GNU General Public License for more details. |
;; # GNU General Public License for more details. |
694 |
;; # |
;; # |
695 |
;; # You should have received a copy of the GNU General Public License |
;; # You should have received a copy of the GNU General Public License |
696 |
;; # along with this program; if not, write to the Free Software Foundation, |
;; # along with this program; if not, write to the Free Software Foundation, |
697 |
;; # Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.") |
;; # Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.") |
707 |
;; It contains the following copyright notice: |
;; It contains the following copyright notice: |
708 |
;; |
;; |
709 |
;; # Copyright (C) 1988-2001 Fung Fung Lee (lee@umunhum.stanford.edu) |
;; # Copyright (C) 1988-2001 Fung Fung Lee (lee@umunhum.stanford.edu) |
710 |
;; # |
;; # |
711 |
;; # This program is free software; you can redistribute it and/or |
;; # This program is free software; you can redistribute it and/or |
712 |
;; # modify it under the terms of the GNU General Public License |
;; # modify it under the terms of the GNU General Public License |
713 |
;; # as published by the Free Software Foundation; either version 2 |
;; # as published by the Free Software Foundation; either version 2 |
714 |
;; # of the License, or any later version. |
;; # of the License, or any later version. |
715 |
;; # |
;; # |
716 |
;; # This program is distributed in the hope that it will be useful, |
;; # This program is distributed in the hope that it will be useful, |
717 |
;; # but WITHOUT ANY WARRANTY; without even the implied warranty of |
;; # but WITHOUT ANY WARRANTY; without even the implied warranty of |
718 |
;; # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
;; # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
719 |
;; # GNU General Public License for more details. |
;; # GNU General Public License for more details. |
720 |
;; # |
;; # |
721 |
;; # You should have received a copy of the GNU General Public License |
;; # You should have received a copy of the GNU General Public License |
722 |
;; # along with this program; if not, write to the Free Software Foundation, |
;; # along with this program; if not, write to the Free Software Foundation, |
723 |
;; # Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.") |
;; # Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.") |
745 |
[Q $(0'D(B] [W $(0(q(B] [E $(0'V(B] [R $(0&H(B] [T $(0'>(B] [Y $(0&4(B] [U $(0&U(B] [I $(0'B(B] [O $(0&*(B] [P $(0'A(B] |
[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] |
746 |
|
|
747 |
[A $(0'K(B] [S $(0&T(B] [D $(0'N(B] [F $(0'W(B] [G $(0&I(B] [H $(0*M(B] [J $(0&3(B] [L $(0&d(B] |
[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] |
748 |
|
|
749 |
[Z ] [X $(0[E(B] [C $(01[(B] [V $(0&M(B] [B $(0'M(B] [N $(0&_(B] [M $(0&"(B] |
[Z ] [X $(0[E(B] [C $(01[(B] [V $(0&M(B] [B $(0'M(B] [N $(0&_(B] [M $(0&"(B] |
750 |
|
|
751 |
\\\\<quail-translation-docstring>\"\n" |
\\\\<quail-translation-docstring>\"\n" |
757 |
[Q $(GEC(B] [W $(GFp(B] [E $(GEU(B] [R $(GDG(B] [T $(GE=(B] [Y $(GD3(B] [U $(GDT(B] [I $(GEA(B] [O $(GD)(B] [P $(GE@(B] |
[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] |
758 |
|
|
759 |
[A $(GEJ(B] [S $(GDS(B] [D $(GEM(B] [F $(GEV(B] [G $(GDH(B] [H $(GHL(B] [J $(GD2(B] [L $(GDc(B] |
[A $(GEJ(B] [S $(GDS(B] [D $(GEM(B] [F $(GEV(B] [G $(GDH(B] [H $(GHL(B] [J $(GD2(B] [L $(GDc(B] |
760 |
|
|
761 |
[Z ] [X $(GyE(B] [C $(GOZ(B] [V $(GDL(B] [B $(GEL(B] [N $(GD^(B] [M $(GD!(B] |
[Z ] [X $(GyE(B] [C $(GOZ(B] [V $(GDL(B] [B $(GEL(B] [N $(GD^(B] [M $(GD!(B] |
762 |
|
|
763 |
\\\\<quail-translation-docstring>\"\n" |
\\\\<quail-translation-docstring>\"\n" |
764 |
fulltitle fulltitle))) |
fulltitle fulltitle))) |
853 |
|
|
854 |
Pinyin base input method for Chinese charset GB2312 (`chinese-gb2312'). |
Pinyin base input method for Chinese charset GB2312 (`chinese-gb2312'). |
855 |
|
|
856 |
Pinyin is the standared roman transliteration method for Chinese. |
Pinyin is the standard roman transliteration method for Chinese. |
857 |
Pinyin uses a sequence of Latin alphabetic characters for each Chinese |
Pinyin uses a sequence of Latin alphabetic characters for each Chinese |
858 |
character. The sequence is made by the combination of the initials |
character. The sequence is made by the combination of the initials |
859 |
\(the beginning sounds) and finals (the ending sounds). |
\(the beginning sounds) and finals (the ending sounds). |
1096 |
the Cantonese romanization of the respective radical ($(0?f5}(B).")) |
the Cantonese romanization of the respective radical ($(0?f5}(B).")) |
1097 |
|
|
1098 |
(defun miscdic-convert (filename &optional dirname) |
(defun miscdic-convert (filename &optional dirname) |
1099 |
"Convert a dictionary file FILENAME into a Quail package. |
"Convert a dictionary file FILENAME into a Quail package. |
1100 |
Optional argument DIRNAME if specified is the directory name under which |
Optional argument DIRNAME if specified is the directory name under which |
1101 |
the generated Quail package is saved." |
the generated Quail package is saved." |
1102 |
(interactive "FInput method dictionary file: ") |
(interactive "FInput method dictionary file: ") |
1164 |
(if (string= (car command-line-args-left) "-dir") |
(if (string= (car command-line-args-left) "-dir") |
1165 |
(progn |
(progn |
1166 |
(setq command-line-args-left (cdr command-line-args-left)) |
(setq command-line-args-left (cdr command-line-args-left)) |
1167 |
(setq dir (car command-line-args-left)))) |
(setq dir (car command-line-args-left)) |
1168 |
|
(setq command-line-args-left (cdr command-line-args-left)))) |
1169 |
(setq filename (car command-line-args-left) |
(setq filename (car command-line-args-left) |
1170 |
command-line-args-left (cdr command-line-args-left)) |
command-line-args-left (cdr command-line-args-left)) |
1171 |
(if (file-directory-p filename) |
(if (file-directory-p filename) |