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 377, Wed Jul 7 06:55:18 1999 UTC revision 378, Wed Jul 7 14:45:42 1999 UTC
# Line 234  Line 234 
234      ("\\(Error\\|Warning:\\) in '\\(.+\\)', line \\([0-9]+\\)" 2 3)      ("\\(Error\\|Warning:\\) in '\\(.+\\)', line \\([0-9]+\\)" 2 3)
235      ;; Moscow ML      ;; Moscow ML
236      ("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)
237      ;; SML/NJ:  the file-pattern is restricted to no-spaces to avoid      ;; SML/NJ:  the file-pattern is anchored to avoid
238      ;; pathological behavior with very long lines.      ;; pathological behavior with very long lines.
239      ("^[-= ]*\\([^ ]+\\):\\([0-9]+\\)\\.\\([0-9]+\\)\\(-\\([0-9]+\\)\\.\\([0-9]+\\)\\)? \\(Error\\|Warning\\): .*" 1 sml-make-error 2 3 5 6)      ("^[-= ]*\\(.+\\):\\([0-9]+\\)\\.\\([0-9]+\\)\\(-\\([0-9]+\\)\\.\\([0-9]+\\)\\)? \\(Error\\|Warning\\): .*" 1 sml-make-error 2 3 5 6)
240      ;; SML/NJ's exceptions:  see above.      ;; SML/NJ's exceptions:  see above.
241      ("^ +\\(raised at: \\)?\\([^ ]+\\):\\([0-9]+\\)\\.\\([0-9]+\\)\\(-\\([0-9]+\\)\\.\\([0-9]+\\)\\)" 2 sml-make-error 3 4 6 7)))      ("^ +\\(raised at: \\)?\\(.+\\):\\([0-9]+\\)\\.\\([0-9]+\\)\\(-\\([0-9]+\\)\\.\\([0-9]+\\)\\)" 2 sml-make-error 3 4 6 7)))
242    
243  (defvar sml-error-regexp nil  (defvar sml-error-regexp nil
244    "*Regexp for matching \(the start of\) an error message.")    "*Regexp for matching \(the start of\) an error message.")
# Line 283  Line 283 
283  ;; buffer-local  ;; buffer-local
284    
285  (defvar sml-temp-file nil)  (defvar sml-temp-file nil)
286  (defvar sml-error-file nil)             ; file from which the last error came  ;;(defvar sml-error-file nil)             ; file from which the last error came
287  (defvar sml-error-cursor nil)           ;   ditto  (defvar sml-error-cursor nil)           ;   ditto
288    
289  (defun sml-proc-buffer ()  (defun sml-proc-buffer ()
# Line 678  Line 678 
678    (set-marker sml-error-cursor (1- (process-mark (sml-proc))))    (set-marker sml-error-cursor (1- (process-mark (sml-proc))))
679    (setq sml-endof-error-alist nil)    (setq sml-endof-error-alist nil)
680    (compilation-forget-errors)    (compilation-forget-errors)
681    (setq compilation-parsing-end sml-error-cursor))    (if (markerp compilation-parsing-end)
682          (set-marker compilation-parsing-end sml-error-cursor)
683        (setq compilation-parsing-end sml-error-cursor)))
684    
685  (defun sml-make-error (f c)  (defun sml-make-error (f c)
686    (let ((err (point-marker))    (let ((err (point-marker))

Legend:
Removed from v.377  
changed lines
  Added in v.378

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