/[emacs]/emacs/lisp/international/titdic-cnv.el
ViewVC logotype

Diff of /emacs/lisp/international/titdic-cnv.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.32 by monnier, Mon Apr 8 22:50:57 2002 UTC revision 1.32.2.1 by miles, Fri Apr 4 06:20:26 2003 UTC
# Line 1  Line 1 
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.
# Line 73  Line 73 
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.
# Line 84  Line 84 
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    
# Line 92  This input method works almost the same Line 92  This input method works almost the same
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
# Line 163  and radicals is as below: Line 163  and radicals is as below:
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    
# Line 267  SPC, 6, 3, 4, or 7 specifing a tone (SPC Line 267  SPC, 6, 3, 4, or 7 specifing a tone (SPC
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))
# Line 331  SPC, 6, 3, 4, or 7 specifing a tone (SPC Line 331  SPC, 6, 3, 4, or 7 specifing a tone (SPC
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    
# Line 465  SPC, 6, 3, 4, or 7 specifing a tone (SPC Line 465  SPC, 6, 3, 4, or 7 specifing a tone (SPC
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)
# Line 559  To get complete usage, invoke \"emacs -b Line 563  To get complete usage, invoke \"emacs -b
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.
# Line 569  To get complete usage, invoke \"emacs -b Line 573  To get complete usage, invoke \"emacs -b
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>
# Line 579  To get complete usage, invoke \"emacs -b Line 583  To get complete usage, invoke \"emacs -b
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>
# Line 620  To get complete usage, invoke \"emacs -b Line 624  To get complete usage, invoke \"emacs -b
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"
# Line 649  To get complete usage, invoke \"emacs -b Line 653  To get complete usage, invoke \"emacs -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
# Line 687  To get complete usage, invoke \"emacs -b Line 681  To get complete usage, invoke \"emacs -b
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.")
# Line 713  To get complete usage, invoke \"emacs -b Line 707  To get complete usage, invoke \"emacs -b
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.")
# Line 751  To get complete usage, invoke \"emacs -b Line 745  To get complete usage, invoke \"emacs -b
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"
# Line 763  To get complete usage, invoke \"emacs -b Line 757  To get complete usage, invoke \"emacs -b
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)))
# Line 859  To get complete usage, invoke \"emacs -b Line 853  To get complete usage, invoke \"emacs -b
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).
# Line 1102  To input symbols and punctuations, type Line 1096  To input symbols and punctuations, type
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: ")
# Line 1170  to store generated Quail packages." Line 1164  to store generated Quail packages."
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)

Legend:
Removed from v.1.32  
changed lines
  Added in v.1.32.2.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26