;ELC   
;;; compiled by cline@apl.fox.cs.cmu.edu on Thu Nov 21 20:45:04 1996
;;; from file /afs/cs/user/cline/lib/emacs/sml/sml-smlnj.el
;;; emacs version 19.27.1.
;;; bytecomp version FSF 2.10
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs 18.

(if (and (boundp 'emacs-version)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19")))
    (error "`/afs/cs/user/cline/lib/emacs/sml/sml-smlnj.el' was compiled for Emacs 19"))

(require (quote sml-proc))
(defvar sml-smlnj-error-regexp "^.+:[0-9]+\\.[0-9]+.+\\(Error\\|Warning\\):" "\
*Default regexp matching SML/NJ error and warning messages.")
(defalias 'sml-smlnj-error-parser #[(pt) "ŠbˆÁÂ!ˆÃ”… ÄÅ”Å•{!ÄÆ”Æ•{!SDÈ”È•{ÄÉ”É•{!ÄÊ”Ê•{!SE¤*‡" [pt re-search-forward "^[-= ]*\\(.+\\):\\([0-9]+\\)\\.\\([0-9]+\\)\\(-\\([0-9]+\\)\\.\\([0-9]+\\)\\)?.+\\(Error\\|Warning\\):" 4 string-to-int 5 6 tail 1 2 3] 5 "\
This function parses an SML/NJ error message into a 3 or 5 element list:
  (file start-line start-col [end-line end-col])

Error interaction has several limitations:

- It won't work for text entered at the prompt (read from std_in)
  because the SML/NJ system currently (0.93) does not report line 
  numbers correctly.

- This means that source sent via sml-send-region must communicate
  with the inferior ML process via temp files, not by stuffing
  the source down the pty. (See variable sml-temp-threshold.)"])
(defalias 'sml-smlnj #[nil "ÀÁÂ\"‰ÅÇÉ\nË\fÏÑ\")‡" [read-string "Command name: " "sml" cmd sml-program-name "" sml-default-arg "use \"%s\"" sml-use-command "System.Directory.cd \"%s\"" sml-cd-command "^[-=] *" sml-prompt-regexp sml-smlnj-error-regexp sml-error-regexp sml-smlnj-error-parser sml-error-parser sml-run] 4 "\
Set up and run Standard ML of New Jersey.
Note: defaults set here will be clobbered if you setq them in the
{inferior-}sml-mode-hook.

 sml-program-name  <option>
 sml-default-arg   \"\"
 sml-use-command   \"use \\\"%s\\\"\"
 sml-cd-command    \"System.Directory.cd \\\"%s\\\"\"
 sml-prompt-regexp \"^[\\-=] *\"
 sml-error-regexp  sml-sml-nj-error-regexp
 sml-error-parser  'sml-sml-nj-error-parser" nil])