pestctrl/emacs-config
1
0
Fork 0
mirror of https://github.com/pestctrl/emacs-config.git synced 2026-02-16 16:24:18 +00:00
Code Issues Projects Releases Packages Wiki Activity

More improved asm highlighting, auto detect file type

Browse source
This commit is contained in:
Benson Chu 2022-10-19 16:48:43 -05:00
parent c1b514ed1e
commit 74462ef8ac
2 changed files with 10 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lisp/ti-config/work-asm-config.el
View file

@ -71,16 +71,18 @@
;; cpp-font-lock-keywords))
(setq asm-font-lock-keywords
`((,(rx line-start (group (= 8 (any "0-9A-f"))) " " (group (+ (or (syntax word) (syntax symbol)))) symbol-end ":")
`((,(rx line-start (group (>= 2 (any "0-9A-f"))) " " (group (+ (or (syntax word) (syntax symbol)))) symbol-end ":")
(1 font-lock-warning-face) (2 font-lock-function-name-face))
(,(rx line-start (group (= 8 (any "0-9A-f"))) ":" (+ space) (group (+ (and (= 4 (any "0-9A-f")) (+ space)))))
(,(rx line-start (group (>= 2 (any "0-9A-f"))) ":" (+ space) (group (+ (and (= 4 (any "0-9A-f")) (+ space)))))
(1 font-lock-warning-face) (2 font-lock-constant-face))
(,(rx line-start (* (+ (any "0-9A-f")) (+ (or ":" space))) (+ space) (optional "||" (+ space)) (group (+ (or (syntax word) (syntax symbol) "."))))
(,(rx line-start (* space) (* (+ (any "0-9A-f")) (+ (or ":" space))) (+ space) (optional "||" (+ space)) (group (+ (or (syntax word) (syntax symbol) "."))))
(1 font-lock-keyword-face))
(,(rx line-start (group (+ (or "." (syntax word) (syntax symbol)))) ":") (1 font-lock-function-name-face))
(,(rx "ADDR1") . font-lock-type-face)
(,(rx (or "TA" "TDM" "M" "A" "D")
(or (+ digit) ".GT" ".LT" ".EQ"))
(or (+ digit) ".GT" ".LT" ".EQ" ".HI")
(optional (or ".NZ" ".Z"))
symbol-end)
. font-lock-variable-name-face)
(,(rx "@" (optional "(") (group (optional "(") (+ (or (syntax word) (syntax symbol)))) (or ")" symbol-end)) (1 font-lock-function-name-face))
(,(rx "#" (optional "-") "0x" (+ alphanumeric)) . font-lock-constant-face)

4
lisp/ti-config/work-config.el
View file

@ -32,6 +32,10 @@
(require 'ti-debug-compile)
(require 'ti-tools-backup)
(add-to-list 'auto-mode-alist '("\\.map$" . ti-linker-map-mode))
(add-to-list 'auto-mode-alist '("\\.cdis$" . asm-mode))
(add-to-list 'auto-mode-alist '("\\.cmd$" . conf-mode))
;; (setq url-proxy-services '(("http" . "http://webproxy.ext.ti.com:80")
;; ("https" . "http://webproxy.ext.ti.com:80")))