181 |
(epc |
(epc |
182 |
"^Error [0-9]+ at (\\([0-9]+\\):\\([^)\n]+\\))" 2 1) |
"^Error [0-9]+ at (\\([0-9]+\\):\\([^)\n]+\\))" 2 1) |
183 |
|
|
184 |
(ftnchek-file |
(ftnchek |
185 |
"^File \\(.+\\.f\\):$" |
"\\(^Warning .*\\)? line[ \n]\\([0-9]+\\)[ \n]\\(?:col \\([0-9]+\\)[ \n]\\)?file \\([^ :;\n]+\\)" |
186 |
1 nil nil 0) |
4 2 3 (1)) |
|
(ftnchek-line-file |
|
|
"\\(^Warning .* \\)?line \\([0-9]+\\)\\(?: col \\([0-9]+\\)\\)? file \\(.+\\.f\\)" |
|
|
4 2 3 (1) nil (1 'default nil t)) |
|
|
(ftnchek-line |
|
|
"\\(?:^\\(Warning\\) .* \\)?line \\([0-9]+\\)\\(?: col \\([0-9]+\\)\\)?" |
|
|
nil 2 3 (1) nil (1 (compilation-face '(1)) nil t)) |
|
187 |
|
|
188 |
(iar |
(iar |
189 |
"^\"\\(.*\\)\",\\([0-9]+\\)\\s-+\\(?:Error\\|Warnin\\(g\\)\\)\\[[0-9]+\\]:" |
"^\"\\(.*\\)\",\\([0-9]+\\)\\s-+\\(?:Error\\|Warnin\\(g\\)\\)\\[[0-9]+\\]:" |
910 |
;; would do it again through the shell: (cd "..") AND sh -c "cd ..; make" |
;; would do it again through the shell: (cd "..") AND sh -c "cd ..; make" |
911 |
(cd (if (string-match "^\\s *cd\\(?:\\s +\\(\\S +?\\)\\)?\\s *[;&\n]" command) |
(cd (if (string-match "^\\s *cd\\(?:\\s +\\(\\S +?\\)\\)?\\s *[;&\n]" command) |
912 |
(if (match-end 1) |
(if (match-end 1) |
913 |
(match-string 1 command) |
(substitute-env-vars (match-string 1 command)) |
914 |
"~") |
"~") |
915 |
default-directory)) |
default-directory)) |
916 |
(erase-buffer) |
(erase-buffer) |