flymake.el 68.2 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
;; Copyright (C) 2003, 2004, 2005, 2006, 2007, 2008
Glenn Morris's avatar
Glenn Morris committed
4
;;   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
;; Version: 0.3
;; Keywords: c languages tools

;; This file is part of GNU Emacs.

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

;; 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
24
;; along with GNU Emacs.  If not, see <http://www.gnu.org/licenses/>.
Eli Zaretskii's avatar
Eli Zaretskii committed
25 26 27 28 29 30 31

;;; 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
32 33 34 35 36
;;; Bugs/todo:

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

Eli Zaretskii's avatar
Eli Zaretskii committed
37 38
;;; Code:

39 40 41
(eval-when-compile (require 'cl))
(if (featurep 'xemacs) (require 'overlay))

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

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

50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68
(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)
69

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

Stefan Monnier's avatar
Stefan Monnier committed
77 78 79
(defalias 'flymake-float-time
  (if (fboundp 'float-time)
      'float-time
80 81 82 83
    (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
84

85 86 87 88 89 90 91 92 93 94 95 96
(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
97
Zero-length substrings at the beginning and end of the list are omitted."
98
      (let ((split (split-string str pattern)))
99 100 101 102
        (while (equal (car split) "") (setq split (cdr split)))
        (setq split (nreverse split))
        (while (equal (car split) "") (setq split (cdr split)))
        (nreverse split)))))
103 104

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

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

Stefan Monnier's avatar
Stefan Monnier committed
114 115 116 117
(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
118

119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142
(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)))
143 144 145

(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
146 147 148 149 150
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)
151 152 153
      (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
154 155 156
	     (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))
157 158 159
	(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))
160
                      (flymake-posn-at-point-as-event)
161 162
                    (list (flymake-get-point-pixel-pos) (selected-window)))
                  (flymake-make-emacs-menu menu-data))))
Eli Zaretskii's avatar
Eli Zaretskii committed
163

Richard M. Stallman's avatar
Richard M. Stallman committed
164
(defun flymake-make-emacs-menu (menu-data)
Richard M. Stallman's avatar
Richard M. Stallman committed
165 166 167 168
  "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
169 170
  (let* ((menu-title     (nth 0 menu-data))
	 (menu-items     (nth 1 menu-data))
171 172 173
	 (menu-commands  (mapcar (lambda (foo)
                                   (cons (nth 0 foo) (nth 1 foo)))
                                 menu-items)))
Richard M. Stallman's avatar
Richard M. Stallman committed
174
    (list menu-title (cons "" menu-commands))))
Eli Zaretskii's avatar
Eli Zaretskii committed
175

