flymake.el 68.3 KB
Newer Older
Eli Zaretskii's avatar
Eli Zaretskii committed
1 2
;;; flymake.el -- a universal on-the-fly syntax checker

Glenn Morris's avatar
Glenn Morris committed
3 4
;; Copyright (C) 2003, 2004, 2005, 2006, 2007
;;   Free Software Foundation, Inc.
Eli Zaretskii's avatar
Eli Zaretskii committed
5

6 7
;; Author:  Pavel Kobyakov <pk_at_work@yahoo.com>
;; Maintainer: Pavel Kobyakov <pk_at_work@yahoo.com>
Eli Zaretskii's avatar
Eli Zaretskii committed
8 9 10 11 12 13 14
;; Version: 0.3
;; Keywords: c languages tools

;; This file is part of GNU Emacs.

;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
15
;; the Free Software Foundation; either version 3, or (at your option)
Eli Zaretskii's avatar
Eli Zaretskii committed
16 17 18 19 20 21 22 23 24
;; any later version.

;; GNU Emacs is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;; GNU General Public License for more details.

;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING.  If not, write to the
Lute Kamstra's avatar
Lute Kamstra committed
25 26
;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
;; Boston, MA 02110-1301, USA.
Eli Zaretskii's avatar
Eli Zaretskii committed
27 28 29 30 31 32 33

;;; Commentary:
;;
;; Flymake is a minor Emacs mode performing on-the-fly syntax
;; checks using the external syntax check tool (for C/C++ this
;; is usually the compiler)

Stefan Monnier's avatar
Stefan Monnier committed
34 35 36 37 38
;;; Bugs/todo:

