From bdb41194dd4890dc1572d630d078708e095981f1 Mon Sep 17 00:00:00 2001 From: Misha Brukman Date: Mon, 11 Aug 2003 19:10:02 +0000 Subject: * Added (X)Emacs mode for TableGen description files * Added README that describes how to use the mode files * Associated files with .llx extension with llvm-mode git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@7738 91177308-0d34-0410-b5e6-96231b3b80d8 --- utils/emacs/README | 27 ++++++++++ utils/emacs/llvm-mode.el | 2 +- utils/emacs/tablegen-mode.el | 114 +++++++++++++++++++++++++++++++++++++++++++ 3 files changed, 142 insertions(+), 1 deletion(-) create mode 100644 utils/emacs/README create mode 100644 utils/emacs/tablegen-mode.el (limited to 'utils/emacs') diff --git a/utils/emacs/README b/utils/emacs/README new file mode 100644 index 0000000000..e83eeae4b0 --- /dev/null +++ b/utils/emacs/README @@ -0,0 +1,27 @@ +-*- llvm/utils/emacs/README -*- + +These are syntax highlighting files for the Emacs and XEmacs editors. Included +are: + +* llvm-mode.el + + Syntax highlighting mode for LLVM assembly files. To use, add this code to + your ~/.emacs : + + (setq load-path + (cons (expand-file-name "path-to-llvm/utils/emacs") load-path)) + (require 'llvm-mode) + +* tablegen-mode.el + + Syntax highlighting mode for TableGen description files. To use, add this code + to your ~/.emacs: + + (setq load-path + (cons (expand-file-name "path-to-llvm/utils/emacs") load-path)) + (require 'tablegen-mode) + + +Note: If you notice missing or incorrect syntax highlighting, please contact +; if you wish to provide a patch to improve the +functionality, it will be most appreciated. Thank you. diff --git a/utils/emacs/llvm-mode.el b/utils/emacs/llvm-mode.el index c1a317e4ad..93247cc432 100644 --- a/utils/emacs/llvm-mode.el +++ b/utils/emacs/llvm-mode.el @@ -121,7 +121,7 @@ ;; Associate .ll files with llvm-mode (setq auto-mode-alist - (append '(("\\.ll$" . llvm-mode)) auto-mode-alist)) + (append '(("\\.ll$" . llvm-mode) ("\\.llx$" . llvm-mode)) auto-mode-alist)) (provide 'llvm-mode) ;; end of llvm-mode.el diff --git a/utils/emacs/tablegen-mode.el b/utils/emacs/tablegen-mode.el new file mode 100644 index 0000000000..9d08b86b57 --- /dev/null +++ b/utils/emacs/tablegen-mode.el @@ -0,0 +1,114 @@ +;; Maintainer: The LLVM team, http://llvm.cs.uiuc.edu/ +;; Description: Major mode for TableGen description files (part of LLVM project) +;; Updated: 2003-08-11 + +;; Create mode-specific tables. +(defvar tablegen-mode-syntax-table nil + "Syntax table used while in TableGen mode.") + +(defvar tablegen-font-lock-keywords + (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) + ;; Keywords + '("include\\|def\\|let\\|in\\|code\\|dag\\|field" . font-lock-keyword-face) + ;; Types + '("class\\|int\\|string\\|list\\|bits?" . font-lock-type-face) + ) + "Syntax highlighting for TableGen" + ) + +;; ---------------------- Syntax table --------------------------- +;; Shamelessly ripped from jasmin.el +;; URL: http://www.neilvandyke.org/jasmin-emacs/jasmin.el.html + +(if (not tablegen-mode-syntax-table) + (progn + (setq tablegen-mode-syntax-table (make-syntax-table)) + (mapcar (function (lambda (n) + (modify-syntax-entry (aref n 0) + (aref n 1) + tablegen-mode-syntax-table))) + '( + ;; whitespace (` ') + [?\^m " "] + [?\f " "] + [?\n " "] + [?\t " "] + [?\ " "] + ;; word constituents (`w') + ;;[?< "w"] + ;;[?> "w"] + [?\% "w"] + ;;[?_ "w "] + ;; comments + [?\; "< "] + [?\n "> "] + ;;[?\r "> "] + ;;[?\^m "> "] + ;; symbol constituents (`_') + ;; punctuation (`.') + ;; open paren (`(') + [?\( "("] + [?\[ "("] + [?\{ "("] + ;; close paren (`)') + [?\) ")"] + [?\] ")"] + [?\} ")"] + ;; string quote ('"') + [?\" "\""] + )))) + +;; --------------------- 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. + (setq major-mode 'tablegen-mode) + + (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. + font-lock-defaults `(tablegen-font-lock-keywords)) + + (setq local-abbrev-table tablegen-mode-abbrev-table) + (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 -- cgit v1.2.3