lisp/progmodes/flymake.el

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