;; - Only uses "Makefile", not "makefile" or "GNUmakefile"
;;   (from http://bugs.debian.org/337339).

Eli Zaretskii's avatar
Eli Zaretskii committed
39 40
;;; Code:

41 42 43
(eval-when-compile (require 'cl))
(if (featurep 'xemacs) (require 'overlay))

44 45 46
(defvar flymake-is-running nil
  "If t, flymake syntax check process is running for the current buffer.")
(make-variable-buffer-local 'flymake-is-running)
47

48 49 50
(defvar flymake-timer nil
  "Timer for starting syntax check.")
(make-variable-buffer-local 'flymake-timer)
51

52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70
(defvar flymake-last-change-time nil
  "Time of last buffer change.")
(make-variable-buffer-local 'flymake-last-change-time)

(defvar flymake-check-start-time nil
  "Time at which syntax check was started.")
(make-variable-buffer-local 'flymake-check-start-time)

(defvar flymake-check-was-interrupted nil
  "Non-nil if syntax check was killed by `flymake-compile'.")
(make-variable-buffer-local 'flymake-check-was-interrupted)

(defvar flymake-err-info nil
  "Sorted list of line numbers and lists of err info in the form (file, err-text).")
(make-variable-buffer-local 'flymake-err-info)

(defvar flymake-new-err-info nil
  "Same as `flymake-err-info', effective when a syntax check is in progress.")
(make-variable-buffer-local 'flymake-new-err-info)
71

Eli Zaretskii's avatar
Eli Zaretskii committed
72
;;;; [[ cross-emacs compatibility routines
Kim F. Storm's avatar
Kim F. Storm committed
73 74 75
(defsubst flymake-makehash (&optional test)
  (if (fboundp 'make-hash-table)
      (if test (make-hash-table :test test) (make-hash-table))
76 77
    (with-no-warnings
      (makehash test))))
Richard M. Stallman's avatar
Richard M. Stallman committed
78

Stefan Monnier's avatar
Stefan Monnier committed
79 80 81
(defalias 'flymake-float-time
  (if (fboundp 'float-time)
      'float-time
82 83 84 85
    (if (featurep 'xemacs)
	(lambda ()
	  (multiple-value-bind (s0 s1 s2) (current-time)
	    (+ (* (float (ash 1 16)) s0) (float s1) (* 0.0000001 s2)))))))
Kim F. Storm's avatar
Kim F. Storm committed
86

87 88 89 90 91 92 93 94 95 96 97 98
(defalias 'flymake-replace-regexp-in-string
  (if (eval-when-compile (fboundp 'replace-regexp-in-string))
      'replace-regexp-in-string
    (lambda (regexp rep str)
      (replace-in-string str regexp rep))))

(defalias 'flymake-split-string
  (if (condition-case nil (equal (split-string " bc " " " t) '("bc"))
        (error nil))
      (lambda (str pattern) (split-string str pattern t))
    (lambda (str pattern)
      "Split STR into a list of substrings bounded by PATTERN.
Richard M. Stallman's avatar
Richard M. Stallman committed
99
Zero-length substrings at the beginning and end of the list are omitted."
100
      (let ((split (split-string str pattern)))
101 102 103 104
        (while (equal (car split) "") (setq split (cdr split)))
        (setq split (nreverse split))
        (while (equal (car split) "") (setq split (cdr split)))
        (nreverse split)))))
105 106

(defalias 'flymake-get-temp-dir
Stefan Monnier's avatar
Stefan Monnier committed
107
  (if (fboundp 'temp-directory)
108 109
      'temp-directory
    (lambda () temporary-file-directory)))
Eli Zaretskii's avatar
Eli Zaretskii committed
110

Stefan Monnier's avatar
Stefan Monnier committed
111 112 113 114
(defalias 'flymake-line-beginning-position
  (if (fboundp 'line-beginning-position)
      'line-beginning-position
    (lambda (&optional arg) (save-excursion (beginning-of-line arg) (point)))))
Eli Zaretskii's avatar
Eli Zaretskii committed
115

Stefan Monnier's avatar
Stefan Monnier committed
116 117 118 119
(defalias 'flymake-line-end-position
  (if (fboundp 'line-end-position)
      'line-end-position
    (lambda (&optional arg) (save-excursion (end-of-line arg) (point)))))
Richard M. Stallman's avatar
Richard M. Stallman committed
120

121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144
(defun flymake-posn-at-point-as-event (&optional position window dx dy)
  "Return pixel position of top left corner of glyph at POSITION,
relative to top left corner of WINDOW, as a mouse-1 click
event (identical to the event that would be triggered by clicking
mouse button 1 at the top left corner of the glyph).

POSITION and WINDOW default to the position of point in the
selected window.

DX and DY specify optional offsets from the top left of the glyph."
  (unless window (setq window (selected-window)))
  (unless position (setq position (window-point window)))
  (unless dx (setq dx 0))
  (unless dy (setq dy 0))

  (let* ((pos (posn-at-point position window))
         (x-y (posn-x-y pos))
         (edges (window-inside-pixel-edges window))
         (win-x-y (window-pixel-edges window)))
    ;; adjust for window edges
    (setcar (nthcdr 2 pos)
            (cons (+ (car x-y) (car  edges) (- (car win-x-y))  dx)
                  (+ (cdr x-y) (cadr edges) (- (cadr win-x-y)) dy)))
    (list 'mouse-1 pos)))
145 146 147

(defun flymake-popup-menu (menu-data)
  "Pop up the flymake menu at point, using the data MENU-DATA.
Richard M. Stallman's avatar
Richard M. Stallman committed
148 149 150 151 152
POS is a list of the form ((X Y) WINDOW), where X and Y are
pixels positions from the top left corner of WINDOW's frame.
MENU-DATA is a list of error and warning messages returned by
`flymake-make-err-menu-data'."
  (if (featurep 'xemacs)
153 154 155
      (let* ((pos         (flymake-get-point-pixel-pos))
             (x-pos       (nth 0 pos))
	     (y-pos       (nth 1 pos))
Kim F. Storm's avatar
Kim F. Storm committed
156 157 158
	     (fake-event-props  '(button 1 x 1 y 1)))
	(setq fake-event-props (plist-put fake-event-props 'x x-pos))
	(setq fake-event-props (plist-put fake-event-props 'y y-pos))
159 160 161
	(popup-menu (flymake-make-xemacs-menu menu-data)
                    (make-event 'button-press fake-event-props)))
    (x-popup-menu (if (eval-when-compile (fboundp 'posn-at-point))
162
                      (flymake-posn-at-point-as-event)
163 164
                    (list (flymake-get-point-pixel-pos) (selected-window)))
                  (flymake-make-emacs-menu menu-data))))
Eli Zaretskii's avatar
Eli Zaretskii committed
165

Richard M. Stallman's avatar
Richard M. Stallman committed
166
(defun flymake-make-emacs-menu (menu-data)
Richard M. Stallman's avatar
Richard M. Stallman committed
167 168 169 170
  "Return a menu specifier using MENU-DATA.
MENU-DATA is a list of error and warning messages returned by
`flymake-make-err-menu-data'.
See `x-popup-menu' for the menu specifier format."
Richard M. Stallman's avatar
Richard M. Stallman committed
171 172
  (let* ((menu-title     (nth 0 menu-data))
	 (menu-items     (nth 1 menu-data))
173 174 175
	 (menu-commands  (mapcar (lambda (foo)
                                   (cons (nth 0 foo) (nth 1 foo)))
                                 menu-items)))
Richard M. Stallman's avatar
Richard M. Stallman committed
176
    (list menu-title (cons "" menu-commands))))
Eli Zaretskii's avatar
Eli Zaretskii committed
177

Kim F. Storm's avatar
Kim F. Storm committed
178 179
(if (featurep 'xemacs) (progn

Stefan Monnier's avatar
Stefan Monnier committed
180 181
(defun flymake-nop ())

182
(defun flymake-make-xemacs-menu (menu-data)
Richard M. Stallman's avatar
Richard M. Stallman committed
183
  "Return a menu specifier using MENU-DATA."
Richard M. Stallman's avatar
Richard M. Stallman committed
184 185 186 187 188 189 190 191
  (let* ((menu-title     (nth 0 menu-data))
	 (menu-items     (nth 1 menu-data))
	 (menu-commands  nil))
    (setq menu-commands (mapcar (lambda (foo)
				  (vector (nth 0 foo) (or (nth 1 foo) '(flymake-nop)) t))
				menu-items))
    (cons menu-title menu-commands)))

Kim F. Storm's avatar
Kim F. Storm committed
192 193
)) ;; xemacs

194 195
(unless (eval-when-compile (fboundp 'posn-at-point))

Richard M. Stallman's avatar
Richard M. Stallman committed
196 197
(defun flymake-current-row ()
  "Return current row number in current frame."
Stefan Monnier's avatar
Stefan Monnier committed
198 199 200
  (if (fboundp 'window-edges)
      (+ (car (cdr (window-edges))) (count-lines (window-start) (point)))
    (count-lines (window-start) (point))))
Richard M. Stallman's avatar
Richard M. Stallman committed
201 202

(defun flymake-selected-frame ()
Stefan Monnier's avatar
Stefan Monnier committed
203 204 205
  (if (fboundp 'window-edges)
      (selected-frame)
    (selected-window)))
Eli Zaretskii's avatar
Eli Zaretskii committed
206

207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224
(defun flymake-get-point-pixel-pos ()
  "Return point position in pixels: (x, y)."
  (let ((mouse-pos  (mouse-position))
	(pixel-pos  nil)
	(ret        nil))
    (if (car (cdr mouse-pos))
	(progn
	  (set-mouse-position (flymake-selected-frame) (current-column) (flymake-current-row))
	  (setq pixel-pos (mouse-pixel-position))
	  (set-mouse-position (car mouse-pos) (car (cdr mouse-pos)) (cdr (cdr mouse-pos)))
	  (setq ret (list (car (cdr pixel-pos)) (cdr (cdr pixel-pos)))))
      (progn
	(setq ret '(0 0))))
    (flymake-log 3 "mouse pos is %s" ret)
    ret))

) ;; End of (unless (fboundp 'posn-at-point)

Eli Zaretskii's avatar
Eli Zaretskii committed
225 226 227
;;;; ]]

(defcustom flymake-log-level -1
Stefan Monnier's avatar
Stefan Monnier committed
228
  "Logging level, only messages with level lower or equal will be logged.
Eli Zaretskii's avatar
Eli Zaretskii committed
229
-1 = NONE, 0 = ERROR, 1 = WARNING, 2 = INFO, 3 = DEBUG"
Richard M. Stallman's avatar
Richard M. Stallman committed
230 231
  :group 'flymake
  :type 'integer)
Eli Zaretskii's avatar
Eli Zaretskii committed
232

233
(defun flymake-log (level text &rest args)
Richard M. Stallman's avatar
Richard M. Stallman committed
234 235 236 237 238
  "Log a message at level LEVEL.
If LEVEL is higher than `flymake-log-level', the message is
ignored.  Otherwise, it is printed using `message'.
TEXT is a format control string, and the remaining arguments ARGS
are the string substitutions (see `format')."
Richard M. Stallman's avatar
Richard M. Stallman committed
239 240
  (if (<= level flymake-log-level)
      (let* ((msg (apply 'format text args)))
241
	(message "%s" msg)
Richard M. Stallman's avatar
Richard M. Stallman committed
242 243 244
	;;(with-temp-buffer
	;;    (insert msg)
	;;   (insert "\n")
245
	;;   (flymake-save-buffer-in-file "d:/flymake.log" t)  ; make log file name customizable
Richard M. Stallman's avatar
Richard M. Stallman committed
246
	;;)
247
	)))
Eli Zaretskii's avatar
Eli Zaretskii committed
248

249
(defun flymake-ins-after (list pos val)
Richard M. Stallman's avatar
Richard M. Stallman committed
250 251 252 253
  "Insert VAL into LIST after position POS."
  (let ((tmp (copy-sequence list)))	; (???)
    (setcdr (nthcdr pos tmp) (cons val (nthcdr (1+ pos) tmp)))
    tmp))
Eli Zaretskii's avatar
Eli Zaretskii committed
254

255
(defun flymake-set-at (list pos val)
256
  "Set VAL at position POS in LIST."
Richard M. Stallman's avatar
Richard M. Stallman committed
257 258 259
  (let ((tmp (copy-sequence list)))	; (???)
    (setcar (nthcdr pos tmp) val)
    tmp))
Eli Zaretskii's avatar
Eli Zaretskii committed
260

261 262
(defvar flymake-processes nil
  "List of currently active flymake processes.")
Eli Zaretskii's avatar
Eli Zaretskii committed
263

264
(defvar flymake-output-residual nil)
265

Eli Zaretskii's avatar
Eli Zaretskii committed
266
(make-variable-buffer-local 'flymake-output-residual)
267

Richard M. Stallman's avatar
Richard M. Stallman committed
268
(defcustom flymake-allowed-file-name-masks
269 270 271 272 273 274
  '(("\\.c\\'" flymake-simple-make-init)
    ("\\.cpp\\'" flymake-simple-make-init)
    ("\\.xml\\'" flymake-xml-init)
    ("\\.html?\\'" flymake-xml-init)
    ("\\.cs\\'" flymake-simple-make-init)
    ("\\.pl\\'" flymake-perl-init)
275 276 277
    ("\\.h\\'" flymake-master-make-header-init flymake-master-cleanup)
    ("\\.java\\'" flymake-simple-make-java-init flymake-simple-java-cleanup)
    ("[0-9]+\\.tex\\'" flymake-master-tex-init flymake-master-cleanup)
278 279
    ("\\.tex\\'" flymake-simple-tex-init)
    ("\\.idl\\'" flymake-simple-make-init)
280 281 282
    ;; ("\\.cpp\\'" 1)
    ;; ("\\.java\\'" 3)
    ;; ("\\.h\\'" 2 ("\\.cpp\\'" "\\.c\\'")
283
    ;; ("[ \t]*#[ \t]*include[ \t]*\"\\([\w0-9/\\_\.]*[/\\]*\\)\\(%s\\)\"" 1 2))
284 285 286
    ;; ("\\.idl\\'" 1)
    ;; ("\\.odl\\'" 1)
    ;; ("[0-9]+\\.tex\\'" 2 ("\\.tex\\'")
287
    ;; ("[ \t]*\\input[ \t]*{\\(.*\\)\\(%s\\)}" 1 2 ))
288
    ;; ("\\.tex\\'" 1)
Richard M. Stallman's avatar
Richard M. Stallman committed
289 290 291 292
    )
  "*Files syntax checking is allowed for."
  :group 'flymake
  :type '(repeat (string symbol symbol symbol)))
Eli Zaretskii's avatar
Eli Zaretskii committed
293

294
(defun flymake-get-file-name-mode-and-masks (file-name)
295
  "Return the corresponding entry from `flymake-allowed-file-name-masks'."
Richard M. Stallman's avatar
Richard M. Stallman committed
296 297
  (unless (stringp file-name)
    (error "Invalid file-name"))
298
  (let ((fnm flymake-allowed-file-name-masks)
Richard M. Stallman's avatar
Richard M. Stallman committed
299
	(mode-and-masks  nil))
300 301 302 303
    (while (and (not mode-and-masks) fnm)
      (if (string-match (car (car fnm)) file-name)
	  (setq mode-and-masks (cdr (car fnm))))
      (setq fnm (cdr fnm)))
Richard M. Stallman's avatar
Richard M. Stallman committed
304 305
    (flymake-log 3 "file %s, init=%s" file-name (car mode-and-masks))
    mode-and-masks))
Eli Zaretskii's avatar
Eli Zaretskii committed
306

307
(defun flymake-can-syntax-check-file (file-name)
Richard M. Stallman's avatar
Richard M. Stallman committed
308
  "Determine whether we can syntax check FILE-NAME.
309
Return nil if we cannot, non-nil if we can."
Richard M. Stallman's avatar
Richard M. Stallman committed
310
  (if (flymake-get-init-function file-name) t nil))
Eli Zaretskii's avatar
Eli Zaretskii committed
311

312
(defun flymake-get-init-function (file-name)
Richard M. Stallman's avatar
Richard M. Stallman committed
313 314
  "Return init function to be used for the file."
  (let* ((init-f  (nth 0 (flymake-get-file-name-mode-and-masks file-name))))
315 316
    ;;(flymake-log 0 "calling %s" init-f)
    ;;(funcall init-f (current-buffer))
Richard M. Stallman's avatar
Richard M. Stallman committed
317
    init-f))
Eli Zaretskii's avatar
Eli Zaretskii committed
318

319
(defun flymake-get-cleanup-function (file-name)
Richard M. Stallman's avatar
Richard M. Stallman committed
320
  "Return cleanup function to be used for the file."
321 322
  (or (nth 1 (flymake-get-file-name-mode-and-masks file-name))
      'flymake-simple-cleanup))
Eli Zaretskii's avatar
Eli Zaretskii committed
323

324
(defun flymake-get-real-file-name-function (file-name)
325 326
  (or (nth 2 (flymake-get-file-name-mode-and-masks file-name))
      'flymake-get-real-file-name))
Eli Zaretskii's avatar
Eli Zaretskii committed
327 328

(defcustom flymake-buildfile-dirs '("." ".." "../.." "../../.." "../../../.." "../../../../.." "../../../../../.." "../../../../../../.." "../../../../../../../.." "../../../../../../../../.." "../../../../../../../../../.." "../../../../../../../../../../..")
Richard M. Stallman's avatar
Richard M. Stallman committed
329 330 331
  "Dirs to look for buildfile."
  :group 'flymake
  :type '(repeat (string)))
Eli Zaretskii's avatar
Eli Zaretskii committed
332 333 334

(defvar flymake-find-buildfile-cache (flymake-makehash 'equal))

335
(defun flymake-get-buildfile-from-cache (dir-name)
Richard M. Stallman's avatar
Richard M. Stallman committed
336
  (gethash dir-name flymake-find-buildfile-cache))
337 338

(defun flymake-add-buildfile-to-cache (dir-name buildfile)
Richard M. Stallman's avatar
Richard M. Stallman committed
339
  (puthash dir-name buildfile flymake-find-buildfile-cache))
340 341

(defun flymake-clear-buildfile-cache ()
Richard M. Stallman's avatar
Richard M. Stallman committed
342
  (clrhash flymake-find-buildfile-cache))
343

344
(defun flymake-find-buildfile (buildfile-name source-dir-name)
Richard M. Stallman's avatar
Richard M. Stallman committed
345
  "Find buildfile starting from current directory.
346
Buildfile includes Makefile, build.xml etc.
Richard M. Stallman's avatar
Richard M. Stallman committed
347
Return its file name if found, or nil if not found."
348 349 350 351 352 353
  (or (flymake-get-buildfile-from-cache source-dir-name)
      (let* ((dirs flymake-buildfile-dirs)
             (buildfile-dir          nil)
             (found                  nil))
        (while (and (not found) dirs)
          (setq buildfile-dir (concat source-dir-name (car dirs)))
354
          (when (file-exists-p (expand-file-name buildfile-name buildfile-dir))
355 356 357 358 359 360 361 362 363 364
            (setq found t))
          (setq dirs (cdr dirs)))
        (if found
            (progn
              (flymake-log 3 "found buildfile at %s/%s" buildfile-dir buildfile-name)
              (flymake-add-buildfile-to-cache source-dir-name buildfile-dir)
              buildfile-dir)
          (progn
            (flymake-log 3 "buildfile for %s not found" source-dir-name)
            nil)))))
Richard M. Stallman's avatar
Richard M. Stallman committed
365 366

(defun flymake-fix-file-name (name)
367
  "Replace all occurrences of '\' with '/'."
Richard M. Stallman's avatar
Richard M. Stallman committed
368
  (when name
369 370 371 372
    (setq name (expand-file-name name))
    (setq name (abbreviate-file-name name))
    (setq name (directory-file-name name))
    name))
Eli Zaretskii's avatar
Eli Zaretskii committed
373

374
(defun flymake-same-files (file-name-one file-name-two)
Richard M. Stallman's avatar
Richard M. Stallman committed
375
  "Check if FILE-NAME-ONE and FILE-NAME-TWO point to same file.
376
Return t if so, nil if not."
Richard M. Stallman's avatar
Richard M. Stallman committed
377 378 379
  (equal (flymake-fix-file-name file-name-one)
	 (flymake-fix-file-name file-name-two)))

Eli Zaretskii's avatar
Eli Zaretskii committed
380
(defcustom flymake-master-file-dirs '("." "./src" "./UnitTest")
381
  "Dirs where to look for master files."
Richard M. Stallman's avatar
Richard M. Stallman committed
382 383
  :group 'flymake
  :type '(repeat (string)))
Eli Zaretskii's avatar
Eli Zaretskii committed
384 385

(defcustom flymake-master-file-count-limit 32
Richard M. Stallman's avatar
Richard M. Stallman committed
386 387 388
  "Max number of master files to check."
  :group 'flymake
  :type 'integer)
389

Kim F. Storm's avatar
Kim F. Storm committed
390 391
;; This is bound dynamically to pass a parameter to a sort predicate below
(defvar flymake-included-file-name)
Eli Zaretskii's avatar
Eli Zaretskii committed
392

393
(defun flymake-find-possible-master-files (file-name master-file-dirs masks)
394
  "Find (by name and location) all possible master files.
395
Master files are .cpp and .c for and .h.  Files are searched for
396
starting from the .h directory and max max-level parent dirs.
Eli Zaretskii's avatar
Eli Zaretskii committed
397
File contents are not checked."
398
  (let* ((dirs master-file-dirs)
Richard M. Stallman's avatar
Richard M. Stallman committed
399
	 (files  nil)
400 401 402
	 (done   nil))

    (while (and (not done) dirs)
403
      (let* ((dir (expand-file-name (car dirs) (file-name-directory file-name)))
404 405 406 407 408 409 410 411 412 413
	     (masks masks))
	(while (and (file-exists-p dir) (not done) masks)
	  (let* ((mask        (car masks))
		 (dir-files   (directory-files dir t mask)))

	    (flymake-log 3 "dir %s, %d file(s) for mask %s"
			 dir (length dir-files) mask)
	    (while (and (not done) dir-files)
	      (when (not (file-directory-p (car dir-files)))
		(setq files (cons (car dir-files) files))
Richard M. Stallman's avatar
Richard M. Stallman committed
414 415 416
		(when (>= (length files) flymake-master-file-count-limit)
		  (flymake-log 3 "master file count limit (%d) reached" flymake-master-file-count-limit)
		  (setq done t)))
417 418 419
	      (setq dir-files (cdr dir-files))))
	  (setq masks (cdr masks))))
      (setq dirs (cdr dirs)))
Richard M. Stallman's avatar
Richard M. Stallman committed
420
    (when files
Kim F. Storm's avatar
Kim F. Storm committed
421 422
      (let ((flymake-included-file-name (file-name-nondirectory file-name)))
	(setq files (sort files 'flymake-master-file-compare))))
Richard M. Stallman's avatar
Richard M. Stallman committed
423 424
    (flymake-log 3 "found %d possible master file(s)" (length files))
    files))
Eli Zaretskii's avatar
Eli Zaretskii committed
425

426
(defun flymake-master-file-compare (file-one file-two)
427
  "Compare two files specified by FILE-ONE and FILE-TWO.
428
This function is used in sort to move most possible file names
429
to the beginning of the list (File.h -> File.cpp moved to top)."
Richard M. Stallman's avatar
Richard M. Stallman committed
430 431 432
  (and (equal (file-name-sans-extension flymake-included-file-name)
	      (file-name-sans-extension (file-name-nondirectory file-one)))
       (not (equal file-one file-two))))
Eli Zaretskii's avatar
Eli Zaretskii committed
433 434

(defcustom flymake-check-file-limit 8192
Richard M. Stallman's avatar
Richard M. Stallman committed
435 436 437
  "Max number of chars to look at when checking possible master file."
  :group 'flymake
  :type 'integer)
Eli Zaretskii's avatar
Eli Zaretskii committed
438

439 440 441 442 443
(defun flymake-check-patch-master-file-buffer
       (master-file-temp-buffer
        master-file-name patched-master-file-name
        source-file-name patched-source-file-name
        include-dirs regexp)
Richard M. Stallman's avatar
Richard M. Stallman committed
444
  "Check if MASTER-FILE-NAME is a master file for SOURCE-FILE-NAME.
445 446 447 448 449
For .cpp master file this means it includes SOURCE-FILE-NAME (.h).
If yes, patch a copy of MASTER-FILE-NAME to include PATCHED-SOURCE-FILE-NAME
instead of SOURCE-FILE-NAME.
Whether a buffer for MATER-FILE-NAME exists, use it as a source
instead of reading master file from disk."
450 451
  (let* ((source-file-nondir (file-name-nondirectory source-file-name))
         (found                     nil)
Richard M. Stallman's avatar
Richard M. Stallman committed
452 453
	 (inc-name                  nil)
	 (search-limit              flymake-check-file-limit))
454 455 456 457 458 459 460 461 462 463 464 465 466 467 468 469 470 471 472 473 474 475 476 477 478 479 480 481 482 483 484 485 486 487 488 489 490
    (setq regexp
          (format regexp	; "[ \t]*#[ \t]*include[ \t]*\"\\(.*%s\\)\""
                  (regexp-quote source-file-nondir)))
    (unwind-protect
        (with-current-buffer master-file-temp-buffer
          (when (> search-limit (point-max))
            (setq search-limit (point-max)))
          (flymake-log 3 "checking %s against regexp %s"
                       master-file-name regexp)
          (goto-char (point-min))
          (while (and (< (point) search-limit)
                      (re-search-forward regexp search-limit t))
            (let ((match-beg   (match-beginning 1))
                  (match-end   (match-end 1)))

              (flymake-log 3 "found possible match for %s" source-file-nondir)
              (setq inc-name (match-string 1))
              (when (eq t (compare-strings
                           source-file-nondir nil nil
                           inc-name (- (length inc-name)
                                       (length source-file-nondir)) nil))
                (flymake-log 3 "inc-name=%s" inc-name)
                (when (flymake-check-include source-file-name inc-name
                                             include-dirs)
                  (setq found t)
                  ;;  replace-match is not used here as it fails in
                  ;; XEmacs with 'last match not a buffer' error as
                  ;; check-includes calls replace-in-string
                  (flymake-replace-region
                   match-beg match-end
                   (file-name-nondirectory patched-source-file-name))))
              (forward-line 1)))
          (when found
            (flymake-save-buffer-in-file patched-master-file-name)))
      ;;+(flymake-log 3 "killing buffer %s"
      ;;                (buffer-name master-file-temp-buffer))
      (kill-buffer master-file-temp-buffer))
491
    ;;+(flymake-log 3 "check-patch master file %s: %s" master-file-name found)
Richard M. Stallman's avatar
Richard M. Stallman committed
492 493 494
    (when found
      (flymake-log 2 "found master file %s" master-file-name))
    found))
Eli Zaretskii's avatar
Eli Zaretskii committed
495

496
(defun flymake-replace-region (beg end rep)
Richard M. Stallman's avatar
Richard M. Stallman committed
497 498
  "Replace text in BUFFER in region (BEG END) with REP."
  (save-excursion
499 500 501 502
    (goto-char end)
    ;; Insert before deleting, so as to better preserve markers's positions.
    (insert rep)
    (delete-region beg end)))
Eli Zaretskii's avatar
Eli Zaretskii committed
503

504
(defun flymake-read-file-to-temp-buffer (file-name)
Richard M. Stallman's avatar
Richard M. Stallman committed
505 506
  "Insert contents of FILE-NAME into newly created temp buffer."
  (let* ((temp-buffer (get-buffer-create (generate-new-buffer-name (concat "flymake:" (file-name-nondirectory file-name))))))
Stefan Monnier's avatar
Stefan Monnier committed
507
    (with-current-buffer temp-buffer
Richard M. Stallman's avatar
Richard M. Stallman committed
508 509
      (insert-file-contents file-name))
    temp-buffer))
Eli Zaretskii's avatar
Eli Zaretskii committed
510

511
(defun flymake-copy-buffer-to-temp-buffer (buffer)
Richard M. Stallman's avatar
Richard M. Stallman committed
512
  "Copy contents of BUFFER into newly created temp buffer."
513 514 515 516 517
  (with-current-buffer
      (get-buffer-create (generate-new-buffer-name
                          (concat "flymake:" (buffer-name buffer))))
    (insert-buffer-substring buffer)
    (current-buffer)))
Eli Zaretskii's avatar
Eli Zaretskii committed
518

519
(defun flymake-check-include (source-file-name inc-name include-dirs)
Richard M. Stallman's avatar
Richard M. Stallman committed
520
  "Check if SOURCE-FILE-NAME can be found in include path.
521 522 523 524 525 526 527 528 529 530 531
Return t if it can be found via include path using INC-NAME."
  (if (file-name-absolute-p inc-name)
      (flymake-same-files source-file-name inc-name)
    (while (and include-dirs
                (not (flymake-same-files
                      source-file-name
                      (concat (file-name-directory source-file-name)
                              "/" (car include-dirs)
                              "/" inc-name))))
      (setq include-dirs (cdr include-dirs)))
    include-dirs))
Eli Zaretskii's avatar
Eli Zaretskii committed
532

533
(defun flymake-find-buffer-for-file (file-name)
Richard M. Stallman's avatar
Richard M. Stallman committed
534
  "Check if there exists a buffer visiting FILE-NAME.
535
Return t if so, nil if not."
Richard M. Stallman's avatar
Richard M. Stallman committed
536 537 538
  (let ((buffer-name (get-file-buffer file-name)))
    (if buffer-name
	(get-buffer buffer-name))))
Eli Zaretskii's avatar
Eli Zaretskii committed
539

540
(defun flymake-create-master-file (source-file-name patched-source-file-name get-incl-dirs-f create-temp-f masks include-regexp)
Richard M. Stallman's avatar
Richard M. Stallman committed
541
  "Save SOURCE-FILE-NAME with a different name.
542
Find master file, patch and save it."
Richard M. Stallman's avatar
Richard M. Stallman committed
543 544 545 546 547 548 549 550 551 552 553 554 555 556 557 558 559 560 561 562 563 564
  (let* ((possible-master-files     (flymake-find-possible-master-files source-file-name flymake-master-file-dirs masks))
	 (master-file-count         (length possible-master-files))
	 (idx                       0)
	 (temp-buffer               nil)
	 (master-file-name          nil)
	 (patched-master-file-name  nil)
	 (found                     nil))

    (while (and (not found) (< idx master-file-count))
      (setq master-file-name (nth idx possible-master-files))
      (setq patched-master-file-name (funcall create-temp-f master-file-name "flymake_master"))
      (if (flymake-find-buffer-for-file master-file-name)
	  (setq temp-buffer (flymake-copy-buffer-to-temp-buffer (flymake-find-buffer-for-file master-file-name)))
	(setq temp-buffer (flymake-read-file-to-temp-buffer master-file-name)))
      (setq found
	    (flymake-check-patch-master-file-buffer
	     temp-buffer
	     master-file-name
	     patched-master-file-name
	     source-file-name
	     patched-source-file-name
	     (funcall get-incl-dirs-f (file-name-directory master-file-name))
565
	     include-regexp))
Richard M. Stallman's avatar
Richard M. Stallman committed
566 567 568 569 570 571 572
      (setq idx (1+ idx)))
    (if found
	(list master-file-name patched-master-file-name)
      (progn
	(flymake-log 3 "none of %d master file(s) checked includes %s" master-file-count
		     (file-name-nondirectory source-file-name))
	nil))))
Eli Zaretskii's avatar
Eli Zaretskii committed
573

574 575 576 577 578 579
(defun flymake-save-buffer-in-file (file-name)
  (save-restriction
    (widen)
    (make-directory (file-name-directory file-name) 1)
    (write-region (point-min) (point-max) file-name nil 566))
  (flymake-log 3 "saved buffer %s in file %s" (buffer-name) file-name))
Eli Zaretskii's avatar
Eli Zaretskii committed
580

581
(defun flymake-save-string-to-file (file-name data)
Richard M. Stallman's avatar
Richard M. Stallman committed
582 583
  "Save string DATA to file FILE-NAME."
  (write-region data nil file-name nil 566))
Eli Zaretskii's avatar
Eli Zaretskii committed
584

585
(defun flymake-read-file-to-string (file-name)
Richard M. Stallman's avatar
Richard M. Stallman committed
586 587 588 589
  "Read contents of file FILE-NAME and return as a string."
  (with-temp-buffer
    (insert-file-contents file-name)
    (buffer-substring (point-min) (point-max))))
Eli Zaretskii's avatar
Eli Zaretskii committed
590

591
(defun flymake-process-filter (process output)
Richard M. Stallman's avatar
Richard M. Stallman committed
592
  "Parse OUTPUT and highlight error lines.
593
It's flymake process filter."
594
  (let ((source-buffer (process-buffer process)))
Eli Zaretskii's avatar
Eli Zaretskii committed
595

596 597
    (flymake-log 3 "received %d byte(s) of output from process %d"
                 (length output) (process-id process))
Richard M. Stallman's avatar
Richard M. Stallman committed
598
    (when source-buffer
599 600
      (with-current-buffer source-buffer
        (flymake-parse-output-and-residual output)))))
Eli Zaretskii's avatar
Eli Zaretskii committed
601

602
(defun flymake-process-sentinel (process event)
Richard M. Stallman's avatar
Richard M. Stallman committed
603
  "Sentinel for syntax check buffers."
604 605 606 607 608 609 610 611 612 613 614 615 616 617 618 619 620 621 622 623 624 625 626 627 628 629 630 631 632 633
  (when (memq (process-status process) '(signal exit))
    (let* ((exit-status       (process-exit-status process))
           (command           (process-command process))
           (source-buffer     (process-buffer process))
           (cleanup-f         (flymake-get-cleanup-function (buffer-file-name source-buffer))))

      (flymake-log 2 "process %d exited with code %d"
                   (process-id process) exit-status)
      (condition-case err
          (progn
            (flymake-log 3 "cleaning up using %s" cleanup-f)
            (when (buffer-live-p source-buffer)
              (with-current-buffer source-buffer
                (funcall cleanup-f)))

            (delete-process process)
            (setq flymake-processes (delq process flymake-processes))

            (when (buffer-live-p source-buffer)
              (with-current-buffer source-buffer

                (flymake-parse-residual)
                (flymake-post-syntax-check exit-status command)
                (setq flymake-is-running nil))))
        (error
         (let ((err-str (format "Error in process sentinel for buffer %s: %s"
                                source-buffer (error-message-string err))))
           (flymake-log 0 err-str)
           (with-current-buffer source-buffer
             (setq flymake-is-running nil))))))))
Eli Zaretskii's avatar
Eli Zaretskii committed
634

635 636 637 638 639 640 641 642
(defun flymake-post-syntax-check (exit-status command)
  (setq flymake-err-info flymake-new-err-info)
  (setq flymake-new-err-info nil)
  (setq flymake-err-info
        (flymake-fix-line-numbers
         flymake-err-info 1 (flymake-count-lines)))
  (flymake-delete-own-overlays)
  (flymake-highlight-err-lines flymake-err-info)
Richard M. Stallman's avatar
Richard M. Stallman committed
643
  (let (err-count warn-count)
644 645 646 647
    (setq err-count (flymake-get-err-count flymake-err-info "e"))
    (setq warn-count  (flymake-get-err-count flymake-err-info "w"))
    (flymake-log 2 "%s: %d error(s), %d warning(s) in %.2f second(s)"
		 (buffer-name) err-count warn-count
Richard M. Stallman's avatar
Richard M. Stallman committed
648
		 (- (flymake-float-time) flymake-check-start-time))
649
    (setq flymake-check-start-time nil)
Richard M. Stallman's avatar
Richard M. Stallman committed
650

Richard M. Stallman's avatar
Richard M. Stallman committed
651 652
    (if (and (equal 0 err-count) (equal 0 warn-count))
	(if (equal 0 exit-status)
653 654 655
	    (flymake-report-status "" "")	; PASSED
	  (if (not flymake-check-was-interrupted)
	      (flymake-report-fatal-status "CFGERR"
Richard M. Stallman's avatar
Richard M. Stallman committed
656
					   (format "Configuration error has occured while running %s" command))
657 658
	    (flymake-report-status nil ""))) ; "STOPPED"
      (flymake-report-status (format "%d/%d" err-count warn-count) ""))))
Eli Zaretskii's avatar
Eli Zaretskii committed
659

660
(defun flymake-parse-output-and-residual (output)
Richard M. Stallman's avatar
Richard M. Stallman committed
661
  "Split OUTPUT into lines, merge in residual if necessary."
662 663 664 665 666 667 668 669 670 671 672
  (let* ((buffer-residual     flymake-output-residual)
         (total-output        (if buffer-residual (concat buffer-residual output) output))
         (lines-and-residual  (flymake-split-output total-output))
         (lines               (nth 0 lines-and-residual))
         (new-residual        (nth 1 lines-and-residual)))
    (setq flymake-output-residual new-residual)
    (setq flymake-new-err-info
          (flymake-parse-err-lines
           flymake-new-err-info lines))))

(defun flymake-parse-residual ()
Richard M. Stallman's avatar
Richard M. Stallman committed
673
  "Parse residual if it's non empty."
674 675 676 677 678 679
  (when flymake-output-residual
    (setq flymake-new-err-info
          (flymake-parse-err-lines
           flymake-new-err-info
           (list flymake-output-residual)))
    (setq flymake-output-residual nil)))
Eli Zaretskii's avatar
Eli Zaretskii committed
680

681
(defun flymake-er-make-er (line-no line-err-info-list)
Richard M. Stallman's avatar
Richard M. Stallman committed
682
  (list line-no line-err-info-list))
683 684

(defun flymake-er-get-line (err-info)
Richard M. Stallman's avatar
Richard M. Stallman committed
685
  (nth 0 err-info))
686 687

(defun flymake-er-get-line-err-info-list (err-info)
Richard M. Stallman's avatar
Richard M. Stallman committed
688
  (nth 1 err-info))
Eli Zaretskii's avatar
Eli Zaretskii committed
689

690 691 692 693
(defstruct (flymake-ler
            (:constructor nil)
            (:constructor flymake-ler-make-ler (file line type text &optional full-file)))
  file line type text full-file)
694 695

(defun flymake-ler-set-file (line-err-info file)
Richard M. Stallman's avatar
Richard M. Stallman committed
696
  (flymake-ler-make-ler file
697 698 699 700
			(flymake-ler-line line-err-info)
			(flymake-ler-type line-err-info)
			(flymake-ler-text line-err-info)
			(flymake-ler-full-file line-err-info)))
701 702

(defun flymake-ler-set-full-file (line-err-info full-file)
703 704 705 706
  (flymake-ler-make-ler (flymake-ler-file line-err-info)
			(flymake-ler-line line-err-info)
			(flymake-ler-type line-err-info)
			(flymake-ler-text line-err-info)
707 708 709
			full-file))

(defun flymake-ler-set-line (line-err-info line)
710
  (flymake-ler-make-ler (flymake-ler-file line-err-info)
Eli Zaretskii's avatar
Eli Zaretskii committed
711
			line
712 713 714
			(flymake-ler-type line-err-info)
			(flymake-ler-text line-err-info)
			(flymake-ler-full-file line-err-info)))
Eli Zaretskii's avatar
Eli Zaretskii committed
715

716
(defun flymake-get-line-err-count (line-err-info-list type)
Richard M. Stallman's avatar
Richard M. Stallman committed
717
  "Return number of errors of specified TYPE.
718
Value of TYPE is either \"e\" or \"w\"."
Richard M. Stallman's avatar
Richard M. Stallman committed
719 720 721
  (let* ((idx        0)
	 (count      (length line-err-info-list))
	 (err-count  0))
Eli Zaretskii's avatar
Eli Zaretskii committed
722

Richard M. Stallman's avatar
Richard M. Stallman committed
723
    (while (< idx count)
724
      (when (equal type (flymake-ler-type (nth idx line-err-info-list)))
Richard M. Stallman's avatar
Richard M. Stallman committed
725 726 727
	(setq err-count (1+ err-count)))
      (setq idx (1+ idx)))
    err-count))
Eli Zaretskii's avatar
Eli Zaretskii committed
728

729
(defun flymake-get-err-count (err-info-list type)
Richard M. Stallman's avatar
Richard M. Stallman committed
730 731 732 733 734 735 736 737
  "Return number of errors of specified TYPE for ERR-INFO-LIST."
  (let* ((idx        0)
	 (count      (length err-info-list))
	 (err-count  0))
    (while (< idx count)
      (setq err-count (+ err-count (flymake-get-line-err-count (nth 1 (nth idx err-info-list)) type)))
      (setq idx (1+ idx)))
    err-count))
738 739

(defun flymake-fix-line-numbers (err-info-list min-line max-line)
Richard M. Stallman's avatar
Richard M. Stallman committed
740
  "Replace line numbers with fixed value.
741 742
If line-numbers is less than MIN-LINE, set line numbers to MIN-LINE.
If line numbers is greater than MAX-LINE, set line numbers to MAX-LINE.
Kim F. Storm's avatar
Kim F. Storm committed
743
The reason for this fix is because some compilers might report
744
line number outside the file being compiled."
Richard M. Stallman's avatar
Richard M. Stallman committed
745 746 747 748 749 750 751 752 753 754 755 756 757
  (let* ((count     (length err-info-list))
	 (err-info  nil)
	 (line      0))
    (while (> count 0)
      (setq err-info (nth (1- count) err-info-list))
      (setq line (flymake-er-get-line err-info))
      (when (or (< line min-line) (> line max-line))
	(setq line (if (< line min-line) min-line max-line))
	(setq err-info-list (flymake-set-at err-info-list (1- count)
					    (flymake-er-make-er line
								(flymake-er-get-line-err-info-list err-info)))))
      (setq count (1- count))))
  err-info-list)
Eli Zaretskii's avatar
Eli Zaretskii committed
758

759
(defun flymake-highlight-err-lines (err-info-list)
Richard M. Stallman's avatar
Richard M. Stallman committed
760
  "Highlight error lines in BUFFER using info from ERR-INFO-LIST."
761 762 763
  (save-excursion
    (dolist (err err-info-list)
      (flymake-highlight-line (car err) (nth 1 err)))))
Eli Zaretskii's avatar
Eli Zaretskii committed
764

765
(defun flymake-overlay-p (ov)
Richard M. Stallman's avatar
Richard M. Stallman committed
766 767
  "Determine whether overlay OV was created by flymake."
  (and (overlayp ov) (overlay-get ov 'flymake-overlay)))
Eli Zaretskii's avatar
Eli Zaretskii committed
768

769
(defun flymake-make-overlay (beg end tooltip-text face mouse-face)
Richard M. Stallman's avatar
Richard M. Stallman committed
770 771 772 773 774 775 776 777
  "Allocate a flymake overlay in range BEG and END."
  (when (not (flymake-region-has-flymake-overlays beg end))
    (let ((ov (make-overlay beg end nil t t)))
      (overlay-put ov 'face           face)
      (overlay-put ov 'mouse-face     mouse-face)
      (overlay-put ov 'help-echo      tooltip-text)
      (overlay-put ov 'flymake-overlay  t)
      (overlay-put ov 'priority 100)
778
      ;;+(flymake-log 3 "created overlay %s" ov)
Richard M. Stallman's avatar
Richard M. Stallman committed
779 780
      ov)
    (flymake-log 3 "created an overlay at (%d-%d)" beg end)))
Eli Zaretskii's avatar
Eli Zaretskii committed
781

782
(defun flymake-delete-own-overlays ()
Richard M. Stallman's avatar
Richard M. Stallman committed
783
  "Delete all flymake overlays in BUFFER."
784 785 786 787 788
  (dolist (ol (overlays-in (point-min) (point-max)))
    (when (flymake-overlay-p ol)
      (delete-overlay ol)
      ;;+(flymake-log 3 "deleted overlay %s" ol)
      )))
Eli Zaretskii's avatar
Eli Zaretskii committed
789

790
(defun flymake-region-has-flymake-overlays (beg end)
Richard M. Stallman's avatar
Richard M. Stallman committed
791
  "Check if region specified by BEG and END has overlay.
792
Return t if it has at least one flymake overlay, nil if no overlay."
Richard M. Stallman's avatar
Richard M. Stallman committed
793 794 795 796 797
  (let ((ov                  (overlays-in beg end))
	(has-flymake-overlays  nil))
    (while (consp ov)
      (when (flymake-overlay-p (car ov))
	(setq has-flymake-overlays t))
Stefan Monnier's avatar
Stefan Monnier committed
798 799
      (setq ov (cdr ov)))
    has-flymake-overlays))
Eli Zaretskii's avatar
Eli Zaretskii committed
800

801
(defface flymake-errline
802 803
  ;;+   '((((class color)) (:foreground "OrangeRed" :bold t :underline t))
  ;;+   '((((class color)) (:underline "OrangeRed"))
Richard M. Stallman's avatar
Richard M. Stallman committed
804 805 806 807
  '((((class color)) (:background "LightPink"))
    (t (:bold t)))
  "Face used for marking error lines."
  :group 'flymake)
Eli Zaretskii's avatar
Eli Zaretskii committed
808

809
(defface flymake-warnline
Richard M. Stallman's avatar
Richard M. Stallman committed
810 811 812 813
  '((((class color)) (:background "LightBlue2"))
    (t (:bold t)))
  "Face used for marking warning lines."
  :group 'flymake)
Eli Zaretskii's avatar
Eli Zaretskii committed
814

815
(defun flymake-highlight-line (line-no line-err-info-list)
Richard M. Stallman's avatar
Richard M. Stallman committed
816
  "Highlight line LINE-NO in current buffer.
817
Perhaps use text from LINE-ERR-INFO-LIST to enhance highlighting."
Richard M. Stallman's avatar
Richard M. Stallman committed
818 819 820 821 822
  (goto-line line-no)
  (let* ((line-beg (flymake-line-beginning-position))
	 (line-end (flymake-line-end-position))
	 (beg      line-beg)
	 (end      line-end)
823
	 (tooltip-text (flymake-ler-text (nth 0 line-err-info-list)))
Richard M. Stallman's avatar
Richard M. Stallman committed
824 825 826 827 828
	 (face     nil))

    (goto-char line-beg)
    (while (looking-at "[ \t]")
      (forward-char))
Eli Zaretskii's avatar
Eli Zaretskii committed
829

Richard M. Stallman's avatar
Richard M. Stallman committed
830
    (setq beg (point))
Eli Zaretskii's avatar
Eli Zaretskii committed
831

Richard M. Stallman's avatar
Richard M. Stallman committed
832 833 834
    (goto-char line-end)
    (while (and (looking-at "[ \t\r\n]") (> (point) 1))
      (backward-char))
Eli Zaretskii's avatar
Eli Zaretskii committed
835

Richard M. Stallman's avatar
Richard M. Stallman committed
836
    (setq end (1+ (point)))
Eli Zaretskii's avatar
Eli Zaretskii committed
837

Richard M. Stallman's avatar
Richard M. Stallman committed
838 839 840
    (when (<= end beg)
      (setq beg line-beg)
      (setq end line-end))
841

Richard M. Stallman's avatar
Richard M. Stallman committed
842 843 844 845
    (when (= end beg)
      (goto-char end)
      (forward-line)
      (setq end (point)))
846

Richard M. Stallman's avatar
Richard M. Stallman committed
847
    (if (> (flymake-get-line-err-count line-err-info-list "e") 0)
848 849
	(setq face 'flymake-errline)
      (setq face 'flymake-warnline))
850

Richard M. Stallman's avatar
Richard M. Stallman committed
851
    (flymake-make-overlay beg end tooltip-text face nil)))
Eli Zaretskii's avatar
Eli Zaretskii committed
852

853
(defun flymake-parse-err-lines (err-info-list lines)
Richard M. Stallman's avatar
Richard M. Stallman committed
854 855 856 857 858
  "Parse err LINES, store info in ERR-INFO-LIST."
  (let* ((count              (length lines))
	 (idx                0)
	 (line-err-info      nil)
	 (real-file-name     nil)
859
	 (source-file-name   buffer-file-name)
Richard M. Stallman's avatar
Richard M. Stallman committed
860 861 862 863 864
	 (get-real-file-name-f (flymake-get-real-file-name-function source-file-name)))

    (while (< idx count)
      (setq line-err-info (flymake-parse-line (nth idx lines)))
      (when line-err-info
865
	(setq real-file-name (funcall get-real-file-name-f
866
                                      (flymake-ler-file line-err-info)))
Richard M. Stallman's avatar
Richard M. Stallman committed
867 868 869 870 871 872 873 874 875 876
	(setq line-err-info (flymake-ler-set-full-file line-err-info real-file-name))

	(if (flymake-same-files real-file-name source-file-name)
	    (setq line-err-info (flymake-ler-set-file line-err-info nil))
	  (setq line-err-info (flymake-ler-set-file line-err-info (file-name-nondirectory real-file-name))))

	(setq err-info-list (flymake-add-err-info err-info-list line-err-info)))
      (flymake-log 3 "parsed '%s', %s line-err-info" (nth idx lines) (if line-err-info "got" "no"))
      (setq idx (1+ idx)))
    err-info-list))
Eli Zaretskii's avatar
Eli Zaretskii committed
877

878
(defun flymake-split-output (output)
Richard M. Stallman's avatar
Richard M. Stallman committed
879
  "Split OUTPUT into lines.
880 881
Return last one as residual if it does not end with newline char.
Returns ((LINES) RESIDUAL)."
Richard M. Stallman's avatar
Richard M. Stallman committed
882 883 884 885 886 887 888 889
  (when (and output (> (length output) 0))
    (let* ((lines (flymake-split-string output "[\n\r]+"))
	   (complete (equal "\n" (char-to-string (aref output (1- (length output))))))
	   (residual nil))
      (when (not complete)
	(setq residual (car (last lines)))
	(setq lines (butlast lines)))
      (list lines residual))))
Eli Zaretskii's avatar
Eli Zaretskii committed
890

891
(defun flymake-reformat-err-line-patterns-from-compile-el (original-list)
Richard M. Stallman's avatar
Richard M. Stallman committed
892
  "Grab error line patterns from ORIGINAL-LIST in compile.el format.
893
Convert it to flymake internal format."
Richard M. Stallman's avatar
Richard M. Stallman committed
894
  (let* ((converted-list '()))
Stefan Monnier's avatar
Stefan Monnier committed
895 896 897 898 899 900 901 902 903
    (dolist (item original-list)
      (setq item (cdr item))
      (let ((regexp (nth 0 item))
	    (file (nth 1 item))
	    (line (nth 2 item))
	    (col (nth 3 item)))
	(if (consp file)	(setq file (car file)))
	(if (consp line)	(setq line (car line)))
	(if (consp col)	(setq col (car col)))
Lute Kamstra's avatar
Lute Kamstra committed
904

Stefan Monnier's avatar
Stefan Monnier committed
905 906
	(when (not (functionp line))
	  (setq converted-list (cons (list regexp file line col) converted-list)))))
Richard M. Stallman's avatar
Richard M. Stallman committed
907
    converted-list))
908

909
(require 'compile)
Richard M. Stallman's avatar
Richard M. Stallman committed
910 911 912 913

(defvar flymake-err-line-patterns