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

3
;; Copyright (C) 2003, 2004, 2005, 2006  Free Software Foundation
Eli Zaretskii's avatar
Eli Zaretskii committed
4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

;; Author:  Pavel Kobiakov <pk_at_work@yahoo.com>
;; Maintainer: Pavel Kobiakov <pk_at_work@yahoo.com>
;; 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
;; the Free Software Foundation; either version 2, or (at your option)
;; 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
24 25
;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
;; Boston, MA 02110-1301, USA.
Eli Zaretskii's avatar
Eli Zaretskii committed
26 27 28 29 30 31 32 33 34

;;; 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)

;;; Code:

35 36 37
(eval-when-compile (require 'cl))
(if (featurep 'xemacs) (require 'overlay))

38 39 40
(defvar flymake-is-running nil
  "If t, flymake syntax check process is running for the current buffer.")
(make-variable-buffer-local 'flymake-is-running)
41

42 43 44
(defvar flymake-timer nil
  "Timer for starting syntax check.")
(make-variable-buffer-local 'flymake-timer)
45

46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64
(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)
65

Eli Zaretskii's avatar
Eli Zaretskii committed
66
;;;; [[ cross-emacs compatibility routines
Kim F. Storm's avatar
Kim F. Storm committed
67 68 69
(defsubst flymake-makehash (&optional test)
  (if (fboundp 'make-hash-table)
      (if test (make-hash-table :test test) (make-hash-table))
70 71
    (with-no-warnings
      (makehash test))))
Richard M. Stallman's avatar
Richard M. Stallman committed
72

Stefan Monnier's avatar
Stefan Monnier committed
73 74 75
(defalias 'flymake-float-time
  (if (fboundp 'float-time)
      'float-time
76 77 78 79
    (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
80

81 82 83 84 85 86 87 88 89 90 91 92
(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
93
Zero-length substrings at the beginning and end of the list are omitted."
94 95 96 97 98 99 100 101
      (let ((split (split-string str pattern)))
        (if (and (> (length split) 0) (= 0 (length (elt split 0))))
            (setq split (cdr split)))
        (if (and (> (length split) 0) (= 0 (length (elt split (1- (length split))))))
            (setq split (nreverse (cdr (nreverse split)))))
        split))))

(defalias 'flymake-get-temp-dir
Stefan Monnier's avatar
Stefan Monnier committed
102
  (if (fboundp 'temp-directory)
103 104
      'temp-directory
    (lambda () temporary-file-directory)))
Eli Zaretskii's avatar
Eli Zaretskii committed
105

Stefan Monnier's avatar
Stefan Monnier committed
106 107 108 109
(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
110

Stefan Monnier's avatar
Stefan Monnier committed
111 112 113 114
(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
115

116 117 118

(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
119 120 121 122 123
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)
124 125 126
      (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
127 128 129
	     (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))
130 131 132 133 134 135
	(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))
                      (posn-at-point)
                    (list (flymake-get-point-pixel-pos) (selected-window)))
                  (flymake-make-emacs-menu menu-data))))
Eli Zaretskii's avatar
Eli Zaretskii committed
136

Richard M. Stallman's avatar
Richard M. Stallman committed
137
(defun flymake-make-emacs-menu (menu-data)
Richard M. Stallman's avatar
Richard M. Stallman committed
138 139 140 141
  "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
142 143
  (let* ((menu-title     (nth 0 menu-data))
	 (menu-items     (nth 1 menu-data))
144 145 146
	 (menu-commands  (mapcar (lambda (foo)
                                   (cons (nth 0 foo) (nth 1 foo)))
                                 menu-items)))
Richard M. Stallman's avatar
Richard M. Stallman committed
147
    (list menu-title (cons "" menu-commands))))
Eli Zaretskii's avatar
Eli Zaretskii committed
148

Kim F. Storm's avatar
Kim F. Storm committed
149 150
(if (featurep 'xemacs) (progn

Stefan Monnier's avatar
Stefan Monnier committed
151 152
(defun flymake-nop ())

153
(defun flymake-make-xemacs-menu (menu-data)
Richard M. Stallman's avatar
Richard M. Stallman committed
154
  "Return a menu specifier using MENU-DATA."
Richard M. Stallman's avatar
Richard M. Stallman committed
155 156 157 158 159 160 161 162
  (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
163 164
)) ;; xemacs

165 166
(unless (eval-when-compile (fboundp 'posn-at-point))

Richard M. Stallman's avatar
Richard M. Stallman committed
167 168
(defun flymake-current-row ()
  "Return current row number in current frame."
Stefan Monnier's avatar
Stefan Monnier committed
169 170 171
  (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
172 173

(defun flymake-selected-frame ()
Stefan Monnier's avatar
Stefan Monnier committed
174 175 176
  (if (fboundp 'window-edges)
      (selected-frame)
    (selected-window)))
Eli Zaretskii's avatar
Eli Zaretskii committed
177

178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195
(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
196 197 198
;;;; ]]

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

204
(defun flymake-log (level text &rest args)
Richard M. Stallman's avatar
Richard M. Stallman committed
205 206 207 208 209
  "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
210 211
  (if (<= level flymake-log-level)
      (let* ((msg (apply 'format text args)))
212
	(message "%s" msg)
Richard M. Stallman's avatar
Richard M. Stallman committed
213 214 215
	;;(with-temp-buffer
	;;    (insert msg)
	;;   (insert "\n")
216
	;;   (flymake-save-buffer-in-file "d:/flymake.log" t)  ; make log file name customizable
Richard M. Stallman's avatar
Richard M. Stallman committed
217
	;;)
218
	)))
Eli Zaretskii's avatar
Eli Zaretskii committed
219

220
(defun flymake-ins-after (list pos val)
Richard M. Stallman's avatar
Richard M. Stallman committed
221 222 223 224
  "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
225

226
(defun flymake-set-at (list pos val)
227
  "Set VAL at position POS in LIST."
Richard M. Stallman's avatar
Richard M. Stallman committed
228 229 230
  (let ((tmp (copy-sequence list)))	; (???)
    (setcar (nthcdr pos tmp) val)
    tmp))
Eli Zaretskii's avatar
Eli Zaretskii committed
231

232 233
(defvar flymake-processes nil
  "List of currently active flymake processes.")
Eli Zaretskii's avatar
Eli Zaretskii committed
234

235
(defvar flymake-output-residual nil)
236

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

Richard M. Stallman's avatar
Richard M. Stallman committed
239
(defcustom flymake-allowed-file-name-masks
240 241 242 243 244 245
  '(("\\.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)
246 247 248
    ("\\.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)
249 250
    ("\\.tex\\'" flymake-simple-tex-init)
    ("\\.idl\\'" flymake-simple-make-init)
251 252 253
    ;; ("\\.cpp\\'" 1)
    ;; ("\\.java\\'" 3)
    ;; ("\\.h\\'" 2 ("\\.cpp\\'" "\\.c\\'")
254
    ;; ("[ \t]*#[ \t]*include[ \t]*\"\\([\w0-9/\\_\.]*[/\\]*\\)\\(%s\\)\"" 1 2))
255 256 257
    ;; ("\\.idl\\'" 1)
    ;; ("\\.odl\\'" 1)
    ;; ("[0-9]+\\.tex\\'" 2 ("\\.tex\\'")
258
    ;; ("[ \t]*\\input[ \t]*{\\(.*\\)\\(%s\\)}" 1 2 ))
259
    ;; ("\\.tex\\'" 1)
Richard M. Stallman's avatar
Richard M. Stallman committed
260 261 262 263
    )
  "*Files syntax checking is allowed for."
  :group 'flymake
  :type '(repeat (string symbol symbol symbol)))
Eli Zaretskii's avatar
Eli Zaretskii committed
264

265
(defun flymake-get-file-name-mode-and-masks (file-name)
266
  "Return the corresponding entry from `flymake-allowed-file-name-masks'."
Richard M. Stallman's avatar
Richard M. Stallman committed
267 268
  (unless (stringp file-name)
    (error "Invalid file-name"))
269
  (let ((fnm flymake-allowed-file-name-masks)
Richard M. Stallman's avatar
Richard M. Stallman committed
270
	(mode-and-masks  nil))
271 272 273 274
    (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
275 276
    (flymake-log 3 "file %s, init=%s" file-name (car mode-and-masks))
    mode-and-masks))
Eli Zaretskii's avatar
Eli Zaretskii committed
277

278
(defun flymake-can-syntax-check-file (file-name)
Richard M. Stallman's avatar
Richard M. Stallman committed
279
  "Determine whether we can syntax check FILE-NAME.
280
Return nil if we cannot, non-nil if we can."
Richard M. Stallman's avatar
Richard M. Stallman committed
281
  (if (flymake-get-init-function file-name) t nil))
Eli Zaretskii's avatar
Eli Zaretskii committed
282

283
(defun flymake-get-init-function (file-name)
Richard M. Stallman's avatar
Richard M. Stallman committed
284 285
  "Return init function to be used for the file."
  (let* ((init-f  (nth 0 (flymake-get-file-name-mode-and-masks file-name))))
286 287
    ;;(flymake-log 0 "calling %s" init-f)
    ;;(funcall init-f (current-buffer))
Richard M. Stallman's avatar
Richard M. Stallman committed
288
    init-f))
Eli Zaretskii's avatar
Eli Zaretskii committed
289

290
(defun flymake-get-cleanup-function (file-name)
Richard M. Stallman's avatar
Richard M. Stallman committed
291
  "Return cleanup function to be used for the file."
292 293
  (or (nth 1 (flymake-get-file-name-mode-and-masks file-name))
      'flymake-simple-cleanup))
Eli Zaretskii's avatar
Eli Zaretskii committed
294

295
(defun flymake-get-real-file-name-function (file-name)
296 297
  (or (nth 2 (flymake-get-file-name-mode-and-masks file-name))
      'flymake-get-real-file-name))
Eli Zaretskii's avatar
Eli Zaretskii committed
298 299

(defcustom flymake-buildfile-dirs '("." ".." "../.." "../../.." "../../../.." "../../../../.." "../../../../../.." "../../../../../../.." "../../../../../../../.." "../../../../../../../../.." "../../../../../../../../../.." "../../../../../../../../../../..")
Richard M. Stallman's avatar
Richard M. Stallman committed
300 301 302
  "Dirs to look for buildfile."
  :group 'flymake
  :type '(repeat (string)))
Eli Zaretskii's avatar
Eli Zaretskii committed
303 304 305

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

306
(defun flymake-get-buildfile-from-cache (dir-name)
Richard M. Stallman's avatar
Richard M. Stallman committed
307
  (gethash dir-name flymake-find-buildfile-cache))
308 309

(defun flymake-add-buildfile-to-cache (dir-name buildfile)
Richard M. Stallman's avatar
Richard M. Stallman committed
310
  (puthash dir-name buildfile flymake-find-buildfile-cache))
311 312

(defun flymake-clear-buildfile-cache ()
Richard M. Stallman's avatar
Richard M. Stallman committed
313
  (clrhash flymake-find-buildfile-cache))
314 315

(defun flymake-find-buildfile (buildfile-name source-dir-name dirs)
Richard M. Stallman's avatar
Richard M. Stallman committed
316
  "Find buildfile starting from current directory.
317
Buildfile includes Makefile, build.xml etc.
Richard M. Stallman's avatar
Richard M. Stallman committed
318 319 320 321 322 323 324
Return its file name if found, or nil if not found."
  (if (flymake-get-buildfile-from-cache source-dir-name)
      (progn
	(flymake-get-buildfile-from-cache source-dir-name))
    (let* ((buildfile-dir          nil)
	   (buildfile              nil)
	   (found                  nil))
325 326
      (while (and (not found) dirs)
	(setq buildfile-dir (concat source-dir-name (car dirs)))
Richard M. Stallman's avatar
Richard M. Stallman committed
327 328 329
	(setq buildfile (concat buildfile-dir "/" buildfile-name))
	(when (file-exists-p buildfile)
	  (setq found t))
330
	(setq dirs (cdr dirs)))
Richard M. Stallman's avatar
Richard M. Stallman committed
331 332 333 334 335
      (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)
Eli Zaretskii's avatar
Eli Zaretskii committed
336
	(progn
Richard M. Stallman's avatar
Richard M. Stallman committed
337 338 339 340 341 342 343 344 345 346 347 348
	  (flymake-log 3 "buildfile for %s not found" source-dir-name)
	  nil)))))

(defun flymake-fix-file-name (name)
  "Replace all occurences of '\' with '/'."
  (when name
    (let* ((new-name (flymake-replace-regexp-in-string "[\\]" "/" (expand-file-name name)))
	   (last-char (elt new-name (1- (length new-name)))))
      (setq new-name (flymake-replace-regexp-in-string "\\./" "" new-name))
      (if (equal "/" (char-to-string last-char))
	  (setq new-name (substring new-name 0 (1- (length new-name)))))
      new-name)))
Eli Zaretskii's avatar
Eli Zaretskii committed
349

350
(defun flymake-same-files (file-name-one file-name-two)
Richard M. Stallman's avatar
Richard M. Stallman committed
351
  "Check if FILE-NAME-ONE and FILE-NAME-TWO point to same file.
352
Return t if so, nil if not."
Richard M. Stallman's avatar
Richard M. Stallman committed
353 354 355
  (equal (flymake-fix-file-name file-name-one)
	 (flymake-fix-file-name file-name-two)))

Eli Zaretskii's avatar
Eli Zaretskii committed
356
(defcustom flymake-master-file-dirs '("." "./src" "./UnitTest")
357
  "Dirs where to look for master files."
Richard M. Stallman's avatar
Richard M. Stallman committed
358 359
  :group 'flymake
  :type '(repeat (string)))
Eli Zaretskii's avatar
Eli Zaretskii committed
360 361

(defcustom flymake-master-file-count-limit 32
Richard M. Stallman's avatar
Richard M. Stallman committed
362 363 364
  "Max number of master files to check."
  :group 'flymake
  :type 'integer)
365

Kim F. Storm's avatar
Kim F. Storm committed
366 367
;; 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
368

369
(defun flymake-find-possible-master-files (file-name master-file-dirs masks)
370
  "Find (by name and location) all possible master files.
371
Master files are .cpp and .c for and .h.  Files are searched for
372
starting from the .h directory and max max-level parent dirs.
Eli Zaretskii's avatar
Eli Zaretskii committed
373
File contents are not checked."
374
  (let* ((dirs master-file-dirs)
Richard M. Stallman's avatar
Richard M. Stallman committed
375
	 (files  nil)
376 377 378 379 380 381 382 383 384 385 386 387 388 389 390
	 (done   nil))

    (while (and (not done) dirs)
      (let* ((dir (concat (flymake-fix-file-name (file-name-directory file-name))
			  "/" (car dirs)))
	     (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
391 392 393
		(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)))
394 395 396
	      (setq dir-files (cdr dir-files))))
	  (setq masks (cdr masks))))
      (setq dirs (cdr dirs)))
Richard M. Stallman's avatar
Richard M. Stallman committed
397
    (when files
Kim F. Storm's avatar
Kim F. Storm committed
398 399
      (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
400 401
    (flymake-log 3 "found %d possible master file(s)" (length files))
    files))
Eli Zaretskii's avatar
Eli Zaretskii committed
402

403
(defun flymake-master-file-compare (file-one file-two)
404
  "Compare two files specified by FILE-ONE and FILE-TWO.
405
This function is used in sort to move most possible file names
406
to the beginning of the list (File.h -> File.cpp moved to top)."
Richard M. Stallman's avatar
Richard M. Stallman committed
407 408 409
  (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
410 411

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

416
(defun flymake-check-patch-master-file-buffer (master-file-temp-buffer
Richard M. Stallman's avatar
Richard M. Stallman committed
417 418 419 420
					       master-file-name patched-master-file-name
					       source-file-name patched-source-file-name
					       include-dirs regexp-list)
  "Check if MASTER-FILE-NAME is a master file for SOURCE-FILE-NAME.
421 422 423 424 425
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."
Richard M. Stallman's avatar
Richard M. Stallman committed
426 427 428 429 430 431 432 433 434 435 436 437 438 439 440 441 442 443 444 445 446 447 448 449 450 451 452 453
  (let* ((found                     nil)
	 (regexp                    (format (nth 0 regexp-list)	; "[ \t]*#[ \t]*include[ \t]*\"\\([\w0-9/\\_\.]*[/\\]*\\)\\(%s\\)\""
					    (file-name-nondirectory source-file-name)))
	 (path-idx                  (nth 1 regexp-list))
	 (name-idx                  (nth 2 regexp-list))
	 (inc-path                  nil)
	 (inc-name                  nil)
	 (search-limit              flymake-check-file-limit))
    (save-excursion
      (unwind-protect
	  (progn
	    (set-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 name-idx))
		     (match-end   (match-end name-idx)))

		(flymake-log 3 "found possible match for %s" (file-name-nondirectory source-file-name))
		(setq inc-path (match-string path-idx))
		(setq inc-name (match-string name-idx))
		(when (string= inc-name (file-name-nondirectory source-file-name))
		  (flymake-log 3 "inc-path=%s inc-name=%s" inc-path inc-name)
		  (when (flymake-check-include source-file-name inc-path inc-name include-dirs)
		    (setq found t)
		    ;;  replace-match is not used here as it fails in
454
		    ;; XEmacs with 'last match not a buffer' error as
Richard M. Stallman's avatar
Richard M. Stallman committed
455
		    ;; check-includes calls replace-in-string
456
		    (flymake-replace-region match-beg match-end
Richard M. Stallman's avatar
Richard M. Stallman committed
457 458 459
					    (file-name-nondirectory patched-source-file-name))))
		(forward-line 1)))
	    (when found
460
	      (flymake-save-buffer-in-file patched-master-file-name)))
461
	;;+(flymake-log 3 "killing buffer %s" (buffer-name master-file-temp-buffer))
Richard M. Stallman's avatar
Richard M. Stallman committed
462
	(kill-buffer master-file-temp-buffer)))
463
    ;;+(flymake-log 3 "check-patch master file %s: %s" master-file-name found)
Richard M. Stallman's avatar
Richard M. Stallman committed
464 465 466
    (when found
      (flymake-log 2 "found master file %s" master-file-name))
    found))
Eli Zaretskii's avatar
Eli Zaretskii committed
467

468
(defun flymake-replace-region (beg end rep)
Richard M. Stallman's avatar
Richard M. Stallman committed
469 470
  "Replace text in BUFFER in region (BEG END) with REP."
  (save-excursion
471 472 473 474
    (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
475

476
(defun flymake-read-file-to-temp-buffer (file-name)
Richard M. Stallman's avatar
Richard M. Stallman committed
477 478
  "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
479
    (with-current-buffer temp-buffer
Richard M. Stallman's avatar
Richard M. Stallman committed
480 481
      (insert-file-contents file-name))
    temp-buffer))
Eli Zaretskii's avatar
Eli Zaretskii committed
482

483
(defun flymake-copy-buffer-to-temp-buffer (buffer)
Richard M. Stallman's avatar
Richard M. Stallman committed
484
  "Copy contents of BUFFER into newly created temp buffer."
485 486 487 488 489
  (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
490

491
(defun flymake-check-include (source-file-name inc-path inc-name include-dirs)
Richard M. Stallman's avatar
Richard M. Stallman committed
492
  "Check if SOURCE-FILE-NAME can be found in include path.
493
Return t if it can be found via include path using INC-PATH and INC-NAME."
Richard M. Stallman's avatar
Richard M. Stallman committed
494 495
  (if (file-name-absolute-p inc-path)
      (flymake-same-files source-file-name (concat inc-path "/" inc-name))
496
    (let* ((file-name  nil)
Richard M. Stallman's avatar
Richard M. Stallman committed
497
	   (found      nil))
498 499 500
      (while (and (not found) include-dirs)
	(setq file-name (concat (file-name-directory source-file-name)
				"/" (car include-dirs)))
Richard M. Stallman's avatar
Richard M. Stallman committed
501 502 503 504 505
	(if (> (length inc-path) 0)
	    (setq file-name (concat file-name "/" inc-path)))
	(setq file-name (concat file-name "/" inc-name))
	(when (flymake-same-files source-file-name file-name)
	  (setq found t))
506
	(setq include-dirs (cdr include-dirs)))
Richard M. Stallman's avatar
Richard M. Stallman committed
507
      found)))
Eli Zaretskii's avatar
Eli Zaretskii committed
508

509
(defun flymake-find-buffer-for-file (file-name)
Richard M. Stallman's avatar
Richard M. Stallman committed
510
  "Check if there exists a buffer visiting FILE-NAME.
511
Return t if so, nil if not."
Richard M. Stallman's avatar
Richard M. Stallman committed
512 513 514
  (let ((buffer-name (get-file-buffer file-name)))
    (if buffer-name
	(get-buffer buffer-name))))
Eli Zaretskii's avatar
Eli Zaretskii committed
515

516
(defun flymake-create-master-file (source-file-name patched-source-file-name get-incl-dirs-f create-temp-f masks include-regexp-list)
Richard M. Stallman's avatar
Richard M. Stallman committed
517
  "Save SOURCE-FILE-NAME with a different name.
518
Find master file, patch and save it."
Richard M. Stallman's avatar
Richard M. Stallman committed
519 520 521 522 523 524 525 526 527 528 529 530 531 532 533 534 535 536 537 538 539 540 541 542 543 544 545 546 547 548
  (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))
	     include-regexp-list))
      (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
549

550 551 552 553 554 555
(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
556

557
(defun flymake-save-string-to-file (file-name data)
Richard M. Stallman's avatar
Richard M. Stallman committed
558 559
  "Save string DATA to file FILE-NAME."
  (write-region data nil file-name nil 566))
Eli Zaretskii's avatar
Eli Zaretskii committed
560

561
(defun flymake-read-file-to-string (file-name)
Richard M. Stallman's avatar
Richard M. Stallman committed
562 563 564 565
  "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
566

567
(defun flymake-process-filter (process output)
Richard M. Stallman's avatar
Richard M. Stallman committed
568
  "Parse OUTPUT and highlight error lines.
569
It's flymake process filter."
570
  (let ((source-buffer (process-buffer process)))
Eli Zaretskii's avatar
Eli Zaretskii committed
571

572 573
    (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
574
    (when source-buffer
575 576
      (with-current-buffer source-buffer
        (flymake-parse-output-and-residual output)))))
Eli Zaretskii's avatar
Eli Zaretskii committed
577

578
(defun flymake-process-sentinel (process event)
Richard M. Stallman's avatar
Richard M. Stallman committed
579
  "Sentinel for syntax check buffers."
580 581 582 583 584 585 586 587 588 589 590 591 592 593 594 595 596 597 598 599 600 601 602 603 604 605 606 607 608 609
  (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
610

611 612 613 614 615 616 617 618
(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
619
  (let (err-count warn-count)
620 621 622 623
    (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
624
		 (- (flymake-float-time) flymake-check-start-time))
625
    (setq flymake-check-start-time nil)
Richard M. Stallman's avatar
Richard M. Stallman committed
626

Richard M. Stallman's avatar
Richard M. Stallman committed
627 628
    (if (and (equal 0 err-count) (equal 0 warn-count))
	(if (equal 0 exit-status)
629 630 631
	    (flymake-report-status "" "")	; PASSED
	  (if (not flymake-check-was-interrupted)
	      (flymake-report-fatal-status "CFGERR"
Richard M. Stallman's avatar
Richard M. Stallman committed
632
					   (format "Configuration error has occured while running %s" command))
633 634
	    (flymake-report-status nil ""))) ; "STOPPED"
      (flymake-report-status (format "%d/%d" err-count warn-count) ""))))
Eli Zaretskii's avatar
Eli Zaretskii committed
635

636
(defun flymake-parse-output-and-residual (output)
Richard M. Stallman's avatar
Richard M. Stallman committed
637
  "Split OUTPUT into lines, merge in residual if necessary."
638 639 640 641 642 643 644 645 646 647 648
  (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
649
  "Parse residual if it's non empty."
650 651 652 653 654 655
  (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
656

657
(defun flymake-er-make-er (line-no line-err-info-list)
Richard M. Stallman's avatar
Richard M. Stallman committed
658
  (list line-no line-err-info-list))
659 660

(defun flymake-er-get-line (err-info)
Richard M. Stallman's avatar
Richard M. Stallman committed
661
  (nth 0 err-info))
662 663

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

;; getters/setters for line-err-info: (file, line, type, text).
667
(defun flymake-ler-make-ler (file line type text &optional full-file)
Richard M. Stallman's avatar
Richard M. Stallman committed
668
  (list file line type text full-file))
669 670

(defun flymake-ler-get-file (line-err-info)
Richard M. Stallman's avatar
Richard M. Stallman committed
671
  (nth 0 line-err-info))
672 673

(defun flymake-ler-get-line (line-err-info)
Richard M. Stallman's avatar
Richard M. Stallman committed
674
  (nth 1 line-err-info))
675 676

(defun flymake-ler-get-type (line-err-info)
Richard M. Stallman's avatar
Richard M. Stallman committed
677
  (nth 2 line-err-info))
678 679

(defun flymake-ler-get-text (line-err-info)
Richard M. Stallman's avatar
Richard M. Stallman committed
680
  (nth 3 line-err-info))
681 682

(defun flymake-ler-get-full-file (line-err-info)
Richard M. Stallman's avatar
Richard M. Stallman committed
683
  (nth 4 line-err-info))
684 685

(defun flymake-ler-set-file (line-err-info file)
Richard M. Stallman's avatar
Richard M. Stallman committed
686
  (flymake-ler-make-ler file
Eli Zaretskii's avatar
Eli Zaretskii committed
687 688 689
			(flymake-ler-get-line line-err-info)
			(flymake-ler-get-type line-err-info)
			(flymake-ler-get-text line-err-info)
690 691 692
			(flymake-ler-get-full-file line-err-info)))

(defun flymake-ler-set-full-file (line-err-info full-file)
Richard M. Stallman's avatar
Richard M. Stallman committed
693
  (flymake-ler-make-ler (flymake-ler-get-file line-err-info)
Eli Zaretskii's avatar
Eli Zaretskii committed
694 695 696
			(flymake-ler-get-line line-err-info)
			(flymake-ler-get-type line-err-info)
			(flymake-ler-get-text line-err-info)
697 698 699
			full-file))

(defun flymake-ler-set-line (line-err-info line)
Richard M. Stallman's avatar
Richard M. Stallman committed
700
  (flymake-ler-make-ler (flymake-ler-get-file line-err-info)
Eli Zaretskii's avatar
Eli Zaretskii committed
701 702 703
			line
			(flymake-ler-get-type line-err-info)
			(flymake-ler-get-text line-err-info)
704
			(flymake-ler-get-full-file line-err-info)))
Eli Zaretskii's avatar
Eli Zaretskii committed
705

706
(defun flymake-get-line-err-count (line-err-info-list type)
Richard M. Stallman's avatar
Richard M. Stallman committed
707
  "Return number of errors of specified TYPE.
708
Value of TYPE is either \"e\" or \"w\"."
Richard M. Stallman's avatar
Richard M. Stallman committed
709 710 711
  (let* ((idx        0)
	 (count      (length line-err-info-list))
	 (err-count  0))
Eli Zaretskii's avatar
Eli Zaretskii committed
712

Richard M. Stallman's avatar
Richard M. Stallman committed
713 714 715 716 717
    (while (< idx count)
      (when (equal type (flymake-ler-get-type (nth idx line-err-info-list)))
	(setq err-count (1+ err-count)))
      (setq idx (1+ idx)))
    err-count))
Eli Zaretskii's avatar
Eli Zaretskii committed
718

719
(defun flymake-get-err-count (err-info-list type)
Richard M. Stallman's avatar
Richard M. Stallman committed
720 721 722 723 724 725 726 727
  "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))
728 729

(defun flymake-fix-line-numbers (err-info-list min-line max-line)
Richard M. Stallman's avatar
Richard M. Stallman committed
730
  "Replace line numbers with fixed value.
731 732
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
733
The reason for this fix is because some compilers might report
734
line number outside the file being compiled."
Richard M. Stallman's avatar
Richard M. Stallman committed
735 736 737 738 739 740 741 742 743 744 745 746 747
  (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
748

749
(defun flymake-highlight-err-lines (err-info-list)
Richard M. Stallman's avatar
Richard M. Stallman committed
750
  "Highlight error lines in BUFFER using info from ERR-INFO-LIST."
751 752 753
  (save-excursion
    (dolist (err err-info-list)
      (flymake-highlight-line (car err) (nth 1 err)))))
Eli Zaretskii's avatar
Eli Zaretskii committed
754

755
(defun flymake-overlay-p (ov)
Richard M. Stallman's avatar
Richard M. Stallman committed
756 757
  "Determine whether overlay OV was created by flymake."
  (and (overlayp ov) (overlay-get ov 'flymake-overlay)))
Eli Zaretskii's avatar
Eli Zaretskii committed
758

759
(defun flymake-make-overlay (beg end tooltip-text face mouse-face)
Richard M. Stallman's avatar
Richard M. Stallman committed
760 761 762 763 764 765 766 767
  "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)
768
      ;;+(flymake-log 3 "created overlay %s" ov)
Richard M. Stallman's avatar
Richard M. Stallman committed
769 770
      ov)
    (flymake-log 3 "created an overlay at (%d-%d)" beg end)))
Eli Zaretskii's avatar
Eli Zaretskii committed
771

772
(defun flymake-delete-own-overlays ()
Richard M. Stallman's avatar
Richard M. Stallman committed
773
  "Delete all flymake overlays in BUFFER."
774 775 776 777 778
  (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
779

780
(defun flymake-region-has-flymake-overlays (beg end)
Richard M. Stallman's avatar
Richard M. Stallman committed
781
  "Check if region specified by BEG and END has overlay.
782
Return t if it has at least one flymake overlay, nil if no overlay."
Richard M. Stallman's avatar
Richard M. Stallman committed
783 784 785 786 787
  (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
788 789
      (setq ov (cdr ov)))
    has-flymake-overlays))
Eli Zaretskii's avatar
Eli Zaretskii committed
790

791
(defface flymake-errline
792 793
  ;;+   '((((class color)) (:foreground "OrangeRed" :bold t :underline t))
  ;;+   '((((class color)) (:underline "OrangeRed"))
Richard M. Stallman's avatar
Richard M. Stallman committed
794 795 796 797
  '((((class color)) (:background "LightPink"))
    (t (:bold t)))
  "Face used for marking error lines."
  :group 'flymake)
Eli Zaretskii's avatar
Eli Zaretskii committed
798

799
(defface flymake-warnline
Richard M. Stallman's avatar
Richard M. Stallman committed
800 801 802 803
  '((((class color)) (:background "LightBlue2"))
    (t (:bold t)))
  "Face used for marking warning lines."
  :group 'flymake)
Eli Zaretskii's avatar
Eli Zaretskii committed
804

805
(defun flymake-highlight-line (line-no line-err-info-list)
Richard M. Stallman's avatar
Richard M. Stallman committed
806
  "Highlight line LINE-NO in current buffer.
807
Perhaps use text from LINE-ERR-INFO-LIST to enhance highlighting."
Richard M. Stallman's avatar
Richard M. Stallman committed
808 809 810 811 812 813 814 815 816 817 818
  (goto-line line-no)
  (let* ((line-beg (flymake-line-beginning-position))
	 (line-end (flymake-line-end-position))
	 (beg      line-beg)
	 (end      line-end)
	 (tooltip-text (flymake-ler-get-text (nth 0 line-err-info-list)))
	 (face     nil))

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

Richard M. Stallman's avatar
Richard M. Stallman committed
820
    (setq beg (point))
Eli Zaretskii's avatar
Eli Zaretskii committed
821

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

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

Richard M. Stallman's avatar
Richard M. Stallman committed
828 829 830
    (when (<= end beg)
      (setq beg line-beg)
      (setq end line-end))
831

Richard M. Stallman's avatar
Richard M. Stallman committed
832 833 834 835
    (when (= end beg)
      (goto-char end)
      (forward-line)
      (setq end (point)))
836

Richard M. Stallman's avatar
Richard M. Stallman committed
837
    (if (> (flymake-get-line-err-count line-err-info-list "e") 0)
838 839
	(setq face 'flymake-errline)
      (setq face 'flymake-warnline))
840

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

843
(defun flymake-parse-err-lines (err-info-list lines)
Richard M. Stallman's avatar
Richard M. Stallman committed
844 845 846 847 848
  "Parse err LINES, store info in ERR-INFO-LIST."
  (let* ((count              (length lines))
	 (idx                0)
	 (line-err-info      nil)
	 (real-file-name     nil)
849
	 (source-file-name   buffer-file-name)
Richard M. Stallman's avatar
Richard M. Stallman committed
850 851 852 853 854
	 (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
855 856
	(setq real-file-name (funcall get-real-file-name-f
                                      (flymake-ler-get-file line-err-info)))
Richard M. Stallman's avatar
Richard M. Stallman committed
857 858 859 860 861 862 863 864 865 866
	(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
867

868
(defun flymake-split-output (output)
Richard M. Stallman's avatar
Richard M. Stallman committed
869
  "Split OUTPUT into lines.
870 871
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
872 873 874 875 876 877 878 879
  (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
880

881
(defun flymake-reformat-err-line-patterns-from-compile-el (original-list)
Richard M. Stallman's avatar
Richard M. Stallman committed
882
  "Grab error line patterns from ORIGINAL-LIST in compile.el format.
883
Convert it to flymake internal format."
Richard M. Stallman's avatar
Richard M. Stallman committed
884
  (let* ((converted-list '()))
Stefan Monnier's avatar
Stefan Monnier committed
885 886 887 888 889 890 891 892 893
    (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
894

Stefan Monnier's avatar
Stefan Monnier committed
895 896
	(when (not (functionp line))
	  (setq converted-list (cons (list regexp file line col) converted-list)))))
Richard M. Stallman's avatar
Richard M. Stallman committed
897
    converted-list))
898

899
(require 'compile)
Richard M. Stallman's avatar
Richard M. Stallman committed
900 901 902 903

(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
  (append
   '(