Kim F. Storm's avatar
Kim F. Storm committed
176 177
(if (featurep 'xemacs) (progn

Stefan Monnier's avatar
Stefan Monnier committed
178 179
(defun flymake-nop ())

180
(defun flymake-make-xemacs-menu (menu-data)
Richard M. Stallman's avatar
Richard M. Stallman committed
181
  "Return a menu specifier using MENU-DATA."
Richard M. Stallman's avatar
Richard M. Stallman committed
182 183 184 185 186 187 188 189
  (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
190 191
)) ;; xemacs

192 193
(unless (eval-when-compile (fboundp 'posn-at-point))

Richard M. Stallman's avatar
Richard M. Stallman committed
194 195
(defun flymake-current-row ()
  "Return current row number in current frame."
Stefan Monnier's avatar
Stefan Monnier committed
196 197 198
  (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
199 200

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

205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222
(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
223 224 225
;;;; ]]

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

231
(defun flymake-log (level text &rest args)
Richard M. Stallman's avatar
Richard M. Stallman committed
232 233 234 235 236
  "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
237 238
  (if (<= level flymake-log-level)
      (let* ((msg (apply 'format text args)))
239
	(message "%s" msg)
Richard M. Stallman's avatar
Richard M. Stallman committed
240 241 242
	;;(with-temp-buffer
	;;    (insert msg)
	;;   (insert "\n")
243
	;;   (flymake-save-buffer-in-file "d:/flymake.log" t)  ; make log file name customizable
Richard M. Stallman's avatar
Richard M. Stallman committed
244
	;;)
245
	)))
Eli Zaretskii's avatar
Eli Zaretskii committed
246

247
(defun flymake-ins-after (list pos val)
Richard M. Stallman's avatar
Richard M. Stallman committed
248 249 250 251
  "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
252

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

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

262
(defvar flymake-output-residual nil)
263

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

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

293
(defun flymake-get-file-name-mode-and-masks (file-name)
294
  "Return the corresponding entry from `flymake-allowed-file-name-masks'."
Richard M. Stallman's avatar
Richard M. Stallman committed
295 296
  (unless (stringp file-name)
    (error "Invalid file-name"))
297
  (let ((fnm flymake-allowed-file-name-masks)
Richard M. Stallman's avatar
Richard M. Stallman committed
298
	(mode-and-masks  nil))
299 300 301 302
    (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
303 304
    (flymake-log 3 "file %s, init=%s" file-name (car mode-and-masks))
    mode-and-masks))
Eli Zaretskii's avatar
Eli Zaretskii committed
305

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

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

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

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

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

329
(defun flymake-get-buildfile-from-cache (dir-name)
Richard M. Stallman's avatar
Richard M. Stallman committed
330
  (gethash dir-name flymake-find-buildfile-cache))
331 332

(defun flymake-add-buildfile-to-cache (dir-name buildfile)
Richard M. Stallman's avatar
Richard M. Stallman committed
333
  (puthash dir-name buildfile flymake-find-buildfile-cache))
334 335

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

338
(defun flymake-find-buildfile (buildfile-name source-dir-name)
Richard M. Stallman's avatar
Richard M. Stallman committed
339
  "Find buildfile starting from current directory.
340
Buildfile includes Makefile, build.xml etc.
Richard M. Stallman's avatar
Richard M. Stallman committed
341
Return its file name if found, or nil if not found."
342
  (or (flymake-get-buildfile-from-cache source-dir-name)
343 344 345 346
      (let* ((file (locate-dominating-file
                    source-dir-name
                    (concat "\\`" (regexp-quote buildfile-name) "\\'"))))
        (if file
347
            (progn
348 349 350 351
              (flymake-log 3 "found buildfile at %s" file)
              (setq file (file-name-directory file))
              (flymake-add-buildfile-to-cache source-dir-name file)
              file)
352 353 354
          (progn
            (flymake-log 3 "buildfile for %s not found" source-dir-name)
            nil)))))
Richard M. Stallman's avatar
Richard M. Stallman committed
355 356

(defun flymake-fix-file-name (name)
357
  "Replace all occurrences of '\' with '/'."
Richard M. Stallman's avatar
Richard M. Stallman committed
358
  (when name
359 360 361 362
    (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
363

364
(defun flymake-same-files (file-name-one file-name-two)
Richard M. Stallman's avatar
Richard M. Stallman committed
365
  "Check if FILE-NAME-ONE and FILE-NAME-TWO point to same file.
366
Return t if so, nil if not."
Richard M. Stallman's avatar
Richard M. Stallman committed
367 368 369
  (equal (flymake-fix-file-name file-name-one)
	 (flymake-fix-file-name file-name-two)))

Eli Zaretskii's avatar
Eli Zaretskii committed
370
(defcustom flymake-master-file-dirs '("." "./src" "./UnitTest")
371
  "Dirs where to look for master files."
Richard M. Stallman's avatar
Richard M. Stallman committed
372 373
  :group 'flymake
  :type '(repeat (string)))
Eli Zaretskii's avatar
Eli Zaretskii committed
374 375

(defcustom flymake-master-file-count-limit 32
Richard M. Stallman's avatar
Richard M. Stallman committed
376 377 378
  "Max number of master files to check."
  :group 'flymake
  :type 'integer)
379

Kim F. Storm's avatar
Kim F. Storm committed
380 381
;; 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
382

383
(defun flymake-find-possible-master-files (file-name master-file-dirs masks)
384
  "Find (by name and location) all possible master files.
385
Master files are .cpp and .c for and .h.  Files are searched for
386
starting from the .h directory and max max-level parent dirs.
Eli Zaretskii's avatar
Eli Zaretskii committed
387
File contents are not checked."
388
  (let* ((dirs master-file-dirs)
Richard M. Stallman's avatar
Richard M. Stallman committed
389
	 (files  nil)
390 391 392
	 (done   nil))

    (while (and (not done) dirs)
393
      (let* ((dir (expand-file-name (car dirs) (file-name-directory file-name)))
394 395 396 397 398 399 400 401 402 403
	     (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
404 405 406
		(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)))
407 408 409
	      (setq dir-files (cdr dir-files))))
	  (setq masks (cdr masks))))
      (setq dirs (cdr dirs)))
Richard M. Stallman's avatar
Richard M. Stallman committed
410
    (when files
Kim F. Storm's avatar
Kim F. Storm committed
411 412
      (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
413 414
    (flymake-log 3 "found %d possible master file(s)" (length files))
    files))
Eli Zaretskii's avatar
Eli Zaretskii committed
415

416
(defun flymake-master-file-compare (file-one file-two)
417
  "Compare two files specified by FILE-ONE and FILE-TWO.
418
This function is used in sort to move most possible file names
419
to the beginning of the list (File.h -> File.cpp moved to top)."
Richard M. Stallman's avatar
Richard M. Stallman committed
420 421 422
  (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
423 424

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

429 430 431 432 433
(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
434
  "Check if MASTER-FILE-NAME is a master file for SOURCE-FILE-NAME.
435 436 437 438 439
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."
440 441
  (let* ((source-file-nondir (file-name-nondirectory source-file-name))
         (found                     nil)
Richard M. Stallman's avatar
Richard M. Stallman committed
442 443
	 (inc-name                  nil)
	 (search-limit              flymake-check-file-limit))
444 445 446 447 448 449 450 451 452 453 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
    (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))
481
    ;;+(flymake-log 3 "check-patch master file %s: %s" master-file-name found)
Richard M. Stallman's avatar
Richard M. Stallman committed
482 483 484
    (when found
      (flymake-log 2 "found master file %s" master-file-name))
    found))
Eli Zaretskii's avatar
Eli Zaretskii committed
485

486
(defun flymake-replace-region (beg end rep)
Richard M. Stallman's avatar
Richard M. Stallman committed
487 488
  "Replace text in BUFFER in region (BEG END) with REP."
  (save-excursion
489 490 491 492
    (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
493

494
(defun flymake-read-file-to-temp-buffer (file-name)
Richard M. Stallman's avatar
Richard M. Stallman committed
495 496
  "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
497
    (with-current-buffer temp-buffer
Richard M. Stallman's avatar
Richard M. Stallman committed
498 499
      (insert-file-contents file-name))
    temp-buffer))
Eli Zaretskii's avatar
Eli Zaretskii committed
500

501
(defun flymake-copy-buffer-to-temp-buffer (buffer)
Richard M. Stallman's avatar
Richard M. Stallman committed
502
  "Copy contents of BUFFER into newly created temp buffer."
503 504 505 506 507
  (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
508

509
(defun flymake-check-include (source-file-name inc-name include-dirs)
Richard M. Stallman's avatar
Richard M. Stallman committed
510
  "Check if SOURCE-FILE-NAME can be found in include path.
511 512 513 514 515 516 517 518 519 520 521
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
522

523
(defun flymake-find-buffer-for-file (file-name)
Richard M. Stallman's avatar
Richard M. Stallman committed
524
  "Check if there exists a buffer visiting FILE-NAME.
525
Return t if so, nil if not."
Richard M. Stallman's avatar
Richard M. Stallman committed
526 527 528
  (let ((buffer-name (get-file-buffer file-name)))
    (if buffer-name
	(get-buffer buffer-name))))
Eli Zaretskii's avatar
Eli Zaretskii committed
529

530
(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
531
  "Save SOURCE-FILE-NAME with a different name.
532
Find master file, patch and save it."
Richard M. Stallman's avatar
Richard M. Stallman committed
533 534 535 536 537 538 539 540 541 542 543 544 545 546 547 548 549 550 551 552 553 554
  (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))
555
	     include-regexp))
Richard M. Stallman's avatar
Richard M. Stallman committed
556 557 558 559 560 561 562
      (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
563

564
(defun flymake-save-buffer-in-file (file-name)
565 566
  (make-directory (file-name-directory file-name) 1)
  (write-region nil nil file-name nil 566)
567
  (flymake-log 3 "saved buffer %s in file %s" (buffer-name) file-name))
Eli Zaretskii's avatar
Eli Zaretskii committed
568

569
(defun flymake-save-string-to-file (file-name data)
Richard M. Stallman's avatar
Richard M. Stallman committed
570 571
  "Save string DATA to file FILE-NAME."
  (write-region data nil file-name nil 566))
Eli Zaretskii's avatar
Eli Zaretskii committed
572

573
(defun flymake-read-file-to-string (file-name)
Richard M. Stallman's avatar
Richard M. Stallman committed
574 575 576 577
  "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
578

579
(defun flymake-process-filter (process output)
Richard M. Stallman's avatar
Richard M. Stallman committed
580
  "Parse OUTPUT and highlight error lines.
581
It's flymake process filter."
582
  (let ((source-buffer (process-buffer process)))
Eli Zaretskii's avatar
Eli Zaretskii committed
583

584 585
    (flymake-log 3 "received %d byte(s) of output from process %d"
                 (length output) (process-id process))
586
    (when (buffer-live-p source-buffer)
587 588
      (with-current-buffer source-buffer
        (flymake-parse-output-and-residual output)))))
Eli Zaretskii's avatar
Eli Zaretskii committed
589

590
(defun flymake-process-sentinel (process event)
Richard M. Stallman's avatar
Richard M. Stallman committed
591
  "Sentinel for syntax check buffers."
592 593 594 595 596 597 598 599 600 601 602 603 604 605 606 607 608 609 610 611 612 613 614 615 616 617 618 619 620 621
  (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
622

623 624 625 626 627 628 629 630
(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
631
  (let (err-count warn-count)
632 633 634 635
    (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
636
		 (- (flymake-float-time) flymake-check-start-time))
637
    (setq flymake-check-start-time nil)
Richard M. Stallman's avatar
Richard M. Stallman committed
638

Richard M. Stallman's avatar
Richard M. Stallman committed
639 640
    (if (and (equal 0 err-count) (equal 0 warn-count))
	(if (equal 0 exit-status)
641 642 643
	    (flymake-report-status "" "")	; PASSED
	  (if (not flymake-check-was-interrupted)
	      (flymake-report-fatal-status "CFGERR"
Richard M. Stallman's avatar
Richard M. Stallman committed
644
					   (format "Configuration error has occured while running %s" command))
645 646
	    (flymake-report-status nil ""))) ; "STOPPED"
      (flymake-report-status (format "%d/%d" err-count warn-count) ""))))
Eli Zaretskii's avatar
Eli Zaretskii committed
647

648
(defun flymake-parse-output-and-residual (output)
Richard M. Stallman's avatar
Richard M. Stallman committed
649
  "Split OUTPUT into lines, merge in residual if necessary."
650 651 652 653 654 655 656 657 658 659 660
  (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
661
  "Parse residual if it's non empty."
662 663 664 665 666 667
  (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
668

669
(defun flymake-er-make-er (line-no line-err-info-list)
Richard M. Stallman's avatar
Richard M. Stallman committed
670
  (list line-no line-err-info-list))
671 672

(defun flymake-er-get-line (err-info)
Richard M. Stallman's avatar
Richard M. Stallman committed
673
  (nth 0 err-info))
674 675

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

678 679 680 681
(defstruct (flymake-ler
            (:constructor nil)
            (:constructor flymake-ler-make-ler (file line type text &optional full-file)))
  file line type text full-file)
682 683

(defun flymake-ler-set-file (line-err-info file)
Richard M. Stallman's avatar
Richard M. Stallman committed
684
  (flymake-ler-make-ler file
685 686 687 688
			(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)))
689 690

(defun flymake-ler-set-full-file (line-err-info full-file)
691 692 693 694
  (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)
695 696 697
			full-file))

(defun flymake-ler-set-line (line-err-info line)
698
  (flymake-ler-make-ler (flymake-ler-file line-err-info)
Eli Zaretskii's avatar
Eli Zaretskii committed
699
			line
700 701 702
			(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
703

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

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

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

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

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

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

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

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

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

789
(defface flymake-errline
790 791
  '((((class color) (background dark)) (:background "Firebrick4"))
    (((class color) (background light)) (:background "LightPink"))
Richard M. Stallman's avatar
Richard M. Stallman committed
792 793 794
    (t (:bold t)))
  "Face used for marking error lines."
  :group 'flymake)
Eli Zaretskii's avatar
Eli Zaretskii committed
795

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

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

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

Richard M. Stallman's avatar
Richard M. Stallman committed
818
    (setq beg (point))
Eli Zaretskii's avatar
Eli Zaretskii committed
819

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

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

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

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

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

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

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

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

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

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