mirror of
https://github.com/RPCS3/llvm-mirror.git
synced 2024-12-28 14:36:34 +00:00
94281a5c22
they appear in words. This would cause things like the "128" in "VR128" to be highlighted. This patch fixes the highlighting by only recognizing constants when they have word breaks around them.' Patch by Stefanus Du Toit! llvm-svn: 53944
123 lines
4.8 KiB
EmacsLisp
123 lines
4.8 KiB
EmacsLisp
;; Maintainer: The LLVM team, http://llvm.org/
|
|
;; Description: Major mode for TableGen description files (part of LLVM project)
|
|
;; Updated: 2007-12-18
|
|
|
|
(require 'comint)
|
|
(require 'custom)
|
|
(require 'ansi-color)
|
|
|
|
;; Create mode-specific tables.
|
|
(defvar td-decorators-face 'td-decorators-face
|
|
"Face method decorators.")
|
|
(make-face 'td-decorators-face)
|
|
|
|
(defvar tablegen-font-lock-keywords
|
|
(let ((kw (mapconcat 'identity
|
|
'("class" "defm" "def" "field" "include" "in"
|
|
"let" "multiclass")
|
|
"\\|"))
|
|
(type-kw (mapconcat 'identity
|
|
'("bit" "bits" "code" "dag" "int" "list" "string")
|
|
"\\|"))
|
|
)
|
|
(list
|
|
;; Comments
|
|
;; '("\/\/" . font-lock-comment-face)
|
|
;; Strings
|
|
'("\"[^\"]+\"" . font-lock-string-face)
|
|
;; Hex constants
|
|
'("\\<0x[0-9A-Fa-f]+\\>" . font-lock-preprocessor-face)
|
|
;; Binary constants
|
|
'("\\<0b[01]+\\>" . font-lock-preprocessor-face)
|
|
;; Integer literals
|
|
'("\\<[-]?[0-9]+\\>" . font-lock-preprocessor-face)
|
|
;; Floating point constants
|
|
'("\\<[-+]?[0-9]+\.[0-9]*\([eE][-+]?[0-9]+\)?\\>" . font-lock-preprocessor-face)
|
|
|
|
'("^[ \t]*\\(@.+\\)" 1 'td-decorators-face)
|
|
;; Keywords
|
|
(cons (concat "\\<\\(" kw "\\)\\>[ \n\t(]") 1)
|
|
|
|
;; Type keywords
|
|
(cons (concat "\\<\\(" type-kw "\\)[ \n\t(]") 1)
|
|
))
|
|
"Additional expressions to highlight in TableGen mode.")
|
|
(put 'tablegen-mode 'font-lock-defaults '(tablegen-font-lock-keywords))
|
|
|
|
;; ---------------------- Syntax table ---------------------------
|
|
;; Shamelessly ripped from jasmin.el
|
|
;; URL: http://www.neilvandyke.org/jasmin-emacs/jasmin.el
|
|
|
|
(defvar tablegen-mode-syntax-table nil
|
|
"Syntax table used in `tablegen-mode' buffers.")
|
|
(when (not tablegen-mode-syntax-table)
|
|
(setq tablegen-mode-syntax-table (make-syntax-table))
|
|
;; whitespace (` ')
|
|
(modify-syntax-entry ?\ " " tablegen-mode-syntax-table)
|
|
(modify-syntax-entry ?\t " " tablegen-mode-syntax-table)
|
|
(modify-syntax-entry ?\r " " tablegen-mode-syntax-table)
|
|
(modify-syntax-entry ?\n " " tablegen-mode-syntax-table)
|
|
(modify-syntax-entry ?\f " " tablegen-mode-syntax-table)
|
|
;; word constituents (`w')
|
|
(modify-syntax-entry ?\% "w" tablegen-mode-syntax-table)
|
|
(modify-syntax-entry ?\_ "w" tablegen-mode-syntax-table)
|
|
;; comments
|
|
(modify-syntax-entry ?/ ". 124b" tablegen-mode-syntax-table)
|
|
(modify-syntax-entry ?* ". 23" tablegen-mode-syntax-table)
|
|
(modify-syntax-entry ?\n "> b" tablegen-mode-syntax-table)
|
|
;; open paren (`(')
|
|
(modify-syntax-entry ?\( "(" tablegen-mode-syntax-table)
|
|
(modify-syntax-entry ?\[ "(" tablegen-mode-syntax-table)
|
|
(modify-syntax-entry ?\{ "(" tablegen-mode-syntax-table)
|
|
(modify-syntax-entry ?\< "(" tablegen-mode-syntax-table)
|
|
;; close paren (`)')
|
|
(modify-syntax-entry ?\) ")" tablegen-mode-syntax-table)
|
|
(modify-syntax-entry ?\] ")" tablegen-mode-syntax-table)
|
|
(modify-syntax-entry ?\} ")" tablegen-mode-syntax-table)
|
|
(modify-syntax-entry ?\> ")" tablegen-mode-syntax-table)
|
|
;; string quote ('"')
|
|
(modify-syntax-entry ?\" "\"" tablegen-mode-syntax-table)
|
|
)
|
|
|
|
;; --------------------- Abbrev table -----------------------------
|
|
|
|
(defvar tablegen-mode-abbrev-table nil
|
|
"Abbrev table used while in TableGen mode.")
|
|
(define-abbrev-table 'tablegen-mode-abbrev-table ())
|
|
|
|
(defvar tablegen-mode-hook nil)
|
|
(defvar tablegen-mode-map nil) ; Create a mode-specific keymap.
|
|
|
|
(if (not tablegen-mode-map)
|
|
() ; Do not change the keymap if it is already set up.
|
|
(setq tablegen-mode-map (make-sparse-keymap))
|
|
(define-key tablegen-mode-map "\t" 'tab-to-tab-stop)
|
|
(define-key tablegen-mode-map "\es" 'center-line)
|
|
(define-key tablegen-mode-map "\eS" 'center-paragraph))
|
|
|
|
(defun tablegen-mode ()
|
|
"Major mode for editing TableGen description files.
|
|
\\{tablegen-mode-map}
|
|
Runs tablegen-mode-hook on startup."
|
|
(interactive)
|
|
(kill-all-local-variables)
|
|
(use-local-map tablegen-mode-map) ; Provides the local keymap.
|
|
(make-local-variable 'font-lock-defaults)
|
|
(setq major-mode 'tablegen-mode ; This is how describe-mode
|
|
; finds the doc string to print.
|
|
mode-name "TableGen" ; This name goes into the modeline.
|
|
local-abbrev-table tablegen-mode-abbrev-table
|
|
font-lock-defaults `(tablegen-font-lock-keywords)
|
|
require-final-newline t
|
|
)
|
|
|
|
(set-syntax-table tablegen-mode-syntax-table)
|
|
(run-hooks 'tablegen-mode-hook)) ; Finally, this permits the user to
|
|
; customize the mode with a hook.
|
|
|
|
;; Associate .td files with tablegen-mode
|
|
(setq auto-mode-alist (append '(("\\.td$" . tablegen-mode)) auto-mode-alist))
|
|
|
|
(provide 'tablegen-mode)
|
|
;; end of tablegen-mode.el
|