Current File : //usr/local/share/emacs/27.2/lisp/emacs-lisp/check-declare.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#@62 Name of buffer used to display any `check-declare' warnings.
(defconst check-declare-warning-buffer "*Check Declarations Warnings*" (#$ . 408))
#@320 Return the relative name of FILE.
Expands files with a ".c" or ".m" extension relative to the Emacs
"src/" directory. Otherwise, `locate-library' searches for FILE.
If that fails, expands FILE relative to BASEFILE's directory part.
The returned file might not exist. If FILE has an "ext:" prefix, so does
the result.
(defalias 'check-declare-locate #[(file basefile) "\305\306\"\307\211\203 \310\311\"\312!\313\235\203\" \314\314\315 \"\"\202c \316!\211\203H \317\320\321 #\322 !\204D \322 \323P!\203D \323P\202c \202c \314\324\f!\"\322 !\204\\ \305\325 \"\203` \202c \321P\326!\n\203r \327P\202s *\207" [file tfile ext source-directory basefile string-match "^ext:" nil substring 4 file-name-extension ("c" "m") expand-file-name "src" locate-library replace-regexp-in-string "\\.elc\\'" ".el" file-exists-p ".gz" file-name-directory "\\.el\\'" file-relative-name "ext:"] 6 (#$ . 559)])
#@382 Scan FILE for `declare-function' calls.
Return a list with elements of the form (FNFILE FN ARGLIST FILEONLY),
where only the first two elements need be present. This claims that FNFILE
defines FN, with ARGLIST. FILEONLY non-nil means only check that FNFILE
exists, not that it defines FN. This is for function definitions that we
don't know how to recognize (e.g. some macros).
(defalias 'check-declare-scan #[(file) "\306\307\310!r q\210\311\216\312\n!\210\313\314\306\315#\203\342 \316\224\211b\210\3171) \320p!0\202+ \210\306\306\211\211\211\211\211 \211 A<\204J \306\211 \203\276 G\211 \321V\203\276 \322W\203\276 \321 8\211 \203\276 A@\211 9\203\276 \323 !\211 \203\276 ;\203\276 \324 \n\"\211 \203\276 \325V\203\232 \325 8\202\233 \315\211\315=\204\247
<\203\276 \326 8\2119\203\276
\fFB\202\335 \203\335 \327\n \206\313 \330 ;\203\326 \202\327 \331\332\333 !%\210.\202 +)\207" [alist #1=#:temp-buffer file pos fileonly arglist nil generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] insert-file-contents re-search-forward "^[ ]*\\((declare-function\\)[ \n]" t 1 (error) read 2 6 symbol-name check-declare-locate 3 4 check-declare-warn "unknown function" "unknown file" "Malformed declaration" line-number-at-pos fnfile formfile fn len form] 8 (#$ . 1477)])
(byte-code "\300\301\302\"\210\303\304\305\306\307\310%\210\311\312\305\313\314\315\316\317&\207" [autoload byte-compile-arglist-signature "bytecomp" custom-declare-group check-declare nil "Check declare-function statements." :group tools custom-declare-variable check-declare-ext-errors "When non-nil, warn about functions not found in :ext." :version "25.1" :type boolean] 8)
#@520 Check that FNFILE contains function definitions matching FNLIST.
Each element of FNLIST has the form (FILE FN ARGLIST FILEONLY), where
only the first two elements need be present. This means FILE claimed FN
was defined in FNFILE with the specified ARGLIST. FILEONLY non-nil means
to only check that FNFILE exists, not that it actually defines FN.
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.
(defalias 'check-declare-verify #[(fnfile fnlist) "\306!\307\235\310\311\"\312\211\211\211\211\211\211\211\211 7 8 9 : ; <;\203- \313\314\"\315!\203\360 \316\317! =r=q\210\320\216\321!\210\322<\203M \323\202N \324\325\326\327>\"\330\"\":\331:\312\330#\203\357 \332\312w\210\333\334!9\333\335!<\203\245 \336\337\312\330\340$\203\241 \332\312w\210\341\342!\203\241 \343\333\335!!\333\334!\n\310\344 \"?\205\235 \343 !B\206\340 \345\202\340 \310\346\f\"\203\260 \347\202\340 \310\350\f\"\203\273 \351\202\340 \310\352\f\"\203\306 \353\202\340 \310\354\f\"\203\321 \330\202\340 \341\355!\203\337 \356\357p!!\202\340 \345898B7B7\202Y +>\312 ?\211 @\203\200@@?\334?8:\204A\204;?\205f\360\202f\361?A@7\"\2118\2043\340?8?\205f\362\202f8A\2118\353=\203B\363\202f
\330=\203L\312\202f8\364\267\202[\312\202f\365\202f\356
!8\232?\205f\366\211\203w?@?A@\fE B@A\211@\204\373 * . \207" [fnfile maxargs minargs errlist type arglist file-name-extension ("c" "m") string-match "^ext:" nil substring 4 file-regular-p generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1=#:temp-buffer buffer-name kill-buffer] 2] insert-file-contents format "^[ ]*\\(DEFUN\\)[ ]*([ ]*\"%s\"" "^[ ]*(\\(fset[ ]+'\\|cl-def\\(?:generic\\|method\\|un\\)\\|def\\(?:un\\|subst\\|foo\\|method\\|class\\|ine-\\(?:derived\\|generic\\|\\(?:global\\(?:ized\\)?-\\)?minor\\)-mode\\|\\(?:ine-obsolete-function-\\)?alias[ ]+'\\|ine-overloadable-function\\)\\)[ ]*%s\\([ ;]+\\|$\\)" regexp-opt mapcar cadr t re-search-forward " \n" match-string 2 1 search-forward "," 3 looking-at "\\([0-9]+\\)[ ]*,[ ]*\\([0-9]+\\|MANY\\|UNEVALLED\\)" string-to-number "[^0-9]" err "\\`define-\\(derived\\|generic\\)-mode\\'" (0 . 0) "\\`define\\(-global\\(ized\\)?\\)?-minor-mode\\'" (0 . 1) "\\`define-obsolete-function-alias\\>" obsolete "\\`\\(def\\(alias\\|class\\)\\|fset\\|\\(?:cl-\\)?defmethod\\)\\>" "\\((\\|nil\\)" byte-compile-arglist-signature read "file not found" assoc "function not found" "obsolete alias" #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (t 339 err 343)) "arglist not found" "arglist mismatch" siglist sig fn re ext cflag #1# fnlist e --dolist-tail-- check-declare-ext-errors] 12 (#$ . 3227)])
#@92 Sort a list with elements FILE (FNFILE ...).
Returned list has elements FNFILE (FILE ...).
(defalias 'check-declare-sort #[(alist) "\306\211\211\211\211
\306 \211 \n\203f \n@\211 @ A\306 \211 \n\203\\ \n@\211 @ A\307 \"\211\203K \310A\f\nBC\"\241\210\202S \f\nBD B\nA\211\n\204( *\nA\211\n\204 * -\207" [a sort rest fnfile file alist nil assoc append e --dolist-tail-- f] 6 (#$ . 6038)])
#@230 Warn that FILE made a false claim about FN in FNFILE.
TYPE is a string giving the nature of the error.
Optional LINE is the claim's line number; otherwise, search for the claim.
Display warning in `check-declare-warning-buffer'.
(defalias 'check-declare-warn #[(file fn fnfile type &optional line) "\306\307\n\204( r\310 !q\210eb\210\n\204' \311\312\313\f\"\314\315#\203' \316\224b\210\317 )\320\321\322\323\f\324
!$\314$*\207" [warning-fill-prefix warning-prefix-function line file fn fnfile #[(level entry) "\303\304\305! \206\n \306#c\210\n\207" [file line entry format "%s:%d:" file-relative-name 0] 4] " " find-file-noselect re-search-forward format "(declare-function[ \n]+%s" nil t 0 line-number-at-pos display-warning check-declare format-message "said `%s' was defined in %s: %s" file-relative-name type check-declare-warning-buffer] 7 (#$ . 6460)])
#@98 Check veracity of all `declare-function' statements in FILES.
Return a list of any errors found.
(defalias 'check-declare-files #[(&rest files) "\306!\203\n \307!\210\310!\311\211\211 r\fq\210\312\313!\204! \313 \210\314\315 \316c\210)\317 \210)\311 \211 \203P @\211\320!B BA\211\2049 *\321 !\311 \211 \203\200 @\322@A\"\211\203w @\nB BA\211\204] * \237\321 !\311 \211 \203\311 @\211A\311 \211 \203\277 @ \323@ A@ @\324 8$\210A\211\204\240 *A\211\204\220 *r\fq\210\325\326 \210) ,\207" [check-declare-warning-buffer errlist err alist buf mode-line-process get-buffer kill-buffer get-buffer-create nil derived-mode-p compilation-mode (:propertize ":run" face compilation-mode-line-run) t "\f\n" compilation-forget-errors check-declare-scan check-declare-sort check-declare-verify check-declare-warn 2 (:propertize ":exit" face compilation-mode-line-run) force-mode-line-update inhibit-read-only files file --dolist-tail-- e f] 7 (#$ . 7337)])
#@114 Check veracity of all `declare-function' statements in FILE.
See `check-declare-directory' for more information.
(defalias 'check-declare-file #[(file) "\301!\204 \302\303\"\210\304!\207" [file file-exists-p error "File `%s' not found" check-declare-files] 3 (#$ . 8353) "fFile to check: "])
#@126 Check veracity of all `declare-function' statements under directory ROOT.
Returns non-nil if any false statements are found.
(defalias 'check-declare-directory #[(root) "\304\305!!\306!\204 \307\310\"\210\311 \312\313\314\n\315\316\317\320&\n\211\205' \321\322 \")\207" [root find-program grep-program files directory-file-name file-relative-name file-directory-p error "Directory `%s' not found" process-lines "-name" "*.el" "-exec" "-l" "^[ ]*(declare-function" "{}" "+" apply check-declare-files] 12 (#$ . 8656) "DDirectory to check: "])
(provide 'check-declare)
Mini Shell