;;; truss-mode.el --- major mode for viewing truss(1) output
;;; truss [-f -l options]

(defconst truss-font-lock-keywords
  '(
    ;; processid/threadid [-f option, -l option]
    ("^[0-9/]*:"
     0 font-lock-comment-face t)
    ;; verbose info, read/write buffers
    (":\t[ \t]+\\(.*\\)$"
     1 font-lock-comment-face t)
    ;; error returns
    ("Err#.*$"
     0 font-lock-comment-face t)
    ;; system call
    ("\t\\([a-z_][a-z_0-9]*\\)("
     1 font-lock-function-name-face t))
  "truss-mode keywords")

(put 'truss-mode 'font-lock-defaults '(truss-font-lock-keywords))

(defun truss-mode ()
  "major mode for viewing truss(1) output"
  (interactive)
  (kill-all-local-variables)
  (setq mode-name "truss")
  (setq major-mode 'truss-mode)
  (make-local-variable 'font-lock-defaults)
  (setq font-lock-defaults '(truss-font-lock-keywords)))