EmacsWiki: Fly Make for ATS

EmacsWiki: Fly Make:

'via Blog this'


Following is the ATS aka Applied Type System initialization code in Emacs lisp.

---

; ats
(defun flymake-ats-init ()
  (let* ((temp-file (flymake-init-create-temp-buffer-copy
       'flymake-create-temp-inplace))
    (local-file (file-relative-name
          temp-file
          (file-name-directory buffer-file-name))))
    (list "atscc" (list "-tc " local-file))))

(add-to-list 'flymake-allowed-file-name-masks
       '("\\.\\(d\\|s\\)ats\\'" flymake-ats-init))
(push
 '("\\(syntax error: \\)?\\([^\n:]*\\): \\[?[0-9]*(line=\\([0-9]*\\), offs=\\([0-9]*\\))\\]?\\(.*\\)?"
   2 3 4 5) flymake-err-line-patterns)