mylisp-obsolete/iar4-linker-config-mode.el
author Oleksandr Gavenko <gavenkoa@gmail.com>
Wed, 04 Aug 2021 16:37:20 +0300
changeset 1742 50d48406e1ba
parent 1718 9d72f4424570
permissions -rw-r--r--
Fix for dired in TRAMP: in Cygwin I rely on external ls by setting ls-lisp-use-insert-directory-program to "t" (so Emacs won't crash when access P9 mounted WSL paths). Seems some switches broke TRAMP.

;;; 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