HCoop / bpt / emacs.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
Minor-mode doc fixes for ARG behavior
[bpt/emacs.git] / lisp / progmodes / flymake.el
CommitLineData
4bcbcb9d
EZ		 1;;; flymake.el -- a universal on-the-fly syntax checker
2
e1ac4066 3;; Copyright (C) 2003-2012 Free Software Foundation, Inc.
4bcbcb9d 4
1d9a4930
EZ		 5;; Author: Pavel Kobyakov <pk_at_work@yahoo.com>
6;; Maintainer: Pavel Kobyakov <pk_at_work@yahoo.com>
4bcbcb9d
EZ		 7;; Version: 0.3
8;; Keywords: c languages tools
9
10;; This file is part of GNU Emacs.
11
b1fc2b50 12;; GNU Emacs is free software: you can redistribute it and/or modify
4bcbcb9d 13;; it under the terms of the GNU General Public License as published by
b1fc2b50
GM		 14;; the Free Software Foundation, either version 3 of the License, or
15;; (at your option) any later version.
4bcbcb9d
EZ		 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
b1fc2b50 23;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
4bcbcb9d
EZ		 24
25;;; Commentary:
26;;
27;; Flymake is a minor Emacs mode performing on-the-fly syntax
28;; checks using the external syntax check tool (for C/C++ this
29;; is usually the compiler)
30
9f812d23
SM		 31;;; Bugs/todo:
32
33;; - Only uses "Makefile", not "makefile" or "GNUmakefile"
34;; (from http://bugs.debian.org/337339).
35
4bcbcb9d
EZ		 36;;; Code:
37
6fee12e6
SM		 38(eval-when-compile (require 'cl))
39(if (featurep 'xemacs) (require 'overlay))
40
43ed65ac
SM		 41(defvar flymake-is-running nil
42 "If t, flymake syntax check process is running for the current buffer.")
43(make-variable-buffer-local 'flymake-is-running)
c92d6023 44
43ed65ac
SM		 45(defvar flymake-timer nil
46 "Timer for starting syntax check.")
47(make-variable-buffer-local 'flymake-timer)
c92d6023 48
43ed65ac
SM		 49(defvar flymake-last-change-time nil
50 "Time of last buffer change.")
51(make-variable-buffer-local 'flymake-last-change-time)
52
53(defvar flymake-check-start-time nil
54 "Time at which syntax check was started.")
55(make-variable-buffer-local 'flymake-check-start-time)
56
57(defvar flymake-check-was-interrupted nil
58 "Non-nil if syntax check was killed by `flymake-compile'.")
59(make-variable-buffer-local 'flymake-check-was-interrupted)
60
61(defvar flymake-err-info nil
62 "Sorted list of line numbers and lists of err info in the form (file, err-text).")
63(make-variable-buffer-local 'flymake-err-info)
64
65(defvar flymake-new-err-info nil
66 "Same as `flymake-err-info', effective when a syntax check is in progress.")
67(make-variable-buffer-local 'flymake-new-err-info)
c92d6023 68
4bcbcb9d 69;;;; [[ cross-emacs compatibility routines
ce721de4
KS		 70(defsubst flymake-makehash (&optional test)
71 (if (fboundp 'make-hash-table)
72 (if test (make-hash-table :test test) (make-hash-table))
adf8a02e
RS		 73 (with-no-warnings
74 (makehash test))))
5323b4b0 75
cd2325cd
SM		 76(defalias 'flymake-float-time
77 (if (fboundp 'float-time)
78 'float-time
7ea8834e
RS		 79 (if (featurep 'xemacs)
80 (lambda ()
b3f5a846 81 (multiple-value-bind (s0 s1 s2) (values-list (current-time))
7ea8834e 82 (+ (* (float (ash 1 16)) s0) (float s1) (* 0.0000001 s2)))))))
ce721de4 83
43ed65ac
SM		 84(defalias 'flymake-replace-regexp-in-string
85 (if (eval-when-compile (fboundp 'replace-regexp-in-string))
86 'replace-regexp-in-string
87 (lambda (regexp rep str)
88 (replace-in-string str regexp rep))))
89
90(defalias 'flymake-split-string
91 (if (condition-case nil (equal (split-string " bc " " " t) '("bc"))
92 (error nil))
93 (lambda (str pattern) (split-string str pattern t))
94 (lambda (str pattern)
95 "Split STR into a list of substrings bounded by PATTERN.
53ec26ed 96Zero-length substrings at the beginning and end of the list are omitted."
43ed65ac 97 (let ((split (split-string str pattern)))
587d108e
SM		 98 (while (equal (car split) "") (setq split (cdr split)))
99 (setq split (nreverse split))
100 (while (equal (car split) "") (setq split (cdr split)))
101 (nreverse split)))))
43ed65ac
SM		 102
103(defalias 'flymake-get-temp-dir
cd2325cd 104 (if (fboundp 'temp-directory)
43ed65ac
SM		 105 'temp-directory
106 (lambda () temporary-file-directory)))
4bcbcb9d 107
1d9a4930
EZ		 108(defun flymake-posn-at-point-as-event (&optional position window dx dy)
109 "Return pixel position of top left corner of glyph at POSITION,
110relative to top left corner of WINDOW, as a mouse-1 click
111event (identical to the event that would be triggered by clicking
112mouse button 1 at the top left corner of the glyph).
113
114POSITION and WINDOW default to the position of point in the
115selected window.
116
117DX and DY specify optional offsets from the top left of the glyph."
118 (unless window (setq window (selected-window)))
119 (unless position (setq position (window-point window)))
120 (unless dx (setq dx 0))
121 (unless dy (setq dy 0))
122
123 (let* ((pos (posn-at-point position window))
124 (x-y (posn-x-y pos))
125 (edges (window-inside-pixel-edges window))
126 (win-x-y (window-pixel-edges window)))
127 ;; adjust for window edges
128 (setcar (nthcdr 2 pos)
129 (cons (+ (car x-y) (car edges) (- (car win-x-y)) dx)
130 (+ (cdr x-y) (cadr edges) (- (cadr win-x-y)) dy)))
131 (list 'mouse-1 pos)))
43ed65ac
SM		 132
133(defun flymake-popup-menu (menu-data)
134 "Pop up the flymake menu at point, using the data MENU-DATA.
53ec26ed
RS		 135POS is a list of the form ((X Y) WINDOW), where X and Y are
136pixels positions from the top left corner of WINDOW's frame.
137MENU-DATA is a list of error and warning messages returned by
138`flymake-make-err-menu-data'."
139 (if (featurep 'xemacs)
43ed65ac
SM		 140 (let* ((pos (flymake-get-point-pixel-pos))
141 (x-pos (nth 0 pos))
142 (y-pos (nth 1 pos))
ce721de4
KS		 143 (fake-event-props '(button 1 x 1 y 1)))
144 (setq fake-event-props (plist-put fake-event-props 'x x-pos))
145 (setq fake-event-props (plist-put fake-event-props 'y y-pos))
43ed65ac
SM		 146 (popup-menu (flymake-make-xemacs-menu menu-data)
147 (make-event 'button-press fake-event-props)))
148 (x-popup-menu (if (eval-when-compile (fboundp 'posn-at-point))
1d9a4930 149 (flymake-posn-at-point-as-event)
43ed65ac
SM		 150 (list (flymake-get-point-pixel-pos) (selected-window)))
151 (flymake-make-emacs-menu menu-data))))
4bcbcb9d 152
5323b4b0 153(defun flymake-make-emacs-menu (menu-data)
53ec26ed
RS		 154 "Return a menu specifier using MENU-DATA.
155MENU-DATA is a list of error and warning messages returned by
156`flymake-make-err-menu-data'.
157See `x-popup-menu' for the menu specifier format."
5323b4b0
RS		 158 (let* ((menu-title (nth 0 menu-data))
159 (menu-items (nth 1 menu-data))
43ed65ac
SM		 160 (menu-commands (mapcar (lambda (foo)
161 (cons (nth 0 foo) (nth 1 foo)))
162 menu-items)))
5323b4b0 163 (list menu-title (cons "" menu-commands))))
4bcbcb9d 164
ce721de4
KS		 165(if (featurep 'xemacs) (progn
166
cd2325cd
SM		 167(defun flymake-nop ())
168
2aa13ec4 169(defun flymake-make-xemacs-menu (menu-data)
53ec26ed 170 "Return a menu specifier using MENU-DATA."
5323b4b0
RS		 171 (let* ((menu-title (nth 0 menu-data))
172 (menu-items (nth 1 menu-data))
173 (menu-commands nil))
174 (setq menu-commands (mapcar (lambda (foo)
175 (vector (nth 0 foo) (or (nth 1 foo) '(flymake-nop)) t))
176 menu-items))
177 (cons menu-title menu-commands)))
178
ce721de4
KS		 179)) ;; xemacs
180
43ed65ac
SM		 181(unless (eval-when-compile (fboundp 'posn-at-point))
182
5323b4b0
RS		 183(defun flymake-current-row ()
184 "Return current row number in current frame."
cd2325cd
SM		 185 (if (fboundp 'window-edges)
186 (+ (car (cdr (window-edges))) (count-lines (window-start) (point)))
187 (count-lines (window-start) (point))))
5323b4b0
RS		 188
189(defun flymake-selected-frame ()
cd2325cd
SM		 190 (if (fboundp 'window-edges)
191 (selected-frame)
192 (selected-window)))
4bcbcb9d 193
43ed65ac
SM		 194(defun flymake-get-point-pixel-pos ()
195 "Return point position in pixels: (x, y)."
196 (let ((mouse-pos (mouse-position))
197 (pixel-pos nil)
198 (ret nil))
199 (if (car (cdr mouse-pos))
200 (progn
201 (set-mouse-position (flymake-selected-frame) (current-column) (flymake-current-row))
202 (setq pixel-pos (mouse-pixel-position))
203 (set-mouse-position (car mouse-pos) (car (cdr mouse-pos)) (cdr (cdr mouse-pos)))
204 (setq ret (list (car (cdr pixel-pos)) (cdr (cdr pixel-pos)))))
205 (progn
206 (setq ret '(0 0))))
207 (flymake-log 3 "mouse pos is %s" ret)
208 ret))
209
210) ;; End of (unless (fboundp 'posn-at-point)
211
4bcbcb9d
EZ		 212;;;; ]]
213
214(defcustom flymake-log-level -1
cd2325cd 215 "Logging level, only messages with level lower or equal will be logged.
4bcbcb9d 216-1 = NONE, 0 = ERROR, 1 = WARNING, 2 = INFO, 3 = DEBUG"
5323b4b0
RS		 217 :group 'flymake
218 :type 'integer)
4bcbcb9d 219
2aa13ec4 220(defun flymake-log (level text &rest args)
53ec26ed
RS		 221 "Log a message at level LEVEL.
222If LEVEL is higher than `flymake-log-level', the message is
223ignored. Otherwise, it is printed using `message'.
224TEXT is a format control string, and the remaining arguments ARGS
225are the string substitutions (see `format')."
5323b4b0
RS		 226 (if (<= level flymake-log-level)
227 (let* ((msg (apply 'format text args)))
29a4e67d 228 (message "%s" msg)
5323b4b0
RS		 229 ;;(with-temp-buffer
230 ;; (insert msg)
231 ;; (insert "\n")
6df19241 232 ;; (flymake-save-buffer-in-file "d:/flymake.log" t) ; make log file name customizable
5323b4b0 233 ;;)
2aa13ec4 234 )))
4bcbcb9d 235
2aa13ec4 236(defun flymake-ins-after (list pos val)
5323b4b0
RS		 237 "Insert VAL into LIST after position POS."
238 (let ((tmp (copy-sequence list))) ; (???)
239 (setcdr (nthcdr pos tmp) (cons val (nthcdr (1+ pos) tmp)))
240 tmp))
4bcbcb9d 241
2aa13ec4 242(defun flymake-set-at (list pos val)
9a686ad2 243 "Set VAL at position POS in LIST."
5323b4b0
RS		 244 (let ((tmp (copy-sequence list))) ; (???)
245 (setcar (nthcdr pos tmp) val)
246 tmp))
4bcbcb9d 247
43ed65ac
SM		 248(defvar flymake-processes nil
249 "List of currently active flymake processes.")
4bcbcb9d 250
9a686ad2 251(defvar flymake-output-residual nil)
2aa13ec4 252
4bcbcb9d 253(make-variable-buffer-local 'flymake-output-residual)
2aa13ec4 254
57a97b44
MR		 255(defgroup flymake nil
256 "A universal on-the-fly syntax checker."
257 :version "23.1"
258 :group 'tools)
259
5323b4b0 260(defcustom flymake-allowed-file-name-masks
fd09a83f 261 '(("\\.\\(?:c\\(?:pp\\|xx\\|\\+\\+\\)?\\|CC\\)\\'" flymake-simple-make-init)
c07fa030
SM		 262 ("\\.xml\\'" flymake-xml-init)
263 ("\\.html?\\'" flymake-xml-init)
264 ("\\.cs\\'" flymake-simple-make-init)
eabd11d4
MH		 265 ("\\.p[ml]\\'" flymake-perl-init)
266 ("\\.php[345]?\\'" flymake-php-init)
6df19241
SM		 267 ("\\.h\\'" flymake-master-make-header-init flymake-master-cleanup)
268 ("\\.java\\'" flymake-simple-make-java-init flymake-simple-java-cleanup)
269 ("[0-9]+\\.tex\\'" flymake-master-tex-init flymake-master-cleanup)
c07fa030
SM		 270 ("\\.tex\\'" flymake-simple-tex-init)
271 ("\\.idl\\'" flymake-simple-make-init)
6df19241
SM		 272 ;; ("\\.cpp\\'" 1)
273 ;; ("\\.java\\'" 3)
274 ;; ("\\.h\\'" 2 ("\\.cpp\\'" "\\.c\\'")
9a686ad2 275 ;; ("[ \t]*#[ \t]*include[ \t]*\"\\([\w0-9/\\_\.]*[/\\]*\\)\\(%s\\)\"" 1 2))
6df19241
SM		 276 ;; ("\\.idl\\'" 1)
277 ;; ("\\.odl\\'" 1)
278 ;; ("[0-9]+\\.tex\\'" 2 ("\\.tex\\'")
9a686ad2 279 ;; ("[ \t]*\\input[ \t]*{\\(.*\\)\\(%s\\)}" 1 2 ))
6df19241 280 ;; ("\\.tex\\'" 1)
5323b4b0 281 )
fd09a83f 282 "Files syntax checking is allowed for."
5323b4b0
RS		 283 :group 'flymake
284 :type '(repeat (string symbol symbol symbol)))
4bcbcb9d 285
2aa13ec4 286(defun flymake-get-file-name-mode-and-masks (file-name)
9a686ad2 287 "Return the corresponding entry from `flymake-allowed-file-name-masks'."
5323b4b0
RS		 288 (unless (stringp file-name)
289 (error "Invalid file-name"))
17404091 290 (let ((fnm flymake-allowed-file-name-masks)
5323b4b0 291 (mode-and-masks nil))
17404091
SM		 292 (while (and (not mode-and-masks) fnm)
293 (if (string-match (car (car fnm)) file-name)
294 (setq mode-and-masks (cdr (car fnm))))
295 (setq fnm (cdr fnm)))
5323b4b0
RS		 296 (flymake-log 3 "file %s, init=%s" file-name (car mode-and-masks))
297 mode-and-masks))
4bcbcb9d 298
2aa13ec4 299(defun flymake-can-syntax-check-file (file-name)
5323b4b0 300 "Determine whether we can syntax check FILE-NAME.
2aa13ec4 301Return nil if we cannot, non-nil if we can."
5323b4b0 302 (if (flymake-get-init-function file-name) t nil))
4bcbcb9d 303
2aa13ec4 304(defun flymake-get-init-function (file-name)
5323b4b0
RS		 305 "Return init function to be used for the file."
306 (let* ((init-f (nth 0 (flymake-get-file-name-mode-and-masks file-name))))
9a686ad2
SM		 307 ;;(flymake-log 0 "calling %s" init-f)
308 ;;(funcall init-f (current-buffer))
5323b4b0 309 init-f))
4bcbcb9d 310
2aa13ec4 311(defun flymake-get-cleanup-function (file-name)
5323b4b0 312 "Return cleanup function to be used for the file."
c07fa030
SM		 313 (or (nth 1 (flymake-get-file-name-mode-and-masks file-name))
314 'flymake-simple-cleanup))
4bcbcb9d 315
2aa13ec4 316(defun flymake-get-real-file-name-function (file-name)
6df19241
SM		 317 (or (nth 2 (flymake-get-file-name-mode-and-masks file-name))
318 'flymake-get-real-file-name))
4bcbcb9d 319
4bcbcb9d 320(defvar flymake-find-buildfile-cache (flymake-makehash 'equal))
4bcbcb9d 321
2aa13ec4 322(defun flymake-get-buildfile-from-cache (dir-name)
5323b4b0 323 (gethash dir-name flymake-find-buildfile-cache))
2aa13ec4
RS		 324
325(defun flymake-add-buildfile-to-cache (dir-name buildfile)
5323b4b0 326 (puthash dir-name buildfile flymake-find-buildfile-cache))
2aa13ec4
RS		 327
328(defun flymake-clear-buildfile-cache ()
5323b4b0 329 (clrhash flymake-find-buildfile-cache))
2aa13ec4 330
5f73367d 331(defun flymake-find-buildfile (buildfile-name source-dir-name)
5323b4b0 332 "Find buildfile starting from current directory.
2aa13ec4 333Buildfile includes Makefile, build.xml etc.
5323b4b0 334Return its file name if found, or nil if not found."
5f73367d 335 (or (flymake-get-buildfile-from-cache source-dir-name)
8cd56959 336 (let* ((file (locate-dominating-file source-dir-name buildfile-name)))
8ebbfc80 337 (if file
5f73367d 338 (progn
8ebbfc80 339 (flymake-log 3 "found buildfile at %s" file)
8ebbfc80
SM		 340 (flymake-add-buildfile-to-cache source-dir-name file)
341 file)
5f73367d
SM		 342 (progn
343 (flymake-log 3 "buildfile for %s not found" source-dir-name)
344 nil)))))
5323b4b0
RS		 345
346(defun flymake-fix-file-name (name)
57d3a1f3 347 "Replace all occurrences of '\' with '/'."
5323b4b0 348 (when name
587d108e
SM		 349 (setq name (expand-file-name name))
350 (setq name (abbreviate-file-name name))
351 (setq name (directory-file-name name))
352 name))
4bcbcb9d 353
2aa13ec4 354(defun flymake-same-files (file-name-one file-name-two)
5323b4b0 355 "Check if FILE-NAME-ONE and FILE-NAME-TWO point to same file.
2aa13ec4 356Return t if so, nil if not."
5323b4b0
RS		 357 (equal (flymake-fix-file-name file-name-one)
358 (flymake-fix-file-name file-name-two)))
359
4bcbcb9d 360(defcustom flymake-master-file-dirs '("." "./src" "./UnitTest")
9a686ad2 361 "Dirs where to look for master files."
5323b4b0
RS		 362 :group 'flymake
363 :type '(repeat (string)))
4bcbcb9d
EZ		 364
365(defcustom flymake-master-file-count-limit 32
5323b4b0
RS		 366 "Max number of master files to check."
367 :group 'flymake
368 :type 'integer)
2aa13ec4 369
ce721de4
KS		 370;; This is bound dynamically to pass a parameter to a sort predicate below
371(defvar flymake-included-file-name)
4bcbcb9d 372
2aa13ec4 373(defun flymake-find-possible-master-files (file-name master-file-dirs masks)
9a686ad2 374 "Find (by name and location) all possible master files.
fd09a83f 375Master files include .cpp and .c for .h. Files are searched for
2aa13ec4 376starting from the .h directory and max max-level parent dirs.
4bcbcb9d 377File contents are not checked."
17404091 378 (let* ((dirs master-file-dirs)
5323b4b0 379 (files nil)
17404091
SM		 380 (done nil))
381
382 (while (and (not done) dirs)
587d108e 383 (let* ((dir (expand-file-name (car dirs) (file-name-directory file-name)))
17404091
SM		 384 (masks masks))
385 (while (and (file-exists-p dir) (not done) masks)
386 (let* ((mask (car masks))
387 (dir-files (directory-files dir t mask)))
388
389 (flymake-log 3 "dir %s, %d file(s) for mask %s"
390 dir (length dir-files) mask)
391 (while (and (not done) dir-files)
392 (when (not (file-directory-p (car dir-files)))
393 (setq files (cons (car dir-files) files))
5323b4b0
RS		 394 (when (>= (length files) flymake-master-file-count-limit)
395 (flymake-log 3 "master file count limit (%d) reached" flymake-master-file-count-limit)
396 (setq done t)))
17404091
SM		 397 (setq dir-files (cdr dir-files))))
398 (setq masks (cdr masks))))
399 (setq dirs (cdr dirs)))
5323b4b0 400 (when files
ce721de4
KS		 401 (let ((flymake-included-file-name (file-name-nondirectory file-name)))
402 (setq files (sort files 'flymake-master-file-compare))))
5323b4b0
RS		 403 (flymake-log 3 "found %d possible master file(s)" (length files))
404 files))
4bcbcb9d 405
2aa13ec4 406(defun flymake-master-file-compare (file-one file-two)
173569aa 407 "Compare two files specified by FILE-ONE and FILE-TWO.
2aa13ec4 408This function is used in sort to move most possible file names
173569aa 409to the beginning of the list (File.h -> File.cpp moved to top)."
5323b4b0
RS		 410 (and (equal (file-name-sans-extension flymake-included-file-name)
411 (file-name-sans-extension (file-name-nondirectory file-one)))
412 (not (equal file-one file-two))))
4bcbcb9d
EZ		 413
414(defcustom flymake-check-file-limit 8192
bd77c2ef
GM		 415 "Maximum number of chars to look at when checking possible master file.
416Nil means search the entire file."
5323b4b0 417 :group 'flymake
bd77c2ef
GM		 418 :type '(choice (const :tag "No limit" nil)
419 (integer :tag "Characters")))
4bcbcb9d 420
587d108e
SM		 421(defun flymake-check-patch-master-file-buffer
422 (master-file-temp-buffer
423 master-file-name patched-master-file-name
424 source-file-name patched-source-file-name
425 include-dirs regexp)
5323b4b0 426 "Check if MASTER-FILE-NAME is a master file for SOURCE-FILE-NAME.
2aa13ec4
RS		 427If yes, patch a copy of MASTER-FILE-NAME to include PATCHED-SOURCE-FILE-NAME
428instead of SOURCE-FILE-NAME.
fd09a83f
CY		 429
430For example, foo.cpp is a master file if it includes foo.h.
431
2aa13ec4
RS		 432Whether a buffer for MATER-FILE-NAME exists, use it as a source
433instead of reading master file from disk."
587d108e 434 (let* ((source-file-nondir (file-name-nondirectory source-file-name))
bd77c2ef
GM		 435 (source-file-extension (file-name-extension source-file-nondir))
436 (source-file-nonext (file-name-sans-extension source-file-nondir))
587d108e 437 (found nil)
5323b4b0
RS		 438 (inc-name nil)
439 (search-limit flymake-check-file-limit))
587d108e
SM		 440 (setq regexp
441 (format regexp ; "[ \t]*#[ \t]*include[ \t]*\"\\(.*%s\\)\""
bd77c2ef
GM		 442 ;; Hack for tex files, where \include often excludes .tex.
443 ;; Maybe this is safe generally.
444 (if (and (> (length source-file-extension) 1)
445 (string-equal source-file-extension "tex"))
446 (format "%s\\(?:\\.%s\\)?"
447 (regexp-quote source-file-nonext)
448 (regexp-quote source-file-extension))
449 (regexp-quote source-file-nondir))))
587d108e
SM		 450 (unwind-protect
451 (with-current-buffer master-file-temp-buffer
bd77c2ef
GM		 452 (if (or (not search-limit)
453 (> search-limit (point-max)))
454 (setq search-limit (point-max)))
587d108e
SM		 455 (flymake-log 3 "checking %s against regexp %s"
456 master-file-name regexp)
457 (goto-char (point-min))
458 (while (and (< (point) search-limit)
459 (re-search-forward regexp search-limit t))
460 (let ((match-beg (match-beginning 1))
461 (match-end (match-end 1)))
462
463 (flymake-log 3 "found possible match for %s" source-file-nondir)
464 (setq inc-name (match-string 1))
bd77c2ef
GM		 465 (and (> (length source-file-extension) 1)
466 (string-equal source-file-extension "tex")
467 (not (string-match (format "\\.%s\\'" source-file-extension)
468 inc-name))
469 (setq inc-name (concat inc-name "." source-file-extension)))
587d108e
SM		 470 (when (eq t (compare-strings
471 source-file-nondir nil nil
472 inc-name (- (length inc-name)
473 (length source-file-nondir)) nil))
474 (flymake-log 3 "inc-name=%s" inc-name)
475 (when (flymake-check-include source-file-name inc-name
476 include-dirs)
477 (setq found t)
478 ;; replace-match is not used here as it fails in
479 ;; XEmacs with 'last match not a buffer' error as
480 ;; check-includes calls replace-in-string
481 (flymake-replace-region
482 match-beg match-end
483 (file-name-nondirectory patched-source-file-name))))
484 (forward-line 1)))
485 (when found
486 (flymake-save-buffer-in-file patched-master-file-name)))
487 ;;+(flymake-log 3 "killing buffer %s"
488 ;; (buffer-name master-file-temp-buffer))
489 (kill-buffer master-file-temp-buffer))
9a686ad2 490 ;;+(flymake-log 3 "check-patch master file %s: %s" master-file-name found)
5323b4b0
RS		 491 (when found
492 (flymake-log 2 "found master file %s" master-file-name))
493 found))
4bcbcb9d 494
4bd0a5d0 495(defun flymake-replace-region (beg end rep)
5323b4b0
RS		 496 "Replace text in BUFFER in region (BEG END) with REP."
497 (save-excursion
4bd0a5d0
SM		 498 (goto-char end)
499 ;; Insert before deleting, so as to better preserve markers's positions.
500 (insert rep)
501 (delete-region beg end)))
4bcbcb9d 502
2aa13ec4 503(defun flymake-read-file-to-temp-buffer (file-name)
5323b4b0
RS		 504 "Insert contents of FILE-NAME into newly created temp buffer."
505 (let* ((temp-buffer (get-buffer-create (generate-new-buffer-name (concat "flymake:" (file-name-nondirectory file-name))))))
cd2325cd 506 (with-current-buffer temp-buffer
5323b4b0
RS		 507 (insert-file-contents file-name))
508 temp-buffer))
4bcbcb9d 509
2aa13ec4 510(defun flymake-copy-buffer-to-temp-buffer (buffer)
5323b4b0 511 "Copy contents of BUFFER into newly created temp buffer."
4dd68f44
SM		 512 (with-current-buffer
513 (get-buffer-create (generate-new-buffer-name
514 (concat "flymake:" (buffer-name buffer))))
515 (insert-buffer-substring buffer)
516 (current-buffer)))
4bcbcb9d 517
587d108e 518(defun flymake-check-include (source-file-name inc-name include-dirs)
5323b4b0 519 "Check if SOURCE-FILE-NAME can be found in include path.
587d108e
SM		 520Return t if it can be found via include path using INC-NAME."
521 (if (file-name-absolute-p inc-name)
522 (flymake-same-files source-file-name inc-name)
523 (while (and include-dirs
524 (not (flymake-same-files
525 source-file-name
526 (concat (file-name-directory source-file-name)
527 "/" (car include-dirs)
528 "/" inc-name))))
529 (setq include-dirs (cdr include-dirs)))
530 include-dirs))
4bcbcb9d 531
2aa13ec4 532(defun flymake-find-buffer-for-file (file-name)
5323b4b0 533 "Check if there exists a buffer visiting FILE-NAME.
2aa13ec4 534Return t if so, nil if not."
5323b4b0
RS		 535 (let ((buffer-name (get-file-buffer file-name)))
536 (if buffer-name
537 (get-buffer buffer-name))))
4bcbcb9d 538
587d108e 539(defun flymake-create-master-file (source-file-name patched-source-file-name get-incl-dirs-f create-temp-f masks include-regexp)
5323b4b0 540 "Save SOURCE-FILE-NAME with a different name.
2aa13ec4 541Find master file, patch and save it."
5323b4b0
RS		 542 (let* ((possible-master-files (flymake-find-possible-master-files source-file-name flymake-master-file-dirs masks))
543 (master-file-count (length possible-master-files))
544 (idx 0)
545 (temp-buffer nil)
546 (master-file-name nil)
547 (patched-master-file-name nil)
548 (found nil))
549
550 (while (and (not found) (< idx master-file-count))
551 (setq master-file-name (nth idx possible-master-files))
552 (setq patched-master-file-name (funcall create-temp-f master-file-name "flymake_master"))
553 (if (flymake-find-buffer-for-file master-file-name)
554 (setq temp-buffer (flymake-copy-buffer-to-temp-buffer (flymake-find-buffer-for-file master-file-name)))
555 (setq temp-buffer (flymake-read-file-to-temp-buffer master-file-name)))
556 (setq found
557 (flymake-check-patch-master-file-buffer
558 temp-buffer
559 master-file-name
560 patched-master-file-name
561 source-file-name
562 patched-source-file-name
563 (funcall get-incl-dirs-f (file-name-directory master-file-name))
587d108e 564 include-regexp))
5323b4b0
RS		 565 (setq idx (1+ idx)))
566 (if found
567 (list master-file-name patched-master-file-name)
568 (progn
569 (flymake-log 3 "none of %d master file(s) checked includes %s" master-file-count
570 (file-name-nondirectory source-file-name))
571 nil))))
4bcbcb9d 572
6df19241 573(defun flymake-save-buffer-in-file (file-name)
ab1d3835
SM		 574 (make-directory (file-name-directory file-name) 1)
575 (write-region nil nil file-name nil 566)
6df19241 576 (flymake-log 3 "saved buffer %s in file %s" (buffer-name) file-name))
4bcbcb9d 577
2aa13ec4 578(defun flymake-save-string-to-file (file-name data)
5323b4b0
RS		 579 "Save string DATA to file FILE-NAME."
580 (write-region data nil file-name nil 566))
4bcbcb9d 581
2aa13ec4 582(defun flymake-read-file-to-string (file-name)
5323b4b0
RS		 583 "Read contents of file FILE-NAME and return as a string."
584 (with-temp-buffer
585 (insert-file-contents file-name)
586 (buffer-substring (point-min) (point-max))))
4bcbcb9d 587
2aa13ec4 588(defun flymake-process-filter (process output)
5323b4b0 589 "Parse OUTPUT and highlight error lines.
2aa13ec4 590It's flymake process filter."
43ed65ac 591 (let ((source-buffer (process-buffer process)))
4bcbcb9d 592
43ed65ac
SM		 593 (flymake-log 3 "received %d byte(s) of output from process %d"
594 (length output) (process-id process))
466a09b5 595 (when (buffer-live-p source-buffer)
4dd68f44
SM		 596 (with-current-buffer source-buffer
597 (flymake-parse-output-and-residual output)))))
4bcbcb9d 598
e02f48d7 599(defun flymake-process-sentinel (process _event)
5323b4b0 600 "Sentinel for syntax check buffers."
c07fa030
SM		 601 (when (memq (process-status process) '(signal exit))
602 (let* ((exit-status (process-exit-status process))
603 (command (process-command process))
604 (source-buffer (process-buffer process))
605 (cleanup-f (flymake-get-cleanup-function (buffer-file-name source-buffer))))
606
607 (flymake-log 2 "process %d exited with code %d"
608 (process-id process) exit-status)
609 (condition-case err
610 (progn
611 (flymake-log 3 "cleaning up using %s" cleanup-f)
612 (when (buffer-live-p source-buffer)
613 (with-current-buffer source-buffer
614 (funcall cleanup-f)))
615
616 (delete-process process)
617 (setq flymake-processes (delq process flymake-processes))
618
619 (when (buffer-live-p source-buffer)
620 (with-current-buffer source-buffer
621
622 (flymake-parse-residual)
623 (flymake-post-syntax-check exit-status command)
624 (setq flymake-is-running nil))))
625 (error
626 (let ((err-str (format "Error in process sentinel for buffer %s: %s"
627 source-buffer (error-message-string err))))
628 (flymake-log 0 err-str)
629 (with-current-buffer source-buffer
630 (setq flymake-is-running nil))))))))
4bcbcb9d 631
4dd68f44
SM		 632(defun flymake-post-syntax-check (exit-status command)
633 (setq flymake-err-info flymake-new-err-info)
634 (setq flymake-new-err-info nil)
635 (setq flymake-err-info
636 (flymake-fix-line-numbers
637 flymake-err-info 1 (flymake-count-lines)))
638 (flymake-delete-own-overlays)
639 (flymake-highlight-err-lines flymake-err-info)
53ec26ed 640 (let (err-count warn-count)
4dd68f44
SM		 641 (setq err-count (flymake-get-err-count flymake-err-info "e"))
642 (setq warn-count (flymake-get-err-count flymake-err-info "w"))
643 (flymake-log 2 "%s: %d error(s), %d warning(s) in %.2f second(s)"
644 (buffer-name) err-count warn-count
53ec26ed 645 (- (flymake-float-time) flymake-check-start-time))
4dd68f44 646 (setq flymake-check-start-time nil)
53ec26ed 647
5323b4b0
RS		 648 (if (and (equal 0 err-count) (equal 0 warn-count))
649 (if (equal 0 exit-status)
4dd68f44
SM		 650 (flymake-report-status "" "") ; PASSED
651 (if (not flymake-check-was-interrupted)
652 (flymake-report-fatal-status "CFGERR"
80cd4bb4 653 (format "Configuration error has occurred while running %s" command))
4dd68f44
SM		 654 (flymake-report-status nil ""))) ; "STOPPED"
655 (flymake-report-status (format "%d/%d" err-count warn-count) ""))))
4bcbcb9d 656
4dd68f44 657(defun flymake-parse-output-and-residual (output)
5323b4b0 658 "Split OUTPUT into lines, merge in residual if necessary."
4dd68f44
SM		 659 (let* ((buffer-residual flymake-output-residual)
660 (total-output (if buffer-residual (concat buffer-residual output) output))
661 (lines-and-residual (flymake-split-output total-output))
662 (lines (nth 0 lines-and-residual))
663 (new-residual (nth 1 lines-and-residual)))
664 (setq flymake-output-residual new-residual)
665 (setq flymake-new-err-info
666 (flymake-parse-err-lines
667 flymake-new-err-info lines))))
668
669(defun flymake-parse-residual ()
5323b4b0 670 "Parse residual if it's non empty."
4dd68f44
SM		 671 (when flymake-output-residual
672 (setq flymake-new-err-info
673 (flymake-parse-err-lines
674 flymake-new-err-info
675 (list flymake-output-residual)))
676 (setq flymake-output-residual nil)))
4bcbcb9d 677
2aa13ec4 678(defun flymake-er-make-er (line-no line-err-info-list)
5323b4b0 679 (list line-no line-err-info-list))
2aa13ec4
RS		 680
681(defun flymake-er-get-line (err-info)
5323b4b0 682 (nth 0 err-info))
2aa13ec4
RS		 683
684(defun flymake-er-get-line-err-info-list (err-info)
5323b4b0 685 (nth 1 err-info))
4bcbcb9d 686
587d108e
SM		 687(defstruct (flymake-ler
688 (:constructor nil)
689 (:constructor flymake-ler-make-ler (file line type text &optional full-file)))
690 file line type text full-file)
2aa13ec4
RS		 691
692(defun flymake-ler-set-file (line-err-info file)
5323b4b0 693 (flymake-ler-make-ler file
587d108e
SM		 694 (flymake-ler-line line-err-info)
695 (flymake-ler-type line-err-info)
696 (flymake-ler-text line-err-info)
697 (flymake-ler-full-file line-err-info)))
2aa13ec4
RS		 698
699(defun flymake-ler-set-full-file (line-err-info full-file)
587d108e
SM		 700 (flymake-ler-make-ler (flymake-ler-file line-err-info)
701 (flymake-ler-line line-err-info)
702 (flymake-ler-type line-err-info)
703 (flymake-ler-text line-err-info)
2aa13ec4
RS		 704 full-file))
705
706(defun flymake-ler-set-line (line-err-info line)
587d108e 707 (flymake-ler-make-ler (flymake-ler-file line-err-info)
4bcbcb9d 708 line
587d108e
SM		 709 (flymake-ler-type line-err-info)
710 (flymake-ler-text line-err-info)
711 (flymake-ler-full-file line-err-info)))
4bcbcb9d 712
2aa13ec4 713(defun flymake-get-line-err-count (line-err-info-list type)
5323b4b0 714 "Return number of errors of specified TYPE.
173569aa 715Value of TYPE is either \"e\" or \"w\"."
5323b4b0
RS		 716 (let* ((idx 0)
717 (count (length line-err-info-list))
718 (err-count 0))
4bcbcb9d 719
5323b4b0 720 (while (< idx count)
587d108e 721 (when (equal type (flymake-ler-type (nth idx line-err-info-list)))
5323b4b0
RS		 722 (setq err-count (1+ err-count)))
723 (setq idx (1+ idx)))
724 err-count))
4bcbcb9d 725
2aa13ec4 726(defun flymake-get-err-count (err-info-list type)
5323b4b0
RS		 727 "Return number of errors of specified TYPE for ERR-INFO-LIST."
728 (let* ((idx 0)
729 (count (length err-info-list))
730 (err-count 0))
731 (while (< idx count)
732 (setq err-count (+ err-count (flymake-get-line-err-count (nth 1 (nth idx err-info-list)) type)))
733 (setq idx (1+ idx)))
734 err-count))
2aa13ec4
RS		 735
736(defun flymake-fix-line-numbers (err-info-list min-line max-line)
5323b4b0 737 "Replace line numbers with fixed value.
2aa13ec4
RS		 738If line-numbers is less than MIN-LINE, set line numbers to MIN-LINE.
739If line numbers is greater than MAX-LINE, set line numbers to MAX-LINE.
ce721de4 740The reason for this fix is because some compilers might report
2aa13ec4 741line number outside the file being compiled."
5323b4b0
RS		 742 (let* ((count (length err-info-list))
743 (err-info nil)
744 (line 0))
745 (while (> count 0)
746 (setq err-info (nth (1- count) err-info-list))
747 (setq line (flymake-er-get-line err-info))
748 (when (or (< line min-line) (> line max-line))
749 (setq line (if (< line min-line) min-line max-line))
750 (setq err-info-list (flymake-set-at err-info-list (1- count)
751 (flymake-er-make-er line
752 (flymake-er-get-line-err-info-list err-info)))))
753 (setq count (1- count))))
754 err-info-list)
4bcbcb9d 755
4dd68f44 756(defun flymake-highlight-err-lines (err-info-list)
5323b4b0 757 "Highlight error lines in BUFFER using info from ERR-INFO-LIST."
4dd68f44
SM		 758 (save-excursion
759 (dolist (err err-info-list)
760 (flymake-highlight-line (car err) (nth 1 err)))))
4bcbcb9d 761
2aa13ec4 762(defun flymake-overlay-p (ov)
5323b4b0
RS		 763 "Determine whether overlay OV was created by flymake."
764 (and (overlayp ov) (overlay-get ov 'flymake-overlay)))
4bcbcb9d 765
2aa13ec4 766(defun flymake-make-overlay (beg end tooltip-text face mouse-face)
5323b4b0
RS		 767 "Allocate a flymake overlay in range BEG and END."
768 (when (not (flymake-region-has-flymake-overlays beg end))
769 (let ((ov (make-overlay beg end nil t t)))
770 (overlay-put ov 'face face)
771 (overlay-put ov 'mouse-face mouse-face)
772 (overlay-put ov 'help-echo tooltip-text)
773 (overlay-put ov 'flymake-overlay t)
774 (overlay-put ov 'priority 100)
9a686ad2 775 ;;+(flymake-log 3 "created overlay %s" ov)
5323b4b0
RS		 776 ov)
777 (flymake-log 3 "created an overlay at (%d-%d)" beg end)))
4bcbcb9d 778
4dd68f44 779(defun flymake-delete-own-overlays ()
5323b4b0 780 "Delete all flymake overlays in BUFFER."
4dd68f44
SM		 781 (dolist (ol (overlays-in (point-min) (point-max)))
782 (when (flymake-overlay-p ol)
783 (delete-overlay ol)
784 ;;+(flymake-log 3 "deleted overlay %s" ol)
785 )))
4bcbcb9d 786
2aa13ec4 787(defun flymake-region-has-flymake-overlays (beg end)
5323b4b0 788 "Check if region specified by BEG and END has overlay.
2aa13ec4 789Return t if it has at least one flymake overlay, nil if no overlay."
5323b4b0
RS		 790 (let ((ov (overlays-in beg end))
791 (has-flymake-overlays nil))
792 (while (consp ov)
793 (when (flymake-overlay-p (car ov))
794 (setq has-flymake-overlays t))
cd2325cd
SM		 795 (setq ov (cdr ov)))
796 has-flymake-overlays))
4bcbcb9d 797
ded09abd 798(defface flymake-errline
928b4203
CY		 799 '((((class color) (background dark)) (:background "Firebrick4"))
800 (((class color) (background light)) (:background "LightPink"))
5323b4b0
RS		 801 (t (:bold t)))
802 "Face used for marking error lines."
803 :group 'flymake)
4bcbcb9d 804
ded09abd 805(defface flymake-warnline
928b4203
CY		 806 '((((class color) (background dark)) (:background "DarkBlue"))
807 (((class color) (background light)) (:background "LightBlue2"))
5323b4b0
RS		 808 (t (:bold t)))
809 "Face used for marking warning lines."
810 :group 'flymake)
4bcbcb9d 811
2aa13ec4 812(defun flymake-highlight-line (line-no line-err-info-list)
5323b4b0 813 "Highlight line LINE-NO in current buffer.
173569aa 814Perhaps use text from LINE-ERR-INFO-LIST to enhance highlighting."
5f68c1b7
GM		 815 (goto-char (point-min))
816 (forward-line (1- line-no))
3ba6b2ee 817 (let* ((line-beg (point-at-bol))
81aa0dab 818 (line-end (point-at-eol))
5323b4b0
RS		 819 (beg line-beg)
820 (end line-end)
587d108e 821 (tooltip-text (flymake-ler-text (nth 0 line-err-info-list)))
5323b4b0
RS		 822 (face nil))
823
824 (goto-char line-beg)
825 (while (looking-at "[ \t]")
826 (forward-char))
4bcbcb9d 827
5323b4b0 828 (setq beg (point))
4bcbcb9d 829
5323b4b0
RS		 830 (goto-char line-end)
831 (while (and (looking-at "[ \t\r\n]") (> (point) 1))
832 (backward-char))
4bcbcb9d 833
5323b4b0 834 (setq end (1+ (point)))
4bcbcb9d 835
5323b4b0
RS		 836 (when (<= end beg)
837 (setq beg line-beg)
838 (setq end line-end))
2aa13ec4 839
5323b4b0
RS		 840 (when (= end beg)
841 (goto-char end)
842 (forward-line)
843 (setq end (point)))
2aa13ec4 844
5323b4b0 845 (if (> (flymake-get-line-err-count line-err-info-list "e") 0)
ded09abd
MB		 846 (setq face 'flymake-errline)
847 (setq face 'flymake-warnline))
2aa13ec4 848
5323b4b0 849 (flymake-make-overlay beg end tooltip-text face nil)))
4bcbcb9d 850
4dd68f44 851(defun flymake-parse-err-lines (err-info-list lines)
5323b4b0
RS		 852 "Parse err LINES, store info in ERR-INFO-LIST."
853 (let* ((count (length lines))
854 (idx 0)
855 (line-err-info nil)
856 (real-file-name nil)
4dd68f44 857 (source-file-name buffer-file-name)
5323b4b0
RS		 858 (get-real-file-name-f (flymake-get-real-file-name-function source-file-name)))
859
860 (while (< idx count)
861 (setq line-err-info (flymake-parse-line (nth idx lines)))
862 (when line-err-info
c07fa030 863 (setq real-file-name (funcall get-real-file-name-f
587d108e 864 (flymake-ler-file line-err-info)))
5323b4b0
RS		 865 (setq line-err-info (flymake-ler-set-full-file line-err-info real-file-name))
866
b89b385c
CY		 867 (when (flymake-same-files real-file-name source-file-name)
868 (setq line-err-info (flymake-ler-set-file line-err-info nil))
869 (setq err-info-list (flymake-add-err-info err-info-list line-err-info))))
5323b4b0
RS		 870 (flymake-log 3 "parsed '%s', %s line-err-info" (nth idx lines) (if line-err-info "got" "no"))
871 (setq idx (1+ idx)))
872 err-info-list))
4bcbcb9d 873
2aa13ec4 874(defun flymake-split-output (output)
5323b4b0 875 "Split OUTPUT into lines.
9a686ad2
SM		 876Return last one as residual if it does not end with newline char.
877Returns ((LINES) RESIDUAL)."
5323b4b0
RS		 878 (when (and output (> (length output) 0))
879 (let* ((lines (flymake-split-string output "[\n\r]+"))
880 (complete (equal "\n" (char-to-string (aref output (1- (length output))))))
881 (residual nil))
882 (when (not complete)
883 (setq residual (car (last lines)))
884 (setq lines (butlast lines)))
885 (list lines residual))))
4bcbcb9d 886
2aa13ec4 887(defun flymake-reformat-err-line-patterns-from-compile-el (original-list)
5323b4b0 888 "Grab error line patterns from ORIGINAL-LIST in compile.el format.
2aa13ec4 889Convert it to flymake internal format."
5323b4b0 890 (let* ((converted-list '()))
cd2325cd
SM		 891 (dolist (item original-list)
892 (setq item (cdr item))
893 (let ((regexp (nth 0 item))
894 (file (nth 1 item))
895 (line (nth 2 item))
896 (col (nth 3 item)))
897 (if (consp file) (setq file (car file)))
898 (if (consp line) (setq line (car line)))
899 (if (consp col) (setq col (car col)))
d799c278 900
cd2325cd
SM		 901 (when (not (functionp line))
902 (setq converted-list (cons (list regexp file line col) converted-list)))))
5323b4b0 903 converted-list))
2aa13ec4 904
c3b8339f 905(require 'compile)
5323b4b0
RS		 906
907(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
908 (append
909 '(
9a686ad2 910 ;; MS Visual C++ 6.0
5323b4b0
RS		 911 ("\\(\\([a-zA-Z]:\\)?[^:(\t\n]+\\)(\\([0-9]+\\)) \: \\(\\(error\\|warning\\|fatal error\\) \\(C[0-9]+\\):[ \t\n]*\\(.+\\)\\)"
912 1 3 nil 4)
9a686ad2 913 ;; jikes
5323b4b0
RS		 914 ("\\(\\([a-zA-Z]:\\)?[^:(\t\n]+\\)\:\\([0-9]+\\)\:[0-9]+\:[0-9]+\:[0-9]+\: \\(\\(Error\\|Warning\\|Caution\\|Semantic Error\\):[ \t\n]*\\(.+\\)\\)"
915 1 3 nil 4)
9a686ad2 916 ;; MS midl
5323b4b0
RS		 917 ("midl[ ]*:[ ]*\\(command line error .*\\)"
918 nil nil nil 1)
9a686ad2 919 ;; MS C#
5323b4b0
RS		 920 ("\\(\\([a-zA-Z]:\\)?[^:(\t\n]+\\)(\\([0-9]+\\),[0-9]+)\: \\(\\(error\\|warning\\|fatal error\\) \\(CS[0-9]+\\):[ \t\n]*\\(.+\\)\\)"
921 1 3 nil 4)
9a686ad2 922 ;; perl
5323b4b0 923 ("\\(.*\\) at \\([^ \n]+\\) line \\([0-9]+\\)[,.\n]" 2 3 nil 1)
eabd11d4
MH		 924 ;; PHP
925 ("\\(?:Parse\\|Fatal\\) error: \\(.*\\) in \\(.*\\) on line \\([0-9]+\\)" 2 3 nil 1)
9a686ad2 926 ;; LaTeX warnings (fileless) ("\\(LaTeX \\(Warning\\|Error\\): .*\\) on input line \\([0-9]+\\)" 20 3 nil 1)
819a6054
GM		 927 ;; ant/javac. Note this also matches gcc warnings!
928 (" *\\(\\[javac\\] *\\)?\\(\\([a-zA-Z]:\\)?[^:(\t\n]+\\)\:\\([0-9]+\\)\\(?:\:[0-9]+\\)?\:[ \t\n]*\\(.+\\)"
5323b4b0
RS		 929 2 4 nil 5))
930 ;; compilation-error-regexp-alist)
ce721de4 931 (flymake-reformat-err-line-patterns-from-compile-el compilation-error-regexp-alist-alist))
8c01db22
EZ		 932 "Patterns for matching error/warning lines. Each pattern has the form
933\(REGEXP FILE-IDX LINE-IDX COL-IDX ERR-TEXT-IDX).
9a686ad2
SM		 934Use `flymake-reformat-err-line-patterns-from-compile-el' to add patterns
935from compile.el")
936
937;;(defcustom flymake-err-line-patterns
938;; '(
939;; ; MS Visual C++ 6.0
940;; ("\\(\\([a-zA-Z]:\\)?[^:(\t\n]+\\)(\\([0-9]+\\)) \: \\(\\(error\\|warning\\|fatal error\\) \\(C[0-9]+\\):[ \t\n]*\\(.+\\)\\)"
941;; 1 3 4)
942;; ; jikes
943;; ("\\(\\([a-zA-Z]:\\)?[^:(\t\n]+\\)\:\\([0-9]+\\)\:[0-9]+\:[0-9]+\:[0-9]+\: \\(\\(Error\\|Warning\\|Caution\\):[ \t\n]*\\(.+\\)\\)"
944;; 1 3 4))
945;; "patterns for matching error/warning lines, (regexp file-idx line-idx err-text-idx)"
946;; :group 'flymake
947;; :type '(repeat (string number number number))
948;;)
4bcbcb9d 949
2aa13ec4 950(defun flymake-parse-line (line)
173569aa
JB		 951 "Parse LINE to see if it is an error or warning.
952Return its components if so, nil otherwise."
5323b4b0
RS		 953 (let ((raw-file-name nil)
954 (line-no 0)
955 (err-type "e")
956 (err-text nil)
17404091 957 (patterns flymake-err-line-patterns)
5323b4b0 958 (matched nil))
17404091
SM		 959 (while (and patterns (not matched))
960 (when (string-match (car (car patterns)) line)
961 (let* ((file-idx (nth 1 (car patterns)))
962 (line-idx (nth 2 (car patterns))))
5323b4b0
RS		 963
964 (setq raw-file-name (if file-idx (match-string file-idx line) nil))
027a4b6b 965 (setq line-no (if line-idx (string-to-number (match-string line-idx line)) 0))
17404091
SM		 966 (setq err-text (if (> (length (car patterns)) 4)
967 (match-string (nth 4 (car patterns)) line)
5323b4b0
RS		 968 (flymake-patch-err-text (substring line (match-end 0)))))
969 (or err-text (setq err-text "<no error text>"))
970 (if (and err-text (string-match "^[wW]arning" err-text))
971 (setq err-type "w")
972 )
973 (flymake-log 3 "parse line: file-idx=%s line-idx=%s file=%s line=%s text=%s" file-idx line-idx
974 raw-file-name line-no err-text)
975 (setq matched t)))
17404091 976 (setq patterns (cdr patterns)))
5323b4b0
RS		 977 (if matched
978 (flymake-ler-make-ler raw-file-name line-no err-type err-text)
979 ())))
4bcbcb9d 980
2aa13ec4 981(defun flymake-find-err-info (err-info-list line-no)
5323b4b0
RS		 982 "Find (line-err-info-list pos) for specified LINE-NO."
983 (if err-info-list
984 (let* ((line-err-info-list nil)
985 (pos 0)
986 (count (length err-info-list)))
987
988 (while (and (< pos count) (< (car (nth pos err-info-list)) line-no))
989 (setq pos (1+ pos)))
990 (when (and (< pos count) (equal (car (nth pos err-info-list)) line-no))
991 (setq line-err-info-list (flymake-er-get-line-err-info-list (nth pos err-info-list))))
992 (list line-err-info-list pos))
993 '(nil 0)))
4bcbcb9d 994
2aa13ec4 995(defun flymake-line-err-info-is-less-or-equal (line-one line-two)
587d108e
SM		 996 (or (string< (flymake-ler-type line-one) (flymake-ler-type line-two))
997 (and (string= (flymake-ler-type line-one) (flymake-ler-type line-two))
998 (not (flymake-ler-file line-one)) (flymake-ler-file line-two))
999 (and (string= (flymake-ler-type line-one) (flymake-ler-type line-two))
1000 (or (and (flymake-ler-file line-one) (flymake-ler-file line-two))
1001 (and (not (flymake-ler-file line-one)) (not (flymake-ler-file line-two)))))))
4bcbcb9d 1002
2aa13ec4 1003(defun flymake-add-line-err-info (line-err-info-list line-err-info)
53ec26ed
RS		 1004 "Update LINE-ERR-INFO-LIST with the error LINE-ERR-INFO.
1005For the format of LINE-ERR-INFO, see `flymake-ler-make-ler'.
1006The new element is inserted in the proper position, according to
1007the predicate `flymake-line-err-info-is-less-or-equal'.
1008The updated value of LINE-ERR-INFO-LIST is returned."
5323b4b0
RS		 1009 (if (not line-err-info-list)
1010 (list line-err-info)
1011 (let* ((count (length line-err-info-list))
1012 (idx 0))
1013 (while (and (< idx count) (flymake-line-err-info-is-less-or-equal (nth idx line-err-info-list) line-err-info))
1014 (setq idx (1+ idx)))
1015 (cond ((equal 0 idx) (setq line-err-info-list (cons line-err-info line-err-info-list)))
1016 (t (setq line-err-info-list (flymake-ins-after line-err-info-list (1- idx) line-err-info))))
1017 line-err-info-list)))
4bcbcb9d 1018
2aa13ec4 1019(defun flymake-add-err-info (err-info-list line-err-info)
53ec26ed
RS		 1020 "Update ERR-INFO-LIST with the error LINE-ERR-INFO, preserving sort order.
1021Returns the updated value of ERR-INFO-LIST.
1022For the format of ERR-INFO-LIST, see `flymake-err-info'.
1023For the format of LINE-ERR-INFO, see `flymake-ler-make-ler'."
587d108e 1024 (let* ((line-no (if (flymake-ler-file line-err-info) 1 (flymake-ler-line line-err-info)))
5323b4b0
RS		 1025 (info-and-pos (flymake-find-err-info err-info-list line-no))
1026 (exists (car info-and-pos))
1027 (pos (nth 1 info-and-pos))
1028 (line-err-info-list nil)
1029 (err-info nil))
1030
1031 (if exists
1032 (setq line-err-info-list (flymake-er-get-line-err-info-list (car (nthcdr pos err-info-list)))))
1033 (setq line-err-info-list (flymake-add-line-err-info line-err-info-list line-err-info))
1034
1035 (setq err-info (flymake-er-make-er line-no line-err-info-list))
1036 (cond (exists (setq err-info-list (flymake-set-at err-info-list pos err-info)))
1037 ((equal 0 pos) (setq err-info-list (cons err-info err-info-list)))
1038 (t (setq err-info-list (flymake-ins-after err-info-list (1- pos) err-info))))
1039 err-info-list))
4bcbcb9d 1040
2aa13ec4 1041(defun flymake-get-project-include-dirs-imp (basedir)
5323b4b0
RS		 1042 "Include dirs for the project current file belongs to."
1043 (if (flymake-get-project-include-dirs-from-cache basedir)
1044 (progn
1045 (flymake-get-project-include-dirs-from-cache basedir))
9a686ad2 1046 ;;else
ff4e2883
KS		 1047 (let* ((command-line (concat "make -C "
1048 (shell-quote-argument basedir)
1049 " DUMPVARS=INCLUDE_DIRS dumpvars"))
5323b4b0
RS		 1050 (output (shell-command-to-string command-line))
1051 (lines (flymake-split-string output "\n"))
1052 (count (length lines))
1053 (idx 0)
1054 (inc-dirs nil))
1055 (while (and (< idx count) (not (string-match "^INCLUDE_DIRS=.*" (nth idx lines))))
1056 (setq idx (1+ idx)))
1057 (when (< idx count)
1058 (let* ((inc-lines (flymake-split-string (nth idx lines) " *-I"))
1059 (inc-count (length inc-lines)))
1060 (while (> inc-count 0)
1061 (when (not (string-match "^INCLUDE_DIRS=.*" (nth (1- inc-count) inc-lines)))
587d108e 1062 (push (flymake-replace-regexp-in-string "\"" "" (nth (1- inc-count) inc-lines)) inc-dirs))
5323b4b0
RS		 1063 (setq inc-count (1- inc-count)))))
1064 (flymake-add-project-include-dirs-to-cache basedir inc-dirs)
1065 inc-dirs)))
4bcbcb9d
EZ		 1066
1067(defcustom flymake-get-project-include-dirs-function 'flymake-get-project-include-dirs-imp
173569aa 1068 "Function used to get project include dirs, one parameter: basedir name."
5323b4b0
RS		 1069 :group 'flymake
1070 :type 'function)
4bcbcb9d 1071
2aa13ec4 1072(defun flymake-get-project-include-dirs (basedir)
5323b4b0 1073 (funcall flymake-get-project-include-dirs-function basedir))
4bcbcb9d 1074
2aa13ec4 1075(defun flymake-get-system-include-dirs ()
5323b4b0
RS		 1076 "System include dirs - from the 'INCLUDE' env setting."
1077 (let* ((includes (getenv "INCLUDE")))
1078 (if includes (flymake-split-string includes path-separator) nil)))
4bcbcb9d
EZ		 1079
1080(defvar flymake-project-include-dirs-cache (flymake-makehash 'equal))
4bcbcb9d 1081
2aa13ec4 1082(defun flymake-get-project-include-dirs-from-cache (base-dir)
5323b4b0 1083 (gethash base-dir flymake-project-include-dirs-cache))
2aa13ec4
RS		 1084
1085(defun flymake-add-project-include-dirs-to-cache (base-dir include-dirs)
5323b4b0 1086 (puthash base-dir include-dirs flymake-project-include-dirs-cache))
2aa13ec4
RS		 1087
1088(defun flymake-clear-project-include-dirs-cache ()
5323b4b0 1089 (clrhash flymake-project-include-dirs-cache))
2aa13ec4
RS		 1090
1091(defun flymake-get-include-dirs (base-dir)
5323b4b0
RS		 1092 "Get dirs to use when resolving local file names."
1093 (let* ((include-dirs (append '(".") (flymake-get-project-include-dirs base-dir) (flymake-get-system-include-dirs))))
1094 include-dirs))
4bcbcb9d 1095
4dd68f44
SM		 1096;; (defun flymake-restore-formatting ()
1097;; "Remove any formatting made by flymake."
1098;; )
4bcbcb9d 1099
c07fa030
SM		 1100;; (defun flymake-get-program-dir (buffer)
1101;; "Get dir to start program in."
1102;; (unless (bufferp buffer)
1103;; (error "Invalid buffer"))
1104;; (with-current-buffer buffer
1105;; default-directory))
4bcbcb9d 1106
2aa13ec4 1107(defun flymake-safe-delete-file (file-name)
5323b4b0
RS		 1108 (when (and file-name (file-exists-p file-name))
1109 (delete-file file-name)
1110 (flymake-log 1 "deleted file %s" file-name)))
4bcbcb9d 1111
2aa13ec4 1112(defun flymake-safe-delete-directory (dir-name)
e02f48d7 1113 (condition-case nil
5323b4b0
RS		 1114 (progn
1115 (delete-directory dir-name)
1116 (flymake-log 1 "deleted dir %s" dir-name))
1117 (error
1118 (flymake-log 1 "Failed to delete dir %s, error ignored" dir-name))))
4bcbcb9d 1119
ce721de4 1120(defcustom flymake-compilation-prevents-syntax-check t
2c587104 1121 "If non-nil, don't start syntax check if compilation is running."
5323b4b0
RS		 1122 :group 'flymake
1123 :type 'boolean)
4bcbcb9d 1124
4dd68f44
SM		 1125(defun flymake-start-syntax-check ()
1126 "Start syntax checking for current buffer."
1127 (interactive)
1128 (flymake-log 3 "flymake is running: %s" flymake-is-running)
1129 (when (and (not flymake-is-running)
1130 (flymake-can-syntax-check-file buffer-file-name))
1131 (when (or (not flymake-compilation-prevents-syntax-check)
1132 (not (flymake-compilation-is-running))) ;+ (flymake-rep-ort-status buffer "COMP")
1133 (flymake-clear-buildfile-cache)
1134 (flymake-clear-project-include-dirs-cache)
1135
1136 (setq flymake-check-was-interrupted nil)
4dd68f44
SM		 1137
1138 (let* ((source-file-name buffer-file-name)
1139 (init-f (flymake-get-init-function source-file-name))
1140 (cleanup-f (flymake-get-cleanup-function source-file-name))
6df19241 1141 (cmd-and-args (funcall init-f))
4dd68f44
SM		 1142 (cmd (nth 0 cmd-and-args))
1143 (args (nth 1 cmd-and-args))
1144 (dir (nth 2 cmd-and-args)))
1145 (if (not cmd-and-args)
1146 (progn
1147 (flymake-log 0 "init function %s for %s failed, cleaning up" init-f source-file-name)
c07fa030 1148 (funcall cleanup-f))
4dd68f44
SM		 1149 (progn
1150 (setq flymake-last-change-time nil)
1151 (flymake-start-syntax-check-process cmd args dir)))))))
1152
1153(defun flymake-start-syntax-check-process (cmd args dir)
5323b4b0 1154 "Start syntax check process."
c79a6f38
SM		 1155 (condition-case err
1156 (let* ((process
1157 (let ((default-directory (or dir default-directory)))
1158 (when dir
1159 (flymake-log 3 "starting process on dir %s" dir))
1160 (apply 'start-file-process
1161 "flymake-proc" (current-buffer) cmd args))))
1162 (set-process-sentinel process 'flymake-process-sentinel)
1163 (set-process-filter process 'flymake-process-filter)
1164 (push process flymake-processes)
1165
1166 (setq flymake-is-running t)
1167 (setq flymake-last-change-time nil)
1168 (setq flymake-check-start-time (flymake-float-time))
1169
1170 (flymake-report-status nil "*")
1171 (flymake-log 2 "started process %d, command=%s, dir=%s"
1172 (process-id process) (process-command process)
1173 default-directory)
1174 process)
1175 (error
1176 (let* ((err-str (format "Failed to launch syntax check process '%s' with args %s: %s"
1177 cmd args (error-message-string err)))
1178 (source-file-name buffer-file-name)
1179 (cleanup-f (flymake-get-cleanup-function source-file-name)))
1180 (flymake-log 0 err-str)
1181 (funcall cleanup-f)
1182 (flymake-report-fatal-status "PROCERR" err-str)))))
4bcbcb9d 1183
43ed65ac
SM		 1184(defun flymake-kill-process (proc)
1185 "Kill process PROC."
1186 (kill-process proc)
1187 (let* ((buf (process-buffer proc)))
1188 (when (buffer-live-p buf)
1189 (with-current-buffer buf
53ec26ed 1190 (setq flymake-check-was-interrupted t))))
43ed65ac 1191 (flymake-log 1 "killed process %d" (process-id proc)))
4bcbcb9d 1192
2aa13ec4 1193(defun flymake-stop-all-syntax-checks ()
5323b4b0
RS		 1194 "Kill all syntax check processes."
1195 (interactive)
43ed65ac
SM		 1196 (while flymake-processes
1197 (flymake-kill-process (pop flymake-processes))))
4bcbcb9d 1198
2aa13ec4 1199(defun flymake-compilation-is-running ()
5323b4b0
RS		 1200 (and (boundp 'compilation-in-progress)
1201 compilation-in-progress))
4bcbcb9d 1202
2aa13ec4 1203(defun flymake-compile ()
5323b4b0
RS		 1204 "Kill all flymake syntax checks, start compilation."
1205 (interactive)
1206 (flymake-stop-all-syntax-checks)
1207 (call-interactively 'compile))
4bcbcb9d 1208
4bcbcb9d 1209(defcustom flymake-no-changes-timeout 0.5
5323b4b0
RS		 1210 "Time to wait after last change before starting compilation."
1211 :group 'flymake
1212 :type 'number)
4bcbcb9d 1213
2aa13ec4 1214(defun flymake-on-timer-event (buffer)
5323b4b0 1215 "Start a syntax check for buffer BUFFER if necessary."
587d108e 1216 (when (buffer-live-p buffer)
cd2325cd 1217 (with-current-buffer buffer
53ec26ed
RS		 1218 (when (and (not flymake-is-running)
1219 flymake-last-change-time
587d108e
SM		 1220 (> (- (flymake-float-time) flymake-last-change-time)
1221 flymake-no-changes-timeout))
53ec26ed
RS		 1222
1223 (setq flymake-last-change-time nil)
5323b4b0 1224 (flymake-log 3 "starting syntax check as more than 1 second passed since last change")
4dd68f44 1225 (flymake-start-syntax-check)))))
4bcbcb9d 1226
2aa13ec4 1227(defun flymake-current-line-no ()
5323b4b0 1228 "Return number of current line in current buffer."
587d108e 1229 (count-lines (point-min) (if (eobp) (point) (1+ (point)))))
4bcbcb9d 1230
4dd68f44 1231(defun flymake-count-lines ()
5323b4b0 1232 "Return number of lines in buffer BUFFER."
4dd68f44 1233 (count-lines (point-min) (point-max)))
4bcbcb9d 1234
2aa13ec4 1235(defun flymake-display-err-menu-for-current-line ()
5323b4b0
RS		 1236 "Display a menu with errors/warnings for current line if it has errors and/or warnings."
1237 (interactive)
1238 (let* ((line-no (flymake-current-line-no))
53ec26ed 1239 (line-err-info-list (nth 0 (flymake-find-err-info flymake-err-info line-no)))
5323b4b0 1240 (menu-data (flymake-make-err-menu-data line-no line-err-info-list))
43ed65ac 1241 (choice nil))
5323b4b0
RS		 1242 (if menu-data
1243 (progn
43ed65ac 1244 (setq choice (flymake-popup-menu menu-data))
5323b4b0
RS		 1245 (flymake-log 3 "choice=%s" choice)
1246 (when choice
1247 (eval choice)))
1248 (flymake-log 1 "no errors for line %d" line-no))))
4bcbcb9d 1249
2aa13ec4 1250(defun flymake-make-err-menu-data (line-no line-err-info-list)
173569aa 1251 "Make a (menu-title (item-title item-action)*) list with errors/warnings from LINE-ERR-INFO-LIST."
5323b4b0
RS		 1252 (let* ((menu-items nil))
1253 (when line-err-info-list
1254 (let* ((count (length line-err-info-list))
1255 (menu-item-text nil))
1256 (while (> count 0)
587d108e
SM		 1257 (setq menu-item-text (flymake-ler-text (nth (1- count) line-err-info-list)))
1258 (let* ((file (flymake-ler-file (nth (1- count) line-err-info-list)))
1259 (full-file (flymake-ler-full-file (nth (1- count) line-err-info-list)))
1260 (line (flymake-ler-line (nth (1- count) line-err-info-list))))
5323b4b0
RS		 1261 (if file
1262 (setq menu-item-text (concat menu-item-text " - " file "(" (format "%d" line) ")")))
1263 (setq menu-items (cons (list menu-item-text
1264 (if file (list 'flymake-goto-file-and-line full-file line) nil))
1265 menu-items)))
1266 (setq count (1- count)))
1267 (flymake-log 3 "created menu-items with %d item(s)" (length menu-items))))
1268 (if menu-items
1269 (let* ((menu-title (format "Line %d: %d error(s), %d warning(s)" line-no
1270 (flymake-get-line-err-count line-err-info-list "e")
1271 (flymake-get-line-err-count line-err-info-list "w"))))
1272 (list menu-title menu-items))
1273 nil)))
4bcbcb9d 1274
2aa13ec4 1275(defun flymake-goto-file-and-line (file line)
9a686ad2 1276 "Try to get buffer for FILE and goto line LINE in it."
5323b4b0 1277 (if (not (file-exists-p file))
caf790b6
MR		 1278 (flymake-log 1 "File %s does not exist" file)
1279 (find-file file)
5f68c1b7
GM		 1280 (goto-char (point-min))
1281 (forward-line (1- line))))
4bcbcb9d 1282
2aa13ec4 1283;; flymake minor mode declarations
4bd0a5d0 1284(defvar flymake-mode-line nil)
2aa13ec4 1285
4bcbcb9d 1286(make-variable-buffer-local 'flymake-mode-line)
2aa13ec4 1287
4bcbcb9d 1288(defvar flymake-mode-line-e-w nil)
2aa13ec4 1289
4bcbcb9d 1290(make-variable-buffer-local 'flymake-mode-line-e-w)
2aa13ec4 1291
4bcbcb9d 1292(defvar flymake-mode-line-status nil)
2aa13ec4 1293
4bcbcb9d 1294(make-variable-buffer-local 'flymake-mode-line-status)
4bcbcb9d 1295
4dd68f44 1296(defun flymake-report-status (e-w &optional status)
5323b4b0 1297 "Show status in mode line."
4dd68f44
SM		 1298 (when e-w
1299 (setq flymake-mode-line-e-w e-w))
1300 (when status
1301 (setq flymake-mode-line-status status))
1302 (let* ((mode-line " Flymake"))
1303 (when (> (length flymake-mode-line-e-w) 0)
1304 (setq mode-line (concat mode-line ":" flymake-mode-line-e-w)))
1305 (setq mode-line (concat mode-line flymake-mode-line-status))
1306 (setq flymake-mode-line mode-line)
1307 (force-mode-line-update)))
4bcbcb9d 1308
2aa13ec4 1309(defun flymake-display-warning (warning)
5323b4b0
RS		 1310 "Display a warning to user."
1311 (message-box warning))
4bcbcb9d
EZ		 1312
1313(defcustom flymake-gui-warnings-enabled t
173569aa 1314 "Enables/disables GUI warnings."
5323b4b0
RS		 1315 :group 'flymake
1316 :type 'boolean)
4bcbcb9d 1317
4dd68f44 1318(defun flymake-report-fatal-status (status warning)
5323b4b0
RS		 1319 "Display a warning and switch flymake mode off."
1320 (when flymake-gui-warnings-enabled
1321 (flymake-display-warning (format "Flymake: %s. Flymake will be switched OFF" warning))
1322 )
4dd68f44
SM		 1323 (flymake-mode 0)
1324 (flymake-log 0 "switched OFF Flymake mode for buffer %s due to fatal status %s, warning %s"
1325 (buffer-name) status warning))
4bcbcb9d 1326
d57f6b5e
SM		 1327(defcustom flymake-start-syntax-check-on-find-file t
1328 "Start syntax check on find file."
1329 :group 'flymake
1330 :type 'boolean)
1331
5ffc943b 1332;;;###autoload
4bd0a5d0 1333(define-minor-mode flymake-mode
e1ac4066
GM		 1334 "Toggle on-the-fly syntax checking.
1335With a prefix argument ARG, enable the mode if ARG is positive,
1336and disable it otherwise. If called from Lisp, enable the mode
1337if ARG is omitted or nil."
d799c278 1338 :group 'flymake :lighter flymake-mode-line
d57f6b5e
SM		 1339 (cond
1340
1341 ;; Turning the mode ON.
1342 (flymake-mode
83319045
LMI		 1343 (cond
1344 ((not buffer-file-name)
1345 (message "Flymake unable to run without a buffer file name"))
1346 ((not (flymake-can-syntax-check-file buffer-file-name))
1347 (flymake-log 2 "flymake cannot check syntax in buffer %s" (buffer-name)))
1348 (t
d57f6b5e
SM		 1349 (add-hook 'after-change-functions 'flymake-after-change-function nil t)
1350 (add-hook 'after-save-hook 'flymake-after-save-hook nil t)
1351 (add-hook 'kill-buffer-hook 'flymake-kill-buffer-hook nil t)
1352 ;;+(add-hook 'find-file-hook 'flymake-find-file-hook)
1353
4dd68f44 1354 (flymake-report-status "" "")
c92d6023 1355
d57f6b5e
SM		 1356 (setq flymake-timer
1357 (run-at-time nil 1 'flymake-on-timer-event (current-buffer)))
1358
1359 (when flymake-start-syntax-check-on-find-file
83319045 1360 (flymake-start-syntax-check)))))
d57f6b5e
SM		 1361
1362 ;; Turning the mode OFF.
1363 (t
1364 (remove-hook 'after-change-functions 'flymake-after-change-function t)
1365 (remove-hook 'after-save-hook 'flymake-after-save-hook t)
1366 (remove-hook 'kill-buffer-hook 'flymake-kill-buffer-hook t)
1367 ;;+(remove-hook 'find-file-hook (function flymake-find-file-hook) t)
2aa13ec4 1368
4dd68f44 1369 (flymake-delete-own-overlays)
d57f6b5e
SM		 1370
1371 (when flymake-timer
1372 (cancel-timer flymake-timer)
1373 (setq flymake-timer nil))
1374
bd6a83d5 1375 (setq flymake-is-running nil))))
4bcbcb9d 1376
4bcbcb9d 1377;;;###autoload
2aa13ec4 1378(defun flymake-mode-on ()
5323b4b0 1379 "Turn flymake mode on."
d57f6b5e
SM		 1380 (flymake-mode 1)
1381 (flymake-log 1 "flymake mode turned ON for buffer %s" (buffer-name)))
4bcbcb9d
EZ		 1382
1383;;;###autoload
2aa13ec4 1384(defun flymake-mode-off ()
5323b4b0 1385 "Turn flymake mode off."
d57f6b5e 1386 (flymake-mode 0)
bd6a83d5 1387 (flymake-log 1 "flymake mode turned OFF for buffer %s" (buffer-name)))
4bcbcb9d
EZ		 1388
1389(defcustom flymake-start-syntax-check-on-newline t
5323b4b0
RS		 1390 "Start syntax check if newline char was added/removed from the buffer."
1391 :group 'flymake
1392 :type 'boolean)
4bcbcb9d 1393
e02f48d7 1394(defun flymake-after-change-function (start stop _len)
9a686ad2
SM		 1395 "Start syntax check for current buffer if it isn't already running."
1396 ;;+(flymake-log 0 "setting change time to %s" (flymake-float-time))
5323b4b0
RS		 1397 (let((new-text (buffer-substring start stop)))
1398 (when (and flymake-start-syntax-check-on-newline (equal new-text "\n"))
1399 (flymake-log 3 "starting syntax check as new-line has been seen")
4dd68f44 1400 (flymake-start-syntax-check))
53ec26ed 1401 (setq flymake-last-change-time (flymake-float-time))))
4bcbcb9d 1402
2aa13ec4 1403(defun flymake-after-save-hook ()
5323b4b0
RS		 1404 (if (local-variable-p 'flymake-mode (current-buffer)) ; (???) other way to determine whether flymake is active in buffer being saved?
1405 (progn
1406 (flymake-log 3 "starting syntax check as buffer was saved")
4dd68f44 1407 (flymake-start-syntax-check)))) ; no more mode 3. cannot start check if mode 3 (to temp copies) is active - (???)
4bcbcb9d 1408
2aa13ec4 1409(defun flymake-kill-buffer-hook ()
53ec26ed
RS		 1410 (when flymake-timer
1411 (cancel-timer flymake-timer)
1412 (setq flymake-timer nil)))
4bcbcb9d 1413
5bd35902 1414;;;###autoload
2aa13ec4 1415(defun flymake-find-file-hook ()
9a686ad2
SM		 1416 ;;+(when flymake-start-syntax-check-on-find-file
1417 ;;+ (flymake-log 3 "starting syntax check on file open")
4dd68f44 1418 ;;+ (flymake-start-syntax-check)
9a686ad2 1419 ;;+)
5323b4b0 1420 (when (and (not (local-variable-p 'flymake-mode (current-buffer)))
d57f6b5e 1421 (flymake-can-syntax-check-file buffer-file-name))
5323b4b0
RS		 1422 (flymake-mode)
1423 (flymake-log 3 "automatically turned ON flymake mode")))
4bcbcb9d 1424
2aa13ec4 1425(defun flymake-get-first-err-line-no (err-info-list)
5323b4b0
RS		 1426 "Return first line with error."
1427 (when err-info-list
1428 (flymake-er-get-line (car err-info-list))))
4bcbcb9d 1429
2aa13ec4 1430(defun flymake-get-last-err-line-no (err-info-list)
5323b4b0
RS		 1431 "Return last line with error."
1432 (when err-info-list
1433 (flymake-er-get-line (nth (1- (length err-info-list)) err-info-list))))
4bcbcb9d 1434
2aa13ec4 1435(defun flymake-get-next-err-line-no (err-info-list line-no)
5323b4b0
RS		 1436 "Return next line with error."
1437 (when err-info-list
1438 (let* ((count (length err-info-list))
1439 (idx 0))
1440 (while (and (< idx count) (>= line-no (flymake-er-get-line (nth idx err-info-list))))
1441 (setq idx (1+ idx)))
1442 (if (< idx count)
1443 (flymake-er-get-line (nth idx err-info-list))))))
4bcbcb9d 1444
2aa13ec4 1445(defun flymake-get-prev-err-line-no (err-info-list line-no)
173569aa 1446 "Return previous line with error."
5323b4b0
RS		 1447 (when err-info-list
1448 (let* ((count (length err-info-list)))
1449 (while (and (> count 0) (<= line-no (flymake-er-get-line (nth (1- count) err-info-list))))
1450 (setq count (1- count)))
1451 (if (> count 0)
1452 (flymake-er-get-line (nth (1- count) err-info-list))))))
4bcbcb9d 1453
2aa13ec4 1454(defun flymake-skip-whitespace ()
5323b4b0
RS		 1455 "Move forward until non-whitespace is reached."
1456 (while (looking-at "[ \t]")
1457 (forward-char)))
4bcbcb9d 1458
2aa13ec4 1459(defun flymake-goto-line (line-no)
9a686ad2 1460 "Go to line LINE-NO, then skip whitespace."
5f68c1b7
GM		 1461 (goto-char (point-min))
1462 (forward-line (1- line-no))
5323b4b0 1463 (flymake-skip-whitespace))
4bcbcb9d 1464
2aa13ec4 1465(defun flymake-goto-next-error ()
9a686ad2 1466 "Go to next error in err ring."
5323b4b0 1467 (interactive)
53ec26ed 1468 (let ((line-no (flymake-get-next-err-line-no flymake-err-info (flymake-current-line-no))))
5323b4b0 1469 (when (not line-no)
53ec26ed 1470 (setq line-no (flymake-get-first-err-line-no flymake-err-info))
5323b4b0
RS		 1471 (flymake-log 1 "passed end of file"))
1472 (if line-no
1473 (flymake-goto-line line-no)
1474 (flymake-log 1 "no errors in current buffer"))))
4bcbcb9d 1475
2aa13ec4 1476(defun flymake-goto-prev-error ()
173569aa 1477 "Go to previous error in err ring."
5323b4b0 1478 (interactive)
53ec26ed 1479 (let ((line-no (flymake-get-prev-err-line-no flymake-err-info (flymake-current-line-no))))
5323b4b0 1480 (when (not line-no)
53ec26ed 1481 (setq line-no (flymake-get-last-err-line-no flymake-err-info))
5323b4b0
RS		 1482 (flymake-log 1 "passed beginning of file"))
1483 (if line-no
1484 (flymake-goto-line line-no)
1485 (flymake-log 1 "no errors in current buffer"))))
4bcbcb9d 1486
2aa13ec4 1487(defun flymake-patch-err-text (string)
5323b4b0
RS		 1488 (if (string-match "^[\n\t :0-9]*\\(.*\\)$" string)
1489 (match-string 1 string)
1490 string))
4bcbcb9d
EZ		 1491
1492;;;; general init-cleanup and helper routines
2aa13ec4 1493(defun flymake-create-temp-inplace (file-name prefix)
5323b4b0
RS		 1494 (unless (stringp file-name)
1495 (error "Invalid file-name"))
1496 (or prefix
1497 (setq prefix "flymake"))
1498 (let* ((temp-name (concat (file-name-sans-extension file-name)
1499 "_" prefix
1500 (and (file-name-extension file-name)
1501 (concat "." (file-name-extension file-name))))))
1502 (flymake-log 3 "create-temp-inplace: file=%s temp=%s" file-name temp-name)
1503 temp-name))
4bcbcb9d 1504
e02f48d7 1505(defun flymake-create-temp-with-folder-structure (file-name _prefix)
5323b4b0
RS		 1506 (unless (stringp file-name)
1507 (error "Invalid file-name"))
4bcbcb9d 1508
5323b4b0 1509 (let* ((dir (file-name-directory file-name))
6df19241
SM		 1510 ;; Not sure what this slash-pos is all about, but I guess it's just
1511 ;; trying to remove the leading / of absolute file names.
5323b4b0 1512 (slash-pos (string-match "/" dir))
6df19241
SM		 1513 (temp-dir (expand-file-name (substring dir (1+ slash-pos))
1514 (flymake-get-temp-dir))))
4bcbcb9d 1515
6df19241
SM		 1516 (file-truename (expand-file-name (file-name-nondirectory file-name)
1517 temp-dir))))
4bcbcb9d 1518
2aa13ec4 1519(defun flymake-delete-temp-directory (dir-name)
9a686ad2 1520 "Attempt to delete temp dir created by `flymake-create-temp-with-folder-structure', do not fail on error."
5323b4b0 1521 (let* ((temp-dir (flymake-get-temp-dir))
587d108e 1522 (suffix (substring dir-name (1+ (length temp-dir)))))
5323b4b0
RS		 1523
1524 (while (> (length suffix) 0)
6df19241 1525 (setq suffix (directory-file-name suffix))
9a686ad2 1526 ;;+(flymake-log 0 "suffix=%s" suffix)
6df19241
SM		 1527 (flymake-safe-delete-directory
1528 (file-truename (expand-file-name suffix temp-dir)))
1529 (setq suffix (file-name-directory suffix)))))
4bcbcb9d 1530
5bcef417
SM		 1531(defvar flymake-temp-source-file-name nil)
1532(make-variable-buffer-local 'flymake-temp-source-file-name)
1533
1534(defvar flymake-master-file-name nil)
1535(make-variable-buffer-local 'flymake-master-file-name)
1536
1537(defvar flymake-temp-master-file-name nil)
1538(make-variable-buffer-local 'flymake-temp-master-file-name)
1539
1540(defvar flymake-base-dir nil)
1541(make-variable-buffer-local 'flymake-base-dir)
1542
6df19241 1543(defun flymake-init-create-temp-buffer-copy (create-temp-f)
5323b4b0 1544 "Make a temporary copy of the current buffer, save its name in buffer data and return the name."
6df19241 1545 (let* ((source-file-name buffer-file-name)
5323b4b0 1546 (temp-source-file-name (funcall create-temp-f source-file-name "flymake")))
4bcbcb9d 1547
6df19241
SM		 1548 (flymake-save-buffer-in-file temp-source-file-name)
1549 (setq flymake-temp-source-file-name temp-source-file-name)
5323b4b0 1550 temp-source-file-name))
4bcbcb9d 1551
c07fa030 1552(defun flymake-simple-cleanup ()
69df8d97 1553 "Do cleanup after `flymake-init-create-temp-buffer-copy'.
2aa13ec4 1554Delete temp file."
c07fa030
SM		 1555 (flymake-safe-delete-file flymake-temp-source-file-name)
1556 (setq flymake-last-change-time nil))
4bcbcb9d 1557
c07fa030 1558(defun flymake-get-real-file-name (file-name-from-err-msg)
9a686ad2
SM		 1559 "Translate file name from error message to \"real\" file name.
1560Return full-name. Names are real, not patched."
c07fa030
SM		 1561 (let* ((real-name nil)
1562 (source-file-name buffer-file-name)
1563 (master-file-name flymake-master-file-name)
1564 (temp-source-file-name flymake-temp-source-file-name)
1565 (temp-master-file-name flymake-temp-master-file-name)
5bcef417 1566 (base-dirs
c07fa030 1567 (list flymake-base-dir
5bcef417
SM		 1568 (file-name-directory source-file-name)
1569 (if master-file-name (file-name-directory master-file-name))))
c07fa030
SM		 1570 (files (list (list source-file-name source-file-name)
1571 (list temp-source-file-name source-file-name)
1572 (list master-file-name master-file-name)
1573 (list temp-master-file-name master-file-name))))
5323b4b0
RS		 1574
1575 (when (equal 0 (length file-name-from-err-msg))
1576 (setq file-name-from-err-msg source-file-name))
1577
1578 (setq real-name (flymake-get-full-patched-file-name file-name-from-err-msg base-dirs files))
9a686ad2 1579 ;; if real-name is nil, than file name from err msg is none of the files we've patched
5323b4b0
RS		 1580 (if (not real-name)
1581 (setq real-name (flymake-get-full-nonpatched-file-name file-name-from-err-msg base-dirs)))
1582 (if (not real-name)
1583 (setq real-name file-name-from-err-msg))
1584 (setq real-name (flymake-fix-file-name real-name))
1585 (flymake-log 3 "get-real-file-name: file-name=%s real-name=%s" file-name-from-err-msg real-name)
1586 real-name))
4bcbcb9d 1587
2aa13ec4 1588(defun flymake-get-full-patched-file-name (file-name-from-err-msg base-dirs files)
5323b4b0
RS		 1589 (let* ((base-dirs-count (length base-dirs))
1590 (file-count (length files))
1591 (real-name nil))
1592
1593 (while (and (not real-name) (> base-dirs-count 0))
1594 (setq file-count (length files))
1595 (while (and (not real-name) (> file-count 0))
1596 (let* ((this-dir (nth (1- base-dirs-count) base-dirs))
1597 (this-file (nth 0 (nth (1- file-count) files)))
1598 (this-real-name (nth 1 (nth (1- file-count) files))))
9a686ad2 1599 ;;+(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)
5323b4b0 1600 (when (and this-dir this-file (flymake-same-files
b8471a02 1601 (expand-file-name file-name-from-err-msg this-dir)
5323b4b0
RS		 1602 this-file))
1603 (setq real-name this-real-name)))
1604 (setq file-count (1- file-count)))
1605 (setq base-dirs-count (1- base-dirs-count)))
1606 real-name))
4bcbcb9d 1607
2aa13ec4 1608(defun flymake-get-full-nonpatched-file-name (file-name-from-err-msg base-dirs)
5323b4b0
RS		 1609 (let* ((real-name nil))
1610 (if (file-name-absolute-p file-name-from-err-msg)
1611 (setq real-name file-name-from-err-msg)
1612 (let* ((base-dirs-count (length base-dirs)))
1613 (while (and (not real-name) (> base-dirs-count 0))
b8471a02
SM		 1614 (let* ((full-name (expand-file-name file-name-from-err-msg
1615 (nth (1- base-dirs-count) base-dirs))))
5323b4b0
RS		 1616 (if (file-exists-p full-name)
1617 (setq real-name full-name))
1618 (setq base-dirs-count (1- base-dirs-count))))))
1619 real-name))
4bcbcb9d 1620
6df19241 1621(defun flymake-init-find-buildfile-dir (source-file-name buildfile-name)
5323b4b0 1622 "Find buildfile, store its dir in buffer data and return its dir, if found."
5bcef417
SM		 1623 (let* ((buildfile-dir
1624 (flymake-find-buildfile buildfile-name
5f73367d 1625 (file-name-directory source-file-name))))
5bcef417 1626 (if buildfile-dir
6df19241 1627 (setq flymake-base-dir buildfile-dir)
5bcef417 1628 (flymake-log 1 "no buildfile (%s) for %s" buildfile-name source-file-name)
6df19241
SM		 1629 (flymake-report-fatal-status
1630 "NOMK" (format "No buildfile (%s) found for %s"
1631 buildfile-name source-file-name)))))
4bcbcb9d 1632
587d108e 1633(defun flymake-init-create-temp-source-and-master-buffer-copy (get-incl-dirs-f create-temp-f master-file-masks include-regexp)
84bb5a0c 1634 "Find master file (or buffer), create its copy along with a copy of the source file."
c07fa030 1635 (let* ((source-file-name buffer-file-name)
6df19241 1636 (temp-source-file-name (flymake-init-create-temp-buffer-copy create-temp-f))
5323b4b0
RS		 1637 (master-and-temp-master (flymake-create-master-file
1638 source-file-name temp-source-file-name
1639 get-incl-dirs-f create-temp-f
587d108e 1640 master-file-masks include-regexp)))
5323b4b0
RS		 1641
1642 (if (not master-and-temp-master)
1643 (progn
1644 (flymake-log 1 "cannot find master file for %s" source-file-name)
6df19241 1645 (flymake-report-status "!" "") ; NOMASTER
5bcef417 1646 nil)
6df19241
SM		 1647 (setq flymake-master-file-name (nth 0 master-and-temp-master))
1648 (setq flymake-temp-master-file-name (nth 1 master-and-temp-master)))))
4bcbcb9d 1649
c07fa030
SM		 1650(defun flymake-master-cleanup ()
1651 (flymake-simple-cleanup)
1652 (flymake-safe-delete-file flymake-temp-master-file-name))
4bcbcb9d
EZ		 1653
1654;;;; make-specific init-cleanup routines
2aa13ec4 1655(defun flymake-get-syntax-check-program-args (source-file-name base-dir use-relative-base-dir use-relative-source get-cmd-line-f)
5323b4b0 1656 "Create a command line for syntax check using GET-CMD-LINE-F."
6fee12e6
SM		 1657 (funcall get-cmd-line-f
1658 (if use-relative-source
1659 (file-relative-name source-file-name base-dir)
1660 source-file-name)
1661 (if use-relative-base-dir
1662 (file-relative-name base-dir
1663 (file-name-directory source-file-name))
1664 base-dir)))
4bcbcb9d 1665
2aa13ec4 1666(defun flymake-get-make-cmdline (source base-dir)
5323b4b0
RS		 1667 (list "make"
1668 (list "-s"
1669 "-C"
1670 base-dir
1671 (concat "CHK_SOURCES=" source)
1672 "SYNTAX_CHECK_MODE=1"
1673 "check-syntax")))
4bcbcb9d 1674
2aa13ec4 1675(defun flymake-get-ant-cmdline (source base-dir)
5323b4b0
RS		 1676 (list "ant"
1677 (list "-buildfile"
1678 (concat base-dir "/" "build.xml")
1679 (concat "-DCHK_SOURCES=" source)
1680 "check-syntax")))
4bcbcb9d 1681
6df19241 1682(defun flymake-simple-make-init-impl (create-temp-f use-relative-base-dir use-relative-source build-file-name get-cmdline-f)
5323b4b0 1683 "Create syntax check command line for a directly checked source file.
2aa13ec4 1684Use CREATE-TEMP-F for creating temp copy."
5323b4b0 1685 (let* ((args nil)
6df19241
SM		 1686 (source-file-name buffer-file-name)
1687 (buildfile-dir (flymake-init-find-buildfile-dir source-file-name build-file-name)))
5323b4b0 1688 (if buildfile-dir
6df19241 1689 (let* ((temp-source-file-name (flymake-init-create-temp-buffer-copy create-temp-f)))
5323b4b0
RS		 1690 (setq args (flymake-get-syntax-check-program-args temp-source-file-name buildfile-dir
1691 use-relative-base-dir use-relative-source
1692 get-cmdline-f))))
1693 args))
4bcbcb9d 1694
6df19241
SM		 1695(defun flymake-simple-make-init ()
1696 (flymake-simple-make-init-impl 'flymake-create-temp-inplace t t "Makefile" 'flymake-get-make-cmdline))
4bcbcb9d 1697
587d108e 1698(defun flymake-master-make-init (get-incl-dirs-f master-file-masks include-regexp)
9a686ad2 1699 "Create make command line for a source file checked via master file compilation."
5323b4b0
RS		 1700 (let* ((make-args nil)
1701 (temp-master-file-name (flymake-init-create-temp-source-and-master-buffer-copy
6df19241 1702 get-incl-dirs-f 'flymake-create-temp-inplace
587d108e 1703 master-file-masks include-regexp)))
5323b4b0 1704 (when temp-master-file-name
6df19241 1705 (let* ((buildfile-dir (flymake-init-find-buildfile-dir temp-master-file-name "Makefile")))
5323b4b0
RS		 1706 (if buildfile-dir
1707 (setq make-args (flymake-get-syntax-check-program-args
1708 temp-master-file-name buildfile-dir nil nil 'flymake-get-make-cmdline)))))
1709 make-args))
4bcbcb9d 1710
2aa13ec4 1711(defun flymake-find-make-buildfile (source-dir)
5f73367d 1712 (flymake-find-buildfile "Makefile" source-dir))
4bcbcb9d
EZ		 1713
1714;;;; .h/make specific
6df19241 1715(defun flymake-master-make-header-init ()
fd09a83f
CY		 1716 (flymake-master-make-init
1717 'flymake-get-include-dirs
1718 '("\\.\\(?:c\\(?:pp\\|xx\\|\\+\\+\\)?\\|CC\\)\\'")
1719 "[ \t]*#[ \t]*include[ \t]*\"\\([[:word:]0-9/\\_.]*%s\\)\""))
4bcbcb9d
EZ		 1720
1721;;;; .java/make specific
6df19241
SM		 1722(defun flymake-simple-make-java-init ()
1723 (flymake-simple-make-init-impl 'flymake-create-temp-with-folder-structure nil nil "Makefile" 'flymake-get-make-cmdline))
4bcbcb9d 1724
6df19241
SM		 1725(defun flymake-simple-ant-java-init ()
1726 (flymake-simple-make-init-impl 'flymake-create-temp-with-folder-structure nil nil "build.xml" 'flymake-get-ant-cmdline))
4bcbcb9d 1727
c07fa030 1728(defun flymake-simple-java-cleanup ()
9a686ad2 1729 "Cleanup after `flymake-simple-make-java-init' -- delete temp file and dirs."
c07fa030
SM		 1730 (flymake-safe-delete-file flymake-temp-source-file-name)
1731 (when flymake-temp-source-file-name
1732 (flymake-delete-temp-directory
1733 (file-name-directory flymake-temp-source-file-name))))
4bcbcb9d
EZ		 1734
1735;;;; perl-specific init-cleanup routines
6df19241 1736(defun flymake-perl-init ()
4bd0a5d0 1737 (let* ((temp-file (flymake-init-create-temp-buffer-copy
6df19241 1738 'flymake-create-temp-inplace))
6fee12e6
SM		 1739 (local-file (file-relative-name
1740 temp-file
1741 (file-name-directory buffer-file-name))))
5323b4b0 1742 (list "perl" (list "-wc " local-file))))
eabd11d4
MH		 1743
1744;;;; php-specific init-cleanup routines
1745(defun flymake-php-init ()
1746 (let* ((temp-file (flymake-init-create-temp-buffer-copy
1747 'flymake-create-temp-inplace))
1748 (local-file (file-relative-name
1749 temp-file
1750 (file-name-directory buffer-file-name))))
1751 (list "php" (list "-f" local-file "-l"))))
4bcbcb9d
EZ		 1752
1753;;;; tex-specific init-cleanup routines
2aa13ec4 1754(defun flymake-get-tex-args (file-name)
9a686ad2 1755 ;;(list "latex" (list "-c-style-errors" file-name))
5323b4b0 1756 (list "texify" (list "--pdf" "--tex-option=-c-style-errors" file-name)))
4bcbcb9d 1757
6df19241
SM		 1758(defun flymake-simple-tex-init ()
1759 (flymake-get-tex-args (flymake-init-create-temp-buffer-copy 'flymake-create-temp-inplace)))
4bcbcb9d 1760
bd77c2ef
GM		 1761;; Perhaps there should be a buffer-local variable flymake-master-file
1762;; that people can set to override this stuff. Could inherit from
1763;; the similar AUCTeX variable.
6df19241 1764(defun flymake-master-tex-init ()
5323b4b0 1765 (let* ((temp-master-file-name (flymake-init-create-temp-source-and-master-buffer-copy
6df19241
SM		 1766 'flymake-get-include-dirs-dot 'flymake-create-temp-inplace
1767 '("\\.tex\\'")
bd77c2ef 1768 "[ \t]*\\in\\(?:put\\|clude\\)[ \t]*{\\(.*%s\\)}")))
5323b4b0
RS		 1769 (when temp-master-file-name
1770 (flymake-get-tex-args temp-master-file-name))))
4bcbcb9d 1771
e02f48d7 1772(defun flymake-get-include-dirs-dot (_base-dir)
5323b4b0 1773 '("."))
4bcbcb9d
EZ		 1774
1775;;;; xml-specific init-cleanup routines
6df19241
SM		 1776(defun flymake-xml-init ()
1777 (list "xml" (list "val" (flymake-init-create-temp-buffer-copy 'flymake-create-temp-inplace))))
2aa13ec4
RS		 1778
1779(provide 'flymake)
4bcbcb9d
EZ		 1780
1781;;; flymake.el ends here
Unnamed repository; edit this file 'description' to name the repository.