Mercurial > emacs
annotate lisp/progmodes/flymake.el @ 59013:811c3c23099a
(zone): Init `line-spacing' from orig buffer.
(zone-replace-char): Take `count' and `del-count'
instead of `direction'. Update callers. When `del-count' is
non-nil, delete that many characters, otherwise `count' characters
backwards. Insert the newly-replaced string `count' times.
(zone-fret): Handle chars w/ width greater than one.
(zone-fall-through-ws): No longer take window width `ww'.
Update callers. Add handling for `char-width' greater than one.
(zone-pgm-drip): Update var holding window-end position every cycle.
author | Thien-Thi Nguyen <ttn@gnuvola.org> |
---|---|
date | Fri, 17 Dec 2004 11:47:16 +0000 |
parents | 36249becd283 |
children | 29db3b79c3fa |
rev | line source |
---|---|
55822 | 1 ;;; flymake.el -- a universal on-the-fly syntax checker |
2 | |
3 ;; Copyright (C) 2003 Free Software Foundation | |
4 | |
5 ;; Author: Pavel Kobiakov <pk_at_work@yahoo.com> | |
6 ;; Maintainer: Pavel Kobiakov <pk_at_work@yahoo.com> | |
7 ;; Version: 0.3 | |
8 ;; Keywords: c languages tools | |
9 | |
10 ;; This file is part of GNU Emacs. | |
11 | |
12 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
13 ;; it under the terms of the GNU General Public License as published by | |
14 ;; the Free Software Foundation; either version 2, or (at your option) | |
15 ;; any later version. | |
16 | |
17 ;; GNU Emacs is distributed in the hope that it will be useful, | |
18 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
20 ;; GNU General Public License for more details. | |
21 | |
22 ;; You should have received a copy of the GNU General Public License | |
23 ;; along with GNU Emacs; see the file COPYING. If not, write to the | |
24 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, | |
25 ;; Boston, MA 02111-1307, USA. | |
26 | |
27 ;;; Commentary: | |
28 ;; | |
29 ;; Flymake is a minor Emacs mode performing on-the-fly syntax | |
30 ;; checks using the external syntax check tool (for C/C++ this | |
31 ;; is usually the compiler) | |
32 | |
33 ;;; Code: | |
34 | |
58561 | 35 ;;;; [[ Xemacs overlay compatibility |
36 (if (featurep 'xemacs) (progn | |
55822 | 37 (autoload 'make-overlay "overlay" "Overlay compatibility kit." t) |
38 (autoload 'overlayp "overlay" "Overlay compatibility kit." t) | |
39 (autoload 'overlays-in "overlay" "Overlay compatibility kit." t) | |
40 (autoload 'delete-overlay "overlay" "Overlay compatibility kit." t) | |
41 (autoload 'overlay-put "overlay" "Overlay compatibility kit." t) | |
42 (autoload 'overlay-get "overlay" "Overlay compatibility kit." t) | |
58561 | 43 )) |
55822 | 44 ;;;; ]] |
45 | |
46 ;;;; [[ cross-emacs compatibility routines | |
58561 | 47 (defsubst flymake-makehash (&optional test) |
48 (if (fboundp 'make-hash-table) | |
49 (if test (make-hash-table :test test) (make-hash-table)) | |
50 (makehash test))) | |
55822 | 51 |
58515 | 52 (defun flymake-float-time () |
58561 | 53 (if (featurep 'xemacs) |
54 (let ((tm (current-time))) | |
55 (multiple-value-bind (s0 s1 s2) (current-time) | |
56 (+ (* (float (ash 1 16)) s0) (float s1) (* 0.0000001 s2)))) | |
57 (float-time))) | |
58515 | 58 |
58561 | 59 (defsubst flymake-replace-regexp-in-string (regexp rep str) |
60 (if (featurep 'xemacs) | |
61 (replace-in-string str regexp rep) | |
62 (replace-regexp-in-string regexp rep str))) | |
55822 | 63 |
58561 | 64 (defun flymake-split-string (str pattern) |
58515 | 65 "Split, then remove first and/or last in case it's empty." |
66 (let* ((splitted (split-string str pattern))) | |
67 (if (and (> (length splitted) 0) (= 0 (length (elt splitted 0)))) | |
68 (setq splitted (cdr splitted))) | |
69 (if (and (> (length splitted) 0) (= 0 (length (elt splitted (1- (length splitted)))))) | |
70 (setq splitted (reverse (cdr (reverse splitted))))) | |
71 splitted)) | |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
72 |
58561 | 73 (defsubst flymake-get-temp-dir () |
74 (if (featurep 'xemacs) | |
75 (temp-directory) | |
76 temporary-file-directory)) | |
55822 | 77 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
78 (defun flymake-line-beginning-position () |
58515 | 79 (save-excursion |
80 (beginning-of-line) | |
81 (point))) | |
55822 | 82 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
83 (defun flymake-line-end-position () |
58515 | 84 (save-excursion |
85 (end-of-line) | |
86 (point))) | |
55822 | 87 |
58515 | 88 (defun flymake-popup-menu (pos menu-data) |
58561 | 89 (if (featurep 'xemacs) |
90 (let* ((x-pos (nth 0 (nth 0 pos))) | |
91 (y-pos (nth 1 (nth 0 pos))) | |
92 (fake-event-props '(button 1 x 1 y 1))) | |
93 (setq fake-event-props (plist-put fake-event-props 'x x-pos)) | |
94 (setq fake-event-props (plist-put fake-event-props 'y y-pos)) | |
95 (popup-menu (flymake-make-xemacs-menu menu-data) (make-event 'button-press fake-event-props))) | |
96 (x-popup-menu pos (flymake-make-emacs-menu menu-data)))) | |
55822 | 97 |
58515 | 98 (defun flymake-make-emacs-menu (menu-data) |
99 (let* ((menu-title (nth 0 menu-data)) | |
100 (menu-items (nth 1 menu-data)) | |
101 (menu-commands nil)) | |
102 (setq menu-commands (mapcar (lambda (foo) | |
103 (cons (nth 0 foo) (nth 1 foo))) | |
104 menu-items)) | |
105 (list menu-title (cons "" menu-commands)))) | |
55822 | 106 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
107 (defun flymake-nop ()) |
55822 | 108 |
58561 | 109 (if (featurep 'xemacs) (progn |
110 | |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
111 (defun flymake-make-xemacs-menu (menu-data) |
58515 | 112 (let* ((menu-title (nth 0 menu-data)) |
113 (menu-items (nth 1 menu-data)) | |
114 (menu-commands nil)) | |
115 (setq menu-commands (mapcar (lambda (foo) | |
116 (vector (nth 0 foo) (or (nth 1 foo) '(flymake-nop)) t)) | |
117 menu-items)) | |
118 (cons menu-title menu-commands))) | |
55822 | 119 |
58515 | 120 (defun flymake-xemacs-window-edges (&optional window) |
121 (let ((edges (window-pixel-edges window)) | |
122 tmp) | |
123 (setq tmp edges) | |
124 (setcar tmp (/ (car tmp) (face-width 'default))) | |
125 (setq tmp (cdr tmp)) | |
126 (setcar tmp (/ (car tmp) (face-height 'default))) | |
127 (setq tmp (cdr tmp)) | |
128 (setcar tmp (/ (car tmp) (face-width 'default))) | |
129 (setq tmp (cdr tmp)) | |
130 (setcar tmp (/ (car tmp) (face-height 'default))) | |
131 edges)) | |
55822 | 132 |
58561 | 133 )) ;; xemacs |
134 | |
58515 | 135 (defun flymake-current-row () |
136 "Return current row number in current frame." | |
58561 | 137 (if (featurep 'xemacs) |
138 (count-lines (window-start) (point)) | |
139 (+ (car (cdr (window-edges))) (count-lines (window-start) (point))))) | |
55822 | 140 |
58515 | 141 (defun flymake-selected-frame () |
58561 | 142 (if (featurep 'xemacs) |
143 (selected-window) | |
144 (selected-frame))) | |
55822 | 145 |
146 ;;;; ]] | |
147 | |
148 (defcustom flymake-log-level -1 | |
58515 | 149 "Logging level, only messages with level > flymake-log-level will not be logged |
55822 | 150 -1 = NONE, 0 = ERROR, 1 = WARNING, 2 = INFO, 3 = DEBUG" |
58515 | 151 :group 'flymake |
152 :type 'integer) | |
55822 | 153 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
154 (defun flymake-log (level text &rest args) |
58515 | 155 "Log a message with optional arguments." |
156 (if (<= level flymake-log-level) | |
157 (let* ((msg (apply 'format text args))) | |
158 (message msg) | |
159 ;;(with-temp-buffer | |
160 ;; (insert msg) | |
161 ;; (insert "\n") | |
162 ;; (flymake-save-buffer-in-file (current-buffer) "d:/flymake.log" t) ; make log file name customizable | |
163 ;;) | |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
164 ))) |
55822 | 165 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
166 (defun flymake-ins-after (list pos val) |
58515 | 167 "Insert VAL into LIST after position POS." |
168 (let ((tmp (copy-sequence list))) ; (???) | |
169 (setcdr (nthcdr pos tmp) (cons val (nthcdr (1+ pos) tmp))) | |
170 tmp)) | |
55822 | 171 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
172 (defun flymake-set-at (list pos val) |
58515 | 173 "Set VAL at position POS in LIST" |
174 (let ((tmp (copy-sequence list))) ; (???) | |
175 (setcar (nthcdr pos tmp) val) | |
176 tmp)) | |
55822 | 177 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
178 (defvar flymake-pid-to-names (flymake-makehash) |
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
179 "pid -> source buffer name, output file name mapping.") |
55822 | 180 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
181 (defun flymake-reg-names (pid source-buffer-name) |
58515 | 182 "Save into in PID map." |
183 (unless (stringp source-buffer-name) | |
184 (error "Invalid buffer name")) | |
185 (puthash pid (list source-buffer-name) flymake-pid-to-names)) | |
55822 | 186 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
187 (defun flymake-get-source-buffer-name (pid) |
58515 | 188 "Return buffer name stored in PID map." |
189 (nth 0 (gethash pid flymake-pid-to-names))) | |
55822 | 190 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
191 (defun flymake-unreg-names (pid) |
58515 | 192 "Delete PID->buffer name mapping." |
193 (remhash pid flymake-pid-to-names)) | |
55822 | 194 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
195 (defun flymake-get-buffer-var (buffer var-name) |
58515 | 196 "Switch to BUFFER if necessary and return local variable VAR-NAME." |
197 (unless (bufferp buffer) | |
198 (error "Invalid buffer")) | |
55822 | 199 |
58515 | 200 (if (eq buffer (current-buffer)) |
201 (symbol-value var-name) | |
202 (save-excursion | |
203 (set-buffer buffer) | |
204 (symbol-value var-name)))) | |
55822 | 205 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
206 (defun flymake-set-buffer-var (buffer var-name var-value) |
58515 | 207 "Switch to BUFFER if necessary and set local variable VAR-NAME to VAR-VALUE." |
208 (unless (bufferp buffer) | |
209 (error "Invalid buffer")) | |
55822 | 210 |
58515 | 211 (if (eq buffer (current-buffer)) |
212 (set var-name var-value) | |
213 (save-excursion | |
214 (set-buffer buffer) | |
215 (set var-name var-value)))) | |
55822 | 216 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
217 (defvar flymake-buffer-data (flymake-makehash) |
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
218 "Data specific to syntax check tool, in name-value pairs.") |
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
219 |
55822 | 220 (make-variable-buffer-local 'flymake-buffer-data) |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
221 |
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
222 (defun flymake-get-buffer-data (buffer) |
58515 | 223 (flymake-get-buffer-var buffer 'flymake-buffer-data)) |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
224 |
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
225 (defun flymake-set-buffer-data (buffer data) |
58515 | 226 (flymake-set-buffer-var buffer 'flymake-buffer-data data)) |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
227 |
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
228 (defun flymake-get-buffer-value (buffer name) |
58515 | 229 (gethash name (flymake-get-buffer-data buffer))) |
55822 | 230 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
231 (defun flymake-set-buffer-value (buffer name value) |
58515 | 232 (puthash name value (flymake-get-buffer-data buffer))) |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
233 |
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
234 (defvar flymake-output-residual nil "") |
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
235 |
55822 | 236 (make-variable-buffer-local 'flymake-output-residual) |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
237 |
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
238 (defun flymake-get-buffer-output-residual (buffer) |
58515 | 239 (flymake-get-buffer-var buffer 'flymake-output-residual)) |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
240 |
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
241 (defun flymake-set-buffer-output-residual (buffer residual) |
58515 | 242 (flymake-set-buffer-var buffer 'flymake-output-residual residual)) |
55822 | 243 |
58515 | 244 (defcustom flymake-allowed-file-name-masks |
245 '((".+\\.c$" flymake-simple-make-init flymake-simple-cleanup flymake-get-real-file-name) | |
246 (".+\\.cpp$" flymake-simple-make-init flymake-simple-cleanup flymake-get-real-file-name) | |
247 (".+\\.xml$" flymake-xml-init flymake-simple-cleanup flymake-get-real-file-name) | |
248 (".+\\.html?$" flymake-xml-init flymake-simple-cleanup flymake-get-real-file-name) | |
249 (".+\\.cs$" flymake-simple-make-init flymake-simple-cleanup flymake-get-real-file-name) | |
250 (".+\\.pl$" flymake-perl-init flymake-simple-cleanup flymake-get-real-file-name) | |
251 (".+\\.h$" flymake-master-make-header-init flymake-master-cleanup flymake-get-real-file-name) | |
252 (".+\\.java$" flymake-simple-make-java-init flymake-simple-java-cleanup flymake-get-real-file-name) | |
253 (".+[0-9]+\\.tex$" flymake-master-tex-init flymake-master-cleanup flymake-get-real-file-name) | |
254 (".+\\.tex$" flymake-simple-tex-init flymake-simple-cleanup flymake-get-real-file-name) | |
255 (".+\\.idl$" flymake-simple-make-init flymake-simple-cleanup flymake-get-real-file-name) | |
256 ; (".+\\.cpp$" 1) | |
257 ; (".+\\.java$" 3) | |
258 ; (".+\\.h$" 2 (".+\\.cpp$" ".+\\.c$") | |
259 ; ("[ \t]*#[ \t]*include[ \t]*\"\\([\w0-9/\\_\.]*[/\\]*\\)\\(%s\\)\"" 1 2)) | |
260 ; (".+\\.idl$" 1) | |
261 ; (".+\\.odl$" 1) | |
262 ; (".+[0-9]+\\.tex$" 2 (".+\\.tex$") | |
263 ; ("[ \t]*\\input[ \t]*{\\(.*\\)\\(%s\\)}" 1 2 )) | |
264 ; (".+\\.tex$" 1) | |
265 ) | |
266 "*Files syntax checking is allowed for." | |
267 :group 'flymake | |
268 :type '(repeat (string symbol symbol symbol))) | |
55822 | 269 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
270 (defun flymake-get-file-name-mode-and-masks (file-name) |
58515 | 271 "Return the corresponding entry from 'flymake-allowed-file-name-masks'." |
272 (unless (stringp file-name) | |
273 (error "Invalid file-name")) | |
274 (let ((count (length flymake-allowed-file-name-masks)) | |
275 (idx 0) | |
276 (mode-and-masks nil)) | |
277 (while (and (not mode-and-masks) (< idx count)) | |
278 (if (string-match (nth 0 (nth idx flymake-allowed-file-name-masks)) file-name) | |
279 (setq mode-and-masks (cdr (nth idx flymake-allowed-file-name-masks)))) | |
280 (setq idx (1+ idx))) | |
281 (flymake-log 3 "file %s, init=%s" file-name (car mode-and-masks)) | |
282 mode-and-masks)) | |
55822 | 283 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
284 (defun flymake-can-syntax-check-file (file-name) |
58515 | 285 "Determine whether we can syntax check FILE-NAME. |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
286 Return nil if we cannot, non-nil if we can." |
58515 | 287 (if (flymake-get-init-function file-name) t nil)) |
55822 | 288 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
289 (defun flymake-get-init-function (file-name) |
58515 | 290 "Return init function to be used for the file." |
291 (let* ((init-f (nth 0 (flymake-get-file-name-mode-and-masks file-name)))) | |
292 ;(flymake-log 0 "calling %s" init-f) | |
293 ;(funcall init-f (current-buffer)) | |
294 init-f)) | |
55822 | 295 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
296 (defun flymake-get-cleanup-function (file-name) |
58515 | 297 "Return cleanup function to be used for the file." |
298 (nth 1 (flymake-get-file-name-mode-and-masks file-name))) | |
55822 | 299 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
300 (defun flymake-get-real-file-name-function (file-name) |
58515 | 301 (or (nth 2 (flymake-get-file-name-mode-and-masks file-name)) 'flymake-get-real-file-name)) |
55822 | 302 |
303 (defcustom flymake-buildfile-dirs '("." ".." "../.." "../../.." "../../../.." "../../../../.." "../../../../../.." "../../../../../../.." "../../../../../../../.." "../../../../../../../../.." "../../../../../../../../../.." "../../../../../../../../../../..") | |
58515 | 304 "Dirs to look for buildfile." |
305 :group 'flymake | |
306 :type '(repeat (string))) | |
55822 | 307 |
308 (defvar flymake-find-buildfile-cache (flymake-makehash 'equal)) | |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
309 |
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
310 (defun flymake-get-buildfile-from-cache (dir-name) |
58515 | 311 (gethash dir-name flymake-find-buildfile-cache)) |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
312 |
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
313 (defun flymake-add-buildfile-to-cache (dir-name buildfile) |
58515 | 314 (puthash dir-name buildfile flymake-find-buildfile-cache)) |
55822 | 315 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
316 (defun flymake-clear-buildfile-cache () |
58515 | 317 (clrhash flymake-find-buildfile-cache)) |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
318 |
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
319 (defun flymake-find-buildfile (buildfile-name source-dir-name dirs) |
58515 | 320 "Find buildfile starting from current directory. |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
321 Buildfile includes Makefile, build.xml etc. |
58515 | 322 Return its file name if found, or nil if not found." |
323 (if (flymake-get-buildfile-from-cache source-dir-name) | |
324 (progn | |
325 (flymake-get-buildfile-from-cache source-dir-name)) | |
326 (let* ((buildfile-dir nil) | |
327 (buildfile nil) | |
328 (dir-count (length dirs)) | |
329 (dir-idx 0) | |
330 (found nil)) | |
331 (while (and (not found) (< dir-idx dir-count)) | |
332 (setq buildfile-dir (concat source-dir-name (nth dir-idx dirs))) | |
333 (setq buildfile (concat buildfile-dir "/" buildfile-name)) | |
334 (when (file-exists-p buildfile) | |
335 (setq found t)) | |
336 (setq dir-idx (1+ dir-idx))) | |
337 (if found | |
338 (progn | |
339 (flymake-log 3 "found buildfile at %s/%s" buildfile-dir buildfile-name) | |
340 (flymake-add-buildfile-to-cache source-dir-name buildfile-dir) | |
341 buildfile-dir) | |
55822 | 342 (progn |
58515 | 343 (flymake-log 3 "buildfile for %s not found" source-dir-name) |
344 nil))))) | |
55822 | 345 |
58515 | 346 (defun flymake-fix-file-name (name) |
347 "Replace all occurences of '\' with '/'." | |
348 (when name | |
349 (let* ((new-name (flymake-replace-regexp-in-string "[\\]" "/" (expand-file-name name))) | |
350 (last-char (elt new-name (1- (length new-name))))) | |
351 (setq new-name (flymake-replace-regexp-in-string "\\./" "" new-name)) | |
352 (if (equal "/" (char-to-string last-char)) | |
353 (setq new-name (substring new-name 0 (1- (length new-name))))) | |
354 new-name))) | |
55822 | 355 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
356 (defun flymake-same-files (file-name-one file-name-two) |
58515 | 357 "Check if FILE-NAME-ONE and FILE-NAME-TWO point to same file. |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
358 Return t if so, nil if not." |
58515 | 359 (equal (flymake-fix-file-name file-name-one) |
360 (flymake-fix-file-name file-name-two))) | |
55822 | 361 |
58515 | 362 (defun flymake-ensure-ends-with-slash (filename) |
363 ;; Should this really be file-name-as-directory? | |
364 (if (not (= (elt filename (1- (length filename))) (string-to-char "/"))) | |
365 (concat filename "/") | |
366 filename)) | |
55822 | 367 |
58515 | 368 (defun flymake-get-common-file-prefix (string-one string-two) |
369 "Return common prefix for two file names STRING-ONE and STRING-TWO." | |
370 (when (and string-one string-two) | |
371 (let* ((slash-pos-one -1) | |
372 (slash-pos-two -1) | |
373 (done nil) | |
374 (prefix nil)) | |
375 (setq string-one (flymake-ensure-ends-with-slash string-one)) | |
376 (setq string-two (flymake-ensure-ends-with-slash string-two)) | |
377 (while (not done) | |
378 (setq slash-pos-one (string-match "/" string-one (1+ slash-pos-one))) | |
379 (setq slash-pos-two (string-match "/" string-two (1+ slash-pos-two))) | |
380 (if (and slash-pos-one slash-pos-two | |
381 (= slash-pos-one slash-pos-two) | |
382 (string= (substring string-one 0 slash-pos-one) (substring string-two 0 slash-pos-two))) | |
383 (progn | |
384 (setq prefix (substring string-one 0 (1+ slash-pos-one)))) | |
385 (setq done t))) | |
386 prefix))) | |
55822 | 387 |
58515 | 388 (defun flymake-build-relative-filename (from-dir to-dir) |
389 "Return rel: FROM-DIR/rel == TO-DIR." | |
390 (if (not (equal (elt from-dir 0) (elt to-dir 0))) | |
391 (error "First chars in file names %s, %s must be equal (same drive)" | |
392 from-dir to-dir) | |
393 (let* ((from (flymake-ensure-ends-with-slash (flymake-fix-file-name from-dir))) | |
394 (to (flymake-ensure-ends-with-slash (flymake-fix-file-name to-dir))) | |
395 (prefix (flymake-get-common-file-prefix from to)) | |
396 (from-suffix (substring from (length prefix))) | |
397 (up-count (length (flymake-split-string from-suffix "[/]"))) | |
398 (to-suffix (substring to (length prefix))) | |
399 (idx 0) | |
400 (rel nil)) | |
401 (if (and (> (length to-suffix) 0) (equal "/" (char-to-string (elt to-suffix 0)))) | |
402 (setq to-suffix (substring to-suffix 1))) | |
55822 | 403 |
58515 | 404 (while (< idx up-count) |
405 (if (> (length rel) 0) | |
406 (setq rel (concat rel "/"))) | |
407 (setq rel (concat rel "..")) | |
408 (setq idx (1+ idx))) | |
409 (if (> (length rel) 0) | |
410 (setq rel (concat rel "/"))) | |
411 (if (> (length to-suffix) 0) | |
412 (setq rel (concat rel to-suffix))) | |
413 (or rel "./")))) | |
55822 | 414 |
415 (defcustom flymake-master-file-dirs '("." "./src" "./UnitTest") | |
58515 | 416 "Dirs where to llok for master files." |
417 :group 'flymake | |
418 :type '(repeat (string))) | |
55822 | 419 |
420 (defcustom flymake-master-file-count-limit 32 | |
58515 | 421 "Max number of master files to check." |
422 :group 'flymake | |
423 :type 'integer) | |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
424 |
58561 | 425 ;; This is bound dynamically to pass a parameter to a sort predicate below |
426 (defvar flymake-included-file-name) | |
55822 | 427 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
428 (defun flymake-find-possible-master-files (file-name master-file-dirs masks) |
58515 | 429 "Find (by name and location) all posible master files. |
58561 | 430 Mater files are .cpp and .c for and .h. Files are searched for |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
431 starting from the .h directory and max max-level parent dirs. |
55822 | 432 File contents are not checked." |
58515 | 433 (let* ((dir-idx 0) |
434 (dir-count (length master-file-dirs)) | |
435 (files nil) | |
436 (done nil) | |
437 (masks-count (length masks))) | |
55822 | 438 |
58515 | 439 (while (and (not done) (< dir-idx dir-count)) |
440 (let* ((dir (concat (flymake-fix-file-name (file-name-directory file-name)) "/" (nth dir-idx master-file-dirs))) | |
441 (masks-idx 0)) | |
442 (while (and (file-exists-p dir) (not done) (< masks-idx masks-count)) | |
443 (let* ((mask (nth masks-idx masks)) | |
444 (dir-files (directory-files dir t mask)) | |
445 (file-count (length dir-files)) | |
446 (file-idx 0)) | |
55822 | 447 |
58515 | 448 (flymake-log 3 "dir %s, %d file(s) for mask %s" dir file-count mask) |
449 (while (and (not done) (< file-idx file-count)) | |
450 (when (not (file-directory-p (nth file-idx dir-files))) | |
451 (setq files (cons (nth file-idx dir-files) files)) | |
452 (when (>= (length files) flymake-master-file-count-limit) | |
453 (flymake-log 3 "master file count limit (%d) reached" flymake-master-file-count-limit) | |
454 (setq done t))) | |
455 (setq file-idx (1+ file-idx)))) | |
456 (setq masks-idx (1+ masks-idx)))) | |
457 (setq dir-idx (1+ dir-idx))) | |
458 (when files | |
58561 | 459 (let ((flymake-included-file-name (file-name-nondirectory file-name))) |
460 (setq files (sort files 'flymake-master-file-compare)))) | |
58515 | 461 (flymake-log 3 "found %d possible master file(s)" (length files)) |
462 files)) | |
55822 | 463 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
464 (defun flymake-master-file-compare (file-one file-two) |
58515 | 465 "Compare two files speccified by FILE-ONE and FILE-TWO. |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
466 This function is used in sort to move most possible file names |
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
467 to the beginning of the list (File.h -> File.cpp moved to top." |
58515 | 468 (and (equal (file-name-sans-extension flymake-included-file-name) |
469 (file-name-sans-extension (file-name-nondirectory file-one))) | |
470 (not (equal file-one file-two)))) | |
55822 | 471 |
472 (defcustom flymake-check-file-limit 8192 | |
58515 | 473 "Max number of chars to look at when checking possible master file." |
474 :group 'flymake | |
475 :type 'integer) | |
55822 | 476 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
477 (defun flymake-check-patch-master-file-buffer (master-file-temp-buffer |
58515 | 478 master-file-name patched-master-file-name |
479 source-file-name patched-source-file-name | |
480 include-dirs regexp-list) | |
481 "Check if MASTER-FILE-NAME is a master file for SOURCE-FILE-NAME. | |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
482 For .cpp master file this means it includes SOURCE-FILE-NAME (.h). |
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
483 If yes, patch a copy of MASTER-FILE-NAME to include PATCHED-SOURCE-FILE-NAME |
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
484 instead of SOURCE-FILE-NAME. |
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
485 Whether a buffer for MATER-FILE-NAME exists, use it as a source |
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
486 instead of reading master file from disk." |
58515 | 487 (let* ((found nil) |
488 (regexp (format (nth 0 regexp-list) ; "[ \t]*#[ \t]*include[ \t]*\"\\([\w0-9/\\_\.]*[/\\]*\\)\\(%s\\)\"" | |
489 (file-name-nondirectory source-file-name))) | |
490 (path-idx (nth 1 regexp-list)) | |
491 (name-idx (nth 2 regexp-list)) | |
492 (inc-path nil) | |
493 (inc-name nil) | |
494 (search-limit flymake-check-file-limit)) | |
495 (save-excursion | |
496 (unwind-protect | |
497 (progn | |
498 (set-buffer master-file-temp-buffer) | |
499 (when (> search-limit (point-max)) | |
500 (setq search-limit (point-max))) | |
501 (flymake-log 3 "checking %s against regexp %s" master-file-name regexp) | |
502 (goto-char (point-min)) | |
503 (while (and (< (point) search-limit) (re-search-forward regexp search-limit t)) | |
504 (let* ((match-beg (match-beginning name-idx)) | |
505 (match-end (match-end name-idx))) | |
55822 | 506 |
58515 | 507 (flymake-log 3 "found possible match for %s" (file-name-nondirectory source-file-name)) |
508 (setq inc-path (match-string path-idx)) | |
509 (setq inc-name (match-string name-idx)) | |
510 (when (string= inc-name (file-name-nondirectory source-file-name)) | |
511 (flymake-log 3 "inc-path=%s inc-name=%s" inc-path inc-name) | |
512 (when (flymake-check-include source-file-name inc-path inc-name include-dirs) | |
513 (setq found t) | |
514 ;; replace-match is not used here as it fails in | |
515 ;; xemacs with 'last match not a buffer' error as | |
516 ;; check-includes calls replace-in-string | |
517 (flymake-replace-region (current-buffer) match-beg match-end | |
518 (file-name-nondirectory patched-source-file-name)))) | |
519 (forward-line 1))) | |
520 (when found | |
521 (flymake-save-buffer-in-file (current-buffer) patched-master-file-name))) | |
522 ;+(flymake-log 3 "killing buffer %s" (buffer-name master-file-temp-buffer)) | |
523 (kill-buffer master-file-temp-buffer))) | |
524 ;+(flymake-log 3 "check-patch master file %s: %s" master-file-name found) | |
525 (when found | |
526 (flymake-log 2 "found master file %s" master-file-name)) | |
527 found)) | |
55822 | 528 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
529 (defun flymake-replace-region (buffer beg end rep) |
58515 | 530 "Replace text in BUFFER in region (BEG END) with REP." |
531 (save-excursion | |
532 (delete-region beg end) | |
533 (goto-char beg) | |
534 (insert rep))) | |
55822 | 535 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
536 (defun flymake-read-file-to-temp-buffer (file-name) |
58515 | 537 "Insert contents of FILE-NAME into newly created temp buffer." |
538 (let* ((temp-buffer (get-buffer-create (generate-new-buffer-name (concat "flymake:" (file-name-nondirectory file-name)))))) | |
539 (save-excursion | |
540 (set-buffer temp-buffer) | |
541 (insert-file-contents file-name)) | |
542 temp-buffer)) | |
55822 | 543 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
544 (defun flymake-copy-buffer-to-temp-buffer (buffer) |
58515 | 545 "Copy contents of BUFFER into newly created temp buffer." |
546 (let ((contents nil) | |
547 (temp-buffer nil)) | |
548 (save-excursion | |
549 (set-buffer buffer) | |
550 (setq contents (buffer-string)) | |
55822 | 551 |
58515 | 552 (setq temp-buffer (get-buffer-create (generate-new-buffer-name (concat "flymake:" (buffer-name buffer))))) |
553 (set-buffer temp-buffer) | |
554 (insert contents)) | |
555 temp-buffer)) | |
55822 | 556 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
557 (defun flymake-check-include (source-file-name inc-path inc-name include-dirs) |
58515 | 558 "Check if SOURCE-FILE-NAME can be found in include path. |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
559 Return t if it can be found via include path using INC-PATH and INC-NAME." |
58515 | 560 (if (file-name-absolute-p inc-path) |
561 (flymake-same-files source-file-name (concat inc-path "/" inc-name)) | |
562 (let* ((count (length include-dirs)) | |
563 (idx 0) | |
564 (file-name nil) | |
565 (found nil)) | |
566 (while (and (not found) (< idx count)) | |
567 (setq file-name (concat (file-name-directory source-file-name) "/" (nth idx include-dirs))) | |
568 (if (> (length inc-path) 0) | |
569 (setq file-name (concat file-name "/" inc-path))) | |
570 (setq file-name (concat file-name "/" inc-name)) | |
571 (when (flymake-same-files source-file-name file-name) | |
572 (setq found t)) | |
573 (setq idx (1+ idx))) | |
574 found))) | |
55822 | 575 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
576 (defun flymake-find-buffer-for-file (file-name) |
58515 | 577 "Check if there exists a buffer visiting FILE-NAME. |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
578 Return t if so, nil if not." |
58515 | 579 (let ((buffer-name (get-file-buffer file-name))) |
580 (if buffer-name | |
581 (get-buffer buffer-name)))) | |
55822 | 582 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
583 (defun flymake-create-master-file (source-file-name patched-source-file-name get-incl-dirs-f create-temp-f masks include-regexp-list) |
58515 | 584 "Save SOURCE-FILE-NAME with a different name. |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
585 Find master file, patch and save it." |
58515 | 586 (let* ((possible-master-files (flymake-find-possible-master-files source-file-name flymake-master-file-dirs masks)) |
587 (master-file-count (length possible-master-files)) | |
588 (idx 0) | |
589 (temp-buffer nil) | |
590 (master-file-name nil) | |
591 (patched-master-file-name nil) | |
592 (found nil)) | |
55822 | 593 |
58515 | 594 (while (and (not found) (< idx master-file-count)) |
595 (setq master-file-name (nth idx possible-master-files)) | |
596 (setq patched-master-file-name (funcall create-temp-f master-file-name "flymake_master")) | |
597 (if (flymake-find-buffer-for-file master-file-name) | |
598 (setq temp-buffer (flymake-copy-buffer-to-temp-buffer (flymake-find-buffer-for-file master-file-name))) | |
599 (setq temp-buffer (flymake-read-file-to-temp-buffer master-file-name))) | |
600 (setq found | |
601 (flymake-check-patch-master-file-buffer | |
602 temp-buffer | |
603 master-file-name | |
604 patched-master-file-name | |
605 source-file-name | |
606 patched-source-file-name | |
607 (funcall get-incl-dirs-f (file-name-directory master-file-name)) | |
608 include-regexp-list)) | |
609 (setq idx (1+ idx))) | |
610 (if found | |
611 (list master-file-name patched-master-file-name) | |
612 (progn | |
613 (flymake-log 3 "none of %d master file(s) checked includes %s" master-file-count | |
614 (file-name-nondirectory source-file-name)) | |
615 nil)))) | |
55822 | 616 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
617 (defun flymake-save-buffer-in-file (buffer file-name) |
58515 | 618 (or buffer |
619 (error "Invalid buffer")) | |
620 (save-excursion | |
621 (save-restriction | |
622 (set-buffer buffer) | |
623 (widen) | |
624 (make-directory (file-name-directory file-name) 1) | |
625 (write-region (point-min) (point-max) file-name nil 566))) | |
626 (flymake-log 3 "saved buffer %s in file %s" (buffer-name buffer) file-name)) | |
55822 | 627 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
628 (defun flymake-save-string-to-file (file-name data) |
58515 | 629 "Save string DATA to file FILE-NAME." |
630 (write-region data nil file-name nil 566)) | |
55822 | 631 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
632 (defun flymake-read-file-to-string (file-name) |
58515 | 633 "Read contents of file FILE-NAME and return as a string." |
634 (with-temp-buffer | |
635 (insert-file-contents file-name) | |
636 (buffer-substring (point-min) (point-max)))) | |
55822 | 637 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
638 (defun flymake-process-filter (process output) |
58515 | 639 "Parse OUTPUT and highlight error lines. |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
640 It's flymake process filter." |
58515 | 641 (let* ((pid (process-id process)) |
642 (source-buffer (get-buffer (flymake-get-source-buffer-name pid)))) | |
55822 | 643 |
58515 | 644 (flymake-log 3 "received %d byte(s) of output from process %d" (length output) pid) |
645 (when source-buffer | |
646 (flymake-parse-output-and-residual source-buffer output)))) | |
55822 | 647 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
648 (defun flymake-process-sentinel (process event) |
58515 | 649 "Sentinel for syntax check buffers." |
650 (if (memq (process-status process) '(signal exit)) | |
651 (let*((exit-status (process-exit-status process)) | |
652 (command (process-command process)) | |
653 (pid (process-id process)) | |
654 (source-buffer (get-buffer (flymake-get-source-buffer-name pid))) | |
655 (cleanup-f (flymake-get-cleanup-function (buffer-file-name source-buffer)))) | |
55822 | 656 |
58515 | 657 (flymake-log 2 "process %d exited with code %d" pid exit-status) |
658 (condition-case err | |
659 (progn | |
660 (flymake-log 3 "cleaning up using %s" cleanup-f) | |
661 (funcall cleanup-f source-buffer) | |
55822 | 662 |
58515 | 663 (flymake-unreg-names pid) |
664 (delete-process process) | |
55822 | 665 |
58515 | 666 (when source-buffer |
667 (save-excursion | |
668 (set-buffer source-buffer) | |
55822 | 669 |
58515 | 670 (flymake-parse-residual source-buffer) |
671 (flymake-post-syntax-check source-buffer exit-status command) | |
672 (flymake-set-buffer-is-running source-buffer nil)))) | |
673 (error | |
674 (let ((err-str (format "Error in process sentinel for buffer %s: %s" | |
675 source-buffer (error-message-string err)))) | |
676 (flymake-log 0 err-str) | |
677 (flymake-set-buffer-is-running source-buffer nil))))))) | |
55822 | 678 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
679 (defun flymake-post-syntax-check (source-buffer exit-status command) |
58515 | 680 (flymake-set-buffer-err-info source-buffer (flymake-get-buffer-new-err-info source-buffer)) |
681 (flymake-set-buffer-new-err-info source-buffer nil) | |
55822 | 682 |
58515 | 683 (flymake-set-buffer-err-info source-buffer (flymake-fix-line-numbers |
684 (flymake-get-buffer-err-info source-buffer) | |
685 1 | |
686 (flymake-count-lines source-buffer))) | |
687 (flymake-delete-own-overlays source-buffer) | |
688 (flymake-highlight-err-lines source-buffer (flymake-get-buffer-err-info source-buffer)) | |
55822 | 689 |
58515 | 690 (let ((err-count (flymake-get-err-count (flymake-get-buffer-err-info source-buffer) "e")) |
691 (warn-count (flymake-get-err-count (flymake-get-buffer-err-info source-buffer) "w"))) | |
55822 | 692 |
58515 | 693 (flymake-log 2 "%s: %d error(s), %d warning(s) in %.2f second(s)" |
694 (buffer-name source-buffer) err-count warn-count | |
695 (- (flymake-float-time) (flymake-get-buffer-check-start-time source-buffer))) | |
696 (flymake-set-buffer-check-start-time source-buffer nil) | |
697 (if (and (equal 0 err-count) (equal 0 warn-count)) | |
698 (if (equal 0 exit-status) | |
699 (flymake-report-status source-buffer "" "") ; PASSED | |
700 (if (not (flymake-get-buffer-check-was-interrupted source-buffer)) | |
701 (flymake-report-fatal-status (current-buffer) "CFGERR" | |
702 (format "Configuration error has occured while running %s" command)) | |
703 (flymake-report-status source-buffer nil ""))) ; "STOPPED" | |
704 (flymake-report-status source-buffer (format "%d/%d" err-count warn-count) "")))) | |
55822 | 705 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
706 (defun flymake-parse-output-and-residual (source-buffer output) |
58515 | 707 "Split OUTPUT into lines, merge in residual if necessary." |
708 (save-excursion | |
709 (set-buffer source-buffer) | |
710 (let* ((buffer-residual (flymake-get-buffer-output-residual source-buffer)) | |
711 (total-output (if buffer-residual (concat buffer-residual output) output)) | |
712 (lines-and-residual (flymake-split-output total-output)) | |
713 (lines (nth 0 lines-and-residual)) | |
714 (new-residual (nth 1 lines-and-residual))) | |
55822 | 715 |
58515 | 716 (flymake-set-buffer-output-residual source-buffer new-residual) |
717 (flymake-set-buffer-new-err-info source-buffer (flymake-parse-err-lines | |
718 (flymake-get-buffer-new-err-info source-buffer) | |
719 source-buffer lines))))) | |
55822 | 720 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
721 (defun flymake-parse-residual (source-buffer) |
58515 | 722 "Parse residual if it's non empty." |
723 (save-excursion | |
724 (set-buffer source-buffer) | |
725 (when (flymake-get-buffer-output-residual source-buffer) | |
726 (flymake-set-buffer-new-err-info source-buffer (flymake-parse-err-lines | |
727 (flymake-get-buffer-new-err-info source-buffer) | |
728 source-buffer | |
729 (list (flymake-get-buffer-output-residual source-buffer)))) | |
730 (flymake-set-buffer-output-residual source-buffer nil)))) | |
55822 | 731 |
732 (defvar flymake-err-info nil | |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
733 "Sorted list of line numbers and lists of err info in the form (file, err-text).") |
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
734 |
55822 | 735 (make-variable-buffer-local 'flymake-err-info) |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
736 |
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
737 (defun flymake-get-buffer-err-info (buffer) |
58515 | 738 (flymake-get-buffer-var buffer 'flymake-err-info)) |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
739 |
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
740 (defun flymake-set-buffer-err-info (buffer err-info) |
58515 | 741 (flymake-set-buffer-var buffer 'flymake-err-info err-info)) |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
742 |
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
743 (defun flymake-er-make-er (line-no line-err-info-list) |
58515 | 744 (list line-no line-err-info-list)) |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
745 |
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
746 (defun flymake-er-get-line (err-info) |
58515 | 747 (nth 0 err-info)) |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
748 |
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
749 (defun flymake-er-get-line-err-info-list (err-info) |
58515 | 750 (nth 1 err-info)) |
55822 | 751 |
752 (defvar flymake-new-err-info nil | |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
753 "Same as 'flymake-err-info', effective when a syntax check is in progress.") |
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
754 |
55822 | 755 (make-variable-buffer-local 'flymake-new-err-info) |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
756 |
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
757 (defun flymake-get-buffer-new-err-info (buffer) |
58515 | 758 (flymake-get-buffer-var buffer 'flymake-new-err-info)) |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
759 |
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
760 (defun flymake-set-buffer-new-err-info (buffer new-err-info) |
58515 | 761 (flymake-set-buffer-var buffer 'flymake-new-err-info new-err-info)) |
55822 | 762 |
763 ;; getters/setters for line-err-info: (file, line, type, text). | |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
764 (defun flymake-ler-make-ler (file line type text &optional full-file) |
58515 | 765 (list file line type text full-file)) |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
766 |
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
767 (defun flymake-ler-get-file (line-err-info) |
58515 | 768 (nth 0 line-err-info)) |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
769 |
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
770 (defun flymake-ler-get-line (line-err-info) |
58515 | 771 (nth 1 line-err-info)) |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
772 |
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
773 (defun flymake-ler-get-type (line-err-info) |
58515 | 774 (nth 2 line-err-info)) |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
775 |
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
776 (defun flymake-ler-get-text (line-err-info) |
58515 | 777 (nth 3 line-err-info)) |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
778 |
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
779 (defun flymake-ler-get-full-file (line-err-info) |
58515 | 780 (nth 4 line-err-info)) |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
781 |
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
782 (defun flymake-ler-set-file (line-err-info file) |
58515 | 783 (flymake-ler-make-ler file |
55822 | 784 (flymake-ler-get-line line-err-info) |
785 (flymake-ler-get-type line-err-info) | |
786 (flymake-ler-get-text line-err-info) | |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
787 (flymake-ler-get-full-file line-err-info))) |
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
788 |
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
789 (defun flymake-ler-set-full-file (line-err-info full-file) |
58515 | 790 (flymake-ler-make-ler (flymake-ler-get-file line-err-info) |
55822 | 791 (flymake-ler-get-line line-err-info) |
792 (flymake-ler-get-type line-err-info) | |
793 (flymake-ler-get-text line-err-info) | |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
794 full-file)) |
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
795 |
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
796 (defun flymake-ler-set-line (line-err-info line) |
58515 | 797 (flymake-ler-make-ler (flymake-ler-get-file line-err-info) |
55822 | 798 line |
799 (flymake-ler-get-type line-err-info) | |
800 (flymake-ler-get-text line-err-info) | |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
801 (flymake-ler-get-full-file line-err-info))) |
55822 | 802 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
803 (defun flymake-get-line-err-count (line-err-info-list type) |
58515 | 804 "Return number of errors of specified TYPE. |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
805 Value of TYPE is eigher e or w." |
58515 | 806 (let* ((idx 0) |
807 (count (length line-err-info-list)) | |
808 (err-count 0)) | |
55822 | 809 |
58515 | 810 (while (< idx count) |
811 (when (equal type (flymake-ler-get-type (nth idx line-err-info-list))) | |
812 (setq err-count (1+ err-count))) | |
813 (setq idx (1+ idx))) | |
814 err-count)) | |
55822 | 815 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
816 (defun flymake-get-err-count (err-info-list type) |
58515 | 817 "Return number of errors of specified TYPE for ERR-INFO-LIST." |
818 (let* ((idx 0) | |
819 (count (length err-info-list)) | |
820 (err-count 0)) | |
821 (while (< idx count) | |
822 (setq err-count (+ err-count (flymake-get-line-err-count (nth 1 (nth idx err-info-list)) type))) | |
823 (setq idx (1+ idx))) | |
824 err-count)) | |
55822 | 825 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
826 (defun flymake-fix-line-numbers (err-info-list min-line max-line) |
58515 | 827 "Replace line numbers with fixed value. |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
828 If line-numbers is less than MIN-LINE, set line numbers to MIN-LINE. |
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
829 If line numbers is greater than MAX-LINE, set line numbers to MAX-LINE. |
58561 | 830 The reason for this fix is because some compilers might report |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
831 line number outside the file being compiled." |
58515 | 832 (let* ((count (length err-info-list)) |
833 (err-info nil) | |
834 (line 0)) | |
835 (while (> count 0) | |
836 (setq err-info (nth (1- count) err-info-list)) | |
837 (setq line (flymake-er-get-line err-info)) | |
838 (when (or (< line min-line) (> line max-line)) | |
839 (setq line (if (< line min-line) min-line max-line)) | |
840 (setq err-info-list (flymake-set-at err-info-list (1- count) | |
841 (flymake-er-make-er line | |
842 (flymake-er-get-line-err-info-list err-info))))) | |
843 (setq count (1- count)))) | |
844 err-info-list) | |
55822 | 845 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
846 (defun flymake-highlight-err-lines (buffer err-info-list) |
58515 | 847 "Highlight error lines in BUFFER using info from ERR-INFO-LIST." |
848 (save-excursion | |
849 (set-buffer buffer) | |
850 (let* ((idx 0) | |
851 (count (length err-info-list))) | |
852 (while (< idx count) | |
853 (flymake-highlight-line (car (nth idx err-info-list)) (nth 1 (nth idx err-info-list))) | |
854 (setq idx (1+ idx)))))) | |
55822 | 855 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
856 (defun flymake-overlay-p (ov) |
58515 | 857 "Determine whether overlay OV was created by flymake." |
858 (and (overlayp ov) (overlay-get ov 'flymake-overlay))) | |
55822 | 859 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
860 (defun flymake-make-overlay (beg end tooltip-text face mouse-face) |
58515 | 861 "Allocate a flymake overlay in range BEG and END." |
862 (when (not (flymake-region-has-flymake-overlays beg end)) | |
863 (let ((ov (make-overlay beg end nil t t))) | |
864 (overlay-put ov 'face face) | |
865 (overlay-put ov 'mouse-face mouse-face) | |
866 (overlay-put ov 'help-echo tooltip-text) | |
867 (overlay-put ov 'flymake-overlay t) | |
868 (overlay-put ov 'priority 100) | |
869 ;+(flymake-log 3 "created overlay %s" ov) | |
870 ov) | |
871 (flymake-log 3 "created an overlay at (%d-%d)" beg end))) | |
55822 | 872 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
873 (defun flymake-delete-own-overlays (buffer) |
58515 | 874 "Delete all flymake overlays in BUFFER." |
875 (save-excursion | |
876 (set-buffer buffer) | |
877 (let ((ov (overlays-in (point-min) (point-max)))) | |
878 (while (consp ov) | |
879 (when (flymake-overlay-p (car ov)) | |
880 (delete-overlay (car ov)) | |
881 ;+(flymake-log 3 "deleted overlay %s" ov) | |
882 ) | |
883 (setq ov (cdr ov)))))) | |
55822 | 884 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
885 (defun flymake-region-has-flymake-overlays (beg end) |
58515 | 886 "Check if region specified by BEG and END has overlay. |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
887 Return t if it has at least one flymake overlay, nil if no overlay." |
58515 | 888 (let ((ov (overlays-in beg end)) |
889 (has-flymake-overlays nil)) | |
890 (while (consp ov) | |
891 (when (flymake-overlay-p (car ov)) | |
892 (setq has-flymake-overlays t)) | |
893 (setq ov (cdr ov))))) | |
55822 | 894 |
895 (defface flymake-errline-face | |
58515 | 896 ;+ '((((class color)) (:foreground "OrangeRed" :bold t :underline t)) |
897 ;+ '((((class color)) (:underline "OrangeRed")) | |
898 '((((class color)) (:background "LightPink")) | |
899 (t (:bold t))) | |
900 "Face used for marking error lines." | |
901 :group 'flymake) | |
55822 | 902 |
903 (defface flymake-warnline-face | |
58515 | 904 '((((class color)) (:background "LightBlue2")) |
905 (t (:bold t))) | |
906 "Face used for marking warning lines." | |
907 :group 'flymake) | |
55822 | 908 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
909 (defun flymake-highlight-line (line-no line-err-info-list) |
58515 | 910 "Highlight line LINE-NO in current buffer. |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
911 Perhaps use text from LINE-ERR-INFO-ILST to enhance highlighting." |
58515 | 912 (goto-line line-no) |
913 (let* ((line-beg (flymake-line-beginning-position)) | |
914 (line-end (flymake-line-end-position)) | |
915 (beg line-beg) | |
916 (end line-end) | |
917 (tooltip-text (flymake-ler-get-text (nth 0 line-err-info-list))) | |
918 (face nil)) | |
55822 | 919 |
58515 | 920 (goto-char line-beg) |
921 (while (looking-at "[ \t]") | |
922 (forward-char)) | |
55822 | 923 |
58515 | 924 (setq beg (point)) |
55822 | 925 |
58515 | 926 (goto-char line-end) |
927 (while (and (looking-at "[ \t\r\n]") (> (point) 1)) | |
928 (backward-char)) | |
55822 | 929 |
58515 | 930 (setq end (1+ (point))) |
55822 | 931 |
58515 | 932 (when (<= end beg) |
933 (setq beg line-beg) | |
934 (setq end line-end)) | |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
935 |
58515 | 936 (when (= end beg) |
937 (goto-char end) | |
938 (forward-line) | |
939 (setq end (point))) | |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
940 |
58515 | 941 (if (> (flymake-get-line-err-count line-err-info-list "e") 0) |
942 (setq face 'flymake-errline-face) | |
943 (setq face 'flymake-warnline-face)) | |
55822 | 944 |
58515 | 945 (flymake-make-overlay beg end tooltip-text face nil))) |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
946 |
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
947 (defun flymake-parse-err-lines (err-info-list source-buffer lines) |
58515 | 948 "Parse err LINES, store info in ERR-INFO-LIST." |
949 (let* ((count (length lines)) | |
950 (idx 0) | |
951 (line-err-info nil) | |
952 (real-file-name nil) | |
953 (source-file-name (buffer-file-name source-buffer)) | |
954 (get-real-file-name-f (flymake-get-real-file-name-function source-file-name))) | |
55822 | 955 |
58515 | 956 (while (< idx count) |
957 (setq line-err-info (flymake-parse-line (nth idx lines))) | |
958 (when line-err-info | |
959 (setq real-file-name (funcall get-real-file-name-f source-buffer (flymake-ler-get-file line-err-info))) | |
960 (setq line-err-info (flymake-ler-set-full-file line-err-info real-file-name)) | |
55822 | 961 |
58515 | 962 (if (flymake-same-files real-file-name source-file-name) |
963 (setq line-err-info (flymake-ler-set-file line-err-info nil)) | |
964 (setq line-err-info (flymake-ler-set-file line-err-info (file-name-nondirectory real-file-name)))) | |
55822 | 965 |
58515 | 966 (setq err-info-list (flymake-add-err-info err-info-list line-err-info))) |
967 (flymake-log 3 "parsed '%s', %s line-err-info" (nth idx lines) (if line-err-info "got" "no")) | |
968 (setq idx (1+ idx))) | |
969 err-info-list)) | |
55822 | 970 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
971 (defun flymake-split-output (output) |
58515 | 972 "Split OUTPUT into lines. |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
973 Return last one as residual if it does not end with newline char. Returns ((lines) residual)." |
58515 | 974 (when (and output (> (length output) 0)) |
975 (let* ((lines (flymake-split-string output "[\n\r]+")) | |
976 (complete (equal "\n" (char-to-string (aref output (1- (length output)))))) | |
977 (residual nil)) | |
978 (when (not complete) | |
979 (setq residual (car (last lines))) | |
980 (setq lines (butlast lines))) | |
981 (list lines residual)))) | |
55822 | 982 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
983 (defun flymake-reformat-err-line-patterns-from-compile-el (original-list) |
58515 | 984 "Grab error line patterns from ORIGINAL-LIST in compile.el format. |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
985 Convert it to flymake internal format." |
58515 | 986 (let* ((converted-list '())) |
987 (mapcar | |
988 (lambda (item) | |
989 (setq item (cdr item)) | |
990 (let ((regexp (nth 0 item)) | |
991 (file (nth 1 item)) | |
992 (line (nth 2 item)) | |
993 (col (nth 3 item)) | |
994 end-line) | |
995 (if (consp file) (setq file (car file))) | |
996 (if (consp line) (setq end-line (cdr line) line (car line))) | |
997 (if (consp col) (setq col (car col))) | |
57847
4bac9c04ed9e
2004-11-2 Pavel Kobiakov <pk_at_work@yahoo.com>
Masatake YAMATO <jet@gyve.org>
parents:
57696
diff
changeset
|
998 |
58515 | 999 (when (not (functionp line)) |
1000 (setq converted-list (cons (list regexp file line col) converted-list))))) | |
1001 original-list) | |
1002 converted-list)) | |
57847
4bac9c04ed9e
2004-11-2 Pavel Kobiakov <pk_at_work@yahoo.com>
Masatake YAMATO <jet@gyve.org>
parents:
57696
diff
changeset
|
1003 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1004 (eval-when-compile |
58515 | 1005 (require 'compile)) |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1006 |
58515 | 1007 (defvar flymake-err-line-patterns ; regexp file-idx line-idx col-idx (optional) text-idx(optional), match-end to end of string is error text |
1008 (append | |
1009 '( | |
1010 ; MS Visual C++ 6.0 | |
1011 ("\\(\\([a-zA-Z]:\\)?[^:(\t\n]+\\)(\\([0-9]+\\)) \: \\(\\(error\\|warning\\|fatal error\\) \\(C[0-9]+\\):[ \t\n]*\\(.+\\)\\)" | |
1012 1 3 nil 4) | |
1013 ; jikes | |
1014 ("\\(\\([a-zA-Z]:\\)?[^:(\t\n]+\\)\:\\([0-9]+\\)\:[0-9]+\:[0-9]+\:[0-9]+\: \\(\\(Error\\|Warning\\|Caution\\|Semantic Error\\):[ \t\n]*\\(.+\\)\\)" | |
1015 1 3 nil 4) | |
1016 ; MS midl | |
1017 ("midl[ ]*:[ ]*\\(command line error .*\\)" | |
1018 nil nil nil 1) | |
1019 ; MS C# | |
1020 ("\\(\\([a-zA-Z]:\\)?[^:(\t\n]+\\)(\\([0-9]+\\),[0-9]+)\: \\(\\(error\\|warning\\|fatal error\\) \\(CS[0-9]+\\):[ \t\n]*\\(.+\\)\\)" | |
1021 1 3 nil 4) | |
1022 ; perl | |
1023 ("\\(.*\\) at \\([^ \n]+\\) line \\([0-9]+\\)[,.\n]" 2 3 nil 1) | |
1024 ; LaTeX warnings (fileless) ("\\(LaTeX \\(Warning\\|Error\\): .*\\) on input line \\([0-9]+\\)" 20 3 nil 1) | |
1025 ; ant/javac | |
1026 (" *\\(\\[javac\\]\\)? *\\(\\([a-zA-Z]:\\)?[^:(\t\n]+\\)\:\\([0-9]+\\)\:[ \t\n]*\\(.+\\)" | |
1027 2 4 nil 5)) | |
1028 ;; compilation-error-regexp-alist) | |
58561 | 1029 (flymake-reformat-err-line-patterns-from-compile-el compilation-error-regexp-alist-alist)) |
58515 | 1030 "patterns for matching error/warning lines, (regexp file-idx line-idx err-text-idx). Use flymake-reformat-err-line-patterns-from-compile-el to add patterns from compile.el") |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1031 |
58515 | 1032 ;(defcustom flymake-err-line-patterns |
1033 ; '( | |
1034 ; ; MS Visual C++ 6.0 | |
1035 ; ("\\(\\([a-zA-Z]:\\)?[^:(\t\n]+\\)(\\([0-9]+\\)) \: \\(\\(error\\|warning\\|fatal error\\) \\(C[0-9]+\\):[ \t\n]*\\(.+\\)\\)" | |
1036 ; 1 3 4) | |
1037 ; ; jikes | |
1038 ; ("\\(\\([a-zA-Z]:\\)?[^:(\t\n]+\\)\:\\([0-9]+\\)\:[0-9]+\:[0-9]+\:[0-9]+\: \\(\\(Error\\|Warning\\|Caution\\):[ \t\n]*\\(.+\\)\\)" | |
1039 ; 1 3 4)) | |
1040 ; "patterns for matching error/warning lines, (regexp file-idx line-idx err-text-idx)" | |
1041 ; :group 'flymake | |
1042 ; :type '(repeat (string number number number)) | |
1043 ;) | |
55822 | 1044 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1045 (defun flymake-parse-line (line) |
58515 | 1046 "Parse LINE to see if it is an error of warning. |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1047 Return its components if so, nil if no." |
58515 | 1048 (let ((raw-file-name nil) |
1049 (line-no 0) | |
1050 (err-type "e") | |
1051 (err-text nil) | |
1052 (count (length flymake-err-line-patterns)) | |
1053 (idx 0) | |
1054 (matched nil)) | |
1055 (while (and (< idx count) (not matched)) | |
1056 (when (string-match (car (nth idx flymake-err-line-patterns)) line) | |
1057 (let* ((file-idx (nth 1 (nth idx flymake-err-line-patterns))) | |
1058 (line-idx (nth 2 (nth idx flymake-err-line-patterns)))) | |
55822 | 1059 |
58515 | 1060 (setq raw-file-name (if file-idx (match-string file-idx line) nil)) |
1061 (setq line-no (if line-idx (string-to-int (match-string line-idx line)) 0)) | |
1062 (setq err-text (if (> (length (nth idx flymake-err-line-patterns)) 4) | |
1063 (match-string (nth 4 (nth idx flymake-err-line-patterns)) line) | |
1064 (flymake-patch-err-text (substring line (match-end 0))))) | |
1065 (or err-text (setq err-text "<no error text>")) | |
1066 (if (and err-text (string-match "^[wW]arning" err-text)) | |
1067 (setq err-type "w") | |
1068 ) | |
1069 (flymake-log 3 "parse line: file-idx=%s line-idx=%s file=%s line=%s text=%s" file-idx line-idx | |
1070 raw-file-name line-no err-text) | |
1071 (setq matched t))) | |
1072 (setq idx (1+ idx))) | |
1073 (if matched | |
1074 (flymake-ler-make-ler raw-file-name line-no err-type err-text) | |
1075 ()))) | |
55822 | 1076 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1077 (defun flymake-find-err-info (err-info-list line-no) |
58515 | 1078 "Find (line-err-info-list pos) for specified LINE-NO." |
1079 (if err-info-list | |
1080 (let* ((line-err-info-list nil) | |
1081 (pos 0) | |
1082 (count (length err-info-list))) | |
55822 | 1083 |
58515 | 1084 (while (and (< pos count) (< (car (nth pos err-info-list)) line-no)) |
1085 (setq pos (1+ pos))) | |
1086 (when (and (< pos count) (equal (car (nth pos err-info-list)) line-no)) | |
1087 (setq line-err-info-list (flymake-er-get-line-err-info-list (nth pos err-info-list)))) | |
1088 (list line-err-info-list pos)) | |
1089 '(nil 0))) | |
55822 | 1090 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1091 (defun flymake-line-err-info-is-less-or-equal (line-one line-two) |
58515 | 1092 (or (string< (flymake-ler-get-type line-one) (flymake-ler-get-type line-two)) |
1093 (and (string= (flymake-ler-get-type line-one) (flymake-ler-get-type line-two)) | |
1094 (not (flymake-ler-get-file line-one)) (flymake-ler-get-file line-two)) | |
1095 (and (string= (flymake-ler-get-type line-one) (flymake-ler-get-type line-two)) | |
1096 (or (and (flymake-ler-get-file line-one) (flymake-ler-get-file line-two)) | |
1097 (and (not (flymake-ler-get-file line-one)) (not (flymake-ler-get-file line-two))))))) | |
55822 | 1098 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1099 (defun flymake-add-line-err-info (line-err-info-list line-err-info) |
58515 | 1100 "Insert new err info favoring sorting: err-type e/w, filename nil/non-nil." |
1101 (if (not line-err-info-list) | |
1102 (list line-err-info) | |
1103 (let* ((count (length line-err-info-list)) | |
1104 (idx 0)) | |
1105 (while (and (< idx count) (flymake-line-err-info-is-less-or-equal (nth idx line-err-info-list) line-err-info)) | |
1106 (setq idx (1+ idx))) | |
1107 (cond ((equal 0 idx) (setq line-err-info-list (cons line-err-info line-err-info-list))) | |
1108 (t (setq line-err-info-list (flymake-ins-after line-err-info-list (1- idx) line-err-info)))) | |
1109 line-err-info-list))) | |
55822 | 1110 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1111 (defun flymake-add-err-info (err-info-list line-err-info) |
58515 | 1112 "Add error info (file line type text) to err info list preserving sort order." |
1113 (let* ((count (length err-info-list)) | |
1114 (line-no (if (flymake-ler-get-file line-err-info) 1 (flymake-ler-get-line line-err-info))) | |
1115 (info-and-pos (flymake-find-err-info err-info-list line-no)) | |
1116 (exists (car info-and-pos)) | |
1117 (pos (nth 1 info-and-pos)) | |
1118 (line-err-info-list nil) | |
1119 (err-info nil)) | |
55822 | 1120 |
58515 | 1121 (if exists |
1122 (setq line-err-info-list (flymake-er-get-line-err-info-list (car (nthcdr pos err-info-list))))) | |
1123 (setq line-err-info-list (flymake-add-line-err-info line-err-info-list line-err-info)) | |
55822 | 1124 |
58515 | 1125 (setq err-info (flymake-er-make-er line-no line-err-info-list)) |
1126 (cond (exists (setq err-info-list (flymake-set-at err-info-list pos err-info))) | |
1127 ((equal 0 pos) (setq err-info-list (cons err-info err-info-list))) | |
1128 (t (setq err-info-list (flymake-ins-after err-info-list (1- pos) err-info)))) | |
1129 err-info-list)) | |
55822 | 1130 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1131 (defun flymake-get-project-include-dirs-imp (basedir) |
58515 | 1132 "Include dirs for the project current file belongs to." |
1133 (if (flymake-get-project-include-dirs-from-cache basedir) | |
1134 (progn | |
1135 (flymake-get-project-include-dirs-from-cache basedir)) | |
1136 ;else | |
1137 (let* ((command-line (concat "make -C\"" basedir "\" DUMPVARS=INCLUDE_DIRS dumpvars")) | |
1138 (output (shell-command-to-string command-line)) | |
1139 (lines (flymake-split-string output "\n")) | |
1140 (count (length lines)) | |
1141 (idx 0) | |
1142 (inc-dirs nil)) | |
1143 (while (and (< idx count) (not (string-match "^INCLUDE_DIRS=.*" (nth idx lines)))) | |
1144 (setq idx (1+ idx))) | |
1145 (when (< idx count) | |
1146 (let* ((inc-lines (flymake-split-string (nth idx lines) " *-I")) | |
1147 (inc-count (length inc-lines))) | |
1148 (while (> inc-count 0) | |
1149 (when (not (string-match "^INCLUDE_DIRS=.*" (nth (1- inc-count) inc-lines))) | |
1150 (setq inc-dirs (cons (flymake-replace-regexp-in-string "\"" "" (nth (1- inc-count) inc-lines)) inc-dirs))) | |
1151 (setq inc-count (1- inc-count))))) | |
1152 (flymake-add-project-include-dirs-to-cache basedir inc-dirs) | |
1153 inc-dirs))) | |
55822 | 1154 |
1155 (defcustom flymake-get-project-include-dirs-function 'flymake-get-project-include-dirs-imp | |
58515 | 1156 "Function used to get project inc dirs, one paramater: basedir name." |
1157 :group 'flymake | |
1158 :type 'function) | |
55822 | 1159 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1160 (defun flymake-get-project-include-dirs (basedir) |
58515 | 1161 (funcall flymake-get-project-include-dirs-function basedir)) |
55822 | 1162 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1163 (defun flymake-get-system-include-dirs () |
58515 | 1164 "System include dirs - from the 'INCLUDE' env setting." |
1165 (let* ((includes (getenv "INCLUDE"))) | |
1166 (if includes (flymake-split-string includes path-separator) nil))) | |
55822 | 1167 |
1168 (defvar flymake-project-include-dirs-cache (flymake-makehash 'equal)) | |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1169 |
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1170 (defun flymake-get-project-include-dirs-from-cache (base-dir) |
58515 | 1171 (gethash base-dir flymake-project-include-dirs-cache)) |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1172 |
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1173 (defun flymake-add-project-include-dirs-to-cache (base-dir include-dirs) |
58515 | 1174 (puthash base-dir include-dirs flymake-project-include-dirs-cache)) |
55822 | 1175 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1176 (defun flymake-clear-project-include-dirs-cache () |
58515 | 1177 (clrhash flymake-project-include-dirs-cache)) |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1178 |
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1179 (defun flymake-get-include-dirs (base-dir) |
58515 | 1180 "Get dirs to use when resolving local file names." |
1181 (let* ((include-dirs (append '(".") (flymake-get-project-include-dirs base-dir) (flymake-get-system-include-dirs)))) | |
1182 include-dirs)) | |
55822 | 1183 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1184 (defun flymake-find-file (rel-file-name include-dirs) |
58515 | 1185 "Iterate through include-dirs to find file REL-FILE-NAME. |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1186 Return first 'INCLUDE-DIRS/REL-FILE-NAME' that exists, or just REL-FILE-NAME if not." |
58515 | 1187 (let* ((count (length include-dirs)) |
1188 (idx 0) | |
1189 (found nil) | |
1190 (full-file-name rel-file-name)) | |
55822 | 1191 |
58515 | 1192 (while (and (not found) (< idx count)) |
1193 (let* ((dir (nth idx include-dirs))) | |
1194 (setq full-file-name (concat dir "/" rel-file-name)) | |
1195 (when (file-exists-p full-file-name) | |
1196 (setq found t))) | |
1197 (setq idx (1+ idx))) | |
1198 (if found | |
1199 full-file-name | |
1200 rel-file-name))) | |
55822 | 1201 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1202 (defun flymake-restore-formatting (source-buffer) |
58515 | 1203 "Remove any formatting made by flymake." |
1204 ) | |
55822 | 1205 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1206 (defun flymake-get-program-dir (buffer) |
58515 | 1207 "Get dir to start program in." |
1208 (unless (bufferp buffer) | |
1209 (error "Invlid buffer")) | |
1210 (save-excursion | |
1211 (set-buffer buffer) | |
1212 default-directory)) | |
55822 | 1213 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1214 (defun flymake-safe-delete-file (file-name) |
58515 | 1215 (when (and file-name (file-exists-p file-name)) |
1216 (delete-file file-name) | |
1217 (flymake-log 1 "deleted file %s" file-name))) | |
55822 | 1218 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1219 (defun flymake-safe-delete-directory (dir-name) |
58515 | 1220 (condition-case err |
1221 (progn | |
1222 (delete-directory dir-name) | |
1223 (flymake-log 1 "deleted dir %s" dir-name)) | |
1224 (error | |
1225 (flymake-log 1 "Failed to delete dir %s, error ignored" dir-name)))) | |
55822 | 1226 |
58561 | 1227 (defcustom flymake-compilation-prevents-syntax-check t |
58515 | 1228 "If non-nil, syntax check won't be started in case compilation is running." |
1229 :group 'flymake | |
1230 :type 'boolean) | |
55822 | 1231 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1232 (defun flymake-start-syntax-check (buffer) |
58515 | 1233 "Start syntax checking for buffer BUFFER." |
1234 (unless (bufferp buffer) | |
1235 (error "Expected a buffer")) | |
1236 (save-excursion | |
1237 (set-buffer buffer) | |
1238 (flymake-log 3 "flymake is running: %s" (flymake-get-buffer-is-running buffer)) | |
1239 (when (and (not (flymake-get-buffer-is-running buffer)) | |
1240 (flymake-can-syntax-check-file (buffer-file-name buffer))) | |
1241 (when (or (not flymake-compilation-prevents-syntax-check) | |
1242 (not (flymake-compilation-is-running))) ;+ (flymake-rep-ort-status buffer "COMP") | |
1243 (flymake-clear-buildfile-cache) | |
1244 (flymake-clear-project-include-dirs-cache) | |
55822 | 1245 |
58515 | 1246 (flymake-set-buffer-check-was-interrupted buffer nil) |
1247 (flymake-set-buffer-data buffer (flymake-makehash 'equal)) | |
55822 | 1248 |
58515 | 1249 (let* ((source-file-name (buffer-file-name buffer)) |
1250 (init-f (flymake-get-init-function source-file-name)) | |
1251 (cleanup-f (flymake-get-cleanup-function source-file-name)) | |
1252 (cmd-and-args (funcall init-f buffer)) | |
1253 (cmd (nth 0 cmd-and-args)) | |
1254 (args (nth 1 cmd-and-args)) | |
1255 (dir (nth 2 cmd-and-args))) | |
1256 (if (not cmd-and-args) | |
1257 (progn | |
1258 (flymake-log 0 "init function %s for %s failed, cleaning up" init-f source-file-name) | |
1259 (funcall cleanup-f buffer)) | |
1260 (progn | |
1261 (flymake-set-buffer-last-change-time buffer nil) | |
1262 (flymake-start-syntax-check-process buffer cmd args dir)))))))) | |
55822 | 1263 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1264 (defun flymake-start-syntax-check-process (buffer cmd args dir) |
58515 | 1265 "Start syntax check process." |
1266 (let* ((process nil)) | |
1267 (condition-case err | |
1268 (progn | |
1269 (when dir | |
1270 (let ((default-directory dir)) | |
1271 (flymake-log 3 "starting process on dir %s" default-directory))) | |
1272 (setq process (get-process (apply 'start-process "flymake-proc" nil cmd args))) | |
1273 (set-process-sentinel process 'flymake-process-sentinel) | |
1274 (set-process-filter process 'flymake-process-filter) | |
55822 | 1275 |
58515 | 1276 (flymake-reg-names (process-id process) (buffer-name buffer)) |
55822 | 1277 |
58515 | 1278 (flymake-set-buffer-is-running buffer t) |
1279 (flymake-set-buffer-last-change-time buffer nil) | |
1280 (flymake-set-buffer-check-start-time buffer (flymake-float-time)) | |
55822 | 1281 |
58515 | 1282 (flymake-report-status buffer nil "*") |
1283 (flymake-log 2 "started process %d, command=%s, dir=%s" | |
1284 (process-id process) (process-command process) default-directory) | |
1285 process) | |
1286 (error | |
1287 (let* ((err-str (format "Failed to launch syntax check process '%s' with args %s: %s" | |
1288 cmd args (error-message-string err))) | |
1289 (source-file-name (buffer-file-name buffer)) | |
1290 (cleanup-f (flymake-get-cleanup-function source-file-name))) | |
1291 (flymake-log 0 err-str) | |
1292 (funcall cleanup-f buffer) | |
1293 (flymake-report-fatal-status buffer "PROCERR" err-str)))))) | |
55822 | 1294 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1295 (defun flymake-kill-process (pid &optional rest) |
58515 | 1296 "Kill process PID." |
1297 (signal-process pid 9) | |
1298 (let* ((buffer-name (flymake-get-source-buffer-name pid))) | |
1299 (when (and buffer-name (get-buffer buffer-name)) | |
1300 (flymake-set-buffer-check-was-interrupted (get-buffer buffer-name) t))) | |
1301 (flymake-log 1 "killed process %d" pid)) | |
55822 | 1302 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1303 (defun flymake-stop-all-syntax-checks () |
58515 | 1304 "Kill all syntax check processes." |
1305 (interactive) | |
1306 (let ((pids (copy-hash-table flymake-pid-to-names))) | |
1307 (maphash 'flymake-kill-process pids))) | |
55822 | 1308 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1309 (defun flymake-compilation-is-running () |
58515 | 1310 (and (boundp 'compilation-in-progress) |
1311 compilation-in-progress)) | |
55822 | 1312 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1313 (defun flymake-compile () |
58515 | 1314 "Kill all flymake syntax checks, start compilation." |
1315 (interactive) | |
1316 (flymake-stop-all-syntax-checks) | |
1317 (call-interactively 'compile)) | |
55822 | 1318 |
1319 (defvar flymake-is-running nil | |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1320 "If t, flymake syntax check process is running for the current buffer") |
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1321 |
55822 | 1322 (make-variable-buffer-local 'flymake-is-running) |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1323 |
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1324 (defun flymake-get-buffer-is-running (buffer) |
58515 | 1325 (flymake-get-buffer-var buffer 'flymake-is-running)) |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1326 |
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1327 (defun flymake-set-buffer-is-running (buffer is-running) |
58515 | 1328 (flymake-set-buffer-var buffer 'flymake-is-running is-running)) |
55822 | 1329 |
1330 (defvar flymake-timer nil | |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1331 "Timer for starting syntax check.") |
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1332 |
55822 | 1333 (make-variable-buffer-local 'flymake-timer) |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1334 |
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1335 (defun flymake-get-buffer-timer (buffer) |
58515 | 1336 (flymake-get-buffer-var buffer 'flymake-timer)) |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1337 |
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1338 (defun flymake-set-buffer-timer (buffer timer) |
58515 | 1339 (flymake-set-buffer-var buffer 'flymake-timer timer)) |
55822 | 1340 |
1341 (defvar flymake-last-change-time nil | |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1342 "Time of last buffer change.") |
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1343 |
55822 | 1344 (make-variable-buffer-local 'flymake-last-change-time) |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1345 |
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1346 (defun flymake-get-buffer-last-change-time (buffer) |
58515 | 1347 (flymake-get-buffer-var buffer 'flymake-last-change-time)) |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1348 |
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1349 (defun flymake-set-buffer-last-change-time (buffer change-time) |
58515 | 1350 (flymake-set-buffer-var buffer 'flymake-last-change-time change-time)) |
55822 | 1351 |
1352 (defvar flymake-check-start-time nil | |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1353 "Time at which syntax check was started.") |
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1354 |
55822 | 1355 (make-variable-buffer-local 'flymake-check-start-time) |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1356 |
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1357 (defun flymake-get-buffer-check-start-time (buffer) |
58515 | 1358 (flymake-get-buffer-var buffer 'flymake-check-start-time)) |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1359 |
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1360 (defun flymake-set-buffer-check-start-time (buffer check-start-time) |
58515 | 1361 (flymake-set-buffer-var buffer 'flymake-check-start-time check-start-time)) |
55822 | 1362 |
1363 (defvar flymake-check-was-interrupted nil | |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1364 "t if syntax check was killed by flymake-compile") |
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1365 |
55822 | 1366 (make-variable-buffer-local 'flymake-check-was-interrupted) |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1367 |
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1368 (defun flymake-get-buffer-check-was-interrupted (buffer) |
58515 | 1369 (flymake-get-buffer-var buffer 'flymake-check-was-interrupted)) |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1370 |
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1371 (defun flymake-set-buffer-check-was-interrupted (buffer interrupted) |
58515 | 1372 (flymake-set-buffer-var buffer 'flymake-check-was-interrupted interrupted)) |
55822 | 1373 |
1374 (defcustom flymake-no-changes-timeout 0.5 | |
58515 | 1375 "Time to wait after last change before starting compilation." |
1376 :group 'flymake | |
1377 :type 'number) | |
55822 | 1378 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1379 (defun flymake-on-timer-event (buffer) |
58515 | 1380 "Start a syntax check for buffer BUFFER if necessary." |
1381 ;+(flymake-log 3 "timer: running=%s, time=%s, cur-time=%s" (flymake-get-buffer-is-running buffer) (flymake-get-buffer-last-change-time buffer) (flymake-float-time)) | |
1382 (when (and (bufferp buffer) (not (flymake-get-buffer-is-running buffer))) | |
1383 (save-excursion | |
1384 (set-buffer buffer) | |
1385 (when (and (flymake-get-buffer-last-change-time buffer) | |
1386 (> (flymake-float-time) (+ flymake-no-changes-timeout (flymake-get-buffer-last-change-time buffer)))) | |
1387 (flymake-set-buffer-last-change-time buffer nil) | |
1388 (flymake-log 3 "starting syntax check as more than 1 second passed since last change") | |
1389 (flymake-start-syntax-check buffer))))) | |
55822 | 1390 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1391 (defun flymake-start-syntax-check-for-current-buffer () |
58515 | 1392 "Run 'flymake-start-syntax-check' for current buffer if it isn't already running." |
1393 (interactive) | |
1394 (flymake-start-syntax-check (current-buffer))) | |
55822 | 1395 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1396 (defun flymake-current-line-no () |
58515 | 1397 "Return number of current line in current buffer." |
1398 (interactive) | |
1399 (let ((beg (point-min)) | |
1400 (end (if (= (point) (point-max)) (point) (1+ (point))))) | |
1401 (count-lines beg end))) | |
55822 | 1402 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1403 (defun flymake-get-line-count (buffer) |
58515 | 1404 "Return number of lines in buffer BUFFER." |
1405 (unless (bufferp buffer) | |
1406 (error "Invalid buffer")) | |
1407 (save-excursion | |
1408 (set-buffer buffer) | |
1409 (count-lines (point-min) (point-max)))) | |
55822 | 1410 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1411 (defun flymake-count-lines (buffer) |
58515 | 1412 "Return number of lines in buffer BUFFER." |
1413 (save-excursion | |
1414 (set-buffer buffer) | |
1415 (count-lines (point-min) (point-max)))) | |
55822 | 1416 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1417 (defun flymake-get-point-pixel-pos () |
58515 | 1418 "Return point position in pixels: (x, y)." |
1419 (let ((mouse-pos (mouse-position)) | |
1420 (pixel-pos nil) | |
1421 (ret nil)) | |
1422 (if (car (cdr mouse-pos)) | |
1423 (progn | |
1424 (set-mouse-position (flymake-selected-frame) (current-column) (flymake-current-row)) | |
1425 (setq pixel-pos (mouse-pixel-position)) | |
1426 (set-mouse-position (car mouse-pos) (car (cdr mouse-pos)) (cdr (cdr mouse-pos))) | |
1427 (setq ret (list (car (cdr pixel-pos)) (cdr (cdr pixel-pos))))) | |
1428 (progn | |
1429 (setq ret '(0 0)))) | |
1430 (flymake-log 3 "mouse pos is %s" ret) | |
1431 ret)) | |
55822 | 1432 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1433 (defun flymake-display-err-menu-for-current-line () |
58515 | 1434 "Display a menu with errors/warnings for current line if it has errors and/or warnings." |
1435 (interactive) | |
1436 (let* ((line-no (flymake-current-line-no)) | |
1437 (line-err-info-list (nth 0 (flymake-find-err-info (flymake-get-buffer-err-info (current-buffer)) line-no))) | |
1438 (menu-data (flymake-make-err-menu-data line-no line-err-info-list)) | |
1439 (choice nil) | |
1440 (mouse-pos (flymake-get-point-pixel-pos)) | |
1441 (moved-mouse-pos (list (car mouse-pos) (+ 10 (car (cdr mouse-pos))))) | |
1442 (menu-pos (list (flymake-get-point-pixel-pos) (selected-window)))) | |
1443 (if menu-data | |
1444 (progn | |
1445 (setq choice (flymake-popup-menu menu-pos menu-data)) | |
1446 (flymake-log 3 "choice=%s" choice) | |
1447 (when choice | |
1448 (eval choice))) | |
1449 (flymake-log 1 "no errors for line %d" line-no)))) | |
55822 | 1450 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1451 (defun flymake-make-err-menu-data (line-no line-err-info-list) |
58515 | 1452 "Make a (menu-title (item-title item-action)*) list with errors/warnings from line-err-info." |
1453 (let* ((menu-items nil)) | |
1454 (when line-err-info-list | |
1455 (let* ((count (length line-err-info-list)) | |
1456 (menu-item-text nil)) | |
1457 (while (> count 0) | |
1458 (setq menu-item-text (flymake-ler-get-text (nth (1- count) line-err-info-list))) | |
1459 (let* ((file (flymake-ler-get-file (nth (1- count) line-err-info-list))) | |
1460 (full-file (flymake-ler-get-full-file (nth (1- count) line-err-info-list))) | |
1461 (line (flymake-ler-get-line (nth (1- count) line-err-info-list)))) | |
1462 (if file | |
1463 (setq menu-item-text (concat menu-item-text " - " file "(" (format "%d" line) ")"))) | |
1464 (setq menu-items (cons (list menu-item-text | |
1465 (if file (list 'flymake-goto-file-and-line full-file line) nil)) | |
1466 menu-items))) | |
1467 (setq count (1- count))) | |
1468 (flymake-log 3 "created menu-items with %d item(s)" (length menu-items)))) | |
1469 (if menu-items | |
1470 (let* ((menu-title (format "Line %d: %d error(s), %d warning(s)" line-no | |
1471 (flymake-get-line-err-count line-err-info-list "e") | |
1472 (flymake-get-line-err-count line-err-info-list "w")))) | |
1473 (list menu-title menu-items)) | |
1474 nil))) | |
55822 | 1475 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1476 (defun flymake-goto-file-and-line (file line) |
58515 | 1477 "Try to get buffer for file and goto line line in it" |
1478 (if (not (file-exists-p file)) | |
1479 (flymake-log 1 "file %s does not exists" file) | |
1480 (progn | |
1481 (find-file file) | |
1482 (goto-line line)))) | |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1483 |
55822 | 1484 ;; flymake minor mode declarations |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1485 (defvar flymake-mode nil) |
55822 | 1486 |
1487 (make-variable-buffer-local 'flymake-mode) | |
1488 | |
1489 (defvar flymake-mode-line nil | |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1490 "") |
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1491 |
55822 | 1492 (make-variable-buffer-local 'flymake-mode-line) |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1493 |
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1494 (defun flymake-get-buffer-mode-line (buffer) |
58515 | 1495 (flymake-get-buffer-var buffer 'flymake-mode-line)) |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1496 |
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1497 (defun flymake-set-buffer-mode-line (buffer mode-line-string) |
58515 | 1498 (flymake-set-buffer-var buffer 'flymake-mode-line mode-line-string)) |
55822 | 1499 |
1500 (defvar flymake-mode-line-e-w nil) | |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1501 |
55822 | 1502 (make-variable-buffer-local 'flymake-mode-line-e-w) |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1503 |
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1504 (defun flymake-get-buffer-mode-line-e-w (buffer) |
58515 | 1505 (flymake-get-buffer-var buffer 'flymake-mode-line-e-w)) |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1506 |
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1507 (defun flymake-set-buffer-mode-line-e-w (buffer e-w) |
58515 | 1508 (flymake-set-buffer-var buffer 'flymake-mode-line-e-w e-w)) |
55822 | 1509 |
1510 (defvar flymake-mode-line-status nil) | |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1511 |
55822 | 1512 (make-variable-buffer-local 'flymake-mode-line-status) |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1513 |
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1514 (defun flymake-get-buffer-mode-line-status (buffer) |
58515 | 1515 (flymake-get-buffer-var buffer 'flymake-mode-line-status)) |
55822 | 1516 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1517 (defun flymake-set-buffer-mode-line-status (buffer status) |
58515 | 1518 (flymake-set-buffer-var buffer 'flymake-mode-line-status status)) |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1519 |
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1520 (defun flymake-report-status (buffer e-w &optional status) |
58515 | 1521 "Show status in mode line." |
1522 (when (bufferp buffer) | |
1523 (save-excursion | |
1524 (set-buffer buffer) | |
1525 (when e-w | |
1526 (flymake-set-buffer-mode-line-e-w buffer e-w) | |
1527 ) | |
1528 (when status | |
1529 (flymake-set-buffer-mode-line-status buffer status)) | |
1530 (let* ((mode-line " Flymake")) | |
1531 (when (> (length (flymake-get-buffer-mode-line-e-w buffer)) 0) | |
1532 (setq mode-line (concat mode-line ":" (flymake-get-buffer-mode-line-e-w buffer)))) | |
1533 (setq mode-line (concat mode-line (flymake-get-buffer-mode-line-status buffer))) | |
1534 (flymake-set-buffer-mode-line buffer mode-line) | |
1535 (force-mode-line-update))))) | |
55822 | 1536 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1537 (defun flymake-display-warning (warning) |
58515 | 1538 "Display a warning to user." |
1539 (message-box warning)) | |
55822 | 1540 |
1541 (defcustom flymake-gui-warnings-enabled t | |
58515 | 1542 "Enables/disables gui warnings." |
1543 :group 'flymake | |
1544 :type 'boolean) | |
55822 | 1545 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1546 (defun flymake-report-fatal-status (buffer status warning) |
58515 | 1547 "Display a warning and switch flymake mode off." |
1548 (when flymake-gui-warnings-enabled | |
1549 (flymake-display-warning (format "Flymake: %s. Flymake will be switched OFF" warning)) | |
1550 ) | |
1551 (save-excursion | |
1552 (set-buffer buffer) | |
1553 (flymake-mode 0) | |
1554 (flymake-log 0 "switched OFF Flymake mode for buffer %s due to fatal status %s, warning %s" | |
1555 (buffer-name buffer) status warning))) | |
55822 | 1556 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1557 (defun flymake-mode (&optional arg) |
58515 | 1558 "Toggle flymake mode on/off." |
1559 (interactive) | |
1560 (let ((old-flymake-mode flymake-mode) | |
1561 (turn-on nil)) | |
55822 | 1562 |
58515 | 1563 (setq turn-on |
1564 (if (null arg) | |
1565 (not flymake-mode) | |
1566 ;else | |
1567 (> (prefix-numeric-value arg) 0))) | |
55822 | 1568 |
58515 | 1569 (if turn-on |
1570 (if (flymake-can-syntax-check-file (buffer-file-name)) | |
1571 (flymake-mode-on) | |
1572 (flymake-log 2 "flymake cannot check syntax in buffer %s" (buffer-name))) | |
1573 (flymake-mode-off)) | |
1574 (force-mode-line-update))) | |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1575 |
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1576 (defcustom flymake-start-syntax-check-on-find-file t |
58515 | 1577 "Start syntax check on find file." |
1578 :group 'flymake | |
1579 :type 'boolean) | |
55822 | 1580 |
1581 ;;;###autoload | |
1582 (unless (assq 'flymake-mode minor-mode-alist) | |
58515 | 1583 (setq minor-mode-alist (cons '(flymake-mode flymake-mode-line) minor-mode-alist))) |
55822 | 1584 |
1585 ;;;###autoload | |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1586 (defun flymake-mode-on () |
58515 | 1587 "Turn flymake mode on." |
1588 (when (not flymake-mode) | |
1589 (make-local-variable 'after-change-functions) | |
1590 (setq after-change-functions (cons 'flymake-after-change-function after-change-functions)) | |
1591 (add-hook 'after-save-hook 'flymake-after-save-hook) | |
1592 (add-hook 'kill-buffer-hook 'flymake-kill-buffer-hook) | |
1593 ;+(add-hook 'find-file-hooks 'flymake-find-file-hook) | |
55822 | 1594 |
58515 | 1595 (flymake-report-status (current-buffer) "" "") |
55822 | 1596 |
58515 | 1597 (flymake-set-buffer-timer (current-buffer) (run-at-time nil 1 'flymake-on-timer-event (current-buffer))) |
55822 | 1598 |
58515 | 1599 (setq flymake-mode t) |
1600 (flymake-log 1 "flymake mode turned ON for buffer %s" (buffer-name (current-buffer))) | |
1601 (when flymake-start-syntax-check-on-find-file | |
1602 (flymake-start-syntax-check-for-current-buffer)))) ; will be started by on-load hook | |
55822 | 1603 |
1604 ;;;###autoload | |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1605 (defun flymake-mode-off () |
58515 | 1606 "Turn flymake mode off." |
1607 (when flymake-mode | |
1608 (setq after-change-functions (delq 'flymake-after-change-function after-change-functions)) | |
1609 (remove-hook 'after-save-hook (function flymake-after-save-hook) t) | |
1610 (remove-hook 'kill-buffer-hook (function flymake-kill-buffer-hook) t) | |
1611 ;+(remove-hook 'find-file-hooks (function flymake-find-file-hook) t) | |
55822 | 1612 |
58515 | 1613 (flymake-delete-own-overlays (current-buffer)) |
55822 | 1614 |
58515 | 1615 (when (flymake-get-buffer-timer (current-buffer)) |
1616 (cancel-timer (flymake-get-buffer-timer (current-buffer))) | |
1617 (flymake-set-buffer-timer (current-buffer) nil)) | |
55822 | 1618 |
58515 | 1619 (flymake-set-buffer-is-running (current-buffer) nil) |
55822 | 1620 |
58515 | 1621 (setq flymake-mode nil) |
1622 (flymake-log 1 "flymake mode turned OFF for buffer %s" (buffer-name (current-buffer))))) | |
55822 | 1623 |
1624 (defcustom flymake-start-syntax-check-on-newline t | |
58515 | 1625 "Start syntax check if newline char was added/removed from the buffer." |
1626 :group 'flymake | |
1627 :type 'boolean) | |
55822 | 1628 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1629 (defun flymake-after-change-function (start stop len) |
58515 | 1630 "Start syntax check for current buffer if it isn't already running" |
1631 ;+(flymake-log 0 "setting change time to %s" (flymake-float-time)) | |
1632 (let((new-text (buffer-substring start stop))) | |
1633 (when (and flymake-start-syntax-check-on-newline (equal new-text "\n")) | |
1634 (flymake-log 3 "starting syntax check as new-line has been seen") | |
1635 (flymake-start-syntax-check-for-current-buffer)) | |
1636 (flymake-set-buffer-last-change-time (current-buffer) (flymake-float-time)))) | |
55822 | 1637 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1638 (defun flymake-after-save-hook () |
58515 | 1639 (if (local-variable-p 'flymake-mode (current-buffer)) ; (???) other way to determine whether flymake is active in buffer being saved? |
1640 (progn | |
1641 (flymake-log 3 "starting syntax check as buffer was saved") | |
1642 (flymake-start-syntax-check-for-current-buffer)))) ; no more mode 3. cannot start check if mode 3 (to temp copies) is active - (???) | |
55822 | 1643 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1644 (defun flymake-kill-buffer-hook () |
58515 | 1645 (when (flymake-get-buffer-timer (current-buffer)) |
1646 (cancel-timer (flymake-get-buffer-timer (current-buffer))) | |
1647 (flymake-set-buffer-timer (current-buffer) nil))) | |
55822 | 1648 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1649 (defun flymake-find-file-hook () |
58515 | 1650 ;+(when flymake-start-syntax-check-on-find-file |
1651 ;+ (flymake-log 3 "starting syntax check on file open") | |
1652 ;+ (flymake-start-syntax-check-for-current-buffer) | |
1653 ;+) | |
1654 (when (and (not (local-variable-p 'flymake-mode (current-buffer))) | |
1655 (flymake-can-syntax-check-file (buffer-file-name (current-buffer)))) | |
1656 (flymake-mode) | |
1657 (flymake-log 3 "automatically turned ON flymake mode"))) | |
55822 | 1658 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1659 (defun flymake-get-first-err-line-no (err-info-list) |
58515 | 1660 "Return first line with error." |
1661 (when err-info-list | |
1662 (flymake-er-get-line (car err-info-list)))) | |
55822 | 1663 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1664 (defun flymake-get-last-err-line-no (err-info-list) |
58515 | 1665 "Return last line with error." |
1666 (when err-info-list | |
1667 (flymake-er-get-line (nth (1- (length err-info-list)) err-info-list)))) | |
55822 | 1668 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1669 (defun flymake-get-next-err-line-no (err-info-list line-no) |
58515 | 1670 "Return next line with error." |
1671 (when err-info-list | |
1672 (let* ((count (length err-info-list)) | |
1673 (idx 0)) | |
1674 (while (and (< idx count) (>= line-no (flymake-er-get-line (nth idx err-info-list)))) | |
1675 (setq idx (1+ idx))) | |
1676 (if (< idx count) | |
1677 (flymake-er-get-line (nth idx err-info-list)))))) | |
55822 | 1678 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1679 (defun flymake-get-prev-err-line-no (err-info-list line-no) |
58515 | 1680 "Return prev line with error." |
1681 (when err-info-list | |
1682 (let* ((count (length err-info-list))) | |
1683 (while (and (> count 0) (<= line-no (flymake-er-get-line (nth (1- count) err-info-list)))) | |
1684 (setq count (1- count))) | |
1685 (if (> count 0) | |
1686 (flymake-er-get-line (nth (1- count) err-info-list)))))) | |
55822 | 1687 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1688 (defun flymake-skip-whitespace () |
58515 | 1689 "Move forward until non-whitespace is reached." |
1690 (while (looking-at "[ \t]") | |
1691 (forward-char))) | |
55822 | 1692 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1693 (defun flymake-goto-line (line-no) |
58515 | 1694 "goto-line, then skip whitespace" |
1695 (goto-line line-no) | |
1696 (flymake-skip-whitespace)) | |
55822 | 1697 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1698 (defun flymake-goto-next-error () |
58515 | 1699 "go to next error in err ring" |
1700 (interactive) | |
1701 (let ((line-no (flymake-get-next-err-line-no (flymake-get-buffer-err-info (current-buffer)) (flymake-current-line-no)))) | |
1702 (when (not line-no) | |
1703 (setq line-no (flymake-get-first-err-line-no (flymake-get-buffer-err-info (current-buffer)))) | |
1704 (flymake-log 1 "passed end of file")) | |
1705 (if line-no | |
1706 (flymake-goto-line line-no) | |
1707 (flymake-log 1 "no errors in current buffer")))) | |
55822 | 1708 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1709 (defun flymake-goto-prev-error () |
58515 | 1710 "go to prev error in err ring" |
1711 (interactive) | |
1712 (let ((line-no (flymake-get-prev-err-line-no (flymake-get-buffer-err-info (current-buffer)) (flymake-current-line-no)))) | |
1713 (when (not line-no) | |
1714 (setq line-no (flymake-get-last-err-line-no (flymake-get-buffer-err-info (current-buffer)))) | |
1715 (flymake-log 1 "passed beginning of file")) | |
1716 (if line-no | |
1717 (flymake-goto-line line-no) | |
1718 (flymake-log 1 "no errors in current buffer")))) | |
55822 | 1719 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1720 (defun flymake-patch-err-text (string) |
58515 | 1721 (if (string-match "^[\n\t :0-9]*\\(.*\\)$" string) |
1722 (match-string 1 string) | |
1723 string)) | |
55822 | 1724 |
1725 ;;;; general init-cleanup and helper routines | |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1726 (defun flymake-create-temp-inplace (file-name prefix) |
58515 | 1727 (unless (stringp file-name) |
1728 (error "Invalid file-name")) | |
1729 (or prefix | |
1730 (setq prefix "flymake")) | |
1731 (let* ((temp-name (concat (file-name-sans-extension file-name) | |
1732 "_" prefix | |
1733 (and (file-name-extension file-name) | |
1734 (concat "." (file-name-extension file-name)))))) | |
1735 (flymake-log 3 "create-temp-inplace: file=%s temp=%s" file-name temp-name) | |
1736 temp-name)) | |
55822 | 1737 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1738 (defun flymake-create-temp-with-folder-structure (file-name prefix) |
58515 | 1739 (unless (stringp file-name) |
1740 (error "Invalid file-name")) | |
55822 | 1741 |
58515 | 1742 (let* ((dir (file-name-directory file-name)) |
1743 (slash-pos (string-match "/" dir)) | |
1744 (temp-dir (concat (flymake-ensure-ends-with-slash (flymake-get-temp-dir)) (substring dir (1+ slash-pos))))) | |
55822 | 1745 |
58515 | 1746 (file-truename (concat (flymake-ensure-ends-with-slash temp-dir) |
1747 (file-name-nondirectory file-name))))) | |
55822 | 1748 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1749 (defun flymake-strrchr (str ch) |
58515 | 1750 (let* ((count (length str)) |
1751 (pos nil)) | |
1752 (while (and (not pos) (> count 0)) | |
1753 (if (= ch (elt str (1- count))) | |
1754 (setq pos (1- count))) | |
1755 (setq count (1- count))) | |
1756 pos)) | |
55822 | 1757 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1758 (defun flymake-delete-temp-directory (dir-name) |
58515 | 1759 "attempt to delete temp dir created by flymake-create-temp-with-folder-structure, do not fail on error." |
1760 (let* ((temp-dir (flymake-get-temp-dir)) | |
1761 (suffix (substring dir-name (1+ (length temp-dir)))) | |
1762 (slash-pos nil)) | |
55822 | 1763 |
58515 | 1764 (while (> (length suffix) 0) |
1765 ;+(flymake-log 0 "suffix=%s" suffix) | |
1766 (flymake-safe-delete-directory (file-truename (concat (flymake-ensure-ends-with-slash temp-dir) suffix))) | |
1767 (setq slash-pos (flymake-strrchr suffix (string-to-char "/"))) | |
1768 (if slash-pos | |
1769 (setq suffix (substring suffix 0 slash-pos)) | |
1770 (setq suffix ""))))) | |
55822 | 1771 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1772 (defun flymake-init-create-temp-buffer-copy (buffer create-temp-f) |
58515 | 1773 "Make a temporary copy of the current buffer, save its name in buffer data and return the name." |
1774 (let* ((source-file-name (buffer-file-name buffer)) | |
1775 (temp-source-file-name (funcall create-temp-f source-file-name "flymake"))) | |
55822 | 1776 |
58515 | 1777 (flymake-save-buffer-in-file buffer temp-source-file-name) |
1778 (flymake-set-buffer-value buffer "temp-source-file-name" temp-source-file-name) | |
1779 temp-source-file-name)) | |
55822 | 1780 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1781 (defun flymake-simple-cleanup (buffer) |
58515 | 1782 "Do cleanup after 'flymake-init-create-temp-buffer-copy'. |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1783 Delete temp file." |
58515 | 1784 (let* ((temp-source-file-name (flymake-get-buffer-value buffer "temp-source-file-name"))) |
1785 (flymake-safe-delete-file temp-source-file-name) | |
1786 (flymake-set-buffer-last-change-time buffer nil))) | |
55822 | 1787 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1788 (defun flymake-get-real-file-name (buffer file-name-from-err-msg) |
58561 | 1789 "Translate file name from error message to `real' file name. |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1790 Return full-name. Names are real, not patched." |
58515 | 1791 (let* ((real-name nil) |
1792 (source-file-name (buffer-file-name buffer)) | |
1793 (master-file-name (flymake-get-buffer-value buffer "master-file-name")) | |
1794 (temp-source-file-name (flymake-get-buffer-value buffer "temp-source-file-name")) | |
1795 (temp-master-file-name (flymake-get-buffer-value buffer "temp-master-file-name")) | |
1796 (base-dirs (list (flymake-get-buffer-value buffer "base-dir") | |
1797 (file-name-directory source-file-name) | |
1798 (if master-file-name (file-name-directory master-file-name) nil))) | |
1799 (files (list (list source-file-name source-file-name) | |
1800 (list temp-source-file-name source-file-name) | |
1801 (list master-file-name master-file-name) | |
1802 (list temp-master-file-name master-file-name)))) | |
55822 | 1803 |
58515 | 1804 (when (equal 0 (length file-name-from-err-msg)) |
1805 (setq file-name-from-err-msg source-file-name)) | |
55822 | 1806 |
58515 | 1807 (setq real-name (flymake-get-full-patched-file-name file-name-from-err-msg base-dirs files)) |
1808 ; if real-name is nil, than file name from err msg is none of the files we've patched | |
1809 (if (not real-name) | |
1810 (setq real-name (flymake-get-full-nonpatched-file-name file-name-from-err-msg base-dirs))) | |
1811 (if (not real-name) | |
1812 (setq real-name file-name-from-err-msg)) | |
1813 (setq real-name (flymake-fix-file-name real-name)) | |
1814 (flymake-log 3 "get-real-file-name: file-name=%s real-name=%s" file-name-from-err-msg real-name) | |
1815 real-name)) | |
55822 | 1816 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1817 (defun flymake-get-full-patched-file-name (file-name-from-err-msg base-dirs files) |
58515 | 1818 (let* ((base-dirs-count (length base-dirs)) |
1819 (file-count (length files)) | |
1820 (real-name nil)) | |
55822 | 1821 |
58515 | 1822 (while (and (not real-name) (> base-dirs-count 0)) |
1823 (setq file-count (length files)) | |
1824 (while (and (not real-name) (> file-count 0)) | |
1825 (let* ((this-dir (nth (1- base-dirs-count) base-dirs)) | |
1826 (this-file (nth 0 (nth (1- file-count) files))) | |
1827 (this-real-name (nth 1 (nth (1- file-count) files)))) | |
1828 ;+(flymake-log 0 "this-dir=%s this-file=%s this-real=%s msg-file=%s" this-dir this-file this-real-name file-name-from-err-msg) | |
1829 (when (and this-dir this-file (flymake-same-files | |
1830 (flymake-get-absolute-file-name-basedir file-name-from-err-msg this-dir) | |
1831 this-file)) | |
1832 (setq real-name this-real-name))) | |
1833 (setq file-count (1- file-count))) | |
1834 (setq base-dirs-count (1- base-dirs-count))) | |
1835 real-name)) | |
55822 | 1836 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1837 (defun flymake-get-full-nonpatched-file-name (file-name-from-err-msg base-dirs) |
58515 | 1838 (let* ((real-name nil)) |
1839 (if (file-name-absolute-p file-name-from-err-msg) | |
1840 (setq real-name file-name-from-err-msg) | |
1841 (let* ((base-dirs-count (length base-dirs))) | |
1842 (while (and (not real-name) (> base-dirs-count 0)) | |
1843 (let* ((full-name (flymake-get-absolute-file-name-basedir file-name-from-err-msg | |
1844 (nth (1- base-dirs-count) base-dirs)))) | |
1845 (if (file-exists-p full-name) | |
1846 (setq real-name full-name)) | |
1847 (setq base-dirs-count (1- base-dirs-count)))))) | |
1848 real-name)) | |
55822 | 1849 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1850 (defun flymake-get-absolute-file-name-basedir (file-name dir-name) |
58515 | 1851 (if (file-name-absolute-p file-name) |
1852 file-name | |
1853 (concat dir-name "/" file-name))) | |
55822 | 1854 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1855 (defun flymake-init-find-buildfile-dir (buffer source-file-name buildfile-name) |
58515 | 1856 "Find buildfile, store its dir in buffer data and return its dir, if found." |
1857 (let* ((buildfile-dir (flymake-find-buildfile buildfile-name | |
1858 (file-name-directory source-file-name) | |
1859 flymake-buildfile-dirs))) | |
1860 (if (not buildfile-dir) | |
1861 (progn | |
1862 (flymake-log 1 "no buildfile (%s) for %s" buildfile-name source-file-name) | |
1863 (flymake-report-fatal-status buffer "NOMK" (format "No buildfile (%s) found for %s" buildfile-name source-file-name)) | |
1864 ) | |
1865 (progn | |
1866 (flymake-set-buffer-value buffer "base-dir" buildfile-dir))) | |
1867 buildfile-dir)) | |
55822 | 1868 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1869 (defun flymake-init-create-temp-source-and-master-buffer-copy (buffer get-incl-dirs-f create-temp-f master-file-masks include-regexp-list) |
58515 | 1870 "Find master file (or buffer), create it's copy along with a copy of the source file." |
1871 (let* ((source-file-name (buffer-file-name buffer)) | |
1872 (temp-source-file-name (flymake-init-create-temp-buffer-copy buffer create-temp-f)) | |
1873 (master-file-name nil) | |
1874 (temp-master-file-name nil) | |
1875 (master-and-temp-master (flymake-create-master-file | |
1876 source-file-name temp-source-file-name | |
1877 get-incl-dirs-f create-temp-f | |
1878 master-file-masks include-regexp-list))) | |
55822 | 1879 |
58515 | 1880 (if (not master-and-temp-master) |
1881 (progn | |
1882 (flymake-log 1 "cannot find master file for %s" source-file-name) | |
1883 (flymake-report-status buffer "!" "") ; NOMASTER | |
1884 ) | |
1885 (progn | |
1886 (setq master-file-name (nth 0 master-and-temp-master)) | |
1887 (setq temp-master-file-name (nth 1 master-and-temp-master)) | |
1888 (flymake-set-buffer-value buffer "master-file-name" master-file-name) | |
1889 (flymake-set-buffer-value buffer "temp-master-file-name" temp-master-file-name) | |
1890 )) | |
1891 temp-master-file-name)) | |
55822 | 1892 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1893 (defun flymake-master-cleanup (buffer) |
58515 | 1894 (flymake-simple-cleanup buffer) |
1895 (flymake-safe-delete-file (flymake-get-buffer-value buffer "temp-master-file-name"))) | |
55822 | 1896 |
1897 ;;;; make-specific init-cleanup routines | |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1898 (defun flymake-get-syntax-check-program-args (source-file-name base-dir use-relative-base-dir use-relative-source get-cmd-line-f) |
58515 | 1899 "Create a command line for syntax check using GET-CMD-LINE-F." |
1900 (let* ((my-base-dir base-dir) | |
1901 (my-source source-file-name)) | |
55822 | 1902 |
58515 | 1903 (when use-relative-base-dir |
1904 (setq my-base-dir (flymake-build-relative-filename (file-name-directory source-file-name) base-dir))) | |
55822 | 1905 |
58515 | 1906 (when use-relative-source |
1907 (setq my-source (concat (flymake-build-relative-filename base-dir (file-name-directory source-file-name)) | |
1908 (file-name-nondirectory source-file-name)))) | |
1909 (funcall get-cmd-line-f my-source my-base-dir))) | |
55822 | 1910 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1911 (defun flymake-get-make-cmdline (source base-dir) |
58515 | 1912 (list "make" |
1913 (list "-s" | |
1914 "-C" | |
1915 base-dir | |
1916 (concat "CHK_SOURCES=" source) | |
1917 "SYNTAX_CHECK_MODE=1" | |
1918 "check-syntax"))) | |
55822 | 1919 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1920 (defun flymake-get-ant-cmdline (source base-dir) |
58515 | 1921 (list "ant" |
1922 (list "-buildfile" | |
1923 (concat base-dir "/" "build.xml") | |
1924 (concat "-DCHK_SOURCES=" source) | |
1925 "check-syntax"))) | |
55822 | 1926 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1927 (defun flymake-simple-make-init-impl (buffer create-temp-f use-relative-base-dir use-relative-source build-file-name get-cmdline-f) |
58515 | 1928 "Create syntax check command line for a directly checked source file. |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1929 Use CREATE-TEMP-F for creating temp copy." |
58515 | 1930 (let* ((args nil) |
1931 (source-file-name (buffer-file-name buffer)) | |
1932 (buildfile-dir (flymake-init-find-buildfile-dir buffer source-file-name build-file-name))) | |
1933 (if buildfile-dir | |
1934 (let* ((temp-source-file-name (flymake-init-create-temp-buffer-copy buffer create-temp-f))) | |
1935 (setq args (flymake-get-syntax-check-program-args temp-source-file-name buildfile-dir | |
1936 use-relative-base-dir use-relative-source | |
1937 get-cmdline-f)))) | |
1938 args)) | |
55822 | 1939 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1940 (defun flymake-simple-make-init (buffer) |
58515 | 1941 (flymake-simple-make-init-impl buffer 'flymake-create-temp-inplace t t "Makefile" 'flymake-get-make-cmdline)) |
55822 | 1942 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1943 (defun flymake-master-make-init (buffer get-incl-dirs-f master-file-masks include-regexp-list) |
58515 | 1944 "create make command line for a source file checked via master file compilation" |
1945 (let* ((make-args nil) | |
1946 (temp-master-file-name (flymake-init-create-temp-source-and-master-buffer-copy | |
1947 buffer get-incl-dirs-f 'flymake-create-temp-inplace | |
1948 master-file-masks include-regexp-list))) | |
1949 (when temp-master-file-name | |
1950 (let* ((buildfile-dir (flymake-init-find-buildfile-dir buffer temp-master-file-name "Makefile"))) | |
1951 (if buildfile-dir | |
1952 (setq make-args (flymake-get-syntax-check-program-args | |
1953 temp-master-file-name buildfile-dir nil nil 'flymake-get-make-cmdline))))) | |
1954 make-args)) | |
55822 | 1955 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1956 (defun flymake-find-make-buildfile (source-dir) |
58515 | 1957 (flymake-find-buildfile "Makefile" source-dir flymake-buildfile-dirs)) |
55822 | 1958 |
1959 ;;;; .h/make specific | |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1960 (defun flymake-master-make-header-init (buffer) |
58515 | 1961 (flymake-master-make-init buffer |
1962 'flymake-get-include-dirs | |
1963 '(".+\\.cpp$" ".+\\.c$") | |
1964 '("[ \t]*#[ \t]*include[ \t]*\"\\([\w0-9/\\_\.]*[/\\]*\\)\\(%s\\)\"" 1 2))) | |
55822 | 1965 |
1966 ;;;; .java/make specific | |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1967 (defun flymake-simple-make-java-init (buffer) |
58515 | 1968 (flymake-simple-make-init-impl buffer 'flymake-create-temp-with-folder-structure nil nil "Makefile" 'flymake-get-make-cmdline)) |
55822 | 1969 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1970 (defun flymake-simple-ant-java-init (buffer) |
58515 | 1971 (flymake-simple-make-init-impl buffer 'flymake-create-temp-with-folder-structure nil nil "build.xml" 'flymake-get-ant-cmdline)) |
55822 | 1972 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1973 (defun flymake-simple-java-cleanup (buffer) |
58515 | 1974 "cleanup after flymake-simple-make-java-init -- delete temp file and dirs" |
1975 (let* ((temp-source-file-name (flymake-get-buffer-value buffer "temp-source-file-name"))) | |
1976 (flymake-safe-delete-file temp-source-file-name) | |
1977 (when temp-source-file-name | |
1978 (flymake-delete-temp-directory (file-name-directory temp-source-file-name))))) | |
55822 | 1979 |
1980 ;;;; perl-specific init-cleanup routines | |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1981 (defun flymake-perl-init (buffer) |
58515 | 1982 (let* ((temp-file (flymake-init-create-temp-buffer-copy buffer 'flymake-create-temp-inplace)) |
1983 (local-file (concat (flymake-build-relative-filename (file-name-directory (buffer-file-name (current-buffer))) | |
1984 (file-name-directory temp-file)) | |
1985 (file-name-nondirectory temp-file)))) | |
1986 (list "perl" (list "-wc " local-file)))) | |
55822 | 1987 |
1988 ;;;; tex-specific init-cleanup routines | |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1989 (defun flymake-get-tex-args (file-name) |
58515 | 1990 ;(list "latex" (list "-c-style-errors" file-name)) |
1991 (list "texify" (list "--pdf" "--tex-option=-c-style-errors" file-name))) | |
55822 | 1992 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1993 (defun flymake-simple-tex-init (buffer) |
58515 | 1994 (flymake-get-tex-args (flymake-init-create-temp-buffer-copy buffer 'flymake-create-temp-inplace))) |
55822 | 1995 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
1996 (defun flymake-master-tex-init (buffer) |
58515 | 1997 (let* ((temp-master-file-name (flymake-init-create-temp-source-and-master-buffer-copy |
1998 buffer 'flymake-get-include-dirs-dot 'flymake-create-temp-inplace | |
1999 '(".+\\.tex$") | |
2000 '("[ \t]*\\input[ \t]*{\\(.*\\)\\(%s\\)}" 1 2)))) | |
2001 (when temp-master-file-name | |
2002 (flymake-get-tex-args temp-master-file-name)))) | |
55822 | 2003 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
2004 (defun flymake-get-include-dirs-dot (base-dir) |
58515 | 2005 '(".")) |
55822 | 2006 |
2007 ;;;; xml-specific init-cleanup routines | |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
2008 (defun flymake-xml-init(buffer) |
58515 | 2009 (list "xml" (list "val" (flymake-init-create-temp-buffer-copy buffer 'flymake-create-temp-inplace)))) |
55822 | 2010 |
58514
287d0425c18a
Much whitespace and capitalization change.
Richard M. Stallman <rms@gnu.org>
parents:
57847
diff
changeset
|
2011 (provide 'flymake) |
55822 | 2012 |
55843
26e0724718e2
Changes from arch/CVS synchronization
Miles Bader <miles@gnu.org>
parents:
55822
diff
changeset
|
2013 ;;; arch-tag: 8f0d6090-061d-4cac-8862-7c151c4a02dd |
55822 | 2014 ;;; flymake.el ends here |