Function: vhdl-mode-abbrev-table-init
vhdl-mode-abbrev-table-init is a byte-compiled function defined in
vhdl-mode.el.gz.
Signature
(vhdl-mode-abbrev-table-init)
Documentation
Initialize vhdl-mode-abbrev-table.
Source Code
;; Defined in /usr/src/emacs/lisp/progmodes/vhdl-mode.el.gz
(defun vhdl-mode-abbrev-table-init ()
"Initialize `vhdl-mode-abbrev-table'."
(define-abbrev-table 'vhdl-mode-abbrev-table
(append
(when (memq 'vhdl vhdl-electric-keywords)
;; VHDL'02 keywords
(mapcar (if (featurep 'xemacs)
(lambda (x) (list (car x) "" (cdr x) 0))
(lambda (x) (list (car x) "" (cdr x) 0 'system)))
'(
("--" . vhdl-template-display-comment-hook)
("abs" . vhdl-template-default-hook)
("access" . vhdl-template-default-hook)
("after" . vhdl-template-default-hook)
("alias" . vhdl-template-alias-hook)
("all" . vhdl-template-default-hook)
("and" . vhdl-template-default-hook)
("arch" . vhdl-template-architecture-hook)
("architecture" . vhdl-template-architecture-hook)
("array" . vhdl-template-default-hook)
("assert" . vhdl-template-assert-hook)
("attr" . vhdl-template-attribute-hook)
("attribute" . vhdl-template-attribute-hook)
("begin" . vhdl-template-default-indent-hook)
("block" . vhdl-template-block-hook)
("body" . vhdl-template-default-hook)
("buffer" . vhdl-template-default-hook)
("bus" . vhdl-template-default-hook)
("case" . vhdl-template-case-hook)
("comp" . vhdl-template-component-hook)
("component" . vhdl-template-component-hook)
("cond" . vhdl-template-conditional-signal-asst-hook)
("conditional" . vhdl-template-conditional-signal-asst-hook)
("conf" . vhdl-template-configuration-hook)
("configuration" . vhdl-template-configuration-hook)
("cons" . vhdl-template-constant-hook)
("constant" . vhdl-template-constant-hook)
("context" . vhdl-template-context-hook)
("disconnect" . vhdl-template-disconnect-hook)
("downto" . vhdl-template-default-hook)
("else" . vhdl-template-else-hook)
("elseif" . vhdl-template-elsif-hook)
("elsif" . vhdl-template-elsif-hook)
("end" . vhdl-template-default-indent-hook)
("entity" . vhdl-template-entity-hook)
("exit" . vhdl-template-exit-hook)
("file" . vhdl-template-file-hook)
("for" . vhdl-template-for-hook)
("func" . vhdl-template-function-hook)
("function" . vhdl-template-function-hook)
("generic" . vhdl-template-generic-hook)
("group" . vhdl-template-group-hook)
("guarded" . vhdl-template-default-hook)
("if" . vhdl-template-if-hook)
("impure" . vhdl-template-default-hook)
("in" . vhdl-template-default-hook)
("inertial" . vhdl-template-default-hook)
("inout" . vhdl-template-default-hook)
("inst" . vhdl-template-instance-hook)
("instance" . vhdl-template-instance-hook)
("is" . vhdl-template-default-hook)
("label" . vhdl-template-default-hook)
("library" . vhdl-template-library-hook)
("linkage" . vhdl-template-default-hook)
("literal" . vhdl-template-default-hook)
("loop" . vhdl-template-bare-loop-hook)
("map" . vhdl-template-map-hook)
("mod" . vhdl-template-default-hook)
("nand" . vhdl-template-default-hook)
("new" . vhdl-template-default-hook)
("next" . vhdl-template-next-hook)
("nor" . vhdl-template-default-hook)
("not" . vhdl-template-default-hook)
("null" . vhdl-template-default-hook)
("of" . vhdl-template-default-hook)
("on" . vhdl-template-default-hook)
("open" . vhdl-template-default-hook)
("or" . vhdl-template-default-hook)
("others" . vhdl-template-others-hook)
("out" . vhdl-template-default-hook)
("pack" . vhdl-template-package-hook)
("package" . vhdl-template-package-hook)
("port" . vhdl-template-port-hook)
("postponed" . vhdl-template-default-hook)
("procedure" . vhdl-template-procedure-hook)
("process" . vhdl-template-process-hook)
("pure" . vhdl-template-default-hook)
("range" . vhdl-template-default-hook)
("record" . vhdl-template-default-hook)
("register" . vhdl-template-default-hook)
("reject" . vhdl-template-default-hook)
("rem" . vhdl-template-default-hook)
("report" . vhdl-template-report-hook)
("return" . vhdl-template-return-hook)
("rol" . vhdl-template-default-hook)
("ror" . vhdl-template-default-hook)
("select" . vhdl-template-selected-signal-asst-hook)
("severity" . vhdl-template-default-hook)
("shared" . vhdl-template-default-hook)
("sig" . vhdl-template-signal-hook)
("signal" . vhdl-template-signal-hook)
("sla" . vhdl-template-default-hook)
("sll" . vhdl-template-default-hook)
("sra" . vhdl-template-default-hook)
("srl" . vhdl-template-default-hook)
("subtype" . vhdl-template-subtype-hook)
("then" . vhdl-template-default-hook)
("to" . vhdl-template-default-hook)
("transport" . vhdl-template-default-hook)
("type" . vhdl-template-type-hook)
("unaffected" . vhdl-template-default-hook)
("units" . vhdl-template-default-hook)
("until" . vhdl-template-default-hook)
("use" . vhdl-template-use-hook)
("var" . vhdl-template-variable-hook)
("variable" . vhdl-template-variable-hook)
("wait" . vhdl-template-wait-hook)
("when" . vhdl-template-when-hook)
("while" . vhdl-template-while-loop-hook)
("with" . vhdl-template-with-hook)
("xnor" . vhdl-template-default-hook)
("xor" . vhdl-template-default-hook)
)))
;; VHDL-AMS keywords
(when (and (memq 'vhdl vhdl-electric-keywords) (vhdl-standard-p 'ams))
(mapcar (if (featurep 'xemacs)
(lambda (x) (list (car x) "" (cdr x) 0))
(lambda (x) (list (car x) "" (cdr x) 0 'system)))
'(
("across" . vhdl-template-default-hook)
("break" . vhdl-template-break-hook)
("limit" . vhdl-template-limit-hook)
("nature" . vhdl-template-nature-hook)
("noise" . vhdl-template-default-hook)
("procedural" . vhdl-template-procedural-hook)
("quantity" . vhdl-template-quantity-hook)
("reference" . vhdl-template-default-hook)
("spectrum" . vhdl-template-default-hook)
("subnature" . vhdl-template-subnature-hook)
("terminal" . vhdl-template-terminal-hook)
("through" . vhdl-template-default-hook)
("tolerance" . vhdl-template-default-hook)
)))
;; user model keywords
(when (memq 'user vhdl-electric-keywords)
(let (abbrev-list keyword)
(dolist (elem vhdl-model-alist)
(setq keyword (nth 3 elem))
(unless (equal keyword "")
(push (list keyword ""
(vhdl-function-name
"vhdl-model" (nth 0 elem) "hook")
0 'system)
abbrev-list)))
abbrev-list)))))