comparison lisp/international/titdic-cnv.el @ 75788:9099b36e6499

(titdic-convert): Force files be written with Unix-like eol format. Read files under CXTERM-DIC by raw-text. (miscdic-convert): Force files be written with Unix-like eol format.

75787:db90b43ef87e

(defun titdic-convert (filename &optional dirname)
  "Convert a TIT dictionary of FILENAME into a Quail package.
Optional argument DIRNAME if specified is the directory name under which
the generated Quail package is saved."
  (interactive "FTIT dictionary file: ")
  (let ((coding-system-for-write 'iso-2022-7bit))
    (with-temp-file  (tit-make-quail-package-file-name filename dirname)
      (set-buffer-file-coding-system 'iso-2022-7bit)
      (let ((standard-output (current-buffer)))
	(with-temp-buffer
	  (set-buffer-multibyte nil)
	  (let ((coding-system-for-read 'no-conversion))
	    (insert-file-contents (expand-file-name filename)))

	  ;; Decode the buffer contents from the encoding specified by a
	  ;; value of the key "ENCODE:".
	  (if (not (search-forward "\nBEGIN" nil t))

	      coding (nth 3 slot)
	      converter (nth 5 slot)
	      copyright (nth 6 slot))
	(message "Converting %s to %s..." dicfile quailfile)
	(with-temp-file (expand-file-name quailfile dirname)
	  (set-buffer-file-coding-system 'iso-2022-7bit)
	  (insert ";; Quail package `" name "' -*- coding:iso-2022-7bit; ")
	  (insert "byte-compile-disable-print-circle:t; -*-\n");
	  (insert ";;   Generated by the command `miscdic-convert'\n")
	  (insert ";;   Date: " (current-time-string) "\n")
	  (insert ";;   Source dictionary file: " dicfile "\n")

75788:9099b36e6499

(defun titdic-convert (filename &optional dirname)
  "Convert a TIT dictionary of FILENAME into a Quail package.
Optional argument DIRNAME if specified is the directory name under which
the generated Quail package is saved."
  (interactive "FTIT dictionary file: ")
  (let ((coding-system-for-write 'iso-2022-7bit-unix))
    (with-temp-file  (tit-make-quail-package-file-name filename dirname)
      ;; Explicitly speficy eol format to `unix'.
      (set-buffer-file-coding-system 'iso-2022-7bit-unix)
      (let ((standard-output (current-buffer)))
	(with-temp-buffer
	  (set-buffer-multibyte nil)
	  ;; Here we must use `raw-text' instead of `no-conversion' to
	  ;; enable auto-decoding of eol format (CRLF->LF).
	  (let ((coding-system-for-read 'raw-text))
	    (insert-file-contents (expand-file-name filename)))

	  ;; Decode the buffer contents from the encoding specified by a
	  ;; value of the key "ENCODE:".
	  (if (not (search-forward "\nBEGIN" nil t))

	      coding (nth 3 slot)
	      converter (nth 5 slot)
	      copyright (nth 6 slot))
	(message "Converting %s to %s..." dicfile quailfile)
	(with-temp-file (expand-file-name quailfile dirname)
	  ;; Explicitly speficy eol format to `unix'.
	  (set-buffer-file-coding-system 'iso-2022-7bit-unix)
	  (insert ";; Quail package `" name "' -*- coding:iso-2022-7bit; ")
	  (insert "byte-compile-disable-print-circle:t; -*-\n");
	  (insert ";;   Generated by the command `miscdic-convert'\n")
	  (insert ";;   Date: " (current-time-string) "\n")
	  (insert ";;   Source dictionary file: " dicfile "\n")