/[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.35 by handa, Mon Dec 9 05:42:22 2002 UTC revision 1.36 by lektu, Tue Feb 4 13:09:38 2003 UTC
# 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    
# 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 473  the generated Quail package is saved." Line 473  the generated Quail package is saved."
473            (set-buffer-multibyte nil)            (set-buffer-multibyte nil)
474            (let ((coding-system-for-read 'no-conversion))            (let ((coding-system-for-read 'no-conversion))
475              (insert-file-contents (expand-file-name filename)))              (insert-file-contents (expand-file-name filename)))
476            
477            ;; Decode the buffer contents from the encoding specified by a            ;; Decode the buffer contents from the encoding specified by a
478            ;; value of the key "ENCODE:".            ;; value of the key "ENCODE:".
479            (if (not (search-forward "\nBEGIN" nil t))            (if (not (search-forward "\nBEGIN" nil t))
# Line 563  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 573  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 583  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 624  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 653  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    
673      ("chinese-ctlau" "$AAuTA(B"      ("chinese-ctlau" "$AAuTA(B"
# Line 681  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 707  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 745  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 757  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 1096  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: ")

Legend:
Removed from v.1.35  
changed lines
  Added in v.1.36

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