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
|
|
35 ;;;_* Provide
|
|
36 (provide 'flymake)
|
|
37
|
|
38 ;;;; [[ Overlay compatibility
|
|
39 (autoload 'make-overlay "overlay" "Overlay compatibility kit." t)
|
|
40 (autoload 'overlayp "overlay" "Overlay compatibility kit." t)
|
|
41 (autoload 'overlays-in "overlay" "Overlay compatibility kit." t)
|
|
42 (autoload 'delete-overlay "overlay" "Overlay compatibility kit." t)
|
|
43 (autoload 'overlay-put "overlay" "Overlay compatibility kit." t)
|
|
44 (autoload 'overlay-get "overlay" "Overlay compatibility kit." t)
|
|
45 ;;;; ]]
|
|
46
|
|
47 ;;;; [[ cross-emacs compatibility routines
|
|
48 (defvar flymake-emacs
|
|
49 (cond
|
|
50 ((string-match "XEmacs" emacs-version) 'xemacs)
|
|
51 (t 'emacs)
|
|
52 )
|
|
53 "Currently used emacs flavor"
|
|
54 )
|
|
55
|
|
56 (defun flymake-makehash(&optional test)
|
|
57 (cond
|
|
58 ((equal flymake-emacs 'xemacs) (if test (make-hash-table :test test) (make-hash-table)))
|
|
59 (t (makehash test))
|
|
60 )
|
|
61 )
|
|
62
|
|
63 (defun flymake-time-to-float(&optional tm)
|
|
64 "Convert `current-time` to a float number of seconds."
|
|
65 (multiple-value-bind (s0 s1 s2) (or tm (current-time))
|
|
66 (+ (* (float (ash 1 16)) s0) (float s1) (* 0.0000001 s2)))
|
|
67 )
|
|
68 (defun flymake-float-time()
|
|
69 (cond
|
|
70 ((equal flymake-emacs 'xemacs) (flymake-time-to-float (current-time)))
|
|
71 (t (float-time))
|
|
72 )
|
|
73 )
|
|
74
|
|
75 (defun flymake-replace-regexp-in-string(regexp rep str)
|
|
76 (cond
|
|
77 ((equal flymake-emacs 'xemacs) (replace-in-string str regexp rep))
|
|
78 (t (replace-regexp-in-string regexp rep str))
|
|
79 )
|
|
80 )
|
|
81
|
|
82 (defun flymake-split-string-remove-empty-edges(str pattern)
|
|
83 "split, then remove first and/or last in case it's empty"
|
|
84 (let* ((splitted (split-string str pattern)))
|
|
85 (if (and (> (length splitted) 0) (= 0 (length (elt splitted 0))))
|
|
86 (setq splitted (cdr splitted))
|
|
87 )
|
|
88 (if (and (> (length splitted) 0) (= 0 (length (elt splitted (1- (length splitted))))))
|
|
89 (setq splitted (reverse (cdr (reverse splitted))))
|
|
90 )
|
|
91 splitted
|
|
92 )
|
|
93 )
|
|
94 (defun flymake-split-string(str pattern)
|
|
95 (cond
|
|
96 ((equal flymake-emacs 'xemacs) (flymake-split-string-remove-empty-edges str pattern))
|
|
97 (t (split-string str pattern))
|
|
98 )
|
|
99 )
|
|
100
|
|
101 (defun flymake-get-temp-dir()
|
|
102 (cond
|
|
103 ((equal flymake-emacs 'xemacs) (temp-directory))
|
|
104 (t temporary-file-directory)
|
|
105 )
|
|
106 )
|
|
107
|
|
108 (defun flymake-line-beginning-position()
|
|
109 (save-excursion
|
|
110 (beginning-of-line)
|
|
111 (point)
|
|
112 )
|
|
113 )
|
|
114
|
|
115 (defun flymake-line-end-position()
|
|
116 (save-excursion
|
|
117 (end-of-line)
|
|
118 (point)
|
|
119 )
|
|
120 )
|
|
121
|
|
122 (defun flymake-popup-menu(pos menu-data)
|
|
123 (cond
|
|
124 ((equal flymake-emacs 'xemacs)
|
|
125 (let* ((x-pos (nth 0 (nth 0 pos)))
|
|
126 (y-pos (nth 1 (nth 0 pos)))
|
|
127 (fake-event-props '(button 1 x 1 y 1)))
|
|
128 (setq fake-event-props (plist-put fake-event-props 'x x-pos))
|
|
129 (setq fake-event-props (plist-put fake-event-props 'y y-pos))
|
|
130 (popup-menu (flymake-make-xemacs-menu menu-data) (make-event 'button-press fake-event-props))
|
|
131 )
|
|
132 )
|
|
133 (t (x-popup-menu pos (flymake-make-emacs-menu menu-data)))
|
|
134 )
|
|
135 )
|
|
136
|
|
137 (defun flymake-make-emacs-menu(menu-data)
|
|
138 (let* ((menu-title (nth 0 menu-data))
|
|
139 (menu-items (nth 1 menu-data))
|
|
140 (menu-commands nil))
|
|
141
|
|
142 (setq menu-commands (mapcar (lambda (foo)
|
|
143 (cons (nth 0 foo) (nth 1 foo)))
|
|
144 menu-items))
|
|
145 (list menu-title (cons "" menu-commands))
|
|
146 )
|
|
147 )
|
|
148
|
|
149 (defun flymake-nop()
|
|
150 )
|
|
151
|
|
152 (defun flymake-make-xemacs-menu(menu-data)
|
|
153 (let* ((menu-title (nth 0 menu-data))
|
|
154 (menu-items (nth 1 menu-data))
|
|
155 (menu-commands nil))
|
|
156 (setq menu-commands (mapcar (lambda (foo)
|
|
157 (vector (nth 0 foo) (or (nth 1 foo) '(flymake-nop)) t))
|
|
158 menu-items))
|
|
159 (cons menu-title menu-commands)
|
|
160 )
|
|
161 )
|
|
162
|
|
163 (defun flymake-xemacs-window-edges(&optional window)
|
|
164 (let ((edges (window-pixel-edges window))
|
|
165 tmp)
|
|
166 (setq tmp edges)
|
|
167 (setcar tmp (/ (car tmp) (face-width 'default)))
|
|
168 (setq tmp (cdr tmp))
|
|
169 (setcar tmp (/ (car tmp) (face-height 'default)))
|
|
170 (setq tmp (cdr tmp))
|
|
171 (setcar tmp (/ (car tmp) (face-width 'default)))
|
|
172 (setq tmp (cdr tmp))
|
|
173 (setcar tmp (/ (car tmp) (face-height 'default)))
|
|
174 edges
|
|
175 )
|
|
176 )
|
|
177
|
|
178 (defun flymake-current-row()
|
|
179 "return current row in current frame"
|
|
180 (cond
|
|
181 ((equal flymake-emacs 'xemacs) (count-lines (window-start) (point)))
|
|
182 (t (+ (car (cdr (window-edges))) (count-lines (window-start) (point))))
|
|
183 )
|
|
184 )
|
|
185
|
|
186 (defun flymake-selected-frame()
|
|
187 (cond
|
|
188 ((equal flymake-emacs 'xemacs) (selected-window))
|
|
189 (t (selected-frame))
|
|
190 )
|
|
191 )
|
|
192
|
|
193 ;;;; ]]
|
|
194
|
|
195 (defcustom flymake-log-level -1
|
|
196 "Logging level, only messages with level > flymake-log-level will not be logged
|
|
197 -1 = NONE, 0 = ERROR, 1 = WARNING, 2 = INFO, 3 = DEBUG"
|
|
198 :group 'flymake
|
|
199 :type 'integer
|
|
200 )
|
|
201
|
|
202 (defun flymake-log(level text &rest args)
|
|
203 "Log a message with optional arguments"
|
|
204 (if (<= level flymake-log-level)
|
|
205 (let* ((msg (apply 'format text args)))
|
|
206 (message msg)
|
|
207 ;(with-temp-buffer
|
|
208 ; (insert msg)
|
|
209 ; (insert "\n")
|
|
210 ; (flymake-save-buffer-in-file (current-buffer) "d:/flymake.log" t) ; make log file name customizable
|
|
211 ;)
|
|
212 )
|
|
213 )
|
|
214 )
|
|
215
|
|
216 (defun flymake-ins-after(list pos val)
|
|
217 "insert val into list after position pos"
|
|
218 (let ((tmp (copy-sequence list))) ; (???)
|
|
219 (setcdr (nthcdr pos tmp) (cons val (nthcdr (1+ pos) tmp)))
|
|
220 tmp
|
|
221 )
|
|
222 )
|
|
223
|
|
224 (defun flymake-set-at(list pos val)
|
|
225 "set val at position pos in list"
|
|
226 (let ((tmp (copy-sequence list))) ; (???)
|
|
227 (setcar (nthcdr pos tmp) val)
|
|
228 tmp
|
|
229 )
|
|
230 )
|
|
231
|
|
232 (defvar flymake-pid-to-names(flymake-makehash)
|
|
233 "pid -> source buffer name, output file name mapping"
|
|
234 )
|
|
235
|
|
236 (defun flymake-reg-names(pid source-buffer-name)
|
|
237 "Save into in pid map"
|
|
238 (unless (stringp source-buffer-name)
|
|
239 (error "invalid buffer name")
|
|
240 )
|
|
241 (puthash pid (list source-buffer-name) flymake-pid-to-names)
|
|
242 )
|
|
243
|
|
244 (defun flymake-get-source-buffer-name(pid)
|
|
245 "Return buffer name stored in pid map"
|
|
246 (nth 0 (gethash pid flymake-pid-to-names))
|
|
247 )
|
|
248
|
|
249 (defun flymake-unreg-names(pid)
|
|
250 "Delete pid->buffer name mapping"
|
|
251 (remhash pid flymake-pid-to-names)
|
|
252 )
|
|
253
|
|
254 (defun flymake-get-buffer-var(buffer var-name)
|
|
255 "switch to buffer if necessary and return local variable var"
|
|
256 (unless (bufferp buffer)
|
|
257 (error "invalid buffer")
|
|
258 )
|
|
259
|
|
260 (if (eq buffer (current-buffer))
|
|
261 (symbol-value var-name)
|
|
262 ;else
|
|
263 (save-excursion
|
|
264 (set-buffer buffer)
|
|
265 (symbol-value var-name)
|
|
266 )
|
|
267 )
|
|
268 )
|
|
269
|
|
270 (defun flymake-set-buffer-var(buffer var-name var-value)
|
|
271 "switch to buffer if necessary and set local variable var-name to var-value"
|
|
272 (unless (bufferp buffer)
|
|
273 (error "invalid buffer")
|
|
274 )
|
|
275
|
|
276 (if (eq buffer (current-buffer))
|
|
277 (set var-name var-value)
|
|
278 ;else
|
|
279 (save-excursion
|
|
280 (set-buffer buffer)
|
|
281 (set var-name var-value)
|
|
282 )
|
|
283 )
|
|
284 )
|
|
285
|
|
286 (defvar flymake-buffer-data(flymake-makehash)
|
|
287 "data specific to syntax check tool, in name-value pairs"
|
|
288 )
|
|
289 (make-variable-buffer-local 'flymake-buffer-data)
|
|
290 (defun flymake-get-buffer-data(buffer)
|
|
291 (flymake-get-buffer-var buffer 'flymake-buffer-data)
|
|
292 )
|
|
293 (defun flymake-set-buffer-data(buffer data)
|
|
294 (flymake-set-buffer-var buffer 'flymake-buffer-data data)
|
|
295 )
|
|
296 (defun flymake-get-buffer-value(buffer name)
|
|
297 (gethash name (flymake-get-buffer-data buffer))
|
|
298 )
|
|
299 (defun flymake-set-buffer-value(buffer name value)
|
|
300 (puthash name value (flymake-get-buffer-data buffer))
|
|
301 )
|
|
302
|
|
303 (defvar flymake-output-residual nil
|
|
304 ""
|
|
305 )
|
|
306 (make-variable-buffer-local 'flymake-output-residual)
|
|
307 (defun flymake-get-buffer-output-residual(buffer)
|
|
308 (flymake-get-buffer-var buffer 'flymake-output-residual)
|
|
309 )
|
|
310 (defun flymake-set-buffer-output-residual(buffer residual)
|
|
311 (flymake-set-buffer-var buffer 'flymake-output-residual residual)
|
|
312 )
|
|
313
|
|
314 (defcustom flymake-allowed-file-name-masks '((".+\\.c$" flymake-simple-make-init flymake-simple-cleanup flymake-get-real-file-name)
|
|
315 (".+\\.cpp$" flymake-simple-make-init flymake-simple-cleanup flymake-get-real-file-name)
|
|
316 (".+\\.xml$" flymake-xml-init flymake-simple-cleanup flymake-get-real-file-name)
|
|
317 (".+\\.html?$" flymake-xml-init flymake-simple-cleanup flymake-get-real-file-name)
|
|
318 (".+\\.cs$" flymake-simple-make-init flymake-simple-cleanup flymake-get-real-file-name)
|
|
319 (".+\\.pl$" flymake-perl-init flymake-simple-cleanup flymake-get-real-file-name)
|
|
320 (".+\\.h$" flymake-master-make-header-init flymake-master-cleanup flymake-get-real-file-name)
|
|
321 (".+\\.java$" flymake-simple-make-java-init flymake-simple-java-cleanup flymake-get-real-file-name)
|
|
322 (".+[0-9]+\\.tex$" flymake-master-tex-init flymake-master-cleanup flymake-get-real-file-name)
|
|
323 (".+\\.tex$" flymake-simple-tex-init flymake-simple-cleanup flymake-get-real-file-name)
|
|
324 (".+\\.idl$" flymake-simple-make-init flymake-simple-cleanup flymake-get-real-file-name)
|
|
325 ; (".+\\.cpp$" 1)
|
|
326 ; (".+\\.java$" 3)
|
|
327 ; (".+\\.h$" 2 (".+\\.cpp$" ".+\\.c$")
|
|
328 ; ("[ \t]*#[ \t]*include[ \t]*\"\\([\w0-9/\\_\.]*[/\\]*\\)\\(%s\\)\"" 1 2))
|
|
329 ; (".+\\.idl$" 1)
|
|
330 ; (".+\\.odl$" 1)
|
|
331 ; (".+[0-9]+\\.tex$" 2 (".+\\.tex$")
|
|
332 ; ("[ \t]*\\input[ \t]*{\\(.*\\)\\(%s\\)}" 1 2 ))
|
|
333 ; (".+\\.tex$" 1)
|
|
334 )
|
|
335 "*Files syntax checking is allowed for"
|
|
336 :group 'flymake
|
|
337 :type '(repeat (string symbol symbol symbol))
|
|
338 )
|
|
339
|
|
340 (defun flymake-get-file-name-mode-and-masks(file-name)
|
|
341 "return the corresponding entry from flymake-allowed-file-name-masks"
|
|
342 (unless (stringp file-name)
|
|
343 (error "invalid file-name")
|
|
344 )
|
|
345 (let ((count (length flymake-allowed-file-name-masks))
|
|
346 (idx 0)
|
|
347 (mode-and-masks nil))
|
|
348 (while (and (not mode-and-masks) (< idx count))
|
|
349 (if (string-match (nth 0 (nth idx flymake-allowed-file-name-masks)) file-name)
|
|
350 (setq mode-and-masks (cdr (nth idx flymake-allowed-file-name-masks)))
|
|
351 )
|
|
352 (setq idx (1+ idx))
|
|
353 )
|
|
354 (flymake-log 3 "file %s, init=%s" file-name (car mode-and-masks))
|
|
355 mode-and-masks
|
|
356 )
|
|
357 )
|
|
358
|
|
359 (defun flymake-can-syntax-check-file(file-name)
|
|
360 "Determine whether we can syntax check file-name: nil if cannot, non-nil if can"
|
|
361 (if (flymake-get-init-function file-name)
|
|
362 t
|
|
363 ;else
|
|
364 nil
|
|
365 )
|
|
366 )
|
|
367
|
|
368 (defun flymake-get-init-function(file-name)
|
|
369 "return init function to be used for the file"
|
|
370 (let* ((init-f (nth 0 (flymake-get-file-name-mode-and-masks file-name))))
|
|
371 ;(flymake-log 0 "calling %s" init-f)
|
|
372 ;(funcall init-f (current-buffer))
|
|
373 )
|
|
374 (nth 0 (flymake-get-file-name-mode-and-masks file-name))
|
|
375 )
|
|
376
|
|
377 (defun flymake-get-cleanup-function(file-name)
|
|
378 "return cleanup function to be used for the file"
|
|
379 (nth 1 (flymake-get-file-name-mode-and-masks file-name))
|
|
380 )
|
|
381
|
|
382 (defun flymake-get-real-file-name-function(file-name)
|
|
383 ""
|
|
384 (or (nth 2 (flymake-get-file-name-mode-and-masks file-name)) 'flymake-get-real-file-name)
|
|
385 )
|
|
386
|
|
387 (defcustom flymake-buildfile-dirs '("." ".." "../.." "../../.." "../../../.." "../../../../.." "../../../../../.." "../../../../../../.." "../../../../../../../.." "../../../../../../../../.." "../../../../../../../../../.." "../../../../../../../../../../..")
|
|
388 "dirs to look for buildfile"
|
|
389 :group 'flymake
|
|
390 :type '(repeat (string))
|
|
391 )
|
|
392
|
|
393 (defvar flymake-find-buildfile-cache (flymake-makehash 'equal))
|
|
394 (defun flymake-get-buildfile-from-cache(dir-name)
|
|
395 (gethash dir-name flymake-find-buildfile-cache)
|
|
396 )
|
|
397 (defun flymake-add-buildfile-to-cache(dir-name buildfile)
|
|
398 (puthash dir-name buildfile flymake-find-buildfile-cache)
|
|
399 )
|
|
400 (defun flymake-clear-buildfile-cache()
|
|
401 (clrhash flymake-find-buildfile-cache)
|
|
402 )
|
|
403
|
|
404 (defun flymake-find-buildfile(buildfile-name source-dir-name dirs)
|
|
405 "find buildfile (i.e. Makefile, build.xml, etc.) starting from current directory. Return its path or nil if not found"
|
|
406 (if (flymake-get-buildfile-from-cache source-dir-name)
|
|
407 (progn
|
|
408 (flymake-get-buildfile-from-cache source-dir-name)
|
|
409 )
|
|
410 ;else
|
|
411 (let* ((buildfile-dir nil)
|
|
412 (buildfile nil)
|
|
413 (dir-count (length dirs))
|
|
414 (dir-idx 0)
|
|
415 (found nil))
|
|
416
|
|
417 (while (and (not found) (< dir-idx dir-count))
|
|
418
|
|
419 (setq buildfile-dir (concat source-dir-name (nth dir-idx dirs)))
|
|
420 (setq buildfile (concat buildfile-dir "/" buildfile-name))
|
|
421
|
|
422 (when (file-exists-p buildfile)
|
|
423 (setq found t)
|
|
424 )
|
|
425
|
|
426 (setq dir-idx (1+ dir-idx))
|
|
427 )
|
|
428 (if found
|
|
429 (progn
|
|
430 (flymake-log 3 "found buildfile at %s/%s" buildfile-dir buildfile-name)
|
|
431 (flymake-add-buildfile-to-cache source-dir-name buildfile-dir)
|
|
432 buildfile-dir
|
|
433 )
|
|
434 ;else
|
|
435 (progn
|
|
436 (flymake-log 3 "buildfile for %s not found" source-dir-name)
|
|
437 nil
|
|
438 )
|
|
439 )
|
|
440 )
|
|
441 )
|
|
442 )
|
|
443
|
|
444 (defun flymake-fix-path-name(name)
|
|
445 "replace all occurences of '\' with '/'"
|
|
446 (when name
|
|
447 (let* ((new-name (flymake-replace-regexp-in-string "[\\]" "/" (expand-file-name name)))
|
|
448 (last-char (elt new-name (1- (length new-name)))))
|
|
449 (setq new-name (flymake-replace-regexp-in-string "\\./" "" new-name))
|
|
450 (if (equal "/" (char-to-string last-char))
|
|
451 (setq new-name (substring new-name 0 (1- (length new-name))))
|
|
452 )
|
|
453 new-name
|
|
454 )
|
|
455 )
|
|
456 )
|
|
457
|
|
458 (defun flymake-same-files(file-name-one file-name-two)
|
|
459 "t if file-name-one and file-name-two actually point to the same file"
|
|
460 (equal (flymake-fix-path-name file-name-one) (flymake-fix-path-name file-name-two))
|
|
461 )
|
|
462
|
|
463 (defun flymake-ensure-ends-with-slash(path)
|
|
464 (if (not (= (elt path (1- (length path))) (string-to-char "/")))
|
|
465 (concat path "/")
|
|
466 ;else
|
|
467 path
|
|
468 )
|
|
469 )
|
|
470
|
|
471 (defun flymake-get-common-path-prefix(string-one string-two)
|
|
472 "return common prefix for two paths"
|
|
473 (when (and string-one string-two)
|
|
474 (let* ((slash-pos-one -1)
|
|
475 (slash-pos-two -1)
|
|
476 (done nil)
|
|
477 (prefix nil))
|
|
478
|
|
479 (setq string-one (flymake-ensure-ends-with-slash string-one))
|
|
480 (setq string-two (flymake-ensure-ends-with-slash string-two))
|
|
481
|
|
482 (while (not done)
|
|
483 (setq slash-pos-one (string-match "/" string-one (1+ slash-pos-one)))
|
|
484 (setq slash-pos-two (string-match "/" string-two (1+ slash-pos-two)))
|
|
485
|
|
486 (if (and slash-pos-one slash-pos-two
|
|
487 (= slash-pos-one slash-pos-two)
|
|
488 (string= (substring string-one 0 slash-pos-one) (substring string-two 0 slash-pos-two)))
|
|
489 (progn
|
|
490 (setq prefix (substring string-one 0 (1+ slash-pos-one)))
|
|
491 )
|
|
492 ;else
|
|
493 (setq done t)
|
|
494 )
|
|
495 )
|
|
496 prefix
|
|
497 )
|
|
498 )
|
|
499 )
|
|
500
|
|
501 (defun flymake-build-relative-path(from-dir to-dir)
|
|
502 "return rel: from-dir/rel == to-dir"
|
|
503 (if (not (equal (elt from-dir 0) (elt to-dir 0)))
|
|
504 (error "first chars in paths %s, %s must be equal (same drive)" from-dir to-dir)
|
|
505 ;else
|
|
506 (let* ((from (flymake-ensure-ends-with-slash (flymake-fix-path-name from-dir)))
|
|
507 (to (flymake-ensure-ends-with-slash (flymake-fix-path-name to-dir)))
|
|
508 (prefix (flymake-get-common-path-prefix from to))
|
|
509 (from-suffix (substring from (length prefix)))
|
|
510 (up-count (length (flymake-split-string from-suffix "[/]")))
|
|
511 (to-suffix (substring to (length prefix)))
|
|
512 (idx 0)
|
|
513 (rel nil))
|
|
514
|
|
515 (if (and (> (length to-suffix) 0) (equal "/" (char-to-string (elt to-suffix 0))))
|
|
516 (setq to-suffix (substring to-suffix 1))
|
|
517 )
|
|
518
|
|
519 (while (< idx up-count)
|
|
520 (if (> (length rel) 0)
|
|
521 (setq rel (concat rel "/"))
|
|
522 )
|
|
523 (setq rel (concat rel ".."))
|
|
524 (setq idx (1+ idx))
|
|
525 )
|
|
526 (if (> (length rel) 0)
|
|
527 (setq rel (concat rel "/"))
|
|
528 )
|
|
529 (if (> (length to-suffix) 0)
|
|
530 (setq rel (concat rel to-suffix))
|
|
531 )
|
|
532
|
|
533 (or rel "./")
|
|
534 )
|
|
535 )
|
|
536 )
|
|
537
|
|
538 (defcustom flymake-master-file-dirs '("." "./src" "./UnitTest")
|
|
539 "dirs where to llok for master files"
|
|
540 :group 'flymake
|
|
541 :type '(repeat (string))
|
|
542 )
|
|
543
|
|
544 (defcustom flymake-master-file-count-limit 32
|
|
545 "max number of master files to check"
|
|
546 :group 'flymake
|
|
547 :type 'integer
|
|
548 )
|
|
549
|
|
550 (defun flymake-find-possible-master-files(file-name master-file-dirs masks)
|
|
551 "find (by name and location) all posible master files, which are .cpp and .c for and .h.
|
|
552 Files are searched for starting from the .h directory and max max-level parent dirs.
|
|
553 File contents are not checked."
|
|
554 (let* ((dir-idx 0)
|
|
555 (dir-count (length master-file-dirs))
|
|
556 (files nil)
|
|
557 (done nil)
|
|
558 (masks-count (length masks)))
|
|
559
|
|
560 (while (and (not done) (< dir-idx dir-count))
|
|
561 (let* ((dir (concat (flymake-fix-path-name (file-name-directory file-name)) "/" (nth dir-idx master-file-dirs)))
|
|
562 (masks-idx 0))
|
|
563 (while (and (file-exists-p dir) (not done) (< masks-idx masks-count))
|
|
564 (let* ((mask (nth masks-idx masks))
|
|
565 (dir-files (directory-files dir t mask))
|
|
566 (file-count (length dir-files))
|
|
567 (file-idx 0))
|
|
568
|
|
569 (flymake-log 3 "dir %s, %d file(s) for mask %s" dir file-count mask)
|
|
570 (while (and (not done) (< file-idx file-count))
|
|
571 (when (not (file-directory-p (nth file-idx dir-files)))
|
|
572 (setq files (cons (nth file-idx dir-files) files))
|
|
573 (when (>= (length files) flymake-master-file-count-limit)
|
|
574 (flymake-log 3 "master file count limit (%d) reached" flymake-master-file-count-limit)
|
|
575 (setq done t)
|
|
576 )
|
|
577 )
|
|
578 (setq file-idx (1+ file-idx))
|
|
579 )
|
|
580 )
|
|
581 (setq masks-idx (1+ masks-idx))
|
|
582 )
|
|
583 )
|
|
584 (setq dir-idx (1+ dir-idx))
|
|
585 )
|
|
586 (when files
|
|
587 (setq flymake-included-file-name (file-name-nondirectory file-name))
|
|
588 (setq files (sort files 'flymake-master-file-compare))
|
|
589 (setq flymake-included-file-name nil)
|
|
590 )
|
|
591 (flymake-log 3 "found %d possible master file(s)" (length files))
|
|
592 files
|
|
593 )
|
|
594 )
|
|
595
|
|
596 (defvar flymake-included-file-name nil ; this is used to pass a parameter to a sort predicate below
|
|
597 ""
|
|
598 )
|
|
599
|
|
600 (defun flymake-master-file-compare(file-one file-two)
|
|
601 "used in sort to move most possible file names to the beginning of the list (File.h -> File.cpp moved to top"
|
|
602 (and (equal (file-name-sans-extension flymake-included-file-name)
|
|
603 (file-name-sans-extension (file-name-nondirectory file-one)))
|
|
604 (not (equal file-one file-two))
|
|
605 )
|
|
606 )
|
|
607
|
|
608 (defcustom flymake-check-file-limit 8192
|
|
609 "max number of chars to look at when checking possible master file"
|
|
610 :group 'flymake
|
|
611 :type 'integer
|
|
612 )
|
|
613
|
|
614 (defun flymake-check-patch-master-file-buffer(master-file-temp-buffer
|
|
615 master-file-name patched-master-file-name
|
|
616 source-file-name patched-source-file-name
|
|
617 include-dirs regexp-list)
|
|
618 "check whether master-file-name is indeed a master file for source-file-name.
|
|
619 For .cpp master file this means it includes source-file-name (.h).
|
|
620 If yes, patch a copy of master-file-name to include patched-source-file-name instead of source-file-name.
|
|
621 Whenether a buffer for master-file-name exists, use it as a source instead of reading master file from disk"
|
|
622 (let* ((found nil)
|
|
623 (regexp (format (nth 0 regexp-list) ; "[ \t]*#[ \t]*include[ \t]*\"\\([\w0-9/\\_\.]*[/\\]*\\)\\(%s\\)\""
|
|
624 (file-name-nondirectory source-file-name)))
|
|
625 (path-idx (nth 1 regexp-list))
|
|
626 (name-idx (nth 2 regexp-list))
|
|
627 (inc-path nil)
|
|
628 (inc-name nil)
|
|
629 (search-limit flymake-check-file-limit))
|
|
630 (save-excursion
|
|
631 (unwind-protect
|
|
632 (progn
|
|
633 (set-buffer master-file-temp-buffer)
|
|
634 (when (> search-limit (point-max))
|
|
635 (setq search-limit (point-max))
|
|
636 )
|
|
637 (flymake-log 3 "checking %s against regexp %s" master-file-name regexp)
|
|
638 (goto-char (point-min))
|
|
639 (while (and (< (point) search-limit) (re-search-forward regexp search-limit t))
|
|
640 (let* ((match-beg (match-beginning name-idx))
|
|
641 (match-end (match-end name-idx)))
|
|
642
|
|
643 (flymake-log 3 "found possible match for %s" (file-name-nondirectory source-file-name))
|
|
644 (setq inc-path (match-string path-idx))
|
|
645 (setq inc-name (match-string name-idx))
|
|
646 (when (string= inc-name (file-name-nondirectory source-file-name))
|
|
647 (flymake-log 3 "inc-path=%s inc-name=%s" inc-path inc-name)
|
|
648 (when (flymake-check-include source-file-name inc-path inc-name include-dirs)
|
|
649 (setq found t)
|
|
650 ; replace-match is not used here as it fails in xemacs with
|
|
651 ; 'last match not a buffer' error as check-includes calls replace-in-string
|
|
652 (flymake-replace-region (current-buffer) match-beg match-end
|
|
653 (file-name-nondirectory patched-source-file-name))
|
|
654 )
|
|
655 )
|
|
656 (forward-line 1)
|
|
657 )
|
|
658 )
|
|
659 (when found
|
|
660 (flymake-save-buffer-in-file (current-buffer) patched-master-file-name)
|
|
661 )
|
|
662 )
|
|
663 ;+(flymake-log 3 "killing buffer %s" (buffer-name master-file-temp-buffer))
|
|
664 (kill-buffer master-file-temp-buffer)
|
|
665 )
|
|
666 )
|
|
667 ;+(flymake-log 3 "check-patch master file %s: %s" master-file-name found)
|
|
668 (when found
|
|
669 (flymake-log 2 "found master file %s" master-file-name)
|
|
670 )
|
|
671 found
|
|
672 )
|
|
673 )
|
|
674
|
|
675 (defun flymake-replace-region(buffer beg end rep)
|
|
676 "replace text in buffer in region (beg; end) with rep"
|
|
677 (save-excursion
|
|
678 (delete-region beg end)
|
|
679 (goto-char beg)
|
|
680 (insert rep)
|
|
681 )
|
|
682 )
|
|
683
|
|
684 (defun flymake-read-file-to-temp-buffer(file-name)
|
|
685 "isert contents of file-name into newly created temp buffer"
|
|
686 (let* ((temp-buffer (get-buffer-create (generate-new-buffer-name (concat "flymake:" (file-name-nondirectory file-name))))))
|
|
687 (save-excursion
|
|
688 (set-buffer temp-buffer)
|
|
689 (insert-file-contents file-name)
|
|
690 )
|
|
691 temp-buffer
|
|
692 )
|
|
693 )
|
|
694
|
|
695 (defun flymake-copy-buffer-to-temp-buffer(buffer)
|
|
696 "copy contents of buffer into newly created temp buffer"
|
|
697 (let ((contents nil)
|
|
698 (temp-buffer nil))
|
|
699 (save-excursion
|
|
700 (set-buffer buffer)
|
|
701 (setq contents (buffer-string))
|
|
702
|
|
703 (setq temp-buffer (get-buffer-create (generate-new-buffer-name (concat "flymake:" (buffer-name buffer)))))
|
|
704 (set-buffer temp-buffer)
|
|
705 (insert contents)
|
|
706 )
|
|
707 temp-buffer
|
|
708 )
|
|
709 )
|
|
710
|
|
711 (defun flymake-check-include(source-file-name inc-path inc-name include-dirs)
|
|
712 "t if source-file-name is the one found via include dirs using inc-path and inc-name"
|
|
713 (if (file-name-absolute-p inc-path)
|
|
714 (flymake-same-files source-file-name (concat inc-path "/" inc-name))
|
|
715 ;else
|
|
716 (let* ((count (length include-dirs))
|
|
717 (idx 0)
|
|
718 (file-name nil)
|
|
719 (found nil))
|
|
720 (while (and (not found) (< idx count))
|
|
721 (setq file-name (concat (file-name-directory source-file-name) "/" (nth idx include-dirs)))
|
|
722 (if (> (length inc-path) 0)
|
|
723 (setq file-name (concat file-name "/" inc-path))
|
|
724 )
|
|
725 (setq file-name (concat file-name "/" inc-name))
|
|
726 (when (flymake-same-files source-file-name file-name)
|
|
727 (setq found t)
|
|
728 )
|
|
729 (setq idx (1+ idx))
|
|
730 )
|
|
731 found
|
|
732 )
|
|
733 )
|
|
734 )
|
|
735
|
|
736 (defun flymake-find-buffer-for-file(file-name)
|
|
737 "buffer if there exists a buffer visiting file-name, nil otherwise"
|
|
738 (let ((buffer-name (get-file-buffer file-name)))
|
|
739 (if buffer-name
|
|
740 (get-buffer buffer-name)
|
|
741 )
|
|
742 )
|
|
743 )
|
|
744
|
|
745 (defun flymake-create-master-file(source-file-name patched-source-file-name get-incl-dirs-f create-temp-f masks include-regexp-list)
|
|
746 "save source-file-name with a different name, find master file, patch it and save it to."
|
|
747 (let* ((possible-master-files (flymake-find-possible-master-files source-file-name flymake-master-file-dirs masks))
|
|
748 (master-file-count (length possible-master-files))
|
|
749 (idx 0)
|
|
750 (temp-buffer nil)
|
|
751 (master-file-name nil)
|
|
752 (patched-master-file-name nil)
|
|
753 (found nil))
|
|
754
|
|
755 (while (and (not found) (< idx master-file-count))
|
|
756 (setq master-file-name (nth idx possible-master-files))
|
|
757 (setq patched-master-file-name (funcall create-temp-f master-file-name "flymake_master"))
|
|
758 (if (flymake-find-buffer-for-file master-file-name)
|
|
759 (setq temp-buffer (flymake-copy-buffer-to-temp-buffer (flymake-find-buffer-for-file master-file-name)))
|
|
760 ;else
|
|
761 (setq temp-buffer (flymake-read-file-to-temp-buffer master-file-name))
|
|
762 )
|
|
763 (setq found
|
|
764 (flymake-check-patch-master-file-buffer
|
|
765 temp-buffer
|
|
766 master-file-name
|
|
767 patched-master-file-name
|
|
768 source-file-name
|
|
769 patched-source-file-name
|
|
770 (funcall get-incl-dirs-f (file-name-directory master-file-name))
|
|
771 include-regexp-list))
|
|
772 (setq idx (1+ idx))
|
|
773 )
|
|
774 (if found
|
|
775 (list master-file-name patched-master-file-name)
|
|
776 ;else
|
|
777 (progn
|
|
778 (flymake-log 3 "none of %d master file(s) checked includes %s" master-file-count
|
|
779 (file-name-nondirectory source-file-name))
|
|
780 nil
|
|
781 )
|
|
782 )
|
|
783 )
|
|
784 )
|
|
785
|
|
786 (defun flymake-save-buffer-in-file(buffer file-name)
|
|
787 (or buffer
|
|
788 (error "invalid buffer")
|
|
789 )
|
|
790 (save-excursion
|
|
791 (save-restriction
|
|
792 (set-buffer buffer)
|
|
793 (widen)
|
|
794 (make-directory (file-name-directory file-name) 1)
|
|
795 (write-region (point-min) (point-max) file-name nil 566)
|
|
796 )
|
|
797 )
|
|
798 (flymake-log 3 "saved buffer %s in file %s" (buffer-name buffer) file-name)
|
|
799 )
|
|
800
|
|
801 (defun flymake-save-string-to-file(file-name data)
|
|
802 "save string data to file file-name"
|
|
803 (write-region data nil file-name nil 566)
|
|
804 )
|
|
805
|
|
806 (defun flymake-read-file-to-string(file-name)
|
|
807 "read file contents and return them as a string"
|
|
808 (with-temp-buffer
|
|
809 (insert-file-contents file-name)
|
|
810 (buffer-substring (point-min) (point-max))
|
|
811 )
|
|
812 )
|
|
813
|
|
814 (defun flymake-process-filter(process output)
|
|
815 "flymake process filter: parse output, highlight err lines"
|
|
816 (let* ((pid (process-id process))
|
|
817 (source-buffer (get-buffer (flymake-get-source-buffer-name pid))))
|
|
818
|
|
819 (flymake-log 3 "received %d byte(s) of output from process %d" (length output) pid)
|
|
820 (when source-buffer
|
|
821 (flymake-parse-output-and-residual source-buffer output)
|
|
822 )
|
|
823 )
|
|
824 )
|
|
825
|
|
826 (defun flymake-process-sentinel(process event)
|
|
827 "Sentinel for syntax check buffers"
|
|
828 (if (memq (process-status process) '(signal exit))
|
|
829 (let*((exit-status (process-exit-status process))
|
|
830 (command (process-command process))
|
|
831 (pid (process-id process))
|
|
832 (source-buffer (get-buffer (flymake-get-source-buffer-name pid)))
|
|
833 (cleanup-f (flymake-get-cleanup-function (buffer-file-name source-buffer))))
|
|
834
|
|
835 (flymake-log 2 "process %d exited with code %d" pid exit-status)
|
|
836 (condition-case err
|
|
837 (progn
|
|
838 (flymake-log 3 "cleaning up using %s" cleanup-f)
|
|
839 (funcall cleanup-f source-buffer)
|
|
840
|
|
841 (flymake-unreg-names pid)
|
|
842 (delete-process process)
|
|
843
|
|
844 (when source-buffer
|
|
845 (save-excursion
|
|
846 (set-buffer source-buffer)
|
|
847
|
|
848 (flymake-parse-residual source-buffer)
|
|
849 (flymake-post-syntax-check source-buffer)
|
|
850 (flymake-set-buffer-is-running source-buffer nil)
|
|
851 )
|
|
852 )
|
|
853 )
|
|
854 (error
|
|
855 (let ((err-str (format "Error in process sentinel for buffer %s: %s"
|
|
856 source-buffer (error-message-string err))))
|
|
857 (flymake-log 0 err-str)
|
|
858 (flymake-set-buffer-is-running source-buffer nil)
|
|
859 )
|
|
860 )
|
|
861 )
|
|
862 )
|
|
863 )
|
|
864 )
|
|
865
|
|
866 (defun flymake-post-syntax-check(source-buffer)
|
|
867 ""
|
|
868 (flymake-set-buffer-err-info source-buffer (flymake-get-buffer-new-err-info source-buffer))
|
|
869 (flymake-set-buffer-new-err-info source-buffer nil)
|
|
870
|
|
871 (flymake-set-buffer-err-info source-buffer (flymake-fix-line-numbers
|
|
872 (flymake-get-buffer-err-info source-buffer)
|
|
873 1
|
|
874 (flymake-count-lines source-buffer)))
|
|
875 (flymake-delete-own-overlays source-buffer)
|
|
876 (flymake-highlight-err-lines source-buffer (flymake-get-buffer-err-info source-buffer))
|
|
877
|
|
878 (let ((err-count (flymake-get-err-count (flymake-get-buffer-err-info source-buffer) "e"))
|
|
879 (warn-count (flymake-get-err-count (flymake-get-buffer-err-info source-buffer) "w")))
|
|
880
|
|
881 (flymake-log 2 "%s: %d error(s), %d warning(s) in %.2f second(s)"
|
|
882 (buffer-name source-buffer) err-count warn-count
|
|
883 (- (flymake-float-time) (flymake-get-buffer-check-start-time source-buffer)))
|
|
884 (flymake-set-buffer-check-start-time source-buffer nil)
|
|
885 (if (and (equal 0 err-count) (equal 0 warn-count))
|
|
886 (if (equal 0 exit-status)
|
|
887 (flymake-report-status source-buffer "" "") ; PASSED
|
|
888 ;else
|
|
889 (if (not (flymake-get-buffer-check-was-interrupted source-buffer))
|
|
890 (flymake-report-fatal-status (current-buffer) "CFGERR"
|
|
891 (format "Configuration error has occured while running %s" command))
|
|
892 ;else
|
|
893 (flymake-report-status source-buffer nil "") ; "STOPPED"
|
|
894 )
|
|
895 )
|
|
896 ;else
|
|
897 (flymake-report-status source-buffer (format "%d/%d" err-count warn-count) "")
|
|
898 )
|
|
899 )
|
|
900 )
|
|
901
|
|
902 (defun flymake-parse-output-and-residual(source-buffer output)
|
|
903 "split output into lines, merge in residual if necessary"
|
|
904 (save-excursion
|
|
905 (set-buffer source-buffer)
|
|
906 (let* ((buffer-residual (flymake-get-buffer-output-residual source-buffer))
|
|
907 (total-output (if buffer-residual (concat buffer-residual output) output))
|
|
908 (lines-and-residual (flymake-split-output total-output))
|
|
909 (lines (nth 0 lines-and-residual))
|
|
910 (new-residual (nth 1 lines-and-residual)))
|
|
911
|
|
912 (flymake-set-buffer-output-residual source-buffer new-residual)
|
|
913 (flymake-set-buffer-new-err-info source-buffer (flymake-parse-err-lines
|
|
914 (flymake-get-buffer-new-err-info source-buffer)
|
|
915 source-buffer lines))
|
|
916 )
|
|
917 )
|
|
918 )
|
|
919
|
|
920 (defun flymake-parse-residual(source-buffer)
|
|
921 "parse residual if it's non empty"
|
|
922 (save-excursion
|
|
923 (set-buffer source-buffer)
|
|
924 (when (flymake-get-buffer-output-residual source-buffer)
|
|
925 (flymake-set-buffer-new-err-info source-buffer (flymake-parse-err-lines
|
|
926 (flymake-get-buffer-new-err-info source-buffer)
|
|
927 source-buffer
|
|
928 (list (flymake-get-buffer-output-residual source-buffer))))
|
|
929 (flymake-set-buffer-output-residual source-buffer nil)
|
|
930 )
|
|
931 )
|
|
932 )
|
|
933
|
|
934 (defvar flymake-err-info nil
|
|
935 "sorted list of line numbers and lists of err info in the form (file, err-text)."
|
|
936 )
|
|
937 (make-variable-buffer-local 'flymake-err-info)
|
|
938 (defun flymake-get-buffer-err-info(buffer)
|
|
939 (flymake-get-buffer-var buffer 'flymake-err-info)
|
|
940 )
|
|
941 (defun flymake-set-buffer-err-info(buffer err-info)
|
|
942 (flymake-set-buffer-var buffer 'flymake-err-info err-info)
|
|
943 )
|
|
944 (defun flymake-er-make-er(line-no line-err-info-list)
|
|
945 (list line-no line-err-info-list)
|
|
946 )
|
|
947 (defun flymake-er-get-line(err-info)
|
|
948 (nth 0 err-info)
|
|
949 )
|
|
950 (defun flymake-er-get-line-err-info-list(err-info)
|
|
951 (nth 1 err-info)
|
|
952 )
|
|
953
|
|
954 (defvar flymake-new-err-info nil
|
|
955 "the same as flymake -err-info, effective when a syntax check is in progress"
|
|
956 )
|
|
957 (make-variable-buffer-local 'flymake-new-err-info)
|
|
958 (defun flymake-get-buffer-new-err-info(buffer)
|
|
959 (flymake-get-buffer-var buffer 'flymake-new-err-info)
|
|
960 )
|
|
961 (defun flymake-set-buffer-new-err-info(buffer new-err-info)
|
|
962 (flymake-set-buffer-var buffer 'flymake-new-err-info new-err-info)
|
|
963 )
|
|
964
|
|
965 ;; getters/setters for line-err-info: (file, line, type, text).
|
|
966 (defun flymake-ler-make-ler(file line type text &optional full-file)
|
|
967 (list file line type text full-file)
|
|
968 )
|
|
969 (defun flymake-ler-get-file(line-err-info)
|
|
970 (nth 0 line-err-info)
|
|
971 )
|
|
972 (defun flymake-ler-get-line(line-err-info)
|
|
973 (nth 1 line-err-info)
|
|
974 )
|
|
975 (defun flymake-ler-get-type(line-err-info)
|
|
976 (nth 2 line-err-info)
|
|
977 )
|
|
978 (defun flymake-ler-get-text(line-err-info)
|
|
979 (nth 3 line-err-info)
|
|
980 )
|
|
981 (defun flymake-ler-get-full-file(line-err-info)
|
|
982 (nth 4 line-err-info)
|
|
983 )
|
|
984 (defun flymake-ler-set-file(line-err-info file)
|
|
985 (flymake-ler-make-ler file
|
|
986 (flymake-ler-get-line line-err-info)
|
|
987 (flymake-ler-get-type line-err-info)
|
|
988 (flymake-ler-get-text line-err-info)
|
|
989 (flymake-ler-get-full-file line-err-info))
|
|
990 )
|
|
991 (defun flymake-ler-set-full-file(line-err-info full-file)
|
|
992 (flymake-ler-make-ler (flymake-ler-get-file line-err-info)
|
|
993 (flymake-ler-get-line line-err-info)
|
|
994 (flymake-ler-get-type line-err-info)
|
|
995 (flymake-ler-get-text line-err-info)
|
|
996 full-file)
|
|
997 )
|
|
998 (defun flymake-ler-set-line(line-err-info line)
|
|
999 (flymake-ler-make-ler (flymake-ler-get-file line-err-info)
|
|
1000 line
|
|
1001 (flymake-ler-get-type line-err-info)
|
|
1002 (flymake-ler-get-text line-err-info)
|
|
1003 (flymake-ler-get-full-file line-err-info))
|
|
1004 )
|
|
1005
|
|
1006 (defun flymake-get-line-err-count(line-err-info-list type)
|
|
1007 "return number of errors of specified type - e or w"
|
|
1008 (let* ((idx 0)
|
|
1009 (count (length line-err-info-list))
|
|
1010 (err-count 0))
|
|
1011
|
|
1012 (while (< idx count)
|
|
1013 (when (equal type (flymake-ler-get-type (nth idx line-err-info-list)))
|
|
1014 (setq err-count (1+ err-count))
|
|
1015 )
|
|
1016 (setq idx (1+ idx))
|
|
1017 )
|
|
1018 err-count
|
|
1019 )
|
|
1020 )
|
|
1021
|
|
1022 (defun flymake-get-err-count(err-info-list type)
|
|
1023 "return number of errors of specified type for the err-info-list"
|
|
1024 (let* ((idx 0)
|
|
1025 (count (length err-info-list))
|
|
1026 (err-count 0))
|
|
1027 (while (< idx count)
|
|
1028 (setq err-count (+ err-count (flymake-get-line-err-count (nth 1 (nth idx err-info-list)) type)))
|
|
1029 (setq idx (1+ idx))
|
|
1030 )
|
|
1031 err-count
|
|
1032 )
|
|
1033 )
|
|
1034
|
|
1035 (defun flymake-fix-line-numbers(err-info-list min-line max-line)
|
|
1036 "replace line-numbers < min-line with min-line and > max-line with max-line - as some compilers might report line number outside the file being compiled"
|
|
1037 (let* ((count (length err-info-list))
|
|
1038 (err-info nil)
|
|
1039 (line 0))
|
|
1040 (while (> count 0)
|
|
1041 (setq err-info (nth (1- count) err-info-list))
|
|
1042 (setq line (flymake-er-get-line err-info))
|
|
1043 (when (or (< line min-line) (> line max-line))
|
|
1044 (setq line (if (< line min-line) min-line max-line))
|
|
1045 (setq err-info-list (flymake-set-at err-info-list (1- count)
|
|
1046 (flymake-er-make-er line
|
|
1047 (flymake-er-get-line-err-info-list err-info))))
|
|
1048 )
|
|
1049 (setq count (1- count))
|
|
1050 )
|
|
1051 )
|
|
1052 err-info-list
|
|
1053 )
|
|
1054
|
|
1055 (defun flymake-highlight-err-lines(buffer err-info-list)
|
|
1056 "highlight err-lines in buffer using info from err-info-list"
|
|
1057 (save-excursion
|
|
1058 (set-buffer buffer)
|
|
1059 (let* ((idx 0)
|
|
1060 (count (length err-info-list)))
|
|
1061 (while (< idx count)
|
|
1062 (flymake-highlight-line (car (nth idx err-info-list)) (nth 1 (nth idx err-info-list)))
|
|
1063 (setq idx (1+ idx))
|
|
1064 )
|
|
1065 )
|
|
1066 )
|
|
1067 )
|
|
1068
|
|
1069 (defun flymake-overlay-p(ov)
|
|
1070 "Determine whether overlay was created by flymake"
|
|
1071 (and (overlayp ov) (overlay-get ov 'flymake-overlay))
|
|
1072 )
|
|
1073
|
|
1074 (defun flymake-make-overlay(beg end tooltip-text face mouse-face)
|
|
1075 "Allocate a flymake overlay in range beg end"
|
|
1076 (when (not (flymake-region-has-flymake-overlays beg end))
|
|
1077 (let ((ov (make-overlay beg end nil t t)))
|
|
1078 (overlay-put ov 'face face)
|
|
1079 (overlay-put ov 'mouse-face mouse-face)
|
|
1080 (overlay-put ov 'help-echo tooltip-text)
|
|
1081 (overlay-put ov 'flymake-overlay t)
|
|
1082 (overlay-put ov 'priority 100)
|
|
1083 ;+(flymake-log 3 "created overlay %s" ov)
|
|
1084 ov
|
|
1085 )
|
|
1086 (flymake-log 3 "created an overlay at (%d-%d)" beg end)
|
|
1087 )
|
|
1088 )
|
|
1089
|
|
1090 (defun flymake-delete-own-overlays(buffer)
|
|
1091 "Delete all flymake overlays in buffer"
|
|
1092 (save-excursion
|
|
1093 (set-buffer buffer)
|
|
1094 (let ((ov (overlays-in (point-min) (point-max))))
|
|
1095 (while (consp ov)
|
|
1096 (when (flymake-overlay-p (car ov))
|
|
1097 (delete-overlay (car ov))
|
|
1098 ;+(flymake-log 3 "deleted overlay %s" ov)
|
|
1099 )
|
|
1100 (setq ov (cdr ov))
|
|
1101 )
|
|
1102 )
|
|
1103 )
|
|
1104 )
|
|
1105
|
|
1106 (defun flymake-region-has-flymake-overlays(beg end)
|
|
1107 "t if specified regions has at least one flymake overlay, nil otrherwise"
|
|
1108 (let ((ov (overlays-in beg end))
|
|
1109 (has-flymake-overlays nil))
|
|
1110 (while (consp ov)
|
|
1111 (when (flymake-overlay-p (car ov))
|
|
1112 (setq has-flymake-overlays t)
|
|
1113 )
|
|
1114 (setq ov (cdr ov))
|
|
1115 )
|
|
1116 )
|
|
1117 )
|
|
1118
|
|
1119 (defface flymake-errline-face
|
|
1120 ;+ '((((class color)) (:foreground "OrangeRed" :bold t :underline t))
|
|
1121 ;+ '((((class color)) (:underline "OrangeRed"))
|
|
1122 '((((class color)) (:background "LightPink"))
|
|
1123 (t (:bold t)))
|
|
1124 "Face used for marking error lines"
|
|
1125 :group 'flymake
|
|
1126 )
|
|
1127
|
|
1128 (defface flymake-warnline-face
|
|
1129 '((((class color)) (:background "LightBlue2"))
|
|
1130 (t (:bold t)))
|
|
1131 "Face used for marking warning lines"
|
|
1132 :group 'flymake
|
|
1133 )
|
|
1134
|
|
1135
|
|
1136 (defun flymake-highlight-line(line-no line-err-info-list)
|
|
1137 "highlight line line-no in current buffer, perhaps use text from line-err-info-list to enhance highlighting"
|
|
1138 (goto-line line-no)
|
|
1139 (let* ((line-beg (flymake-line-beginning-position))
|
|
1140 (line-end (flymake-line-end-position))
|
|
1141 (beg line-beg)
|
|
1142 (end line-end)
|
|
1143 (tooltip-text (flymake-ler-get-text (nth 0 line-err-info-list)))
|
|
1144 (face nil))
|
|
1145
|
|
1146 (goto-char line-beg)
|
|
1147 (while (looking-at "[ \t]")
|
|
1148 (forward-char)
|
|
1149 )
|
|
1150
|
|
1151 (setq beg (point))
|
|
1152
|
|
1153 (goto-char line-end)
|
|
1154 (while (and (looking-at "[ \t\r\n]") (> (point) 1))
|
|
1155 (backward-char)
|
|
1156 )
|
|
1157
|
|
1158 (setq end (1+ (point)))
|
|
1159
|
|
1160 (when (<= end beg)
|
|
1161 (setq beg line-beg)
|
|
1162 (setq end line-end)
|
|
1163 )
|
|
1164 (when (= end beg)
|
|
1165 (goto-char end)
|
|
1166 (forward-line)
|
|
1167 (setq end (point))
|
|
1168 )
|
|
1169 (if (> (flymake-get-line-err-count line-err-info-list "e") 0)
|
|
1170 (setq face 'flymake-errline-face)
|
|
1171 ;else
|
|
1172 (setq face 'flymake-warnline-face)
|
|
1173 )
|
|
1174 (flymake-make-overlay beg end tooltip-text face nil)
|
|
1175 )
|
|
1176 )
|
|
1177
|
|
1178 (defun flymake-parse-err-lines(err-info-list source-buffer lines)
|
|
1179 "parse err lines, store info in err-info-list"
|
|
1180 (let* ((count (length lines))
|
|
1181 (idx 0)
|
|
1182 (line-err-info nil)
|
|
1183 (real-file-name nil)
|
|
1184 (source-file-name (buffer-file-name source-buffer))
|
|
1185 (get-real-file-name-f (flymake-get-real-file-name-function source-file-name)))
|
|
1186
|
|
1187 (while (< idx count)
|
|
1188 (setq line-err-info (flymake-parse-line (nth idx lines)))
|
|
1189 (when line-err-info
|
|
1190 (setq real-file-name (funcall get-real-file-name-f source-buffer (flymake-ler-get-file line-err-info)))
|
|
1191 (setq line-err-info (flymake-ler-set-full-file line-err-info real-file-name))
|
|
1192
|
|
1193 (if (flymake-same-files real-file-name source-file-name)
|
|
1194 (setq line-err-info (flymake-ler-set-file line-err-info nil))
|
|
1195 ;else
|
|
1196 (setq line-err-info (flymake-ler-set-file line-err-info (file-name-nondirectory real-file-name)))
|
|
1197 )
|
|
1198
|
|
1199 (setq err-info-list (flymake-add-err-info err-info-list line-err-info))
|
|
1200 )
|
|
1201 (flymake-log 3 "parsed '%s', %s line-err-info" (nth idx lines) (if line-err-info "got" "no"))
|
|
1202 (setq idx (1+ idx))
|
|
1203 )
|
|
1204 err-info-list
|
|
1205 )
|
|
1206 )
|
|
1207
|
|
1208 (defun flymake-split-output(output)
|
|
1209 "split output into lines, return last one as residual if it does not end with newline char. Returns ((lines) residual)"
|
|
1210 (when (and output (> (length output) 0))
|
|
1211 (let* ((lines (flymake-split-string output "[\n\r]+"))
|
|
1212 (complete (equal "\n" (char-to-string (aref output (1- (length output))))))
|
|
1213 (residual nil))
|
|
1214 (when (not complete)
|
|
1215 (setq residual (car (last lines)))
|
|
1216 (setq lines (butlast lines))
|
|
1217 )
|
|
1218 (list lines residual)
|
|
1219 )
|
|
1220 )
|
|
1221 )
|
|
1222
|
|
1223 (eval-when-compile (require 'compile))
|
|
1224 (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
|
|
1225 (append
|
|
1226 '(
|
|
1227 ; MS Visual C++ 6.0
|
|
1228 ("\\(\\([a-zA-Z]:\\)?[^:(\t\n]+\\)(\\([0-9]+\\)) \: \\(\\(error\\|warning\\|fatal error\\) \\(C[0-9]+\\):[ \t\n]*\\(.+\\)\\)"
|
|
1229 1 3 nil 4)
|
|
1230 ; jikes
|
|
1231 ("\\(\\([a-zA-Z]:\\)?[^:(\t\n]+\\)\:\\([0-9]+\\)\:[0-9]+\:[0-9]+\:[0-9]+\: \\(\\(Error\\|Warning\\|Caution\\|Semantic Error\\):[ \t\n]*\\(.+\\)\\)"
|
|
1232 1 3 nil 4)
|
|
1233 ; MS midl
|
|
1234 ("midl[ ]*:[ ]*\\(command line error .*\\)"
|
|
1235 nil nil nil 1)
|
|
1236 ; MS C#
|
|
1237 ("\\(\\([a-zA-Z]:\\)?[^:(\t\n]+\\)(\\([0-9]+\\),[0-9]+)\: \\(\\(error\\|warning\\|fatal error\\) \\(CS[0-9]+\\):[ \t\n]*\\(.+\\)\\)"
|
|
1238 1 3 nil 4)
|
|
1239 ; perl
|
|
1240 ("\\(.*\\) at \\([^ \n]+\\) line \\([0-9]+\\)[,.\n]" 2 3 nil 1)
|
|
1241 ; LaTeX warnings (fileless) ("\\(LaTeX \\(Warning\\|Error\\): .*\\) on input line \\([0-9]+\\)" 20 3 nil 1)
|
|
1242 ; ant/javac
|
|
1243 (" *\\(\\[javac\\]\\)? *\\(\\([a-zA-Z]:\\)?[^:(\t\n]+\\)\:\\([0-9]+\\)\:[ \t\n]*\\(.+\\)"
|
|
1244 2 4 nil 5)
|
|
1245 )
|
|
1246 compilation-error-regexp-alist)
|
|
1247 "patterns for matching error/warning lines, (regexp file-idx line-idx err-text-idx)"
|
|
1248 )
|
|
1249 ;(defcustom flymake-err-line-patterns
|
|
1250 ; '(
|
|
1251 ; ; MS Visual C++ 6.0
|
|
1252 ; ("\\(\\([a-zA-Z]:\\)?[^:(\t\n]+\\)(\\([0-9]+\\)) \: \\(\\(error\\|warning\\|fatal error\\) \\(C[0-9]+\\):[ \t\n]*\\(.+\\)\\)"
|
|
1253 ; 1 3 4)
|
|
1254 ; ; jikes
|
|
1255 ; ("\\(\\([a-zA-Z]:\\)?[^:(\t\n]+\\)\:\\([0-9]+\\)\:[0-9]+\:[0-9]+\:[0-9]+\: \\(\\(Error\\|Warning\\|Caution\\):[ \t\n]*\\(.+\\)\\)"
|
|
1256 ; 1 3 4))
|
|
1257 ; "patterns for matching error/warning lines, (regexp file-idx line-idx err-text-idx)"
|
|
1258 ; :group 'flymake
|
|
1259 ; :type '(repeat (string number number number))
|
|
1260 ;)
|
|
1261
|
|
1262 (defun flymake-parse-line(line)
|
|
1263 "parse line to see whether it's an error of warning, return it's components or nil for no match"
|
|
1264 (let ((raw-file-name nil)
|
|
1265 (line-no 0)
|
|
1266 (err-type "e")
|
|
1267 (err-text nil)
|
|
1268 (count (length flymake-err-line-patterns))
|
|
1269 (idx 0)
|
|
1270 (matched nil))
|
|
1271 (while (and (< idx count) (not matched))
|
|
1272 (when (string-match (car (nth idx flymake-err-line-patterns)) line)
|
|
1273 (let* ((file-idx (nth 1 (nth idx flymake-err-line-patterns)))
|
|
1274 (line-idx (nth 2 (nth idx flymake-err-line-patterns))))
|
|
1275
|
|
1276 (setq raw-file-name (if file-idx (match-string file-idx line) nil))
|
|
1277 (setq line-no (if line-idx (string-to-int (match-string line-idx line)) 0))
|
|
1278 (setq err-text (if (> (length (nth idx flymake-err-line-patterns)) 4)
|
|
1279 (match-string (nth 4 (nth idx flymake-err-line-patterns)) line)
|
|
1280 (flymake-patch-err-text (substring line (match-end 0)))))
|
|
1281 (or err-text (setq err-text "<no error text>"))
|
|
1282 (if (and err-text (string-match "^[wW]arning" err-text))
|
|
1283 (setq err-type "w")
|
|
1284 )
|
|
1285 (flymake-log 3 "parse line: file-idx=%s line-idx=%s file=%s line=%s text=%s" file-idx line-idx
|
|
1286 raw-file-name line-no err-text)
|
|
1287 (setq matched t)
|
|
1288 )
|
|
1289 )
|
|
1290 (setq idx (1+ idx))
|
|
1291 )
|
|
1292 (if matched
|
|
1293 (flymake-ler-make-ler raw-file-name line-no err-type err-text)
|
|
1294 ; else
|
|
1295 ()
|
|
1296 )
|
|
1297 )
|
|
1298 )
|
|
1299
|
|
1300 (defun flymake-find-err-info(err-info-list line-no)
|
|
1301 "find (line-err-info-list pos) for specified line-no"
|
|
1302 (if err-info-list
|
|
1303 (let* ((line-err-info-list nil)
|
|
1304 (pos 0)
|
|
1305 (count (length err-info-list)))
|
|
1306
|
|
1307 (while (and (< pos count) (< (car (nth pos err-info-list)) line-no))
|
|
1308 (setq pos (1+ pos))
|
|
1309 )
|
|
1310 (when (and (< pos count) (equal (car (nth pos err-info-list)) line-no))
|
|
1311 (setq line-err-info-list (flymake-er-get-line-err-info-list (nth pos err-info-list)))
|
|
1312 )
|
|
1313 (list line-err-info-list pos)
|
|
1314 )
|
|
1315 ;else
|
|
1316 '(nil 0)
|
|
1317 )
|
|
1318 )
|
|
1319
|
|
1320 (defun flymake-line-err-info-is-less-or-equal(line-one line-two)
|
|
1321 (or (string< (flymake-ler-get-type line-one) (flymake-ler-get-type line-two))
|
|
1322 (and (string= (flymake-ler-get-type line-one) (flymake-ler-get-type line-two))
|
|
1323 (not (flymake-ler-get-file line-one)) (flymake-ler-get-file line-two)
|
|
1324 )
|
|
1325 (and (string= (flymake-ler-get-type line-one) (flymake-ler-get-type line-two))
|
|
1326 (or (and (flymake-ler-get-file line-one) (flymake-ler-get-file line-two))
|
|
1327 (and (not (flymake-ler-get-file line-one)) (not (flymake-ler-get-file line-two)))
|
|
1328 )
|
|
1329 )
|
|
1330 )
|
|
1331 )
|
|
1332
|
|
1333 (defun flymake-add-line-err-info(line-err-info-list line-err-info)
|
|
1334 "insert new err info favoring sorting: err-type e/w, filename nil/non-nill"
|
|
1335 (if (not line-err-info-list)
|
|
1336 (list line-err-info)
|
|
1337 ;else
|
|
1338 (let* ((count (length line-err-info-list))
|
|
1339 (idx 0))
|
|
1340 (while (and (< idx count) (flymake-line-err-info-is-less-or-equal (nth idx line-err-info-list) line-err-info))
|
|
1341 (setq idx (1+ idx))
|
|
1342 )
|
|
1343 (cond ((equal 0 idx) (setq line-err-info-list (cons line-err-info line-err-info-list)))
|
|
1344 (t (setq line-err-info-list (flymake-ins-after line-err-info-list (1- idx) line-err-info)))
|
|
1345 )
|
|
1346 line-err-info-list
|
|
1347 )
|
|
1348 )
|
|
1349 )
|
|
1350
|
|
1351 (defun flymake-add-err-info(err-info-list line-err-info)
|
|
1352 "add error info (file line type text) to err info list preserving sort order"
|
|
1353 (let* ((count (length err-info-list))
|
|
1354 (line-no (if (flymake-ler-get-file line-err-info) 1 (flymake-ler-get-line line-err-info)))
|
|
1355 (info-and-pos (flymake-find-err-info err-info-list line-no))
|
|
1356 (exists (car info-and-pos))
|
|
1357 (pos (nth 1 info-and-pos))
|
|
1358 (line-err-info-list nil)
|
|
1359 (err-info nil))
|
|
1360
|
|
1361 (if exists
|
|
1362 (setq line-err-info-list (flymake-er-get-line-err-info-list (car (nthcdr pos err-info-list))))
|
|
1363 )
|
|
1364 (setq line-err-info-list (flymake-add-line-err-info line-err-info-list line-err-info))
|
|
1365
|
|
1366 (setq err-info (flymake-er-make-er line-no line-err-info-list))
|
|
1367 (cond (exists (setq err-info-list (flymake-set-at err-info-list pos err-info)))
|
|
1368 ((equal 0 pos) (setq err-info-list (cons err-info err-info-list)))
|
|
1369 (t (setq err-info-list (flymake-ins-after err-info-list (1- pos) err-info)))
|
|
1370 )
|
|
1371 err-info-list
|
|
1372 )
|
|
1373 )
|
|
1374
|
|
1375 (defun flymake-get-project-include-dirs-imp(basedir)
|
|
1376 "include dirs for the project current file belongs to"
|
|
1377 (if (flymake-get-project-include-dirs-from-cache basedir)
|
|
1378 (progn
|
|
1379 (flymake-get-project-include-dirs-from-cache basedir)
|
|
1380 )
|
|
1381 ;else
|
|
1382 (let* ((command-line (concat "make -C\"" basedir "\" DUMPVARS=INCLUDE_DIRS dumpvars"))
|
|
1383 (output (shell-command-to-string command-line))
|
|
1384 (lines (flymake-split-string output "\n"))
|
|
1385 (count (length lines))
|
|
1386 (idx 0)
|
|
1387 (inc-dirs nil))
|
|
1388 (while (and (< idx count) (not (string-match "^INCLUDE_DIRS=.*" (nth idx lines))))
|
|
1389 (setq idx (1+ idx))
|
|
1390 )
|
|
1391 (when (< idx count)
|
|
1392 (let* ((inc-lines (flymake-split-string (nth idx lines) " *-I"))
|
|
1393 (inc-count (length inc-lines)))
|
|
1394 (while (> inc-count 0)
|
|
1395 (when (not (string-match "^INCLUDE_DIRS=.*" (nth (1- inc-count) inc-lines)))
|
|
1396 (setq inc-dirs (cons (flymake-replace-regexp-in-string "\"" "" (nth (1- inc-count) inc-lines)) inc-dirs))
|
|
1397 )
|
|
1398 (setq inc-count (1- inc-count))
|
|
1399 )
|
|
1400 )
|
|
1401 )
|
|
1402 (flymake-add-project-include-dirs-to-cache basedir inc-dirs)
|
|
1403 inc-dirs
|
|
1404 )
|
|
1405 )
|
|
1406 )
|
|
1407
|
|
1408 (defcustom flymake-get-project-include-dirs-function 'flymake-get-project-include-dirs-imp
|
|
1409 "function used to get project inc dirs, one paramater: basedir name"
|
|
1410 :group 'flymake
|
|
1411 :type 'function
|
|
1412 )
|
|
1413
|
|
1414 (defun flymake-get-project-include-dirs(basedir)
|
|
1415 (funcall flymake-get-project-include-dirs-function basedir)
|
|
1416 )
|
|
1417
|
|
1418 (defun flymake-get-system-include-dirs()
|
|
1419 "system include dirs - from the 'INCLUDE' env setting"
|
|
1420 (let* ((includes (getenv "INCLUDE")))
|
|
1421 (if includes (flymake-split-string includes path-separator) nil)
|
|
1422 )
|
|
1423 )
|
|
1424
|
|
1425 (defvar flymake-project-include-dirs-cache (flymake-makehash 'equal))
|
|
1426 (defun flymake-get-project-include-dirs-from-cache(base-dir)
|
|
1427 (gethash base-dir flymake-project-include-dirs-cache)
|
|
1428 )
|
|
1429 (defun flymake-add-project-include-dirs-to-cache(base-dir include-dirs)
|
|
1430 (puthash base-dir include-dirs flymake-project-include-dirs-cache)
|
|
1431 )
|
|
1432 (defun flymake-clear-project-include-dirs-cache()
|
|
1433 (clrhash flymake-project-include-dirs-cache)
|
|
1434 )
|
|
1435
|
|
1436 (defun flymake-get-include-dirs(base-dir)
|
|
1437 "dirs to use when resolving local filenames"
|
|
1438 (let* ((include-dirs (append '(".") (flymake-get-project-include-dirs base-dir) (flymake-get-system-include-dirs))))
|
|
1439 include-dirs
|
|
1440 )
|
|
1441 )
|
|
1442
|
|
1443 (defun flymake-find-file(rel-file-name include-dirs)
|
|
1444 "iterate through include-dirs, return first 'include-dir/rel-file-name' that exists, or just rel-file-name if not"
|
|
1445 (let* ((count (length include-dirs))
|
|
1446 (idx 0)
|
|
1447 (found nil)
|
|
1448 (full-file-name rel-file-name))
|
|
1449
|
|
1450 (while (and (not found) (< idx count))
|
|
1451 (let* ((dir (nth idx include-dirs)))
|
|
1452 (setq full-file-name (concat dir "/" rel-file-name))
|
|
1453 (when (file-exists-p full-file-name)
|
|
1454 (setq done t)
|
|
1455 )
|
|
1456 )
|
|
1457 (setq idx (1+ idx))
|
|
1458 )
|
|
1459 (if found
|
|
1460 full-file-name
|
|
1461 ;else
|
|
1462 rel-file-name
|
|
1463 )
|
|
1464 )
|
|
1465 )
|
|
1466
|
|
1467 (defun flymake-restore-formatting(source-buffer)
|
|
1468 "Remove any formatting made by flymake"
|
|
1469 )
|
|
1470
|
|
1471 (defun flymake-get-program-dir(buffer)
|
|
1472 "dir to start profram in"
|
|
1473 (unless (bufferp buffer)
|
|
1474 (error "invlid buffer")
|
|
1475 )
|
|
1476 (save-excursion
|
|
1477 (set-buffer buffer)
|
|
1478 default-directory
|
|
1479 )
|
|
1480 )
|
|
1481
|
|
1482 (defun flymake-safe-delete-file(file-name)
|
|
1483 (when (and file-name (file-exists-p file-name))
|
|
1484 (delete-file file-name)
|
|
1485 (flymake-log 1 "deleted file %s" file-name)
|
|
1486 )
|
|
1487 )
|
|
1488
|
|
1489 (defun flymake-safe-delete-directory(dir-name)
|
|
1490 (condition-case err
|
|
1491 (progn
|
|
1492 (delete-directory dir-name)
|
|
1493 (flymake-log 1 "deleted dir %s" dir-name)
|
|
1494 )
|
|
1495 (error
|
|
1496 (flymake-log 1 "failed to delete dir %s, error ignored" dir-name)
|
|
1497 )
|
|
1498 )
|
|
1499 )
|
|
1500
|
|
1501 (defcustom flymake-compilation-prevents-syntax-check t
|
|
1502 "if non-nil, syntax check won't be started in case compilation is running"
|
|
1503 :group 'flymake
|
|
1504 :type 'boolean
|
|
1505 )
|
|
1506
|
|
1507 (defun flymake-start-syntax-check(buffer)
|
|
1508 "start syntax checking for buffer"
|
|
1509 (unless (bufferp buffer)
|
|
1510 (error "expected a buffer")
|
|
1511 )
|
|
1512 (save-excursion
|
|
1513 (set-buffer buffer)
|
|
1514 (flymake-log 3 "flymake is running: %s" (flymake-get-buffer-is-running buffer))
|
|
1515 (when (and (not (flymake-get-buffer-is-running buffer))
|
|
1516 (flymake-can-syntax-check-file (buffer-file-name buffer)))
|
|
1517 (when (or (not flymake-compilation-prevents-syntax-check)
|
|
1518 (not (flymake-compilation-is-running))) ;+ (flymake-rep-ort-status buffer "COMP")
|
|
1519 (flymake-clear-buildfile-cache)
|
|
1520 (flymake-clear-project-include-dirs-cache)
|
|
1521
|
|
1522 (flymake-set-buffer-check-was-interrupted buffer nil)
|
|
1523 (flymake-set-buffer-data buffer (flymake-makehash 'equal))
|
|
1524
|
|
1525 (let* ((source-file-name (buffer-file-name buffer))
|
|
1526 (init-f (flymake-get-init-function source-file-name))
|
|
1527 (cleanup-f (flymake-get-cleanup-function source-file-name))
|
|
1528 (cmd-and-args (funcall init-f buffer))
|
|
1529 (cmd (nth 0 cmd-and-args))
|
|
1530 (args (nth 1 cmd-and-args))
|
|
1531 (dir (nth 2 cmd-and-args)))
|
|
1532 (if (not cmd-and-args)
|
|
1533 (progn
|
|
1534 (flymake-log 0 "init function %s for %s failed, cleaning up" init-f source-file-name)
|
|
1535 (funcall cleanup-f buffer)
|
|
1536 )
|
|
1537 ;else
|
|
1538 (progn
|
|
1539 (flymake-set-buffer-last-change-time buffer nil)
|
|
1540 (flymake-start-syntax-check-process buffer cmd args dir)
|
|
1541 )
|
|
1542 )
|
|
1543 )
|
|
1544 )
|
|
1545 )
|
|
1546 )
|
|
1547 )
|
|
1548
|
|
1549 (defun flymake-start-syntax-check-process(buffer cmd args dir)
|
|
1550 "start syntax check-process"
|
|
1551
|
|
1552 (let* ((process nil))
|
|
1553 (condition-case err
|
|
1554 (progn
|
|
1555 (when dir
|
|
1556 (let ((default-directory dir))
|
|
1557 (flymake-log 3 "starting process on dir %s" default-directory)
|
|
1558 )
|
|
1559 )
|
|
1560 (setq process (get-process (apply 'start-process "flymake-proc" nil cmd args)))
|
|
1561 (set-process-sentinel process 'flymake-process-sentinel)
|
|
1562 (set-process-filter process 'flymake-process-filter)
|
|
1563
|
|
1564 (flymake-reg-names (process-id process) (buffer-name buffer))
|
|
1565
|
|
1566 (flymake-set-buffer-is-running buffer t)
|
|
1567 (flymake-set-buffer-last-change-time buffer nil)
|
|
1568 (flymake-set-buffer-check-start-time buffer (flymake-float-time))
|
|
1569
|
|
1570 (flymake-report-status buffer nil "*")
|
|
1571 (flymake-log 2 "started process %d, command=%s, dir=%s"
|
|
1572 (process-id process) (process-command process) default-directory)
|
|
1573 process
|
|
1574 )
|
|
1575 (error
|
|
1576 (let ((err-str (format "Failed to launch syntax check process '%s' with args %s: %s"
|
|
1577 cmd args (error-message-string err)))
|
|
1578 (source-file-name (buffer-file-name buffer))
|
|
1579 (cleanup-f (flymake-get-cleanup-function source-file-name)))
|
|
1580 (flymake-log 0 err-str)
|
|
1581 (funcall cleanup-f buffer)
|
|
1582 (flymake-report-fatal-status buffer "PROCERR" err-str)
|
|
1583 )
|
|
1584 )
|
|
1585 )
|
|
1586 )
|
|
1587 )
|
|
1588
|
|
1589 (defun flymake-kill-process(pid &optional rest)
|
|
1590 "kill process pid"
|
|
1591 (signal-process pid 9)
|
|
1592 (let* ((buffer-name (flymake-get-source-buffer-name pid)))
|
|
1593 (when (and buffer-name (get-buffer buffer-name))
|
|
1594 (flymake-set-buffer-check-was-interrupted (get-buffer buffer-name) t)
|
|
1595 )
|
|
1596 )
|
|
1597 (flymake-log 1 "killed process %d" pid)
|
|
1598 )
|
|
1599
|
|
1600 (defun flymake-stop-all-syntax-checks()
|
|
1601 "kill all syntax check processes"
|
|
1602 (interactive)
|
|
1603 (let ((pids (copy-hash-table flymake-pid-to-names)))
|
|
1604 (maphash 'flymake-kill-process pids)
|
|
1605 )
|
|
1606 )
|
|
1607
|
|
1608 (defun flymake-compilation-is-running()
|
|
1609 (and (boundp 'compilation-in-progress)
|
|
1610 compilation-in-progress)
|
|
1611 )
|
|
1612
|
|
1613 (defun flymake-compile()
|
|
1614 "kill all flymake syntax checks, start compilation"
|
|
1615 (interactive)
|
|
1616 (flymake-stop-all-syntax-checks)
|
|
1617 (call-interactively 'compile)
|
|
1618 )
|
|
1619
|
|
1620 (defvar flymake-is-running nil
|
|
1621 "t if flymake syntax check process is running for the current buffer"
|
|
1622 )
|
|
1623 (make-variable-buffer-local 'flymake-is-running)
|
|
1624 (defun flymake-get-buffer-is-running(buffer)
|
|
1625 (flymake-get-buffer-var buffer 'flymake-is-running)
|
|
1626 )
|
|
1627 (defun flymake-set-buffer-is-running(buffer is-running)
|
|
1628 (flymake-set-buffer-var buffer 'flymake-is-running is-running)
|
|
1629 )
|
|
1630
|
|
1631 (defvar flymake-timer nil
|
|
1632 "timer for starting syntax checks"
|
|
1633 )
|
|
1634 (make-variable-buffer-local 'flymake-timer)
|
|
1635 (defun flymake-get-buffer-timer(buffer)
|
|
1636 (flymake-get-buffer-var buffer 'flymake-timer)
|
|
1637 )
|
|
1638 (defun flymake-set-buffer-timer(buffer timer)
|
|
1639 (flymake-set-buffer-var buffer 'flymake-timer timer)
|
|
1640 )
|
|
1641
|
|
1642 (defvar flymake-last-change-time nil
|
|
1643 "time of last buffer change"
|
|
1644 )
|
|
1645 (make-variable-buffer-local 'flymake-last-change-time)
|
|
1646 (defun flymake-get-buffer-last-change-time(buffer)
|
|
1647 (flymake-get-buffer-var buffer 'flymake-last-change-time)
|
|
1648 )
|
|
1649 (defun flymake-set-buffer-last-change-time(buffer change-time)
|
|
1650 (flymake-set-buffer-var buffer 'flymake-last-change-time change-time)
|
|
1651 )
|
|
1652
|
|
1653 (defvar flymake-check-start-time nil
|
|
1654 "time at which syntax check was started")
|
|
1655 (make-variable-buffer-local 'flymake-check-start-time)
|
|
1656 (defun flymake-get-buffer-check-start-time(buffer)
|
|
1657 (flymake-get-buffer-var buffer 'flymake-check-start-time)
|
|
1658 )
|
|
1659 (defun flymake-set-buffer-check-start-time(buffer check-start-time)
|
|
1660 (flymake-set-buffer-var buffer 'flymake-check-start-time check-start-time)
|
|
1661 )
|
|
1662
|
|
1663 (defvar flymake-check-was-interrupted nil
|
|
1664 "t if syntax check was killed by flymake-compile"
|
|
1665 )
|
|
1666 (make-variable-buffer-local 'flymake-check-was-interrupted)
|
|
1667 (defun flymake-get-buffer-check-was-interrupted(buffer)
|
|
1668 (flymake-get-buffer-var buffer 'flymake-check-was-interrupted)
|
|
1669 )
|
|
1670 (defun flymake-set-buffer-check-was-interrupted(buffer interrupted)
|
|
1671 (flymake-set-buffer-var buffer 'flymake-check-was-interrupted interrupted)
|
|
1672 )
|
|
1673
|
|
1674 (defcustom flymake-no-changes-timeout 0.5
|
|
1675 "time to wait after last change before starting compilation"
|
|
1676 :group 'flymake
|
|
1677 :type 'number
|
|
1678 )
|
|
1679
|
|
1680 (defun flymake-on-timer-event(buffer)
|
|
1681 "start a syntax check for buffer if necessary"
|
|
1682 ;+(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))
|
|
1683
|
|
1684 (when (and (bufferp buffer) (not (flymake-get-buffer-is-running buffer)))
|
|
1685 (save-excursion
|
|
1686 (set-buffer buffer)
|
|
1687 (when (and (flymake-get-buffer-last-change-time buffer)
|
|
1688 (> (flymake-float-time) (+ flymake-no-changes-timeout (flymake-get-buffer-last-change-time buffer))))
|
|
1689 (flymake-set-buffer-last-change-time buffer nil)
|
|
1690 (flymake-log 3 "starting syntax check as more than 1 second passed since last change")
|
|
1691 (flymake-start-syntax-check buffer)
|
|
1692 )
|
|
1693 )
|
|
1694 )
|
|
1695 )
|
|
1696
|
|
1697 (defun flymake-start-syntax-check-for-current-buffer()
|
|
1698 "run flymake-start-syntax-check for current buffer if it isn't already running"
|
|
1699 (interactive)
|
|
1700 (flymake-start-syntax-check (current-buffer))
|
|
1701 )
|
|
1702
|
|
1703 (defun flymake-current-line-no()
|
|
1704 "return number of current line in current buffer"
|
|
1705 (interactive)
|
|
1706 (let ((beg (point-min))
|
|
1707 (end (if (= (point) (point-max)) (point) (1+ (point)))))
|
|
1708 (count-lines beg end)
|
|
1709 )
|
|
1710 )
|
|
1711
|
|
1712 (defun flymake-get-line-count(buffer)
|
|
1713 "return number of lines in buffer"
|
|
1714 (unless (bufferp buffer)
|
|
1715 (error "invalid buffer")
|
|
1716 )
|
|
1717 (save-excursion
|
|
1718 (set-buffer buffer)
|
|
1719 (count-lines (point-min) (point-max))
|
|
1720 )
|
|
1721 )
|
|
1722
|
|
1723 (defun flymake-count-lines(buffer)
|
|
1724 "return number of lines in buffer"
|
|
1725 (save-excursion
|
|
1726 (set-buffer buffer)
|
|
1727 (count-lines (point-min) (point-max))
|
|
1728 )
|
|
1729 )
|
|
1730
|
|
1731 (defun flymake-get-point-pixel-pos()
|
|
1732 "return point position in pixels: (x, y)"
|
|
1733 (let ((mouse-pos (mouse-position))
|
|
1734 (pixel-pos nil)
|
|
1735 (ret nil))
|
|
1736 (if (car (cdr mouse-pos))
|
|
1737 (progn
|
|
1738 (set-mouse-position (flymake-selected-frame) (current-column) (flymake-current-row))
|
|
1739 (setq pixel-pos (mouse-pixel-position))
|
|
1740 (set-mouse-position (car mouse-pos) (car (cdr mouse-pos)) (cdr (cdr mouse-pos)))
|
|
1741 (setq ret (list (car (cdr pixel-pos)) (cdr (cdr pixel-pos))))
|
|
1742 )
|
|
1743 ;else
|
|
1744 (progn
|
|
1745 (setq ret '(0 0))
|
|
1746 )
|
|
1747 )
|
|
1748 (flymake-log 3 "mouse pos is %s" ret)
|
|
1749 ret
|
|
1750 )
|
|
1751 )
|
|
1752
|
|
1753 (defun flymake-display-err-menu-for-current-line()
|
|
1754 "Display a menu with errors/warnings for current line if it has errors and/or warnings"
|
|
1755 (interactive)
|
|
1756 (let* ((line-no (flymake-current-line-no))
|
|
1757 (line-err-info-list (nth 0 (flymake-find-err-info (flymake-get-buffer-err-info (current-buffer)) line-no)))
|
|
1758 (menu-data (flymake-make-err-menu-data line-no line-err-info-list))
|
|
1759 (choice nil)
|
|
1760 (mouse-pos (flymake-get-point-pixel-pos))
|
|
1761 (moved-mouse-pos (list (car mouse-pos) (+ 10 (car (cdr mouse-pos)))))
|
|
1762 (menu-pos (list (flymake-get-point-pixel-pos) (selected-window))))
|
|
1763 (if menu-data
|
|
1764 (progn
|
|
1765 (setq choice (flymake-popup-menu menu-pos menu-data))
|
|
1766 (flymake-log 3 "choice=%s" choice)
|
|
1767 (when choice
|
|
1768 (eval choice)
|
|
1769 )
|
|
1770 )
|
|
1771 ;else
|
|
1772 (flymake-log 1 "no errors for line %d" line-no)
|
|
1773 )
|
|
1774 )
|
|
1775 )
|
|
1776
|
|
1777 (defun flymake-make-err-menu-data(line-no line-err-info-list)
|
|
1778 "Make a (menu-title (item-title item-action)*) list with errors/warnings from line-err-info"
|
|
1779 (let* ((menu-items nil))
|
|
1780 (when line-err-info-list
|
|
1781 (let* ((count (length line-err-info-list))
|
|
1782 (menu-item-text nil))
|
|
1783 (while (> count 0)
|
|
1784 (setq menu-item-text (flymake-ler-get-text (nth (1- count) line-err-info-list)))
|
|
1785 (let* ((file (flymake-ler-get-file (nth (1- count) line-err-info-list)))
|
|
1786 (full-file (flymake-ler-get-full-file (nth (1- count) line-err-info-list)))
|
|
1787 (line (flymake-ler-get-line (nth (1- count) line-err-info-list))))
|
|
1788 (if file
|
|
1789 (setq menu-item-text (concat menu-item-text " - " file "(" (format "%d" line) ")"))
|
|
1790 )
|
|
1791 (setq menu-items (cons (list menu-item-text
|
|
1792 (if file (list 'flymake-goto-file-and-line full-file line) nil))
|
|
1793 menu-items))
|
|
1794 )
|
|
1795 (setq count (1- count))
|
|
1796 )
|
|
1797 (flymake-log 3 "created menu-items with %d item(s)" (length menu-items))
|
|
1798 )
|
|
1799 )
|
|
1800 (if menu-items
|
|
1801 (let* ((menu-title (format "Line %d: %d error(s), %d warning(s)" line-no
|
|
1802 (flymake-get-line-err-count line-err-info-list "e")
|
|
1803 (flymake-get-line-err-count line-err-info-list "w"))))
|
|
1804 (list menu-title menu-items)
|
|
1805 )
|
|
1806 ;else
|
|
1807 nil
|
|
1808 )
|
|
1809 )
|
|
1810 )
|
|
1811
|
|
1812 (defun flymake-goto-file-and-line(file line)
|
|
1813 "try to get buffer for file and goto line line in it"
|
|
1814 (if (not (file-exists-p file))
|
|
1815 (flymake-log 1 "file %s does not exists" file)
|
|
1816 ;else
|
|
1817 (progn
|
|
1818 (find-file file)
|
|
1819 (goto-line line)
|
|
1820 )
|
|
1821 )
|
|
1822 )
|
|
1823 ;; flymake minor mode declarations
|
|
1824
|
|
1825 (defvar flymake-mode nil)
|
|
1826 (make-variable-buffer-local 'flymake-mode)
|
|
1827
|
|
1828 (defvar flymake-mode-line nil
|
|
1829 ""
|
|
1830 )
|
|
1831 (make-variable-buffer-local 'flymake-mode-line)
|
|
1832 (defun flymake-get-buffer-mode-line(buffer)
|
|
1833 (flymake-get-buffer-var buffer 'flymake-mode-line)
|
|
1834 )
|
|
1835 (defun flymake-set-buffer-mode-line(buffer mode-line-string)
|
|
1836 (flymake-set-buffer-var buffer 'flymake-mode-line mode-line-string)
|
|
1837 )
|
|
1838
|
|
1839 (defvar flymake-mode-line-e-w nil)
|
|
1840 (make-variable-buffer-local 'flymake-mode-line-e-w)
|
|
1841 (defun flymake-get-buffer-mode-line-e-w(buffer)
|
|
1842 (flymake-get-buffer-var buffer 'flymake-mode-line-e-w)
|
|
1843 )
|
|
1844 (defun flymake-set-buffer-mode-line-e-w(buffer e-w)
|
|
1845 (flymake-set-buffer-var buffer 'flymake-mode-line-e-w e-w)
|
|
1846 )
|
|
1847
|
|
1848 (defvar flymake-mode-line-status nil)
|
|
1849 (make-variable-buffer-local 'flymake-mode-line-status)
|
|
1850 (defun flymake-get-buffer-mode-line-status(buffer)
|
|
1851 (flymake-get-buffer-var buffer 'flymake-mode-line-status)
|
|
1852 )
|
|
1853 (defun flymake-set-buffer-mode-line-status(buffer status)
|
|
1854 (flymake-set-buffer-var buffer 'flymake-mode-line-status status)
|
|
1855 )
|
|
1856
|
|
1857 (defun flymake-report-status(buffer e-w &optional status)
|
|
1858 "show status in the mode line"
|
|
1859 (when (bufferp buffer)
|
|
1860 (save-excursion
|
|
1861 (set-buffer buffer)
|
|
1862 (when e-w
|
|
1863 (flymake-set-buffer-mode-line-e-w buffer e-w)
|
|
1864 )
|
|
1865 (when status
|
|
1866 (flymake-set-buffer-mode-line-status buffer status)
|
|
1867 )
|
|
1868 (let* ((mode-line " Flymake"))
|
|
1869 (when (> (length (flymake-get-buffer-mode-line-e-w buffer)) 0)
|
|
1870 (setq mode-line (concat mode-line ":" (flymake-get-buffer-mode-line-e-w buffer)))
|
|
1871 )
|
|
1872 (setq mode-line (concat mode-line (flymake-get-buffer-mode-line-status buffer)))
|
|
1873 (flymake-set-buffer-mode-line buffer mode-line)
|
|
1874 (force-mode-line-update)
|
|
1875 )
|
|
1876 )
|
|
1877 )
|
|
1878 )
|
|
1879
|
|
1880 (defun flymake-display-warning(warning)
|
|
1881 "display a warning to the user"
|
|
1882 (message-box warning)
|
|
1883 )
|
|
1884
|
|
1885 (defcustom flymake-gui-warnings-enabled t
|
|
1886 "enables/disables gui warnings"
|
|
1887 :group 'flymake
|
|
1888 :type 'boolean
|
|
1889 )
|
|
1890
|
|
1891 (defun flymake-report-fatal-status(buffer status warning)
|
|
1892 "display a warning and switch flymake mode OFF"
|
|
1893 (when flymake-gui-warnings-enabled
|
|
1894 (flymake-display-warning (format "Flymake: %s. Flymake will be switched OFF" warning))
|
|
1895 )
|
|
1896 (save-excursion
|
|
1897 (set-buffer buffer)
|
|
1898 (flymake-mode 0)
|
|
1899 (flymake-log 0 "switched OFF Flymake mode for buffer %s due to fatal status %s, warning %s"
|
|
1900 (buffer-name buffer) status warning)
|
|
1901 )
|
|
1902 )
|
|
1903
|
|
1904 (defun flymake-mode(&optional arg)
|
|
1905 "toggle flymake-mode"
|
|
1906 (interactive)
|
|
1907 (let ((old-flymake-mode flymake-mode))
|
|
1908
|
|
1909 (setq turn-on
|
|
1910 (if (null arg)
|
|
1911 (not flymake-mode)
|
|
1912 ;else
|
|
1913 (> (prefix-numeric-value arg) 0))
|
|
1914 )
|
|
1915
|
|
1916 (if turn-on
|
|
1917 (if (flymake-can-syntax-check-file (buffer-file-name))
|
|
1918 (flymake-mode-on)
|
|
1919 ;else
|
|
1920 (flymake-log 2 "flymake cannot check syntax in buffer %s" (buffer-name))
|
|
1921 )
|
|
1922 ;else
|
|
1923 (flymake-mode-off)
|
|
1924 )
|
|
1925 (force-mode-line-update)
|
|
1926 )
|
|
1927 )
|
|
1928
|
|
1929 ;;;###autoload
|
|
1930 (unless (assq 'flymake-mode minor-mode-alist)
|
|
1931 (setq minor-mode-alist (cons '(flymake-mode flymake-mode-line) minor-mode-alist))
|
|
1932 )
|
|
1933
|
|
1934 ;;;###autoload
|
|
1935 (defun flymake-mode-on()
|
|
1936 "turn flymake mode on"
|
|
1937 (when (not flymake-mode)
|
|
1938 (make-local-variable 'after-change-functions)
|
|
1939 (setq after-change-functions (cons 'flymake-after-change-function after-change-functions))
|
|
1940 (add-hook 'after-save-hook 'flymake-after-save-hook)
|
|
1941 (add-hook 'kill-buffer-hook 'flymake-kill-buffer-hook)
|
|
1942 ;+(add-hook 'find-file-hooks 'flymake-find-file-hook)
|
|
1943
|
|
1944 (flymake-report-status (current-buffer) "" "")
|
|
1945
|
|
1946 (flymake-set-buffer-timer (current-buffer) (run-at-time nil 1 'flymake-on-timer-event (current-buffer)))
|
|
1947
|
|
1948 (setq flymake-mode t)
|
|
1949 (flymake-log 1 "flymake mode turned ON for buffer %s" (buffer-name (current-buffer)))
|
|
1950 (when flymake-start-syntax-check-on-find-file
|
|
1951 (flymake-start-syntax-check-for-current-buffer) ; will be started by on-load hook
|
|
1952 )
|
|
1953 )
|
|
1954 )
|
|
1955
|
|
1956 ;;;###autoload
|
|
1957 (defun flymake-mode-off()
|
|
1958 "turn flymake mode off"
|
|
1959 (when flymake-mode
|
|
1960 (setq after-change-functions (delq 'flymake-after-change-function after-change-functions))
|
|
1961 (remove-hook 'after-save-hook (function flymake-after-save-hook) t)
|
|
1962 (remove-hook 'kill-buffer-hook (function flymake-kill-buffer-hook) t)
|
|
1963 ;+(remove-hook 'find-file-hooks (function flymake-find-file-hook) t)
|
|
1964
|
|
1965 (flymake-delete-own-overlays (current-buffer))
|
|
1966
|
|
1967 (when (flymake-get-buffer-timer (current-buffer))
|
|
1968 (cancel-timer (flymake-get-buffer-timer (current-buffer)))
|
|
1969 (flymake-set-buffer-timer (current-buffer) nil)
|
|
1970 )
|
|
1971
|
|
1972 (flymake-set-buffer-is-running (current-buffer) nil)
|
|
1973
|
|
1974 (setq flymake-mode nil)
|
|
1975 (flymake-log 1 "flymake mode turned OFF for buffer %s" (buffer-name (current-buffer)))
|
|
1976 )
|
|
1977 )
|
|
1978
|
|
1979 (defcustom flymake-start-syntax-check-on-newline t
|
|
1980 "start syntax check if newline char was added/removed from the buffer"
|
|
1981 :group 'flymake
|
|
1982 :type 'boolean
|
|
1983 )
|
|
1984
|
|
1985 (defun flymake-after-change-function(start stop len)
|
|
1986 "Start syntax check for current buffer if it isn't already running"
|
|
1987 ;+(flymake-log 0 "setting change time to %s" (flymake-float-time))
|
|
1988 (let((new-text (buffer-substring start stop)))
|
|
1989 (when (and flymake-start-syntax-check-on-newline (equal new-text "\n"))
|
|
1990 (flymake-log 3 "starting syntax check as new-line has been seen")
|
|
1991 (flymake-start-syntax-check-for-current-buffer)
|
|
1992 )
|
|
1993 (flymake-set-buffer-last-change-time (current-buffer) (flymake-float-time))
|
|
1994 )
|
|
1995 )
|
|
1996
|
|
1997 (defun flymake-after-save-hook()
|
|
1998 (if (local-variable-p 'flymake-mode (current-buffer)) ; (???) other way to determine whether flymake is active in buffer being saved?
|
|
1999 (progn
|
|
2000 (flymake-log 3 "starting syntax check as buffer was saved")
|
|
2001 (flymake-start-syntax-check-for-current-buffer) ; no more mode 3. cannot start check if mode 3 (to temp copies) is active - (???)
|
|
2002 )
|
|
2003 )
|
|
2004 )
|
|
2005
|
|
2006 (defun flymake-kill-buffer-hook()
|
|
2007 (when (flymake-get-buffer-timer (current-buffer))
|
|
2008 (cancel-timer (flymake-get-buffer-timer (current-buffer)))
|
|
2009 (flymake-set-buffer-timer (current-buffer) nil)
|
|
2010 )
|
|
2011 )
|
|
2012
|
|
2013 (defcustom flymake-start-syntax-check-on-find-file t
|
|
2014 "statr syntax check on find file"
|
|
2015 :group 'flymake
|
|
2016 :type 'boolean
|
|
2017 )
|
|
2018
|
|
2019 (defun flymake-find-file-hook()
|
|
2020 ;+(when flymake-start-syntax-check-on-find-file
|
|
2021 ;+ (flymake-log 3 "starting syntax check on file open")
|
|
2022 ;+ (flymake-start-syntax-check-for-current-buffer)
|
|
2023 ;+)
|
|
2024 (when (and (not (local-variable-p 'flymake-mode (current-buffer)))
|
|
2025 (flymake-can-syntax-check-file (buffer-file-name (current-buffer))))
|
|
2026 (flymake-mode)
|
|
2027 (flymake-log 3 "automatically turned ON flymake mode")
|
|
2028 )
|
|
2029 )
|
|
2030
|
|
2031 (defun flymake-get-first-err-line-no(err-info-list)
|
|
2032 "return first line-no with error"
|
|
2033 (when err-info-list
|
|
2034 (flymake-er-get-line (car err-info-list))
|
|
2035 )
|
|
2036 )
|
|
2037
|
|
2038 (defun flymake-get-last-err-line-no(err-info-list)
|
|
2039 "return last line-no with error"
|
|
2040 (when err-info-list
|
|
2041 (flymake-er-get-line (nth (1- (length err-info-list)) err-info-list))
|
|
2042 )
|
|
2043 )
|
|
2044
|
|
2045 (defun flymake-get-next-err-line-no(err-info-list line-no)
|
|
2046 "return next line with erroe"
|
|
2047 (when err-info-list
|
|
2048 (let* ((count (length err-info-list))
|
|
2049 (idx 0))
|
|
2050 (while (and (< idx count) (>= line-no (flymake-er-get-line (nth idx err-info-list))))
|
|
2051 (setq idx (1+ idx))
|
|
2052 )
|
|
2053 (if (< idx count)
|
|
2054 (flymake-er-get-line (nth idx err-info-list))
|
|
2055 )
|
|
2056 )
|
|
2057 )
|
|
2058 )
|
|
2059
|
|
2060 (defun flymake-get-prev-err-line-no(err-info-list line-no)
|
|
2061 "return prev line with error"
|
|
2062 (when err-info-list
|
|
2063 (let* ((count (length err-info-list)))
|
|
2064 (while (and (> count 0) (<= line-no (flymake-er-get-line (nth (1- count) err-info-list))))
|
|
2065 (setq count (1- count))
|
|
2066 )
|
|
2067 (if (> count 0)
|
|
2068 (flymake-er-get-line (nth (1- count) err-info-list))
|
|
2069 )
|
|
2070 )
|
|
2071 )
|
|
2072 )
|
|
2073
|
|
2074 (defun flymake-skip-whitespace()
|
|
2075 "move forward until nonwhitespace is reached"
|
|
2076 (while (looking-at "[ \t]")
|
|
2077 (forward-char)
|
|
2078 )
|
|
2079 )
|
|
2080
|
|
2081 (defun flymake-goto-line(line-no)
|
|
2082 "goto-line, then skip whitespace"
|
|
2083 (goto-line line-no)
|
|
2084 (flymake-skip-whitespace)
|
|
2085 )
|
|
2086
|
|
2087 (defun flymake-goto-next-error()
|
|
2088 "go to next error in err ring"
|
|
2089 (interactive)
|
|
2090 (let ((line-no (flymake-get-next-err-line-no (flymake-get-buffer-err-info (current-buffer)) (flymake-current-line-no))))
|
|
2091 (when (not line-no)
|
|
2092 (setq line-no (flymake-get-first-err-line-no (flymake-get-buffer-err-info (current-buffer))))
|
|
2093 (flymake-log 1 "passed end of file")
|
|
2094 )
|
|
2095 (if line-no
|
|
2096 (flymake-goto-line line-no)
|
|
2097 ;else
|
|
2098 (flymake-log 1 "no errors in current buffer")
|
|
2099 )
|
|
2100 )
|
|
2101 )
|
|
2102
|
|
2103 (defun flymake-goto-prev-error()
|
|
2104 "go to prev error in err ring"
|
|
2105 (interactive)
|
|
2106 (let ((line-no (flymake-get-prev-err-line-no (flymake-get-buffer-err-info (current-buffer)) (flymake-current-line-no))))
|
|
2107 (when (not line-no)
|
|
2108 (setq line-no (flymake-get-last-err-line-no (flymake-get-buffer-err-info (current-buffer))))
|
|
2109 (flymake-log 1 "passed beginning of file")
|
|
2110 )
|
|
2111 (if line-no
|
|
2112 (flymake-goto-line line-no)
|
|
2113 ;else
|
|
2114 (flymake-log 1 "no errors in current buffer")
|
|
2115 )
|
|
2116 )
|
|
2117 )
|
|
2118
|
|
2119 (defun flymake-patch-err-text(string)
|
|
2120 (if (string-match "^[\n\t :0-9]*\\(.*\\)$" string)
|
|
2121 (match-string 1 string)
|
|
2122 ;else
|
|
2123 string
|
|
2124 )
|
|
2125 )
|
|
2126
|
|
2127 ;;;; general init-cleanup and helper routines
|
|
2128
|
|
2129 (defun flymake-create-temp-inplace(file-name prefix)
|
|
2130 (unless (stringp file-name)
|
|
2131 (error "invalid file-name")
|
|
2132 )
|
|
2133 (or prefix
|
|
2134 (setq prefix "flymake")
|
|
2135 )
|
|
2136 (let* ((temp-name (concat (file-name-sans-extension file-name)
|
|
2137 "_" prefix
|
|
2138 (and (file-name-extension file-name)
|
|
2139 (concat "." (file-name-extension file-name))))))
|
|
2140 (flymake-log 3 "create-temp-inplace: file=%s temp=%s" file-name temp-name)
|
|
2141 temp-name
|
|
2142 )
|
|
2143 )
|
|
2144
|
|
2145 (defun flymake-create-temp-with-folder-structure(file-name prefix)
|
|
2146 (unless (stringp file-name)
|
|
2147 (error "invalid file-name")
|
|
2148 )
|
|
2149
|
|
2150 (let* ((dir (file-name-directory file-name))
|
|
2151 (slash-pos (string-match "/" dir))
|
|
2152 (temp-dir (concat (flymake-ensure-ends-with-slash (flymake-get-temp-dir)) (substring dir (1+ slash-pos)))))
|
|
2153
|
|
2154 (file-truename (concat (flymake-ensure-ends-with-slash temp-dir)
|
|
2155 (file-name-nondirectory file-name)))
|
|
2156 )
|
|
2157 )
|
|
2158
|
|
2159 (defun flymake-strrchr(str ch)
|
|
2160 (let* ((count (length str))
|
|
2161 (pos nil))
|
|
2162 (while (and (not pos) (> count 0))
|
|
2163 (if (= ch (elt str (1- count)))
|
|
2164 (setq pos (1- count))
|
|
2165 )
|
|
2166 (setq count (1- count))
|
|
2167 )
|
|
2168 pos
|
|
2169 )
|
|
2170 )
|
|
2171
|
|
2172 (defun flymake-delete-temp-directory(dir-name)
|
|
2173 "attempt to delete temp dir created by flymake-create-temp-with-folder-structure, do not fail on error"
|
|
2174 (let* ((temp-dir (flymake-get-temp-dir))
|
|
2175 (suffix (substring dir-name (1+ (length temp-dir))))
|
|
2176 (slash-pos nil))
|
|
2177
|
|
2178 (while (> (length suffix) 0)
|
|
2179 ;+(flymake-log 0 "suffix=%s" suffix)
|
|
2180 (flymake-safe-delete-directory (file-truename (concat (flymake-ensure-ends-with-slash temp-dir) suffix)))
|
|
2181 (setq slash-pos (flymake-strrchr suffix (string-to-char "/")))
|
|
2182 (if slash-pos
|
|
2183 (setq suffix (substring suffix 0 slash-pos))
|
|
2184 ;else
|
|
2185 (setq suffix "")
|
|
2186 )
|
|
2187 )
|
|
2188 )
|
|
2189 )
|
|
2190
|
|
2191 (defun flymake-init-create-temp-buffer-copy(buffer create-temp-f)
|
|
2192 "make a temporary copy of the current buffer, save its name in buffer data and return the name"
|
|
2193 (let* ((source-file-name (buffer-file-name buffer))
|
|
2194 (temp-source-file-name (funcall create-temp-f source-file-name "flymake")))
|
|
2195
|
|
2196 (flymake-save-buffer-in-file buffer temp-source-file-name)
|
|
2197 (flymake-set-buffer-value buffer "temp-source-file-name" temp-source-file-name)
|
|
2198
|
|
2199 temp-source-file-name
|
|
2200 )
|
|
2201 )
|
|
2202
|
|
2203 (defun flymake-simple-cleanup(buffer)
|
|
2204 "cleanup after flymake-init-create-temp-buffer-copy -- delete temp file"
|
|
2205 (let* ((temp-source-file-name (flymake-get-buffer-value buffer "temp-source-file-name")))
|
|
2206 (flymake-safe-delete-file temp-source-file-name)
|
|
2207 (flymake-set-buffer-last-change-time buffer nil)
|
|
2208 )
|
|
2209 )
|
|
2210
|
|
2211 (defun flymake-get-real-file-name(buffer file-name-from-err-msg)
|
|
2212 "Translate file name from error message to `real' file name. Return full-name. Names are real, not patched"
|
|
2213 (let* ((real-name nil)
|
|
2214 (source-file-name (buffer-file-name buffer))
|
|
2215 (master-file-name (flymake-get-buffer-value buffer "master-file-name"))
|
|
2216 (temp-source-file-name (flymake-get-buffer-value buffer "temp-source-file-name"))
|
|
2217 (temp-master-file-name (flymake-get-buffer-value buffer "temp-master-file-name"))
|
|
2218 (base-dirs (list (flymake-get-buffer-value buffer "base-dir")
|
|
2219 (file-name-directory source-file-name)
|
|
2220 (if master-file-name (file-name-directory master-file-name) nil)))
|
|
2221 (files (list (list source-file-name source-file-name)
|
|
2222 (list temp-source-file-name source-file-name)
|
|
2223 (list master-file-name master-file-name)
|
|
2224 (list temp-master-file-name master-file-name))))
|
|
2225
|
|
2226 (when (equal 0 (length file-name-from-err-msg))
|
|
2227 (setq file-name-from-err-msg source-file-name)
|
|
2228 )
|
|
2229
|
|
2230 (setq real-name (flymake-get-full-patched-file-name file-name-from-err-msg base-dirs files))
|
|
2231 ; if real-name is nil, than file name from err msg is none of the files we've patched
|
|
2232 (if (not real-name)
|
|
2233 (setq real-name (flymake-get-full-nonpatched-file-name file-name-from-err-msg base-dirs))
|
|
2234 )
|
|
2235 (if (not real-name)
|
|
2236 (setq real-name file-name-from-err-msg)
|
|
2237 )
|
|
2238 (setq real-name (flymake-fix-path-name real-name))
|
|
2239 (flymake-log 3 "get-real-file-name: file-name=%s real-name=%s" file-name-from-err-msg real-name)
|
|
2240 real-name
|
|
2241 )
|
|
2242 )
|
|
2243
|
|
2244 (defun flymake-get-full-patched-file-name(file-name-from-err-msg base-dirs files)
|
|
2245 (let* ((base-dirs-count (length base-dirs))
|
|
2246 (file-count (length files))
|
|
2247 (real-name nil))
|
|
2248
|
|
2249 (while (and (not real-name) (> base-dirs-count 0))
|
|
2250 (setq file-count (length files))
|
|
2251 (while (and (not real-name) (> file-count 0))
|
|
2252 (let* ((this-dir (nth (1- base-dirs-count) base-dirs))
|
|
2253 (this-file (nth 0 (nth (1- file-count) files)))
|
|
2254 (this-real-name (nth 1 (nth (1- file-count) files))))
|
|
2255 ;+(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)
|
|
2256 (when (and this-dir this-file (flymake-same-files
|
|
2257 (flymake-get-absolute-file-name-basedir file-name-from-err-msg this-dir)
|
|
2258 this-file))
|
|
2259 (setq real-name this-real-name)
|
|
2260 )
|
|
2261 )
|
|
2262 (setq file-count (1- file-count))
|
|
2263 )
|
|
2264 (setq base-dirs-count (1- base-dirs-count))
|
|
2265 )
|
|
2266 real-name
|
|
2267 )
|
|
2268 )
|
|
2269
|
|
2270 (defun flymake-get-full-nonpatched-file-name(file-name-from-err-msg base-dirs)
|
|
2271 (let* ((real-name nil))
|
|
2272 (if (file-name-absolute-p file-name-from-err-msg)
|
|
2273 (setq real-name file-name-from-err-msg)
|
|
2274 ;else
|
|
2275 (let* ((base-dirs-count (length base-dirs)))
|
|
2276 (while (and (not real-name) (> base-dirs-count 0))
|
|
2277 (let* ((full-name (flymake-get-absolute-file-name-basedir file-name-from-err-msg
|
|
2278 (nth (1- base-dirs-count) base-dirs))))
|
|
2279 (if (file-exists-p full-name)
|
|
2280 (setq real-name full-name)
|
|
2281 )
|
|
2282 (setq base-dirs-count (1- base-dirs-count))
|
|
2283 )
|
|
2284 )
|
|
2285 )
|
|
2286 )
|
|
2287 real-name
|
|
2288 )
|
|
2289 )
|
|
2290
|
|
2291 (defun flymake-get-absolute-file-name-basedir(file-name dir-name)
|
|
2292 (if (file-name-absolute-p file-name)
|
|
2293 file-name
|
|
2294 ;else
|
|
2295 (concat dir-name "/" file-name)
|
|
2296 )
|
|
2297 )
|
|
2298
|
|
2299 (defun flymake-init-find-buildfile-dir(buffer source-file-name buildfile-name)
|
|
2300 "find buildfile, store its dir in buffer data and return its dir, if found"
|
|
2301 (let* ((buildfile-dir (flymake-find-buildfile buildfile-name
|
|
2302 (file-name-directory source-file-name)
|
|
2303 flymake-buildfile-dirs)))
|
|
2304 (if (not buildfile-dir)
|
|
2305 (progn
|
|
2306 (flymake-log 1 "no buildfile (%s) for %s" buildfile-name source-file-name)
|
|
2307 (flymake-report-fatal-status buffer "NOMK" (format "No buildfile (%s) found for %s" buildfile-name source-file-name))
|
|
2308 )
|
|
2309 ;else
|
|
2310 (progn
|
|
2311 (flymake-set-buffer-value buffer "base-dir" buildfile-dir)
|
|
2312 )
|
|
2313 )
|
|
2314 buildfile-dir
|
|
2315 )
|
|
2316 )
|
|
2317
|
|
2318 (defun flymake-init-create-temp-source-and-master-buffer-copy(buffer get-incl-dirs-f create-temp-f master-file-masks include-regexp-list)
|
|
2319 "find master file (or buffer), create it's copy along with a copy of the source file"
|
|
2320 (let* ((source-file-name (buffer-file-name buffer))
|
|
2321 (temp-source-file-name (flymake-init-create-temp-buffer-copy buffer create-temp-f))
|
|
2322 (master-file-name nil)
|
|
2323 (temp-master-file-name nil)
|
|
2324 (master-and-temp-master (flymake-create-master-file
|
|
2325 source-file-name temp-source-file-name
|
|
2326 get-incl-dirs-f create-temp-f
|
|
2327 master-file-masks include-regexp-list)))
|
|
2328
|
|
2329 (if (not master-and-temp-master)
|
|
2330 (progn
|
|
2331 (flymake-log 1 "cannot find master file for %s" source-file-name)
|
|
2332 (flymake-report-status buffer "!" "") ; NOMASTER
|
|
2333 )
|
|
2334 ;else
|
|
2335 (progn
|
|
2336 (setq master-file-name (nth 0 master-and-temp-master))
|
|
2337 (setq temp-master-file-name (nth 1 master-and-temp-master))
|
|
2338 (flymake-set-buffer-value buffer "master-file-name" master-file-name)
|
|
2339 (flymake-set-buffer-value buffer "temp-master-file-name" temp-master-file-name)
|
|
2340 )
|
|
2341 )
|
|
2342 temp-master-file-name
|
|
2343 )
|
|
2344 )
|
|
2345
|
|
2346 (defun flymake-master-cleanup(buffer)
|
|
2347 (flymake-simple-cleanup buffer)
|
|
2348 (flymake-safe-delete-file (flymake-get-buffer-value buffer "temp-master-file-name"))
|
|
2349 )
|
|
2350
|
|
2351 ;;;; make-specific init-cleanup routines
|
|
2352
|
|
2353 (defun flymake-get-syntax-check-program-args(source-file-name base-dir use-relative-base-dir use-relative-source get-cmd-line-f)
|
|
2354 "create a command line for the syntax check command, using get-cmd-line-f"
|
|
2355 (let* ((my-base-dir base-dir)
|
|
2356 (my-source source-file-name))
|
|
2357
|
|
2358 (when use-relative-base-dir
|
|
2359 (setq my-base-dir (flymake-build-relative-path (file-name-directory source-file-name) base-dir))
|
|
2360 )
|
|
2361
|
|
2362 (when use-relative-source
|
|
2363 (setq my-source (concat (flymake-build-relative-path base-dir (file-name-directory source-file-name))
|
|
2364 (file-name-nondirectory source-file-name)))
|
|
2365 )
|
|
2366
|
|
2367 (funcall get-cmd-line-f my-source my-base-dir)
|
|
2368 )
|
|
2369 )
|
|
2370
|
|
2371 (defun flymake-get-make-cmdline(source base-dir)
|
|
2372 (list "make"
|
|
2373 (list "-s"
|
|
2374 "-C"
|
|
2375 base-dir
|
|
2376 (concat "CHK_SOURCES=" source)
|
|
2377 "SYNTAX_CHECK_MODE=1"
|
|
2378 "check-syntax"))
|
|
2379 )
|
|
2380
|
|
2381 (defun flymake-get-ant-cmdline(source base-dir)
|
|
2382 (list "ant"
|
|
2383 (list "-buildfile"
|
|
2384 (concat base-dir "/" "build.xml")
|
|
2385 (concat "-DCHK_SOURCES=" source)
|
|
2386 "check-syntax"))
|
|
2387 )
|
|
2388
|
|
2389 (defun flymake-simple-make-init-impl(buffer create-temp-f use-relative-base-dir use-relative-source build-file-name get-cmdline-f)
|
|
2390 "create syntax check command line for a directly checked source file, use create-temp-f for creating temp copy"
|
|
2391 (let* ((args nil)
|
|
2392 (source-file-name (buffer-file-name buffer))
|
|
2393 (buildfile-dir (flymake-init-find-buildfile-dir buffer source-file-name build-file-name)))
|
|
2394 (if buildfile-dir
|
|
2395 (let* ((temp-source-file-name (flymake-init-create-temp-buffer-copy buffer create-temp-f)))
|
|
2396 (setq args (flymake-get-syntax-check-program-args temp-source-file-name buildfile-dir
|
|
2397 use-relative-base-dir use-relative-source
|
|
2398 get-cmdline-f))
|
|
2399 )
|
|
2400 )
|
|
2401
|
|
2402 args
|
|
2403 )
|
|
2404 )
|
|
2405
|
|
2406 (defun flymake-simple-make-init(buffer)
|
|
2407 (flymake-simple-make-init-impl buffer 'flymake-create-temp-inplace t t "Makefile" 'flymake-get-make-cmdline)
|
|
2408 )
|
|
2409
|
|
2410 (defun flymake-master-make-init(buffer get-incl-dirs-f master-file-masks include-regexp-list)
|
|
2411 "create make command line for a source file checked via master file compilation"
|
|
2412 (let* ((make-args nil)
|
|
2413 (temp-master-file-name (flymake-init-create-temp-source-and-master-buffer-copy
|
|
2414 buffer get-incl-dirs-f 'flymake-create-temp-inplace
|
|
2415 master-file-masks include-regexp-list)))
|
|
2416 (when temp-master-file-name
|
|
2417 (let* ((buildfile-dir (flymake-init-find-buildfile-dir buffer temp-master-file-name "Makefile")))
|
|
2418 (if buildfile-dir
|
|
2419 (setq make-args (flymake-get-syntax-check-program-args
|
|
2420 temp-master-file-name buildfile-dir nil nil 'flymake-get-make-cmdline))
|
|
2421 )
|
|
2422 )
|
|
2423 )
|
|
2424
|
|
2425 make-args
|
|
2426 )
|
|
2427 )
|
|
2428
|
|
2429 (defun flymake-find-make-buildfile(source-dir)
|
|
2430 (flymake-find-buildfile "Makefile" source-dir flymake-buildfile-dirs)
|
|
2431 )
|
|
2432
|
|
2433 ;;;; .h/make specific
|
|
2434 (defun flymake-master-make-header-init(buffer)
|
|
2435 (flymake-master-make-init buffer
|
|
2436 'flymake-get-include-dirs
|
|
2437 '(".+\\.cpp$" ".+\\.c$")
|
|
2438 '("[ \t]*#[ \t]*include[ \t]*\"\\([\w0-9/\\_\.]*[/\\]*\\)\\(%s\\)\"" 1 2))
|
|
2439 )
|
|
2440
|
|
2441 ;;;; .java/make specific
|
|
2442 (defun flymake-simple-make-java-init(buffer)
|
|
2443 (flymake-simple-make-init-impl buffer 'flymake-create-temp-with-folder-structure nil nil "Makefile" 'flymake-get-make-cmdline)
|
|
2444 )
|
|
2445
|
|
2446 (defun flymake-simple-ant-java-init(buffer)
|
|
2447 (flymake-simple-make-init-impl buffer 'flymake-create-temp-with-folder-structure nil nil "build.xml" 'flymake-get-ant-cmdline)
|
|
2448 )
|
|
2449
|
|
2450 (defun flymake-simple-java-cleanup(buffer)
|
|
2451 "cleanup after flymake-simple-make-java-init -- delete temp file and dirs"
|
|
2452 (let* ((temp-source-file-name (flymake-get-buffer-value buffer "temp-source-file-name")))
|
|
2453 (flymake-safe-delete-file temp-source-file-name)
|
|
2454 (when temp-source-file-name
|
|
2455 (flymake-delete-temp-directory (file-name-directory temp-source-file-name))
|
|
2456 )
|
|
2457 )
|
|
2458 )
|
|
2459
|
|
2460 ;;;; perl-specific init-cleanup routines
|
|
2461
|
|
2462 (defun flymake-perl-init(buffer)
|
|
2463 (let* ((temp-file (flymake-init-create-temp-buffer-copy buffer 'flymake-create-temp-inplace))
|
|
2464 (local-file (concat (flymake-build-relative-path (file-name-directory (buffer-file-name (current-buffer)))
|
|
2465 (file-name-directory temp-file))
|
|
2466 (file-name-nondirectory temp-file))))
|
|
2467 (list "perl" (list "-wc " local-file))
|
|
2468 )
|
|
2469 )
|
|
2470
|
|
2471 ;;;; tex-specific init-cleanup routines
|
|
2472
|
|
2473 (defun flymake-get-tex-args(file-name)
|
|
2474 ;(list "latex" (list "-c-style-errors" file-name))
|
|
2475 (list "texify" (list "--pdf" "--tex-option=-c-style-errors" file-name))
|
|
2476 )
|
|
2477
|
|
2478 (defun flymake-simple-tex-init(buffer)
|
|
2479 (flymake-get-tex-args (flymake-init-create-temp-buffer-copy buffer 'flymake-create-temp-inplace))
|
|
2480 )
|
|
2481
|
|
2482 (defun flymake-master-tex-init(buffer)
|
|
2483 (let* ((temp-master-file-name (flymake-init-create-temp-source-and-master-buffer-copy
|
|
2484 buffer 'flymake-get-include-dirs-dot 'flymake-create-temp-inplace
|
|
2485 '(".+\\.tex$")
|
|
2486 '("[ \t]*\\input[ \t]*{\\(.*\\)\\(%s\\)}" 1 2))))
|
|
2487 (when temp-master-file-name
|
|
2488 (flymake-get-tex-args temp-master-file-name)
|
|
2489 )
|
|
2490 )
|
|
2491 )
|
|
2492
|
|
2493 (defun flymake-get-include-dirs-dot(base-dir)
|
|
2494 '(".")
|
|
2495 )
|
|
2496
|
|
2497 ;;;; xml-specific init-cleanup routines
|
|
2498
|
|
2499 (defun flymake-xml-init(buffer)
|
|
2500 (list "xml" (list "val" (flymake-init-create-temp-buffer-copy buffer 'flymake-create-temp-inplace)))
|
|
2501 )
|
|
2502
|
|
2503 ;;; flymake.el ends here
|