comparison lisp/progmodes/flymake.el @ 61943:26bd7a854809

(flymake-split-string) (flymake-split-string, flymake-log, flymake-pid-to-names) (flymake-reg-names, flymake-get-source-buffer-name) (flymake-unreg-names, flymake-add-line-err-info) (flymake-add-err-info): Clarify docstrings. (flymake-popup-menu, flymake-make-emacs-menu) (flymake-make-xemacs-menu): Add docstrings. (flymake-get-buffer-*, flymake-set-buffer-*): Functions deleted. Set variables directly throughout.

61942:cf8e7c12c048

  (if (fboundp 'replace-regexp-in-string)
      (replace-regexp-in-string regexp rep str)
    (replace-in-string str regexp rep)))

(defun flymake-split-string (str pattern)
  "Split, then remove first and/or last in case it's empty."
  (let* ((splitted (split-string str pattern)))
    (if (and (> (length splitted) 0) (= 0 (length (elt splitted 0))))
	(setq splitted (cdr splitted)))
    (if (and (> (length splitted) 0) (= 0 (length (elt splitted (1- (length splitted))))))
	(setq splitted (reverse (cdr (reverse splitted)))))

  (if (fboundp 'line-end-position)
      'line-end-position
    (lambda (&optional arg) (save-excursion (end-of-line arg) (point)))))

(defun flymake-popup-menu (pos menu-data)
  (if (and (fboundp 'popup-menu) (fboundp 'make-event))
      (let* ((x-pos       (nth 0 (nth 0 pos)))
	     (y-pos       (nth 1 (nth 0 pos)))
	     (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))
	(popup-menu (flymake-make-xemacs-menu menu-data) (make-event 'button-press fake-event-props)))
    (x-popup-menu pos (flymake-make-emacs-menu menu-data))))

(defun flymake-make-emacs-menu (menu-data)
  (let* ((menu-title     (nth 0 menu-data))
	 (menu-items     (nth 1 menu-data))
	 (menu-commands  nil))
    (setq menu-commands (mapcar (lambda (foo)
				  (cons (nth 0 foo) (nth 1 foo)))

(if (featurep 'xemacs) (progn

(defun flymake-nop ())

(defun flymake-make-xemacs-menu (menu-data)
  (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))

-1 = NONE, 0 = ERROR, 1 = WARNING, 2 = INFO, 3 = DEBUG"
  :group 'flymake
  :type 'integer)

(defun flymake-log (level text &rest args)
  "Log a message with optional arguments."
  (if (<= level flymake-log-level)
      (let* ((msg (apply 'format text args)))
	(message msg)
	;;(with-temp-buffer
	;;    (insert msg)

  (let ((tmp (copy-sequence list)))	; (???)
    (setcar (nthcdr pos tmp) val)
    tmp))

(defvar flymake-pid-to-names (flymake-makehash)
  "pid -> source buffer name, output file name mapping.")

(defun flymake-reg-names (pid source-buffer-name)
  "Save into in PID map."
  (unless (stringp source-buffer-name)
    (error "Invalid buffer name"))
  (puthash pid (list source-buffer-name) flymake-pid-to-names))

(defun flymake-get-source-buffer-name (pid)
  "Return buffer name stored in PID map."
  (nth 0 (gethash pid flymake-pid-to-names)))

(defun flymake-unreg-names (pid)
  "Delete PID->buffer name mapping."
  (remhash pid flymake-pid-to-names))

(defun flymake-get-buffer-var (buffer var-name)
  "Switch to BUFFER if necessary and return local variable VAR-NAME."
  (unless (bufferp buffer)
    (error "Invalid buffer"))

  (if (eq buffer (current-buffer))
      (symbol-value var-name)
    (with-current-buffer buffer
      (symbol-value var-name))))

(defun flymake-set-buffer-var (buffer var-name var-value)
  "Switch to BUFFER if necessary and set local variable VAR-NAME to VAR-VALUE."
  (unless (bufferp buffer)
    (error "Invalid buffer"))

  (if (eq buffer (current-buffer))
      (set var-name var-value)
    (with-current-buffer buffer
      (set var-name var-value))))

(defvar flymake-buffer-data (flymake-makehash)
  "Data specific to syntax check tool, in name-value pairs.")

(make-variable-buffer-local 'flymake-buffer-data)

(defun flymake-get-buffer-data (buffer)
  (flymake-get-buffer-var buffer 'flymake-buffer-data))

(defun flymake-set-buffer-data (buffer data)
  (flymake-set-buffer-var buffer 'flymake-buffer-data data))

(defun flymake-get-buffer-value (buffer name)
  (gethash name (flymake-get-buffer-data buffer)))

(defun flymake-set-buffer-value (buffer name value)
  (puthash name value (flymake-get-buffer-data buffer)))

(defvar flymake-output-residual nil)

(make-variable-buffer-local 'flymake-output-residual)

(defun flymake-get-buffer-output-residual (buffer)
  (flymake-get-buffer-var buffer 'flymake-output-residual))

(defun flymake-set-buffer-output-residual (buffer residual)
  (flymake-set-buffer-var buffer 'flymake-output-residual residual))

(defcustom flymake-allowed-file-name-masks
  '((".+\\.c$" flymake-simple-make-init flymake-simple-cleanup flymake-get-real-file-name)
    (".+\\.cpp$" flymake-simple-make-init flymake-simple-cleanup flymake-get-real-file-name)
    (".+\\.xml$" flymake-xml-init flymake-simple-cleanup flymake-get-real-file-name)

	      (when source-buffer
		(with-current-buffer source-buffer

		  (flymake-parse-residual source-buffer)
		  (flymake-post-syntax-check source-buffer exit-status command)
		  (flymake-set-buffer-is-running source-buffer 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)
	     (flymake-set-buffer-is-running source-buffer nil)))))))

(defun flymake-post-syntax-check (source-buffer exit-status command)
  (flymake-set-buffer-err-info source-buffer (flymake-get-buffer-new-err-info source-buffer))
  (flymake-set-buffer-new-err-info source-buffer nil)

  (flymake-set-buffer-err-info source-buffer (flymake-fix-line-numbers
					      (flymake-get-buffer-err-info source-buffer)
					      1
					      (flymake-count-lines source-buffer)))
  (flymake-delete-own-overlays source-buffer)
  (flymake-highlight-err-lines source-buffer (flymake-get-buffer-err-info source-buffer))

  (let ((err-count   (flymake-get-err-count (flymake-get-buffer-err-info source-buffer) "e"))
	(warn-count  (flymake-get-err-count (flymake-get-buffer-err-info source-buffer) "w")))

    (flymake-log 2 "%s: %d error(s), %d warning(s) in %.2f second(s)"
		 (buffer-name source-buffer) err-count warn-count
		 (- (flymake-float-time) (flymake-get-buffer-check-start-time source-buffer)))
    (flymake-set-buffer-check-start-time source-buffer nil)
    (if (and (equal 0 err-count) (equal 0 warn-count))
	(if (equal 0 exit-status)
	    (flymake-report-status source-buffer "" "")	; PASSED
	  (if (not (flymake-get-buffer-check-was-interrupted source-buffer))
	      (flymake-report-fatal-status (current-buffer) "CFGERR"
					   (format "Configuration error has occured while running %s" command))
	    (flymake-report-status source-buffer nil ""))) ; "STOPPED"
      (flymake-report-status source-buffer (format "%d/%d" err-count warn-count) ""))))

(defun flymake-parse-output-and-residual (source-buffer output)
  "Split OUTPUT into lines, merge in residual if necessary."
  (with-current-buffer source-buffer
    (let* ((buffer-residual     (flymake-get-buffer-output-residual source-buffer))
	   (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)))

      (flymake-set-buffer-output-residual source-buffer new-residual)
      (flymake-set-buffer-new-err-info source-buffer (flymake-parse-err-lines
						      (flymake-get-buffer-new-err-info source-buffer)
						      source-buffer lines)))))

(defun flymake-parse-residual (source-buffer)
  "Parse residual if it's non empty."
  (with-current-buffer source-buffer
    (when (flymake-get-buffer-output-residual source-buffer)
      (flymake-set-buffer-new-err-info source-buffer (flymake-parse-err-lines
						      (flymake-get-buffer-new-err-info source-buffer)
						      source-buffer
						      (list (flymake-get-buffer-output-residual source-buffer))))
      (flymake-set-buffer-output-residual source-buffer nil))))

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

(defun flymake-get-buffer-err-info (buffer)
  (flymake-get-buffer-var buffer 'flymake-err-info))

(defun flymake-set-buffer-err-info (buffer err-info)
  (flymake-set-buffer-var buffer 'flymake-err-info err-info))

(defun flymake-er-make-er (line-no line-err-info-list)
  (list line-no line-err-info-list))

(defun flymake-er-get-line (err-info)
  (nth 0 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)

(defun flymake-get-buffer-new-err-info (buffer)
  (flymake-get-buffer-var buffer 'flymake-new-err-info))

(defun flymake-set-buffer-new-err-info (buffer new-err-info)
  (flymake-set-buffer-var buffer 'flymake-new-err-info new-err-info))

;; getters/setters for line-err-info: (file, line, type, text).
(defun flymake-ler-make-ler (file line type text &optional full-file)
  (list file line type text full-file))

      (and (string= (flymake-ler-get-type line-one) (flymake-ler-get-type line-two))
	   (or (and      (flymake-ler-get-file line-one)       (flymake-ler-get-file line-two))
	       (and (not (flymake-ler-get-file line-one)) (not (flymake-ler-get-file line-two)))))))

(defun flymake-add-line-err-info (line-err-info-list line-err-info)
  "Insert new err info favoring sorting: err-type e/w, filename nil/non-nil."
  (if (not line-err-info-list)
      (list line-err-info)
    (let* ((count  (length line-err-info-list))
	   (idx    0))
      (while (and (< idx count) (flymake-line-err-info-is-less-or-equal (nth idx line-err-info-list) line-err-info))

      (cond ((equal 0     idx)    (setq line-err-info-list (cons line-err-info line-err-info-list)))
	    (t                    (setq line-err-info-list (flymake-ins-after line-err-info-list (1- idx) line-err-info))))
      line-err-info-list)))

(defun flymake-add-err-info (err-info-list line-err-info)
  "Add error info (file line type text) to err info list preserving sort order."
  (let* ((line-no             (if (flymake-ler-get-file line-err-info) 1 (flymake-ler-get-line line-err-info)))
	 (info-and-pos        (flymake-find-err-info err-info-list line-no))
	 (exists              (car info-and-pos))
	 (pos                 (nth 1 info-and-pos))
	 (line-err-info-list  nil)

(defun flymake-start-syntax-check (buffer)
  "Start syntax checking for buffer BUFFER."
  (unless (bufferp buffer)
    (error "Expected a buffer"))
  (with-current-buffer buffer
    (flymake-log 3 "flymake is running: %s" (flymake-get-buffer-is-running buffer))
    (when (and (not (flymake-get-buffer-is-running buffer))
	       (flymake-can-syntax-check-file (buffer-file-name buffer)))
      (when (or (not flymake-compilation-prevents-syntax-check)
		(not (flymake-compilation-is-running)))	;+ (flymake-rep-ort-status buffer "COMP")
	(flymake-clear-buildfile-cache)
	(flymake-clear-project-include-dirs-cache)

	(flymake-set-buffer-check-was-interrupted buffer nil)
	(flymake-set-buffer-data buffer (flymake-makehash 'equal))

	(let* ((source-file-name  (buffer-file-name buffer))
	       (init-f (flymake-get-init-function source-file-name))
	       (cleanup-f (flymake-get-cleanup-function source-file-name))
	       (cmd-and-args (funcall init-f buffer))

	  (if (not cmd-and-args)
	      (progn
		(flymake-log 0 "init function %s for %s failed, cleaning up" init-f source-file-name)
		(funcall cleanup-f buffer))
	    (progn
	      (flymake-set-buffer-last-change-time buffer nil)
	      (flymake-start-syntax-check-process buffer cmd args dir))))))))

(defun flymake-start-syntax-check-process (buffer cmd args dir)
  "Start syntax check process."
  (let* ((process nil))

	  (set-process-sentinel process 'flymake-process-sentinel)
	  (set-process-filter process 'flymake-process-filter)

	  (flymake-reg-names (process-id process) (buffer-name buffer))

	  (flymake-set-buffer-is-running buffer t)
	  (flymake-set-buffer-last-change-time buffer nil)
	  (flymake-set-buffer-check-start-time buffer (flymake-float-time))

	  (flymake-report-status buffer nil "*")
	  (flymake-log 2 "started process %d, command=%s, dir=%s"
		       (process-id process) (process-command process) default-directory)
	  process)

(defun flymake-kill-process (pid &optional rest)
  "Kill process PID."
  (signal-process pid 9)
  (let* ((buffer-name (flymake-get-source-buffer-name pid)))
    (when (and buffer-name (get-buffer buffer-name))
      (flymake-set-buffer-check-was-interrupted (get-buffer buffer-name) t)))
  (flymake-log 1 "killed process %d" pid))

(defun flymake-stop-all-syntax-checks ()
  "Kill all syntax check processes."
  (interactive)

(defvar flymake-is-running nil
  "If t, flymake syntax check process is running for the current buffer.")

(make-variable-buffer-local 'flymake-is-running)

(defun flymake-get-buffer-is-running (buffer)
  (flymake-get-buffer-var buffer 'flymake-is-running))

(defun flymake-set-buffer-is-running (buffer is-running)
  (flymake-set-buffer-var buffer 'flymake-is-running is-running))

(defvar flymake-timer nil
  "Timer for starting syntax check.")

(make-variable-buffer-local 'flymake-timer)

(defun flymake-get-buffer-timer (buffer)
  (flymake-get-buffer-var buffer 'flymake-timer))

(defun flymake-set-buffer-timer (buffer timer)
  (flymake-set-buffer-var buffer 'flymake-timer timer))

(defvar flymake-last-change-time nil
  "Time of last buffer change.")

(make-variable-buffer-local 'flymake-last-change-time)

(defun flymake-get-buffer-last-change-time (buffer)
  (flymake-get-buffer-var buffer 'flymake-last-change-time))

(defun flymake-set-buffer-last-change-time (buffer change-time)
  (flymake-set-buffer-var buffer 'flymake-last-change-time change-time))

(defvar flymake-check-start-time nil
  "Time at which syntax check was started.")

(make-variable-buffer-local 'flymake-check-start-time)

(defun flymake-get-buffer-check-start-time (buffer)
  (flymake-get-buffer-var buffer 'flymake-check-start-time))

(defun flymake-set-buffer-check-start-time (buffer check-start-time)
  (flymake-set-buffer-var buffer 'flymake-check-start-time 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)

(defun flymake-get-buffer-check-was-interrupted (buffer)
  (flymake-get-buffer-var buffer 'flymake-check-was-interrupted))

(defun flymake-set-buffer-check-was-interrupted (buffer interrupted)
  (flymake-set-buffer-var buffer 'flymake-check-was-interrupted interrupted))

(defcustom flymake-no-changes-timeout 0.5
  "Time to wait after last change before starting compilation."
  :group 'flymake
  :type 'number)

(defun flymake-on-timer-event (buffer)
  "Start a syntax check for buffer BUFFER if necessary."
  ;;+(flymake-log 3 "timer: running=%s, time=%s, cur-time=%s" (flymake-get-buffer-is-running buffer) (flymake-get-buffer-last-change-time buffer) (flymake-float-time))
  (when (and (bufferp buffer) (not (flymake-get-buffer-is-running buffer)))
    (with-current-buffer buffer
      (when (and (flymake-get-buffer-last-change-time buffer)
		 (> (flymake-float-time) (+ flymake-no-changes-timeout (flymake-get-buffer-last-change-time buffer))))
	(flymake-set-buffer-last-change-time buffer nil)
	(flymake-log 3 "starting syntax check as more than 1 second passed since last change")
	(flymake-start-syntax-check buffer)))))

(defun flymake-start-syntax-check-for-current-buffer ()
  "Run 'flymake-start-syntax-check' for current buffer if it isn't already running."

(defun flymake-display-err-menu-for-current-line ()
  "Display a menu with errors/warnings for current line if it has errors and/or warnings."
  (interactive)
  (let* ((line-no             (flymake-current-line-no))
	 (line-err-info-list  (nth 0 (flymake-find-err-info (flymake-get-buffer-err-info (current-buffer)) line-no)))
	 (menu-data           (flymake-make-err-menu-data line-no line-err-info-list))
	 (choice              nil)
	 (mouse-pos           (flymake-get-point-pixel-pos))
	 (menu-pos            (list (flymake-get-point-pixel-pos) (selected-window))))
    (if menu-data

;; flymake minor mode declarations
(defvar flymake-mode-line nil)

(make-variable-buffer-local 'flymake-mode-line)

(defun flymake-get-buffer-mode-line (buffer)
  (flymake-get-buffer-var buffer 'flymake-mode-line))

(defun flymake-set-buffer-mode-line (buffer mode-line-string)
  (flymake-set-buffer-var buffer 'flymake-mode-line mode-line-string))

(defvar flymake-mode-line-e-w nil)

(make-variable-buffer-local 'flymake-mode-line-e-w)

(defun flymake-get-buffer-mode-line-e-w (buffer)
  (flymake-get-buffer-var buffer 'flymake-mode-line-e-w))

(defun flymake-set-buffer-mode-line-e-w (buffer e-w)
  (flymake-set-buffer-var buffer 'flymake-mode-line-e-w e-w))

(defvar flymake-mode-line-status nil)

(make-variable-buffer-local 'flymake-mode-line-status)

(defun flymake-get-buffer-mode-line-status (buffer)
  (flymake-get-buffer-var buffer 'flymake-mode-line-status))

(defun flymake-set-buffer-mode-line-status (buffer status)
  (flymake-set-buffer-var buffer 'flymake-mode-line-status status))

(defun flymake-report-status (buffer e-w &optional status)
  "Show status in mode line."
  (when (bufferp buffer)
    (with-current-buffer buffer
      (when e-w
	(flymake-set-buffer-mode-line-e-w buffer e-w)
	)
      (when status
	(flymake-set-buffer-mode-line-status buffer status))
      (let* ((mode-line " Flymake"))
	(when (> (length (flymake-get-buffer-mode-line-e-w buffer)) 0)
	  (setq mode-line (concat mode-line ":"  (flymake-get-buffer-mode-line-e-w buffer))))
	(setq mode-line (concat mode-line (flymake-get-buffer-mode-line-status buffer)))
	(flymake-set-buffer-mode-line buffer mode-line)
	(force-mode-line-update)))))

(defun flymake-display-warning (warning)
  "Display a warning to user."
  (message-box warning))

    (add-hook 'kill-buffer-hook 'flymake-kill-buffer-hook)
    ;;+(add-hook 'find-file-hook 'flymake-find-file-hook)

    (flymake-report-status (current-buffer) "" "")

    (flymake-set-buffer-timer (current-buffer) (run-at-time nil 1 'flymake-on-timer-event (current-buffer)))

    (setq flymake-mode t)
    (flymake-log 1 "flymake mode turned ON for buffer %s" (buffer-name (current-buffer)))
    (when flymake-start-syntax-check-on-find-file
      (flymake-start-syntax-check-for-current-buffer)))) ; will be started by on-load hook

    (remove-hook 'kill-buffer-hook (function flymake-kill-buffer-hook) t)
    ;;+(remove-hook 'find-file-hook (function flymake-find-file-hook) t)

    (flymake-delete-own-overlays (current-buffer))

    (when (flymake-get-buffer-timer (current-buffer))
      (cancel-timer (flymake-get-buffer-timer (current-buffer)))
      (flymake-set-buffer-timer (current-buffer) nil))

    (flymake-set-buffer-is-running (current-buffer) nil)

    (setq flymake-mode nil)
    (flymake-log 1 "flymake mode turned OFF for buffer %s" (buffer-name (current-buffer)))))

(defcustom flymake-start-syntax-check-on-newline t
  "Start syntax check if newline char was added/removed from the buffer."

  ;;+(flymake-log 0 "setting change time to %s" (flymake-float-time))
  (let((new-text (buffer-substring start stop)))
    (when (and flymake-start-syntax-check-on-newline (equal new-text "\n"))
      (flymake-log 3 "starting syntax check as new-line has been seen")
      (flymake-start-syntax-check-for-current-buffer))
    (flymake-set-buffer-last-change-time (current-buffer) (flymake-float-time))))

(defun flymake-after-save-hook ()
  (if (local-variable-p 'flymake-mode (current-buffer))	; (???) other way to determine whether flymake is active in buffer being saved?
      (progn
	(flymake-log 3 "starting syntax check as buffer was saved")
	(flymake-start-syntax-check-for-current-buffer)))) ; no more mode 3. cannot start check if mode 3 (to temp copies) is active - (???)

(defun flymake-kill-buffer-hook ()
  (when (flymake-get-buffer-timer (current-buffer))
    (cancel-timer (flymake-get-buffer-timer (current-buffer)))
    (flymake-set-buffer-timer (current-buffer) nil)))

(defun flymake-find-file-hook ()
  ;;+(when flymake-start-syntax-check-on-find-file
  ;;+    (flymake-log 3 "starting syntax check on file open")
  ;;+    (flymake-start-syntax-check-for-current-buffer)

  (flymake-skip-whitespace))

(defun flymake-goto-next-error ()
  "Go to next error in err ring."
  (interactive)
  (let ((line-no (flymake-get-next-err-line-no (flymake-get-buffer-err-info (current-buffer)) (flymake-current-line-no))))
    (when (not line-no)
      (setq line-no (flymake-get-first-err-line-no (flymake-get-buffer-err-info (current-buffer))))
      (flymake-log 1 "passed end of file"))
    (if line-no
	(flymake-goto-line line-no)
      (flymake-log 1 "no errors in current buffer"))))

(defun flymake-goto-prev-error ()
  "Go to prev error in err ring."
  (interactive)
  (let ((line-no (flymake-get-prev-err-line-no (flymake-get-buffer-err-info (current-buffer)) (flymake-current-line-no))))
    (when (not line-no)
      (setq line-no (flymake-get-last-err-line-no (flymake-get-buffer-err-info (current-buffer))))
      (flymake-log 1 "passed beginning of file"))
    (if line-no
	(flymake-goto-line line-no)
      (flymake-log 1 "no errors in current buffer"))))

(defun flymake-simple-cleanup (buffer)
  "Do cleanup after 'flymake-init-create-temp-buffer-copy'.
Delete temp file."
  (let* ((temp-source-file-name (flymake-get-buffer-value buffer "temp-source-file-name")))
    (flymake-safe-delete-file temp-source-file-name)
    (flymake-set-buffer-last-change-time buffer nil)))

(defun flymake-get-real-file-name (buffer file-name-from-err-msg)
  "Translate file name from error message to \"real\" file name.
Return full-name.  Names are real, not patched."
  (let* ((real-name              nil)

61943:26bd7a854809

  (if (fboundp 'replace-regexp-in-string)
      (replace-regexp-in-string regexp rep str)
    (replace-in-string str regexp rep)))

(defun flymake-split-string (str pattern)
  "Split STR into a list of substrings bounded by PATTERN.
Zero-length substrings at the beginning and end of the list are omitted."
  (let* ((splitted (split-string str pattern)))
    (if (and (> (length splitted) 0) (= 0 (length (elt splitted 0))))
	(setq splitted (cdr splitted)))
    (if (and (> (length splitted) 0) (= 0 (length (elt splitted (1- (length splitted))))))
	(setq splitted (reverse (cdr (reverse splitted)))))

  (if (fboundp 'line-end-position)
      'line-end-position
    (lambda (&optional arg) (save-excursion (end-of-line arg) (point)))))

(defun flymake-popup-menu (pos menu-data)
  "Pop up the flymake menu at position POS, using the data MENU-DATA.
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)
      (let* ((x-pos       (nth 0 (nth 0 pos)))
	     (y-pos       (nth 1 (nth 0 pos)))
	     (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))
	(popup-menu (flymake-make-xemacs-menu menu-data) (make-event 'button-press fake-event-props)))
    (x-popup-menu pos (flymake-make-emacs-menu menu-data))))

(defun flymake-make-emacs-menu (menu-data)
  "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."
  (let* ((menu-title     (nth 0 menu-data))
	 (menu-items     (nth 1 menu-data))
	 (menu-commands  nil))
    (setq menu-commands (mapcar (lambda (foo)
				  (cons (nth 0 foo) (nth 1 foo)))

(if (featurep 'xemacs) (progn

(defun flymake-nop ())

(defun flymake-make-xemacs-menu (menu-data)
  "Return a menu specifier using MENU-DATA."
  (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))

-1 = NONE, 0 = ERROR, 1 = WARNING, 2 = INFO, 3 = DEBUG"
  :group 'flymake
  :type 'integer)

(defun flymake-log (level text &rest args)
  "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')."
  (if (<= level flymake-log-level)
      (let* ((msg (apply 'format text args)))
	(message msg)
	;;(with-temp-buffer
	;;    (insert msg)

  (let ((tmp (copy-sequence list)))	; (???)
    (setcar (nthcdr pos tmp) val)
    tmp))

(defvar flymake-pid-to-names (flymake-makehash)
  "Hash table mapping PIDs to source buffer names and output files.")

(defun flymake-reg-names (pid source-buffer-name)
  "Associate PID with SOURCE-BUFFER-NAME in `flymake-pid-to-names'."
  (unless (stringp source-buffer-name)
    (error "Invalid buffer name"))
  (puthash pid (list source-buffer-name) flymake-pid-to-names))

(defun flymake-get-source-buffer-name (pid)
  "Return buffer name associated with PID in `flymake-pid-to-names'."
  (nth 0 (gethash pid flymake-pid-to-names)))

(defun flymake-unreg-names (pid)
  "Remove the entry associated with PID from `flymake-pid-to-names'."
  (remhash pid flymake-pid-to-names))

(defvar flymake-buffer-data (flymake-makehash)
  "Data specific to syntax check tool, in name-value pairs.")

(make-variable-buffer-local 'flymake-buffer-data)

(defun flymake-get-buffer-value (buffer name)
  (gethash name (with-current-buffer buffer flymake-buffer-data)))

(defun flymake-set-buffer-value (buffer name value)
  (puthash name value (with-current-buffer buffer flymake-buffer-data)))

(defvar flymake-output-residual nil)

(make-variable-buffer-local 'flymake-output-residual)

(defcustom flymake-allowed-file-name-masks
  '((".+\\.c$" flymake-simple-make-init flymake-simple-cleanup flymake-get-real-file-name)
    (".+\\.cpp$" flymake-simple-make-init flymake-simple-cleanup flymake-get-real-file-name)
    (".+\\.xml$" flymake-xml-init flymake-simple-cleanup flymake-get-real-file-name)

	      (when source-buffer
		(with-current-buffer source-buffer

		  (flymake-parse-residual source-buffer)
		  (flymake-post-syntax-check source-buffer 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))))))))

(defun flymake-post-syntax-check (source-buffer exit-status command)
  (with-current-buffer source-buffer
    (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 source-buffer))))
  (flymake-delete-own-overlays source-buffer)
  (flymake-highlight-err-lines
   source-buffer (with-current-buffer source-buffer flymake-err-info))
  (let (err-count warn-count)
    (with-current-buffer source-buffer
      (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 source-buffer) err-count warn-count
		 (- (flymake-float-time) flymake-check-start-time))
      (setq flymake-check-start-time nil))

    (if (and (equal 0 err-count) (equal 0 warn-count))
	(if (equal 0 exit-status)
	    (flymake-report-status source-buffer "" "")	; PASSED
	  (if (not (with-current-buffer source-buffer
		     flymake-check-was-interrupted))
	      (flymake-report-fatal-status (current-buffer) "CFGERR"
					   (format "Configuration error has occured while running %s" command))
	    (flymake-report-status source-buffer nil ""))) ; "STOPPED"
      (flymake-report-status source-buffer (format "%d/%d" err-count warn-count) ""))))

(defun flymake-parse-output-and-residual (source-buffer output)
  "Split OUTPUT into lines, merge in residual if necessary."
  (with-current-buffer source-buffer
    (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)))
      (with-current-buffer source-buffer
	(setq flymake-output-residual new-residual)
	(setq flymake-new-err-info
	      (flymake-parse-err-lines
	       flymake-new-err-info
	       source-buffer lines))))))

(defun flymake-parse-residual (source-buffer)
  "Parse residual if it's non empty."
  (with-current-buffer source-buffer
    (when flymake-output-residual
      (setq flymake-new-err-info
	    (flymake-parse-err-lines
	     flymake-new-err-info
	     source-buffer
	     (list flymake-output-residual)))
      (setq flymake-output-residual nil))))

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

(defun flymake-er-make-er (line-no line-err-info-list)
  (list line-no line-err-info-list))

(defun flymake-er-get-line (err-info)
  (nth 0 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)

;; getters/setters for line-err-info: (file, line, type, text).
(defun flymake-ler-make-ler (file line type text &optional full-file)
  (list file line type text full-file))

      (and (string= (flymake-ler-get-type line-one) (flymake-ler-get-type line-two))
	   (or (and      (flymake-ler-get-file line-one)       (flymake-ler-get-file line-two))
	       (and (not (flymake-ler-get-file line-one)) (not (flymake-ler-get-file line-two)))))))

(defun flymake-add-line-err-info (line-err-info-list line-err-info)
  "Update LINE-ERR-INFO-LIST with the error LINE-ERR-INFO.
For the format of LINE-ERR-INFO, see `flymake-ler-make-ler'.
The new element is inserted in the proper position, according to
the predicate `flymake-line-err-info-is-less-or-equal'.
The updated value of LINE-ERR-INFO-LIST is returned."
  (if (not line-err-info-list)
      (list line-err-info)
    (let* ((count  (length line-err-info-list))
	   (idx    0))
      (while (and (< idx count) (flymake-line-err-info-is-less-or-equal (nth idx line-err-info-list) line-err-info))

      (cond ((equal 0     idx)    (setq line-err-info-list (cons line-err-info line-err-info-list)))
	    (t                    (setq line-err-info-list (flymake-ins-after line-err-info-list (1- idx) line-err-info))))
      line-err-info-list)))

(defun flymake-add-err-info (err-info-list line-err-info)
  "Update ERR-INFO-LIST with the error LINE-ERR-INFO, preserving sort order.
Returns the updated value of ERR-INFO-LIST.
For the format of ERR-INFO-LIST, see `flymake-err-info'.
For the format of LINE-ERR-INFO, see `flymake-ler-make-ler'."
  (let* ((line-no             (if (flymake-ler-get-file line-err-info) 1 (flymake-ler-get-line line-err-info)))
	 (info-and-pos        (flymake-find-err-info err-info-list line-no))
	 (exists              (car info-and-pos))
	 (pos                 (nth 1 info-and-pos))
	 (line-err-info-list  nil)

(defun flymake-start-syntax-check (buffer)
  "Start syntax checking for buffer BUFFER."
  (unless (bufferp buffer)
    (error "Expected a buffer"))
  (with-current-buffer buffer
    (flymake-log 3 "flymake is running: %s" flymake-is-running)
    (when (and (not flymake-is-running)
	       (flymake-can-syntax-check-file (buffer-file-name buffer)))
      (when (or (not flymake-compilation-prevents-syntax-check)
		(not (flymake-compilation-is-running)))	;+ (flymake-rep-ort-status buffer "COMP")
	(flymake-clear-buildfile-cache)
	(flymake-clear-project-include-dirs-cache)

	(setq flymake-check-was-interrupted nil)
	(setq flymake-buffer-data (flymake-makehash 'equal))

	(let* ((source-file-name  (buffer-file-name buffer))
	       (init-f (flymake-get-init-function source-file-name))
	       (cleanup-f (flymake-get-cleanup-function source-file-name))
	       (cmd-and-args (funcall init-f buffer))

	  (if (not cmd-and-args)
	      (progn
		(flymake-log 0 "init function %s for %s failed, cleaning up" init-f source-file-name)
		(funcall cleanup-f buffer))
	    (progn
	      (setq flymake-last-change-time nil)
	      (flymake-start-syntax-check-process buffer cmd args dir))))))))

(defun flymake-start-syntax-check-process (buffer cmd args dir)
  "Start syntax check process."
  (let* ((process nil))

	  (set-process-sentinel process 'flymake-process-sentinel)
	  (set-process-filter process 'flymake-process-filter)

	  (flymake-reg-names (process-id process) (buffer-name buffer))

	  (with-current-buffer buffer
	    (setq flymake-is-running t)
	    (setq flymake-last-change-time nil)
	    (setq flymake-check-start-time (flymake-float-time)))

	  (flymake-report-status buffer nil "*")
	  (flymake-log 2 "started process %d, command=%s, dir=%s"
		       (process-id process) (process-command process) default-directory)
	  process)

(defun flymake-kill-process (pid &optional rest)
  "Kill process PID."
  (signal-process pid 9)
  (let* ((buffer-name (flymake-get-source-buffer-name pid)))
    (when (and buffer-name (get-buffer buffer-name))
      (with-current-buffer (get-buffer buffer-name)
	(setq flymake-check-was-interrupted t))))
  (flymake-log 1 "killed process %d" pid))

(defun flymake-stop-all-syntax-checks ()
  "Kill all syntax check processes."
  (interactive)

(defvar flymake-is-running nil
  "If t, flymake syntax check process is running for the current buffer.")

(make-variable-buffer-local 'flymake-is-running)

(defvar flymake-timer nil
  "Timer for starting syntax check.")

(make-variable-buffer-local 'flymake-timer)

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

(defcustom flymake-no-changes-timeout 0.5
  "Time to wait after last change before starting compilation."
  :group 'flymake
  :type 'number)

(defun flymake-on-timer-event (buffer)
  "Start a syntax check for buffer BUFFER if necessary."
  (when (bufferp buffer)
    (with-current-buffer buffer
      (when (and (not flymake-is-running)
		 flymake-last-change-time
		 (> (flymake-float-time) (+ flymake-no-changes-timeout flymake-last-change-time)))

	(setq flymake-last-change-time nil)
	(flymake-log 3 "starting syntax check as more than 1 second passed since last change")
	(flymake-start-syntax-check buffer)))))

(defun flymake-start-syntax-check-for-current-buffer ()
  "Run 'flymake-start-syntax-check' for current buffer if it isn't already running."

(defun flymake-display-err-menu-for-current-line ()
  "Display a menu with errors/warnings for current line if it has errors and/or warnings."
  (interactive)
  (let* ((line-no             (flymake-current-line-no))
	 (line-err-info-list  (nth 0 (flymake-find-err-info flymake-err-info line-no)))
	 (menu-data           (flymake-make-err-menu-data line-no line-err-info-list))
	 (choice              nil)
	 (mouse-pos           (flymake-get-point-pixel-pos))
	 (menu-pos            (list (flymake-get-point-pixel-pos) (selected-window))))
    (if menu-data

;; flymake minor mode declarations
(defvar flymake-mode-line nil)

(make-variable-buffer-local 'flymake-mode-line)

(defvar flymake-mode-line-e-w nil)

(make-variable-buffer-local 'flymake-mode-line-e-w)

(defvar flymake-mode-line-status nil)

(make-variable-buffer-local 'flymake-mode-line-status)

(defun flymake-report-status (buffer e-w &optional status)
  "Show status in mode line."
  (when (bufferp buffer)
    (with-current-buffer buffer
      (when e-w
	(setq flymake-mode-line-e-w e-w))
      (when status
	(setq flymake-mode-line-status status))
      (let* ((mode-line " Flymake"))
	(when (> (length flymake-mode-line-e-w) 0)
	  (setq mode-line (concat mode-line ":" flymake-mode-line-e-w)))
	(setq mode-line (concat mode-line flymake-mode-line-status))
	(setq flymake-mode-line mode-line)
	(force-mode-line-update)))))

(defun flymake-display-warning (warning)
  "Display a warning to user."
  (message-box warning))

    (add-hook 'kill-buffer-hook 'flymake-kill-buffer-hook)
    ;;+(add-hook 'find-file-hook 'flymake-find-file-hook)

    (flymake-report-status (current-buffer) "" "")

    (setq flymake-timer
	  (run-at-time nil 1 'flymake-on-timer-event (current-buffer)))

    (setq flymake-mode t)
    (flymake-log 1 "flymake mode turned ON for buffer %s" (buffer-name (current-buffer)))
    (when flymake-start-syntax-check-on-find-file
      (flymake-start-syntax-check-for-current-buffer)))) ; will be started by on-load hook

    (remove-hook 'kill-buffer-hook (function flymake-kill-buffer-hook) t)
    ;;+(remove-hook 'find-file-hook (function flymake-find-file-hook) t)

    (flymake-delete-own-overlays (current-buffer))

    (when flymake-timer
      (cancel-timer flymake-timer)
      (setq flymake-timer nil))

    (setq flymake-is-running nil)
    (setq flymake-mode nil)
    (flymake-log 1 "flymake mode turned OFF for buffer %s" (buffer-name (current-buffer)))))

(defcustom flymake-start-syntax-check-on-newline t
  "Start syntax check if newline char was added/removed from the buffer."

  ;;+(flymake-log 0 "setting change time to %s" (flymake-float-time))
  (let((new-text (buffer-substring start stop)))
    (when (and flymake-start-syntax-check-on-newline (equal new-text "\n"))
      (flymake-log 3 "starting syntax check as new-line has been seen")
      (flymake-start-syntax-check-for-current-buffer))
    (setq flymake-last-change-time (flymake-float-time))))

(defun flymake-after-save-hook ()
  (if (local-variable-p 'flymake-mode (current-buffer))	; (???) other way to determine whether flymake is active in buffer being saved?
      (progn
	(flymake-log 3 "starting syntax check as buffer was saved")
	(flymake-start-syntax-check-for-current-buffer)))) ; no more mode 3. cannot start check if mode 3 (to temp copies) is active - (???)

(defun flymake-kill-buffer-hook ()
  (when flymake-timer
    (cancel-timer flymake-timer)
    (setq flymake-timer nil)))

(defun flymake-find-file-hook ()
  ;;+(when flymake-start-syntax-check-on-find-file
  ;;+    (flymake-log 3 "starting syntax check on file open")
  ;;+    (flymake-start-syntax-check-for-current-buffer)

  (flymake-skip-whitespace))

(defun flymake-goto-next-error ()
  "Go to next error in err ring."
  (interactive)
  (let ((line-no (flymake-get-next-err-line-no flymake-err-info (flymake-current-line-no))))
    (when (not line-no)
      (setq line-no (flymake-get-first-err-line-no flymake-err-info))
      (flymake-log 1 "passed end of file"))
    (if line-no
	(flymake-goto-line line-no)
      (flymake-log 1 "no errors in current buffer"))))

(defun flymake-goto-prev-error ()
  "Go to prev error in err ring."
  (interactive)
  (let ((line-no (flymake-get-prev-err-line-no flymake-err-info (flymake-current-line-no))))
    (when (not line-no)
      (setq line-no (flymake-get-last-err-line-no flymake-err-info))
      (flymake-log 1 "passed beginning of file"))
    (if line-no
	(flymake-goto-line line-no)
      (flymake-log 1 "no errors in current buffer"))))

(defun flymake-simple-cleanup (buffer)
  "Do cleanup after 'flymake-init-create-temp-buffer-copy'.
Delete temp file."
  (let* ((temp-source-file-name (flymake-get-buffer-value buffer "temp-source-file-name")))
    (flymake-safe-delete-file temp-source-file-name)
    (with-current-buffer buffer
      (setq flymake-last-change-time nil))))

(defun flymake-get-real-file-name (buffer file-name-from-err-msg)
  "Translate file name from error message to \"real\" file name.
Return full-name.  Names are real, not patched."
  (let* ((real-name              nil)