1;;; llvm-mir-mode.el --- Major mode for LLVM Machine IR 2 3;; Maintainer: The LLVM team, http://llvm.org/ 4;; Version: 1.0 5 6;;; Commentary: 7 8;; Major mode for editing LLVM MIR files. 9 10;;; Code: 11 12(require 'llvm-mode) 13 14(defvar llvm-mir-mode-map 15 (let ((map (make-sparse-keymap))) 16 map) 17 "Keymap for `llvm-mir-mode'.") 18 19(defvar llvm-mir-mode-syntax-table 20 (let ((st (make-syntax-table))) 21 (modify-syntax-entry ?% "_" st) 22 (modify-syntax-entry ?$ "_" st) 23 (modify-syntax-entry ?. "_" st) 24 (modify-syntax-entry ?# "< " st) 25 (modify-syntax-entry ?\; "< " st) 26 (modify-syntax-entry ?\n "> " st) 27 st) 28 "Syntax table for `llvm-mir-mode'.") 29 30(defvar llvm-mir-font-lock-keywords 31 (append 32 (list 33 ; YAML Attributes 34 '("^name: +\\([a-zA-Z._][-a-zA-Z._0-9]*\\)" 35 1 font-lock-function-name-face) 36 '("^body: +|" . font-lock-keyword-face) 37 '("^[a-zA-Z_.][-a-zA-Z._0-9]*:" . font-lock-keyword-face) 38 `(,(regexp-opt '("true" "false")) . font-lock-constant-face) 39 ; YAML separators 40 '("^\\(---\\( |\\)?\\|\\.\\.\\.\\)$" . font-lock-comment-face) 41 ; Registers 42 '("%[a-zA-Z_.][-a-zA-Z._0-9]*" . font-lock-variable-name-face) 43 '("%[0-9]+\\(\\.[a-zA-Z._0-9]+\\)?" . font-lock-variable-name-face) 44 '("$[a-zA-Z_.][-a-zA-Z._0-9]*" . font-lock-constant-face) 45 ; Register classes 46 `(,(concat 47 "%\\([a-zA-Z_.][-a-zA-Z._0-9]*\\|[0-9]+\\(\\.[a-zA-Z._0-9]+\\)?\\)" 48 "\\(:[a-zA-Z_.][-a-zA-Z._0-9]*\\)") 49 3 font-lock-type-face) 50 '("class: \\([a-zA-Z_.][-a-zA-Z._0-9]*\\)" 1 font-lock-type-face) 51 ; MO Register flags 52 `(,(regexp-opt '("dead" "debug-use" "def" "early-clobber" "implicit" 53 "implicit-def" "internal" "killed" "renamable" "undef") 54 'symbols) 55 . font-lock-keyword-face)) 56 llvm-font-lock-keywords) 57 "Keyword highlighting specification for `llvm-mir-mode'.") 58 59;;;###autoload 60(define-derived-mode llvm-mir-mode prog-mode "LLVM MIR" 61 "A major mode for editing LLVM MIR files." 62 (setq-local comment-start "; ") 63 (setq-local font-lock-defaults `(llvm-mir-font-lock-keywords))) 64 65;;;###autoload 66(add-to-list 'auto-mode-alist (cons "\\.mir\\'" 'llvm-mir-mode)) 67 68(provide 'llvm-mir-mode) 69 70;;; llvm-mir-mode.el ends here 71