Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Diff of /sml/trunk/sml-mode/sml-proc.el
ViewVC logotype

Diff of /sml/trunk/sml-mode/sml-proc.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1691, Mon Nov 15 03:26:57 2004 UTC revision 1695, Mon Nov 15 03:51:19 2004 UTC
# Line 208  Line 208 
208    
209  (defvar sml-error-regexp-alist  (defvar sml-error-regexp-alist
210    `( ;; Poly/ML messages    `( ;; Poly/ML messages
211      ("\\(Error\\|Warning:\\) in '\\(.+\\)', line \\([0-9]+\\)" 2 3)      ("^\\(Error\\|Warning:\\) in '\\(.+\\)', line \\([0-9]+\\)" 2 3)
212      ;; Moscow ML      ;; Moscow ML
213      ("File \"\\([^\"]+\\)\", line \\([0-9]+\\)\\(-\\([0-9]+\\)\\)?, characters \\([0-9]+\\)-\\([0-9]+\\):" 1 2 5)      ("^File \"\\([^\"]+\\)\", line \\([0-9]+\\)\\(-\\([0-9]+\\)\\)?, characters \\([0-9]+\\)-\\([0-9]+\\):" 1 2 5)
     ,@(if (not (fboundp 'compilation-fake-loc))  
214            ;; SML/NJ:  the file-pattern is anchored to avoid            ;; SML/NJ:  the file-pattern is anchored to avoid
215            ;; pathological behavior with very long lines.            ;; pathological behavior with very long lines.
216            '(      ("^[-= ]*\\(.*[^\n)]\\)\\( (.*)\\)?:\\([0-9]+\\)\\.\\([0-9]+\\)\\(-\\([0-9]+\\)\\.\\([0-9]+\\)\\)? \\(Error\\|Warnin\\(g\\)\\): .*" 1
217              ("^[-= ]*\\(.*[^\n)]\\)\\( (.*)\\)?:\\([0-9]+\\)\\.\\([0-9]+\\)\\(-\\([0-9]+\\)\\.\\([0-9]+\\)\\)? \\(Error\\|Warning\\): .*" 1 sml-make-error 3 4 6 7)       ,@(if (fboundp 'compilation-fake-loc) ;New compile.el.
218              ("^ +\\(raised at: \\)?\\(.+\\):\\([0-9]+\\)\\.\\([0-9]+\\)\\(-\\([0-9]+\\)\\.\\([0-9]+\\)\\)" 2 sml-make-error 3 4 6 7))             '((3 . 6) (4 . 7) (9))
219          '(("^[-= ]*\\(.*[^\n)]\\)\\( (.*)\\)?:\\([0-9]+\\)\\.\\([0-9]+\\)\\(-\\([0-9]+\\)\\.\\([0-9]+\\)\\)? \\(Error\\|Warnin\\(g\\)\\): .*" 1 (3 . 6) (4 . 7) (9))           '(sml-make-error 3 4 6 7)))
220            ;; SML/NJ's exceptions:  see above.            ;; SML/NJ's exceptions:  see above.
221            ("^ +\\(raised at: \\)?\\(.+\\):\\([0-9]+\\)\\.\\([0-9]+\\)\\(-\\([0-9]+\\)\\.\\([0-9]+\\)\\)" 2 (3 . 6) (4 . 7)))))      ("^ +\\(raised at: \\)?\\(.+\\):\\([0-9]+\\)\\.\\([0-9]+\\)\\(-\\([0-9]+\\)\\.\\([0-9]+\\)\\)" 2
222         ,@(if (fboundp 'compilation-fake-loc) ;New compile.el.
223               '((3 . 6) (4 . 7))
224             '(sml-make-error 3 4 6 7))))
225    "Alist that specifies how to match errors in compiler output.    "Alist that specifies how to match errors in compiler output.
226  See `compilation-error-regexp-alist' for a description of the format.")  See `compilation-error-regexp-alist' for a description of the format.")
227    
# Line 624  Line 626 
626    (set-marker sml-error-cursor (1- (process-mark (sml-proc))))    (set-marker sml-error-cursor (1- (process-mark (sml-proc))))
627    (setq sml-endof-error-alist nil)    (setq sml-endof-error-alist nil)
628    (compilation-forget-errors)    (compilation-forget-errors)
629    (if (fboundp 'compilation-fake-loc)    (if (and (fboundp 'compilation-fake-loc) sml-temp-file)
630        (compilation-fake-loc (cdr sml-temp-file) (car sml-temp-file)))        (compilation-fake-loc (cdr sml-temp-file) (car sml-temp-file)))
631    (if (markerp compilation-parsing-end)    (if (markerp compilation-parsing-end)
632        (set-marker compilation-parsing-end sml-error-cursor)        (set-marker compilation-parsing-end sml-error-cursor)

Legend:
Removed from v.1691  
changed lines
  Added in v.1695

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0