(compile-internal): Use "set default" for VMS.

(compilation-error-regexp-alist): Add entries for various VMS compilers.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index cef14a564bbd96066202cd337377e209eebc8962..330377432cf2d6d07c35b6f84c13d9879cd6e8f1 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2005-03-23  Thien-Thi Nguyen  <ttn@gnu.org>
+
+       * progmodes/compile.el (compile-internal): Use "set default" for VMS.
+       (compilation-error-regexp-alist): Add entries for various VMS compilers.
+
 2005-03-22  Thien-Thi Nguyen  <ttn@gnu.org>
 
        * bindings.el (completion-ignored-extensions):

diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index f49948d2333c85945e7b88c056c8d8d21a0ee2c9..2224d3ccf31415dc08a2f92c838e158b8a2fc9b7 100644 (file)
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -338,7 +338,24 @@ of[ \t]+\"?\\([a-zA-Z]?:?[^\":\n]+\\)\"?:" 3 2)
     ;; cf90-113 f90comp: ERROR NSE, File = Hoved.f90, Line = 16, Column = 3
     (".* ERROR [a-zA-Z0-9 ]+, File = \\(.+\\), Line = \\([0-9]+\\), Column = \\([0-9]+\\)"
      1 2 3)
-    )
+
+    ;; VMS, various compilers:
+    ;;
+    ;; 40    FORMAT (I3,)
+    ;; ................^
+    ;; %F90-W-ERROR, An extra comma appears in the format list.
+    ;; at line number 13 in file DISK$:[USER]SAMP_MESS.FOR;4
+    ;;
+    ;;  return *this ;
+    ;; .........^
+    ;; %CXX-E-BADNONREFINI, a reference of type "Field &"
+    ;; (not const-qualified) cannot be initialized with a value of type "Field3d"
+    ;; at line number 175 in file USER:[RMS.CXX_STUFF]HELPER.C;33
+    ("^.+\n.+\n%[A-Z0-9]+-[FEWI]-[A-Z]+, .*\nat line number \\([0-9]+\\) in file \\(.*\\)"
+     2 1)
+    ("^.+\n.+\n%[A-Z0-9]+-[FEWI]-[A-Z]+, .*\n.*\nat line number \\([0-9]+\\) in file \\(.*\\)"
+     2 1)
+    ("^.+\n.+\n%[A-Z0-9]+-[FEWI]-[A-Z]+, .*\n.*\n.*\nat line number \\([0-9]+\\) in file \\(.*\\)" 2 1))
 
   "Alist that specifies how to match errors in compiler output.
 Each elt has the form (REGEXP FILE-IDX LINE-IDX [COLUMN-IDX FILE-FORMAT...])
@@ -782,7 +799,8 @@ Returns the compilation buffer created."
        (erase-buffer)
        (buffer-enable-undo (current-buffer))
        (setq default-directory thisdir)
-       (insert "cd " thisdir "\n" command "\n")
+       (insert (if (eq system-type 'vax-vms) "set default" "cd")
+               " " thisdir "\n" command "\n")
        (set-buffer-modified-p nil))
       ;; If we're already in the compilation buffer, go to the end
       ;; of the buffer, so point will track the compilation output.