config/emacs
config/emacs
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Use newer p4_16-mode from jafingerhut/p4-guide

Browse Source
This commit is contained in:
Wojciech Kozlowski 2019-12-15 21:41:39 +01:00
parent 90438d3073
commit 8ed49aca41
1 changed files with 27 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
external/p4_16-mode.el vendored
View File

@ -19,29 +19,40 @@
;; Placeholder for user customization code ;; Placeholder for user customization code
(defvar p4_16-mode-hook nil) (defvar p4_16-mode-hook nil)
(defun p4_16-electric-brace (arg)
"Insert a brace."
(interactive "*P")
(self-insert-command (prefix-numeric-value arg))
(save-excursion
(move-beginning-of-line nil)
(indent-for-tab-command)))
;; Define the keymap (for now it is pretty much default) ;; Define the keymap (for now it is pretty much default)
(defvar p4_16-mode-map (defvar p4_16-mode-map
(let ((map (make-keymap))) (let ((map (make-keymap)))
(define-key map "\C-j" 'newline-and-indent) (define-key map "\C-j" 'newline-and-indent)
(define-key map "{" 'p4_16-electric-brace)
(define-key map "}" 'p4_16-electric-brace)
(define-key map "\C-c\C-c" 'comment-region)
map) map)
"Keymap for P4_16 major mode") "Keymap for P4_16 major mode")
;; Syntactic HighLighting ;; Syntactic HighLighting
;; Main keywors (declarations and operators) ;; Main keywors (declarations and operators)
(setq p4_16-keywords (setq p4_16-keywords
'("action" "apply" '("action" "apply"
"control" "control"
"default" "default"
"else" "enum" "extern" "exit" "else" "enum" "extern" "exit"
"header" "header_union" "header" "header_union"
"if" "if"
"match_kind" "match_kind"
"package" "parser" "package" "parser"
"return" "return"
"select" "state" "struct" "switch" "select" "state" "struct" "switch"
"table" "transition" "tuple" "typedef" "table" "transition" "tuple" "typedef" "type"
"verify" "verify"
)) ))
(setq p4_16-annotations (setq p4_16-annotations
@ -50,14 +61,14 @@
(setq p4_16-attributes (setq p4_16-attributes
'("const" "in" "inout" "out" '("const" "in" "inout" "out"
;; Tables ;; Tables
"key" "actions" "default_action" "entries" "implementation" "key" "actions" "default_action" "entries" "implementation"
"counters" "meters" "counters" "meters"
)) ))
(setq p4_16-variables (setq p4_16-variables
'("packet_in" "packet_out" '("packet_in" "packet_out"
)) ))
(setq p4_16-operations (setq p4_16-operations
'("&&&" ".." "++" "?" ":")) '("&&&" ".." "++" "?" ":"))
@ -97,7 +108,7 @@
)) ))
(setq p4_16-cpp (setq p4_16-cpp
'("#include" '("#include"
"#define" "#undef" "#define" "#undef"
"#if" "#ifdef" "#ifndef" "#if" "#ifdef" "#ifndef"
"#elif" "#else" "#elif" "#else"
@ -209,14 +220,19 @@
(set-syntax-table p4_16-mode-syntax-table) (set-syntax-table p4_16-mode-syntax-table)
(use-local-map p4_16-mode-map) (use-local-map p4_16-mode-map)
(set (make-local-variable 'font-lock-defaults) '(p4_16-font-lock-keywords)) (set (make-local-variable 'font-lock-defaults) '(p4_16-font-lock-keywords))
(set (make-local-variable 'indent-line-function) 'p4_16-indent-line) (set (make-local-variable 'indent-line-function) 'p4_16-indent-line)
(setq major-mode 'p4_16-mode) (setq major-mode 'p4_16-mode)
(setq mode-name "P4_16") (setq mode-name "P4_16")
(setq imenu-generic-expression p4_16-imenu-generic-expression) (setq imenu-generic-expression p4_16-imenu-generic-expression)
;; Setting this to nil causes indentation to use only space
;; characters, never tabs.
(setq indent-tabs-mode nil)
(setq comment-start "// ")
(setq comment-end "")
(imenu-add-to-menubar "P4_16") (imenu-add-to-menubar "P4_16")
(cscope-minor-mode) (cscope-minor-mode)
(run-hooks 'p4_16-mode-hook) (run-hooks 'p4_16-mode-hook)
) )
;; The most important line ;; The most important line
(provide 'p4_16-mode) (provide 'p4_16-mode)