Show only the matching closing parenthesis, flashing entire expression is irritating.
;;; iar-linker-config-mode.el --- major mode for highlighting IAR Embedded Workbench 4.x linker scripts
;;; Commentary:
;;
;; Very poor highlighting, not all syntax is covered.
;;; Code:
;;;###autoload
(define-generic-mode iar4-linker-config-mode
'("// " ("/*" . "*/"))
nil
'(
("^\\(-c\\)\\([_a-zA-Z]+\\)"
(1 font-lock-keyword-face)
(2 font-lock-variable-name-face) )
("^\\(-D\\)\\([_a-zA-Z0-9]+\\)=\\(\\(0x\\)?[0-9a-fA-F]+\\|.[0-9]+\\)"
(1 font-lock-keyword-face)
(2 font-lock-variable-name-face)
(3 font-lock-constant-face) )
("^\\(-Q\\)\\([_a-zA-Z]+\\)=\\([_a-zA-Z]+\\)"
(1 font-lock-keyword-face)
(2 font-lock-variable-name-face)
(3 font-lock-variable-name-face) )
("^\\(-Z\\|-P\\|-b\\)(\\([_a-zA-Z]+\\))\\([_a-zA-Z]+\\)="
(1 font-lock-keyword-face)
(2 font-lock-variable-name-face)
(3 font-lock-variable-name-face) )
("^\\(-Z\\|-P\\|-b\\)(\\([_a-zA-Z]+\\))\\([_a-zA-Z]+\\)\\+\\([_a-zA-Z]+\\)="
(1 font-lock-keyword-face)
(2 font-lock-variable-name-face)
(3 font-lock-variable-name-face)
(4 font-lock-variable-name-face) )
)
(list "\\.\\(xcl\\)\\'")
(list
(lambda () (setq comment-start "// " comment-end ""))
)
"Generic mode for iar linker config files.")
(provide 'iar4-linker-config-mode)
;;; iar4-linker-config-mode.el ends here