comparison lisp/international/quail.el @ 19605:3b700b203cfd

(quail-update-leim-list-file): Make it handle multiple directories.

19604:a647176226bc

(defvar quail-directory-name "quail"
  "Name of Quail directory which cotains Quail packages.
This is a sub-directory of LEIM directory.")

;;;###autoload
(defun quail-update-leim-list-file (dirname)
  "Update entries for Quail packages in LEIM list file of directory DIRNAME.
LEIM is a directory containing Emacs input methods;
normally, it should specify the `leim' subdirectory
of the Emacs source tree."
  (interactive "FDirectory of LEIM: ")
  (setq dirname (file-name-as-directory (expand-file-name dirname)))
  (let ((quail-dir (concat dirname quail-directory-name))
	(filename (concat dirname leim-list-file-name))
	list-buf pkg-list pkg-buf pos)
    (if (not (file-exists-p quail-dir))
	nil
      (if (not (file-readable-p quail-dir))
	  (message "Can't write to file \"%s\"" filename)
	(if (not (file-writable-p filename))
	    (message "Can't write to file \"%s\"" filename)
	  (setq list-buf (find-file-noselect filename))
	  (setq pkg-list (directory-files quail-dir 'full ".*\\.el$" 'nosort))
	  (message "Updating %s ..." filename)

	  ;; At first, clean up the file.
	  (save-excursion
	    (set-buffer list-buf)
	    (goto-char 1)

	    ;; Insert the correct header.
	    (if (looking-at (regexp-quote leim-list-header))
		(goto-char (match-end 0))
	      (insert leim-list-header))
	    (setq pos (point))
	    (if (not (re-search-forward leim-list-entry-regexp nil t))
		nil

	      ;; Remove garbages after the header.
	      (goto-char (match-beginning 0))
	      (if (< pos (point))
		  (delete-region pos (point)))

	      ;; Remove all entries for Quail.
	      (while (re-search-forward leim-list-entry-regexp nil 'move)
		(goto-char (match-beginning 0))
		(setq pos (point))
		(let ((form (read list-buf)))
		  (if (equal (nth 3 form) ''quail-use-package)
		      (progn
			(if (eolp) (forward-line 1))
			(delete-region pos (point))))))))

	  ;; Insert entries for Quail.
	  (while pkg-list
	    (message "Checking %s ..." (car pkg-list))
	    (with-temp-buffer
	      (insert-file-contents (car pkg-list))
	      (goto-char (point-min))
	      (while (search-forward "(quail-define-package" nil t)
		(goto-char (match-beginning 0))
		(let ((form (read (current-buffer))))
		  (save-excursion
		    (set-buffer list-buf)
		    (insert (format "(register-input-method
 %S %S '%s
 %S %S
 %S)\n"
				    (nth 1 form)	; PACKAGE-NAME
				    (nth 2 form)	; LANGUAGE
				    'quail-use-package	; ACTIVATE-FUNC
				    (nth 3 form)	; PACKAGE-TITLE
				    (progn    ; PACKAGE-DESCRIPTION (one line)
				      (string-match ".*" (nth 5 form))
				      (match-string 0 (nth 5 form)))
				    (file-relative-name ; PACKAGE-FILENAME
				     (file-name-sans-extension (car pkg-list))
				     dirname)))))))
	    (setq pkg-list (cdr pkg-list)))
	  (save-excursion
	    (set-buffer list-buf)
	    (setq buffer-file-coding-system 'iso-2022-7bit)
	    (save-buffer 0))
	  (kill-buffer list-buf)
	  (message "Updating %s ... done" (buffer-file-name list-buf)))))))
;;
(provide 'quail)

;;; quail.el ends here

19605:3b700b203cfd

(defvar quail-directory-name "quail"
  "Name of Quail directory which cotains Quail packages.
This is a sub-directory of LEIM directory.")

;;;###autoload
(defun quail-update-leim-list-file (dirname &rest dirnames)
  "Update entries for Quail packages in `LEIM' list file in directory DIRNAME.
DIRNAME is a directory containing Emacs input methods;
normally, it should specify the `leim' subdirectory
of the Emacs source tree.

It searches for Quail packages under `quail' subdirectory of DIRNAME,
and update the file \"leim-list.el\" in DIRNAME.

When called from a program, the remaining arguments are additional
directory names to search for Quail packages under `quail' subdirectory
of each directory."
  (interactive "FDirectory of LEIM: ")
  (setq dirname (expand-file-name dirname))
  (let ((leim-list (expand-file-name leim-list-file-name dirname))
	quail-dirs list-buf pkg-list pkg-buf pos)
    (if (not (file-writable-p leim-list))
	(error "Can't write to file \"%s\"" leim-list))
    (message "Updating %s ..." leim-list)
    (setq list-buf (find-file-noselect leim-list))

    ;; At first, clean up the file.
    (save-excursion
      (set-buffer list-buf)
      (goto-char 1)

      ;; Insert the correct header.
      (if (looking-at (regexp-quote leim-list-header))
	  (goto-char (match-end 0))
	(insert leim-list-header))
      (setq pos (point))
      (if (not (re-search-forward leim-list-entry-regexp nil t))
	  nil

	;; Remove garbages after the header.
	(goto-char (match-beginning 0))
	(if (< pos (point))
	    (delete-region pos (point)))

	;; Remove all entries for Quail.
	(while (re-search-forward leim-list-entry-regexp nil 'move)
	  (goto-char (match-beginning 0))
	  (setq pos (point))
	  (condition-case nil
	      (let ((form (read list-buf)))
		(when (equal (nth 3 form) ''quail-use-package)
		  (if (eolp) (forward-line 1))
		  (delete-region pos (point))))
	    (error
	     ;; Delete the remaining contents because it seems that
	     ;; this file is broken.
	     (message "Garbages in %s deleted" leim-list)
	     (delete-region pos (point-max)))))))

    ;; Search for `quail' subdirector under each DIRNAMES.
    (setq dirnames (cons dirname dirnames))
    (let ((l dirnames))
      (while l
	(setcar l (expand-file-name (car l)))
	(setq dirname (expand-file-name quail-directory-name (car l)))
	(if (file-readable-p dirname)
	    (setq quail-dirs (cons dirname quail-dirs))
	  (message "%s doesn't has `%s' subdirectory, just ignored"
		   (car l) quail-directory-name)
	  (setq quail-dirs (cons nil quail-dirs)))
	(setq l (cdr l)))
      (setq quail-dirs (nreverse quail-dirs)))

    ;; Insert input method registering forms.
    (while quail-dirs
      (setq dirname (car quail-dirs))
      (when dirname
	(setq pkg-list (directory-files dirname 'full "\\.el$" 'nosort))
	(while pkg-list
	  (message "Checking %s ..." (car pkg-list))
	  (with-temp-buffer
	    (insert-file-contents (car pkg-list))
	    (goto-char (point-min))
	    (while (search-forward "(quail-define-package" nil t)
	      (goto-char (match-beginning 0))
	      (condition-case nil
		  (let ((form (read (current-buffer))))
		    (save-excursion
		      (set-buffer list-buf)
		      (insert
		       (format "(register-input-method
 %S %S '%s
 %S %S
 %S)\n"
			       (nth 1 form) ; PACKAGE-NAME
			       (nth 2 form) ; LANGUAGE
			       'quail-use-package ; ACTIVATE-FUNC
			       (nth 3 form) ; PACKAGE-TITLE
			       (progn	; PACKAGE-DESCRIPTION (one line)
				 (string-match ".*" (nth 5 form))
				 (match-string 0 (nth 5 form)))
			       (file-relative-name ; PACKAGE-FILENAME
				(file-name-sans-extension (car pkg-list))
				(car dirnames))))))
		(error
		 ;; Ignore the remaining contents of this file.
		 (goto-char (point-max))
		 (message "Some part of \"%s\" is broken" dirname)))))
	  (setq pkg-list (cdr pkg-list)))
	(setq quail-dirs (cdr quail-dirs) dirnames (cdr dirnames))))

    ;; At last, write out LEIM list file.
    (save-excursion
      (set-buffer list-buf)
      (setq buffer-file-coding-system 'iso-2022-7bit)
      (save-buffer 0))
    (kill-buffer list-buf)
    (message "Updating %s ... done" leim-list)))
;;
(provide 'quail)

;;; quail.el ends here