%PDF- %PDF-
Direktori : /usr/local/share/emacs/27.2/lisp/progmodes/ |
Current File : //usr/local/share/emacs/27.2/lisp/progmodes/flymake-proc.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. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\210\303\304\305\306#\210\307\211\2030 \211@\304N\203) \305N\204) \310\305\304N#\210A\266\202\202 \210\311\304\305\312#\210\313\305\314\315\316DD\317\320\302\321\322&\210\303\323\324\306#\210\307\211\203n \211@\323N\203g \324N\204g \310\324\323N#\210A\266\202\202M \210\311\323\324\312#\210\313\324\314\315\325DD\326\321\327\320\302\330\331& \210\303\332\333\306#\210\307\211\203\256 \211@\332N\203\247 \333N\204\247 \310\333\332N#\210A\266\202\202\215 \210\311\332\333\312#\210\313\333\314\315\334DD\335\320\302\321\336&\210\303\337\340\306#\210\307\211\203\354 \211@\337N\203\345 \340N\204\345 \310\340\337N#\210A\266\202\202\313 \210\311\337\340\312#\210\313\340\314\315\341DD\342\320\302\321\343&\210\313\344\314\315\345DD\346\320\302\321\347\330\350& \210\303\351\352\306#\210\307\211\203;\211@\351N\2034\352N\2044\310\352\351N#\210A\266\202\202\210\311\351\352\312#\210\313\352\314\315\353DD\354\320\302\321\355&\207" [require cl-lib flymake defvaralias flymake-compilation-prevents-syntax-check flymake-proc-compilation-prevents-syntax-check nil (saved-value saved-variable-comment) put make-obsolete-variable "26.1" custom-declare-variable funcall function #[0 "\300\207" [t] 1] "If non-nil, don't start syntax check if compilation is running." :group :type boolean flymake-xml-program flymake-proc-xml-program #[0 "\300\301!\203 \301\207\302\207" [executable-find "xmlstarlet" "xml"] 2] "Program to use for XML validation." file :version "24.4" flymake-master-file-dirs flymake-proc-master-file-dirs #[0 "\300\207" [("." "./src" "./UnitTest")] 1] "Dirs where to look for master files." (repeat (string)) flymake-master-file-count-limit flymake-proc-master-file-count-limit #[0 "\300\207" [32] 1] "Max number of master files to check." integer flymake-proc-ignored-file-name-regexps #[0 "\300\207" [nil] 1] "Files syntax checking is forbidden for.\nOverrides `flymake-proc-allowed-file-name-masks'." (repeat (regexp)) "27.1" flymake-allowed-file-name-masks flymake-proc-allowed-file-name-masks #[0 "\300\207" [(("\\.\\(?:c\\(?:pp\\|xx\\|\\+\\+\\)?\\|CC\\)\\'" flymake-proc-simple-make-init nil flymake-proc-real-file-name-considering-includes) ("\\.xml\\'" flymake-proc-xml-init) ("\\.html?\\'" flymake-proc-xml-init) ("\\.cs\\'" flymake-proc-simple-make-init) ("\\.php[345]?\\'" flymake-proc-php-init) ("\\.h\\'" flymake-proc-master-make-header-init flymake-proc-master-cleanup) ("\\.java\\'" flymake-proc-simple-make-java-init flymake-proc-simple-java-cleanup) ("[0-9]+\\.tex\\'" flymake-proc-master-tex-init flymake-proc-master-cleanup) ("\\.tex\\'" flymake-proc-simple-tex-init) ("\\.idl\\'" flymake-proc-simple-make-init))] 1] "Files syntax checking is allowed for.\nVariable `flymake-proc-ignored-file-name-regexps' overrides this variable.\nThis is an alist with elements of the form:\n REGEXP INIT [CLEANUP [NAME]]\nREGEXP is a regular expression that matches a file name.\nINIT is the init function to use.\nCLEANUP is the cleanup function to use, default `flymake-proc-simple-cleanup'.\nNAME is the file name function to use, default `flymake-proc-get-real-file-name'." (alist :key-type (regexp :tag "File regexp") :value-type (list :tag "Handler functions" (function :tag "Init function") (choice :tag "Cleanup function" (const :tag "flymake-proc-simple-cleanup" nil) function) (choice :tag "Name function" (const :tag "flymake-proc-get-real-file-name" nil) function)))] 10) #@56 Currently active Flymake process for a buffer, if any. (defvar flymake-proc--current-process nil (#$ . 3873)) (make-variable-buffer-local 'flymake-proc--current-process) #@57 If bound, function used to report back to Flymake's UI. (defvar flymake-proc--report-fn nil (#$ . 4049)) #@126 Grab error line patterns from ORIGINAL-LIST in compile.el format. Convert it to Flymake internal format. (fn ORIGINAL-LIST) (defalias 'flymake-proc-reformat-err-line-patterns-from-compile-el #[257 "\300\211\203K \211@\211A\262\211@A@\3018\3028:\203 @\262:\203) @\262\211:\2032 \211@\262\303!\204B FB\262\266A\266\202\202 \210\211\207" [nil 2 3 functionp] 12 (#$ . 4161)]) (byte-code "\300\301\302\303#\210\304\211\203( \211@\301N\203! \302N\204! \305\302\301N#\210A\266\202\202 \210\306\301\302\307#\207" [defvaralias flymake-err-line-patterns flymake-proc-err-line-patterns nil (saved-value saved-variable-comment) put make-obsolete-variable "26.1"] 7) #@214 Patterns for matching error/warning lines. Each pattern has the form (REGEXP FILE-IDX LINE-IDX COL-IDX ERR-TEXT-IDX). Use `flymake-proc-reformat-err-line-patterns-from-compile-el' to add patterns from compile.el (defvar flymake-proc-err-line-patterns (byte-code "\301\302\303!\"\207" [compilation-error-regexp-alist-alist append (("\\(\\([a-zA-Z]:\\)?[^:( \n]+\\)(\\([0-9]+\\)) : \\(\\(error\\|warning\\|fatal error\\) \\(C[0-9]+\\):[ \n]*\\(.+\\)\\)" 1 3 nil 4) ("\\(\\([a-zA-Z]:\\)?[^:( \n]+\\):\\([0-9]+\\):[0-9]+:[0-9]+:[0-9]+: \\(\\(Error\\|Warning\\|Caution\\|Semantic Error\\):[ \n]*\\(.+\\)\\)" 1 3 nil 4) ("midl[ ]*:[ ]*\\(command line error .*\\)" nil nil nil 1) ("\\(\\([a-zA-Z]:\\)?[^:( \n]+\\)(\\([0-9]+\\),[0-9]+): \\(\\(error\\|warning\\|fatal error\\) \\(CS[0-9]+\\):[ \n]*\\(.+\\)\\)" 1 3 nil 4) ("\\(.*\\) at \\([^ \n]+\\) line \\([0-9]+\\)[,.\n]" 2 3 nil 1) ("\\(?:Parse\\|Fatal\\) error: \\(.*\\) in \\(.*\\) on line \\([0-9]+\\)" 2 3 nil 1) (" *\\(\\[javac\\] *\\)?\\(\\([a-zA-Z]:\\)?[^:( \n]+\\):\\([0-9]+\\)\\(?::\\([0-9]+\\)\\)?:[ \n]*\\(.+\\)" 2 4 5 6)) flymake-proc-reformat-err-line-patterns-from-compile-el] 4) (#$ . 4853)) (byte-code "\300\301\302\303#\210\304\211\203( \211@\301N\203! \302N\204! \305\302\301N#\210A\266\202\202 \210\306\301\302\307#\207" [defvaralias flymake-warning-re flymake-proc-diagnostic-type-pred nil (saved-value saved-variable-comment) put make-obsolete-variable "26.1"] 7) #@466 Predicate matching against diagnostic text to detect its type. Takes a single argument, the diagnostic's text and should return a diagnostic symbol naming a type. If the returned value is nil, a type of `:error' is assumed. For some backward compatibility, if a non-nil value is returned that doesn't name a type, `:warning' is assumed. Instead of a function, it can also be a string, a regular expression. A match indicates `:warning' type, otherwise `:error' (defvar flymake-proc-diagnostic-type-pred 'flymake-proc-default-guess (#$ . 6302)) #@63 Guess if TEXT means a warning, a note or an error. (fn TEXT) (defalias 'flymake-proc-default-guess #[257 "\300\301\"\203 \302\207\300\303\"\203 \304\207\305\207" [string-match "^[wW]arning" :warning "^[nN]ote" :note :error] 4 (#$ . 6856)]) #@230 Return the corresponding entry from `flymake-proc-allowed-file-name-masks'. If the FILE-NAME matches a regexp from `flymake-proc-ignored-file-name-regexps', `flymake-proc-allowed-file-name-masks' is not searched. (fn FILE-NAME) (defalias 'flymake-proc--get-file-name-mode-and-masks #[257 "\211;\204 \302\303!\210\304\305\306$\203 \307\310\311\312#\207 \313\211\2047 \2037 \314@@\"\2030 @A\262A\262\202 \307\310\311\315@%\210\207" [flymake-proc-ignored-file-name-regexps flymake-proc-allowed-file-name-masks error "Invalid file-name" cl-find :test #[514 "\300\"\207" [string-match] 5 "\n\n(fn FN REX)"] flymake--log-1 3 flymake-proc "file %s ignored" nil string-match "file %s, init=%s"] 9 (#$ . 7108)]) #@63 Return init function to be used for the file. (fn FILE-NAME) (defalias 'flymake-proc--get-init-function #[257 "\300!@\211\207" [flymake-proc--get-file-name-mode-and-masks] 3 (#$ . 7835)]) #@66 Return cleanup function to be used for the file. (fn FILE-NAME) (defalias 'flymake-proc--get-cleanup-function #[257 "\300!A@\206 \301\207" [flymake-proc--get-file-name-mode-and-masks flymake-proc-simple-cleanup] 3 (#$ . 8031)]) #@18 (fn FILE-NAME) (defalias 'flymake-proc--get-real-file-name-function #[257 "\300\301!8\206 \302\207" [2 flymake-proc--get-file-name-mode-and-masks flymake-proc-get-real-file-name] 4 (#$ . 8268)]) (defvar flymake-proc--find-buildfile-cache (make-hash-table :test 'equal)) #@113 Look up DIR-NAME in cache and return its associated value. If DIR-NAME is not found, return nil. (fn DIR-NAME) (defalias 'flymake-proc--get-buildfile-from-cache #[257 "\301\"\207" [flymake-proc--find-buildfile-cache gethash] 4 (#$ . 8549)]) #@84 Associate DIR-NAME with BUILDFILE in the buildfile cache. (fn DIR-NAME BUILDFILE) (defalias 'flymake-proc--add-buildfile-to-cache #[514 "\301#\207" [flymake-proc--find-buildfile-cache puthash] 6 (#$ . 8799)]) #@28 Clear the buildfile cache. (defalias 'flymake-proc--clear-buildfile-cache #[0 "\301!\207" [flymake-proc--find-buildfile-cache clrhash] 2 (#$ . 9018)]) #@182 Find buildfile starting from current directory. Buildfile includes Makefile, build.xml etc. Return its file name if found, or nil if not found. (fn BUILDFILE-NAME SOURCE-DIR-NAME) (defalias 'flymake-proc--find-buildfile #[514 "\300!\206( \301\"\211\203 \302\303\304\305$\210\306\"\210\211\202&