Lines Matching full:mode
1 ;;; tablegen-mode.el --- Major mode for TableGen description files (part of LLVM project)
6 ;; A major mode for TableGen description files in LLVM.
12 ;; Create mode-specific tables.
47 "Additional expressions to highlight in TableGen mode.")
48 (put 'tablegen-mode 'font-lock-defaults '(tablegen-font-lock-keywords))
52 (defvar tablegen-mode-syntax-table nil
53 "Syntax table used in `tablegen-mode' buffers.")
54 (when (not tablegen-mode-syntax-table)
55 (setq tablegen-mode-syntax-table (make-syntax-table))
57 (modify-syntax-entry ?\ " " tablegen-mode-syntax-table)
58 (modify-syntax-entry ?\t " " tablegen-mode-syntax-table)
59 (modify-syntax-entry ?\r " " tablegen-mode-syntax-table)
60 (modify-syntax-entry ?\n " " tablegen-mode-syntax-table)
61 (modify-syntax-entry ?\f " " tablegen-mode-syntax-table)
63 (modify-syntax-entry ?\% "w" tablegen-mode-syntax-table)
64 (modify-syntax-entry ?\_ "w" tablegen-mode-syntax-table)
66 (modify-syntax-entry ?/ ". 124b" tablegen-mode-syntax-table)
67 (modify-syntax-entry ?* ". 23" tablegen-mode-syntax-table)
68 (modify-syntax-entry ?\n "> b" tablegen-mode-syntax-table)
70 (modify-syntax-entry ?\( "(" tablegen-mode-syntax-table)
71 (modify-syntax-entry ?\[ "(" tablegen-mode-syntax-table)
72 (modify-syntax-entry ?\{ "(" tablegen-mode-syntax-table)
73 (modify-syntax-entry ?\< "(" tablegen-mode-syntax-table)
75 (modify-syntax-entry ?\) ")" tablegen-mode-syntax-table)
76 (modify-syntax-entry ?\] ")" tablegen-mode-syntax-table)
77 (modify-syntax-entry ?\} ")" tablegen-mode-syntax-table)
78 (modify-syntax-entry ?\> ")" tablegen-mode-syntax-table)
80 (modify-syntax-entry ?\" "\"" tablegen-mode-syntax-table)
85 (defvar tablegen-mode-abbrev-table nil
86 "Abbrev table used while in TableGen mode.")
87 (define-abbrev-table 'tablegen-mode-abbrev-table ())
89 (defvar tablegen-mode-hook nil)
90 (defvar tablegen-mode-map nil) ; Create a mode-specific keymap.
92 (if (not tablegen-mode-map)
94 (setq tablegen-mode-map (make-sparse-keymap))
95 (define-key tablegen-mode-map "\t" 'tab-to-tab-stop)
96 (define-key tablegen-mode-map "\es" 'center-line)
97 (define-key tablegen-mode-map "\eS" 'center-paragraph))
100 (defun tablegen-mode ()
101 "Major mode for editing TableGen description files.
102 \\{tablegen-mode-map}
103 Runs `tablegen-mode-hook' on startup."
106 (use-local-map tablegen-mode-map) ; Provides the local keymap.
108 (setq major-mode 'tablegen-mode ; This is how describe-mode
110 mode-name "TableGen" ; This name goes into the modeline.
111 local-abbrev-table tablegen-mode-abbrev-table
116 (set-syntax-table tablegen-mode-syntax-table)
119 (setq indent-tabs-mode nil)
120 (run-hooks 'tablegen-mode-hook)) ; Finally, this permits the user to
121 ; customize the mode with a hook.
123 ;; Associate .td files with tablegen-mode
125 (add-to-list 'auto-mode-alist (cons (purecopy "\\.td\\'") 'tablegen-mode))
127 (provide 'tablegen-mode)
129 ;;; tablegen-mode.el ends here