;;; iar-linker-config-mode.el --- major mode for highlighting IAR Embedded Workbench 5.x linker scripts

;;; Commentary:

;;

;; Very poor highlighting, not all syntax is covered.

;;; Code:

;;;###autoload

(define-generic-mode iar-linker-config-mode

  '("// " ("/*" . "*/"))

  '("zeroinit" "code" "readwrite" "rw" "readonly" "ro")

  '(

    ("\\(define +symbol\\) +\\([_a-zA-Z0-9]+\\) *= *\\(0x[0-9a-fA-F]+\\);"

     (1 font-lock-keyword-face)

     (2 font-lock-variable-name-face)

     (3 font-lock-constant-face) )

    ("\\(define +memory\\) +\\([_a-zA-Z]+\\) +\\(with +size\\) = \\(0x[0-9a-fA-F]+\\|[0-9]+\\)[GMK]?;"

     (1 font-lock-keyword-face)

     (2 font-lock-variable-name-face)

     (3 font-lock-keyword-face)

     (4 font-lock-constant-face) )

    ("\\([_a-zA-Z]+\\):\\[\\(from\\) +\\([_a-zA-Z0-9]+\\) +\\(to\\|size\\) +\\([_a-zA-Z0-9]+\\)\\]"

     (1 font-lock-variable-name-face)

     (2 font-lock-keyword-face)

     (3 font-lock-variable-name-face)

     (4 font-lock-keyword-face)

     (5 font-lock-variable-name-face) )

    ("\\(define +region\\) +\\([_a-zA-Z]+\\) *="

     (1 font-lock-keyword-face)

     (2 font-lock-variable-name-face) )

    ("\\(define +block\\) +\\([_a-zA-Z]+\\) +\\(with +alignment\\) *= *[0-9]+, *\\(size\\) *= *\\([_a-zA-Z]+\\).*;"

     (1 font-lock-keyword-face)

     (2 font-lock-variable-name-face)

     (3 font-lock-keyword-face)

     (4 font-lock-keyword-face)

     (5 font-lock-variable-name-face) )

    ("\\(do +not +initialize\\) *{"

     (1 font-lock-keyword-face) )

    ("\\(place +in\\) +\\([_a-zA-Z]+\\) *{"

     (1 font-lock-keyword-face)

     (2 font-lock-variable-name-face) )

    ("\\(place +at +address\\) +\\([_a-zA-Z]+\\):\\([_a-zA-Z]+\\) *{"

     (1 font-lock-keyword-face)

     (2 font-lock-variable-name-face)

     (3 font-lock-variable-name-face) )

    ("\\(initialize by copy\\) *{"

     (1 font-lock-keyword-face) )

    ("\\(block\\|section\\) +\\([_.a-zA-Z0-9]+\\)"

     (1 font-lock-keyword-face)

     (2 font-lock-variable-name-face) )

    )

  (list "\\.\\(icf\\)\\'")

  (list

   (lambda () (setq comment-start "/* " comment-end " */"))

   )

  "Generic mode for iar linker config files.")

(provide 'iar-linker-config-mode)

;;; iar-linker-config-mode.el ends here