WWWWWW

Current Directory: /usr/share/emacs/24.3/lisp/emacs-lisp
Viewing File: /usr/share/emacs/24.3/lisp/emacs-lisp/check-declare.elc
;ELC
;;; Compiled by mockbuild@buildfarm01-new.corp.cloudlinux.com on Tue Nov 11 12:52:27 2025
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/emacs-lisp/check-declare.el
;;; in Emacs version 24.3.1
;;; 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*" (#$ . 567))
#@316 Return the full path 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\307O\311!\312\235\203\"\313\313\314\"\"\202c\315!\211\203H\316\317\320	#\321	!\204D\321	\322P!\203D	\322P\202c	\202c\313\323\f!\"\321	!\204\\\305\324	\"\203`	\202c	\320P\n\203n\325P\202o*\207" [file tfile ext source-directory basefile string-match "^ext:" nil 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\\'" "ext:"] 6 (#$ . 718)])
#@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\211\211\211\211\211\211 \311\312 \"\210\313\314!!r!q\210\315\216\316!\210\317\320\310\321#\203\320\322\224b\210\310\323\324\217\211\203\274A<\204P\310\211\203\274G\211\325V\203\274
\326W\203\274\211\"A@)\2119\203\274\327\f!\211\203\274\3258\211;\203\274\330\331!\"\211\203\274
\332V\203\230\3328\202\231\321\211\321=\204\245\n<\203\274\3338\2119\203\274\f\n	FB\202,\203,\311\334\211\"A@)\"\210\202,+\311\335 \"\210.\207" [file fileonly arglist fnfile fn len format "Scanning %s..." nil message "%s" generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) insert-file-contents re-search-forward "^[ 	]*\\((declare-function\\)[ 	\n]" t 1 (byte-code "\300p!\207" [read] 2) ((error)) 2 6 symbol-name check-declare-locate expand-file-name 3 4 "Malformed declaration for `%s'" "%sdone" form alist m #1# x] 9 (#$ . 1595)])
#@193 Return a string with the number of errors in ERRLIST, if any.
Normally just counts the number of elements in ERRLIST.
With optional argument FULL, sums the number of elements in each element.
(defalias 'check-declare-errmsg #[(errlist &optional full) "\2037G\n\203&\305\306\211\203%\f@	GS\\\fA\211\204*\307\310	\211\311U\2033\312\2024\313#)\207\314\207" [errlist l full e --dolist-tail-- 0 nil format "%d problem%s found" 1 "" "s" "OK"] 6 (#$ . 2994)])
(autoload 'byte-compile-arglist-signature "bytecomp")
#@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\"\310!\311\235\312\313\"\314\211\211\211\211\211\211\211\211;<=>?@A\315\316A\"\210?\2039\317\314O\320!\203\374\321\322!BrBq\210\323\216\324!\210\306@\203Y\325\202Z\326\327\330\331C\"\332\"\">\333>\314\332#\203\373\334\314w\210\335\336!=\335\337!@\203\261\340\341\314\332\342$\203\255\334\314w\210\343\344!\203\255\345\335\337!!\335\336!\n\312\346	\"?\205\251\345	!B\206\354\347\202\354\312\350\f\"\203\274\351\202\354\312\352\f\"\203\307\353\202\354\312\354\f\"\203\322\355\202\354\312\356\f\"\203\335\332\202\354\343\357!\203\353\360\361p!!\202\354\347<=<B;B;\202e+C\314D\211E\203\220E@D\336D8>\204\362\202r\363D\211FA@);\"\211<\2048\342D8?\205r\364\202r<A\211<\355=\203G\365\202r
\332=\203Q\314\202r<\332=\203\\\314\202r<\347=\203g\366\202r\360
!<\232?\205r\367\211\203\207D@D\211FA@)\fEBEA\211E\204*\315\370A>\204\237?\204\245\371!\202\250\314\372#\210.\f\207" [fnfile maxargs minargs errlist type arglist format "Checking %s..." file-name-extension ("c" "m") string-match "^ext:" nil message "%s" 4 file-regular-p generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) insert-file-contents "^[ 	]*\\(DEFUN\\)[ 	]*([ 	]*\"%s\"" "^[ 	]*(\\(fset[ 	]+'\\|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\\|method\\|class\\)\\|fset\\)\\>" "\\((\\|nil\\)" byte-compile-arglist-signature read "file not found" assoc "function not found" "obsolete alias" "arglist not found" "arglist mismatch" "%s%s" check-declare-errmsg "skipping external file" siglist sig fn re ext cflag m #1# fnlist e --dolist-tail-- x] 13 (#$ . 3526)])
#@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\310A\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 (#$ . 6348)])
#@161 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
`check-declare-warning-buffer'.
(defalias 'check-declare-warn #[(file fn fnfile type) "\305\306\307\310\311!	\311\n!%\312\f$\207" [file fn fnfile type check-declare-warning-buffer display-warning check-declare format "%s said `%s' was defined in %s: %s" file-name-nondirectory nil] 8 (#$ . 6770)])
#@98 Check veracity of all `declare-function' statements in FILES.
Return a list of any errors found.
(defalias 'check-declare-files #[(&rest files) "\306\211\211\306\211\203 
@\211\307\f!B\nB
A\211\204*\310\n!\306\211\203L
@\311@A\"\211\203E@	BB
A\211\204,*\312!\203Y\313!\210\310!\306\211\203\232
@\211A\306\211\203\222
@\314@\211A@)@\3158$\210
A\211\204r*
A\211\204d*+\207" [errlist err alist files file --dolist-tail-- nil check-declare-scan check-declare-sort check-declare-verify get-buffer kill-buffer check-declare-warn 2 e check-declare-warning-buffer f x] 7 (#$ . 7204)])
#@114 Check veracity of all `declare-function' statements in FILE.
See `check-declare-directory' for more information.
(defalias 'check-declare-file #[(file) "\303!\204\304\305\"\210\306\307\"\310\311\312\n\"\210\313!\311\314\n\315	!#\210	*\207" [file errlist m file-exists-p error "File `%s' not found" format "Checking %s..." nil message "%s" check-declare-files "%s%s" check-declare-errmsg] 5 (#$ . 7851) "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) "\306\307!\211!\204\310\311\"\210\312\313\314\211\315\316\f\"\210\315\316\"\210\317
\320\321\322\323\324\325\326&\n\315\327	G#\210	\205J\330\331	\"\315\332\f\333\n\334\"#\210\n,\207" [root files errlist m2 m find-program file-directory-p expand-file-name error "Directory `%s' not found" "Checking `declare-function' statements..." "Finding files with declarations..." nil message "%s" process-lines "-name" "*.el" "-exec" "-l" "^[ 	]*(declare-function" "{}" ";" "%s%d found" apply check-declare-files "%s%s" check-declare-errmsg t grep-program] 11 (#$ . 8290) "DDirectory to check: "])
(provide 'check-declare)
F1l3 Manager
