mirror of
https://github.com/c64scene-ar/llvm-6502.git
synced 2024-07-02 22:30:36 +00:00
* 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
This commit is contained in:
Misha Brukman
parent
2a09877519
commit
bdb41194dd
27
utils/emacs/README
Normal file
27
utils/emacs/README
Normal file
|
|
@ -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
|
||||
<llvmbugs [at] cs.uiuc.edu>; if you wish to provide a patch to improve the
|
||||
functionality, it will be most appreciated. Thank you.
|
||||
|
|
@ -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
|
||||
|
|
|
|||
114
utils/emacs/tablegen-mode.el
Normal file
114
utils/emacs/tablegen-mode.el
Normal file
|
|
@ -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
|
||||
Loading…
Reference in New Issue
Block a user