From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Glenn Morris Newsgroups: gmane.emacs.devel Subject: Re: suppressing byte-compiler warnings about undefined functions Date: Mon, 12 Nov 2007 23:20:34 -0500 Message-ID: References: NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: ger.gmane.org 1194927652 30432 80.91.229.12 (13 Nov 2007 04:20:52 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Tue, 13 Nov 2007 04:20:52 +0000 (UTC) Cc: emacs-devel@gnu.org To: rms@gnu.org Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Tue Nov 13 05:20:54 2007 Return-path: Envelope-to: ged-emacs-devel@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.50) id 1IrnGf-0004OH-Ox for ged-emacs-devel@m.gmane.org; Tue, 13 Nov 2007 05:20:54 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1IrnGT-0003HC-9e for ged-emacs-devel@m.gmane.org; Mon, 12 Nov 2007 23:20:41 -0500 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1IrnGP-0003Do-7W for emacs-devel@gnu.org; Mon, 12 Nov 2007 23:20:37 -0500 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1IrnGO-0003D8-CQ for emacs-devel@gnu.org; Mon, 12 Nov 2007 23:20:36 -0500 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1IrnGO-0003Cv-6Q for emacs-devel@gnu.org; Mon, 12 Nov 2007 23:20:36 -0500 Original-Received: from fencepost.gnu.org ([140.186.70.10]) by monty-python.gnu.org with esmtp (Exim 4.60) (envelope-from ) id 1IrnGN-0006Fr-Vo for emacs-devel@gnu.org; Mon, 12 Nov 2007 23:20:36 -0500 Original-Received: from rgm by fencepost.gnu.org with local (Exim 4.60) (envelope-from ) id 1IrnGM-0006IJ-HU; Mon, 12 Nov 2007 23:20:34 -0500 X-Spook: Mossad Jiang Zemin Bellcore Taiwan USDOJ dictionary X-Ran: Pa\#(pI<<-7^D}sr$oslqk"|9+2c=BwTi[7X&ELDK583ZeiM]2Q}/^d@RnM@W[?u3qq<4\ X-Hue: red X-Attribution: GM User-Agent: Gnus (www.gnus.org), GNU Emacs (www.gnu.org/software/emacs/) X-detected-kernel: by monty-python.gnu.org: Linux 2.6, seldom 2.4 (older, 4) X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.devel:83106 Archived-At: Richard Stallman wrote: > + (defun declare-function (fn file &optional arglist) > > Why not &rest? Because I want to specify the arglist as a single quoted list. > Breaking the line after the file name would make the example more > helpful. OK. > This would run a lot faster if it just reads the file into a > temporary buffer and avoids visiting. Yes. I based the first implementation on authors.el, which uses visiting for some reason (maybe it needs to process file local variables to get the right coding system for author names, or something). > checkdoc-scan could be far far more efficient. It should scan all > files for `declare-function' calls, sort them by the file that is > supposed to define them, then load each file just once to verify. OK, here's a version that works like that. This could be used for things other than Emacs, so I no longer think it should go in admin.el. Where could it be installed? I would also like to move process-lines out of admin.el and make it more generally available (in subr.el?). It is used by this code, and also by authors.el. I will also install a Makefile rule such that one can use `make checkdecs' to verify the Emacs lisp/ directory. (defconst checkdec-warning-buffer "*Check Declarations Warnings*" "Name of buffer used to display any checkdec warnings.") (defun checkdec-scan (file) "Scan FILE for `declare-function' calls. Return a list with elements of the form (FNFILE FN ARGLIST), where ARGLIST may be absent. This claims that FNFILE defines FN, with ARGLIST." (let ((m (format "Scanning %s..." file)) alist fnfile fn) (message "%s" m) (with-temp-buffer (insert-file-contents file) (while (re-search-forward "^[ \t]*(declare-function[ \t]+'\\(\\S-+\\)[ \t]+\ \"\\(\\S-+\\)\"" nil t) (setq fn (match-string 1) fnfile (match-string 2)) (or (file-name-absolute-p fnfile) (setq fnfile (expand-file-name fnfile (file-name-directory file)))) (setq alist (cons (list fnfile fn (progn (skip-chars-forward " \t\n'") ;; Use `t' to distinguish no arglist ;; specified from an empty one. (if (looking-at "(") (read (current-buffer)) t))) alist)))) (message "%sdone" m) alist)) (autoload 'byte-compile-arglist-signature "bytecomp") (defun checkdec-verify (fnfile fnlist) "Check that FNFILE contains function definitions matching FNLIST. Each element of FNLIST has the form (FILE FN ARGLIST), where ARGLIST is optional. This means FILE claimed FN was defined in FNFILE with the specified ARGLIST. Returns nil if all claims are found to be true, otherwise a list of errors with elements of the form \(FILE FN TYPE), where TYPE is a string giving details of the error." (let ((m (format "Checking %s..." fnfile)) re fn sig siglist arglist type errlist) (message "%s" m) (if (file-exists-p fnfile) (with-temp-buffer (insert-file-contents fnfile) (setq re (format "^(defun[ \t]+%s\\>" (regexp-opt (mapcar (lambda (e) (cadr e)) fnlist) t))) (while (re-search-forward re nil t) (skip-chars-forward " \t\n") (setq fn (match-string 1) sig (if (looking-at "(") (byte-compile-arglist-signature (read (current-buffer)))) ;; alist of functions and arglist signatures. siglist (cons (cons fn sig) siglist))))) (dolist (e fnlist) (setq arglist (nth 2 e) type (if re ; re non-nil means found a file (if (setq sig (assoc (cadr e) siglist)) ;; Recall we use t to mean no arglist specified, ;; to distinguish from an empty arglist. (unless (eq arglist t) (unless (equal (byte-compile-arglist-signature arglist) (cdr sig)) "arglist mismatch")) "function not found") "file not found")) (when type (setq errlist (cons (list (car e) (cadr e) type) errlist)))) (message "%s%s" m (if errlist "problems found" "OK")) errlist)) (defun checkdec-sort (alist) "Sort a list with elements FILE (FNFILE ...). Returned list has elements FNFILE (FILE ...)." (let (file fnfile rest sort a) (dolist (e alist) (setq file (car e)) (dolist (f (cdr e)) (setq fnfile (car f) rest (cdr f)) (if (setq a (assoc fnfile sort)) (setcdr a (append (cdr a) (list (cons file rest)))) (setq sort (cons (list fnfile (cons file rest)) sort))))) sort)) (defun checkdec-warn (file fn fnfile type) "Warn that FILE made a false claim about FN in FNFILE. TYPE is a string giving the nature of the error. Warning is displayed in `checkdec-warning-buffer'." (display-warning 'checkdec (format "%s said `%s' was defined in %s: %s" (file-name-nondirectory file) fn (file-name-nondirectory fnfile) type) nil checkdec-warning-buffer)) ;;;###autoload (defun checkdec-file (file) "Check veracity of all `declare-function' statements in FILE. See `checkdec-directory' for more information." (interactive "fFile to check: ") (or (file-exists-p file) (error "file `%s' not found" file)) (let ((m (format "Checking %s..." file)) err errlist) (message "%s" m) (dolist (e (checkdec-sort (list (cons file (checkdec-scan file))))) (if (setq err (checkdec-verify (car e) (cdr e))) (setq errlist (cons (cons (car e) err) errlist)))) (if (get-buffer checkdec-warning-buffer) (kill-buffer checkdec-warning-buffer)) (dolist (e (checkdec-sort errlist)) (dolist (f (cdr e)) (checkdec-warn (car e) (cadr f) (car f) (nth 2 f)))) (message "%s%s" m (if errlist "problems found" "OK")) errlist)) ;;;###autoload (defun checkdec-directory (root) "Check veracity of all `declare-function' statements under directory ROOT. Returns non-nil if any false statements are found. For this to work correctly, the statements must adhere to the format described in the documentation of `declare-function'." (interactive "DEroot lisp directory: ") (setq root (expand-file-name root)) (let ((m "Checking `declare-function' statements...") (m2 "Finding files with declarations...") alist err errlist files) (message "%s" m) (message "%s" m2) (setq files (process-lines "find" root "-name" "*.el" "-exec" "grep" "-l" "^[ ]*(declare-function" "{}" ";")) (message "%s%d found" m2 (length files)) (when files (dolist (file files) (setq alist (cons (cons file (checkdec-scan file)) alist))) ;; Sort so that things are ordered by the files supposed to ;; contain the defuns. (dolist (e (checkdec-sort alist)) (if (setq err (checkdec-verify (car e) (cdr e))) (setq errlist (cons (cons (car e) err) errlist)))) (if (get-buffer checkdec-warning-buffer) (kill-buffer checkdec-warning-buffer)) ;; Sort back again so that errors are ordered by the files ;; containing the declare-function statements. (dolist (e (checkdec-sort errlist)) (dolist (f (cdr e)) (checkdec-warn (car e) (cadr f) (car f) (nth 2 f)))) (message "%s%s" m (if errlist "problems found" "OK")) errlist)))