Function: vhdl-words-init

vhdl-words-init is a byte-compiled function defined in vhdl-mode.el.gz.

Signature

(vhdl-words-init)

Documentation

Initialize reserved words.

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/vhdl-mode.el.gz
(defun vhdl-words-init ()
  "Initialize reserved words."
  (setq vhdl-keywords
	(vhdl-upcase-list
	 (and vhdl-highlight-case-sensitive vhdl-upper-case-keywords)
	 (append vhdl-02-keywords
		 (when (vhdl-standard-p '08) vhdl-08-keywords)
		 (when (vhdl-standard-p 'ams) vhdl-ams-keywords))))
  (setq vhdl-types
	(vhdl-upcase-list
	 (and vhdl-highlight-case-sensitive vhdl-upper-case-types)
	 (append vhdl-02-types
		 (when (vhdl-standard-p '08) vhdl-08-types)
		 (when (vhdl-standard-p 'ams) vhdl-ams-types)
		 (when (vhdl-standard-p 'math) vhdl-math-types))))
  (setq vhdl-attributes
	(vhdl-upcase-list
	 (and vhdl-highlight-case-sensitive vhdl-upper-case-attributes)
	 (append vhdl-02-attributes
		 (when (vhdl-standard-p '08) vhdl-08-attributes)
		 (when (vhdl-standard-p 'ams) vhdl-ams-attributes))))
  (setq vhdl-enum-values
	(vhdl-upcase-list
	 (and vhdl-highlight-case-sensitive vhdl-upper-case-enum-values)
	 (append vhdl-02-enum-values
		 (when (vhdl-standard-p 'ams) vhdl-ams-enum-values))))
  (setq vhdl-constants
	(vhdl-upcase-list
	 (and vhdl-highlight-case-sensitive vhdl-upper-case-constants)
	 (append (when (vhdl-standard-p 'ams) vhdl-ams-constants)
		 (when (vhdl-standard-p 'math) vhdl-math-constants)
		 '(""))))
  (setq vhdl-functions
	(append vhdl-02-functions
		(when (vhdl-standard-p '08) vhdl-08-functions)
		(when (vhdl-standard-p 'ams) vhdl-ams-functions)
		(when (vhdl-standard-p 'math) vhdl-math-functions)))
  (setq vhdl-packages
	(append vhdl-02-packages
		(when (vhdl-standard-p '08) vhdl-08-packages)
		(when (vhdl-standard-p 'ams) vhdl-ams-packages)
		(when (vhdl-standard-p 'math) vhdl-math-packages)))
  (setq vhdl-directives
	(append (when (vhdl-standard-p '08) vhdl-08-directives)))
  (setq vhdl-reserved-words
	(append (when vhdl-highlight-forbidden-words vhdl-forbidden-words)
		(when vhdl-highlight-verilog-keywords vhdl-verilog-keywords)
		'("")))
  (setq vhdl-keywords-regexp
	(concat "\\<\\(" (regexp-opt vhdl-keywords) "\\)\\>"))
  (setq vhdl-types-regexp
	(concat "\\<\\(" (regexp-opt vhdl-types) "\\)\\>"))
  (setq vhdl-attributes-regexp
	(concat "\\<\\(" (regexp-opt vhdl-attributes) "\\)\\>"))
  (setq vhdl-enum-values-regexp
	(concat "\\<\\(" (regexp-opt vhdl-enum-values) "\\)\\>"))
  (setq vhdl-constants-regexp
	(concat "\\<\\(" (regexp-opt vhdl-constants) "\\)\\>"))
  (setq vhdl-functions-regexp
	(concat "\\<\\(" (regexp-opt vhdl-functions) "\\)\\>"))
  (setq vhdl-packages-regexp
	(concat "\\<\\(" (regexp-opt vhdl-packages) "\\)\\>"))
  (setq vhdl-reserved-words-regexp
	(concat "\\<\\("
		(unless (equal vhdl-forbidden-syntax "")
		  (concat vhdl-forbidden-syntax "\\|"))
		(regexp-opt vhdl-reserved-words)
		"\\)\\>"))
  (vhdl-abbrev-list-init))