comparison lisp/progmodes/compile.el @ 727:540b047ece4d

*** empty log message ***

726:5f08efa38dd0

;;; compile.el --- run compiler as inferior of Emacs, and parse its error messages.

;;;!!! dup removal is broken.

;; Copyright (C) 1985-1991 Free Software Foundation, Inc.

    ;; or GNU utilities
    ;; foo.c:8: error message
    ("^\\([^:( \t\n]+\\)[:( \t]+\\([0-9]+\\)[:) \t]" 1 2)
    ;; 4.3BSD lint pass 2
    ;; strcmp: variable # of args. llib-lc(359)  ::  /usr/src/foo/foo.c(8)
    ("[ \t:]+\\([^:( \t\n]+\\)[ \t]*[:(]+[ \t]*\\([0-9]+\\)[:) \t]*$" 1 2)
    ;; 4.3BSD lint pass 3
    ;; bloofle defined( /users/wolfgang/foo.c(4) ), but never used
    ("[ \t(]+\\([^:( \t\n]+\\)[:( \t]+\\([0-9]+\\)[:) \t]+" 1 2)
    ;; Line 45 of "foo.c": bloofel undefined (who does this?)
    ("^[Ll]ine[ \t]+\\([0-9]+\\)[ \t]+of[ \t]+\"\\([^\"]+\\)\":" 2 1)
    ;; Apollo cc, 4.3BSD fc
    ;; "foo.f", line 3: Error: syntax error near end of statement
    ("^\"\\([^\"]+\\)\", line \\([0-9]+\\):" 1 2)
    ;; HP-UX 7.0 fc
    ;; foo.f          :16    some horrible error message
    ("\\([^ \t:]+\\)[ \t]*:\\([0-9]+\\)" 1 2)
    ;; IBM AIX PS/2 C version 1.1
    ;; ****** Error number 140 in line 8 of file errors.c ******
    ("in line \\([0-9]+\\) of file \\([^ ]+[^. ]\\)\\.? " 2 1)
    ;; IBM AIX lint is too painful to do right this way.  File name
    ;; prefixes entire sections rather than being on each line.
    )
  "Alist (REGEXP FILE-IDX LINE-IDX) of regular expressions to match errors in
compilation.  If REGEXP matches, the FILE-IDX'th subexpression gives the file

  "Last shell command used to do a grep search; default for next search.
Typically \"grep -n\" or \"egrep -n\".
\(The \"-n\" option tells grep to output line numbers.)")

(defconst compilation-enter-directory-regexp
  ": Entering directory `\\\(.*\\\)'$"
  "Regular expression for a line in the compilation log that
changes the current directory.  This must contain one \\\(, \\\) pair
around the directory name.

The default value matches lines printed by the `-w' option of GNU Make.")

(defconst compilation-leave-directory-regexp
  ": Leaving directory `\\\(.*\\\)'$"
  "Regular expression for a line in the compilation log that
changes the current directory to a previous value.  This may
contain one \\\(, \\\) pair around the name of the directory
being moved from.  If it does not, the last directory entered
\(by a line matching `compilation-enter-directory-regexp'\) is assumed.

The default value matches lines printed by the `-w' option of GNU Make.")

		   ;; and hack its mode line.
		   (set-buffer buffer)
		   (setq omax (point-max)
			 opoint (point))
		   (goto-char omax)
		   (insert ?\n mode-name " " msg)
		   (forward-char -1)
		   (insert " at " (substring (current-time-string) 0 19))
		   (forward-char 1)
		   (setq mode-line-process

727:540b047ece4d

;;; compile.el --- run compiler as inferior of Emacs, parse error messages.

;;;!!! dup removal is broken.

;; Copyright (C) 1985-1991 Free Software Foundation, Inc.

    ;; or GNU utilities
    ;; foo.c:8: error message
    ("^\\([^:( \t\n]+\\)[:( \t]+\\([0-9]+\\)[:) \t]" 1 2)
    ;; 4.3BSD lint pass 2
    ;; strcmp: variable # of args. llib-lc(359)  ::  /usr/src/foo/foo.c(8)
    ("[ \t:]+\\([^:( \t\n]+\\)[ \t]*[:(]*(+[ \t]*\\([0-9]+\\))[:) \t]*$" 1 2)
    ;; 4.3BSD lint pass 3
    ;; bloofle defined( /users/wolfgang/foo.c(4) ), but never used
    ;; This used to be
    ;; ("[ \t(]+\\([^:( \t\n]+\\)[:( \t]+\\([0-9]+\\)[:) \t]+" 1 2)
    ;; which is regexp Impressionism - it matches almost anything!
    ("([ \t]*\\([^:( \t\n]+\\)[ \t]*[:(][ \t]*\\([0-9]+\\))" 1 2)
    ;; Line 45 of "foo.c": bloofel undefined (who does this?)
    ("^[Ll]ine[ \t]+\\([0-9]+\\)[ \t]+of[ \t]+\"\\([^\"\n]+\\)\":" 2 1)
    ;; Apollo cc, 4.3BSD fc
    ;; "foo.f", line 3: Error: syntax error near end of statement
    ("^\"\\([^\"\n]+\\)\", line \\([0-9]+\\):" 1 2)
    ;; HP-UX 7.0 fc
    ;; foo.f          :16    some horrible error message
    ("^\\([^ \t\n:]+\\)[ \t]*:\\([0-9]+\\)" 1 2)
    ;; IBM AIX PS/2 C version 1.1
    ;; ****** Error number 140 in line 8 of file errors.c ******
    ("in line \\([0-9]+\\) of file \\([^ \n]+[^. \n]\\)\\.? " 2 1)
    ;; IBM AIX lint is too painful to do right this way.  File name
    ;; prefixes entire sections rather than being on each line.
    )
  "Alist (REGEXP FILE-IDX LINE-IDX) of regular expressions to match errors in
compilation.  If REGEXP matches, the FILE-IDX'th subexpression gives the file

  "Last shell command used to do a grep search; default for next search.
Typically \"grep -n\" or \"egrep -n\".
\(The \"-n\" option tells grep to output line numbers.)")

(defconst compilation-enter-directory-regexp
  ": Entering directory `\\(.*\\)'$"
  "Regular expression for a line in the compilation log that
changes the current directory.  This must contain one \\(, \\) pair
around the directory name.

The default value matches lines printed by the `-w' option of GNU Make.")

(defconst compilation-leave-directory-regexp
  ": Leaving directory `\\(.*\\)'$"
  "Regular expression for a line in the compilation log that
changes the current directory to a previous value.  This may
contain one \\(, \\) pair around the name of the directory
being moved from.  If it does not, the last directory entered
\(by a line matching `compilation-enter-directory-regexp'\) is assumed.

The default value matches lines printed by the `-w' option of GNU Make.")

		   ;; and hack its mode line.
		   (set-buffer buffer)
		   (setq omax (point-max)
			 opoint (point))
		   (goto-char omax)
		   ;; Record where we put the message, so we can ignore it
		   ;; later on.
		   (insert ?\n mode-name " " msg)
		   (forward-char -1)
		   (insert " at " (substring (current-time-string) 0 19))
		   (forward-char 1)
		   (setq mode-line-process