Reid Spencer | 9dce2b3 | 2006-03-14 05:54:52 +0000 | [diff] [blame] | 1 | ;; Maintainer: The LLVM team, http://llvm.org/ |
Misha Brukman | f77ed7a | 2003-06-03 00:57:41 +0000 | [diff] [blame] | 2 | ;; Description: Major mode for the LLVM assembler language. |
Anton Korobeynikov | a98c7b3 | 2007-10-19 16:54:13 +0000 | [diff] [blame] | 3 | ;; Updated: 2007-09-19 |
Misha Brukman | d9b11cf | 2002-10-09 00:30:20 +0000 | [diff] [blame] | 4 | |
| 5 | ;; Create mode-specific tables. |
| 6 | (defvar llvm-mode-syntax-table nil |
| 7 | "Syntax table used while in LLVM mode.") |
| 8 | |
| 9 | (defvar llvm-font-lock-keywords |
| 10 | (list |
| 11 | ;; Comments |
| 12 | '(";.*" . font-lock-comment-face) |
| 13 | ;; Variables |
| 14 | '("%[-a-zA-Z$\._][-a-zA-Z$\._0-9]*" . font-lock-variable-name-face) |
| 15 | ;; Labels |
| 16 | '("[-a-zA-Z$\._0-9]+:" . font-lock-variable-name-face) |
| 17 | ;; Strings |
| 18 | '("\"[^\"]+\"" . font-lock-string-face) |
| 19 | ;; Unnamed variable slots |
| 20 | '("%[-]?[0-9]+" . font-lock-variable-name-face) |
Misha Brukman | d9b11cf | 2002-10-09 00:30:20 +0000 | [diff] [blame] | 21 | ;; Types |
Anton Korobeynikov | a98c7b3 | 2007-10-19 16:54:13 +0000 | [diff] [blame] | 22 | '("\\bvoid\\b\\|\\bi[0-9]+\\b\\|\\float\\b\\|\\bdouble\\b\\|\\btype\\b\\|\\blabel\\b\\|\\bopaque\\b" . font-lock-type-face) |
| 23 | ;; Integer literals |
| 24 | '("\\b[-]?[0-9]+\\b" . font-lock-preprocessor-face) |
| 25 | ;; Floating point constants |
| 26 | '("\\b[-+]?[0-9]+\.[0-9]*\([eE][-+]?[0-9]+\)?\\b" . font-lock-preprocessor-face) |
| 27 | ;; Hex constants |
| 28 | '("\\b0x[0-9A-Fa-f]+\\b" . font-lock-preprocessor-face) |
| 29 | ;; Keywords |
| 30 | '("\\bbegin\\b\\|\\bend\\b\\|\\btrue\\b\\|\\bfalse\\b\\|\\bzeroinitializer\\b\\|\\bdeclare\\b\\|\\bdefine\\b\\|\\bglobal\\b\\|\\bconstant\\b\\|\\bconst\\b\\|\\binternal\\b\\|\\blinkonce\\b\\|\\bweak\\b\\|\\bappending\\b\\|\\buninitialized\\b\\|\\bimplementation\\b\\|\\b\\.\\.\\.\\b\\|\\bnull\\b\\|\\bundef\\b\\|\\bto\\b\\|\\bexcept\\b\\|\\bnot\\b\\|\\btarget\\b\\|\\bendian\\b\\|\\blittle\\b\\|\\bbig\\b\\|\\bpointersize\\b\\|\\bdeplibs\\b\\|\\bvolatile\\b\\|\\bfastcc\\b\\|\\bcoldcc\\b\\|\\bcc\\b" . font-lock-keyword-face) |
Misha Brukman | d9b11cf | 2002-10-09 00:30:20 +0000 | [diff] [blame] | 31 | ;; Arithmetic and Logical Operators |
Anton Korobeynikov | a98c7b3 | 2007-10-19 16:54:13 +0000 | [diff] [blame] | 32 | '("\\badd\\b\\|\\bsub\\b\\|\\bmul\\b\\|\\bdiv\\b\\|\\brem\\b\\|\\band\\b\\|\\bor\\b\\|\\bxor\\b\\|\\bset\\(ne\\b\\|\\beq\\b\\|\\blt\\b\\|\\bgt\\b\\|\\ble\\b\\|\\bge\\b\\)" . font-lock-keyword-face) |
Misha Brukman | d9b11cf | 2002-10-09 00:30:20 +0000 | [diff] [blame] | 33 | ;; Special instructions |
Anton Korobeynikov | a98c7b3 | 2007-10-19 16:54:13 +0000 | [diff] [blame] | 34 | '("\\bphi\\b\\|\\btail\\b\\|\\bcall\\b\\|\\bcast\\b\\|\\bselect\\b\\|\\bto\\b\\|\\bshl\\b\\|\\bshr\\b\\|\\bvaarg\\b\\|\\bvanext\\b" . font-lock-keyword-face) |
Misha Brukman | d9b11cf | 2002-10-09 00:30:20 +0000 | [diff] [blame] | 35 | ;; Control instructions |
Anton Korobeynikov | a98c7b3 | 2007-10-19 16:54:13 +0000 | [diff] [blame] | 36 | '("\\bret\\b\\|\\bbr\\b\\|\\bswitch\\b\\|\\binvoke\\b\\|\\bunwind\\b\\|\\bunreachable\\b" . font-lock-keyword-face) |
Misha Brukman | d9b11cf | 2002-10-09 00:30:20 +0000 | [diff] [blame] | 37 | ;; Memory operators |
Anton Korobeynikov | a98c7b3 | 2007-10-19 16:54:13 +0000 | [diff] [blame] | 38 | '("\\bmalloc\\b\\|\\balloca\\b\\|\\bfree\\b\\|\\bload\\b\\|\\bstore\\b\\|\\bgetelementptr\\b" . font-lock-keyword-face) |
Misha Brukman | d9b11cf | 2002-10-09 00:30:20 +0000 | [diff] [blame] | 39 | ) |
| 40 | "Syntax highlighting for LLVM" |
| 41 | ) |
| 42 | |
| 43 | ;; ---------------------- Syntax table --------------------------- |
| 44 | ;; Shamelessly ripped from jasmin.el |
| 45 | ;; URL: http://www.neilvandyke.org/jasmin-emacs/jasmin.el.html |
| 46 | |
| 47 | (if (not llvm-mode-syntax-table) |
| 48 | (progn |
| 49 | (setq llvm-mode-syntax-table (make-syntax-table)) |
| 50 | (mapcar (function (lambda (n) |
| 51 | (modify-syntax-entry (aref n 0) |
| 52 | (aref n 1) |
| 53 | llvm-mode-syntax-table))) |
| 54 | '( |
| 55 | ;; whitespace (` ') |
| 56 | [?\^m " "] |
| 57 | [?\f " "] |
| 58 | [?\n " "] |
| 59 | [?\t " "] |
| 60 | [?\ " "] |
| 61 | ;; word constituents (`w') |
| 62 | ;;[?< "w"] |
| 63 | ;;[?> "w"] |
| 64 | [?\% "w"] |
| 65 | ;;[?_ "w "] |
| 66 | ;; comments |
| 67 | [?\; "< "] |
| 68 | [?\n "> "] |
| 69 | ;;[?\r "> "] |
| 70 | ;;[?\^m "> "] |
| 71 | ;; symbol constituents (`_') |
| 72 | ;; punctuation (`.') |
| 73 | ;; open paren (`(') |
| 74 | [?\( "("] |
| 75 | [?\[ "("] |
| 76 | [?\{ "("] |
| 77 | ;; close paren (`)') |
| 78 | [?\) ")"] |
| 79 | [?\] ")"] |
| 80 | [?\} ")"] |
| 81 | ;; string quote ('"') |
| 82 | [?\" "\""] |
| 83 | )))) |
| 84 | |
| 85 | ;; --------------------- Abbrev table ----------------------------- |
| 86 | |
| 87 | (defvar llvm-mode-abbrev-table nil |
| 88 | "Abbrev table used while in LLVM mode.") |
| 89 | (define-abbrev-table 'llvm-mode-abbrev-table ()) |
| 90 | |
| 91 | (defvar llvm-mode-hook nil) |
| 92 | (defvar llvm-mode-map nil) ; Create a mode-specific keymap. |
| 93 | |
| 94 | (if (not llvm-mode-map) |
| 95 | () ; Do not change the keymap if it is already set up. |
| 96 | (setq llvm-mode-map (make-sparse-keymap)) |
| 97 | (define-key llvm-mode-map "\t" 'tab-to-tab-stop) |
| 98 | (define-key llvm-mode-map "\es" 'center-line) |
| 99 | (define-key llvm-mode-map "\eS" 'center-paragraph)) |
| 100 | |
| 101 | |
| 102 | (defun llvm-mode () |
| 103 | "Major mode for editing LLVM source files. |
| 104 | \\{llvm-mode-map} |
| 105 | Runs llvm-mode-hook on startup." |
| 106 | (interactive) |
| 107 | (kill-all-local-variables) |
| 108 | (use-local-map llvm-mode-map) ; Provides the local keymap. |
| 109 | (setq major-mode 'llvm-mode) |
| 110 | |
Misha Brukman | 7f12bbb | 2004-09-28 21:46:18 +0000 | [diff] [blame] | 111 | (make-local-variable 'font-lock-defaults) |
Misha Brukman | d9b11cf | 2002-10-09 00:30:20 +0000 | [diff] [blame] | 112 | (setq major-mode 'llvm-mode ; This is how describe-mode |
| 113 | ; finds the doc string to print. |
Misha Brukman | 7f12bbb | 2004-09-28 21:46:18 +0000 | [diff] [blame] | 114 | mode-name "LLVM" ; This name goes into the modeline. |
| 115 | font-lock-defaults `(llvm-font-lock-keywords)) |
Misha Brukman | d9b11cf | 2002-10-09 00:30:20 +0000 | [diff] [blame] | 116 | |
| 117 | (setq local-abbrev-table llvm-mode-abbrev-table) |
| 118 | (set-syntax-table llvm-mode-syntax-table) |
Anton Korobeynikov | a98c7b3 | 2007-10-19 16:54:13 +0000 | [diff] [blame] | 119 | (setq comment-start ";") |
Misha Brukman | d9b11cf | 2002-10-09 00:30:20 +0000 | [diff] [blame] | 120 | (run-hooks 'llvm-mode-hook)) ; Finally, this permits the user to |
| 121 | ; customize the mode with a hook. |
| 122 | |
| 123 | ;; Associate .ll files with llvm-mode |
| 124 | (setq auto-mode-alist |
Misha Brukman | bdb4119 | 2003-08-11 19:10:02 +0000 | [diff] [blame] | 125 | (append '(("\\.ll$" . llvm-mode) ("\\.llx$" . llvm-mode)) auto-mode-alist)) |
Misha Brukman | d9b11cf | 2002-10-09 00:30:20 +0000 | [diff] [blame] | 126 | |
| 127 | (provide 'llvm-mode) |
| 128 | ;; end of llvm-mode.el |