View file File name : verilog-mode.elc Content :;ELC ;;; Compiled ;;; in Emacs version 26.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; #@31 Version of this Verilog mode. (defconst verilog-mode-version "2017-08-07-c085e50-vpo-GNU" (#$ . 408)) #@74 If non-nil, this version of Verilog mode was released with Emacs itself. (defconst verilog-mode-release-emacs t (#$ . 516)) #@44 Inform caller of the version of this file. (defalias 'verilog-version #[nil "\301\302\"\207" [verilog-mode-version message "Using verilog-mode version %s"] 3 (#$ . 646) nil]) (byte-code "\301\302\303\"\210\304\305!\203 \301\306\305\"\210\202 \301\306\307\"\210\304\310!\203& \301\311\310\"\210\202+ \301\311\312\"\210\31316 \314\315!0\202: \210\202; \210\3161F \314\317!0\202J \210\202K \210\3201` \304\321!?\205\\ \301\321\322\323B\"0\202d \210\202e \210\304\324!\204~ \301\324\322\325B\"\326\324\327\330#\210\331\324\332\333#\266\3341\304\335!?\205\336\337!\210\340\341N\204\231 \326\340\341\342#\210\343\344!\204\245 \326\344\345\335#\210\346\347 !\210\344\341N\204\270 \326\344\341\350\351!#\210\343\352!\204\311 \326\352\345\335#\210\353\354 !\210\352\341N\204\327 \326\352\341\350\355!#\210\343\300!\204\354 \326\300\345\335#\210\356\357\300\337\"\210!\210\300\341N\204\372 \326\300\341\350\360!#\210\326\335\361\337#\210\301\335\362\"0\202\f\210\202 \210\3631 \304\364!?\205 \301\364\365\"0\207\210\337\207" [prog-mode-abbrev-table defalias verilog-regexp-opt regexp-opt fboundp looking-back verilog-looking-back #[(regexp limit &optional greedy) "`\212\305\306\307Q \310#\205 `)\f\203H \n\203H \214e }\210\neV\203< \212\nb\210\311u\210\312\306\313Q!)\203< \nS\211\202 \212\nb\210\312\306\313Q!\210*\n*??\207" [regexp limit pos start greedy re-search-backward "\\(?:" "\\)\\=" t -1 looking-at "\\)\\'"] 6 "Return non-nil if text before point matches regular expression REGEXP.\nLike `looking-at' except matches before point, and is slower.\nLIMIT if non-nil speeds up the search by specifying a minimum\nstarting position, to avoid checking matches that would start\nbefore LIMIT.\n\nIf GREEDY is non-nil, extend the match backwards as far as\npossible, stopping when a single additional previous character\ncannot be part of a match for REGEXP. When the match is\nextended, its starting position is allowed to occur before\nLIMIT.\n\nAs a general recommendation, try to avoid using `looking-back'\nwherever possible, since it is slow."] restore-buffer-modified-p verilog-restore-buffer-modified-p set-buffer-modified-p (error) require diff (error) compile (error) buffer-chars-modified-tick macro #[nil "\300 \207" [buffer-modified-tick] 1] ignore-errors #[(&rest body) "\301\302\303B\304BBB\207" [body condition-case nil progn ((error nil))] 4] put edebug-form-spec t function-put lisp-indent-function 0 (error) prog-mode (lambda (#1=#:def-tmp-var) (defvar prog-mode-hook #1#)) nil prog-mode-hook variable-documentation "Hook run after entering Prog mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp prog-mode-map definition-name (lambda (#1#) (defvar prog-mode-map #1#)) make-sparse-keymap purecopy "Keymap for `prog-mode'." prog-mode-syntax-table (lambda (#1#) (defvar prog-mode-syntax-table #1#)) make-syntax-table "Syntax table for `prog-mode'." (lambda (#1#) (defvar prog-mode-abbrev-table #1#)) define-abbrev-table "Abbrev table for `prog-mode'." derived-mode-parent #[nil "\306\300!\210\307\310 \210\311\312\313 !\210\314\f!\210 )\315\316!\207" [delay-mode-hooks major-mode mode-name prog-mode-map prog-mode-syntax-table prog-mode-abbrev-table make-local-variable t kill-all-local-variables prog-mode "Prog" use-local-map set-syntax-table run-mode-hooks prog-mode-hook local-abbrev-table] 2 "Major-mode.\nUses keymap `prog-mode-map', abbrev table `prog-mode-abbrev-table' and syntax-table `prog-mode-syntax-table'.\n\nThis mode runs the hook `prog-mode-hook', as the final or penultimate step\nduring initialization.\n\n\\{prog-mode-map}" nil] (error) forward-word-strictly forward-word] 5) #@57 Call `regexp-opt' with word delimiters for the words A. (defalias 'verilog-regexp-words #[(a) "\301\302\303\"\304Q\207" [a "\\<" verilog-regexp-opt t "\\>"] 4 (#$ . 4378)]) #@57 Filter `easy-menu-define' MENU to support new features. (defalias 'verilog-easy-menu-filter #[(menu) "\207" [menu] 1 (#$ . 4558)]) #@100 Filter `define-abbrev-table' TABLENAME DEFINITIONS Provides DOCSTRING PROPS in newer Emacs (23.1). (defalias 'verilog-define-abbrev-table #[(tablename definitions &optional docstring &rest props) "\3041 \305\306 \n %0\207\210\306 \"\207" [tablename definitions docstring props (error) apply define-abbrev-table] 6 (#$ . 4697)]) #@97 Filter `define-abbrev' TABLE NAME EXPANSION and call HOOK. Provides SYSTEM-FLAG in newer Emacs. (defalias 'verilog-define-abbrev #[(table name expansion &optional hook) "\3041 \305 \n \306\307&0\207\210\305 \n $\207" [table name expansion hook (error) define-abbrev 0 t] 7 (#$ . 5034)]) #@62 Customize variables and other settings used by Verilog-Mode. (defalias 'verilog-customize #[nil "\300\301!\207" [customize-group verilog-mode] 2 (#$ . 5331) nil]) #@39 Customize fonts used by Verilog-Mode. (defalias 'verilog-font-customize #[nil "\300\301!\205\n \301\302\303\"\207" [fboundp customize-apropos "font-lock-*" faces] 3 (#$ . 5500) nil]) #@169 Return t if VALUE is boolean. This implements GNU Emacs 22.1's `booleanp' function in earlier Emacs. This function may be removed when Emacs 21 is no longer supported. (defalias 'verilog-booleanp #[(value) "\301\232\206 \302\232\207" [value t nil] 2 (#$ . 5690)]) #@34 Insert the `last-command-event'. (defalias 'verilog-insert-last-command-event #[nil "c\207" [last-command-event] 1 (#$ . 5963)]) #@114 True if `after-change-functions' is disabled. Use of `syntax-ppss' may break, as ppss's cache may get corrupted. (defvar verilog-no-change-functions nil (#$ . 6100)) #@47 True when within a `verilog-run-hooks' block. (defvar verilog-in-hooks nil (#$ . 6272)) #@107 Run each hook in HOOKS using `run-hooks'. Set `verilog-in-hooks' during this time, to assist AUTO caches. (defalias 'verilog-run-hooks '(macro . #[(&rest hooks) "\301\302\303BE\207" [hooks let ((verilog-in-hooks t)) run-hooks] 4 (#$ . 6367)])) (defalias 'verilog-syntax-ppss #[(&optional pos) "\203 \203 \303 \210\202 \304 \210\305\306\307 \"\210\310\311!\203! \311\n!\207\312e\n\206( `\"\207" [verilog-no-change-functions verilog-in-hooks pos verilog-scan-cache-flush backtrace error "%s: Internal problem; use of syntax-ppss when cache may be corrupt" verilog-point-text fboundp syntax-ppss parse-partial-sexp] 3]) (byte-code "\300\301\302\303\304\305\306\307&\210\300\310\302\311\306\301%\210\300\312\302\313\306\301%\210\300\314\302\315\306\301%\207" [custom-declare-group verilog-mode nil "Major mode for Verilog source code." :version "22.2" :group languages verilog-mode-indent "Customize indentation and highlighting of Verilog source text." verilog-mode-actions "Customize actions on Verilog source text." verilog-mode-auto "Customize AUTO actions when expanding Verilog source text."] 8) #@67 Non-nil means enable debug messages for `verilog-mode' internals. (defvar verilog-debug nil (#$ . 7478)) #@65 Non-nil means `verilog-warn-error' warnings are fatal `error's. (defvar verilog-warn-fatal nil (#$ . 7589)) (byte-code "\300\301\302\303\304\305\306\307&\210\300\310\311\312\304\305\306\307&\210\300\313\314\315\304\305\306\307&\210\300\316\317\320\304\305\306\307&\210\300\321\322\323\304\305\306\307&\207" [custom-declare-variable verilog-linter "echo 'No verilog-linter set, see \"M-x describe-variable verilog-linter\"'" "Unix program and arguments to call to run a lint checker on Verilog source.\nDepending on the `verilog-set-compile-command', this may be invoked when\nyou type \\[compile]. When the compile completes, \\[next-error] will take\nyou to the next lint error." :type string :group verilog-mode-actions verilog-coverage "echo 'No verilog-coverage set, see \"M-x describe-variable verilog-coverage\"'" "Program and arguments to use to annotate for coverage Verilog source.\nDepending on the `verilog-set-compile-command', this may be invoked when\nyou type \\[compile]. When the compile completes, \\[next-error] will take\nyou to the next lint error." verilog-simulator "echo 'No verilog-simulator set, see \"M-x describe-variable verilog-simulator\"'" "Program and arguments to use to interpret Verilog source.\nDepending on the `verilog-set-compile-command', this may be invoked when\nyou type \\[compile]. When the compile completes, \\[next-error] will take\nyou to the next lint error." verilog-compiler "echo 'No verilog-compiler set, see \"M-x describe-variable verilog-compiler\"'" "Program and arguments to use to compile Verilog source.\nDepending on the `verilog-set-compile-command', this may be invoked when\nyou type \\[compile]. When the compile completes, \\[next-error] will take\nyou to the next lint error." verilog-preprocessor "vppreproc __FLAGS__ __FILE__" "Program and arguments to use to preprocess Verilog source.\nThis is invoked with `verilog-preprocess', and depending on the\n`verilog-set-compile-command', may also be invoked when you type\n\\[compile]. When the compile completes, \\[next-error] will\ntake you to the next lint error."] 8) #@35 History for `verilog-preprocess'. (defvar verilog-preprocess-history nil (#$ . 9695)) #@281 Which tool to use for building compiler-command. Either nil, `verilog-linter', `verilog-compiler', `verilog-coverage', `verilog-preprocessor', or `verilog-simulator'. Alternatively use the "Choose Compilation Action" menu. See `verilog-set-compile-command' for more information. (defvar verilog-tool 'verilog-linter (#$ . 9788)) (byte-code "\300\301\302\303\304\305\306\307&\210\310\301\311\312#\210\300\313\314\315\304\316\306\307&\210\310\313\311\317#\210\300\320\321\322\306\307\304\323&\210\310\320\311\324#\210\300\325\321\326\306\307\304\323&\210\310\325\311\324#\210\300\327\321\330\306\307\304\323&\210\310\327\311\324#\210\300\331\302\332\306\307\304\305&\210\310\331\311\312#\210\300\333\334\335\306\307\304\305&\210\310\333\311\312#\210\300\336\321\337\306\307\304\323&\210\310\336\311\324#\210\300\340\341\342\306\307\304\323&\210\310\340\311\324#\210\300\343\344\345\306\307\304\323&\210\310\343\311\324#\210\300\346\344\347\306\307\304\323&\210\310\346\311\324#\210\300\350\334\351\306\307\304\305&\210\310\350\311\312#\210\300\352\334\353\306\307\304\305&\210\310\352\311\312#\210\300\354\334\355\306\307\304\305&\210\310\354\311\312#\210\300\356\302\357\306\360\304\305&\210\310\356\311\312#\210\300\361\334\362\306\307\304\305&\210\310\361\311\312#\210\300\363\302\364\306\307\304\305&\210\310\363\311\312#\210\300\365\366\367\306\307\304\323&\210\310\365\311\324#\210\300\370\302\371\306\307\304\305&\210\310\370\311\312#\210\300\372\302\373\306\307\304\305&\210\310\372\311\312#\210\300\374\302\375\306\307\304\305&\210\310\374\311\312#\210\300\376\334\377\306\307\304\305&\210\310\376\311\312#\210\300\201@ \302\201A \201B \201C \306\360\304\305& \210\310\201@ \311\201D #\210\300\201E \334\201F \201B \201G \306\360\304\305& \210\310\201E \311\312#\210\300\201H \302\201I \201B \201C \306\360\304\201J & \210\310\201H \311\201D #\210\300\201K \334\201L \306\360\304\305&\210\310\201K \311\312#\210\300\201M \302\201N \201B \201C \306\360\304\305& \210\310\201M \311\312#\210\300\201O \302\201P \306\360\304\305&\210\310\201O \311\312#\210\300\201Q \302\201R \306\360\304\305&\210\310\201Q \311\312#\210\300\201S \302\201T \306\360\304\201U &\210\300\201V \334\201W \306\360\304\305&\210\310\201V \311\312#\210\300\201X \302\201Y \306\360\304\305&\210\310\201X \311\312#\207" [custom-declare-variable verilog-highlight-translate-off nil "Non-nil means background-highlight code excluded from translation.\nThat is, all code between \"// synopsys translate_off\" and\n\"// synopsys translate_on\" is highlighted using a different background color\n(face `verilog-font-lock-translate-off-face').\n\nNote: This will slow down on-the-fly fontification (and thus editing).\n\nNote: Activate the new setting in a Verilog buffer by re-fontifying it (menu\nentry \"Fontify Buffer\"). XEmacs: turn off and on font locking." :type boolean :group verilog-mode-indent put safe-local-variable verilog-booleanp verilog-auto-lineup 'declarations "Type of statements to lineup across multiple lines.\nIf `all' is selected, then all line ups described below are done.\n\nIf `declarations', then just declarations are lined up with any\npreceding declarations, taking into account widths and the like,\nso or example the code:\n reg [31:0] a;\n reg b;\nwould become\n reg [31:0] a;\n reg b;\n\nIf `assignment', then assignments are lined up with any preceding\nassignments, so for example the code\n a_long_variable <= b + c;\n d = e + f;\nwould become\n a_long_variable <= b + c;\n d = e + f;\n\nIn order to speed up editing, large blocks of statements are lined up\nonly when a \\[verilog-pretty-expr] is typed; and large blocks of declarations\nare lineup only when \\[verilog-pretty-declarations] is typed." (radio (const :tag "Line up Assignments and Declarations" all) (const :tag "Line up Assignment statements" assignments) (const :tag "Line up Declarations" declarations) (function :tag "Other")) (lambda (x) (memq x '(nil all assignments declarations))) verilog-indent-level 3 "Indentation of Verilog statements with respect to containing block." integer integerp verilog-indent-level-module "Indentation of Module level Verilog statements (eg always, initial).\nSet to 0 to get initial and always statements lined up on the left side of\nyour screen." verilog-indent-level-declaration "Indentation of declarations with respect to containing block.\nSet to 0 to get them list right under containing block." verilog-indent-declaration-macros "How to treat macro expansions in a declaration.\nIf nil, indent as:\n input [31:0] a;\n input \\=`CP;\n output c;\nIf non nil, treat as:\n input [31:0] a;\n input \\=`CP ;\n output c;" verilog-indent-lists t "How to treat indenting items in a list.\nIf t (the default), indent as:\n always @( posedge a or\n reset ) begin\n\nIf nil, treat as:\n always @( posedge a or\n reset ) begin" verilog-indent-level-behavioral "Absolute indentation of first begin in a task or function block.\nSet to 0 to get such code to start at the left side of the screen." verilog-indent-level-directive 1 "Indentation to add to each level of \\=`ifdef declarations.\nSet to 0 to have all directives start at the left side of the screen." verilog-cexp-indent 2 "Indentation of Verilog statements split across lines." verilog-case-indent "Indentation for case statements." verilog-auto-newline "Non-nil means automatically newline after semicolons." verilog-auto-indent-on-newline "Non-nil means automatically indent line after newline." verilog-tab-always-indent "Non-nil means TAB should always re-indent the current line.\nA nil value means TAB will only reindent when at the beginning of the line." verilog-tab-to-comment "Non-nil means TAB moves to the right hand column in preparation for a comment." verilog-mode-actions verilog-indent-begin-after-if "Non-nil means indent begin statements following if, else, while, etc.\nOtherwise, line them up." verilog-align-ifelse "Non-nil means align `else' under matching `if'.\nOtherwise else is lined up with first character on line holding matching if." verilog-minimum-comment-distance 10 "Minimum distance (in lines) between begin and end required before a comment.\nSetting this variable to zero results in every end acquiring a comment; the\ndefault avoids too many redundant comments in tight quarters." verilog-highlight-p1800-keywords "Non-nil means highlight words newly reserved by IEEE-1800.\nThese will appear in `verilog-font-lock-p1800-face' in order to gently\nsuggest changing where these words are used as variables to something else.\nA nil value means highlight these words as appropriate for the SystemVerilog\nIEEE-1800 standard. Note that changing this will require restarting Emacs\nto see the effect as font color choices are cached by Emacs." verilog-highlight-grouping-keywords "Non-nil means highlight grouping keywords more dramatically.\nIf false, these words are in the `font-lock-type-face'; if True\nthen they are in `verilog-font-lock-grouping-keywords-face'.\nSome find that special highlighting on these grouping constructs\nallow the structure of the code to be understood at a glance." verilog-highlight-modules "Non-nil means highlight module statements for `verilog-load-file-at-point'.\nWhen true, mousing over module names will allow jumping to the\nmodule definition. If false, this is not supported. Setting\nthis is experimental, and may lead to bad performance." verilog-highlight-includes "Non-nil means highlight module statements for `verilog-load-file-at-point'.\nWhen true, mousing over include file names will allow jumping to the\nfile referenced. If false, this is not supported." verilog-auto-declare-nettype "Non-nil specifies the data type to use with `verilog-auto-input' etc.\nSet this to \"wire\" if the Verilog code uses \"\\=`default_nettype\nnone\". Note using \\=`default_nettype none isn't recommended practice; this\nmode is experimental." :version "24.1" stringp verilog-auto-wire-comment "Non-nil indicates to insert to/from comments with `verilog-auto-wire' etc." "25.1" verilog-auto-wire-type "Non-nil specifies the data type to use with `verilog-auto-wire' etc.\nSet this to \"logic\" for SystemVerilog code, or use `verilog-auto-logic'.\nSet this to \"wire\" to force use of wire when logic is otherwise appropriate;\nthis is generally only appropriate when making a non-SystemVerilog wrapper\ncontaining SystemVerilog cells." (choice (const nil) string) verilog-auto-endcomments "Non-nil means insert a comment /* ... */ after `end's.\nThe name of the function or case will be set between the braces." verilog-auto-delete-trailing-whitespace "Non-nil means to `delete-trailing-whitespace' in `verilog-auto'." verilog-auto-ignore-concat "Non-nil means ignore signals in {...} concatenations for AUTOWIRE etc.\nThis will exclude signals referenced as pin connections in {...}\nfrom AUTOWIRE, AUTOOUTPUT and friends. This flag should be set\nfor backward compatibility only and not set in new designs; it\nmay be removed in future versions." verilog-auto-read-includes "Non-nil means to automatically read includes before AUTOs.\nThis will do a `verilog-read-defines' and `verilog-read-includes' before\neach AUTO expansion. This makes it easier to embed defines and includes,\nbut can result in very slow reading times if there are many or large\ninclude files." verilog-auto-save-policy "Non-nil indicates action to take when saving a Verilog buffer with AUTOs.\nA value of `force' will always do a \\[verilog-auto] automatically if\nneeded on every save. A value of `detect' will do \\[verilog-auto]\nautomatically when it thinks necessary. A value of `ask' will query the\nuser when it thinks updating is needed.\n\nYou should not rely on the `ask' or `detect' policies, they are safeguards\nonly. They do not detect when AUTOINSTs need to be updated because a\nsub-module's port list has changed." (choice (const nil) (const ask) (const detect) (const force)) verilog-auto-star-expand "Non-nil means to expand SystemVerilog .* instance ports.\nThey will be expanded in the same way as if there was an AUTOINST in the\ninstantiation. See also `verilog-auto-star' and `verilog-auto-star-save'." verilog-auto-star-save "Non-nil means save to disk SystemVerilog .* instance expansions.\nA nil value indicates direct connections will be removed before saving.\nOnly meaningful to those created due to `verilog-auto-star-expand' being set.\n\nInstead of setting this, you may want to use /*AUTOINST*/, which will\nalways be saved."] 10) #@55 Modification tick at which autos were last performed. (defvar verilog-auto-update-tick nil (#$ . 20379)) #@56 Text from file-local-variables during last evaluation. (defvar verilog-auto-last-file-locals nil (#$ . 20490)) #@199 Function to run when `verilog-diff-auto' detects differences. Function takes three arguments, the original buffer, the difference buffer, and the point in original buffer with the first difference. (defvar verilog-diff-function 'verilog-diff-report (#$ . 20608)) #@88 Non-nil specifies regexp which `verilog-diff-auto' will ignore. This is typically nil. (defvar verilog-diff-ignore-regexp nil (#$ . 20877)) (require 'compile) (defvar verilog-error-regexp-added nil) #@113 List of regexps for Verilog compilers. See `compilation-error-regexp-alist' for the formatting. For Emacs 22+. (defvar verilog-error-regexp-emacs-alist '((verilog-xl-1 "\\(Error\\|Warning\\)!.*\n?.*\"\\([^\"]+\\)\", \\([0-9]+\\)" 2 3) (verilog-xl-2 "([WE][0-9A-Z]+)[ ]+\\([^ \n,]+\\)[, ]+\\(line[ ]+\\)?\\([0-9]+\\):.*$" 1 3) (verilog-IES ".*\\*[WE],[0-9A-Z]+\\(\\[[0-9A-Z_,]+\\]\\)? (\\([^ ,]+\\),\\([0-9]+\\)" 2 3) (verilog-surefire-1 "[^\n]*\\[\\([^:]+\\):\\([0-9]+\\)\\]" 1 2) (verilog-surefire-2 "\\(WARNING\\|ERROR\\|INFO\\)[^:]*: \\([^,]+\\),\\s-+\\(line \\)?\\([0-9]+\\):" 2 4) (verilog-verbose "\\([a-zA-Z]?:?[^:( \n]+\\)[:(][ ]*\\([0-9]+\\)\\([) ]\\|:\\([^0-9\n]\\|\\([0-9]+:\\)\\)\\)" 1 2 5) (verilog-xsim "\\(Error\\|Warning\\).*in file (\\([^ ]+\\) at line *\\([0-9]+\\))" 2 3) (verilog-vcs-1 "\\(Error\\|Warning\\):[^(]*(\\([^ ]+\\) line *\\([0-9]+\\))" 2 3) (verilog-vcs-2 "Warning:.*(port.*(\\([^ ]+\\) line \\([0-9]+\\))" 1 2) (verilog-vcs-3 "\\(Error\\|Warning\\):[\n.]*\\([^ ]+\\) *\\([0-9]+\\):" 2 3) (verilog-vcs-4 "syntax error:.*\n\\([^ ]+\\) *\\([0-9]+\\):" 1 2) (verilog-verilator "%?\\(Error\\|Warning\\)\\(-[^:]+\\|\\):[\n ]*\\([^ :]+\\):\\([0-9]+\\):" 3 4) (verilog-leda "^In file \\([^ ]+\\)[ ]+line[ ]+\\([0-9]+\\):\n[^\n]*\n[^\n]*\n\\(Warning\\|Error\\|Failure\\)[^\n]*" 1 2)) (#$ . 21083)) #@116 List of regexps for Verilog compilers. See `compilation-error-regexp-alist-alist' for the formatting. For XEmacs. (defvar verilog-error-regexp-xemacs-alist (byte-code "\301\302\303\"B\207" [verilog-error-regexp-emacs-alist verilog mapcar cdr] 4) (#$ . 22430)) #@134 Keywords to also highlight in Verilog *compilation* buffers. Only used in XEmacs; GNU Emacs uses `verilog-error-regexp-emacs-alist'. (defvar verilog-error-font-lock-keywords '(("\\(Error\\|Warning\\)!.*\n?.*\"\\([^\"]+\\)\", \\([0-9]+\\)" 2 bold t) ("\\(Error\\|Warning\\)!.*\n?.*\"\\([^\"]+\\)\", \\([0-9]+\\)" 2 bold t) ("([WE][0-9A-Z]+)[ ]+\\([^ \n,]+\\)[, ]+\\(line[ ]+\\)?\\([0-9]+\\):.*$" 1 bold t) ("([WE][0-9A-Z]+)[ ]+\\([^ \n,]+\\)[, ]+\\(line[ ]+\\)?\\([0-9]+\\):.*$" 3 bold t) (".*\\*[WE],[0-9A-Z]+\\(\\[[0-9A-Z_,]+\\]\\)? (\\([^ ,]+\\),\\([0-9]+\\)|" 2 bold t) (".*\\*[WE],[0-9A-Z]+\\(\\[[0-9A-Z_,]+\\]\\)? (\\([^ ,]+\\),\\([0-9]+\\)|" 3 bold t) ("[^\n]*\\[\\([^:]+\\):\\([0-9]+\\)\\]" 1 bold t) ("[^\n]*\\[\\([^:]+\\):\\([0-9]+\\)\\]" 2 bold t) ("\\(WARNING\\|ERROR\\|INFO\\): \\([^,]+\\), line \\([0-9]+\\):" 2 bold t) ("\\(WARNING\\|ERROR\\|INFO\\): \\([^,]+\\), line \\([0-9]+\\):" 3 bold t) ("\\([a-zA-Z]?:?[^:( \n]+\\)[:(][ ]*\\([0-9]+\\)\\([) ]\\|:\\([^0-9\n]\\|\\([0-9]+:\\)\\)\\)" 1 bold t) ("\\([a-zA-Z]?:?[^:( \n]+\\)[:(][ ]*\\([0-9]+\\)\\([) ]\\|:\\([^0-9\n]\\|\\([0-9]+:\\)\\)\\)" 1 bold t) ("\\(Error\\|Warning\\):[^(]*(\\([^ ]+\\) line *\\([0-9]+\\))" 2 bold t) ("\\(Error\\|Warning\\):[^(]*(\\([^ ]+\\) line *\\([0-9]+\\))" 3 bold t) ("Warning:.*(port.*(\\([^ ]+\\) line \\([0-9]+\\))" 1 bold t) ("Warning:.*(port.*(\\([^ ]+\\) line \\([0-9]+\\))" 1 bold t) ("\\(Error\\|Warning\\):[\n.]*\\([^ ]+\\) *\\([0-9]+\\):" 2 bold t) ("\\(Error\\|Warning\\):[\n.]*\\([^ ]+\\) *\\([0-9]+\\):" 3 bold t) ("syntax error:.*\n\\([^ ]+\\) *\\([0-9]+\\):" 1 bold t) ("syntax error:.*\n\\([^ ]+\\) *\\([0-9]+\\):" 2 bold t) (".*%?\\(Error\\|Warning\\)\\(-[^:]+\\|\\):[\n ]*\\([^ :]+\\):\\([0-9]+\\):" 3 bold t) (".*%?\\(Error\\|Warning\\)\\(-[^:]+\\|\\):[\n ]*\\([^ :]+\\):\\([0-9]+\\):" 4 bold t) ("^In file \\([^ ]+\\)[ ]+line[ ]+\\([0-9]+\\):\n[^\n]*\n[^\n]*\n\\(Warning\\|Error\\|Failure\\)[^\n]*" 1 bold t) ("^In file \\([^ ]+\\)[ ]+line[ ]+\\([0-9]+\\):\n[^\n]*\n[^\n]*\n\\(Warning\\|Error\\|Failure\\)[^\n]*" 2 bold t)) (#$ . 22699)) (byte-code "\300\301\302\303\304\305\306\307&\210\310\301\311\312#\210\300\313\314\315\304\305\306\316&\210\310\313\311\312#\210\300\317\320\321\304\305\306\322&\210\310\317\311\312#\210\300\323\324\325\306\326\304\305&\210\310\323\311\312#\210\300\327\330\331\304\305\306\332&\210\310\327\311\333#\210\300\334\330\335\304\305\306\336&\210\310\334\311\337#\210\300\340\330\341\304\305\306\336&\210\310\340\311\337#\210\300\342\343\344\345\346\306\336\304\305& \210\310\342\311\337#\210\300\347\343\350\306\336\304\305&\210\310\347\311\351#\210\300\352\353\354\304\305\306\355&\210\310\352\311\333#\210\300\356\357\360\345\361\306\362\304\305& \210\310\356\311\363#\210\300\364\330\365\304\305\306\336&\210\310\364\311\337#\210\300\366\330\367\304\305\306\336&\210\310\366\311\337#\210\300\370\330\371\304\305\306\336&\210\310\370\311\337#\210\300\372\343\373\345\361\304\305\306\336& \210\310\372\311\337#\210\300\374\330\375\345\346\304\305\306\336& \210\310\374\311\337#\210\300\376\343\377\304\305\306\336&\210\310\376\311\337#\210\300\201@ \330\201A \304\305\306\201B &\210\310\201@ \311\201C #\210\300\201D \201E \201F \304\201G \306\201H &\210\310\201D \311\201I #\210\300\201J \330\201K \345\201L \304\305\306\336& \210\310\201J \311\337#\210\300\201M \330\201N \304\305\306\201O &\210\310\201M \311\333#\210\300\201P \330\201Q \304\305\306\201R &\210\310\201P \311\333#\210\300\201S \330\201T \304\305\306\201U &\210\310\201S \311\333#\210\300\201V \330\201W \345\201L \304\305\306\336& \210\310\201V \311\337#\210\300\201X \201Y \201Z \345\346\304\305\306\355& \210\310\201X \311\333#\210\300\201[ \330\201\\ \304\305\306\201] &\210\310\201[ \311\333#\210\300\201^ \330\201_ \304\305\306\201` &\210\310\201^ \311\333#\210\300\201a \343\201b \345\201c \304\201d \306\336& \210\310\201a \311\337#\210\300\201e \330\201f \304\305\306\201g &\210\310\201e \311\333#\210\300\201h \201i \201j \306\201k \304\201d &\210\300\201l \330\201m \304\305\306\201k &\210\300\201n \330\201o \304\305\306\201k &\210\300\201p \330\201q \304\305\306\201k &\210\300\201r \330\201s \304\305\306\201k &\210\300\201t \330\201u \304\305\306\201k &\210\300\201v \330\201w \304\305\306\201k &\210\300\201x \330\201y \345\201L \304\305\306\201k & \210\300\201z \330\201{ \345\201L \304\305\306\201k & \207" [custom-declare-variable verilog-library-flags '(#1="") "List of standard Verilog arguments to use for /*AUTOINST*/.\nThese arguments are used to find files for `verilog-auto', and match\nthe flags accepted by a standard Verilog-XL simulator.\n\n -f filename Reads absolute `verilog-library-flags' from the filename.\n -F filename Reads relative `verilog-library-flags' from the filename.\n +incdir+dir Adds the directory to `verilog-library-directories'.\n -Idir Adds the directory to `verilog-library-directories'.\n -y dir Adds the directory to `verilog-library-directories'.\n +libext+.v Adds the extensions to `verilog-library-extensions'.\n -v filename Adds the filename to `verilog-library-files'.\n\n filename Adds the filename to `verilog-library-files'.\n This is not recommended, -v is a better choice.\n\nYou might want these defined in each file; put at the *END* of your file\nsomething like:\n\n // Local Variables:\n // verilog-library-flags:(\"-y dir -y otherdir\")\n // End:\n\nVerilog-mode attempts to detect changes to this local variable, but they\nare only insured to be correct when the file is first visited. Thus if you\nhave problems, use \\[find-alternate-file] RET to have these take effect.\n\nSee also the variables mentioned above." :group verilog-mode-auto :type (repeat string) put safe-local-variable listp verilog-library-directories '(".") "List of directories when looking for files for /*AUTOINST*/.\nThe directory may be relative to the current file, or absolute.\nEnvironment variables are also expanded in the directory names.\nHaving at least the current directory is a good idea.\n\nYou might want these defined in each file; put at the *END* of your file\nsomething like:\n\n // Local Variables:\n // verilog-library-directories:(\".\" \"subdir\" \"subdir2\")\n // End:\n\nVerilog-mode attempts to detect changes to this local variable, but they\nare only insured to be correct when the file is first visited. Thus if you\nhave problems, use \\[find-alternate-file] RET to have these take effect.\n\nSee also `verilog-library-flags', `verilog-library-files'\nand `verilog-library-extensions'." (repeat file) verilog-library-files 'nil "List of files to search for modules.\nAUTOINST will use this when it needs to resolve a module name.\nThis is a complete path, usually to a technology file with many standard\ncells defined in it.\n\nYou might want these defined in each file; put at the *END* of your file\nsomething like:\n\n // Local Variables:\n // verilog-library-files:(\"/some/path/technology.v\" \"/some/path/tech2.v\")\n // End:\n\nVerilog-mode attempts to detect changes to this local variable, but they\nare only insured to be correct when the file is first visited. Thus if you\nhave problems, use \\[find-alternate-file] RET to have these take effect.\n\nSee also `verilog-library-flags', `verilog-library-directories'." (repeat directory) verilog-library-extensions '(".v" ".sv") "List of extensions to use when looking for files for /*AUTOINST*/.\nSee also `verilog-library-flags', `verilog-library-directories'." (repeat string) verilog-active-low-regexp nil "If true, treat signals matching this regexp as active low.\nThis is used for AUTORESET and AUTOTIEOFF. For proper behavior,\nyou will probably also need `verilog-auto-reset-widths' set." (choice (const nil) regexp) stringp verilog-auto-sense-include-inputs "Non-nil means AUTOSENSE should include all inputs.\nIf nil, only inputs that are NOT output signals in the same block are\nincluded." boolean verilog-booleanp verilog-auto-sense-defines-constant "Non-nil means AUTOSENSE should assume all defines represent constants.\nWhen true, the defines will not be included in sensitivity lists. To\nmaintain compatibility with other sites, this should be set at the bottom\nof each Verilog file that requires it, rather than being set globally." verilog-auto-reset-blocking-in-non t "Non-nil means AUTORESET will reset blocking statements.\nWhen true, AUTORESET will reset in blocking statements those\nsignals which were assigned with blocking assignments (=) even in\na block with non-blocking assignments (<=).\n\nIf nil, all blocking assigned signals are ignored when any\nnon-blocking assignment is in the AUTORESET block. This allows\nblocking assignments to be used for temporary values and not have\nthose temporaries reset. See example in `verilog-auto-reset'." :version "24.1" verilog-auto-reset-widths "True means AUTORESET should determine the width of signals.\nThis is then used to set the width of the zero (32'h0 for example). This\nis required by some lint tools that aren't smart enough to ignore widths of\nthe constant zero. This may result in ugly code when parameters determine\nthe MSB or LSB of a signal inside an AUTORESET.\n\nIf nil, AUTORESET uses \"0\" as the constant.\n\nIf `unbased', AUTORESET used the unbased unsized literal \"\\='0\"\nas the constant. This setting is strongly recommended for\nSystemVerilog designs." (lambda (x) (memq x '(nil t unbased))) verilog-assignment-delay #1# "Text used for delays in delayed assignments. Add a trailing space if set." string verilog-auto-arg-format 'packed "Formatting to use for AUTOARG signal names.\nIf `packed', then as many inputs and outputs that fit within\n`fill-column' will be put onto one line.\n\nIf `single', then a single input or output will be put onto each\nline." "25.1" (radio (const :tag "Line up Assignments and Declarations" packed) (const :tag "Line up Assignment statements" single)) (lambda (x) (memq x '(packed single))) verilog-auto-arg-sort "Non-nil means AUTOARG signal names will be sorted, not in declaration order.\nDeclaration order is advantageous with order based instantiations\nand is the default for backward compatibility. Sorted order\nreduces changes when declarations are moved around in a file, and\nit's bad practice to rely on order based instantiations anyhow.\n\nSee also `verilog-auto-inst-sort'." verilog-auto-inst-dot-name "Non-nil means when creating ports with AUTOINST, use .name syntax.\nThis will use \".port\" instead of \".port(port)\" when possible.\nThis is only legal in SystemVerilog files, and will confuse older\nsimulators. Setting `verilog-auto-inst-vector' to nil may also\nbe desirable to increase how often .name will be used." verilog-auto-inst-param-value "Non-nil means AUTOINST will replace parameters with the parameter value.\nIf nil, leave parameters as symbolic names.\n\nParameters must be in Verilog 2001 format #(...), and if a parameter is not\nlisted as such there (as when the default value is acceptable), it will not\nbe replaced, and will remain symbolic.\n\nFor example, imagine a submodule uses parameters to declare the size of its\ninputs. This is then used by an upper module:\n\n module InstModule (o,i);\n parameter WIDTH;\n input [WIDTH-1:0] i;\n parameter type OUT_t;\n output OUT_t o;\n endmodule\n\n module ExampInst;\n /*AUTOOUTPUT*/\n // Beginning of automatic outputs\n output OUT_t o;\n // End of automatics\n\n InstModule\n #(.WIDTH(10),\n ,.OUT_t(upper_t))\n instName\n (/*AUTOINST*/\n .i (i[WIDTH-1:0]),\n .o (o));\n\nNote even though WIDTH=10, the AUTOINST has left the parameter as\na symbolic name. Likewise the OUT_t is preserved as the name\nfrom the instantiated module.\n\nIf `verilog-auto-inst-param-value' is set, this will\ninstead expand to:\n\n module ExampInst;\n /*AUTOOUTPUT*/\n // Beginning of automatic outputs\n output upper_t o;\n // End of automatics\n\n InstModule\n #(.WIDTH(10),\n ,.OUT_t(upper_t))\n instName\n (/*AUTOINST*/\n .i (i[9:0]),\n .o (o));\n\nNote that the instantiation now has \"i[9:0]\" as the WIDTH\nwas expanded. Likewise the data type of \"o\" in the AUTOOUTPUT\nis now upper_t, from the OUT_t parameter override.\nThis second expansion of parameter types can be overridden with\n`verilog-auto-inst-param-value-type'." verilog-auto-inst-param-value-type "Non-nil means expand parameter type in instantiations.\nIf nil, leave parameter types as symbolic names.\n\nSee `verilog-auto-inst-param-value'." verilog-auto-inst-sort "Non-nil means AUTOINST signals will be sorted, not in declaration order.\nAlso affects AUTOINSTPARAM. Declaration order is the default for\nbackward compatibility, and as some teams prefer signals that are\ndeclared together to remain together. Sorted order reduces\nchanges when declarations are moved around in a file.\n\nSee also `verilog-auto-arg-sort'." verilog-auto-inst-vector "Non-nil means when creating default ports with AUTOINST, use bus subscripts.\nIf nil, skip the subscript when it matches the entire bus as declared in\nthe module (AUTOWIRE signals always are subscripted, you must manually\ndeclare the wire to have the subscripts removed.) Setting this to nil may\nspeed up some simulators, but is less general and harder to read, so avoid." verilog-auto-inst-template-numbers "If true, when creating templated ports with AUTOINST, add a comment.\n\nIf t, the comment will add the line number of the template that\nwas used for that port declaration. This setting is suggested\nonly for debugging use, as regular use may cause a large numbers\nof merge conflicts.\n\nIf `lhs', the comment will show the left hand side of the\nAUTO_TEMPLATE rule that is matched. This is less precise than\nnumbering (t) when multiple rules have the same pin name, but\nwon't merge conflict." (choice (const nil) (const t) (const lhs)) (lambda (x) (memq x '(nil t lhs))) verilog-auto-inst-column 40 "Indent-to column number for net name part of AUTOINST created pin." verilog-mode-indent integer integerp verilog-auto-inst-interfaced-ports "Non-nil means include interfaced ports in AUTOINST expansions." "24.3" verilog-auto-input-ignore-regexp "If non-nil, when creating AUTOINPUT, ignore signals matching this regexp.\nSee the \\[verilog-faq] for examples on using this." (choice (const nil) regexp) verilog-auto-inout-ignore-regexp "If non-nil, when creating AUTOINOUT, ignore signals matching this regexp.\nSee the \\[verilog-faq] for examples on using this." (choice (const nil) regexp) verilog-auto-output-ignore-regexp "If non-nil, when creating AUTOOUTPUT, ignore signals matching this regexp.\nSee the \\[verilog-faq] for examples on using this." (choice (const nil) regexp) verilog-auto-template-warn-unused "Non-nil means report warning if an AUTO_TEMPLATE line is not used.\nThis feature is not supported before Emacs 21.1 or XEmacs 21.4." verilog-auto-tieoff-declaration "wire" "Data type used for the declaration for AUTOTIEOFF.\nIf \"wire\" then create a wire, if \"assign\" create an\nassignment, else the data type for variable creation." verilog-auto-tieoff-ignore-regexp "If non-nil, when creating AUTOTIEOFF, ignore signals matching this regexp.\nSee the \\[verilog-faq] for examples on using this." (choice (const nil) regexp) verilog-auto-unused-ignore-regexp "If non-nil, when creating AUTOUNUSED, ignore signals matching this regexp.\nSee the \\[verilog-faq] for examples on using this." (choice (const nil) regexp) verilog-case-fold "Non-nil means `verilog-mode' regexps should ignore case.\nThis variable is t for backward compatibility; nil is suggested." "24.4" verilog-mode verilog-typedef-regexp "If non-nil, regular expression that matches Verilog-2001 typedef names.\nFor example, \"_t$\" matches typedefs named with _t, as in the C language.\nSee also `verilog-case-fold'." (choice (const nil) regexp) verilog-mode-hook 'verilog-set-compile-command "Hook run after Verilog mode is loaded." hook verilog-auto-hook "Hook run after `verilog-mode' updates AUTOs." verilog-before-auto-hook "Hook run before `verilog-mode' updates AUTOs." verilog-delete-auto-hook "Hook run after `verilog-mode' deletes AUTOs." verilog-before-delete-auto-hook "Hook run before `verilog-mode' deletes AUTOs." verilog-getopt-flags-hook "Hook run after `verilog-getopt-flags' determines the Verilog option lists." verilog-before-getopt-flags-hook "Hook run before `verilog-getopt-flags' determines the Verilog option lists." verilog-before-save-font-hook "Hook run before `verilog-save-font-no-change-functions' removes highlighting." verilog-after-save-font-hook "Hook run after `verilog-save-font-no-change-functions' restores highlighting."] 10) #@69 Imenu expression for Verilog mode. See `imenu-generic-expression'. (defvar verilog-imenu-generic-expression '((nil "^\\s-*\\(?:m\\(?:odule\\|acromodule\\)\\|p\\(?:rimitive\\|rogram\\|ackage\\)\\)\\s-+\\([a-zA-Z0-9_.:]+\\)" 1) ("*Variables*" "^\\s-*\\(reg\\|wire\\|logic\\)\\s-+\\(\\|\\[[^]]+\\]\\s-+\\)\\([A-Za-z0-9_]+\\)" 3) ("*Classes*" "^\\s-*\\(?:\\(?:virtual\\|interface\\)\\s-+\\)?class\\s-+\\([A-Za-z_][A-Za-z0-9_]+\\)" 1) ("*Tasks*" "^\\s-*\\(?:\\(?:static\\|pure\\|virtual\\|local\\|protected\\)\\s-+\\)*task\\s-+\\(?:\\(?:static\\|automatic\\)\\s-+\\)?\\([A-Za-z_][A-Za-z0-9_:]+\\)" 1) ("*Functions*" "^\\s-*\\(?:\\(?:static\\|pure\\|virtual\\|local\\|protected\\)\\s-+\\)*function\\s-+\\(?:\\(?:static\\|automatic\\)\\s-+\\)?\\(?:\\w+\\s-+\\)?\\([A-Za-z_][A-Za-z0-9_:]+\\)" 1) ("*Interfaces*" "^\\s-*interface\\s-+\\([a-zA-Z_0-9]+\\)" 1) ("*Types*" "^\\s-*typedef\\s-+.*\\s-+\\([a-zA-Z_0-9]+\\)\\s-*;" 1)) (#$ . 39805)) #@188 If non-nil, dates are written in scientific format (e.g. 1997/09/17). If nil, in European format (e.g. 17.09.1997). The brain-dead American format (e.g. 09/17/1997) is not supported. (defvar verilog-date-scientific-format nil (#$ . 40744)) #@78 Default name of Company for Verilog header. If set will become buffer local. (defvar verilog-company nil (#$ . 40994)) (make-variable-buffer-local 'verilog-company) #@78 Default name of Project for Verilog header. If set will become buffer local. (defvar verilog-project nil (#$ . 41165)) (make-variable-buffer-local 'verilog-project) #@30 Keymap used in Verilog mode. (defvar verilog-mode-map (byte-code "\301 \302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\312#\210\302\313\314#\210\302\315\316#\210\302\317\320#\210\321\322!\204? \302\323\324#\210\302\325\326#\210\302\327\330#\210\302\331\332#\210\302\333\334#\210\302\335\336\337!\203^ \337\202_ \340#\210\302\341\336\342!\203n \342\202o \343#\210\302\344\345#\210\302\346\347#\210\302\350\351#\210\302\352\353#\210\302\354\355#\210\302\356\357#\210\302\360\361#\210\302\362\363#\210\302\364\365#\210\302\366\367#\210\302\370\371#\210\302\372\373#\210\302\374\375#\210\302\376\377#\210\302\201@ \201A #\210\302\201B \201C #\210\302\201D \201E #\210\302\201F \201G #\210)\207" [map make-sparse-keymap define-key ";" electric-verilog-semi [(control 59)] electric-verilog-semi-with-comment ":" electric-verilog-colon "`" electric-verilog-tick " " electric-verilog-tab " " electric-verilog-terminate-line [backspace] backward-delete-char-untabify boundp delete-key-deletes-forward [delete] delete-char [(meta delete)] kill-word "\202" electric-verilog-backward-sexp "\206" electric-verilog-forward-sexp "\215" electric-verilog-terminate-and-indent "\211" fboundp completion-at-point verilog-complete-word "\277" completion-help-at-point verilog-show-completions "`" verilog-lint-off "*" verilog-delete-auto-star-implicit "?" verilog-diff-auto "" verilog-label-be " " verilog-pretty-declarations "=" verilog-pretty-expr "" verilog-submit-bug-report "/" verilog-star-comment "" verilog-comment-region "" verilog-uncomment-region "" verilog-goto-defun " " verilog-delete-auto "" verilog-auto "" verilog-auto-save-compile "" verilog-preprocess "" verilog-inject-auto "" verilog-expand-vector "" verilog-header] 5) (#$ . 41336)) #@23 Menu for Verilog mode (defvar verilog-menu nil (#$ . 43152)) (byte-code "\301\302\303\304\305\306\307\310\311\312\313\314\315\311\316\317\320\321\322\323\324\325\326\327!\203! \327\202\" \330\331BB\"\332BBBBBBBBBBBBBBBB!$\207" [verilog-mode-map easy-menu-do-define verilog-menu "Menu for Verilog mode" verilog-easy-menu-filter "Verilog" ("Choose Compilation Action" ["None" (progn (setq verilog-tool nil) (verilog-set-compile-command)) :style radio :selected (equal verilog-tool nil) :help "When invoking compilation, use compile-command"] ["Lint" (progn (setq verilog-tool 'verilog-linter) (verilog-set-compile-command)) :style radio :selected (equal verilog-tool `verilog-linter) :help "When invoking compilation, use lint checker"] ["Coverage" (progn (setq verilog-tool 'verilog-coverage) (verilog-set-compile-command)) :style radio :selected (equal verilog-tool `verilog-coverage) :help "When invoking compilation, annotate for coverage"] ["Simulator" (progn (setq verilog-tool 'verilog-simulator) (verilog-set-compile-command)) :style radio :selected (equal verilog-tool `verilog-simulator) :help "When invoking compilation, interpret Verilog source"] ["Compiler" (progn (setq verilog-tool 'verilog-compiler) (verilog-set-compile-command)) :style radio :selected (equal verilog-tool `verilog-compiler) :help "When invoking compilation, compile Verilog source"] ["Preprocessor" (progn (setq verilog-tool 'verilog-preprocessor) (verilog-set-compile-command)) :style radio :selected (equal verilog-tool `verilog-preprocessor) :help "When invoking compilation, preprocess Verilog source, see also `verilog-preprocess'"]) ("Move" ["Beginning of function" verilog-beg-of-defun :keys "C-M-a" :help "Move backward to the beginning of the current function or procedure"] ["End of function" verilog-end-of-defun :keys "C-M-e" :help "Move forward to the end of the current function or procedure"] ["Mark function" verilog-mark-defun :keys "C-M-h" :help "Mark the current Verilog function or procedure"] ["Goto function/module" verilog-goto-defun :help "Move to specified Verilog module/task/function"] ["Move to beginning of block" electric-verilog-backward-sexp :help "Move backward over one balanced expression"] ["Move to end of block" electric-verilog-forward-sexp :help "Move forward over one balanced expression"]) ("Comments" ["Comment Region" verilog-comment-region :help "Put marked area into a comment"] ["UnComment Region" verilog-uncomment-region :help "Uncomment an area commented with Comment Region"] ["Multi-line comment insert" verilog-star-comment :help "Insert Verilog /* */ comment at point"] ["Lint error to comment" verilog-lint-off :help "Convert a Verilog linter warning line into a disable statement"]) "----" ["Compile" compile :help "Perform compilation-action (above) on the current buffer"] ["AUTO, Save, Compile" verilog-auto-save-compile :help "Recompute AUTOs, save buffer, and compile"] ["Next Compile Error" next-error :help "Visit next compilation error message and corresponding source code"] ["Ignore Lint Warning at point" verilog-lint-off :help "Convert a Verilog linter warning line into a disable statement"] ["Line up declarations around point" verilog-pretty-declarations :help "Line up declarations around point"] ["Line up equations around point" verilog-pretty-expr :help "Line up expressions around point"] ["Redo/insert comments on every end" verilog-label-be :help "Label matching begin ... end statements"] ["Expand [x:y] vector line" verilog-expand-vector :help "Take a signal vector on the current line and expand it to multiple lines"] ["Insert begin-end block" verilog-insert-block :help "Insert begin ... end"] apply vector "Complete word" fboundp completion-at-point verilog-complete-word (:help "Complete word at point") ("----" ["Recompute AUTOs" verilog-auto :help "Expand AUTO meta-comment statements"] ["Kill AUTOs" verilog-delete-auto :help "Remove AUTO expansions"] ["Diff AUTOs" verilog-diff-auto :help "Show differences in AUTO expansions"] ["Inject AUTOs" verilog-inject-auto :help "Inject AUTOs into legacy non-AUTO buffer"] ("AUTO Help..." ["AUTO General" (describe-function 'verilog-auto) :help "Help introduction on AUTOs"] ["AUTO Library Flags" (describe-variable 'verilog-library-flags) :help "Help on verilog-library-flags"] ["AUTO Library Path" (describe-variable 'verilog-library-directories) :help "Help on verilog-library-directories"] ["AUTO Library Files" (describe-variable 'verilog-library-files) :help "Help on verilog-library-files"] ["AUTO Library Extensions" (describe-variable 'verilog-library-extensions) :help "Help on verilog-library-extensions"] ["AUTO `define Reading" (describe-function 'verilog-read-defines) :help "Help on reading `defines"] ["AUTO `include Reading" (describe-function 'verilog-read-includes) :help "Help on parsing `includes"] ["AUTOARG" (describe-function 'verilog-auto-arg) :help "Help on AUTOARG - declaring module port list"] ["AUTOASCIIENUM" (describe-function 'verilog-auto-ascii-enum) :help "Help on AUTOASCIIENUM - creating ASCII for enumerations"] ["AUTOASSIGNMODPORT" (describe-function 'verilog-auto-assign-modport) :help "Help on AUTOASSIGNMODPORT - creating assignments to/from modports"] ["AUTOINOUT" (describe-function 'verilog-auto-inout) :help "Help on AUTOINOUT - adding inouts from cells"] ["AUTOINOUTCOMP" (describe-function 'verilog-auto-inout-comp) :help "Help on AUTOINOUTCOMP - copying complemented i/o from another file"] ["AUTOINOUTIN" (describe-function 'verilog-auto-inout-in) :help "Help on AUTOINOUTIN - copying i/o from another file as all inputs"] ["AUTOINOUTMODPORT" (describe-function 'verilog-auto-inout-modport) :help "Help on AUTOINOUTMODPORT - copying i/o from an interface modport"] ["AUTOINOUTMODULE" (describe-function 'verilog-auto-inout-module) :help "Help on AUTOINOUTMODULE - copying i/o from another file"] ["AUTOINOUTPARAM" (describe-function 'verilog-auto-inout-param) :help "Help on AUTOINOUTPARAM - copying parameters from another file"] ["AUTOINPUT" (describe-function 'verilog-auto-input) :help "Help on AUTOINPUT - adding inputs from cells"] ["AUTOINSERTLISP" (describe-function 'verilog-auto-insert-lisp) :help "Help on AUTOINSERTLISP - insert text from a lisp function"] ["AUTOINSERTLAST" (describe-function 'verilog-auto-insert-last) :help "Help on AUTOINSERTLISPLAST - insert text from a lisp function"] ["AUTOINST" (describe-function 'verilog-auto-inst) :help "Help on AUTOINST - adding pins for cells"] ["AUTOINST (.*)" (describe-function 'verilog-auto-star) :help "Help on expanding Verilog-2001 .* pins"] ["AUTOINSTPARAM" (describe-function 'verilog-auto-inst-param) :help "Help on AUTOINSTPARAM - adding parameter pins to cells"] ["AUTOLOGIC" (describe-function 'verilog-auto-logic) :help "Help on AUTOLOGIC - declaring logic signals"] ["AUTOOUTPUT" (describe-function 'verilog-auto-output) :help "Help on AUTOOUTPUT - adding outputs from cells"] ["AUTOOUTPUTEVERY" (describe-function 'verilog-auto-output-every) :help "Help on AUTOOUTPUTEVERY - adding outputs of all signals"] ["AUTOREG" (describe-function 'verilog-auto-reg) :help "Help on AUTOREG - declaring registers for non-wires"] ["AUTOREGINPUT" (describe-function 'verilog-auto-reg-input) :help "Help on AUTOREGINPUT - declaring inputs for non-wires"] ["AUTORESET" (describe-function 'verilog-auto-reset) :help "Help on AUTORESET - resetting always blocks"] ["AUTOSENSE or AS" (describe-function 'verilog-auto-sense) :help "Help on AUTOSENSE - sensitivity lists for always blocks"] ["AUTOTIEOFF" (describe-function 'verilog-auto-tieoff) :help "Help on AUTOTIEOFF - tying off unused outputs"] ["AUTOUNDEF" (describe-function 'verilog-auto-undef) :help "Help on AUTOUNDEF - undefine all local defines"] ["AUTOUNUSED" (describe-function 'verilog-auto-unused) :help "Help on AUTOUNUSED - terminating unused inputs"] ["AUTOWIRE" (describe-function 'verilog-auto-wire) :help "Help on AUTOWIRE - declaring wires for cells"]) "----" ["Submit bug report" verilog-submit-bug-report :help "Submit via mail a bug report on verilog-mode.el"] ["Version and FAQ" verilog-faq :help "Show the current version, and where to get the FAQ etc"] ["Customize Verilog Mode..." verilog-customize :help "Customize variables and other settings used by Verilog-Mode"] ["Customize Verilog Fonts & Colors" verilog-font-customize :help "Customize fonts used by Verilog-Mode."])] 25) #@42 Menu for statement templates in Verilog. (defvar verilog-stmt-menu nil (#$ . 51538)) (byte-code "\301\302\303\304\305!$\207" [verilog-mode-map easy-menu-do-define verilog-stmt-menu "Menu for statement templates in Verilog." verilog-easy-menu-filter ("Statements" ["Header" verilog-sk-header :help "Insert a header block at the top of file"] ["Comment" verilog-sk-comment :help "Insert a comment block"] "----" ["Module" verilog-sk-module :help "Insert a module .. (/*AUTOARG*/);.. endmodule block"] ["OVM Class" verilog-sk-ovm-class :help "Insert an OVM class block"] ["UVM Object" verilog-sk-uvm-object :help "Insert an UVM object block"] ["UVM Component" verilog-sk-uvm-component :help "Insert an UVM component block"] ["Primitive" verilog-sk-primitive :help "Insert a primitive .. (.. );.. endprimitive block"] "----" ["Input" verilog-sk-input :help "Insert an input declaration"] ["Output" verilog-sk-output :help "Insert an output declaration"] ["Inout" verilog-sk-inout :help "Insert an inout declaration"] ["Wire" verilog-sk-wire :help "Insert a wire declaration"] ["Reg" verilog-sk-reg :help "Insert a register declaration"] ["Define thing under point as a register" verilog-sk-define-signal :help "Define signal under point as a register at the top of the module"] "----" ["Initial" verilog-sk-initial :help "Insert an initial begin .. end block"] ["Always" verilog-sk-always :help "Insert an always @(AS) begin .. end block"] ["Function" verilog-sk-function :help "Insert a function .. begin .. end endfunction block"] ["Task" verilog-sk-task :help "Insert a task .. begin .. end endtask block"] ["Specify" verilog-sk-specify :help "Insert a specify .. endspecify block"] ["Generate" verilog-sk-generate :help "Insert a generate .. endgenerate block"] "----" ["Begin" verilog-sk-begin :help "Insert a begin .. end block"] ["If" verilog-sk-if :help "Insert an if (..) begin .. end block"] ["(if) else" verilog-sk-else-if :help "Insert an else if (..) begin .. end block"] ["For" verilog-sk-for :help "Insert a for (...) begin .. end block"] ["While" verilog-sk-while :help "Insert a while (...) begin .. end block"] ["Fork" verilog-sk-fork :help "Insert a fork begin .. end .. join block"] ["Repeat" verilog-sk-repeat :help "Insert a repeat (..) begin .. end block"] ["Case" verilog-sk-case :help "Insert a case block, prompting for details"] ["Casex" verilog-sk-casex :help "Insert a casex (...) item: begin.. end endcase block"] ["Casez" verilog-sk-casez :help "Insert a casez (...) item: begin.. end endcase block"])] 6) #@46 Abbrev table in use in Verilog-mode buffers. (defvar verilog-mode-abbrev-table nil (#$ . 54078)) (byte-code "\301\300\302\303\304\305\306\307&\210\310\311\312\313$\210\310\314\312\315$\210\310\316\302\317$\210\310\320\312\321$\210\310\322\312\323$\210\310\324\312\325$\210\310\326\312\327$\210\310\330\312\331$\210\310\332\312\333$\210\310\334\312\335$\210\310\336\312\337$\210\310\340\312\341$\210\310\342\312\343$\210\310\344\312\345$\210\310\346\312\347$\210\310\350\312\351$\210\310\352\312\353$\210\310\354\312\355$\210\310\356\312\357$\210\310\360\312\361$\210\310\362\312\363$\210\310\364\312\365$\210\310\366\312\367$\210\310\370\312\371$\210\310\372\312\373$\207" [verilog-mode-abbrev-table verilog-define-abbrev-table nil "Abbrev table for Verilog mode skeletons." :case-fixed t :enable-function #[nil "\300 ?\207" [verilog-in-comment-or-string-p] 1] verilog-define-abbrev "class" "" verilog-sk-ovm-class "always" verilog-sk-always "begin" verilog-sk-begin "case" verilog-sk-case "for" verilog-sk-for "generate" verilog-sk-generate "initial" verilog-sk-initial "fork" verilog-sk-fork "module" verilog-sk-module "primitive" verilog-sk-primitive "repeat" verilog-sk-repeat "specify" verilog-sk-specify "task" verilog-sk-task "while" verilog-sk-while "casex" verilog-sk-casex "casez" verilog-sk-casez "if" verilog-sk-if "else if" verilog-sk-else-if "assign" verilog-sk-assign "function" verilog-sk-function "input" verilog-sk-input "output" verilog-sk-output "inout" verilog-sk-inout "wire" verilog-sk-wire "reg" verilog-sk-reg] 8) (defalias 'verilog-within-string #[nil "\300\301\302 `\"8\207" [3 parse-partial-sexp line-beginning-position] 4]) (put 'verilog-within-string 'byte-optimizer 'byte-compile-inline-expand) #@244 Like `string-match', but use `verilog-case-fold'. Return index of start of first match for REGEXP in STRING, or nil. Matching ignores case if `verilog-case-fold' is non-nil. If third arg START is non-nil, start search at that index in STRING. (defalias 'verilog-string-match-fold #[(regexp string &optional start) "\305\n \f#)\207" [verilog-case-fold case-fold-search regexp string start string-match] 4 (#$ . 55837)]) (put 'verilog-string-match-fold 'byte-optimizer 'byte-compile-inline-expand) #@264 Replace occurrences of FROM-STRING with TO-STRING. FIXEDCASE and LITERAL as in `replace-match'. STRING is what to replace. The case (verilog-string-replace-matches "o" "oo" nil nil "foobar") will break, as the o's continuously replace. xa -> x works ok though. (defalias 'verilog-string-replace-matches #[(from-string to-string fixedcase literal string) "\306\307 \n#\203 \310 \f \n$\211G\306\224 G\\^\202 \n)\207" [start from-string string to-string fixedcase literal 0 string-match replace-match] 6 (#$ . 56342)]) (put 'verilog-string-replace-matches 'byte-optimizer 'byte-compile-inline-expand) #@35 Remove spaces surrounding STRING. (defalias 'verilog-string-remove-spaces #[(string) "\306 \307\216\310\311\312\211 \313 \314 #\203/ \315\f \n $\211G\313\224\fG\\^\202 .\316\311\312\211 \313 \314 #\203] \315\f \n $\211G\313\224\fG\\^\202@ .\211*\207" [save-match-data-internal string literal fixedcase to-string from-string match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] "^\\s-+" "" nil 0 string-match replace-match "\\s-+$" start] 6 (#$ . 56954)]) (put 'verilog-string-remove-spaces 'byte-optimizer 'byte-compile-inline-expand) #@72 Like `re-search-forward', but skips over match in comments or strings. (defalias 'verilog-re-search-forward #[(REGEXP BOUND NOERROR) "\304\305 \n #\203& \306 \211\203& \307 \203& \310\n\203\" `\nW\202# \311\204 \312!\210\313\225)\207" [mdata REGEXP BOUND NOERROR (nil nil) re-search-forward match-data verilog-skip-forward-comment-or-string (nil nil) t store-match-data 0] 4 (#$ . 57564)]) (put 'verilog-re-search-forward 'byte-optimizer 'byte-compile-inline-expand) #@73 Like `re-search-backward', but skips over match in comments or strings. (defalias 'verilog-re-search-backward #[(REGEXP BOUND NOERROR) "\304\305 \n #\203& \306 \211\203& \307 \203& \310\n\203\" `\nV\202# \311\204 \312!\210\313\225)\207" [mdata REGEXP BOUND NOERROR (nil nil) re-search-backward match-data verilog-skip-backward-comment-or-string (nil nil) t store-match-data 0] 4 (#$ . 58042)]) (put 'verilog-re-search-backward 'byte-optimizer 'byte-compile-inline-expand) #@280 Like `verilog-re-search-forward', including use of REGEXP BOUND and NOERROR, but trashes match data and is faster for REGEXP that doesn't match often. This uses `verilog-scan' and text properties to ignore comments, so there may be a large up front penalty for the first search. (defalias 'verilog-re-search-forward-quick #[(regexp bound noerror) "\304\204% \305 \n #\203% \306\307\224!\203 \305\310\304\311#\210\202 \307\225\211\203 )\207" [pt regexp bound noerror nil re-search-forward verilog-inside-comment-or-string-p 0 "[/\"\n]" t] 5 (#$ . 58526)]) (put 'verilog-re-search-forward-quick 'byte-optimizer 'byte-compile-inline-expand) #@281 Like `verilog-re-search-backward', including use of REGEXP BOUND and NOERROR, but trashes match data and is faster for REGEXP that doesn't match often. This uses `verilog-scan' and text properties to ignore comments, so there may be a large up front penalty for the first search. (defalias 'verilog-re-search-backward-quick #[(regexp bound noerror) "\304\204% \305 \n #\203% \306\307\224!\203 \305\310\304\311#\210\202 \307\224\211\203 )\207" [pt regexp bound noerror nil re-search-backward verilog-inside-comment-or-string-p 0 "[/\"]" t] 5 (#$ . 59178)]) (put 'verilog-re-search-backward-quick 'byte-optimizer 'byte-compile-inline-expand) #@242 Like `re-search-forward', but first search for SUBSTR constant. Then searched for the normal REGEXP (which contains SUBSTR), with given BOUND and NOERROR. The REGEXP must fit within a single line. This speeds up complicated regexp matches. (defalias 'verilog-re-search-forward-substr #[(substr regexp bound noerror) "\305\204. \306 \n #\203. \212\307 \210\310\f\311 #)\312\224`X\203( \312\225`Y\204 \305\211\203 \2035 b\210)\207" [done substr bound noerror regexp nil search-forward beginning-of-line re-search-forward line-end-position 0] 5 (#$ . 59832)]) (put 'verilog-re-search-forward-substr 'byte-optimizer 'byte-compile-inline-expand) #@243 Like `re-search-backward', but first search for SUBSTR constant. Then searched for the normal REGEXP (which contains SUBSTR), with given BOUND and NOERROR. The REGEXP must fit within a single line. This speeds up complicated regexp matches. (defalias 'verilog-re-search-backward-substr #[(substr regexp bound noerror) "\305\204. \306 \n #\203. \212\305\210\307\f\310 #)\311\224`X\203( \311\225`Y\204 \305\211\203 \2035 b\210)\207" [done substr bound noerror regexp nil search-backward re-search-backward line-beginning-position 0] 5 (#$ . 60491)]) (put 'verilog-re-search-backward-substr 'byte-optimizer 'byte-compile-inline-expand) #@242 Delete trailing spaces or tabs, but not newlines nor linefeeds. Also add missing final newline. To call this from the command line, see \[verilog-batch-diff-auto]. To call on \[verilog-auto], set `verilog-auto-delete-trailing-whitespace'. (defalias 'verilog-delete-trailing-whitespace #[nil "\212eb\210\300\301\302\303#\203 \304\305\302\211#\210\202 db\210n?\205 \306c)\207" [re-search-forward "[ ]+$" nil t replace-match "" "\n"] 4 (#$ . 61143)]) #@1088 Function to compute shell command to compile Verilog. This reads `verilog-tool' and sets `compile-command'. This specifies the program that executes when you type \[compile] or \[verilog-auto-save-compile]. By default `verilog-tool' uses a Makefile if one exists in the current directory. If not, it is set to the `verilog-linter', `verilog-compiler', `verilog-coverage', `verilog-preprocessor', or `verilog-simulator' variables, as selected with the Verilog -> "Choose Compilation Action" menu. You should set `verilog-tool' or the other variables to the path and arguments for your Verilog simulator. For example: "vcs -p123 -O" or a string like: "(cd /tmp; surecov %s)". In the former case, the path to the current buffer is concat'ed to the value of `verilog-tool'; in the later, the path to the current buffer is substituted for the %s. Where __FLAGS__ appears in the string `verilog-current-flags' will be substituted. Where __FILE__ appears in the string, the variable `buffer-file-name' of the current buffer, without the directory portion, will be substituted. (defalias 'verilog-set-compile-command #[nil "\303\304!\204\f \303\305!\203 \306\300!\210\307\202B \306\300!\210 \203@ \310\311\312 !\"\2033 \313\312 !\n\206/ \314\"\202A \312 !\315\n\206< \314Q\202A \314\316 \207" [compile-command verilog-tool buffer-file-name file-exists-p "makefile" "Makefile" make-local-variable "make " string-match "%s" eval format "" " " verilog-modify-compile-command] 4 (#$ . 61605) nil]) #@258 Replace meta-information in COMMAND and return it. Where __FLAGS__ appears in the string `verilog-current-flags' will be substituted. Where __FILE__ appears in the string, the current buffer's file-name, without the directory portion, will be substituted. (defalias 'verilog-expand-command #[(command) "\306\307 \310\211 \311 \312 #\203+ \313\f \n $\211G\311\224\fG\\^\202 .\314\315\316 \2067 \317!\310\211 \311 \312 #\203` \313\f \n $\211G\311\224\fG\\^\202C .\211\207" [command string literal fixedcase to-string from-string "\\b__FLAGS__\\b" verilog-current-flags t 0 string-match replace-match "\\b__FILE__\\b" file-name-nondirectory buffer-file-name "" start] 6 (#$ . 63118)]) #@58 Update `compile-command' using `verilog-expand-command'. (defalias 'verilog-modify-compile-command #[nil ";\205/ \303\301!\203 \232\203 \n\304\305\"\205/ \306\302!\210\306\300!\210\307!\306\301!\210\211\207" [compile-command verilog-compile-command-post-mod verilog-compile-command-pre-mod boundp string-match "\\b\\(__FLAGS__\\|__FILE__\\)\\b" make-local-variable verilog-expand-command] 3 (#$ . 63838)]) #@123 Tell Emacs compile that we are Verilog. Called by `compilation-mode-hook'. This allows \[next-error] to find the errors. (defalias 'verilog-error-regexp-add-emacs #[nil "\302\300!\205 \303\304\"?\205 \305\306 \"\207" [compilation-error-regexp-alist-alist verilog-error-regexp-emacs-alist boundp assoc verilog-xl-1 mapcar #[(item) "@ B\nB\211\207" [item compilation-error-regexp-alist compilation-error-regexp-alist-alist] 2]] 3 (#$ . 64264) nil]) (add-hook 'compilation-mode-hook 'verilog-error-regexp-add-emacs) #@38 List of Verilog compiler directives. (defconst verilog-compiler-directives '("`__FILE__" "`__LINE" "`begin_keywords" "`celldefine" "`default_nettype" "`define" "`else" "`elsif" "`end_keywords" "`endcelldefine" "`endif" "`ifdef" "`ifndef" "`include" "`line" "`nounconnected_drive" "`pragma" "`resetall" "`timescale" "`unconnected_drive" "`undef" "`undefineall" "`case" "`default" "`endfor" "`endprotect" "`endswitch" "`endwhile" "`for" "`format" "`if" "`let" "`protect" "`switch" "`timescale" "`time_scale" "`while") (#$ . 64791)) (defconst verilog-directive-re (verilog-regexp-words verilog-compiler-directives)) (defconst verilog-directive-re-1 (concat "[ ]*" verilog-directive-re)) (defconst verilog-directive-begin "\\<`\\(for\\|i\\(f\\|fdef\\|fndef\\)\\|switch\\|while\\)\\>") (defconst verilog-directive-middle "\\<`\\(else\\|elsif\\|default\\|case\\)\\>") (defconst verilog-directive-end "`\\(endfor\\|endif\\|endswitch\\|endwhile\\)\\>") (defconst verilog-ovm-begin-re "\\(?:`ovm_\\(?:\\(?:component\\(?:_param\\)?\\|field\\|object\\(?:_param\\)?\\|sequencer?\\)_utils_begin\\)\\)") (defconst verilog-ovm-end-re "\\(?:`ovm_\\(?:\\(?:component\\|field\\|object\\|sequencer?\\)_utils_end\\)\\)") (defconst verilog-uvm-begin-re "\\(?:`uvm_\\(?:\\(?:component\\(?:_param\\)?\\|field\\|object\\(?:_param\\)?\\|sequencer?\\)_utils_begin\\)\\)") (defconst verilog-uvm-end-re "\\(?:`uvm_\\(?:\\(?:component\\|field\\|object\\|sequencer?\\)_utils_end\\)\\)") (defconst verilog-vmm-begin-re "\\(?:`vmm_\\(?:\\(?:data\\|env\\|s\\(?:cenario\\|ubenv\\)\\|xactor\\)_member_begin\\)\\)") (defconst verilog-vmm-end-re "\\(?:`vmm_\\(?:\\(?:data\\|env\\|s\\(?:cenario\\|ubenv\\)\\|xactor\\)_member_end\\)\\)") (defconst verilog-vmm-statement-re "\\(?:`vmm_\\\\(data\\\\|env\\\\|scenario\\\\|subenv\\\\|xactor\\\\)_member_\\\\(scalar\\\\|string\\\\|enum\\\\|vmm_data\\\\|channel\\\\|xactor\\\\|subenv\\\\|user_defined\\\\)\\\\(_array\\\\)\\?\\)") (defconst verilog-ovm-statement-re "\\(?:`\\(?:DUT_ERROR\\|MESSAGE\\|dut_error\\|message\\|ovm_\\(?:analysis_imp_decl\\|blocking_\\(?:\\(?:get\\(?:_peek\\)?\\|master\\|p\\(?:eek\\|ut\\)\\|slave\\|transport\\)_imp_decl\\)\\|c\\(?:omponent_\\(?:registry\\(?:_param\\)?\\|utils\\)\\|reate\\(?:_seq\\)?\\)\\|d\\(?:eclare_sequence_lib\\|o\\(?:_\\(?:seq\\(?:_with\\)?\\|with\\)\\)?\\)\\|error\\|f\\(?:atal\\|i\\(?:eld_\\(?:a\\(?:a_\\(?:int_\\(?:byte\\(?:_unsigned\\)?\\|int\\(?:_unsigned\\|eger\\(?:_unsigned\\)?\\)?\\|key\\|longint\\(?:_unsigned\\)?\\|s\\(?:hortint\\(?:_unsigned\\)?\\|tring\\)\\)\\|object_\\(?:int\\|string\\)\\|string_\\(?:int\\|string\\)\\)\\|rray_\\(?:int\\|object\\|string\\)\\)\\|e\\(?:num\\|vent\\)\\|int\\|object\\|queue_\\(?:int\\|object\\|string\\)\\|s\\(?:array_int\\|tring\\)\\|utils\\)\\|le\\)\\)\\|get_\\(?:\\(?:peek_\\)?imp_decl\\)\\|info[1-4]?\\|line\\|m\\(?:\\(?:aster_imp_dec\\|sg_detai\\)l\\)\\|non\\(?:\\(?:_blocking_transport\\|blocking_\\(?:get\\(?:_peek\\)?\\|master\\|p\\(?:eek\\|ut\\)\\|slave\\)\\)_imp_decl\\)\\|object_\\(?:registry\\(?:_param\\)?\\|utils\\)\\|p\\(?:eek_imp_decl\\|hase_\\(?:\\(?:func\\|task\\)_decl\\)\\|rint_\\(?:a\\(?:a_\\(?:int_object\\|string_\\(?:int\\|object\\|string\\)\\)\\|rray_\\(?:int\\|object\\|string\\)\\)\\|object_queue\\|queue_int\\|string_queue\\)\\|ut_imp_decl\\)\\|rand_send\\(?:_with\\)?\\|s\\(?:e\\(?:nd\\|quence_utils\\)\\|lave_imp_decl\\)\\|transport_imp_decl\\|update_sequence_lib\\(?:_and_item\\)?\\|warning\\)\\|static_\\(?:dut_error\\|message\\)\\)\\)") (defconst verilog-uvm-statement-re "\\(?:`uvm_\\(?:analysis_imp_decl\\|blocking_\\(?:\\(?:get\\(?:_peek\\)?\\|master\\|p\\(?:eek\\|ut\\)\\|slave\\|transport\\)_imp_decl\\)\\|c\\(?:omponent_\\(?:param_utils\\|registry\\(?:_param\\)?\\|utils\\)\\|reate\\(?:_\\(?:on\\|seq\\)\\)?\\)\\|d\\(?:eclare_\\(?:p_sequencer\\|sequence_lib\\)\\|o\\(?:_\\(?:callbacks\\(?:_exit_on\\)?\\|o\\(?:bj_callbacks\\(?:_exit_on\\)?\\|n\\(?:_\\(?:pri\\(?:_with\\)?\\|with\\)\\)?\\)\\|pri\\(?:_with\\)?\\|seq\\(?:_with\\)?\\|with\\)\\)?\\)\\|error\\(?:_context\\)?\\|f\\(?:atal\\(?:_context\\)?\\|i\\(?:eld_\\(?:a\\(?:a_\\(?:int_\\(?:byte\\(?:_unsigned\\)?\\|enum\\|int\\(?:_unsigned\\|eger\\(?:_unsigned\\)?\\)?\\|key\\|longint\\(?:_unsigned\\)?\\|s\\(?:hortint\\(?:_unsigned\\)?\\|tring\\)\\)\\|object_\\(?:int\\|string\\)\\|string_\\(?:int\\|string\\)\\)\\|rray_\\(?:enum\\|int\\|object\\|string\\)\\)\\|e\\(?:num\\|vent\\)\\|int\\|object\\|queue_\\(?:enum\\|int\\|object\\|string\\)\\|real\\|s\\(?:array_\\(?:enum\\|int\\|object\\|string\\)\\|tring\\)\\|utils\\)\\|le\\)\\)\\|get_\\(?:\\(?:peek_\\)?imp_decl\\)\\|info\\(?:_context\\)?\\|line\\|master_imp_decl\\|non\\(?:\\(?:_blocking_transport\\|blocking_\\(?:get\\(?:_peek\\)?\\|master\\|p\\(?:eek\\|ut\\)\\|slave\\|transport\\)\\)_imp_decl\\)\\|object_\\(?:param_utils\\|registry\\(?:_param\\)?\\|utils\\)\\|p\\(?:ack_\\(?:arrayN?\\|enumN?\\|intN?\\|queueN?\\|real\\|s\\(?:arrayN?\\|tring\\)\\)\\|\\(?:eek\\|ut\\)_imp_decl\\)\\|r\\(?:and_send\\(?:_\\(?:pri\\(?:_with\\)?\\|with\\)\\)?\\|e\\(?:cord_\\(?:attribute\\|field\\)\\|gister_cb\\)\\)\\|s\\(?:e\\(?:nd\\(?:_pri\\)?\\|quence_utils\\|t_super_type\\)\\|lave_imp_decl\\)\\|transport_imp_decl\\|u\\(?:npack_\\(?:arrayN?\\|enumN?\\|intN?\\|queueN?\\|real\\|s\\(?:arrayN?\\|tring\\)\\)\\|pdate_sequence_lib\\(?:_and_item\\)?\\)\\|warning\\(?:_context\\)?\\)\\)") (defconst verilog-symbol-re "\\<[a-zA-Z_][a-zA-Z_0-9.]*\\>") (defconst verilog-assignment-operator-re "\\(!=[=?]?\\|#\\(?:[=-]#\\)\\|%=\\|&=\\|\\*=\\|\\+=\\|-\\(?:>>\\|[=>]\\)\\|/=\\|:[/=]\\|<\\(?:->\\|\\(?:<<?\\)?=\\)\\|=\\(?:=[=?]?\\)?\\|>\\(?:\\(?:>>?\\)?=\\)\\|\\^=\\||\\(?:->\\|=>?\\)\\)") (defconst verilog-assignment-operation-re (concat "\\(^.*?\\)" #1="\\B" verilog-assignment-operator-re #1#)) (defconst verilog-label-re (concat verilog-symbol-re "\\s-*:\\s-*")) (defconst verilog-property-re (concat "\\(" verilog-label-re "\\)?" "\\(\\(assert\\|assume\\|cover\\)\\>\\s-+\\<property\\>\\)\\|\\(assert\\)")) (defconst verilog-no-indent-begin-re "\\<\\(always\\(?:_\\(?:comb\\|ff\\|latch\\)\\)?\\|do\\|else\\|f\\(?:inal\\|or\\(?:e\\(?:ach\\|ver\\)\\)?\\)\\|i\\(?:f\\|nitial\\)\\|repeat\\|while\\)\\>") (defconst verilog-ends-re "\\(\\<else\\>\\)\\|\\(\\<if\\>\\)\\|\\(\\<assert\\>\\)\\|\\(\\<end\\>\\)\\|\\(\\<endcase\\>\\)\\|\\(\\<endfunction\\>\\)\\|\\(\\<endtask\\>\\)\\|\\(\\<endspecify\\>\\)\\|\\(\\<endtable\\>\\)\\|\\(\\<endgenerate\\>\\)\\|\\(\\<join\\(_any\\|_none\\)?\\>\\)\\|\\(\\<endclass\\>\\)\\|\\(\\<endgroup\\>\\)\\|\\(\\<`vmm_data_member_end\\>\\)\\|\\(\\<`vmm_env_member_end\\>\\)\\|\\(\\<`vmm_scenario_member_end\\>\\)\\|\\(\\<`vmm_subenv_member_end\\>\\)\\|\\(\\<`vmm_xactor_member_end\\>\\)\\|\\(\\<`ovm_component_utils_end\\>\\)\\|\\(\\<`ovm_field_utils_end\\>\\)\\|\\(\\<`ovm_object_utils_end\\>\\)\\|\\(\\<`ovm_sequence_utils_end\\>\\)\\|\\(\\<`ovm_sequencer_utils_end\\>\\)\\(\\<`uvm_component_utils_end\\>\\)\\|\\(\\<`uvm_field_utils_end\\>\\)\\|\\(\\<`uvm_object_utils_end\\>\\)\\|\\(\\<`uvm_sequence_utils_end\\>\\)\\|\\(\\<`uvm_sequencer_utils_end\\>\\)") (defconst verilog-auto-end-comment-lines-re (concat "\\(" verilog-directive-re "\\)\\|\\(" "\\<\\(begin\\|e\\(?:lse\\|nd\\(?:c\\(?:ase\\|l\\(?:ass\\|ocking\\)\\)\\|function\\|group\\|interface\\|module\\|p\\(?:ackage\\|r\\(?:imitive\\|o\\(?:gram\\|perty\\)\\)\\)\\|s\\(?:equence\\|pecify\\)\\|ta\\(?:ble\\|sk\\)\\)?\\)\\|interface\\|join\\(?:_\\(?:any\\|none\\)\\)?\\|\\(?:m\\(?:\\(?:acrom\\)?odul\\)\\|p\\(?:ackag\\|rimitiv\\)\\)e\\)\\>" "\\)")) (defconst verilog-end-block-ordered-re "\\(\\<endcase\\>\\)\\|\\(\\<end\\>\\)\\|\\(\\<end\\(\\(function\\)\\|\\(task\\)\\|\\(module\\)\\|\\(primitive\\)\\|\\(interface\\)\\|\\(package\\)\\|\\(class\\)\\|\\(group\\)\\|\\(program\\)\\|\\(sequence\\)\\|\\(clocking\\)\\|\\(property\\)\\|\\)\\>\\)") (defconst verilog-end-block-re "\\<\\(`\\(?:\\(?:ovm_\\(?:\\(?:component\\|field\\|object\\|sequencer?\\)_utils\\)\\|uvm_\\(?:\\(?:component\\|field\\|object\\|sequencer?\\)_utils\\)\\|vmm_\\(?:\\(?:data\\|env\\|s\\(?:cenario\\|ubenv\\)\\|xactor\\)_member\\)\\)_end\\)\\|end\\(?:c\\(?:ase\\|l\\(?:ass\\|ocking\\)\\)\\|function\\|g\\(?:enerate\\|roup\\)\\|interface\\|p\\(?:ackage\\|ro\\(?:gram\\|perty\\)\\)\\|s\\(?:equence\\|pecify\\)\\|ta\\(?:ble\\|sk\\)\\)?\\|join\\(?:_\\(?:any\\|none\\)\\)?\\)\\>") (defconst verilog-endcomment-reason-re (concat "\\(\\<begin\\>\\)\\|" "\\(\\<else\\>\\)\\|" "\\(\\<end\\>\\s-+\\<else\\>\\)\\|" "\\(\\<always\\(?:_ff\\)?\\>\\(?:[ ]*@\\)\\)\\|" "\\(\\<always\\(?:_comb\\|_latch\\)?\\>\\)\\|" "\\(\\<fork\\>\\)\\|" "\\(\\<if\\>\\)\\|" verilog-property-re "\\|" "\\(\\(" verilog-label-re "\\)?\\<assert\\>\\)\\|" "\\(\\<clocking\\>\\)\\|" "\\(\\<task\\>\\)\\|" "\\(\\<function\\>\\)\\|" "\\(\\<initial\\>\\)\\|" "\\(\\<interface\\>\\)\\|" "\\(\\<package\\>\\)\\|" "\\(\\<final\\>\\)\\|" "\\(@\\)\\|" "\\(\\<while\\>\\)\\|\\(\\<do\\>\\)\\|" "\\(\\<for\\(ever\\|each\\)?\\>\\)\\|" "\\(\\<repeat\\>\\)\\|\\(\\<wait\\>\\)\\|" "#")) (defconst verilog-named-block-re "begin[ ]*:") (defconst verilog-beg-block-re "\\<\\(`\\(?:\\(?:ovm_\\(?:\\(?:component\\(?:_param\\)?\\|field\\|object\\(?:_param\\)?\\|sequencer?\\)_utils\\)\\|uvm_\\(?:\\(?:component\\(?:_param\\)?\\|field\\|object\\(?:_param\\)?\\|sequencer?\\)_utils\\)\\|vmm_\\(?:\\(?:data\\|env\\|s\\(?:cenario\\|ubenv\\)\\|xactor\\)_member\\)\\)_begin\\)\\|begin\\|c\\(?:ase[xz]?\\|locking\\)\\|f\\(?:ork\\|unction\\)\\|generate\\|property\\|randcase\\|specify\\|ta\\(?:ble\\|sk\\)\\)\\>") (defconst verilog-beg-block-re-ordered "\\(\\<begin\\>\\)\\|\\(\\<randcase\\>\\|\\(\\<unique0?\\s-+\\|priority\\s-+\\)?case[xz]?\\>\\)\\|\\(\\(\\<disable\\>\\s-+\\|\\<wait\\>\\s-+\\)?fork\\>\\)\\|\\(\\<class\\>\\)\\|\\(\\<table\\>\\)\\|\\(\\<specify\\>\\)\\|\\(\\<function\\>\\)\\|\\(\\(?:\\<\\(?:virtual\\|protected\\|static\\)\\>\\s-+\\)*\\<function\\>\\)\\|\\(\\<task\\>\\)\\|\\(\\(?:\\<\\(?:virtual\\|protected\\|static\\)\\>\\s-+\\)*\\<task\\>\\)\\|\\(\\<generate\\>\\)\\|\\(\\<covergroup\\>\\)\\|\\(\\(?:\\(?:\\<cover\\>\\s-+\\)\\|\\(?:\\<assert\\>\\s-+\\)\\)*\\<property\\>\\)\\|\\(\\<\\(?:rand\\)?sequence\\>\\)\\|\\(\\<clocking\\>\\)\\|\\(\\<`[ou]vm_[a-z_]+_begin\\>\\)\\|\\(\\<`vmm_[a-z_]+_member_begin\\>\\)") (defconst verilog-end-block-ordered-rry ["\\(\\<begin\\>\\)\\|\\(\\<end\\>\\)\\|\\(\\<endcase\\>\\)\\|\\(\\<join\\(_any\\|_none\\)?\\>\\)" "\\(\\<randcase\\>\\|\\<case[xz]?\\>\\)\\|\\(\\<endcase\\>\\)" "\\(\\<fork\\>\\)\\|\\(\\<join\\(_any\\|_none\\)?\\>\\)" "\\(\\<class\\>\\)\\|\\(\\<endclass\\>\\)" "\\(\\<table\\>\\)\\|\\(\\<endtable\\>\\)" "\\(\\<specify\\>\\)\\|\\(\\<endspecify\\>\\)" "\\(\\<function\\>\\)\\|\\(\\<endfunction\\>\\)" "\\(\\<generate\\>\\)\\|\\(\\<endgenerate\\>\\)" "\\(\\<task\\>\\)\\|\\(\\<endtask\\>\\)" "\\(\\<covergroup\\>\\)\\|\\(\\<endgroup\\>\\)" "\\(\\<property\\>\\)\\|\\(\\<endproperty\\>\\)" "\\(\\<\\(rand\\)?sequence\\>\\)\\|\\(\\<endsequence\\>\\)" "\\(\\<clocking\\>\\)\\|\\(\\<endclocking\\>\\)"]) (defconst verilog-nameable-item-re "\\<\\(begin\\|end\\(?:c\\(?:ase\\|hecker\\|l\\(?:ass\\|ocking\\)\\|onfig\\)\\|function\\|g\\(?:enerate\\|roup\\)\\|interface\\|module\\|p\\(?:ackage\\|r\\(?:imitive\\|o\\(?:gram\\|perty\\)\\)\\)\\|s\\(?:equence\\|pecify\\)\\|ta\\(?:ble\\|sk\\)\\)?\\|fork\\|join\\(?:_\\(?:any\\|none\\)\\)?\\)\\>") (defconst verilog-declaration-opener "\\<\\(begin\\|function\\|module\\|task\\)\\>") (defconst verilog-declaration-prefix-re "\\<\\(const\\|in\\(?:[op]ut\\)\\|local\\(?:param\\)?\\|output\\|p\\(?:arameter\\|rotected\\)\\|ref\\|static\\|typedef\\|var\\)\\>") (defconst verilog-declaration-core-re "\\<\\(b\\(?:it\\|yte\\)\\|chandle\\|e\\(?:num\\|vent\\)\\|genvar\\|in\\(?:out\\|put\\|t\\(?:eger\\)?\\)\\|lo\\(?:gic\\|ngint\\)\\|mailbox\\|output\\|re\\(?:al\\(?:time\\)?\\|g\\)\\|s\\(?:emaphore\\|hort\\(?:int\\|real\\)\\|tr\\(?:ing\\|uct\\)\\|upply[01]\\)\\|t\\(?:ime\\|ri\\(?:and\\|or\\|reg\\|[01]\\)?\\)\\|u\\(?:nion\\|wire\\)\\|virtual\\|w\\(?:and\\|ire\\|or\\)\\)\\>") (defconst verilog-declaration-re (concat "\\(" verilog-declaration-prefix-re "\\s-*\\)?" verilog-declaration-core-re)) (defconst verilog-range-re "\\(\\[[^]]*\\]\\s-*\\)+") (defconst verilog-optional-signed-re "\\s-*\\(\\(un\\)?signed\\)?") (defconst verilog-optional-signed-range-re (concat "\\s-*\\(\\<\\(reg\\|wire\\)\\>\\s-*\\)?\\(\\<\\(un\\)?signed\\>\\s-*\\)?\\(" verilog-range-re "\\)?")) (defconst verilog-macroexp-re "`\\sw+") (defconst verilog-delay-re "#\\s-*\\(\\([0-9_]+\\('s?[hdxbo][0-9a-fA-F_xz]+\\)?\\)\\|\\(([^()]*)\\)\\|\\(\\sw+\\)\\)") (defconst verilog-declaration-re-2-no-macro (concat "\\s-*" verilog-declaration-re "\\s-*\\(\\(" verilog-optional-signed-range-re "\\)\\|\\(" verilog-delay-re "\\)" "\\)?")) (defconst verilog-declaration-re-2-macro (concat "\\s-*" verilog-declaration-re "\\s-*\\(\\(" verilog-optional-signed-range-re "\\)\\|\\(" verilog-delay-re #1="\\)" "\\|\\(" verilog-macroexp-re #1# "\\)?")) (defconst verilog-declaration-re-1-macro (concat "^" verilog-declaration-re-2-macro)) (defconst verilog-declaration-re-1-no-macro (concat "^" verilog-declaration-re-2-no-macro)) (defconst verilog-defun-re "\\<\\(c\\(?:lass\\|onfig\\)\\|interface\\|m\\(?:\\(?:acrom\\)?odule\\)\\|p\\(?:ackage\\|r\\(?:imitive\\|ogram\\)\\)\\)\\>") (defconst verilog-end-defun-re "\\<\\(end\\(?:c\\(?:lass\\|onfig\\)\\|interface\\|module\\|p\\(?:ackage\\|r\\(?:imitive\\|ogram\\)\\)\\)\\)\\>") (defconst verilog-zero-indent-re (concat verilog-defun-re "\\|" verilog-end-defun-re)) (defconst verilog-inst-comment-re "\\<\\(In\\(?:outs\\|puts\\|terface[ds]\\)\\|Outputs\\)\\>") (defconst verilog-behavioral-block-beg-re "\\<\\(always\\(?:_\\(?:comb\\|ff\\|latch\\)\\)?\\|f\\(?:inal\\|unction\\)\\|initial\\|task\\)\\>") (defconst verilog-coverpoint-re "\\w+\\s*:\\s*\\(coverpoint\\|cross\\constraint\\)") (defconst verilog-in-constraint-re "\\<\\(else\\|foreach\\|if\\|solve\\)\\>") (defconst verilog-indent-re "\\<\\(`\\(?:case\\|def\\(?:ault\\|ine\\)\\|e\\(?:ls\\(?:e\\|if\\)\\|nd\\(?:for\\|if\\|protect\\|switch\\|while\\)\\)\\|for\\(?:mat\\)?\\|i\\(?:f\\(?:n?def\\)?\\|nclude\\)\\|let\\|ovm_\\(?:component_\\(?:param_utils_begin\\|utils_\\(?:begin\\|end\\)\\)\\|field_utils_\\(?:begin\\|end\\)\\|object_\\(?:param_utils_begin\\|utils_\\(?:begin\\|end\\)\\)\\|sequence\\(?:_utils_\\(?:begin\\|end\\)\\|r_utils_\\(?:begin\\|end\\)\\)\\)\\|protect\\|switch\\|time\\(?:_?scale\\)\\|u\\(?:ndef\\|vm_\\(?:component_\\(?:param_utils_begin\\|utils_\\(?:begin\\|end\\)\\)\\|field_utils_\\(?:begin\\|end\\)\\|object_\\(?:param_utils_begin\\|utils_\\(?:begin\\|end\\)\\)\\|sequence\\(?:_utils_\\(?:begin\\|end\\)\\|r_utils_\\(?:begin\\|end\\)\\)\\)\\)\\|vmm_\\(?:data_member_\\(?:begin\\|end\\)\\|env_member_\\(?:begin\\|end\\)\\|s\\(?:cenario_member_\\(?:begin\\|end\\)\\|ubenv_member_\\(?:begin\\|end\\)\\)\\|xactor_member_\\(?:begin\\|end\\)\\)\\|while\\)\\|always\\(?:_\\(?:comb\\|ff\\|latch\\)\\)?\\|begin\\|c\\(?:ase[xz]?\\|l\\(?:ass\\|ocking\\)\\|o\\(?:nfig\\|vergroup\\)\\)\\|end\\(?:c\\(?:ase\\|l\\(?:ass\\|ocking\\)\\|onfig\\)\\|function\\|g\\(?:enerate\\|roup\\)\\|interface\\|module\\|p\\(?:ackage\\|r\\(?:imitive\\|o\\(?:gram\\|perty\\)\\)\\)\\|s\\(?:equence\\|pecify\\)\\|ta\\(?:ble\\|sk\\)\\)?\\|f\\(?:inal\\|ork\\|unction\\)\\|generate\\|in\\(?:itial\\|terface\\)\\|join\\(?:_\\(?:any\\|none\\)\\)?\\|m\\(?:\\(?:acrom\\)?odule\\)\\|p\\(?:ackage\\|r\\(?:imitive\\|o\\(?:gram\\|perty\\)\\)\\)\\|rand\\(?:\\(?:cas\\|sequenc\\)e\\)\\|s\\(?:equence\\|pecify\\)\\|ta\\(?:ble\\|sk\\)\\|virtual\\|{\\)\\>") (defconst verilog-defun-level-not-generate-re "\\<\\(c\\(?:lass\\|onfig\\)\\|interface\\|m\\(?:\\(?:acrom\\)?odule\\)\\|p\\(?:ackage\\|r\\(?:imitive\\|ogram\\)\\)\\)\\>") (defconst verilog-defun-level-re "\\<\\(always\\(?:_\\(?:comb\\|ff\\|latch\\)\\)?\\|c\\(?:lass\\|onfig\\)\\|end\\(?:function\\|task\\)\\|final\\|in\\(?:itial\\|terface\\)\\|m\\(?:\\(?:acrom\\)?odule\\)\\|p\\(?:ackage\\|r\\(?:imitive\\|ogram\\)\\)\\)\\>") (defconst verilog-defun-level-generate-only-re "\\<\\(always\\(?:_\\(?:comb\\|ff\\|latch\\)\\)?\\|end\\(?:function\\|task\\)\\|\\(?:fin\\|initi\\)al\\)\\>") (defconst verilog-cpp-level-re "\\<\\(end\\(?:class\\|interface\\|module\\|p\\(?:ackage\\|r\\(?:imitive\\|ogram\\)\\)\\)\\)\\>") (defconst verilog-dpi-import-export-re "\\(\\<\\(import\\|export\\)\\>\\s-+\"DPI\\(-C\\)?\"\\s-+\\(\\<\\(context\\|pure\\)\\>\\s-+\\)?\\([A-Za-z_][A-Za-z0-9_]*\\s-*=\\s-*\\)?\\<\\(function\\|task\\)\\>\\)") (defconst verilog-default-clocking-re "\\<default\\s-+clocking\\>") (defconst verilog-disable-fork-re "\\(disable\\|wait\\)\\s-+fork\\>") (defconst verilog-extended-case-re "\\(\\(unique0?\\s-+\\|priority\\s-+\\)?case[xz]?\\|randcase\\)") (defconst verilog-extended-complete-re (concat "\\(\\(\\<extern\\s-+\\|\\<\\(\\<\\(pure\\|context\\)\\>\\s-+\\)?virtual\\s-+\\|\\<protected\\s-+\\|\\<static\\s-+\\)*\\(\\<function\\>\\|\\<task\\>\\)\\)" "\\|\\(\\(\\<typedef\\>\\s-+\\)*\\(\\<struct\\>\\|\\<union\\>\\|\\<class\\>\\)\\)" "\\|\\(\\(\\<\\(import\\|export\\)\\>\\s-+\\)?\\(\"DPI\\(-C\\)?\"\\s-+\\)?\\(\\<\\(pure\\|context\\)\\>\\s-+\\)?\\([A-Za-z_][A-Za-z0-9_]*\\s-*=\\s-*\\)?\\(function\\>\\|task\\>\\)\\)" "\\|" verilog-extended-case-re)) (defconst verilog-basic-complete-re "\\<\\(a\\(?:lways\\(?:_\\(?:comb\\|ff\\|latch\\)\\)?\\|ss\\(?:ert\\|ign\\)\\)\\|constraint\\|do\\|else\\|f\\(?:inal\\|or\\(?:e\\(?:ach\\|ver\\)\\)?\\)\\|i\\(?:f\\|mport\\|nitial\\)\\|localparam\\|m\\(?:\\(?:acrom\\)?odule\\)\\|parameter\\|r\\(?:andcase\\|epeat\\)\\|while\\)\\>") (defconst verilog-complete-reg (concat verilog-extended-complete-re "\\|\\(" verilog-basic-complete-re "\\)")) (defconst verilog-end-statement-re (concat "\\(" verilog-beg-block-re "\\)\\|\\(" verilog-end-block-re "\\)")) (defconst verilog-endcase-re (concat verilog-extended-case-re "\\|" "\\(endcase\\)\\|" verilog-defun-re)) #@49 String used to mark beginning of excluded text. (defconst verilog-exclude-str-start "/* -----\\/----- EXCLUDED -----\\/-----" (#$ . 82524)) #@43 String used to mark end of excluded text. (defconst verilog-exclude-str-end " -----/\\----- EXCLUDED -----/\\----- */" (#$ . 82670)) (defconst verilog-preprocessor-re "\\(?:\\<\\(`\\(?:__\\(?:\\(?:FIL\\|LIN\\)E__\\)\\|celldefine\\|e\\(?:lse\\|nd\\(?:_keywords\\|celldefine\\|if\\)\\)\\|nounconnected_drive\\|resetall\\|un\\(?:connected_drive\\|defineall\\)\\)\\)\\>\\)\\|\\(?:\\<\\(`elsif\\|`ifn?def\\|`undef\\|`default_nettype\\|`begin_keywords\\)\\>\\s-\\)\\|\\(?:\\<\\(`line\\)\\>\\s-+[0-9]+\\s-+\"[^\"]+\"\\s-+[012]\\)\\|\\(?:\\<\\(`include\\)\\>\\s-+\\(?:\"[^\"]+\"\\|<[^>]+>\\)\\)\\|\\(?:\\<\\(`pragma\\)\\>\\s-+.+$\\)\\|\\(?:\\<\\(`timescale\\)\\>\\s-+10\\{0,2\\}\\s-*[munpf]?s\\s-*\\/\\s-*10\\{0,2\\}\\s-*[munpf]?s\\)\\|\\(?:\\<\\(`define\\|`if\\)\\>\\s-+\\(?:.*?\\(?:\n.*\\)*?\\)\\(?:\n\\s-*\n\\|\\'\\)\\)\\|\\(?:\\<`\\w+\\>\\s-*(\\(?:.*?\\(?:\n.*\\)*?\\)\\(?:\n\\s-*\n\\|\\'\\)\\)") #@27 List of Verilog keywords. (defconst verilog-keywords (append verilog-compiler-directives '("after" "alias" "always" "always_comb" "always_ff" "always_latch" "and" "assert" "assign" "assume" "automatic" "before" "begin" "bind" "bins" "binsof" "bit" "break" "buf" "bufif0" "bufif1" "byte" "case" "casex" "casez" "cell" "chandle" "class" "clocking" "cmos" "config" "const" "constraint" "context" "continue" "cover" "covergroup" "coverpoint" "cross" "deassign" "default" "defparam" "design" "disable" "dist" "do" "edge" "else" "end" "endcase" "endclass" "endclocking" "endconfig" "endfunction" "endgenerate" "endgroup" "endinterface" "endmodule" "endpackage" "endprimitive" "endprogram" "endproperty" "endspecify" "endsequence" "endtable" "endtask" "enum" "event" "expect" "export" "extends" "extern" "final" "first_match" "for" "force" "foreach" "forever" "fork" "forkjoin" "function" "generate" "genvar" "highz0" "highz1" "if" "iff" "ifnone" "ignore_bins" "illegal_bins" "import" "incdir" "include" "initial" "inout" "input" "inside" "instance" "int" "integer" "interface" "intersect" "join" "join_any" "join_none" "large" "liblist" "library" "local" "localparam" "logic" "longint" "macromodule" "mailbox" "matches" "medium" "modport" "module" "nand" "negedge" "new" "nmos" "nor" "noshowcancelled" "not" "notif0" "notif1" "null" "or" "output" "package" "packed" "parameter" "pmos" "posedge" "primitive" "priority" "program" "property" "protected" "pull0" "pull1" "pulldown" "pullup" "pulsestyle_onevent" "pulsestyle_ondetect" "pure" "rand" "randc" "randcase" "randsequence" "rcmos" "real" "realtime" "ref" "reg" "release" "repeat" "return" "rnmos" "rpmos" "rtran" "rtranif0" "rtranif1" "scalared" "semaphore" "sequence" "shortint" "shortreal" "showcancelled" "signed" "small" "solve" "specify" "specparam" "static" "string" "strong0" "strong1" "struct" "super" "supply0" "supply1" "table" "tagged" "task" "this" "throughout" "time" "timeprecision" "timeunit" "tran" "tranif0" "tranif1" "tri" "tri0" "tri1" "triand" "trior" "trireg" "type" "typedef" "union" "unique" "unsigned" "use" "uwire" "var" "vectored" "virtual" "void" "wait" "wait_order" "wand" "weak0" "weak1" "while" "wildcard" "wire" "with" "within" "wor" "xnor" "xor" "accept_on" "checker" "endchecker" "eventually" "global" "implies" "let" "nexttime" "reject_on" "restrict" "s_always" "s_eventually" "s_nexttime" "s_until" "s_until_with" "strong" "sync_accept_on" "sync_reject_on" "unique0" "until" "until_with" "untyped" "weak" "implements" "interconnect" "nettype" "soft")) (#$ . 83569)) #@48 Dual comment value for `comment-start-regexp'. (defconst verilog-comment-start-regexp "//\\|/\\*" (#$ . 86125)) #@44 Syntax table used in Verilog mode buffers. (defvar verilog-mode-syntax-table (byte-code "\301 \302\303\304#\210\302\305\306#\210\302\307\306#\210\302\310\306#\210\302\311\306#\210\302\312\306#\210\302\313\306#\210\302\314\306#\210\302\315\306#\210\302\316\317#\210\302\320\317#\210\302\321\306#\210\302\322\323#\210\302\324\325#\210\302\326\327#\210)\207" [table make-syntax-table modify-syntax-entry 92 "\\" 43 "." 45 61 37 60 62 38 124 96 "w" 95 39 47 ". 124b" 42 ". 23" 10 "> b"] 4) (#$ . 86243)) #@40 Default highlighting for Verilog mode. (defvar verilog-font-lock-keywords nil (#$ . 86766)) #@46 Subdued level highlighting for Verilog mode. (defvar verilog-font-lock-keywords-1 nil (#$ . 86864)) #@87 Medium level highlighting for Verilog mode. See also `verilog-font-lock-extra-types'. (defvar verilog-font-lock-keywords-2 nil (#$ . 86970)) #@86 Gaudy level highlighting for Verilog mode. See also `verilog-font-lock-extra-types'. (defvar verilog-font-lock-keywords-3 nil (#$ . 87117)) #@41 Font to use for translated off regions. (defvar verilog-font-lock-translate-off-face 'verilog-font-lock-translate-off-face (#$ . 87263)) (custom-declare-face 'verilog-font-lock-translate-off-face '((((class color) (background light)) (:background "gray90" :italic t)) (((class color) (background dark)) (:background "gray10" :italic t)) (((class grayscale) (background light)) (:foreground "DimGray" :italic t)) (((class grayscale) (background dark)) (:foreground "LightGray" :italic t)) (t (:italis t))) "Font lock mode face used to background highlight translate-off regions." :group 'font-lock-highlighting-faces) #@33 Font to use for p1800 keywords. (defvar verilog-font-lock-p1800-face 'verilog-font-lock-p1800-face (#$ . 87886)) (custom-declare-face 'verilog-font-lock-p1800-face '((((class color) (background light)) (:foreground "DarkOrange3" :bold t)) (((class color) (background dark)) (:foreground "orange1" :bold t)) (t (:italic t))) "Font lock mode face used to highlight P1800 keywords." :group 'font-lock-highlighting-faces) #@47 Font to use for Analog/Mixed Signal keywords. (defvar verilog-font-lock-ams-face 'verilog-font-lock-ams-face (#$ . 88310)) (custom-declare-face 'verilog-font-lock-ams-face '((((class color) (background light)) (:foreground "Purple" :bold t)) (((class color) (background dark)) (:foreground "orange1" :bold t)) (t (:italic t))) "Font lock mode face used to highlight AMS keywords." :group 'font-lock-highlighting-faces) #@65 Font to use for Verilog Grouping Keywords (such as begin..end). (defvar verilog-font-lock-grouping-keywords-face 'verilog-font-lock-grouping-keywords-face (#$ . 88735)) (byte-code "\306\307\310\311\312\313%\210\314\315\316\317\320 \321 \322 ,\323 -\324,\325\326\327\260.\2031 \324-\327Q\307B\2028 \324-\327Q\330B\324\327Q\330B/\203L \324\n\327Q\331B\202R \324\n\327Q\330B/\203` \324 \327Q\331B\202f \324 \327Q\330B/\203t \324\f\327Q\331B\202z \324\f\327Q\330B\324 \327Q\332B\2570\3330\334\335\336E\337\340\341E\342\343F\"1\3331\344 \345Q\346\347\350\351\352\257\"2\33323\205\260 \353C\"4.\306\207" [verilog-type-font-keywords verilog-pragma-keywords verilog-1800-2005-keywords verilog-1800-2009-keywords verilog-1800-2012-keywords verilog-ams-keywords custom-declare-face verilog-font-lock-grouping-keywords-face ((((class color) (background light)) (:foreground "Purple" :bold t)) (((class color) (background dark)) (:foreground "orange1" :bold t)) (t (:italic t))) "Font lock mode face used to highlight verilog grouping keywords." :group font-lock-highlighting-faces "\\(?:and\\|b\\(?:it\\|uf\\(?:if[01]\\)?\\)\\|cmos\\|defparam\\|event\\|genvar\\|in\\(?:out\\|put\\|teger\\)\\|lo\\(?:calparam\\|gic\\)\\|mailbox\\|n\\(?:and\\|mos\\|o\\(?:tif[01]\\|[rt]\\)\\)\\|o\\(?:r\\|utput\\)\\|p\\(?:arameter\\|mos\\|ull\\(?:down\\|up\\|[01]\\)\\)\\|r\\(?:cmos\\|e\\(?:al\\(?:time\\)?\\|g\\)\\|nmos\\|pmos\\|tran\\(?:if[01]\\)?\\)\\|s\\(?:emaphore\\|igned\\|truct\\|upply[01]?\\)\\|t\\(?:ime\\|r\\(?:an\\(?:if[01]\\)?\\|i\\(?:and\\|or\\|reg\\|[01]\\)?\\)\\|ypedef\\)\\|uwire\\|vectored\\|w\\(?:and\\|ire\\|or\\)\\|x\\(?:n?or\\)\\)" "\\(?:0in\\|auto\\|leda\\|rtl_synthesis\\|s\\(?:urefire\\|ynopsys\\)\\|verilint\\)" "\\(?:a\\(?:lias\\|ss\\(?:ert\\|ume\\)\\|utomatic\\)\\|b\\(?:efore\\|in\\(?:sof\\|[ds]\\)\\|reak\\|yte\\)\\|c\\(?:ell\\|handle\\|l\\(?:ass\\|ocking\\)\\|o\\(?:n\\(?:fig\\|st\\(?:raint\\)?\\|t\\(?:ext\\|inue\\)\\)\\|ver\\(?:group\\|point\\)?\\)\\|ross\\)\\|d\\(?:e\\(?:\\(?:as\\)?sign\\)\\|ist\\|o\\)\\|e\\(?:dge\\|n\\(?:d\\(?:c\\(?:l\\(?:ass\\|ocking\\)\\|onfig\\)\\|group\\|pro\\(?:gram\\|perty\\)\\|sequence\\)\\|um\\)\\|x\\(?:p\\(?:\\(?:ec\\|or\\)t\\)\\|te\\(?:nds\\|rn\\)\\)\\)\\|f\\(?:irst_match\\|or\\(?:each\\|kjoin\\)\\)\\|genvar\\|highz[01]\\|i\\(?:fnone\\|gnore_bins\\|llegal_bins\\|mport\\|n\\(?:c\\(?:dir\\|lude\\)\\|s\\(?:\\(?:id\\|tanc\\)e\\)\\|t\\(?:ersect\\)?\\)\\)\\|l\\(?:arge\\|ib\\(?:list\\|rary\\)\\|o\\(?:cal\\|ngint\\)\\)\\|m\\(?:atches\\|edium\\|odport\\)\\|n\\(?:ew\\|oshowcancelled\\|ull\\)\\|p\\(?:acked\\|ro\\(?:gram\\|perty\\|tected\\)\\|u\\(?:l\\(?:l[01]\\|sestyle_on\\(?:\\(?:detec\\|even\\)t\\)\\)\\|re\\)\\)\\|r\\(?:and\\(?:c\\(?:ase\\)?\\|sequence\\)?\\|e\\(?:f\\|lease\\|turn\\)\\)\\|s\\(?:calared\\|equence\\|ho\\(?:rt\\(?:int\\|real\\)\\|wcancelled\\)\\|mall\\|olve\\|pecparam\\|t\\(?:atic\\|r\\(?:ing\\|ong[01]\\|uct\\)\\)\\|uper\\)\\|t\\(?:agged\\|h\\(?:is\\|roughout\\)\\|ime\\(?:precision\\|unit\\)\\|ype\\)\\|u\\(?:n\\(?:ion\\|signed\\)\\|se\\)\\|v\\(?:ar\\|irtual\\|oid\\)\\|w\\(?:ait_order\\|eak[01]\\|i\\(?:ldcard\\|th\\(?:in\\)?\\)\\)\\)" "\\(?:accept_on\\|checker\\|e\\(?:ndchecker\\|ventually\\)\\|global\\|implies\\|let\\|nexttime\\|re\\(?:ject_on\\|strict\\)\\|s\\(?:_\\(?:always\\|eventually\\|nexttime\\|until\\(?:_with\\)?\\)\\|trong\\|ync_\\(?:\\(?:accep\\|rejec\\)t_on\\)\\)\\|un\\(?:ique0\\|t\\(?:il\\(?:_with\\)?\\|yped\\)\\)\\|weak\\)" "\\(?:i\\(?:mplements\\|nterconnect\\)\\|nettype\\|soft\\)" "\\(?:a\\(?:b\\(?:ove\\|s\\(?:delay\\)?\\)\\|c\\(?:_stim\\|osh?\\)\\|liasparam\\|nal\\(?:og\\|ysis\\)\\|sinh?\\|tan[2h]?\\)\\|branch\\|c\\(?:eil\\|o\\(?:nnect\\(?:module\\|rules\\)\\|sh?\\)\\)\\|d\\(?:d[tx]\\|\\(?:isciplin\\|river_updat\\)e\\)\\|e\\(?:nd\\(?:connectrules\\|discipline\\|nature\\|paramset\\)\\|x\\(?:clude\\|p\\)\\)\\|f\\(?:inal_step\\|l\\(?:icker_noise\\|o\\(?:or\\|w\\)\\)\\|rom\\)\\|ground\\|hypot\\|i\\(?:dt\\(?:mod\\)?\\|n\\(?:f\\|itial_step\\)\\)\\|l\\(?:a\\(?:place_\\(?:n[dp]\\|z[dp]\\)\\|st_crossing\\)\\|imexp\\|n\\|og\\)\\|m\\(?:ax\\|in\\)\\|n\\(?:ature\\|et_resolution\\|oise_table\\)\\|p\\(?:aramset\\|o\\(?:tential\\|w\\)\\)\\|s\\(?:inh?\\|lew\\|qrt\\)\\|t\\(?:anh?\\|imer\\|ransition\\)\\|w\\(?:hite_noise\\|real\\)\\|zi_\\(?:n[dp]\\|zd\\)\\)" "\\(?:a\\(?:lways\\(?:_\\(?:comb\\|ff\\|latch\\)\\)?\\|ssign\\)\\|break\\|c\\(?:ase[xz]?\\|lass\\|ontinue\\)\\|d\\(?:e\\(?:assign\\|fault\\)\\|isable\\)\\|e\\(?:lse\\|nd\\(?:c\\(?:ase\\|lass\\)\\|function\\|generate\\|interface\\|module\\|p\\(?:ackage\\|r\\(?:imitive\\|ogram\\)\\)\\|specify\\|ta\\(?:ble\\|sk\\)\\)\\)\\|f\\(?:inal\\|or\\(?:ce\\|ever\\|k\\)?\\|unction\\)\\|generate\\|i\\(?:ff?\\|n\\(?:itial\\|terface\\)\\)\\|join\\(?:_\\(?:any\\|none\\)\\)?\\|m\\(?:\\(?:acrom\\)?odule\\)\\|negedge\\|p\\(?:ackage\\|osedge\\|r\\(?:i\\(?:mitive\\|ority\\)\\|ogram\\)\\)\\|r\\(?:andcase\\|e\\(?:lease\\|peat\\|turn\\)\\)\\|specify\\|ta\\(?:ble\\|sk\\)\\|unique\\|w\\(?:ait\\|hile\\)\\)" "\\(?:begin\\|end\\)" "\\<\\(" "\\|" "\\$[a-zA-Z][a-zA-Z0-9_\\$]*" "\\)\\>" font-lock-type-face verilog-font-lock-p1800-face verilog-font-lock-ams-face append "\\<\\(\\(macro\\)?module\\|primitive\\|class\\|program\\|interface\\|package\\|task\\)\\>\\s-*\\(\\sw+\\)" (1 font-lock-keyword-face) (3 font-lock-function-name-face 'prepend) "\\<function\\>\\s-+\\(integer\\|real\\(time\\)?\\|time\\)\\s-+\\(\\sw+\\)" (1 font-lock-keyword-face) (3 font-lock-constant-face prepend) ("\\<function\\>\\s-+\\(\\[[^]]+\\]\\)\\s-+\\(\\sw+\\)" (1 font-lock-keyword-face) (2 font-lock-constant-face append)) ("\\<function\\>\\s-+\\(\\sw+\\)" 1 'font-lock-constant-face append) "\\(//\\s-*\\(" "\\)\\s-.*\\)" ("\\(\\\\\\S-*\\s-\\)" 0 font-lock-function-name-face) ("`\\s-*[A-Za-z][A-Za-z0-9_]*" 0 (if (boundp 'font-lock-preprocessor-face) 'font-lock-preprocessor-face 'font-lock-type-face)) ("\\(@\\)\\|\\([ \n\f ]#\\s-*\\(\\([0-9_.]+\\('s?[hdxbo][0-9a-fA-F_xz]*\\)?\\)\\|\\(([^()]+)\\|\\sw+\\)\\)\\)" 0 font-lock-type-face append) ("\\(##\\(\\sw+\\|\\[[^]]+\\]\\)\\)" 0 font-lock-type-face append) ("\\([A-Za-z][A-Za-z0-9_]*\\)\\s-*(" 1 font-lock-function-name-face) (verilog-match-translate-off (0 'verilog-font-lock-translate-off-face prepend)) verilog-font-keywords verilog-font-grouping-keywords verilog-highlight-grouping-keywords verilog-highlight-p1800-keywords verilog-font-lock-keywords verilog-font-lock-keywords-1 verilog-font-lock-keywords-2 verilog-highlight-translate-off verilog-font-lock-keywords-3] 9) #@433 Execute BODY forms, saving state around insignificant change. Changes in text properties like `face' or `syntax-table' are considered insignificant. This macro allows text properties to be changed, even in a read-only buffer. A change is considered significant if it affects the buffer text in any way that isn't completely restored again. Any user-visible changes to the buffer must not be within a `verilog-save-buffer-state'. (defalias 'verilog-save-buffer-state '(macro . #[(&rest body) "\301\302\303\304!\203 \304B\202 \305\306\307\310B\311BBEE\207" [body let ((inhibit-point-motion-hooks t) (verilog-no-change-functions t)) fboundp with-silent-modifications let* ((modified (buffer-modified-p)) (buffer-undo-list t) (inhibit-read-only t) (inhibit-modification-hooks t) before-change-functions after-change-functions deactivate-mark buffer-file-name buffer-file-truename) unwind-protect progn ((and (not modified) (buffer-modified-p) (verilog-restore-buffer-modified-p nil)))] 7 (#$ . 95196)])) #@77 Local variable when inside a `verilog-save-font-no-change-functions' block. (defvar verilog-save-font-mod-hooked nil (#$ . 96209)) (make-variable-buffer-local 'verilog-save-font-mod-hooked) #@332 Execute BODY forms, disabling all change hooks in BODY. Includes temporary disabling of `font-lock' to restore the buffer to full text form for parsing. Additional actions may be specified with `verilog-before-save-font-hook' and `verilog-after-save-font-hook'. For insignificant changes, see instead `verilog-save-buffer-state'. (defalias 'verilog-save-font-no-change-functions '(macro . #[(&rest body) "\301\302\303B\304\305\306\307\310\305\311\303BE\312BBF\257\207" [body if verilog-save-font-mod-hooked progn (verilog-run-hooks 'verilog-before-save-font-hook) let* ((verilog-save-font-mod-hooked (- (point-max) (point-min))) (fontlocked (when (and (boundp 'font-lock-mode) font-lock-mode) (font-lock-mode 0) t))) (run-hook-with-args 'before-change-functions (point-min) (point-max)) unwind-protect ((inhibit-point-motion-hooks t) (inhibit-modification-hooks t) (verilog-no-change-functions t) before-change-functions after-change-functions) ((run-hook-with-args 'after-change-functions (point-min) (point-max) verilog-save-font-mod-hooked) (when fontlocked (font-lock-mode t)) (verilog-run-hooks 'verilog-after-save-font-hook))] 12 (#$ . 96406)])) #@158 If true, the specified buffer's comment properties are static. Buffer changes will be ignored. See `verilog-inside-comment-or-string-p' and `verilog-scan'. (defvar verilog-scan-cache-preserving nil (#$ . 97569)) #@63 Modification tick at which `verilog-scan' was last completed. (defvar verilog-scan-cache-tick nil (#$ . 97788)) (make-variable-buffer-local 'verilog-scan-cache-tick) #@33 Flush the `verilog-scan' cache. (defalias 'verilog-scan-cache-flush #[nil "\301\211\207" [verilog-scan-cache-tick nil] 2 (#$ . 97960)]) #@43 Return t if the scan cache is up to date. (defalias 'verilog-scan-cache-ok-p #[nil "\203 p=\203 \206 \302 \232\207" [verilog-scan-cache-preserving verilog-scan-cache-tick buffer-chars-modified-tick] 2 (#$ . 98103)]) #@128 Execute the BODY forms, allowing scan cache preservation within BODY. This requires that insertions must use `verilog-insert'. (defalias 'verilog-save-scan-cache '(macro . #[(&rest body) "\301\302\303\304\301BEE\207" [body progn (unless (verilog-scan-cache-ok-p) (setq verilog-scan-cache-tick nil)) let* ((verilog-scan-cache-preserving (current-buffer)))] 6 (#$ . 98333)])) #@129 Parse between BEG and END for `verilog-inside-comment-or-string-p'. This creates v-cmts properties where comments are in force. (defalias 'verilog-scan-region #[(beg end) "\212\306 \307\216\310\211\311 \310\211 \310 \312\216\313 b\210` W\205\243 \314\315!\203F `\316\317 \310#\204: b\210\320T`\321\310$\210\202 \314\322!\203h `\316\323 \310#\204\\ b\210\320T`\321\310$\210\202 \314\324!\203\212 `\325\326 \310#\204~ b\210\320T`\321\310$\210\202 \327u\210\325\330 \310#\203\234 \331u\210\202 b\210\202 . \207" [save-match-data-internal verilog-no-change-functions inhibit-point-motion-hooks #1=#:modified buffer-undo-list inhibit-read-only match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] t buffer-modified-p #[nil "?\205 \301\302!\207" [#1# restore-buffer-modified-p nil] 2] nil looking-at "//" search-forward "\n" put-text-property v-cmts "/\\*" "*/" "\"" re-search-forward "[^\\]\"" 1 "[/\"]" -1 inhibit-modification-hooks pt beg end] 6 (#$ . 98715)]) #@190 Parse the buffer, marking all comments with properties. Also assumes any text inserted since `verilog-scan-cache-tick' either is ok to parse as a non-comment, or `verilog-insert' was used. (defalias 'verilog-scan #[nil "\306 ?\205? \212\307\211\310 \307\211 \307 \311\216\203& \312\313p\314 %\210\315ed\316#\210\317ed\"\210\314 \205= \312\320!.\207" [verilog-no-change-functions inhibit-point-motion-hooks #1=#:modified buffer-undo-list inhibit-read-only inhibit-modification-hooks verilog-scan-cache-ok-p t buffer-modified-p #[nil "?\205 \301\302!\207" [#1# restore-buffer-modified-p nil] 2] message "Scanning %s cache=%s cachetick=%S tick=%S" buffer-chars-modified-tick remove-text-properties (v-cmts nil) verilog-scan-region "Scanning... done" verilog-debug verilog-scan-cache-preserving verilog-scan-cache-tick] 7 (#$ . 99758)]) #@66 For debugging, show with display face results of `verilog-scan'. (defalias 'verilog-scan-debug #[nil "\300\301!\210\212eb\210\302ed\303#\210m?\2054 \304`\305\"\203( \306``T\307\310$\210\311u\210\202 \312`!\206/ db\210\202 )\207" [font-lock-mode 0 remove-text-properties (face nil) get-text-property v-cmts put-text-property face underline 1 next-property-change] 5 (#$ . 100614)]) #@61 For debugging, run `verilog-scan' and `verilog-scan-debug'. (defalias 'verilog-scan-and-debug #[nil "\302\211eb\210\303 \210\304 *\207" [verilog-scan-cache-tick verilog-scan-cache-preserving nil verilog-scan verilog-scan-debug] 2 (#$ . 101003)]) #@163 Check if optional point POS is inside a comment. This may require a slow pre-parse of the buffer with `verilog-scan' to establish comment properties on all text. (defalias 'verilog-inside-comment-or-string-p #[(&optional pos) "\301 \210\203 eY\205 \302\303\"\207\302`\303\"\207" [pos verilog-scan get-text-property v-cmts] 3 (#$ . 101258)]) #@190 Insert STUFF arguments, tracking for `verilog-inside-comment-or-string-p'. Any insert that includes a comment must have the entire comment inserted using a single call to `verilog-insert'. (defalias 'verilog-insert #[(&rest stuff) "` \203 @c\210 A\211\204 \302`\")\207" [pt stuff verilog-scan-region] 4 (#$ . 101611)]) (defalias 'verilog-declaration-end #[nil "\300\301!\207" [search-forward ";"] 2]) #@147 Return text describing where POINTNUM or current point is (for errors). Use filename, if current buffer being edited shorten to just buffer name. (defalias 'verilog-point-text #[(&optional pointnum) "\302 p\232\203\f \303 \206 \206 \303 \304\305\306e \206 `\"T!Q\207" [buffer-file-name pointnum window-buffer buffer-name ":" int-to-string count-lines] 6 (#$ . 102025)]) #@45 Move backward over one balanced expression. (defalias 'electric-verilog-backward-sexp #[nil "\300 \207" [verilog-backward-sexp] 1 (#$ . 102405) nil]) #@44 Move forward over one balanced expression. (defalias 'electric-verilog-forward-sexp #[nil "\300 \207" [verilog-forward-sexp] 1 (#$ . 102561) nil]) #@25 Move forward ARG sexps. (defalias 'verilog-forward-sexp-function #[(arg) "\301W\203 \302 \207\303 \207" [arg 0 verilog-backward-sexp verilog-forward-sexp] 2 (#$ . 102714)]) (defalias 'verilog-backward-sexp #[nil "\306\307\306`\310\311!\204 \312\313!\210\314 \206N\310\315!\203\221 \f\316\317Q ?\205N \306\320 & '\321 (\322'& #\203\\ \323 \211(\203\\ \314 \203\\ \324(&\203X `&V\202Y \325\2042 \326(!\210\327\225,\205N\307\225\203r \330 \210\202\" \331\225\203} \nT\202\" \332\225\203\" \nS\211\327U\203\" \325\211\202# \310\f!\203\234 \330 \202N\310\333!\203I\307\225\203\347 \334\306\320 & '\321 (\322'& #\203\334 \323 \211(\203\334 \314 \203\334 \324(&\203\330 `&V\202\331 \325\204\262 \326(!\210\327\225,\202N\331\225\203,\335\306\320 & '\321 (\322'& #\203!\323 \211(\203!\314 \203!\324(&\203 `&V\202 \325\204\367 \326(!\210\327\225,\202N\332\225\203q\336\306\320 & '\321 (\322'& #\203f\323 \211(\203f\314 \203f\324(&\203b`&V\202c\325\204<\326(!\210\327\225,\202N\337\225\203\266\340\306\320 & '\321 (\322'& #\203\253\323 \211(\203\253\314 \203\253\324(&\203\247`&V\202\250\325\204\201\326(!\210\327\225,\202N\341\225\203\373\342\306\320 & '\321 (\322'& #\203\360\323 \211(\203\360\314 \203\360\324(&\203\354`&V\202\355\325\204\306\326(!\210\327\225,\202N\343\225\203@\344\306\320 & '\321 (\322'& #\2035\323 \211(\2035\314 \2035\324(&\2031`&V\2022\325\204 \326(!\210\327\225,\202Nb\210\345\307!\202Nb\210\345 ,\207" [st found elsec reg verilog-end-block-re NOERROR nil 1 looking-at "\\<" forward-word-strictly -1 verilog-skip-backward-comment-or-string "\\<else\\>" "\\|\\(\\<else\\>\\)" "\\|\\(\\<if\\>\\)" move (nil nil) re-search-backward match-data (nil nil) t store-match-data 0 verilog-leap-to-head 2 3 "\\(endmodule\\>\\)\\|\\(\\<endprimitive\\>\\)\\|\\(\\<endclass\\>\\)\\|\\(\\<endprogram\\>\\)\\|\\(\\<endinterface\\>\\)\\|\\(\\<endpackage\\>\\)" "\\<\\(macro\\)?module\\>" "\\<primitive\\>" "\\<class\\>" 4 "\\<program\\>" 5 "\\<interface\\>" 6 "\\<package\\>" backward-sexp BOUND REGEXP mdata] 5]) (defalias 'verilog-forward-sexp #[nil "\306\307`\310\311\312!\204 \313\314!\210\315 \203 \316 \202\274\311\f!\203\347\317\225\203, \320\202\360 \307\225\2038 \321\322\202\360 \323\225\203o \306 \311@!\204Y \311\324!\203f `\313\314!\210\311@!\203f \325\225b\210\313\317!\210\306\202k b\210\326)\202\360 \327\225\203y \330\202\360 \331\225\203\205 \332\333\202\360 \334\225\203\217 \335\202\360 \336\225\203\233 \337\333\202\360 \340\225\203\247 \337\333\202\360 \341\225\203\263 \342\333\202\360 \343\225\203\277 \342\333\202\360 \343\225\203\311 \344\202\360 \345\225\203\323 \346\202\360 \347\225\203\335 \350\202\360 \351\225\203\351 \352\322\202\360 \353\225\203\360 \354 \205\274\313\317!\205\274\3552\274\310=\203\235\317\306 A \306\356 B C D\357 E\360DCB#\203@\361 \211E\203@\315 \203@\362EC\203<`CW\202=\363\204\364E!\210\325\225,\205\231\n\225\203cAS\211A\325U\203 \365\355\317\"\210\202 \317\225\203 `\317\224b\210\311@!\204\206\311\324!\203\214\313\314!\210\311@!\203\214\325\225b\202\225 b\210AT\211A\210\202 *\202\343 \306\356 B C D\357 E\360DCB#\203\324\361 \211E\203\324\315 \203\324\362EC\203\320`CW\202\321\363\204\251\364E!\210\325\225,\205\343\365\355\317\"0\202\274\311\366!\203\253\317\225\2034\367\306\356 B C D\357 E\360DCB#\203)\361 \211E\203)\315 \203)\362EC\203%`CW\202&\363\204\376\364E!\210\325\225,\202\274\307\225\203{\370\306\356 B C D\357 E\360DCB#\203p\361 \211E\203p\315 \203p\362EC\203l`CW\202m\363\204E\364E!\210\325\225,\202\274\322\225\203\302\371\306\356 B C D\357 E\360DCB#\203\267\361 \211E\203\267\315 \203\267\362EC\203\263`CW\202\264\363\204\214\364E!\210\325\225,\202\274\323\225\203 \372\306\356 B C D\357 E\360DCB#\203\376\361 \211E\203\376\315 \203\376\362EC\203\372`CW\202\373\363\204\323\364E!\210\325\225,\202\274\373\225\203P\374\306\356 B C D\357 E\360DCB#\203E\361 \211E\203E\315 \203E\362EC\203A`CW\202B\363\204\364E!\210\325\225,\202\274\327\225\203\227\375\306\356 B C D\357 E\360DCB#\203\214\361 \211E\203\214\315 \203\214\362EC\203\210`CW\202\211\363\204a\364E!\210\325\225,\202\274 b\210g\376U\203\245\317u\202\274\377\317!\202\274 b\210g\376U\203\271\317u\202\274\377\317!,\207" [nest st md reg verilog-beg-block-re-ordered here nil 2 yes looking-at "\\<" forward-word-strictly -1 verilog-skip-forward-comment-or-string verilog-forward-syntactic-ws 1 "\\(\\<begin\\>\\)\\|\\(\\<end\\>\\)" "\\(\\<randcase\\>\\|\\(\\<unique0?\\>\\s-+\\|\\<priority\\>\\s-+\\)?\\<case[xz]?\\>[^:]\\)\\|\\(\\<endcase\\>\\)" 3 4 "fork" 0 "\\(\\<fork\\>\\)\\|\\(\\<join\\(_any\\|_none\\)?\\>\\)" 6 "\\(\\<class\\>\\)\\|\\(\\<endclass\\>\\)" 7 "\\<endtable\\>" no 8 "\\(\\<specify\\>\\)\\|\\(\\<endspecify\\>\\)" 9 "\\<endfunction\\>" 10 11 "\\<endtask\\>" 12 "\\(\\<generate\\>\\)\\|\\(\\<endgenerate\\>\\)" 13 "\\(\\<covergroup\\>\\)\\|\\(\\<endgroup\\>\\)" 14 "\\(\\<property\\>\\)\\|\\(\\<endproperty\\>\\)" 15 "\\(\\<\\(rand\\)?sequence\\>\\)\\|\\(\\<endsequence\\>\\)" 17 "\\(\\<clocking\\>\\)\\|\\(\\<endclocking\\>\\)" skip move (nil nil) re-search-forward match-data (nil nil) t store-match-data throw "\\(\\<\\(macro\\)?module\\>\\)\\|\\(\\<primitive\\>\\)\\|\\(\\<class\\>\\)\\|\\(\\<program\\>\\)\\|\\(\\<interface\\>\\)\\|\\(\\<package\\>\\)" "\\<endmodule\\>" "\\<endprimitive\\>" "\\<endclass\\>" "\\<endprogram\\>" 5 "\\<endinterface\\>" "\\<endpackage\\>" 41 forward-sexp verilog-disable-fork-re depth NOERROR BOUND REGEXP mdata] 5]) (defalias 'verilog-declaration-beg #[nil "o\305\306 \307 \n #\203, \310 \211\203, \311 \203, \312\n\203( `\nV\202) \305\204 \313\f!\210\314\225,\207" [verilog-declaration-re NOERROR BOUND REGEXP mdata t (nil nil) re-search-backward match-data verilog-skip-backward-comment-or-string (nil nil) store-match-data 0] 4]) (defvar verilog-which-tool 1) (defvar verilog-mode-hook nil) (byte-code "\300\301N\204\f \302\300\301\303#\210\304\305!\204 \302\305\306\307#\210\300\207" [verilog-mode-hook variable-documentation put "Hook run after entering Verilog mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp verilog-mode-map definition-name verilog-mode] 4) (defvar verilog-mode-map (make-sparse-keymap)) (byte-code "\300\301N\204 \302\300\301\303\304!#\210\305\306!\204 \302\306\307\310#\210\311\312 !\210\306\301N\204- \302\306\301\303\313!#\210\302\310\314\315#\207" [verilog-mode-map variable-documentation put purecopy "Keymap for `verilog-mode'." boundp verilog-mode-syntax-table definition-name verilog-mode (lambda (#1=#:def-tmp-var) (defvar verilog-mode-syntax-table #1#)) make-syntax-table "Syntax table for `verilog-mode'." derived-mode-parent prog-mode] 5) #@6510 Major mode for editing Verilog code. \<verilog-mode-map> See \[describe-function] verilog-auto (\[verilog-auto]) for details on how AUTOs can improve coding efficiency. Use \[verilog-faq] for a pointer to frequently asked questions. NEWLINE, TAB indents for Verilog code. Delete converts tabs to spaces as it moves back. Supports highlighting. Turning on Verilog mode calls the value of the variable `verilog-mode-hook' with no args, if that value is non-nil. Variables controlling indentation/edit style: variable `verilog-indent-level' (default 3) Indentation of Verilog statements with respect to containing block. `verilog-indent-level-module' (default 3) Absolute indentation of Module level Verilog statements. Set to 0 to get initial and always statements lined up on the left side of your screen. `verilog-indent-level-declaration' (default 3) Indentation of declarations with respect to containing block. Set to 0 to get them list right under containing block. `verilog-indent-level-behavioral' (default 3) Indentation of first begin in a task or function block Set to 0 to get such code to lined up underneath the task or function keyword. `verilog-indent-level-directive' (default 1) Indentation of \=`ifdef/\=`endif blocks. `verilog-cexp-indent' (default 1) Indentation of Verilog statements broken across lines i.e.: if (a) begin `verilog-case-indent' (default 2) Indentation for case statements. `verilog-auto-newline' (default nil) Non-nil means automatically newline after semicolons and the punctuation mark after an end. `verilog-auto-indent-on-newline' (default t) Non-nil means automatically indent line after newline. `verilog-tab-always-indent' (default t) Non-nil means TAB in Verilog mode should always reindent the current line, regardless of where in the line point is when the TAB command is used. `verilog-indent-begin-after-if' (default t) Non-nil means to indent begin statements following a preceding if, else, while, for and repeat statements, if any. Otherwise, the begin is lined up with the preceding token. If t, you get: if (a) begin // amount of indent based on `verilog-cexp-indent' otherwise you get: if (a) begin `verilog-auto-endcomments' (default t) Non-nil means a comment /* ... */ is set after the ends which ends cases, tasks, functions and modules. The type and name of the object will be set between the braces. `verilog-minimum-comment-distance' (default 10) Minimum distance (in lines) between begin and end required before a comment will be inserted. Setting this variable to zero results in every end acquiring a comment; the default avoids too many redundant comments in tight quarters. `verilog-auto-lineup' (default `declarations') List of contexts where auto lineup of code should be done. Variables controlling other actions: `verilog-linter' (default `surelint') Unix program to call to run the lint checker. This is the default command for \[compile-command] and \[verilog-auto-save-compile]. See \[customize] for the complete list of variables. AUTO expansion functions are, in part: \[verilog-auto] Expand AUTO statements. \[verilog-delete-auto] Remove the AUTOs. \[verilog-inject-auto] Insert AUTOs for the first time. Some other functions are: \[completion-at-point] Complete word with appropriate possibilities. \[verilog-mark-defun] Mark function. \[verilog-beg-of-defun] Move to beginning of current function. \[verilog-end-of-defun] Move to end of current function. \[verilog-label-be] Label matching begin ... end, fork ... join, etc statements. \[verilog-comment-region] Put marked area in a comment. \[verilog-uncomment-region] Uncomment an area commented with \[verilog-comment-region]. \[verilog-insert-block] Insert begin ... end. \[verilog-star-comment] Insert /* ... */. \[verilog-sk-always] Insert an always @(AS) begin .. end block. \[verilog-sk-begin] Insert a begin .. end block. \[verilog-sk-case] Insert a case block, prompting for details. \[verilog-sk-for] Insert a for (...) begin .. end block, prompting for details. \[verilog-sk-generate] Insert a generate .. endgenerate block. \[verilog-sk-header] Insert a header block at the top of file. \[verilog-sk-initial] Insert an initial begin .. end block. \[verilog-sk-fork] Insert a fork begin .. end .. join block. \[verilog-sk-module] Insert a module .. (/*AUTOARG*/);.. endmodule block. \[verilog-sk-ovm-class] Insert an OVM Class block. \[verilog-sk-uvm-object] Insert an UVM Object block. \[verilog-sk-uvm-component] Insert an UVM Component block. \[verilog-sk-primitive] Insert a primitive .. (.. );.. endprimitive block. \[verilog-sk-repeat] Insert a repeat (..) begin .. end block. \[verilog-sk-specify] Insert a specify .. endspecify block. \[verilog-sk-task] Insert a task .. begin .. end endtask block. \[verilog-sk-while] Insert a while (...) begin .. end block, prompting for details. \[verilog-sk-casex] Insert a casex (...) item: begin.. end endcase block, prompting for details. \[verilog-sk-casez] Insert a casez (...) item: begin.. end endcase block, prompting for details. \[verilog-sk-if] Insert an if (..) begin .. end block. \[verilog-sk-else-if] Insert an else if (..) begin .. end block. \[verilog-sk-comment] Insert a comment block. \[verilog-sk-assign] Insert an assign .. = ..; statement. \[verilog-sk-function] Insert a function .. begin .. end endfunction block. \[verilog-sk-input] Insert an input declaration, prompting for details. \[verilog-sk-output] Insert an output declaration, prompting for details. \[verilog-sk-state-machine] Insert a state machine definition, prompting for details. \[verilog-sk-inout] Insert an inout declaration, prompting for details. \[verilog-sk-wire] Insert a wire declaration, prompting for details. \[verilog-sk-reg] Insert a register declaration, prompting for details. \[verilog-sk-define-signal] Define signal under point as a register at the top of the module. All key bindings can be seen in a Verilog-buffer with \[describe-bindings]. Key bindings specific to `verilog-mode-map' are: \{verilog-mode-map} (defalias 'verilog-mode #[nil "\306\300!\210\307\310 \210\311\312\310\313N\203 \314\311\313\310\313N#\210\315 !\204' \316 \317 \"\210\320\f!\211 \2036 \321 =\203< \322\f\323 \"\210)\324 !\210\325\f!\210@A\306\326!\210\327\306\330!\210\331\325\f!\210\306\332!\210\333\306\334!\210\335 \306\336!\210\337 \306\340!\210\341 \306\342!\210\343\"\306\344!\210\345$\306\346!\210\337&\347B\350C\351 \210\352\353!\203\241 \354\353\355\307#\210\306\356!\210\357\337\211\211\360\361!?\205\261 \327\257.D\204\317 \354\362\363\307\211$\210\354\364\363\307\211$\210\354\365\366\307\211$\210\306\367!\210E7\352\370!\203\366 8<\203\366 \3118\235\203\360 8\210\202\366 \3118B8\352\371!\203 \3119\236\204 \3729B9\354\373\374\337\375$\210\354\376\377\337\375$\210)\201F \201G !\207" [delay-mode-hooks major-mode mode-name verilog-mode-map verilog-mode-syntax-table parent make-local-variable t prog-mode verilog-mode "Verilog" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table use-local-map set-syntax-table beginning-of-defun-function verilog-beg-of-defun end-of-defun-function verilog-end-of-defun indent-line-function verilog-indent-line-relative comment-indent-function verilog-comment-indent parse-sexp-ignore-comments nil comment-start "// " comment-end "" comment-start-skip "/\\*+ *\\|// *" comment-multi-line 1 verilog-linter verilog-set-compile-command boundp hack-local-variables-hook add-hook verilog-modify-compile-command font-lock-defaults (verilog-font-lock-keywords verilog-font-lock-keywords-1 verilog-font-lock-keywords-2 verilog-font-lock-keywords-3) functionp syntax-ppss font-lock-mode-hook verilog-highlight-buffer font-lock-after-fontify-buffer-hook after-change-functions verilog-highlight-region imenu-generic-expression which-func-modes hs-special-modes-alist (verilog-mode "\\<begin\\>" "\\<end\\>" nil verilog-forward-sexp-function) completion-at-point-functions verilog-completion-at-point local write-contents-hooks verilog-auto-save-check verilog-mode-abbrev-table local-abbrev-table verilog-which-tool verilog-tool noninteractive verilog-imenu-generic-expression run-mode-hooks verilog-mode-hook] 7 (#$ . 109694) nil]) #@51 Initialize speedbar to understand `verilog-mode'. (defalias 'verilog-speedbar-initialize #[nil "\211\205 @A\302=\203 \303 @@!\210 A\211\204 \304)\207" [auto-mode-alist mode-alist verilog-mode speedbar-add-supported-extension nil] 3 (#$ . 118467)]) (eval-after-load "speedbar" #[nil "\300 \207" [verilog-speedbar-initialize] 1]) #@95 Terminate line and indent next line. With optional ARG, remove existing end of line comments. (defalias 'electric-verilog-terminate-line #[(&optional arg) "\212\306 )\3078\203& l\203 \310 \210\311 \210\202! \311 \210\312c\210\313 \210\314 \202\227 \3158\2034 \311 \210\316 \202\227 l\203\225 \212\310 \210\313 \210\317\320w\210\321 !\203g \314 \203U \322\n\f\"\210\320\210\310 \210\f\204b \311 \210)\320\202n \320\210\310 \210\323)\203\210 \324=\204~ \325=\203\202 \326\327!\210\311 \210\202\213 \330y\210\205\227 \314 \202\227 \311 )\207" [state verilog-auto-end-comment-lines-re indent-str verilog-auto-endcomments arg verilog-auto-lineup verilog-syntax-ppss 7 delete-horizontal-space newline "// " beginning-of-line verilog-indent-line 4 verilog-more-comment " " nil looking-at verilog-set-auto-endcomments t all assignments verilog-pretty-expr :quiet 1 verilog-auto-indent-on-newline] 3 (#$ . 118808) nil]) #@53 Insert a newline and indent for the next statement. (defalias 'electric-verilog-terminate-and-indent #[nil "\300\301!\207" [electric-verilog-terminate-line 1] 2 (#$ . 119738) nil]) #@45 Insert `;' character and reindent the line. (defalias 'electric-verilog-semi #[nil "\301 \210\302 \206\n \303 ?\205% \212\304 \210\305 \210\306 \210)\205% \307 ?\205% \310 \207" [verilog-auto-newline verilog-insert-last-command-event verilog-in-comment-or-string-p verilog-in-escaped-name-p beginning-of-line verilog-forward-ws&directives verilog-indent-line verilog-parenthesis-depth electric-verilog-terminate-line] 1 (#$ . 119925) nil]) #@65 Insert `;' character, reindent the line and indent for comment. (defalias 'electric-verilog-semi-with-comment #[nil "\300c\210\212\301 \210\302 \210)\303 \207" [";" beginning-of-line verilog-indent-line indent-for-comment] 1 (#$ . 120372) nil]) #@69 Insert `:' and do all indentations except line indent on this line. (defalias 'electric-verilog-colon #[nil "\302 \210\303\304\305 `\"8\206 \306 ??\205& \212`\307 \210`\211b\210\310!\210\311 +\207" [lim p verilog-insert-last-command-event 3 parse-partial-sexp line-beginning-position verilog-in-case-region-p verilog-beg-of-statement verilog-backward-case-item verilog-indent-line] 5 (#$ . 120623) nil]) #@70 Insert back-tick, and indent to column 0 if this is a CPP directive. (defalias 'electric-verilog-tick #[nil "\300 \210\212\301 \205 \302 )\207" [verilog-insert-last-command-event verilog-in-directive-p verilog-indent-line] 1 (#$ . 121037) nil]) #@54 Function called when TAB is pressed in Verilog mode. (defalias 'electric-verilog-tab #[nil "\305 \203 \306 \307 =\204 \310\306 \307 \311#\207\204# \212\312\311x\210n)\203s `\212\313 \210\312\311w\210\314 \210\315 \210`)`\nW\203A \315 \202q ?\206q l\204O \311\202q \316 \210l\205q `U\205q \313 \210\317\f \320#\210\321\224b\210\312\311x\210\322` \"*\207\323c\207" [verilog-tab-always-indent oldpnt boi-point verilog-tab-to-comment comment-start-skip region-active-p region-beginning region-end indent-region nil " " beginning-of-line verilog-indent-line back-to-indentation indent-for-comment re-search-forward move 0 kill-region " "] 4 (#$ . 121289) nil]) #@115 Indent-region the entire buffer as Verilog code. To call this from the command line, see \[verilog-batch-indent]. (defalias 'verilog-indent-buffer #[nil "\300 \210\301ed\302#\207" [verilog-mode indent-region nil] 4 (#$ . 121961) nil]) #@73 Insert Verilog begin ... end; block in the code with right indentation. (defalias 'verilog-insert-block #[nil "\300 \210\301c\210\302 \210\212\302 \210\303c\210\304 \210\300 )\207" [verilog-indent-line "begin" electric-verilog-terminate-line "end" beginning-of-line] 1 (#$ . 122202) nil]) #@39 Insert Verilog star comment at point. (defalias 'verilog-star-comment #[nil "\300 \210\301c\210\212\302 \210\303c\210)\302 \210\304c\207" [verilog-indent-line "/*" newline " */" " * "] 1 (#$ . 122497) nil]) #@159 Use format string FMT to insert integers 0 to MAX - 1. Inserts one integer per line, at the current column. Stops early if it reaches the end of the buffer. (defalias 'verilog-insert-1 #[(fmt max) "i\304\212\nW\205( \305 \"c\210\306y\210m\203 \n\211\202 T\307 !\210\202 +\207" [n col max fmt 0 format 1 move-to-column] 4 (#$ . 122711)]) #@755 Insert a set of indices into a rectangle. The upper left corner is defined by point. Indices begin with 0 and extend to the MAX - 1. If no prefix arg is given, the user is prompted for a value. The indices are surrounded by square brackets []. For example, the following code with the point located after the first `a' gives: a = b a[ 0] = b a = b a[ 1] = b a = b a[ 2] = b a = b a[ 3] = b a = b ==> insert-indices ==> a[ 4] = b a = b a[ 5] = b a = b a[ 6] = b a = b a[ 7] = b a = b a[ 8] = b (defalias 'verilog-insert-indices #[(max) "\301\302\"\207" [max verilog-insert-1 "[%3d]"] 3 (#$ . 123066) "NMAX: "]) #@764 Insert a set of generated numbers into a rectangle. The upper left corner is defined by point. The numbers are padded to three digits, starting with 000 and extending to (MAX - 1). If no prefix argument is supplied, then the user is prompted for the MAX number. Consider the following code fragment: buf buf buf buf000 buf buf buf buf001 buf buf buf buf002 buf buf buf buf003 buf buf ==> generate-numbers ==> buf buf004 buf buf buf buf005 buf buf buf buf006 buf buf buf buf007 buf buf buf buf008 (defalias 'verilog-generate-numbers #[(max) "\301\302\"\207" [max verilog-insert-1 "%3.3d"] 3 (#$ . 123945) "NMAX: "]) #@110 Mark the current Verilog function (or procedure). This puts the mark at the end, and point at the beginning. (defalias 'verilog-mark-defun #[nil "\300 \207" [mark-defun] 1 (#$ . 124835) nil]) #@438 Put the region into a Verilog comment. The comments that are in this area are "deformed": `*)' becomes `!(*' and `}' becomes `!{'. These deformed comments are returned to normal if you use \[verilog-uncomment-region] to undo the commenting. The commented area starts with `verilog-exclude-str-start', and ends with `verilog-exclude-str-end'. But if you change these variables, \[verilog-uncomment-region] won't recognize the comments. (defalias 'verilog-comment-region #[(start end) "\212b\210\212\305\306w\210l)\203 \212\305\306x\210n)\204 \307y\210\202! \310 \210 c\210`\311 \210\nb\210\310 \210 c\210\311 \210b\210\212\312\313\n\314#\203J \315\316\314\211#\210\2029 )\212\nT \312\317\f\314#\205` \315\320\314\211#\210\202O +\207" [end verilog-exclude-str-end start verilog-exclude-str-start s+1 " " nil 1 beginning-of-line newline re-search-backward "\\*/" t replace-match "*-/" "/\\*" "/-*"] 4 (#$ . 125034) "r"]) #@175 Uncomment a commented area; change deformed comments back to normal. This command does nothing if the pointer is not in a commented area. See also `verilog-comment-region'. (defalias 'verilog-uncomment-region #[nil "\212``\212\305\n\306\307#\210`\310 \306\307#\210`) `\232\204# `X\203) \311\312!\202p b\210\313 \210` \306\210\f`T|\210)\212\314\315 \307#\203L \316\317\307\211#\210\202; )\212\314\320 \307#\203_ \316\321\307\211#\210\202N ) b\210\313 \210` \306\210\f`T|)+\207" [end start verilog-exclude-str-start verilog-exclude-str-end pos search-backward nil t search-forward message "Not standing within commented area." beginning-of-line re-search-backward "\\*-/" replace-match "*/" "/-\\*" "/*"] 4 (#$ . 125967) nil]) #@70 Move backward to the beginning of the current function or procedure. (defalias 'verilog-beg-of-defun #[nil "\305\306\307 \310 \n #\203, \311 \211\203, \312 \203, \313\n\203( `\nV\202) \314\204 \315\f!\210\316\225,\207" [verilog-defun-re NOERROR BOUND REGEXP mdata nil move (nil nil) re-search-backward match-data verilog-skip-backward-comment-or-string (nil nil) t store-match-data 0] 4 (#$ . 126707) nil]) #@97 Move backward to the beginning of the current function or procedure. Uses `verilog-scan' cache. (defalias 'verilog-beg-of-defun-quick #[nil "\305\306\305 \f\204+ \307 \n #\203+ \310\311\224!\203$ \307\312\305\313#\210\202 \311\224\211\203\f \f,\207" [verilog-defun-re noerror bound regexp pt nil move re-search-backward verilog-inside-comment-or-string-p 0 "[/\"]" t] 4 (#$ . 127127) nil]) #@63 Move forward to the end of the current function or procedure. (defalias 'verilog-end-of-defun #[nil "\305\306\307 \310 \n #\203, \311 \211\203, \312 \203, \313\n\203( `\nW\202) \314\204 \315\f!\210\316\225,\207" [verilog-end-defun-re NOERROR BOUND REGEXP mdata nil move (nil nil) re-search-forward match-data verilog-skip-forward-comment-or-string (nil nil) t store-match-data 0] 4 (#$ . 127529) nil]) (defalias 'verilog-get-end-of-defun #[nil "\212\305\306\305 \f\204, \307 \n #\203, \310\311\224!\203% \307\312\305\306#\210\202 \311\225\211\203 \f,\2035 `\202< \313\314\315 \"\210d)\207" [verilog-end-defun-re noerror bound regexp pt nil t re-search-forward verilog-inside-comment-or-string-p 0 "[/\"\n]" error "%s: Can't find endmodule" verilog-point-text] 4]) #@78 Label matching begin ... end, fork ... join and case ... endcase statements. (defalias 'verilog-label-be #[nil "\306\307`\310 \210\311 \312 \210\311 \313 !b\210 Z\314V\203# \315\316!\210\313!`V\203\225 \307\317 !\320 \"\321! #\203b \322 \211\"\203b \323 \203b \324\" \203^ ` W\202_ \325\2047 \326\"!\210\306\225,\203\225 \306\224b\210\327 #\330#\325\"\210\307\210\331 \210)\fT\211\332\246\333U\203# \315\334\f\"\210\202# \nb\210 Z\314V\204\246 \f\335V\205\252 \315\336\f\"-\207" [e b oldpos case-fold-search cnt verilog-auto-end-comment-lines-re 0 nil verilog-beg-of-defun point-marker verilog-end-of-defun marker-position 200 message "Relabeling module..." move (nil nil) re-search-forward match-data verilog-skip-forward-comment-or-string (nil nil) t store-match-data verilog-indent-line verilog-set-auto-endcomments delete-horizontal-space 10 9 "%d..." 20 "%d lines auto commented" NOERROR BOUND REGEXP mdata indent-str] 6 (#$ . 128313) nil]) #@42 Move backward to beginning of statement. (defalias 'verilog-beg-of-statement #[nil "\306o\204~ \307\310!\204~ h\311U\204~ \307\312!\204~ \307\313!\204$ \314\315!\203~ \307\316!\203D `\212\317 \210\307 !\203> \307\n!\204> `)b\204~ \307 !\203c ` \307 !\203] `\317 \210\f`U\203L \fb)\204~ \307!\204~ \212\317 \210\307\n!)\204~ \320 \210\317 \210\202 \321 \210\307!\205\216 \322\225b\210\321 )\207" [h verilog-label-re verilog-end-block-re verilog-complete-reg p verilog-extended-complete-re nil looking-at "`\\w+" 59 "\\w+\\W*:\\W*\\(coverpoint\\|cross\\|constraint\\)" "\\<" forward-word-strictly -1 "\\(\\w+\\W*:\\W*\\)?\\(\\<\\(assert\\|assume\\|cover\\)\\>\\s-+\\<property\\>\\)\\|\\(\\<assert\\>\\)" verilog-backward-token verilog-backward-syntactic-ws verilog-forward-syntactic-ws 0 verilog-basic-complete-re verilog-preprocessor-re] 2 (#$ . 129291) nil]) #@42 Move backward to beginning of statement. (defalias 'verilog-beg-of-statement-1 #[nil "\303 \203 \304 \210`\30529 \306 !?\2058 `\304 \210n\204- h\307U\204- \310 \210\306\n!\203 b\210\311\305\312\"\210\202 0\210\313 )\207" [pt verilog-complete-reg verilog-ends-re verilog-in-comment-p verilog-backward-syntactic-ws done looking-at 59 verilog-backward-token throw t verilog-forward-syntactic-ws] 3 (#$ . 130166) nil]) #@43 Move forward to end of current statement. (defalias 'verilog-end-of-statement #[nil "\306\307\310 \203 \311y\210\312u\202\376 \313\n!\203 \314 \202\376 \307f\315\232\203( \307u\202\376 \3161\213 \3172\205 \320\311!\210\321 \210l\203> \311y\210\313\322!\203S \323\307w\210\311u\210\324\317`\"\210\2020 \212\320\312!\210\313\n!)\203k \306\224b\210\324\317\307\"\210\2020 \313\325!\203y \324\317`\"\210\2020 m\2030 \324\317`\"\210\2020 \2110\202\220 \210\307\202\376 \205\376 \204\375 \3172\376 \307\326 \327 \330 \f#\203\314 \331 \211 \203\314 \321 \203\314 \332 \203\310 ` W\202\311 \333\204\245 \334 !\210\306\225,\210\311\225\203\337 T\202\341 Sm\203\356 \324\317`\"\210\202\233 \306U\203\233 \324\317\335 \"\210\202\233 *\207" [pos nest verilog-beg-block-re verilog-end-statement-re NOERROR BOUND 0 nil verilog-in-directive-p 1 -1 looking-at verilog-forward-sexp 125 (error) found forward-sexp verilog-skip-forward-comment-or-string "[ ]*;" "^;" throw "[ ]*)" move (nil nil) re-search-forward match-data (nil nil) t store-match-data verilog-end-of-statement REGEXP mdata] 4 (#$ . 130593) nil]) #@87 Return true if in a case region. More specifically, point @ in the line foo : @ begin (defalias 'verilog-in-case-region-p #[nil "\212\305 \210\306\307!\205x \310 \210h\311U\205x \3122x \313\314\315\316\317 \320 \n #\203E \321 \211\203E \322 \203E \323\n\203A `\nV\202B \324\204! \325\f!\210\326\225,\210\327\225\203X T\202 \330\225\203n \313U\203h \331\312\313\"\210S\202 \331\312\326U\"\210\202 )\207" [nest NOERROR BOUND REGEXP mdata verilog-forward-syntactic-ws looking-at "\\<begin\\>" verilog-backward-syntactic-ws 58 found 1 "\\(\\<module\\>\\)\\|\\(\\<randcase\\>\\|\\<case[xz]?\\>[^:]\\)\\|\\(\\<endcase\\>\\)\\>" nil move (nil nil) re-search-backward match-data verilog-skip-backward-comment-or-string (nil nil) t store-match-data 0 3 2 throw] 4 (#$ . 131719) nil]) #@49 Call `backward-up-list' ARG, ignoring comments. (defalias 'verilog-backward-up-list #[(arg) "\302\303 !)\207" [parse-sexp-ignore-comments arg t backward-up-list] 2 (#$ . 132515)]) #@43 Call `forward-sexp' ARG, inside comments. (defalias 'verilog-forward-sexp-cmt #[(arg) "\302\303 !)\207" [parse-sexp-ignore-comments arg nil forward-sexp] 2 (#$ . 132702)]) #@45 Call `forward-sexp' ARG, ignoring comments. (defalias 'verilog-forward-sexp-ign-cmt #[(arg) "\302\303 !)\207" [parse-sexp-ignore-comments arg t forward-sexp] 2 (#$ . 132881)]) #@101 Return true if in a generate region. More specifically, after a generate and before an endgenerate. (defalias 'verilog-in-generate-region-p #[nil "\305\212\3062l \307U?\205k \310\311\312\313 \314 \n #\203: \315 \211\203: \316 \203: \317\n\2036 `\nV\2027 \320\204 \321\f!\210\307\225,\205k \305\225\203P \322\306\305\"\202e \323\225\203\\ S\211\202e \324\225\205k T\211\205k \202 0\210)\307U)\207" [nest NOERROR BOUND REGEXP mdata 1 done 0 "\\<\\(module\\)\\|\\(generate\\)\\|\\(endgenerate\\)\\>" nil move (nil nil) re-search-backward match-data verilog-skip-backward-comment-or-string (nil nil) t store-match-data throw 2 3] 4 (#$ . 133065) nil]) #@41 Return true if between a fork and join. (defalias 'verilog-in-fork-region-p #[nil "\212\306 \210`)\307\212\310U\204^ \311 \312 \313 \314\f \n#\203< \315 \211\203< \316 \203< \317 \2038 ` V\2029 \320\204 \321 !\210\310\225,\203^ \307\225\203R S\211\202[ \322\225\203^ T\211\204\n )\310U*\207" [nest lim NOERROR BOUND REGEXP mdata verilog-beg-of-defun 1 0 "\\<\\(fork\\)\\|\\(join\\(_any\\|_none\\)?\\)\\>" move (nil nil) re-search-backward match-data verilog-skip-backward-comment-or-string (nil nil) t store-match-data 2] 4 (#$ . 133733) nil]) #@65 Return true if inside an `assert/assume/cover final' statement. (defalias 'verilog-in-deferred-immediate-final-p #[nil "\300\301!\205\n \302\303\304\"\207" [looking-at "final" verilog-looking-back "\\<\\(?:assert\\|assume\\|cover\\)\\>\\s-+" nil] 3 (#$ . 134296) nil]) #@74 Skip backward to nearest enclosing case item. Limit search to point LIM. (defalias 'verilog-backward-case-item #[(lim) "\306\212 \307 \310 \311\f \n#\203. \312 \211\203. \313 \203. \314 \203* ` V\202+ \315\204\n \316 !\210\317\225,\210`) # $\212\320\321#\315#)\205M\317\306\211 % & ''\322W\203\303 \323#\307 \310 \311\f \n#\203\204 \312 \211\203\204 \313 \203\204 \314 \203\200 ` V\202\201 \315\204` \316 !\210\317\225,\203\303 \322\225\203\247 'T\211'\317Y\203P \324\325\326 \"\210\202P \327\225\203\265 'S\211'\202R \330\225\203P 'T\211'\202R \331\306x\210\313 \210`%\332\306\307 \310 \311\f \n#\203\371 \312 \211\203\371 \313 \203\371 \314 \203\365 ` V\202\366 \315\204\325 \316 !\210\317\225,\203*\322\225\203 \322\225b\210\333 \210\334\335!\203\336 \210\333 \210`\202-\317\225b\210\333 \210`\202-\324\337!\211&%{$\340\341$\"\211%\203J$\317%O\342P$$+*\207" [verilog-endcomment-reason-re lim NOERROR BOUND REGEXP mdata nil move (nil nil) re-search-backward match-data verilog-skip-backward-comment-or-string (nil nil) t store-match-data 0 search-backward ":" 1 "\\(\\[\\)\\|\\(\\]\\)\\|\\(:\\)" error "%s: unbalanced [" verilog-point-text 2 3 " " "\\<\\(randcase\\|case[zx]?\\)\\>\\|;\\|\\<end\\>" verilog-forward-ws&directives looking-at "(" forward-sexp "Malformed case item" string-match "[ ]*\\(\\(\n\\)\\|\\(//\\)\\|\\(/\\*\\)\\)" "..." lim1 str e b colon] 6 (#$ . 134571) nil]) #@33 Kill auto comment on this line. (defalias 'verilog-kill-existing-comment #[nil "\212\302\210`\303 \210\304\305\306#\211\205 \307Z|+\207" [e b nil beginning-of-line search-forward "//" t 2] 5 (#$ . 136006)]) (defconst verilog-directive-nest-re "\\(`else\\>\\)\\|\\(`endif\\>\\)\\|\\(`if\\>\\)\\|\\(`ifdef\\>\\)\\|\\(`ifndef\\>\\)\\|\\(`elsif\\>\\)") #@383 Add ending comment with given INDENT-STR. With KILL-EXISTING-COMMENT, remove what was there before. Insert `// case: 7 ' or `// NAME ' on this line if appropriate. Insert `// case expr ' if this line ends a case block. Insert `// ifdef FOO ' if this line ends code conditional on FOO. Insert `// NAME ' if this line ends a function, task, module, primitive or interface named NAME. (defalias 'verilog-set-auto-endcomments #[(indent-str kill-existing-comment) "\212\306\307!\203\204 \212\310\210\311\312\313 \314#)\204\315\310\211\211\316\225\203& \317\202' \320 \310\210\2036 \321 \210\322 \210\212\323\315!\210 \324U\204\332 @\310\325 A B C\326 D\327CBA#\203| \330 \211D\203| \331 \203| \332DB\203x `BV\202y \314\204Q \333D!\210\324\225,\203\332 \315\225\203\227 \315U\203> \317\202> \316\225\203\243 T\211\202? \334\225\203\257 S\211\202? \335\225\203\273 S\211\202? \336\225\203\307 S\211\202? \337\225\203> \315U\203> \317\324\211\202? \324\225\203\364 \324\224\324\225{\340\310w\210\341 \210`\342\310w\210`)\f\203\343`\f\"EV\205\344 \n\320\f {\260c\202\345c\210\346\314!-\202O\306\347!\205O\2043\212\310\210\311\312\313 \314#)?\205OF@\211 G\350=?\205N\306\351H\352Q!?\205N\306H!\205N\315\225\203\245\314\353 I J\212\354 \210\306\355!\203o\356I\310J\202\205\306\357!\203\205\324\225b\210\360\324!\320\361 QI\310J)\310\210\203\220\321 \210\322 \210\344IPc\210J\205\241\346\314!*\202N\316\225\203\275\362\314`\310\211 K L M J I\212\354 \210`L\324\225\204\340Mb\210\310\210\203\323\321 \210\322 \210Ic\210\346\314!\202\270\212\363 \210`)` M N\306O!\203 \364\365!\210`L\361 I\310J\366IPI\202\211\367 \203'Mb\210\370N!I`L\310J\371IPI\202\211M\372 \210`=\203:\310J\373I\202\211\306P!\2035\324\225L\360\324!\320PK\315\225\203{\310J\212\374 \203t\306\375!\203t\324\225b\210`L\344\360\324!\320\361 RI\202w\373I)\202\211\316\225\203>\324\376 Q \37729Q\310\325 A B C\326 D\327CBA#\203\301\330 \211D\203\301\331 \203\301\332DB\203\275`BV\202\276\314\204\226\333D!\210\324\225,\2058\315\225\203\327 S\202\211\316\225\203\342 T\202\211\334\225\203 \324U\203\211\324\225b\210`L\310J\361 I\201U IPI\201V \377\315\"\210\202\211\335\225\203\211 \324U\203\211\324\225b\210`L\310J\361 I\201W IPI\201V \377\315\"\210\202\2110\210*\202\211\334\225\203Lb\210\324\376 Q \3772 Q\310\325 A B C\326 D\327CBA#\203\210\330 \211D\203\210\331 \203\210\332DB\203\204`BV\202\205\314\204]\333D!\210\324\225,\205\377\315\225\203\236 S\202P\316\225\203\251 T\202P\334\225\203\324 \324U\203P\324\225b\210`L\310J\361 I\201U IPI\201V \377\315\"\210\202P\335\225\203P \324U\203P\324\225b\210`L\310J\361 I\201W IPI\201V \377\315\"\210\202P0\210*\202\211\336\225\203 \324\225b\210`L\310J\344KPI\202\211\324\225\210\324\225b\210`L\310J\344K\361 QI\202\211\367 \203W`LMb\210\370N!\211I\203W\310J\371IPI\202\211\201X \203i\310J\201Y I\202\211\306\201Z !\203\211\201[ \315!\210\341 \210\310J\361 I\344KIQI*Mb\210\310\210\203\230\321 \210\322 \210J\204\254\343ML\"EV\203\260Ic\210J\205\270\346\314!.\202N\201\\ \225\203\211\324\201] \310 R Q \212\3772qQ\310\325 A B C\326 D\327CBA#\203 \330 \211D\203 \331 \203 \332DB\203`BV\202\314\204\340\333D!\210\324\225,\205p\334\225\203.\346\314!\210\201^ R\201V \377\315\"\210\202\323\316\225\2039 T\202\323\315\225\203\323 S\211\324W\203\323\324\225b\210\310\211 \340\310w\210\201_ \210`\342\310w\210`\f {R*\201V \377\315\"\210\202\3230\210)\310\210\203}\321 \210\322 \210\344RPc+\202N\310\211\211 S Q R\310\210\203\245\330 T\201` \216\321 \210*\322 \210\323 \210\336\225\203\275\201a Q\201b S\202m\337\225\203\317\201c Q\201b S\202m\201d \225\203\336\201e Q\202m\201f \225\203\355\201g Q\202m\201h \225\203\374\201i Q\202m\201j \225\203 \201k Q\202m\201\\ \225\203\201l Q\202m\201m \225\203)\201n Q\202m\201o \225\2038\201p Q\202m\201q \225\203G\201r Q\202m\201s \225\203V\201t Q\202m\201u \225\203e\201v Q\202m\201w \201x !\210\310\211 \212Q\310\325 A B C\326 D\327CBA#\203\252\330 \211D\203\252\331 \203\252\332DB\203\246`BV\202\247\314\204\333D!\210\324\225,\210\315\225\203;\340\310w\210\201_ \210\306\201y !\203\322\324\225b\210\201_ \210S\203+S\310\325 A B C\201z D\201{ CBA#\203\330 \211D\203\201| \203\201} DB\203`BW\202\314\204\346\333D!\210\324\225,\203+\324\224b\210\201_ \210`\342\310w\210`\f {R\202D\346\314!\210\201~ R+\310\210\344RPc+))\207" [kill-existing-comment else m e b nest looking-at "\\(`endif\\)\\|\\(`else\\)" nil search-backward "//" line-beginning-position t 1 2 "!" " " verilog-kill-existing-comment delete-horizontal-space backward-sexp 0 move (nil nil) re-search-backward match-data verilog-skip-backward-comment-or-string (nil nil) store-match-data 3 4 5 6 "^ " verilog-forward-syntactic-ws "a-zA-Z0-9_" count-lines " // " " // unmatched `else, `elsif or `endif" ding "\\<end" declaration "\\(" "\\)[ ]*:" "UNMATCHED!!" verilog-leap-to-head "\\<randcase\\>" "randcase" "\\(\\(unique0?\\s-+\\|priority\\s-+\\)?case[xz]?\\)" match-string verilog-get-expr " // UNMATCHED !!" verilog-beg-of-defun search-forward ":" " // block: " verilog-in-case-region-p verilog-backward-case-item " // case: " verilog-beg-of-statement "" verilog-continued-line "\\<repeat\\>\\|\\<wait\\>\\|\\<always\\>" "\\(\\<begin\\>\\)\\|\\(\\<end\\>\\)\\|\\(\\<if\\>\\)\\|\\(assert\\)" skip verilog-directive-nest-re NOERROR BOUND REGEXP mdata verilog-minimum-comment-distance indent-str type verilog-end-block-ordered-re str err cntx there here lim verilog-named-block-re verilog-endcomment-reason-re reg string name-re save-match-data-internal " // else: !if" throw " // else: !assert " verilog-in-fork-region-p " // fork branch" "\\<end\\>" forward-word-strictly 11 "\\<\\(class\\)\\|\\(endclass\\)\\|\\(package\\|primitive\\|\\(macro\\)?module\\)\\>" "unmatched endclass" verilog-forward-ws&directives #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] "\\(\\<function\\>\\)\\|\\(\\<\\(endfunction\\|task\\|\\(macro\\)?module\\|primitive\\)\\>\\)" "\\w+\\(?:\n\\|\\s-\\)*[(;]" "\\(\\<task\\>\\)\\|\\(\\<\\(endtask\\|function\\|\\(macro\\)?module\\|primitive\\)\\>\\)" 7 "\\(\\<\\(macro\\)?module\\>\\)\\|\\<endmodule\\>" 8 "\\(\\<primitive\\>\\)\\|\\(\\<\\(endprimitive\\|package\\|interface\\|\\(macro\\)?module\\)\\>\\)" 9 "\\(\\<interface\\>\\)\\|\\(\\<\\(endinterface\\|package\\|primitive\\|\\(macro\\)?module\\)\\>\\)" 10 "\\(\\<package\\>\\)\\|\\(\\<\\(endpackage\\|primitive\\|interface\\|\\(macro\\)?module\\)\\>\\)" "\\(\\<class\\>\\)\\|\\(\\<\\(endclass\\|primitive\\|interface\\|\\(macro\\)?module\\)\\>\\)" 12 "\\(\\<covergroup\\>\\)\\|\\(\\<\\(endcovergroup\\|primitive\\|interface\\|\\(macro\\)?module\\)\\>\\)" 13 "\\(\\<program\\>\\)\\|\\(\\<\\(endprogram\\|primitive\\|interface\\|\\(macro\\)?module\\)\\>\\)" 14 "\\(\\<\\(rand\\)?sequence\\>\\)\\|\\(\\<\\(endsequence\\|primitive\\|interface\\|\\(macro\\)?module\\)\\>\\)" 15 "\\(\\<clocking\\>\\)\\|\\<endclocking\\>" 16 "\\(\\<property\\>\\)\\|\\<endproperty\\>" error "Problem in verilog-set-auto-endcomments" "static\\|automatic" (nil nil) re-search-forward verilog-skip-forward-comment-or-string (nil nil) "unmatched end(function|task|module|primitive|interface|package|class|clocking)"] 7 (#$ . 136369)]) #@57 Grab expression at point, e.g., case ( a | b & (c ^d)). (defalias 'verilog-get-expr #[nil "\306 \210\307\310w\210`\311\312\313!\203x \311u\210\306 \210\312\314!\203t \311u\210 \315U\204t \316\310\317 \320 \321\f \n#\203R \322 \211\203R \323 \203R \324 \203N ` W\202O \325\204. \326 !\210\315\225,\203t \311\225\203h T\211\202! \327\225\203 S\211\202! `\202P\312\314!\203\331 \311u\210 \315U\204\325 \316\310\317 \320 \321\f \n#\203\263 \322 \211\203\263 \323 \203\263 \324 \203\257 ` W\202\260 \325\204\217 \326 !\210\315\225,\203\325 \311\225\203\311 T\211\202\202 \327\225\203\201 S\211\202\202 `\202P\312\330!\203A\311u\210 \315U\2046\331\310\317 \320 \321\f \n#\203\322 \211\203\323 \203\324 \203` W\202\325\204\360 \326 !\210\315\225,\2036\311\225\203* T\211\202\343 \327\225\203\342 S\211\202\343 \306 \210\332\310w\210`\202P\312\333!\203K\202P\334\310w\210`) { !\335\336!\"\211 \203n!\315 O\337P!!+\207" [b par NOERROR BOUND REGEXP mdata verilog-forward-syntactic-ws " " nil 1 looking-at "@" "(" 0 "\\((\\)\\|\\()\\)" move (nil nil) re-search-forward match-data verilog-skip-forward-comment-or-string (nil nil) t store-match-data 2 "\\[" "\\(\\[\\)\\|\\(\\]\\)" "^ \n\f" "/[/\\*]" "^: \n\f" string-match "[ ]*\\(\\(\n\\)\\|\\(//\\)\\|\\(/\\*\\)\\)" "..." e str] 5 (#$ . 143876)]) #@128 Take a signal vector on the current line and expand it to multiple lines. Useful for creating tri's and other expanded fields. (defalias 'verilog-expand-vector #[nil "\300\301\302\"\207" [verilog-expand-vector-internal "[" "]"] 3 (#$ . 145231) nil]) #@85 Given BRA, the start brace and KET, the end brace, expand one line into many lines. (defalias 'verilog-expand-vector-internal #[(bra ket) "\212\306y\210`\307\210`{\310\311\312 !\313\312\n!\314\260\"\205\323 \315\316\"\317\315\320\"! \321\224\321\225U\2034 \f\202= \317\321\224T\321\225O! \322\224\322\225U\203J \316\202T \317\320\322\224\\\322\225O! \315\323\" \307\211 \306W\203w \f [) \fW\203\223 \fX\203\252 \324\fC\"\fZ\202} \f X\203\252 \324\fC\"\f\\\211\202\224 `\306y\210`|\210\203\316 \325@!\n\326\260c\210A\211\204\266 \327\330!.*\207" [signal-string bra ket sig-head vec-start vec-end 0 nil string-match "\\(.*\\)" regexp-quote "\\([0-9]*\\)\\(:[0-9]*\\|\\)\\(::[0-9---]*\\|\\)" "\\(.*\\)$" match-string 1 string-to-number 2 3 4 5 append int-to-string "\n" delete-char -1 vec-range sig-tail vec tmp] 7 (#$ . 145487)]) #@43 Strip all comments from the Verilog code. (defalias 'verilog-strip-comments #[nil "eb\210\301\302\303\304#\203; \305\306\307 `\"8\203 \301\310\303\304#\210\202 \311 \203, \301\312\303\304#\210\202 `\313Z\303\210`|\210)\202 eb\210\301\314\303\304#\205i \305\306\307 `\"8\203Y \301\310\303\304#\210\202> `\313Z\301\312!\210`|\210)\202> \207" [bpt re-search-forward "//" nil t 3 parse-partial-sexp line-beginning-position "\"" verilog-in-star-comment-p "\\*/" 2 "/\\*"] 4 (#$ . 146377) nil]) #@58 Convert structural Verilog instances to occupy one line. (defalias 'verilog-one-line #[nil "eb\210\300\301\302\303#\205 \304\305\302\211#\210\202 \207" [re-search-forward "\\([^;]\\)[ ]*\n[ ]*" nil t replace-match "\\1 "] 4 (#$ . 146881) nil]) #@53 Return name of linter, either surelint or verilint. (defalias 'verilog-linter-name #[nil "\306\307\310\211 \311 \312 #\203* \313\f \n $\211G\311\224\fG\\^\202 .\306\307\310\211 \311 \312 #\203X \313\f \n $\211G\311\224\fG\\^\202; . \211 \314\232\203i \315\202\213 \316\232\203t \317\202\213 \314\232\203 \315\202\213 \316\232\203\212 \317\202\213 \315*\207" [compile-command string literal fixedcase to-string from-string "\\s .*$" "" nil 0 string-match replace-match "surelint" surelint "verilint" verilint start verilog-linter lint-word1 compile-word1] 7 (#$ . 147135)]) #@351 Convert a Verilog linter warning line into a disable statement. For example: pci_bfm_null.v, line 46: Unused input: pci_rst_ becomes a comment for the appropriate tool. The first word of the `compile-command' or `verilog-linter' variables is used to determine which product is being used. See \[verilog-surelint-off] and \[verilog-verilint-off]. (defalias 'verilog-lint-off #[nil "\301 \211\302\267\202 \303 \202 \304 \202 \305\306!)\207" [linter verilog-linter-name #s(hash-table size 2 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (surelint 9 verilint 14)) verilog-surelint-off verilog-verilint-off error "Linter name not set"] 3 (#$ . 147754) nil]) #@281 Convert a SureLint warning line into a disable statement. Run from Verilog source window; assumes there is a *compile* buffer with point set appropriately. For example: WARNING [STD-UDDONX]: xx.v, line 8: output out is never assigned. becomes: // surefire lint_line_off UDDONX (defalias 'verilog-surelint-off #[nil "\306\300!\203\n \202 \307\n!\205\333 \212\310\n!\210\311 \210\312\313!\205\332 \314\315!\314\316! \314\317! \320\f! )\321\211 * +)\204y \322\f!\205E \323\f!\211)\204y \324 ,\325\326\327\330\f\"*\f\324$! -\331-!\203k \325+-\"-\322-!\205v \323-!)*\310)!\210eb\210\332 ![y\210\321\210\3332\330 \334 \203\301 \335\336!\210\312\337!\203\275 \340\225b\210\341 .\342 .\343#\203\265 \344\333\324\"\202\271 \345 Pc)\202\327 \324\202\327 \346 \203\322 \335\347!\210\327\350 \"c\202\327 \327\350 \"c0.))\207" [next-error-last-buffer compilation-last-buffer buff code file line boundp buffer-live-p switch-to-buffer beginning-of-line looking-at "\\(INFO\\|WARNING\\|ERROR\\) \\[[^-]+-\\([^]]+\\)\\]: \\([^,]+\\), line \\([0-9]+\\): \\(.*\\)$" match-string 2 3 4 get-file-buffer nil file-exists-p find-file-noselect t expand-file-name read-file-name format "Find this error in: (default %s) " file-directory-p string-to-number already verilog-in-slash-comment-p re-search-backward "//" "// surefire lint_off_line " 0 line-end-position re-search-forward move throw " " verilog-in-star-comment-p "/\\*" " // surefire lint_off_line %6s" buffer dir filename pop-up-windows name lim] 7 (#$ . 148443) nil]) #@185 Convert a Verilint warning line into a disable statement. For example: (W240) pci_bfm_null.v, line 46: Unused input: pci_rst_ becomes: //Verilint 240 off // WARNING: Unused input (defalias 'verilog-verilint-off #[nil "\212\300 \210\301\302!\205 \303\304\305\306\307!\"!\210\300 \210\310 )\207" [beginning-of-line looking-at "\\(.*\\)([WE]\\([0-9A-Z]+\\)).*,\\s +line\\s +[0-9]+:\\s +\\([^:\n]+\\):?.*$" replace-match format "\\1//Verilint %3s off // WARNING: \\3" match-string 2 verilog-indent-line] 5 (#$ . 149977) nil]) #@71 Update automatics with \[verilog-auto], save the buffer, and compile. (defalias 'verilog-auto-save-compile #[nil "\301 \210\302 \210\303!\207" [compile-command verilog-auto save-buffer compile] 2 (#$ . 150511) nil]) #@217 Preprocess the buffer, similar to `compile', but put output in Verilog-Mode. Takes optional COMMAND or defaults to `verilog-preprocessor', and FILENAME to find directory to run in, or defaults to `buffer-file-name'. (defalias 'verilog-preprocess #[(&optional command filename) "\204 \306 !\307\302!\205 \n\310\f\206 ! \311 \312R r\313\314!q\210p\315 \210 \316\211!\317\211\"\317 # $\320 \210\321\322!\210+\211 % &r\323\314!q\210\324 \325Qc\210\326'\316\317\316( &\210\327 \210\330\331!?\205z \205z \332\333! )\334%!\210.\207" [command verilog-preprocessor font-lock-mode fontlocked filename buffer-file-name verilog-expand-command boundp file-name-directory "cd " "; " get-buffer-create "*Verilog-Preprocessed*" kill-all-local-variables nil t erase-buffer run-hooks temp-buffer-setup-hook get-buffer "// " "\n" call-process verilog-mode fboundp font-lock-ensure intern "font-lock-fontify-buffer" internal-temp-output-buffer-show dir cmd default-directory #1=#:old-dir buffer-read-only buffer-undo-list inhibit-modification-hooks inhibit-read-only #2=#:buf standard-output shell-file-name shell-command-switch] 8 (#$ . 150735) (list (let ((default (verilog-expand-command verilog-preprocessor))) (set (make-local-variable 'verilog-preprocessor) (read-from-minibuffer "Run Preprocessor (like this): " default nil nil 'verilog-preprocess-history default))))]) #@63 Print a warning with `format' using STRING and optional ARGS. (defalias 'verilog-warn #[(string &rest args) "\302\303\304P #\207" [string args apply message "%%Warning: "] 4 (#$ . 152127)]) #@111 Call `error' using STRING and optional ARGS. If `verilog-warn-fatal' is non-nil, call `verilog-warn' instead. (defalias 'verilog-warn-error #[(string &rest args) "\203\n \303\304 \n#\207\303\305 \n#\207" [verilog-warn-fatal string args apply error verilog-warn] 4 (#$ . 152325)]) #@128 Execute BODY and add error prefix to any errors found. This lets programs calling batch mode to easily extract error messages. (defalias 'verilog-batch-error-wrapper '(macro . #[(&rest body) "\301\302\303\304\305B\306BBBE\207" [body let ((verilog-warn-fatal nil)) condition-case err progn ((error (error "%%Error: %s%s" (error-message-string err) (if (featurep 'xemacs) "\n" ""))))] 6 (#$ . 152613)])) #@125 Internal processing of a batch command. Runs FUNREF on all command arguments. Save the result unless optional NO-SAVE is t. (defalias 'verilog-batch-execute-func #[(funref &optional no-save) "\306\3071) \306\310\301\306\"\210\311\211\306\310\312\313\"\210\314 \315\316 \"\210\317\320 \")0\2024 \321\322\323!\324#))\207" [verilog-warn-fatal make-backup-files enable-local-variables enable-local-eval create-lockfiles orig-buffer-list nil (error) set-default t major-mode verilog-mode buffer-list mapc #[(buf) "\301!\205 rq\210\302 \210\303 \210\304 )\207" [buf buffer-file-name verilog-mode verilog-auto-reeval-locals verilog-getopt-flags] 2] mapcar #[(buf) "\303!\2050 \212\304\303!!\204 \305\306\303!\"\210\307\310\303!\"\210q\210 \210\n?\205/ \311 \205/ \312 )\207" [buf funref no-save buffer-file-name file-exists-p error "File not found: %s" message "Processing %s" buffer-modified-p save-buffer] 4] error "%%Error: %s%s" error-message-string "" err] 5 (#$ . 153023)]) #@317 For use with --batch, perform automatic expansions as a stand-alone tool. This sets up the appropriate Verilog mode environment, updates automatics with \[verilog-auto] on all command-line files, and saves the buffers. For proper results, multiple filenames need to be passed on the command line in bottom-up order. (defalias 'verilog-batch-auto #[nil "\204 \301\302!\210\303\304!\207" [noninteractive error "Use verilog-batch-auto only with --batch" verilog-batch-execute-func verilog-auto] 2 (#$ . 154023)]) #@225 For use with --batch, perform automatic deletion as a stand-alone tool. This sets up the appropriate Verilog mode environment, deletes automatics with \[verilog-delete-auto] on all command-line files, and saves the buffers. (defalias 'verilog-batch-delete-auto #[nil "\204 \301\302!\210\303\304!\207" [noninteractive error "Use verilog-batch-delete-auto only with --batch" verilog-batch-execute-func verilog-delete-auto] 2 (#$ . 154542)]) #@241 For use with --batch, perform whitespace deletion as a stand-alone tool. This sets up the appropriate Verilog mode environment, removes whitespace with \[verilog-delete-trailing-whitespace] on all command-line files, and saves the buffers. (defalias 'verilog-batch-delete-trailing-whitespace #[nil "\204 \301\302!\210\303\304!\207" [noninteractive error "Use verilog-batch-delete-trailing-whitespace only with --batch" verilog-batch-execute-func verilog-delete-trailing-whitespace] 2 (#$ . 154990)]) #@356 For use with --batch, perform automatic differences as a stand-alone tool. This sets up the appropriate Verilog mode environment, expand automatics with \[verilog-diff-auto] on all command-line files, and reports an error if any differences are observed. This is appropriate for adding to regressions to insure automatics are always properly maintained. (defalias 'verilog-batch-diff-auto #[nil "\204 \301\302!\210\303\304\305\"\207" [noninteractive error "Use verilog-batch-diff-auto only with --batch" verilog-batch-execute-func verilog-diff-auto t] 3 (#$ . 155499)]) #@327 For use with --batch, perform automatic injection as a stand-alone tool. This sets up the appropriate Verilog mode environment, injects new automatics with \[verilog-inject-auto] on all command-line files, and saves the buffers. For proper results, multiple filenames need to be passed on the command line in bottom-up order. (defalias 'verilog-batch-inject-auto #[nil "\204 \301\302!\210\303\304!\207" [noninteractive error "Use verilog-batch-inject-auto only with --batch" verilog-batch-execute-func verilog-inject-auto] 2 (#$ . 156079)]) #@206 For use with --batch, reindent an entire file as a stand-alone tool. This sets up the appropriate Verilog mode environment, calls \[verilog-indent-buffer] on all command-line files, and saves the buffers. (defalias 'verilog-batch-indent #[nil "\204 \301\302!\210\303\304!\207" [noninteractive error "Use verilog-batch-indent only with --batch" verilog-batch-execute-func verilog-indent-buffer] 2 (#$ . 156629)]) (defconst verilog-indent-alist '((block + ind verilog-indent-level) (case + ind verilog-case-indent) (cparenexp + ind verilog-indent-level) (cexp + ind verilog-cexp-indent) (defun . verilog-indent-level-module) (declaration . verilog-indent-level-declaration) (directive verilog-calculate-indent-directive) (tf . verilog-indent-level) (behavioral + verilog-indent-level-behavioral verilog-indent-level-module) (statement . ind) (cpp . 0) (comment verilog-comment-indent) (unknown . 3) (string . 0))) #@102 Return true if this is a continued line. Set point to where line starts. Limit search to point LIM. (defalias 'verilog-continued-line-1 #[(lim) "\302\303y\304=\203 \305\210\306 !\210o\203 \305\202! \307 \202! \305)\207" [continued lim t -1 0 nil verilog-backward-ws&directives verilog-backward-token] 2 (#$ . 157550)]) #@257 Calculate the indent of the current Verilog line. Examine previous lines. Once a line is found that is definitive as to the type of the current line, return that lines' indent level and its type. Return a list of two elements: (INDENT-TYPE INDENT-LEVEL). (defalias 'verilog-calculate-indent #[nil "\212`\306\307\310\311!\212\312\306\313 @\314 A\315@ \f#\203= \316 \211A\203= \317 \203= \320A \2039 ` V\202: \313\204 \321A!\210\307\225- B\306 C\3222\277\323 \203X \324\322\325\"\210\212\326 \210\310D!\205m \310\327!\206l \310\330!?)\203v \324\322\331\"\210\332 \211C\203\231 C\307V\203\215 \324\322\333\"\210\202\231 C\307U\203\231 \324\322\334\"\210E\203\257 \335 \203\257 \336 \204\257 \337\324\322\334\"\210o\203\270 \324\322\340\"\210\341B!\203,\336 \203\313 \310F!\203,` G\310H!\204\350 \341B!\203\350 Gb\210\324\322\342\"\210\202\354 Gb\210\336 \203\310F!\203\326 \210\343\306w\210\324\322\344\"\210 \203#I\204#\310J!\203#\326 \210\343\306w\210\324\322\345\"\210\202(\324\322\342\"\210)\202/b\210\310\346!\203\263\337 KL\306\347 @\314 A\315@ \f#\203j\316 \211A\203j\317 \203j\320A \203f` V\202g\313\204C\321A!\210\307\225,\203\262\337\225\203\202KTK\2028\350\225\203\255KS\211K\307U\2038M\203\237\324\322\345\"\210\2028\326 \210\351 \210\324\322\345\"\210\2028\352\225\203\321KSK\353 \210\310N!\203\311\324\322\345\"\210\2028\324\322\334\"\210\2028\306\337 O P\354\225\203\342\355P\202B\356\225\203\355\357P\202B\360\225\203\370\361P\202B\362\225\203\363P\202B\364\225\203\365P\202B\366\225\203\367P\202B\370\225\203$\371P\202B\372\225\203/\373P\202B\374\225\203:\375P\202B\376\225\203B\377P\201R 2\255P\306\347 @\314 A\315@ \f#\203z\316 \211A\203z\317 \203z\320A \203v` V\202w\313\204S\321A!\210\307\225,\205\254\337\225\203\237OS\211O\307U\203H\324\201R \337\"\210\202H\350\225\203HOTO\202H0\210*\2028)\324\322\201S \"\210\202\257 0\211 Q\204\310\340Q\n\307V\203\326\201T \nD\202 Q\201U \267\202Q\201V D\202 QiD\202 Q\307D\202 \334iD\202 \334CD\202 Q\201W D.\207" [starting_position case-fold-search par begin NOERROR BOUND nil 0 looking-at "[ ]*begin\\>" "\\(\\<begin\\>\\)\\|\\(\\<module\\>\\)" t (nil nil) re-search-backward match-data verilog-skip-backward-comment-or-string (nil nil) store-match-data nesting verilog-in-star-comment-p throw comment beginning-of-line "[ ]*`[ou]vm_" "[ ]*`vmm_" directive verilog-in-struct-nested-p nested-struct block verilog-in-paren verilog-in-coverage-p 1 cpp verilog-continued-line-1 cexp " " constraint statement "\\<else\\>" move 2 verilog-forward-syntactic-ws 3 verilog-beg-of-statement 4 "\\(\\<begin\\>\\)\\|\\(\\<end\\>\\)" 5 "\\(\\<randcase\\>\\|\\<case[xz]?\\>[^:]\\)\\|\\(\\<endcase\\>\\)" 6 "\\(\\<function\\>\\)\\|\\(\\<endfunction\\>\\)" 7 "\\(\\<task\\>\\)\\|\\(\\<endtask\\>\\)" 8 "\\(\\<specify\\>\\)\\|\\(\\<endspecify\\>\\)" 9 "\\(\\<table\\>\\)\\|\\(\\<endtable\\>\\)" 10 "\\(\\<generate\\>\\)\\|\\(\\<endgenerate\\>\\)" 11 "\\(\\<fork\\>\\)\\|\\(\\<join\\(_any\\|none\\)?\\>\\)" 12 "\\(\\<class\\>\\)\\|\\(\\<endclass\\>\\)" 13 "\\(\\<covergroup\\>\\)\\|\\(\\<endgroup\\>\\)" REGEXP mdata lim structres verilog-directive-re-1 verilog-indent-lists verilog-in-constraint-re sp verilog-complete-reg verilog-indent-begin-after-if verilog-no-indent-begin-re elsec verilog-ends-re verilog-align-ifelse verilog-property-re nest reg type skip verilog-calc-1 cparenexp #s(hash-table size 5 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (case 735 statement 745 defun 752 constraint 759 nested-struct 765)) verilog-case-indent-level verilog-current-indent-level] 5 (#$ . 157885)]) #@44 Show matching nesting block for debugging. (defalias 'verilog-wai #[nil "\212\303 \304\204\f \305\n\203$ \306 \204$ \307 \204$ \310 \203$ \311\202= \312\267\202: \313 \202= i\202= \314\202= \315 \316\317 #+\207" [type depth verilog-indent-lists verilog-calc-1 nil cpp verilog-in-coverage-p verilog-in-struct-p verilog-in-paren 1 #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (case 42 statement 48 defun 53)) verilog-case-indent-level 0 verilog-current-indent-level message "You are at nesting %s depth %d"] 4 (#$ . 161604) nil]) (defalias 'verilog-calc-1 #[nil "\3062\362\307\310Q\311 \n\312\313 \314 6\315 \f #\203; \316 \2116\203; \317 \203; \3206\f\2037 `\fV\2028 \321\204 \3226!\210\323\225,\203\354\3242\350\312f\325\232\203p \326 \205\347 \203i \327\312!\210\330\312w\210\331\306\332\"\202\347\331\306\333\"\202\347\312f\334\232\203\244 \312\335 7 87\205\240 \336 \323V\203\215 \337u\210\340 \2118\203\236 8b\210\337u\202\240 \341u*\202\347\3429!\203\204\343\225\203\321 ` :\344 \210\342;!\203\305 \331\306\345\"\210\202\311 :b\210)\331\306\345\"\202\347\346\225\203\363 ` :\344 \210\342<!\203\347 \321\202\357 :b\210\331\306\347\")\202\347\350\225\203 ` :\351 \203\321\202 \212\344 \210\342=!)\203\321\202 :b\210\331\306\347\")\202\347\342\352!\203_\344 \210\342>!\2037\331\324\353\"\202\347\342\354!\204C\342\355!\203J\331\306\333\"\202\347\3429!\203X\331\306\347\"\202\347\331\306\356\"\202\347\342\357!\203}\344 \210\342?!\203v\331\324\333\"\202\347\331\306\347\"\202\347\331\306\347\"\202\347\342@!\203\244\360 \210\361 \205\347\362 \210\342;!\205\347\331\306\345\"\202\347\342A!\203\321\342B!\203\312\363 \204\274\364 \203\303\331\324\353\"\202\347\331\306\356\"\202\347\331\306\356\"\202\347\342C!\203\337\331\306\365\"\202\347o\205\347\331\306\365\"0\210\202\f \331\306\365\"*0\207" [verilog-indent-re inconstraint re NOERROR BOUND REGEXP nesting "\\({\\|}\\|" "\\)" verilog-in-coverage-p nil move (nil nil) re-search-backward match-data verilog-skip-backward-comment-or-string (nil nil) t store-match-data 0 continue 123 verilog-at-constraint-p beginning-of-line " " throw constraint statement 125 verilog-at-close-constraint-p verilog-in-paren-count 1 verilog-parenthesis-depth -1 looking-at 2 verilog-beg-of-statement case 4 block 17 verilog-in-paren "\\<class\\|struct\\|function\\|task\\>" foo "\\<pure\\>\\s-+\\<virtual\\>\\s-+\\(?:\\<\\(local\\|protected\\|static\\)\\>\\s-+\\)?\\<\\(function\\|task\\)\\>\\s-+" "\\<typedef\\>\\s-+\\(?:\\<virtual\\>\\s-+\\)?\\<class\\>\\s-+" defun "\\<property\\>" verilog-leap-to-head verilog-in-case-region-p verilog-leap-to-case-head verilog-in-generate-region-p verilog-in-deferred-immediate-final-p cpp mdata there par-pos verilog-beg-block-re-ordered here verilog-extended-case-re verilog-disable-fork-re verilog-default-clocking-re verilog-dpi-import-export-re verilog-property-re verilog-end-block-re verilog-defun-level-re verilog-defun-level-generate-only-re verilog-cpp-level-re] 5]) #@145 Return indentation level for directive. For speed, the searcher looks at the last directive, not the indent of the appropriate enclosing block. (defalias 'verilog-calculate-indent-directive #[nil "\306\307\212\310 \210 \307W\203\216 \n\311\312 \313 \314 \f #\203= \315 \211\203= \316 \203= \317\f\2039 `\fV\202: \312\204 \320!\210\307\225,\203\216 \212\321\311x\210n)\203U \322 \323!\203j \307W\203j Z\202 \323!\203 \307Y\203 \\\202 \323!\203 \\\202 \307 \\])\212\310 \210\321\311w\210\323!\204\253 \323!\203\262 \307Z])*\207" [ind base verilog-directive-re NOERROR BOUND REGEXP -1 0 beginning-of-line nil t (nil nil) re-search-backward match-data verilog-skip-backward-comment-or-string (nil nil) store-match-data " " current-indentation looking-at mdata verilog-directive-end verilog-indent-level-directive verilog-directive-middle verilog-directive-begin] 4 (#$ . 164686)]) (defalias 'verilog-leap-to-case-head #[nil "\306\307U?\205s \310\311\312\313 \314 \n #\2035 \315 \211\2035 \316 \2035 \317\n\2031 `\nV\2022 \320\204 \321\f!\210\307\225,\210\306\225\203Y ` \322 \210\323!\204Q b\210)S\211\202 \324\225\203e T\211\202 o\203 \325\320!\210\307\211\202 )\207" [nest NOERROR BOUND REGEXP mdata here 1 0 "\\(\\<randcase\\>\\|\\(\\<unique0?\\s-+\\|priority\\s-+\\)?\\<case[xz]?\\>\\)\\|\\(\\<endcase\\>\\)" nil move (nil nil) re-search-backward match-data verilog-skip-backward-comment-or-string (nil nil) t store-match-data verilog-beg-of-statement looking-at 3 ding verilog-extended-case-re] 5]) #@114 Move point to the head of this block. Jump from end to matching begin, from endcase to matching case, and so on. (defalias 'verilog-leap-to-head #[nil "\306\211\307\310\311\312!\203 \313\202\344 \311\314!\203 \315\316\202\344 \311\317!\2033 \3012- \320 0\210\306\202\344 \311\321!\203> \322\202\344 \311\323!\203I \324\202\344 \311\325!\203T \326\202\344 \311\327!\203_ \330\202\344 \311\331!\203l \332\316\202\344 \311\333!\203w \334\202\344 \311\335!\203\202 \336\202\344 \311\337!\203\215 \340\202\344 \311\f!\203\236 \341 \342\f\343\260\202\344 \311;!\203\262 \341<\342;\343\260\202\344 \311=!\203\306 \341>\342=\343\260\202\344 \311\344!\203\321 \345\202\344 \311\346!\203\334 \347\202\344 \311\350!\203\344 \351 \205\3522 \307=\203\256\306 ? \306\353 @ A B\354 C\355BA@#\203,\356 \211C\203,\357 \203,\360CA\203(`AV\202)\361\204\362C!\210\363\225,\205\252\310\225\203y\311\364!\203Z` D\365 \210\311E!\204VDb\210S)\202]S\363U\203h\366\352\310\"\210\n\203\365 \nU\203\365 ?\211\202\366 \367\225\203\204T\202\365 \370\225\203\227T ?\371\211\202\366 \372\225\203\365 T ?\322\211\202\366 )\202 \306\353 @ A B\354 C\355BA@#\203\345\356 \211C\203\345\357 \203\345\360CA\203\341`AV\202\342\361\204\272\362C!\210\363\225,\203\377\310\225\203\377\365 \210\366\352\310\"\202\366\352\310\"0,\207" [nest nesting snest reg verilog-uvm-end-re verilog-uvm-begin-re nil yes 1 looking-at "\\<end\\>" "\\(\\<begin\\>\\)\\|\\(\\<end\\>\\)\\|\\(\\<endcase\\>\\)\\|\\(\\<join\\(_any\\|_none\\)?\\>\\)" "\\<endtask\\>" "\\(\\<task\\>\\)\\|\\(\\(\\<\\(virtual\\|protected\\|static\\)\\>\\s-+\\)+\\<task\\>\\)" no "\\<endcase\\>" verilog-leap-to-case-head "\\<join\\(_any\\|_none\\)?\\>" "\\(\\<fork\\>\\)\\|\\(\\<join\\(_any\\|_none\\)?\\>\\)" "\\<endclass\\>" "\\(\\<class\\>\\)\\|\\(\\<endclass\\>\\)" "\\<endtable\\>" "\\(\\<table\\>\\)\\|\\(\\<endtable\\>\\)" "\\<endspecify\\>" "\\(\\<specify\\>\\)\\|\\(\\<endspecify\\>\\)" "\\<endfunction\\>" "\\(\\<function\\>\\)\\|\\(\\(\\<\\(virtual\\|protected\\|static\\)\\>\\s-+\\)+\\<function\\>\\)" "\\<endgenerate\\>" "\\(\\<generate\\>\\)\\|\\(\\<endgenerate\\>\\)" "\\<endgroup\\>" "\\(\\<covergroup\\>\\)\\|\\(\\<endgroup\\>\\)" "\\<endproperty\\>" "\\(\\<property\\>\\)\\|\\(\\<endproperty\\>\\)" "\\(" "\\|" "\\)" "\\<endinterface\\>" "\\(\\<interface\\>\\)\\|\\(\\<endinterface\\>\\)" "\\<endsequence\\>" "\\(\\<\\(rand\\)?sequence\\>\\)\\|\\(\\<endsequence\\>\\)" "\\<endclocking\\>" "\\(\\<clocking\\)\\|\\(\\<endclocking\\>\\)" skip move (nil nil) re-search-backward match-data verilog-skip-backward-comment-or-string (nil nil) t store-match-data 0 "fork" verilog-beg-of-statement throw 2 3 "\\(\\<randcase\\>\\|\\<case[xz]?\\>[^:]\\)\\|\\(\\<endcase\\>\\)" 4 verilog-ovm-end-re verilog-ovm-begin-re verilog-vmm-end-re verilog-vmm-begin-re sreg NOERROR BOUND REGEXP mdata here verilog-disable-fork-re] 6 (#$ . 166264)]) #@74 Return true if this is a continued line. Set point to where line starts. (defalias 'verilog-continued-line #[nil "\301\302y\303=\2030 \304\210\305 \210o\203 \304\2022 \2032 \212\306\304x\210n)\2042 \307 \211\204 \2022 \304)\207" [continued t -1 0 nil verilog-backward-ws&directives " " verilog-backward-token] 3 (#$ . 169236)]) #@66 Step backward token, returning true if this is a continued line. (defalias 'verilog-backward-token #[nil "\306 \210n\203 \307\207h\310U\203 \307\207h\311U\203 \312u\210\313 ?\207h\314U\203+ \312u\210\315 ?\207h\316U\2039 \312u\210\317 \210\307\207h\320U\203G \312u\210\321 \210\322\207h\323U\203\370 \312u\210\324\325!\210\306 \210`\326\312!\210\327\330!\203j \327\331!?\202\366 \327 !\203t \307\202\366 \327\n!\203~ \322\202\366 \327 !\203\210 \322\202\366 \327\f!\203\222 \307\202\366 \327 !\203\234 \322\202\366 \327%!\203\247 \322\202\366 \327&!\203\262 \307\202\366 \327'!\203\275 \322\202\366 \327(!\203\310 \307\202\366 \327\332!\203\322 \307\202\366 b\210h\333U\203\352 \312u\210\212\334 \210\327\335!)?\202\366 h\336U\203\365 \312u\202\366 \322)\207\326\312!\210h\337U\204h\333U\204h\340U\203\326\312!\210\202\374 \327\341!\203 \322\207\327)!\203&\322\207\327*!\203/\307\207`\306 \210h\342U\203O\312u\210\306 \210\343 \210\327+!?\205m\322\202mh\336U\203\\\312u\210\322\202mh\344U\203i\312u\210\322\202mb\210\322)\207" [back verilog-uvm-statement-re verilog-uvm-begin-re verilog-uvm-end-re verilog-ovm-statement-re verilog-ovm-begin-re verilog-backward-syntactic-ws nil 59 125 -1 verilog-at-close-constraint-p 123 verilog-at-constraint-p 34 verilog-skip-backward-comment-or-string 93 verilog-backward-open-bracket t 41 verilog-backward-up-list 1 forward-word-strictly looking-at "\\<\\(always\\(_latch\\|_ff\\|_comb\\)?\\|case\\(\\|[xz]\\)\\|for\\(\\|each\\|ever\\)\\|i\\(f\\|nitial\\)\\|repeat\\|while\\)\\>" "\\<randcase\\>\\|\\<case[xz]?\\>[^:]" "\\<`" 64 verilog-backward-token "\\<\\(always\\(_latch\\|_ff\\|_comb\\)?\\|initial\\|while\\)\\>" 35 95 46 "\\<else\\>" 58 backward-sexp 96 verilog-ovm-end-re verilog-vmm-statement-re verilog-vmm-begin-re verilog-vmm-end-re verilog-behavioral-block-beg-re verilog-indent-re verilog-nameable-item-re] 2 (#$ . 169580) nil]) #@70 Move backwards putting point after first non-whitespace non-comment. (defalias 'verilog-backward-syntactic-ws #[nil "\300 \210\301\302 [!\207" [verilog-skip-backward-comments forward-comment buffer-size] 2 (#$ . 171496)]) #@71 As with `verilog-backward-syntactic-ws' but use `verilog-scan' cache. (defalias 'verilog-backward-syntactic-ws-quick #[nil "o\203 \300\207\301\302!\303W\204 h\304=\203 \305u\210\202 \306`S!\204' \306`!\2050 \307\310\300\311#\210\202 \207" [nil skip-syntax-backward " " 0 10 -1 verilog-inside-comment-or-string-p re-search-backward "[/\"]" t] 4 (#$ . 171724)]) (defalias 'verilog-forward-syntactic-ws #[nil "\300 \210\301\302 !\207" [verilog-skip-forward-comment-p forward-comment buffer-size] 2]) #@109 Backward skip over syntactic whitespace and compiler directives for Emacs 19. Optional BOUND limits search. (defalias 'verilog-backward-ws&directives #[(&optional bound) "\214\206 e\211\306`W\205\346 \212\307 )\310 8\203] \311\306\312 \313 \314 \f#\203M \315 \211 \203M \316 \203M \317 \203I ` V\202J \320\204& \321 !\210\322\225,\210\323\306x\210\202\235 \324 8\203\235 \325\306\312 \313 \314 \f#\203\224 \315 \211 \203\224 \316 \203\224 \317 \203\220 ` V\202\221 \320\204m \321 !\210\322\225,\210)`}\210 `U?\205\346 `\326 \210\212\327 \210\330\331\306\"\203\276 \332y\204\262 \203\316 \333 \203\316 \334e!\202\332 \335!!\203\331 `\202\332 \306)\211\203\242 \nb\210\202\242 ,\207" [bound here p state NOERROR BOUND nil verilog-syntax-ppss 7 "//" move (nil nil) re-search-backward match-data verilog-skip-backward-comment-or-string (nil nil) t store-match-data 0 "/" 4 "/\\*" verilog-skip-backward-comments beginning-of-line verilog-looking-back "\\\\[\n \f]" -1 verilog-within-translate-off verilog-back-to-start-translate-off looking-at REGEXP mdata verilog-highlight-translate-off verilog-directive-re-1] 5 (#$ . 172233)]) #@108 Forward skip over syntactic whitespace and compiler directives for Emacs 19. Optional BOUND limits search. (defalias 'verilog-forward-ws&directives #[(&optional bound) "\214\206 d\211\306`V\205\241 \212\307 )\310 8\203) \306\210\311u\210\312\306w\210\202i \313 8\203i \314\306\315 \316 \317 \f#\203` \320 \211 \203` \321 \203` \322 \203\\ ` W\202] \323\2049 \324 !\210\325\225,\210)`}\210 `U?\205\241 `\306\326\327 !\210\330\331!\203\210 \325\225b\210\212\332 \210\330 !\203\225 \323)\n\203n \332\333!\210\202n ,\207" [bound here jump state NOERROR BOUND nil verilog-syntax-ppss 7 1 " \n\f" 4 "\\*/\\s-*" move (nil nil) re-search-forward match-data verilog-skip-forward-comment-or-string (nil nil) t store-match-data 0 forward-comment buffer-size looking-at "\\s-*(\\*.*\\*)\\s-*" beginning-of-line 2 REGEXP mdata verilog-directive-re-1] 5 (#$ . 173399)]) #@41 Return true if in a star or // comment. (defalias 'verilog-in-comment-p #[nil "\212\301 )\3028\206 \3038)\207" [state verilog-syntax-ppss 4 7] 2 (#$ . 174285)]) #@35 Return true if in a star comment. (defalias 'verilog-in-star-comment-p #[nil "\212\301 )\3028\205 \3038?)\207" [state verilog-syntax-ppss 4 7] 2 (#$ . 174456)]) #@36 Return true if in a slash comment. (defalias 'verilog-in-slash-comment-p #[nil "\212\301 )\3028)\207" [state verilog-syntax-ppss 7] 2 (#$ . 174627)]) #@40 Return true if in a string or comment. (defalias 'verilog-in-comment-or-string-p #[nil "\212\301 )\3028\206 \3038\206 \3048)\207" [state verilog-syntax-ppss 3 4 7] 2 (#$ . 174785)]) #@61 Return true if point is in an attribute (* [] attribute *). (defalias 'verilog-in-attribute-p #[nil "\305 \306\216\212\307\310\311\312 \313 \n #\2032 \305 \211\2032 \314 \2032 \315\n\203. `\nV\202/ \316\204 \317\f!\210\320\225,\210\321\225\203K \321\225b\210\322\323!\210\310\202] \324\225\203\\ \324\224b\210\322\325!\210\310\202] \310+\207" [save-match-data-internal NOERROR BOUND REGEXP mdata match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] "\\((\\*\\)\\|\\(\\*)\\)" nil move (nil nil) re-search-backward verilog-skip-backward-comment-or-string (nil nil) t store-match-data 0 1 looking-at "\\s-*)" 2 "(\\s-*"] 4 (#$ . 174979)]) #@67 Return true if point is in a parameter assignment #( p1=1, p2=5). (defalias 'verilog-in-parameter-p #[nil "\305 \306\216\212\307\310\311\312 \313 \n #\2032 \305 \211\2032 \314 \2032 \315\n\203. `\nV\202/ \316\204 \317\f!\210\320\225,\210\321\224+\247\207" [save-match-data-internal NOERROR BOUND REGEXP mdata match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] "\\(#(\\)\\|\\()\\)" nil move (nil nil) re-search-backward verilog-skip-backward-comment-or-string (nil nil) t store-match-data 0 1] 4 (#$ . 175665)]) #@36 Return true if in an escaped name. (defalias 'verilog-in-escaped-name-p #[nil "\212\300u\210\301\302x\210`f\303\232\205 \304)\207" [-1 "^ \n\f" nil 92 t] 2 (#$ . 176228)]) #@32 Return true if in a directive. (defalias 'verilog-in-directive-p #[nil "\212\301 \210\302!)\207" [verilog-directive-re-1 beginning-of-line looking-at] 2 (#$ . 176408)]) #@58 Return true if in a ( ) expression (but not { } or [ ]). (defalias 'verilog-in-parenthesis-p #[nil "\305 \306\216\212\307\310\311\312 \313 \n #\2032 \305 \211\2032 \314 \2032 \315\n\203. `\nV\202/ \316\204 \317\f!\210\320\225,\210\321\224+\247\207" [save-match-data-internal NOERROR BOUND REGEXP mdata match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] "\\((\\)\\|\\()\\)" nil move (nil nil) re-search-backward verilog-skip-backward-comment-or-string (nil nil) t store-match-data 0 1] 4 (#$ . 176584)]) #@93 Return true if in a parenthetical expression. May cache result using `verilog-syntax-ppss'. (defalias 'verilog-in-paren #[nil "\212\301 )\211@\302V)\207" [state verilog-syntax-ppss 0] 3 (#$ . 177139)]) #@79 Return paren depth, floor to 0. May cache result using `verilog-syntax-ppss'. (defalias 'verilog-in-paren-count #[nil "\212\301 )\211@\302V\203 @\202 \302)\207" [state verilog-syntax-ppss 0] 3 (#$ . 177348)]) #@117 Return true if in a parenthetical expression. Always starts from `point-min', to allow inserts with hooks disabled. (defalias 'verilog-in-paren-quick #[nil "\212\301e`\")\211@\302V)\207" [state parse-partial-sexp 0] 4 (#$ . 177568)]) #@41 Return true if in a struct declaration. (defalias 'verilog-in-struct-p #[nil "\212\300 \205\f \301\302!\210\303 )\207" [verilog-in-paren verilog-backward-up-list 1 verilog-at-struct-p] 2 (#$ . 177809) nil]) #@95 Return nil for not in struct. Return 0 for in non-nested struct. Return >0 for nested struct. (defalias 'verilog-in-struct-nested-p #[nil "\301\212\302 \205 \303\304!\210\305 \211\205 \306 \203 i\202 \307*\207" [col nil verilog-in-paren verilog-backward-up-list 1 verilog-at-struct-mv-p verilog-in-struct-p 0] 3 (#$ . 178022) nil]) #@58 Return true if in a constraint or coverpoint expression. (defalias 'verilog-in-coverage-p #[nil "\212\300 \205\f \301\302!\210\303 )\207" [verilog-in-paren verilog-backward-up-list 1 verilog-at-constraint-p] 2 (#$ . 178366) nil]) #@66 If at the } that closes a constraint or covergroup, return true. (defalias 'verilog-at-close-constraint-p #[nil "\300f\301\232\205* \302 \205* \212\303 \210`Sf\304\232\204( `Sf\301\232\204( `Sf\305\232\205) `)\207" [nil 125 verilog-in-coverage-p verilog-backward-ws&directives 59 123] 2 (#$ . 178602)]) #@96 If at the { of a constraint or coverpoint definition, return true, moving point to constraint. (defalias 'verilog-at-constraint-p #[nil "\212`\304f\305\232\205A \3061 \307 0\202 \210\304\202A \205A \310u\210\311 \210`Sf\305\232\204: `Sf\312\232\204: `Sf\313\232\205A \314\315`{\"?*\205\225 `\316\311 \210\317 \210\320\321 P!\203q \322\320\323!\203k \311 \210\324 \210\325 \210\202\206 \326 \210\202\206 \320\327!\203\206 \326 \210\320\330\331\332 R!\203\206 \322 \316=\203\223 \nb\210\304\202\224 \322*\207" [p pass pt verilog-in-constraint-re nil 123 (error) forward-list -1 verilog-backward-ws&directives 59 125 string-match "^{\\s-*[0-9]+\\s-*{" 0 verilog-backward-token looking-at "\\<constraint\\|coverpoint\\|cross\\|with\\>\\|" 1 "\\<with\\>" beginning-of-line verilog-forward-ws&directives verilog-beg-of-statement "\\<\\w+\\>\\|\\s-*(\\s-*\\S-+" "\\<\\(constraint\\|" "\\(?:\\w+\\s-*:\\s-*\\)?\\(coverpoint\\|cross\\)" "\\|with\\)\\>\\|"] 5 (#$ . 178911)]) #@57 If at the { of a struct, return true, not moving point. (defalias 'verilog-at-struct-p #[nil "\212\300f\301\232\205 \302 \205 \303\304!)\207" [nil 123 verilog-backward-token looking-at "\\<struct\\|union\\|packed\\|\\(un\\)?signed\\>"] 2 (#$ . 179891)]) #@63 If at the { of a struct, return true, moving point to struct. (defalias 'verilog-at-struct-mv-p #[nil "`\301f\302\232\203\" \303 \203\" \304\305!\203 \306 \210`\202& b\210\301\202& b\210\301)\207" [pt nil 123 verilog-backward-token looking-at "\\<struct\\|union\\|packed\\|\\(un\\)?signed\\>" verilog-beg-of-statement] 2 (#$ . 180153)]) #@48 If at the } that closes a struct, return true. (defalias 'verilog-at-close-struct-p #[nil "\300f\301\232\205 \302 \205 \212\303\304!\205 \305)\207" [nil 125 verilog-in-struct-p looking-at "}\\(?:\\s-*\\w+\\s-*\\)?;" 1] 2 (#$ . 180500)]) #@49 Return non zero if in parenthetical-expression. (defalias 'verilog-parenthesis-depth #[nil "\212\300 A@)\207" [verilog-syntax-ppss] 1 (#$ . 180746)]) #@40 Return true if in a string or comment. (defalias 'verilog-skip-forward-comment-or-string #[nil "\212\301 )\3028\203 \303\304!\210\305\202- \3068\203 \307y\210\305\202- \3108\203, \303\311!\202- \312)\207" [state verilog-syntax-ppss 3 search-forward "\"" t 7 1 4 "*/" nil] 2 (#$ . 180902)]) #@40 Return true if in a string or comment. (defalias 'verilog-skip-backward-comment-or-string #[nil "\212\301 )\3028\203 \303\304!\210\305\2024 \3068\203% \303\307!\210\310\311x\210\305\2024 \3128\2033 \303\313!\210\305\2024 \311)\207" [state verilog-syntax-ppss 3 search-backward "\"" t 7 "//" "/" nil 4 "/*"] 2 (#$ . 181204)]) #@39 Return true if a comment was skipped. (defalias 'verilog-skip-backward-comments #[nil "\302\212\303 )\304 8\203 \305\306!\210\307\310x\210\311\310x\210\302\202\225 \312 8\203/ \305\313!\210\311\310x\210\302\202\225 o\204Q `Sf\314U\203Q `S\206A `Sf\315U\203Q `\316Zb\210\302\202\225 o\204\217 `Sf\317U\203\217 `S\206c `Sf\315U\203\217 \320\321\310\"\204\217 `\316Zb\210\305\322\310\302#\203\206 \311\310x\210\302\202\225 `\316\\b\210\310\202\225 \311\310x\323U?)\211\204 )\310\207" [more state t verilog-syntax-ppss 7 search-backward "//" "/" nil " \n\f" 4 "/*" 47 42 2 41 verilog-looking-back "(\\s-*\\*)" "(*" 0] 5 (#$ . 181540)]) #@45 If in comment, move to end and return true. (defalias 'verilog-skip-forward-comment-p #[nil "\303\212\304 )\305 8\203 \306\202? \307 8\203! \303\210\310u\210\306\202? \311 8\203/ \312\313!\210\306\202? \314 \203> \312\315\303\306#\210\306\202? \303\316\303w\210\317\320!\203h `\321\225b\210\312\313\303\306#\203b \316\303w\210\306\211\202\223 b\210\202\226 \317\322!\203\222 \317\323!\204\222 `\321\225b\210\312\315\303\306#\203\214 \316\303w\210\306\211\202\223 b\210\202\226 \303\204D \n+\207" [h state skip nil verilog-syntax-ppss 3 t 7 1 4 search-forward "*/" verilog-in-attribute-p "*)" " \n\f" looking-at "\\/\\*" 0 "(\\*" "(\\*\\s-*)"] 4 (#$ . 182184)]) #@83 Cheap version of indent line. Only look at a few lines to determine indent level. (defalias 'verilog-indent-line-relative #[nil "\303`\304\305!\203F o\203 \306\307D\202M \310 \203; `\310 \203, b\210\311\312 D\2024 \nb\210\313\312 D)b\210\202M b\203M \314 \202M \315\303w\210\314 \316 !*\207" [sp indent-str sp1 nil looking-at "^[ ]*$" cpp 0 verilog-continued-line statement verilog-current-indent-level block verilog-calculate-indent " " verilog-do-indent] 2 (#$ . 182863) nil]) #@34 Indent for special part of code. (defalias 'verilog-indent-line #[nil "\300\301 !\207" [verilog-do-indent verilog-calculate-indent] 2 (#$ . 183362)]) (defalias 'verilog-do-indent #[(indent-str) "@A@\211\306=\203'`\307 \210h\310U\204# \212\311 \210\312\f!)\203\215 \313 \212\314u\210\311 \210`\312\f!\203j \315\225b\210\316\313w\2105\203U g\317U\203U \320u\210\321\320!\210\316\313w\210\202f g\322U\203f \320u\210\323\314!\210\316\313w\210i\202q b\210i6\\) 7 b\210\3247!\2108\204\211 \325 \203\211 \326 \210*\202#h\327U\203\251 b\210\330\331\n9\"A! 7\3247!\210)\202# b\210\313 7\311 \210` W\203\332 \333 : ; <\334 =\335<;:#\203\357 \336 \211=\203\357 \337 \203\357 \340=;\203\353 `;W\202\354 \341\204\304 \342=!\210\315\225,\203\343\344`\345Z`T{\206\346\"\204i7\202\330\331\n9\"A!7 b\210\3247!\210))\202 \n\347=\203l\313\212\323\320!\210\320u\2108\203C\316\313w\210\202F\350 \210`i) 7\212 b\210\350 \210`\312\f!) >\3247!\210>\203h\326 \210+\202 \312?!\204}\351 \204}\352 \203\226\n\353=\203\212 @Z\202\213 7\3247!\210)\202 \n\354=\203\302\312\355!\204\302\312\356!\203\257\324 !\210\202 \330\331\n9\"A! 7\3247!\210)\202 \n\357=\203\326\312A!\203\326\324\315!\210\202 \n\357=\204\342\n\360=\203\367\312\f!\203\367\312\f\361P!\204\367\362 !\210\202 \312\363!\204 \330\331\n9\"A! 7\3247!\210)\312\364!\203\316\313w\210*\207" [indent-str ind type here verilog-declaration-re fst cexp verilog-backward-syntactic-ws 44 verilog-beg-of-statement-1 looking-at nil -1 0 " " 96 1 forward-word-strictly 91 verilog-backward-up-list indent-line-to verilog-in-paren verilog-pretty-declarations-auto 41 eval assoc "=[ ]*" move (nil nil) re-search-forward match-data verilog-skip-forward-comment-or-string (nil nil) t store-match-data string-match "\\[=.\\|#=#\\||=>" 2 "" cparenexp verilog-forward-syntactic-ws verilog-at-close-constraint-p verilog-at-close-struct-p statement case "^[ ]*$" "\\<endcase\\>" defun block "\\s-+\\(function\\|task\\|class\\)\\b" verilog-indent-declaration "\f" "[ ]+$" verilog-indent-declaration-macros verilog-cexp-indent val verilog-indent-lists verilog-indent-alist NOERROR BOUND REGEXP mdata decl verilog-end-block-re verilog-indent-level verilog-zero-indent-re] 5]) #@51 Return the indent-level of the current statement. (defalias 'verilog-current-indent-level #[nil "\212\301\302 \210\303 \211\203 b\210\302 \210\303 \211\204 \304\301w\210i*\207" [par-pos nil beginning-of-line verilog-parenthesis-depth " "] 3 (#$ . 185639)]) #@97 Return the indent-level of the current statement. Do not count named blocks or case-statements. (defalias 'verilog-case-indent-level #[nil "\212\306\307w\210\310!\203 i\202X \310 !\204W \310\311!\203W \312\307\313 \314 \315\f \n#\203G \316 \211\203G \317 \203G \320 \203C ` W\202D \313\204# \321 !\210\322\225,\210\306\307w\210i\202X i)\207" [verilog-named-block-re verilog-extended-case-re NOERROR BOUND REGEXP mdata " " nil looking-at "^[^:;]+[ ]*:" ":" t (nil nil) re-search-forward match-data verilog-skip-forward-comment-or-string (nil nil) store-match-data 0] 4 (#$ . 185909)]) #@33 Indent current line as comment. (defalias 'verilog-indent-comment #[nil "\302 \203 \212\303\304\305\306#\210iT)\202# \203 \202# \212\303\307\305\306#\210i)\310 !\210 )\207" [comment-column stcol verilog-in-star-comment-p re-search-backward "/\\*" nil t "//" indent-line-to] 4 (#$ . 186507)]) #@44 Make more comment lines like the previous. (defalias 'verilog-more-comment #[nil "\303\304 \203 \212\305\306\307\310\311#\210iT)\202' \203 \202' \212\306\312\310\311#\210i)\211j\210\205@ \212\313y\210\314\310w\210\315\316!)\205@ \317c*\207" [star comment-column stcol 0 verilog-in-star-comment-p 1 re-search-backward "/\\*" nil t "//" -1 " " looking-at "\\*" "* "] 5 (#$ . 186810)]) #@120 Return the column number the line should be indented to. _ARG is ignored, for `comment-indent-function' compatibility. (defalias 'verilog-comment-indent #[(&optional _arg) "\301 \203 \212\302\303\304\305#\210iT)\207\203 \207\212\302\306\304\305#\210i)\207" [comment-column verilog-in-star-comment-p re-search-backward "/\\*" nil t "//"] 4 (#$ . 187209)]) #@74 Call `verilog-pretty-declarations' QUIET based on `verilog-auto-lineup'. (defalias 'verilog-pretty-declarations-auto #[(&optional quiet) "\302=\204\f \303=\205 \304 !\207" [verilog-auto-lineup quiet all declarations verilog-pretty-declarations] 2 (#$ . 187574)]) #@89 Line up declarations around point. Be verbose about progress unless optional QUIET set. (defalias 'verilog-pretty-declarations #[(&optional quiet) "\306 `\307\211` \307\211 -\307\211 . /\307\211 0 1\212\310 \210\311 \210\312 ?\205\322\3132!\205\322\314 \203\301 \315\316! b\210\315\317!\210\307y\2102\n\320 3 4 5\321 6\322543#\203{ \323 \2116\203{ \324 \203{ \32564\203w `4W\202x \326\204P \3276!\210\330\225,\210\330\224b\210\331\307x\210`-\306 -\307\223.-b\210\315\316!\210\316u\210\332 \210`/\306 /\307\2230-b\210\317u\210\331\307w\210i1\202&\333 \210\3132!\203\344 o\204\344 \331\307x\210`\310 \210\332 \210\316u\210\333 \210\202\304 -\306 -\307\223.\fb\210\334 \210`\311 \210\3132!\203\f\334 \210`\311 \210\202\372 /\306 /\307\2230-b\210\335\336 !\210\337 \210i1\340.!b\2107\204?/-Z\341V\203?\342\343!\210\3400!` W\203\356\212\331\307x\210n)\203\250\337 \210\3441!\210\337 \210` W\203?\345 \320 3 4 5\321 6\322543#\203\234\323 \2116\203\234\324 \203\234\32564\203\230`4W\202\231\326\204q\3276!\210\330\225,\210\202?\346 \210\345 \320 3 4 5\321 6\322543#\203\342\323 \2116\203\342\324 \203\342\32564\203\336`4W\202\337\326\204\267\3276!\210\330\225,\210\202?\347\340.!0\"\340.!b\210\3400!\211`Z\211\330V\203\311`7\204\342\350 \"\210\337 \2108\203'\3139!\204.\313:!\203\231\330\225 ;;\307\223\210\351;\320 3 4 5\321 6\322543#\203p\323 \2116\203p\324 \203p\32564\203l`4W\202m\326\204E\3276!\210\330\225,\203\217\316u\210\346 \210\340!b\210\346 \210 j\210\202\225\346 \210 j\210)\202\303\352\340.!!\203\254 b\210\344 !\210\202\303\353 \203\272 b\210\334 \210\202\303 b\210\337 \210\316y\210\317y\210\202\3757?\205\322\342\354!.\f\207" [m1 e el r here ind make-marker nil beginning-of-line verilog-forward-syntactic-ws verilog-in-directive-p looking-at verilog-parenthesis-depth verilog-backward-up-list -1 1 move (nil nil) re-search-forward match-data verilog-skip-forward-comment-or-string (nil nil) t store-match-data 0 " " verilog-backward-syntactic-ws verilog-beg-of-statement-1 verilog-end-of-statement verilog-do-indent verilog-calculate-indent verilog-forward-ws&directives marker-position 100 message "Lining up declarations..(please stand by)" indent-line-to "[ \n\f]" just-one-space verilog-get-lineup-indent "%d" "[[#`]" verilog-continued-line-1 verilog-in-struct-p "" start startpos end endpos base-ind verilog-declaration-re NOERROR BOUND REGEXP mdata quiet verilog-indent-declaration-macros verilog-declaration-re-2-macro verilog-declaration-re-2-no-macro p] 5 (#$ . 187846) nil]) #@111 Line up expressions around point. If QUIET is non-nil, do not print messages showing the progress of line-up. (defalias 'verilog-pretty-expr #[(&optional quiet) "\306 ?\205m\212\307P\307 P\310 \210\311 !?\205l\311\f!\205l\212\312\225b\210\313 ?\2053 \314 ?\2053 \306 ?)\205l\212\310 \210` \315 \210\310 \210\311\n!\204^ \311\f!\203^ o\204^ `\315 \210\310 \210\202C * &\212\316\210` \317 \210\310 \210\311\n!\204\216 \311\f!\203\216 \316\210 `=\204\216 `\317 \210\310 \210\202n * '\320\321\322&'\"\" (\323 '\316\223 )&b\210\324\325 !\210*\204\301 '&Z\326V\203\301 \327\330!\210`\331)!W\203\341 \310 \210\212\332\f!\210)\324\325 !\210\316\210\317 \210\202\301 \333\f&\331)!#\316 + ,&b\210\331)!\211+`V\203a*\204\f\327\334+`Z\"\210`+\311\f!\203>\312\224b\210\335 \204[\336 \204[(\2037\316f\337=\2037,Tj\210\202[,j\210\202[\340&!\203Q+b\210\341,!\210\202[+b\210\342 \210\343y\210\344y\210\202\363 *?\205j\327\345!.+\207" [verilog-complete-reg verilog-basic-complete-re regexp1 regexp verilog-assignment-operation-re pt verilog-in-comment-or-string-p "^\\s-*" beginning-of-line looking-at 2 verilog-in-attribute-p verilog-in-parameter-p verilog-backward-syntactic-ws nil verilog-forward-syntactic-ws string-match "<=" buffer-substring-no-properties make-marker verilog-do-indent verilog-calculate-indent 100 message "Lining up expressions.. (please stand by)" marker-position verilog-just-one-space verilog-get-lineup-indent-2 " verilog-pretty-expr: %d" verilog-in-parenthesis-p verilog-in-coverage-p 61 verilog-continued-line-1 indent-line-to verilog-forward-ws&directives -1 1 "" start end contains-2-char-operator endmark quiet e ind] 6 (#$ . 190484) nil]) #@53 Remove extra spaces around regular expression MYRE. (defalias 'verilog-just-one-space #[(myre) "\304!?\205 \304 !\205 \305\225\306\225\nb\210\307 \210 b\210\307 *\207" [verilog-complete-reg myre p2 p1 looking-at 1 2 just-one-space] 2 (#$ . 192196) nil]) #@159 Indent current lines as declaration. Line up the variable names based on previous declaration's indentation. BASEIND is the base indent to offset everything. (defalias 'verilog-indent-declaration #[(baseind) "\306 \212\307\310\311\312\313\n #\203/ \314 \211\203/ \315 \203/ \316 \203+ ` V\202, \317\204 \320 !\210\321\225,\210`)\310\211\322 $ % &'\323\324\325(\"A!\\\326 !\210)\327=\204c )\330=\203\244*\203m +\206o ,%\317\312\313\n #\203\233 \314 \211\203\233 \315 \203\233 \316 \203\227 ` V\202\230 \317\204w \320 !\210\321\225,\203\244\321\225b\210\331\310w\210i$&b\210'\323\324\325(\"A!\\\326 !\210*\2038\332-!\2038\321\225 .\f.\310\223\210\333.\311\334\335\n #\203\314 \211\203\336 \203\337 \203` W\202\317\204\343 \320 !\210\321\225,\203&\340u\210\341 \210\342\f!b\210\341 \210$j\210\2024i$U\2044\341 \210$j\210)\202\244\332/!\203\244\321\225 .\f.\310\223\210\343.\311\334\335\n #\203v\314 \211\203v\336 \203v\337 \203r` W\202s\317\204R\320 !\210\321\225,\203\225\340u\210\341 \210\342\f!b\210\341 \210$j\210\202\243i$U\204\243\341 \210$j\210)&b-\207" [NOERROR BOUND REGEXP mdata m1 val point-marker "\\(\\<begin\\>\\)\\|\\(\\<module\\>\\)\\|\\(\\<task\\>\\)" nil move (nil nil) re-search-backward match-data verilog-skip-backward-comment-or-string (nil nil) t store-match-data 0 make-marker eval assoc declaration indent-line-to all declarations " " looking-at "[[#`]" (nil nil) re-search-forward verilog-skip-forward-comment-or-string (nil nil) -1 just-one-space marker-position "[[`#]" ind lim pos baseind verilog-indent-alist verilog-auto-lineup verilog-indent-declaration-macros verilog-declaration-re-1-macro verilog-declaration-re-1-no-macro verilog-declaration-re-2-macro p verilog-declaration-re-2-no-macro] 5 (#$ . 192462) nil]) #@110 Return the indent level that will line up several lines within the region. Region is defined by B and EDPOS. (defalias 'verilog-get-lineup-indent #[(b edpos) "\212\306\307\nb\210\310 !`W\203s \f\203 \206 \311 \312 \313#\203R \314 \211\203R \315 \203R \316\203N `W\202O \317\204' \320!\210\306\225,\203 \306\225b\210\321 \210i V\203l i\306\225b\210\202 \306V\203~ T\202\211 \nb\210\307\210\321 \210iT+\207" [e ind b edpos verilog-indent-declaration-macros verilog-declaration-re-1-macro 0 nil marker-position move (nil nil) re-search-forward match-data verilog-skip-forward-comment-or-string (nil nil) t store-match-data verilog-backward-syntactic-ws verilog-declaration-re-1-no-macro NOERROR BOUND REGEXP mdata] 4 (#$ . 194303)]) #@147 Return the indent level that will line up several lines. The lineup string is searched using REGEXP within the region between points BEG and END. (defalias 'verilog-get-lineup-indent-2 #[(regexp beg end) "\212\306 b\210`\nW\203c \n\307 \310 \311 \f#\203= \312 \211\203= \313 \203= \314 \2039 ` W\202: \315\204 \316!\210\306\225,\203 \317 \204 \320\224b\210\321 \210iV\203\\ i\306\225b\210\202 \306V\203n T\202z b\210\322\210\323\322x\210iT\211*\207" [ind beg end regexp NOERROR BOUND 0 move (nil nil) re-search-forward match-data verilog-skip-forward-comment-or-string (nil nil) t store-match-data verilog-in-attribute-p 2 verilog-backward-syntactic-ws nil " " REGEXP mdata] 5 (#$ . 195078)]) #@73 A useful mode debugging aide. TYPE and VAL are comments for insertion. (defalias 'verilog-comment-depth #[(type val) "\212\303 \210\304 \305\210\306\307\310#\203 \311\312!\210\305\210\202\" \305\210\313c\210)\314u\210\315\316 \n#c)\207" [b type val beginning-of-line point-marker nil re-search-backward " /\\* [#-]# [a-zA-Z]+ [0-9]+ ## \\*/" t replace-match " /* -# ## */" " /* ## ## */" -6 format "%s %d"] 4 (#$ . 195803)]) (defvar verilog-str nil) (defvar verilog-all nil) (defvar verilog-pred nil) (defvar verilog-buffer-to-use nil) (defvar verilog-flag nil) #@279 True means \<verilog-mode-map>\[verilog-complete-word] should try all possible completions one by one. Repeated use of \[verilog-complete-word] will show you all of them. Normally, when there is more than one possible completion, it displays a list of all possible completions. (defvar verilog-toggle-completions nil (#$ . 196381)) (byte-code "\300\301!\203\f \302\303\301\304#\210\300\207" [boundp completion-cycle-threshold make-obsolete-variable verilog-toggle-completions "26.1"] 4) #@102 Keywords for types used when completing a word in a declaration or parmlist. (integer, real, reg...) (defvar verilog-type-keywords '("and" "buf" "bufif0" "bufif1" "cmos" "defparam" "inout" "input" "integer" "localparam" "logic" "mailbox" "nand" "nmos" "nor" "not" "notif0" "notif1" "or" "output" "parameter" "pmos" "pull0" "pull1" "pulldown" "pullup" "rcmos" "real" "realtime" "reg" "rnmos" "rpmos" "rtran" "rtranif0" "rtranif1" "semaphore" "time" "tran" "tranif0" "tranif1" "tri" "tri0" "tri1" "triand" "trior" "trireg" "wand" "wire" "wor" "xnor" "xor") (#$ . 196875)) #@240 Keywords to complete when at first word of a line in declarative scope. (initial, always, begin, assign...) The procedures and variables defined within the Verilog program will be completed at runtime and should not be added to this list. (defvar verilog-cpp-keywords '("module" "macromodule" "primitive" "timescale" "define" "ifdef" "ifndef" "else" "endif") (#$ . 197452)) #@240 Keywords to complete when at first word of a line in declarative scope. (initial, always, begin, assign...) The procedures and variables defined within the Verilog program will be completed at runtime and should not be added to this list. (defvar verilog-defun-keywords (append '("always" "always_comb" "always_ff" "always_latch" "assign" "begin" "end" "generate" "endgenerate" "module" "endmodule" "specify" "endspecify" "function" "endfunction" "initial" "final" "task" "endtask" "primitive" "endprimitive") verilog-type-keywords) (#$ . 197833)) #@241 Keywords to complete when at first word of a line in behavioral scope. (begin, if, then, else, for, fork...) The procedures and variables defined within the Verilog program will be completed at runtime and should not be added to this list. (defvar verilog-block-keywords '("begin" "break" "case" "continue" "else" "end" "endfunction" "endgenerate" "endinterface" "endpackage" "endspecify" "endtask" "for" "fork" "if" "join" "join_any" "join_none" "repeat" "return" "while") (#$ . 198388)) #@241 Keywords to complete when at first word of a line in a task or function. (begin, if, then, else, for, fork.) The procedures and variables defined within the Verilog program will be completed at runtime and should not be added to this list. (defvar verilog-tf-keywords '("begin" "break" "fork" "join" "join_any" "join_none" "case" "end" "endtask" "endfunction" "if" "else" "for" "while" "repeat") (#$ . 198884)) #@235 Keywords to complete when at first word of a line in case scope. (begin, if, then, else, for, fork...) The procedures and variables defined within the Verilog program will be completed at runtime and should not be added to this list. (defvar verilog-case-keywords '("begin" "fork" "join" "join_any" "join_none" "case" "end" "endcase" "if" "else" "for" "repeat") (#$ . 199302)) #@228 Keywords to complete when NOT standing at the first word of a statement. (else, then, begin...) Variables and function names defined within the Verilog program will be completed at runtime and should not be added to this list. (defvar verilog-separator-keywords '("else" "then" "begin") (#$ . 199686)) #@71 Map of direction for each positional argument to each gate primitive. (defvar verilog-gate-ios '(("and" "output") ("buf" "output") ("bufif0" "output") ("bufif1" "output") ("cmos" "output") ("nand" "output") ("nmos" "output") ("nor" "output") ("not" "output") ("notif0" "output") ("notif1" "output") ("or" "output") ("pmos" "output") ("pulldown" "output") ("pullup" "output") ("rcmos" "output") ("rnmos" "output") ("rpmos" "output") ("rtran" "inout" "inout") ("rtranif0" "inout" "inout") ("rtranif1" "inout" "inout") ("tran" "inout" "inout") ("tranif0" "inout" "inout") ("tranif1" "inout" "inout") ("xnor" "output") ("xor" "output")) (#$ . 199994)) #@31 Keywords for gate primitives. (defvar verilog-gate-keywords (mapcar 'car verilog-gate-ios) (#$ . 200648)) #@59 Return index of first letter where STR1 and STR2 differs. (defalias 'verilog-string-diff #[(str1 str2) "\30321 \304\211T GV\204 T\nGV\203 \305\303\"\210 H\nH\232\204* \305\303\"\210T\211\202 \207" [diff str1 str2 done 0 throw] 4 (#$ . 200760)]) #@120 Build regular expression for module/task/function names. TYPE is `module', `tf' for task or function, or t if unknown. (defalias 'verilog-func-completion #[(type) "\306\230\203 \307 \310\267\202 \311\202 \312\202 \313\314\315R\316\317 !\204^ \316\320 \321 \322 \f#\203U \323 \211 \203U \324 \203U \325 \203Q ` V\202R \320\204. \326 !\210\327\225,\210\330u\210eb\210d\320 \331 \332 \f#\203\225 \323 \211 \203\225 \333 \203\225 \334 \203\221 ` W\202\222 \320\204n \326 !\210\327\225,\203\273 \335\224\335\225{ \203\262 \n!\203d \n!B!\202d \327\224\205\303 \327\224b*\207" [verilog-str type match verilog-defun-re NOERROR BOUND "" "[a-zA-Z_]" #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (module 14 tf 18)) "\\<\\(module\\)\\s +" "\\<\\(task\\|function\\)\\s +" "\\<\\(task\\|function\\|module\\)\\s +" "\\<\\(" "[a-zA-Z0-9_.]*\\)\\>" nil looking-at t (nil nil) re-search-backward match-data verilog-skip-backward-comment-or-string (nil nil) store-match-data 0 1 (nil nil) re-search-forward verilog-skip-forward-comment-or-string (nil nil) 2 REGEXP mdata verilog-pred verilog-all] 4 (#$ . 201023)]) #@145 Macro for searching through current declaration (var, type or const) for matches of `str' and adding the occurrence tp `all' through point END. (defalias 'verilog-get-completion-decl #[(end) "\203 \206 \n\306\211 `W\203\320 \307 \310 \311#\203M \312 \211\203M \313 \203M \314\203I `W\202J \307\204\" \315!\210\316\225,\203\320 \212\317 )\f\307 \310 \311#\203\225 \312 \211\203\225 \313 \203\225 \314\203\221 `W\202\222 \307\204j \315!\210\316\225,\203\312 \320\225\204\312 \316\224\316\225{\321\322P \"\203] \203\301 !\203] B\202] \320y\210\202 +\207" [verilog-indent-declaration-macros verilog-declaration-re-2-macro verilog-declaration-re-2-no-macro match decl-end re nil t (nil nil) re-search-forward match-data verilog-skip-forward-comment-or-string (nil nil) store-match-data 0 verilog-declaration-end 1 string-match "\\<" end NOERROR BOUND REGEXP mdata verilog-symbol-re verilog-str verilog-pred verilog-all] 4 (#$ . 202203)]) #@66 Calculate all possible completions for variables (or constants). (defalias 'verilog-var-completion #[nil "`\301 \210\212\302!*\207" [start verilog-beg-of-defun verilog-get-completion-decl] 2 (#$ . 203216)]) #@68 Give list of all possible completions of keywords in KEYWORD-LIST. (defalias 'verilog-keyword-completion #[(keyword-list) "\301\302\"\207" [keyword-list mapcar #[(s) "\304\305P \"\205 \n\203 \n !\205 B\211\207" [verilog-str s verilog-pred verilog-all string-match "\\<"] 3]] 3 (#$ . 203431)]) #@540 Function passed to `completing-read', `try-completion' or `all-completions'. Called to get completion on VERILOG-STR. If VERILOG-PRED is non-nil, it must be a function to be called for every match to check if this should really be a match. If VERILOG-FLAG is t, the function returns a list of all possible completions. If VERILOG-FLAG is nil it returns a string, the longest possible completion, or t if VERILOG-STR is an exact match. If VERILOG-FLAG is `lambda', the function returns t if VERILOG-STR is an exact match, nil otherwise. (defalias 'verilog-completion #[(verilog-str verilog-pred verilog-flag) "\212\306 q\210\307 @\211\310\267\202v \212\311 \210)\312\313!\210\314 !\210\202\204 \212\311 \210)\312\313!\210\314 !\210\202\204 \212\311 \210)\312\315!\210\314\f!\210\202\204 \212\311 \210)\312\315!\210\314 !\210\202\204 \212\311 \210)\312\315!\210\314!\210\202\204 \212\311 \210)\314!\210\202\204 \212\311 \210)\202\204 \212\311 \210)\312\316!\210\314!\210)\317 *\207" [verilog-all verilog-buffer-to-use state verilog-defun-keywords verilog-block-keywords verilog-case-keywords nil verilog-calculate-indent #s(hash-table size 7 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (defun 16 behavioral 32 block 48 case 64 tf 80 cpp 97 cparenexp 110)) verilog-var-completion verilog-func-completion module verilog-keyword-completion tf both verilog-completion-response verilog-tf-keywords verilog-cpp-keywords verilog-separator-keywords] 3 (#$ . 203739)]) (defalias 'verilog-completion-response #[nil "\306\232\204\n \204d \205i A @\211G \307 \230\203% \310\202S \n\203S \311 \n@\"\211\fW\203< \312\fO\n@ \230\203L \310\307\211\202& \nA\211\204) \306\232\205] \310\232??\205b ,\207\205i \207" [verilog-flag verilog-all elm match min tmp lambda nil t verilog-string-diff 0 verilog-str] 4]) (defvar verilog-last-word-numb 0) (defvar verilog-last-word-shown nil) (defvar verilog-last-completions nil) #@125 Used as an element of `completion-at-point-functions'. (See also `verilog-type-keywords' and `verilog-separator-keywords'.) (defalias 'verilog-completion-at-point #[nil "\212\306\307x\210`)\212\306\307w\210`) {p\f\203% \n\230\203% \n\202) \310\n\311\" E-\207" [b e verilog-str verilog-buffer-to-use verilog-toggle-completions verilog-last-word-shown "a-zA-Z0-9_" nil all-completions verilog-completion verilog-last-completions allcomp] 3 (#$ . 205701)]) #@133 Complete word at current point. (See also `verilog-toggle-completions', `verilog-type-keywords', and `verilog-separator-keywords'.) (defalias 'verilog-complete-word #[nil "\306 \211@A@ \n{\3078 \203 \310\202! \311 \312\313\f\"\" \n|\210 \203] \f !\fGSY\203; \314\202> !T!\f!\234\"\f\203R \310\"\261\202\347 \310 \261\210\315\316!\202\347 \203i \317\232\203u \310 \261\210\315\316!\210\202{ \310 \261\210 \317\232\203\223 \fA\203\215 \315\320!\202\347 \315\321!\202\347 \fA??\205\347 G GU\205\347 # $r\322\323!q\210p\324 \210$#\325\211%&\317\211'\317 ( )\326 \210\327\330!\210+\211 * +\331\f!\210\332*!\210+\333\310`\"\210\334\335\336\323!!!.\207" [comp-info b e verilog-str allcomp verilog-toggle-completions verilog-completion-at-point 2 "" try-completion mapcar #[(elm) "\301B\207" [elm 0] 2] 0 message "(No match)" t "(Complete but not unique)" "(Sole completion)" get-buffer-create "*Completions*" kill-all-local-variables nil erase-buffer run-hooks temp-buffer-setup-hook display-completion-list internal-temp-output-buffer-show momentary-string-display delete-window get-buffer-window get-buffer match verilog-last-completions verilog-last-word-numb verilog-last-word-shown default-directory #1=#:old-dir buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only #2=#:buf standard-output] 6 (#$ . 206174) nil]) #@49 Show all possible completions at current point. (defalias 'verilog-show-completions #[nil "r\306\307!q\210p\310 \210 \311\211\312\211\312 \313 \210\314\315!\210+\211 \316\317\320 8!\210\321!\210+\322\323`\"\210\324\325\326\307!!!\207" [default-directory #1=#:old-dir buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks get-buffer-create "*Completions*" kill-all-local-variables nil t erase-buffer run-hooks temp-buffer-setup-hook display-completion-list 2 verilog-completion-at-point internal-temp-output-buffer-show momentary-string-display "" delete-window get-buffer-window get-buffer inhibit-read-only #2=#:buf standard-output] 5 (#$ . 207573) nil]) #@49 Return symbol around current point as a string. (defalias 'verilog-get-default-symbol #[nil "\212\300\301x\210\302\301x\210`\302\301w\210`{)\207" [" " nil "a-zA-Z0-9_"] 3 (#$ . 208272)]) #@149 Return function/task/module starting with STR as regular expression. With optional second ARG non-nil, STR is the complete name of the instruction. (defalias 'verilog-build-defun-re #[(str &optional arg) "\203 \302 \303Q\207\302 \304Q\207" [arg str "^\\(function\\|task\\|module\\)[ ]+\\(" "\\)\\>" "[a-zA-Z0-9_]*\\)\\>"] 3 (#$ . 208467)]) #@561 Function passed to `completing-read', `try-completion' or `all-completions'. Returns a completion on any function name based on VERILOG-STR prefix. If VERILOG-PRED is non-nil, it must be a function to be called for every match to check if this should really be a match. If VERILOG-FLAG is t, the function returns a list of all possible completions. If it is nil it returns a string, the longest possible completion, or t if VERILOG-STR is an exact match. If VERILOG-FLAG is `lambda', the function returns t if VERILOG-STR is an exact match, nil otherwise. (defalias 'verilog-comp-defun #[(verilog-str verilog-pred verilog-flag) "\212\306\211\nq\210 \211\307\230\203 \310\311!\202 \310 !eb\210 \306\312 \313 \314 \f#\203O \315 \211\203O \316 \203O \317 \203K ` W\202L \312\204( \320!\210\321\225,\203s \322\224\322\225{\203l !\203 B\202 )\323 +\207" [match verilog-all verilog-buffer-to-use verilog-str NOERROR BOUND nil "" verilog-build-defun-re "[a-zA-Z_]" t (nil nil) re-search-forward match-data verilog-skip-forward-comment-or-string (nil nil) store-match-data 0 2 verilog-completion-response REGEXP mdata verilog-pred] 5 (#$ . 208817)]) #@190 Move to specified Verilog module/interface/task/function. The default is a name found in the buffer around point. If search fails, other files are checked based on `verilog-library-flags'. (defalias 'verilog-goto-defun #[nil "\304 p\305\230\204 \306\307\310Q\311\312\211\305%\202 \306\313\311\312\211\305%\312\314 \210\315 \210\n\305\230\2030 \n\305\230\206U \212eb\210\316\317\n\320\"\312\320#) \203N b\210\321 \210 \206U \322\n!,\207" [default verilog-buffer-to-use label pt verilog-get-default-symbol "" completing-read "Goto-Label: (default " ") " verilog-comp-defun nil "Goto-Label: " verilog-auto-reeval-locals verilog-getopt-flags re-search-forward verilog-build-defun-re t beginning-of-line verilog-goto-defun-file] 6 (#$ . 210000) nil]) #@33 List all scopes in this module. (defalias 'verilog-showscopes #[nil "p\306\307\306e\310 \311 &' (r\312\313!q\210p\314 \210('\315\211)*\316\211+\316 , -\317 \210\320\321!\210+\211 . /\212\322\323\"\210\ndU\204u\315\316 0 1 2\324 3\325210#\203\201 \326 \2113\203\201 \327 \203\201 \33031\203} `1W\202~ \316\204V \3313!\210\307\225,\203u\307\224b\210\332 \210\326 4\333\216 \334\n`\"\\*`\307\225b\210\212\307\224b\210\f\307W\203\266 \f\202\270 \f[y\210`) 5\212\307\225b\210\f\307V\203\320 \fTy\210\202\323 \306y\210`) 6\335\336 \" 7\3377G\340\" 8\315 9\212\310 \2119`\315\223\210/q\2109:B: \204\n\f\307U\204\n\341c\210\315\342&56#\21065Z\206 \306[u\210\f\307W\203,\f[\202-\f\2119\307V\203G8\343\261\210\306y\2109S\2119\2020 ; `\307\225\307\224Z\\\315\223\210` W\203p7\204g\335\336;\"77\343\261\210\202U.\202D )\344\315!\345.!\210.\n\207" [regexp final-context-start prevpos first nlines linenum 1 0 make-marker "\\(module\\s-+\\w+\\s-*(\\)\\|\\(\\w+\\s-+\\w+\\s-*(\\)" get-buffer-create "*Occur*" kill-all-local-variables nil t erase-buffer run-hooks temp-buffer-setup-hook message "Searching for %s ..." (nil nil) re-search-forward match-data verilog-skip-forward-comment-or-string (nil nil) store-match-data beginning-of-line #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] count-lines format "%3d" make-string 32 "--------\n" insert-buffer-substring 58 set-buffer-modified-p internal-temp-output-buffer-show buffer default-directory #1=#:old-dir buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only #2=#:buf standard-output NOERROR BOUND REGEXP mdata save-match-data-internal start end tag empty tem occur-pos-list this-linenum] 8 (#$ . 210764) nil]) (defconst verilog-directive-regexp "\\(translate\\|coverage\\|lint\\)_") #@56 Return point if within translate-off region, else nil. (defalias 'verilog-within-translate-off #[nil "\212\301\302\303Q\304\305#)\205 \306\307!\310\232\205 `\207" [verilog-directive-regexp re-search-backward "//\\s-*.*\\s-*" "\\(on\\|off\\)\\>" nil t match-string 2 "off"] 4 (#$ . 212630)]) #@72 Return point before translate-off directive if before LIMIT, else nil. (defalias 'verilog-start-translate-off #[(limit) "\302\303\304Q \305#\205 \306\224\207" [verilog-directive-regexp limit re-search-forward "//\\s-*.*\\s-*" "off\\>" t 0] 4 (#$ . 212930)]) #@72 Return point before translate-off directive if before LIMIT, else nil. (defalias 'verilog-back-to-start-translate-off #[(limit) "\302\303\304Q \305#\205 \306\224\207" [verilog-directive-regexp limit re-search-backward "//\\s-*.*\\s-*" "off\\>" t 0] 4 (#$ . 213196)]) #@70 Return point after translate-on directive if before LIMIT, else nil. (defalias 'verilog-end-translate-off #[(limit) "\302\303\304Q \305#\207" [verilog-directive-regexp limit re-search-forward "//\\s-*.*\\s-*" "on\\>" t] 4 (#$ . 213471)]) #@101 Match a translate-off block, setting `match-data' and returning t, else nil. Bound search by LIMIT. (defalias 'verilog-match-translate-off #[(limit) "`W\205' \304 \206 \305!\306\211\205& \307!\206 \310\n D!\210 b)*\207" [limit case-fold-search start end verilog-within-translate-off verilog-start-translate-off t verilog-end-translate-off set-match-data] 4 (#$ . 213717)]) #@155 Match, and move over, any declaration item after point. Bound search by LIMIT. Adapted from `font-lock-match-c-style-declaration-item-and-skip-to-next'. (defalias 'verilog-font-lock-match-item #[(limit) "\3021, \214e}\210\303\304!\205) \305 \306\216\307\225b\210\303\310!\203$ \307\225b\202( \311\210\312*)0\207\210\311\207" [limit save-match-data-internal (error) looking-at "\\s-*\\([a-zA-Z]\\w*\\)" match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] 1 "\\(\\s-*,\\)" nil t] 2 (#$ . 214106)]) #@96 Insert a standard Verilog file header. See also `verilog-sk-header' for an alternative format. (defalias 'verilog-header #[nil "`\304c\210b\210\305\306!\210\307\310 \311\211#\210\305\312!\210\307\313\311\211#\210\314 c\210\315\316 \317\320 \321\261\210\305\322!\210\307\313\311\211#\210\323 \210\305\324!\210\307\313\311\211#\210\323 \210\305\325!\210\307\313\311\211#\210\326 \210\305\327!\210\307\313\311\211#\210\323 \210\330c\210b\210\331\332\333!\305\334!\210\307 \311\211#\210\332\335\n\"\211\305\336!\210\307 \311\211#\210\332\337 \"\211\305\340!\210\307 \311\211#\210\305\340!\210\307 \311\211#\210\305\340!\210\307 \311\211#\210\341\342!\210\307\313\311\211#*\207" [start string verilog-project verilog-company "//-----------------------------------------------------------------------------\n// Title : <title>\n// Project : <project>\n//-----------------------------------------------------------------------------\n// File : <filename>\n// Author : <author>\n// Created : <credate>\n// Last modified : <moddate>\n//-----------------------------------------------------------------------------\n// Description :\n// <description>\n//-----------------------------------------------------------------------------\n// Copyright (c) <copydate> by <company> This model is the confidential and\n// proprietary property of <company> and the possession or use of this\n// file requires a written license from <company>.\n//------------------------------------------------------------------------------\n// Modification history :\n// <modhist>\n//-----------------------------------------------------------------------------\n\n" search-forward "<filename>" replace-match buffer-name t "<author>" "" user-full-name " <" user-login-name "@" system-name ">" "<credate>" verilog-insert-date "<moddate>" "<copydate>" verilog-insert-year "<modhist>" " : created" nil read-string "title: " "<title>" "project: " "<project>" "Company: " "<company>" search-backward "<description>"] 6 (#$ . 214650) nil]) #@30 Insert date from the system. (defalias 'verilog-insert-date #[nil "\203 \301\302!c\207\301\303!c\207" [verilog-date-scientific-format format-time-string "%Y/%m/%d" "%d.%m.%Y"] 2 (#$ . 216702) nil]) #@30 Insert year from the system. (defalias 'verilog-insert-year #[nil "\300\301!c\207" [format-time-string "%Y"] 2 (#$ . 216908) nil]) (defalias 'verilog-sig-new #[(name bits comment mem enum signed type multidim modport) " \n \f \257 \207" [name bits comment mem enum signed type multidim modport] 9]) (put 'verilog-sig-new 'byte-optimizer 'byte-compile-inline-expand) (defalias 'verilog-sig-name #[(sig) "@\207" [sig] 1]) (put 'verilog-sig-name 'byte-optimizer 'byte-compile-inline-expand) (defalias 'verilog-sig-bits #[(sig) "A@\207" [sig] 1]) (put 'verilog-sig-bits 'byte-optimizer 'byte-compile-inline-expand) (defalias 'verilog-sig-comment #[(sig) "\3018\207" [sig 2] 2]) (put 'verilog-sig-comment 'byte-optimizer 'byte-compile-inline-expand) (defalias 'verilog-sig-memory #[(sig) "\3018\207" [sig 3] 2]) (put 'verilog-sig-memory 'byte-optimizer 'byte-compile-inline-expand) (defalias 'verilog-sig-enum #[(sig) "\3018\207" [sig 4] 2]) (put 'verilog-sig-enum 'byte-optimizer 'byte-compile-inline-expand) (defalias 'verilog-sig-signed #[(sig) "\3018\207" [sig 5] 2]) (put 'verilog-sig-signed 'byte-optimizer 'byte-compile-inline-expand) (defalias 'verilog-sig-type #[(sig) "\3018\207" [sig 6] 2]) (put 'verilog-sig-type 'byte-optimizer 'byte-compile-inline-expand) (defalias 'verilog-sig-type-set #[(sig type) "\302\233 \240\207" [sig type 6] 2]) (put 'verilog-sig-type-set 'byte-optimizer 'byte-compile-inline-expand) (defalias 'verilog-sig-multidim #[(sig) "\3018\207" [sig 7] 2]) (put 'verilog-sig-multidim 'byte-optimizer 'byte-compile-inline-expand) (defalias 'verilog-sig-multidim-string #[(sig) "\3038)\205$ \304\3038) \203\" @\nP A\211\204 \n*\207" [sig args str 7 ""] 4]) (put 'verilog-sig-multidim-string 'byte-optimizer 'byte-compile-inline-expand) (defalias 'verilog-sig-modport #[(sig) "\3018\207" [sig 8] 2]) (put 'verilog-sig-modport 'byte-optimizer 'byte-compile-inline-expand) (defalias 'verilog-sig-width #[(sig) "\301\211A@)!\207" [sig verilog-make-width-expression] 3]) (put 'verilog-sig-width 'byte-optimizer 'byte-compile-inline-expand) (defalias 'verilog-alw-new #[(outputs-del outputs-imm temps inputs) "\304 \n $\207" [outputs-del outputs-imm temps inputs vector] 5]) (put 'verilog-alw-new 'byte-optimizer 'byte-compile-inline-expand) (defalias 'verilog-alw-get-outputs-delayed #[(sigs) "\301H\207" [sigs 0] 2]) (put 'verilog-alw-get-outputs-delayed 'byte-optimizer 'byte-compile-inline-expand) (defalias 'verilog-alw-get-outputs-immediate #[(sigs) "\301H\207" [sigs 1] 2]) (put 'verilog-alw-get-outputs-immediate 'byte-optimizer 'byte-compile-inline-expand) (defalias 'verilog-alw-get-temps #[(sigs) "\301H\207" [sigs 2] 2]) (put 'verilog-alw-get-temps 'byte-optimizer 'byte-compile-inline-expand) (defalias 'verilog-alw-get-inputs #[(sigs) "\301H\207" [sigs 3] 2]) (put 'verilog-alw-get-inputs 'byte-optimizer 'byte-compile-inline-expand) (defalias 'verilog-alw-get-uses-delayed #[(sigs) "\301H\207" [sigs 0] 2]) (put 'verilog-alw-get-uses-delayed 'byte-optimizer 'byte-compile-inline-expand) (defalias 'verilog-modport-new #[(name clockings decls) " \nE\207" [name clockings decls] 3]) (put 'verilog-modport-new 'byte-optimizer 'byte-compile-inline-expand) (defalias 'verilog-modport-name #[(sig) "@\207" [sig] 1]) (put 'verilog-modport-name 'byte-optimizer 'byte-compile-inline-expand) (defalias 'verilog-modport-clockings #[(sig) "A@\207" [sig] 1]) (put 'verilog-modport-clockings 'byte-optimizer 'byte-compile-inline-expand) (defalias 'verilog-modport-clockings-add #[(sig val) "A A@B\240\207" [sig val] 3]) (put 'verilog-modport-clockings-add 'byte-optimizer 'byte-compile-inline-expand) (defalias 'verilog-modport-decls #[(sig) "\3018\207" [sig 2] 2]) (put 'verilog-modport-decls 'byte-optimizer 'byte-compile-inline-expand) (defalias 'verilog-modport-decls-set #[(sig val) "AA \240\207" [sig val] 2]) (put 'verilog-modport-decls-set 'byte-optimizer 'byte-compile-inline-expand) (defalias 'verilog-modi-new #[(name fob pt type) "\304 \n $\207" [name fob pt type vector] 5]) (put 'verilog-modi-new 'byte-optimizer 'byte-compile-inline-expand) (defalias 'verilog-modi-name #[(modi) "\301H\207" [modi 0] 2]) (put 'verilog-modi-name 'byte-optimizer 'byte-compile-inline-expand) (defalias 'verilog-modi-file-or-buffer #[(modi) "\301H\207" [modi 1] 2]) (put 'verilog-modi-file-or-buffer 'byte-optimizer 'byte-compile-inline-expand) (defalias 'verilog-modi-get-point #[(modi) "\301H\207" [modi 2] 2]) (put 'verilog-modi-get-point 'byte-optimizer 'byte-compile-inline-expand) (defalias 'verilog-modi-get-type #[(modi) "\301H\207" [modi 3] 2]) (put 'verilog-modi-get-type 'byte-optimizer 'byte-compile-inline-expand) (defalias 'verilog-modi-get-decls #[(modi) "\301\302\"\207" [modi verilog-modi-cache-results verilog-read-decls] 3]) (put 'verilog-modi-get-decls 'byte-optimizer 'byte-compile-inline-expand) (defalias 'verilog-modi-get-sub-decls #[(modi) "\301\302\"\207" [modi verilog-modi-cache-results verilog-read-sub-decls] 3]) (put 'verilog-modi-get-sub-decls 'byte-optimizer 'byte-compile-inline-expand) (defalias 'verilog-decls-new #[(out inout in vars modports assigns consts gparams interfaces) "\306 \n \f & \207" [out inout in vars modports assigns vector consts gparams interfaces] 10]) (put 'verilog-decls-new 'byte-optimizer 'byte-compile-inline-expand) (defalias 'verilog-decls-append #[(a b) "\204 \207 \204\f \207\302\303\304H \304H\"\303\305H \305H\"\303\306H \306H\"\303\307H \307H\"\303\310H \310H\"\303\311H \311H\"\303\312H \312H\"\303\313H \313H\"\303\314H \314H\"& \207" [a b vector append 0 1 2 3 4 5 6 7 8] 13]) (put 'verilog-decls-append 'byte-optimizer 'byte-compile-inline-expand) (defalias 'verilog-decls-get-outputs #[(decls) "\301H\207" [decls 0] 2]) (put 'verilog-decls-get-outputs 'byte-optimizer 'byte-compile-inline-expand) (defalias 'verilog-decls-get-inouts #[(decls) "\301H\207" [decls 1] 2]) (put 'verilog-decls-get-inouts 'byte-optimizer 'byte-compile-inline-expand) (defalias 'verilog-decls-get-inputs #[(decls) "\301H\207" [decls 2] 2]) (put 'verilog-decls-get-inputs 'byte-optimizer 'byte-compile-inline-expand) (defalias 'verilog-decls-get-vars #[(decls) "\301H\207" [decls 3] 2]) (put 'verilog-decls-get-vars 'byte-optimizer 'byte-compile-inline-expand) (defalias 'verilog-decls-get-modports #[(decls) "\301H\207" [decls 4] 2]) (put 'verilog-decls-get-modports 'byte-optimizer 'byte-compile-inline-expand) (defalias 'verilog-decls-get-assigns #[(decls) "\301H\207" [decls 5] 2]) (put 'verilog-decls-get-assigns 'byte-optimizer 'byte-compile-inline-expand) (defalias 'verilog-decls-get-consts #[(decls) "\301H\207" [decls 6] 2]) (put 'verilog-decls-get-consts 'byte-optimizer 'byte-compile-inline-expand) (defalias 'verilog-decls-get-gparams #[(decls) "\301H\207" [decls 7] 2]) (put 'verilog-decls-get-gparams 'byte-optimizer 'byte-compile-inline-expand) (defalias 'verilog-decls-get-interfaces #[(decls) "\301H\207" [decls 8] 2]) (put 'verilog-decls-get-interfaces 'byte-optimizer 'byte-compile-inline-expand) (defalias 'verilog-subdecls-new #[(out inout in intf intfd) "\305 \n \f%\207" [out inout in intf intfd vector] 6]) (put 'verilog-subdecls-new 'byte-optimizer 'byte-compile-inline-expand) (defalias 'verilog-subdecls-get-outputs #[(subdecls) "\301H\207" [subdecls 0] 2]) (put 'verilog-subdecls-get-outputs 'byte-optimizer 'byte-compile-inline-expand) (defalias 'verilog-subdecls-get-inouts #[(subdecls) "\301H\207" [subdecls 1] 2]) (put 'verilog-subdecls-get-inouts 'byte-optimizer 'byte-compile-inline-expand) (defalias 'verilog-subdecls-get-inputs #[(subdecls) "\301H\207" [subdecls 2] 2]) (put 'verilog-subdecls-get-inputs 'byte-optimizer 'byte-compile-inline-expand) (defalias 'verilog-subdecls-get-interfaces #[(subdecls) "\301H\207" [subdecls 3] 2]) (put 'verilog-subdecls-get-interfaces 'byte-optimizer 'byte-compile-inline-expand) (defalias 'verilog-subdecls-get-interfaced #[(subdecls) "\301H\207" [subdecls 4] 2]) (put 'verilog-subdecls-get-interfaced 'byte-optimizer 'byte-compile-inline-expand) #@76 Return signals in standard form from SIGNAME-LIST, a simple list of names. (defalias 'verilog-signals-from-signame #[(signame-list) "\301\302\"\207" [signame-list mapcar #[(name) "\306\211\211\211\211\211\211\211 \211 \f \n \257 . \207" [name modport multidim type signed enum nil mem comment bits] 10]] 3 (#$ . 224986)]) #@149 Return list of signals in IN-LIST that are also in NOT-LIST. Also remove any duplicates in IN-LIST. Signals must be in standard (base vector) form. (defalias 'verilog-signals-in #[(in-list not-list) "\306\307\310\311\312$\306\307\310\311\313$\314 \203# \315 @@\316 #\210 A\211\204 \f\203V \317\f@\211 @) \"\203O \317\f@\211 @)\n\"\204O \f@B\315\f@\211 @)\316\n#\210\fA\211\204' \237+\207" [out-list ht-not ht not-list in-list sig make-hash-table :test equal :rehash-size 4.0 4.0 nil puthash t gethash] 7 (#$ . 225334)]) #@152 Return list of signals in IN-LIST that aren't also in NOT-LIST. Also remove any duplicates in IN-LIST. Signals must be in standard (base vector) form. (defalias 'verilog-signals-not-in #[(in-list not-list) "\305\306\307\310\311$\312\n\203 \313\n@@\314 #\210\nA\211\204 \203C \315 @\211 @) \"\204< @B\313 @\211 @)\314 #\210 A\211\204 \237*\207" [out-list ht not-list in-list sig make-hash-table :test equal :rehash-size 4.0 nil puthash t gethash] 6 (#$ . 225870)]) #@214 Return list of signals in IN-LIST that aren't also in NOT-LIST. Also remove any duplicates in IN-LIST. Any structure in not-list will remove all members in in-list. Signals must be in standard (base vector) form. (defalias 'verilog-signals-not-in-struct #[(in-list not-list) "\306\307\310\311\312$\313\211\211\f\203 \314\f@@\315 #\210\fA\211\204 \203j @\211 @)\316 \"\204c \315\317\320\"\203N \321\322\" \205J \316 \"?\2025 \203c @\nB\314 @\211 @)\315 #\210 A\211\204$ \n\237,\207" [nm addit out-list ht not-list in-list make-hash-table :test equal :rehash-size 4.0 nil puthash t gethash string-match "^\\([^\\].*\\)\\.[^.]+$" match-string 1 sig] 6 (#$ . 226353)]) #@74 Return list of signals in IN-LIST that are memorized (multidimensional). (defalias 'verilog-signals-memory #[(in-list) "\302 \203 \303 @8\203 @B A\211\204 )\207" [out-list in-list nil 3] 3 (#$ . 227047)]) #@37 Compare signal A and B for sorting. (defalias 'verilog-signals-sort-compare #[(a b) "\211@)\n\211@)\231\207" [a sig b] 3 (#$ . 227267)]) #@80 Return list of signals in IN-LIST that aren't parameters or numeric constants. (defalias 'verilog-signals-not-params #[(in-list) "\303 \203! \304\305\306 @\211@)P!!\204 @B A\211\204 \237)\207" [out-list in-list sig nil boundp intern "vh-"] 5 (#$ . 227413)]) #@79 Return list of signals where FUNC is true executed on each signal in IN-LIST. (defalias 'verilog-signals-with #[(func in-list) "\303 \203 \n @!\203 @B A\211\204 \237)\207" [out-list in-list func nil] 3 (#$ . 227686)]) #@137 Return a list of signals in IN-LIST, with buses combined. Duplicate signals are also removed. For example A[2] and A[1] become A[2:1]. (defalias 'verilog-signals-combine-bus #[(in-list) "\306\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211 ! \" # $ % & ' ( )\307*\310\"**\203*@&#\204\243 &\211 &@)#\306\211\"& &\311&8) & &\312&8) & &\313&8) & &\314&8)& &\315&8)& &\316&8)& &\317&8)\320\211)(&\211 &A@)\211\205\263 \321!\211\203\n\322\323\"\203\323 \324\325\326\"!%\324\325\311\"!\211$\204\351 \322\327\"\203\n\324\325\326\"!\211%\211$\203\n\"\203\377 %\"]\"$!^!\202%\"$!\202\203*A\211*@\211&\203\250#&\211 &@)\232\203\250\n\203>\n&\211 &A@)\232\204>\330(& &\311&8)\203M\331) \206[& &\312&8) \206k& &\313&8) \206z& &\314&8)\f\206\210& &\315&8) \206\226& &\316&8) \206\244& &\317&8)\2027 #\n\206\300\"\205\300\332\333\"!\334\333!!\335\260 )(Q \f + , - . / 0 1 2\211 3210/.-,+\257 . 'B'\306#\2027 '.\207" [bus sv-modport sv-busstring sv-multidim sv-type sv-signed nil sort verilog-signals-sort-compare 2 3 4 5 6 7 8 "" verilog-simplify-range-expression string-match "\\[\\([0-9]+\\):\\([0-9]+\\)\\]" string-to-number match-string 1 "\\[\\([0-9]+\\)\\]" ", Couldn't Merge" ", ..." "[" int-to-string ":" "]" sv-enum sv-memory sv-comment sv-lowbit sv-highbit sv-name lowbit highbit sig out-list buswarn combo in-list modport multidim type signed enum mem comment bits name] 19 (#$ . 227920)]) #@144 Return tieoff expression for given SIG, with appropriate width. Tieoff value uses `verilog-active-low-regexp' and `verilog-auto-reset-widths'. (defalias 'verilog-sig-tieoff #[(sig) "\203 \211@)\306 \307\f \n#,\203 \310\202 \311\204( \312\202j \313\232\2033 \314\202j \315 \211A@)!)\211 \204H \316\202i \307\317\"\203d \320 8)\203_ \321\202` \322P\202i \323\324Q)P\207" [verilog-active-low-regexp sig start string regexp verilog-case-fold nil string-match "~" "" "0" unbased "'0" verilog-make-width-expression "`0/*NOWIDTH*/" "^[0-9]+$" 5 "'sh0" "'h0" "{" "{1'b0}}" case-fold-search verilog-auto-reset-widths width] 5 (#$ . 229490)]) #@91 For debug, dump the `verilog-read-decls' structure DECLS. Use optional HEADER and PREFIX. (defalias 'verilog-decls-princ #[(decls &optional header prefix) "\205\234 \203\f \303 !\210\n\206 \304\305\211\306H)\n\307P\n\310P#\210\305\211\311H)\n\312P\n\310P#\210\305\211\313H)\n\314P\n\310P#\210\305\211\315H)\n\316P\n\310P#\210\305\211\317H)\n\320P\n\310P#\210\305\211\321H)\n\322P\n\310P#\210\305\211\323H)\n\324P\n\310P#\210\305\211\325H)\n\326P\n\310P#\210\327\211\330H)\n\331P\n\310P#\210\303\332!\207" [decls header prefix princ "" verilog-signals-princ 0 "Outputs:\n" " " 1 "Inout:\n" 2 "Inputs:\n" 3 "Vars:\n" 5 "Assigns:\n" 6 "Consts:\n" 7 "Gparams:\n" 8 "Interfaces:\n" verilog-modport-princ 4 "Modports:\n" "\n"] 6 (#$ . 230157)]) #@70 For debug, dump internal SIGNALS structures, with HEADER and PREFIX. (defalias 'verilog-signals-princ #[(signals &optional header prefix) "\205\232 \203\f \304 !\210\205\232 @A\304 !\210\304\305!\210\304\n\211@)!\210\304\305!\210\304\306!\210\304\n\211A@)!\210\304\307!\210\304\n\310\n8)!\210\304\311!\210\304\n\312\n8)!\210\304\313!\210\304\n\314\n8)!\210\304\315!\210\304\n\316\n8)!\210\304\317!\210\304\n\320\n8)!\210\304\321!\210\304\n\322\n8)!\210\304\323!\210\304\n\324\n8)!\210\304\325!\210)\202\f \207" [signals header sig prefix princ "\"" " bits=" " cmt=" 2 " mem=" 3 " enum=" 4 " sign=" 5 " type=" 6 " dim=" 7 " modp=" 8 "\n"] 4 (#$ . 230925)]) #@71 For debug, dump internal MODPORTS structures, with HEADER and PREFIX. (defalias 'verilog-modport-princ #[(modports &optional header prefix) "\205N \203\f \304 !\210\205N @A\304 !\210\304\305!\210\304\n\211@)!\210\304\305!\210\304\306!\210\304\n\211A@)!\210\304\307!\210\310\n\311\n8) \312P \313P#\210)\202\f \207" [modports header sig prefix princ "\"" " clockings=" "\n" verilog-decls-princ 2 " syms:\n" " "] 6 (#$ . 231611)]) #@55 Internal. Move point back to beginning of inst-name. (defalias 'verilog-read-inst-backward-name #[nil "\305 \210\306\204I \307\306\211\306 \f\2044 \310 \n #\2034 \311\312\224!\203- \310\313\306\314#\210\202 \312\224\211\203 \f,\210\315\316!\203C \305 \210\202 \314\211\203 )\315\317!\203\204 \320 \210\321\306\211\306 \f\204~ \310 \n #\203~ \311\312\224!\203w \310\313\306\314#\210\202[ \312\224\211\203_ \f,\210\202J \322\306x\207" [done noerror bound regexp pt verilog-backward-open-paren nil "\\()\\|\\b[a-zA-Z0-9`_$]\\|\\]\\)" re-search-backward verilog-inside-comment-or-string-p 0 "[/\"]" t looking-at ")" "\\]" verilog-backward-open-bracket "\\(\\b[a-zA-Z0-9`_$]\\|\\]\\)" "a-zA-Z0-9`_$"] 5 (#$ . 232060)]) #@71 Set match data 0 with module_name when point is inside instantiation. (defalias 'verilog-read-inst-module-matcher #[nil "\304 \210\305\306\211\306 \204. \307\n #\203. \310\311\224!\203' \307\312\306\313#\210\202 \311\224\211\203 ,\210\314\315!\203h \316 \210\317\306\211\306 \204e \307\n #\203e \310\311\224!\203^ \307\312\306\313#\210\202B \311\224\211\203F ,\210\320\306x\210\212\321 \210`Sf)\322=\203\253 \317\306\211\306 \204\244 \307\n #\203\244 \310\311\224!\203\235 \307\312\306\313#\210\202\201 \311\224\211\203\205 ,\210\320\306x\210\314\323!\210\324\311\224\311\225\"\207" [noerror bound regexp pt verilog-read-inst-backward-name "\\(\\b[a-zA-Z0-9`_$]\\|)\\)" nil re-search-backward verilog-inside-comment-or-string-p 0 "[/\"]" t looking-at ")" verilog-backward-open-paren "\\b[a-zA-Z0-9`_$]" "a-zA-Z0-9'_$" verilog-backward-syntactic-ws-quick 35 "[a-zA-Z0-9`_$]+" buffer-substring-no-properties] 4 (#$ . 232796)]) #@56 Return module_name when point is inside instantiation. (defalias 'verilog-read-inst-module #[nil "\212\300 )\207" [verilog-read-inst-module-matcher] 1 (#$ . 233750)]) #@58 Return instance_name when point is inside instantiation. (defalias 'verilog-read-inst-name #[nil "\212\300 \210\301\302!\210\303\304\224\304\225\")\207" [verilog-read-inst-backward-name looking-at "[a-zA-Z0-9`_$]+" buffer-substring-no-properties 0] 3 (#$ . 233923)]) #@43 Return module name when after its ( or ;. (defalias 'verilog-read-module-name #[nil "\212\305\306!\210\307\211\307 \f\2040 \305 \n #\2030 \310\311\224!\203) \305\312\307\313#\210\202 \311\224\211\203 \f,\210\311\225b\210\314\307\211\307 \f\204b \315 \n #\203b \310\311\224!\203[ \315\316\307\313#\210\202? \311\225\211\203C \f,\210\317\320\311\224\311\225\"\313\")\207" [verilog-defun-re noerror bound regexp pt re-search-backward "[(;]" nil verilog-inside-comment-or-string-p 0 "[/\"]" t "\\b[a-zA-Z0-9`_$]+" re-search-forward "[/\"\n]" verilog-symbol-detick buffer-substring-no-properties] 4 (#$ . 234196)]) #@74 Return list of parameters and values when point is inside instantiation. (defalias 'verilog-read-inst-param-value #[nil "\212\306 \210\307\310\211\310 \204/ \311\n #\203/ \312\313\224!\203( \311\314\310\315#\210\202\f \313\224\211\203 ,\210\316\317!\205\205`\310\211\211\211 ! \" #\320 \210\321#\315\310 \204t \322\n #\203t \312\313\224!\203m \322\323\310\315#\210\202Q \313\225\211\203U ,\203\202\324\310\211\310 \204\244 \322\n #\203\244 \312\313\224!\203\235 \322\323\310\315#\210\202\201 \313\225\211\203\205 ,\210\325\310x\210\316\326!\210\327\313\224\313\225\"!\330\310\211\310 \204\342 \322\n #\203\342 \312\313\224!\203\333 \322\323\310\315#\210\202\277 \313\225\211\203\303 ,\210`\331 \210\327 `S\" $\332 %\333\216\334\335\310\211$ $ & ' ( )\313 *\336)$*#\203/\337('&$$\211$G\313\224(G\\^*\202\n$.$\340\335\310\211$ $ & ' ( )\313 *\336)$*#\203m\337('&$$\211$G\313\224(G\\^*\202H$.\211$+!\fD\"B\"\202H \"-)\207" [noerror bound regexp pt param-value paren-beg-pt verilog-read-inst-backward-name "\\(\\b[a-zA-Z0-9`_$]\\|)\\)" nil re-search-backward verilog-inside-comment-or-string-p 0 "[/\"]" t looking-at ")" verilog-backward-open-paren "\\." re-search-forward "[/\"\n]" "\\([a-zA-Z0-9`_$]\\)" "a-zA-Z0-9'_$" "[a-zA-Z0-9`_$]+" buffer-substring-no-properties "(" verilog-forward-close-paren match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] "^\\s-+" "" string-match replace-match "\\s-+$" param-name params end-pt string save-match-data-internal literal fixedcase to-string from-string start] 5 (#$ . 234823)]) #@112 Return parameter list inside auto. Optional NUM-PARAM and MAX-PARAM check for a specific number of parameters. (defalias 'verilog-read-auto-params #[(num-param &optional max-param) "\303\212\304\305!\210\306\307!\203 \310\305!B\311\225b\210\202 ) \303=\204/ GX\204/ \312\313\314 #\210\n\303=\2037 \n\303=\204K \nGY\204K \312\315\314 \n#\210\237)\207" [olist num-param max-param nil backward-sexp 1 looking-at "(?\\s *\"\\([^\"]*\\)\"\\s *,?" match-string 0 error "%s: Expected %d parameters" verilog-point-text "%s: Expected <= %d parameters"] 4 (#$ . 236462)]) #@139 Compute signal declaration information for the current module at point. Return an array of [outputs inouts inputs wire reg assign const]. (defalias 'verilog-read-decls #[nil "\306 \206 d\307\211\211\310\311\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211\211 @ A B C D E F G H I : J > < 8 6 4 K L M N O P Q R S T\212\312 \210\313`T\"J`TW\203_\314\315!\203\214 \314\316!\203\205 \317\320!A\321\322!\210\202V\314\323!\203\260 \320u\210\314\316!\203\240 \317\320!A\321\324!\204V\325\326\327 `#\210\202V\314\330!\203\311 \331u\210\321\332!\204V\325\333\327 `#\210\202Vg\334=\203\341 \335\336\311\310#\204V\325\337\327 `#\210\202Vg\340=\203\230M\203\365 \311\211MB\202\222O\203wO\310=\204wO684\311\211\211\211\211\211 U V W X Y Z [ \\ ]\341]\\[ZYXWVU& . ^\211 _AA^\240*\210 @ A\307H6\331H8\320H4\311\211G@\311\211FC\307R\311\211BP\311\211OK\202\222\311\211G@\311\211FC\307R\311\211BP\311\211OK\331u\210\202Vg\342=\203\252\310B\311C\331u\210\202Vg\343=\203\301RQ=\203\301\311B\331u\210\202V\314\344!\203\322RTR\331u\210\202V\314\345!\203\361RSR\331u\210RQW\203V\311\211FB\202V\314\346!\203 \307\225b\210C\203ECAAAC _\347_8)\203!C _\347_8)\317\331!P\202@\331\311\224\205>\211\2038\350\224\225#\266\202\202@\351\224\225\"\266\202\240\210\202VG\203\255G B\352\353\311\211\331\311\224\205p\211\203j\350\224\225#\266\202\202r\351\224\225\"\266\202 ` a b c d\307 e\354d`e#\203\244\355cba`$\211`G\307\224cG\\^e\202`.G\202V\352\353\311\211\331\311\224\205\316\211\203\310\350\224\225#\266\202\202\320\351\224\225\"\266\202 ` a b c d\307 e\354d`e#\203\355cba`$\211`G\307\224cG\\^e\202\335`.G\202V\314\356!\203S\307\225b\210ED\331\311\224\2056\211\2030\350\224\225#\266\202\2028\351\224\225\"\266\202E\354\357\317\331!\"\203IE\360PE\314\361!\203n\307\225b\210E\362\317\331!QE\354\357\317\331!\"\203IE\360PE\202IE\363\232\203\231\311\211GA\311\211BC\311\211\311\211L\311\364F\310@RQ\202VE\365\232\203\304\311\211GA\311\211BC\311\211\311\211L\311\366F\310@RQ\202VE\367\232\203\357\311\211GA\311\211BC\311\211\311\211L\311\370F\310@RQ\202VE\371\232\203\311\211GA\311\211B\311\211\311\211L\372F\310@RQ\202VE\373\235\203P@\2035\f\203/\f\360EQ\2021E\202V\311\211GA\311\211B\311\211RQ\374F\311\202VE\375\232\203u\311\211GA\311\211B\311\211\311\211L\376FRQ\202VE\377\235\203\234\311\211GA\311\211B\311\211\311\211L\201J FRQ\202VE\201n \235\203\253E\202VE\201o \235\203\272\310K\202VE\201p \235\203\320K\204VSTS\202VE\201q \235\203\341SSS\202VE\201r \232\203\360\310O\202VE\201s \232\203D\201t \232\204\310N\202VE\201u \232\203 P\203V\310\211MB\202VE\201v \232\203.\310L\202VE\201w \232\204VE\201x \235\203F\310B\202VL\204\207\201y E!\203\207@\203k\f\203e\f\360EQ\202gE\202V\311\211GA\311\211BE\311RQ\374F\311\202VP\203\322R\331=\203\322B\204\322\314\201z !\203\322\320\225\203\251\320\225b\210\311\211GA\311\211BE\311\211L\317\320!\311CRQ\201I F\310@\202V\314\201{ !\203\351\307\225b\210B\204V\311F\202VO\310=\203(Ef\235\204(E\311\211 g h\211 ihgE+\211OHBH\341684# B\311\21148\3116\202VO\203LN\203LOE ^\211 _A^_A@B\240*\210\311N\202VN\203\277E\201| \232\203\277N\310=\204\271N684\311\211\211\211\211\211 U V W X Y Z [ \\ ]\341]\\[ZYXWVU& . ^\211 _AA^\240*\210 @ A\307H6\331H8\320H4\311N\202VN\310=\203\376Ef\235\204\376E\311\211 g h\211 ihgE+\211NHBH\341684# B\311\21148\3116\202VF\203VB\204VS\307=\203VEf\235\204VEG\311\211A \f \n j A k l m\211 imlkA j \n\257 . CFCFJBL\210\202V\331u\210\201} \360!\210\202m 6\2378\2374\237<\237H\237>\237J\237:\237I\237 U V W X Y Z [ \\ ]\341]\\[ZYXWVU& . \211.\"\207" [tmp varstack modport multidim typedefed signed verilog-get-end-of-defun 0 t nil verilog-beg-of-defun-quick verilog-read-auto-constants looking-at "//" "[^\n]*\\(auto\\|synopsys\\)\\s +enum\\s +\\([a-zA-Z0-9_]+\\)" match-string 2 search-forward "\n" "/\\*" "*/" error "%s: Unmatched /* */, at char %d" verilog-point-text "(\\*" 1 "*)" "%s: Unmatched (* *), at char %d" 34 re-search-forward "[^\\]\"" "%s: Unmatched quotes, at char %d" 59 vector 61 44 "[{(]" "[})]" "\\s-*\\(\\[[^]]+\\]\\)" 3 substring-no-properties buffer-substring-no-properties "\\s-+" "" string-match replace-match "\\s-*\\([a-zA-Z0-9`_$]+\\|\\\\[^ \n\f]+\\)" "^\\\\" " " "\\s-*::\\s-*\\(\\*\\|[a-zA-Z0-9`_$]+\\|\\\\[^ \n\f]+\\)" "::" "input" sigs-in "output" sigs-out "inout" sigs-inout "parameter" sigs-gparam ("wire" "reg" "tri" "tri0" "tri1" "triand" "trior" "trireg" "uwire" "wand" "wor" "byte" "shortint" "int" "longint" "integer" "time" "supply0" "supply1" "bit" "logic" "shortreal" "real" "realtime" "string" "event" "chandle") sigs-var "assign" sigs-assign ("localparam" "genvar") io enum rvalue newsig last-keywd keywd expect-signal vec sigs-modports sigs-intf sigs-const ign-prop ptype in-ign-to-semi in-clocking in-modport v2kargs-ok sig-paren paren functask end-mod-point interfaces gparams consts assigns modports vars in inout out val sig string literal fixedcase to-string from-string start verilog-keywords decls clockings name type mem comment bits ("signed" "unsigned") ("assert" "assume" "cover" "expect" "restrict") ("class" "covergroup" "function" "property" "randsequence" "sequence" "task") ("endclass" "endgroup" "endfunction" "endproperty" "endsequence" "endtask") "modport" "clocking" "default" "import" "type" "var" ("`ifdef" "`ifndef" "`elsif") verilog-typedef-name-p "\\s-*\\(\\.\\(\\s-*[a-zA-Z`_$][a-zA-Z0-9`_$]*\\)\\|\\)\\s-*[a-zA-Z`_$][a-zA-Z0-9`_$]*" "\\s-*\\." "endclocking" skip-syntax-forward] 34 (#$ . 237043)]) #@78 For `verilog-read-sub-decls', process next signal as under interfaced block. (defvar verilog-read-sub-decls-in-interfaced nil (#$ . 243039)) #@77 For `verilog-read-sub-decls', gate IO pins remaining, nil if non-primitive. (defvar verilog-read-sub-decls-gate-ios nil (#$ . 243186)) #@58 For `verilog-read-sub-decls-line', decode a signal type. (defalias 'verilog-read-sub-decls-type #[(par-values portdata) "\305 8)\306\n \" \n\307\235\203 \310\202! \f\203 \fA@\202! \n*\207" [portdata sig type par-values pvassoc 6 assoc ("wire" "reg") nil] 3 (#$ . 243327)]) #@50 For `verilog-read-sub-decls-line', add a signal. (defalias 'verilog-read-sub-decls-sig #[(submoddecls par-values comment port sig vec multidim mem) "\306=\307\205>\310 !\n\203 \202 \310!\f\203\" \310\f! \203+ \311\310 \"\2036 \310!?\206> \312\232?\205>\313 \211 \314H)\"\211\204Y \315\232\203\252 \n\203g \211A@)\202h \f\316 P\307 \3178)\320 \" \307 ! \" #\211 $# \"! \257 . %B\211%\202>\313 \211 \321H)\"\211\204\301 \322\232\203\n\203\317 \211A@)\202\320 \f\323 P\307 \3178)\320 \" \307 ! \" #\211 $# \"! \257 . &B\211&\202>\313 \211 \324H)\"\211\204) \325\232\203z\n\2037 \211A@)\2028\f\326 P\307 \3178)\320 \" \307 ! \" #\211 $# \"! \257 . 'B\211'\202>\313 \211 \327H)\"\211\203\333\n\203\230 \211A@)\202\231\f\316 P\307 \3178)\320 \" \307 ! \" #\211 $# \"! \257 . (B\211(\202>)\205\353\313 \211 \330H)\"\211\205>\n\203\376 \211A@)\202\377\f\316 P\307 \3178)\320 \" \307 ! \" #\211 $# \"! \257 . (B\211**\207" [sig portdata dotname port vec multidim t nil verilog-symbol-detick-denumber mapcar "" assoc 1 "inout" "To/From " 5 verilog-read-sub-decls-type 0 "output" "From " 2 "input" "To " 8 3 mem submoddecls decls verilog-read-sub-decls-gate-ios comment par-values modport type signed enum bits name sigs-inout sigs-out sigs-in sigs-intf verilog-read-sub-decls-in-interfaced sigs-intfd] 10 (#$ . 243611)]) #@75 For `verilog-read-sub-decls-line', parse a subexpression and add signals. (defalias 'verilog-read-sub-decls-expr #[(submoddecls par-values comment port expr) "\306\307\310\211 \311 \312 #\203* \313\f \n $\211G\311\224\fG\\^ \202 .\314\315\310\211 \311 \312 #\203X \313\f \n $\211G\311\224\fG\\^ \202; .\312\316\"\203\224 ?\205\264\317\320\321\"\322\"\310 !!\211A!\242\211 \205\222 \323\"#$% %\210\202u *\207\310\211\211\211 & ' ( )\314\315\310\211 \311 \312 #\203\312 \313\f \n $\211G\311\224\fG\\^ \202\255 .\312\324\"\203\344 \320\321\")\311\225\310O\202\\\312\325\"\203\\\320\321\"\326 *\327\216\330\315\310\211 \311 \312 #\203 \313\f \n $\211G\311\224\fG\\^ \202 .\331\315\310\211 \311 \312 #\203N\313\f \n $\211G\311\224\fG\\^ \2021 .\211+)\311\225\310O\312\332\"\203~(\203o('B'\320\321\"(\311\225\310O\202\\\312\333\"\203\224\320\321\"&\311\225\310O\202~)\205\263\312\334\"\205\263\335\"#$%)('&&,\207" [expr string literal fixedcase to-string from-string "/\\*\\(\\.?\\[[^*]+\\]\\)\\*/" "\\1" nil 0 string-match replace-match "^\\s-*[---+~!|&]+\\s-*" "" "^\\s-*{\\(.*\\)}\\s-*$" split-string match-string 1 "[{},]" verilog-read-sub-decls-expr "^\\s-*\\(\\\\[^ \n\f]+\\s-\\)" "^\\s-*\\([a-zA-Z_][a-zA-Z_0-9]*\\)" match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] "^\\s-+" "\\s-+$" "^\\s-*\\(\\[[^]]+\\]\\)" "^\\s-*\\.\\(\\(\\[[^]]+\\]\\)+\\)" "^\\s-*$" verilog-read-sub-decls-sig start verilog-auto-ignore-concat mstr mlst submoddecls par-values comment port mem multidim vec sig save-match-data-internal] 9 (#$ . 245145)]) #@144 For `verilog-read-sub-decls', read lines of port defs until none match. Inserts the list of signals found, using submodi to look up each port. (defalias 'verilog-read-sub-decls-line #[(submoddecls par-values comment) "\306\211\212\307y\210 ?\205~\310\311!\203: \307\306\224\2050 \211\203* \312\224\225#\266\202\2022 \313\224\225\"\266\202\314\225b\210\202\350 \310\315!\203i \307\306\224\205] \211\203W \312\224\225#\266\202\202_ \313\224\225\"\266\202\316P\314\225b\210\202\350 \310\317!\203\236 \320\n \f\307\306\224\205\220 \211\203\212 \312\224\225#\266\202\202\222 \313\224\225\"\266\202\321\306\211\211&\210\306\202\350 \310\322!\203\325 \320\n \f\307\306\224\205\305 \211\203\277 \312\224\225#\266\202\202\307 \313\224\225\"\266\202\316P\321\306\211\211&\210\306\202\350 \310\323!\203\344 \306\314\225b\210\202\350 \306\321\203x\310\324!\203\226\320\n \f\307\306\224\205\211\203\312\224\225#\266\202\202\313\224\225\"\266\202 \325 #\326\216\327\330\306\211 $ % & '\314 (\331' (#\203P\332&%$ $\211G\314\224&G\\^(\202. .\333\330\306\211 $ % & '\314 (\331' (#\203\207\332&%$ $\211G\314\224&G\\^(\202e .\211+\306\211\211&\210\202x\310\334!\203^\320\n \f\307\306\224\205\276\211\203\270\312\224\225#\266\202\202\300\313\224\225\"\266\202 \325 #\326\216\327\330\306\211 $ % & '\314 (\331' (#\203\372\332&%$ $\211G\314\224&G\\^(\202\330 .\333\330\306\211 $ % & '\314 (\331' (#\2031\332&%$ $\211G\314\224&G\\^(\202 .\211+\335\306\224\205T\211\203N\312\224\225#\266\202\202V\313\224\225\"\266\202\306\211&\210\202x\310\336!\203x\337\n \f\313`\340\341!\210\342\307!\210`S\"%\210\307y\210\202 +\207" [port done submoddecls par-values comment string nil 1 looking-at "\\s-*\\.\\s-*\\([a-zA-Z0-9`_$]*\\)\\s-*(\\s-*" substring-no-properties buffer-substring-no-properties 0 "\\s-*\\.\\s-*\\(\\\\[^ \n\f]*\\)\\s-*(\\s-*" " " "\\s-*\\.\\s-*\\([a-zA-Z0-9`_$]*\\)\\s-*[,)/]" verilog-read-sub-decls-sig t "\\s-*\\.\\s-*\\(\\\\[^ \n\f]*\\)\\s-*[,)/]" "\\s-*\\.[^(]*(" "\\([a-zA-Z_][a-zA-Z_0-9]*\\)\\s-*)" match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] "^\\s-+" "" string-match replace-match "\\s-+$" "\\([a-zA-Z_][a-zA-Z_0-9]*\\)\\s-*\\(\\[[^]]+\\]\\)\\s-*)" 2 "[^)]+" verilog-read-sub-decls-expr search-backward "(" verilog-forward-sexp-ign-cmt save-match-data-internal literal fixedcase to-string from-string start] 12 (#$ . 246857)]) #@112 For `verilog-read-sub-decls', read lines of UDP gate decl until none match. Inserts the list of signals found. (defalias 'verilog-read-sub-decls-gate #[(submoddecls par-values comment submod end-inst-point) "\212\306 \"A` W\205v \307\310!\203 \311\312!\210\202 \307\313!\2030 \311\314!\204 \315\316\317 `#\210\202 \307\320!\203I \321u\210\311\322!\204 \315\323\317 `#\210\202 \307\324!\203l \325\225b\210\n@\206Y \326\nA\327 \330\331\325!%\210\202 \321u\210\332\333!\210\202 *\207" [submod verilog-gate-ios iolist end-inst-point verilog-read-sub-decls-gate-ios submoddecls assoc looking-at "//" search-forward "\n" "/\\*" "*/" error "%s: Unmatched /* */, at char %d" verilog-point-text "(\\*" 1 "*)" "%s: Unmatched (* *), at char %d" "\\s-*[a-zA-Z0-9`_$({}\\\\][^,]*" 0 "input" verilog-read-sub-decls-expr "primitive_port" match-string skip-syntax-forward " " par-values comment] 7 (#$ . 249371)]) #@679 Internally parse signals going to modules under this module. Return an array of [ outputs inouts inputs ] signals for modules that are instantiated in this module. For example if declare A A (.B(SIG)) and SIG is an output, then SIG will be included in the list. This only works on instantiations created with /*AUTOINST*/ converted by \[verilog-auto-inst]. Otherwise, it would have to read in the whole component library to determine connectivity of the design. One work around for this problem is to manually create // Inputs and // Outputs comments above subcell signals, for example: module ModuleName ( // Outputs .out (out), // Inputs .in (in)); (defalias 'verilog-read-sub-decls #[nil "\212\306 \307\211\211\211\211\211\211\211 $ % &\310 \210\311&\312 ' ( )\307 **\204O \313)('#\203O \314\315\224!\203G \313\316\307\312#\210\202' \315\225\211*\203, *,\203\226\212\315\224b\210+\205f ,\205f \317 \314 \204\222\320 -\321 .-/\235 0.\322-\323R 1\307\211 2 30\203\357 \3242\307\211\211\211\211\211\211\211\211 4 5 6 7 8 9 : ; <\325<;:987654& . 3.\322-Q1\326 \210\212\327\330!\210`)$`%\330u\210\3313 1-$%\210\202\220\332-\312\"\2112\203\2202 =\333=\334\")3\307>\326 \210\212\327\330!\210`)$`%\312 ?\313\335$\312#\203/\3363 1#\210\202)%b\210\313\337$\312#\203H\3363 1#\210\2024%b\210\313\340$\312#\203`\3363 1#\210\202L%b\210\313\341$\312#\203x\3363 1#\210\202d%b\210\313\342$\312#\203\220\3363 1#\210\202|.)\202 \343\f\237!\343 \237!\343\n\237!\343 \237!\343\237! @ A : ; <\325<;:A@%.\207" [sigs-intfd sigs-intf sigs-in sigs-inout sigs-out par-values verilog-get-end-of-defun nil verilog-beg-of-defun-quick "\\(/\\*AUTOINST\\*/\\|\\.\\*\\)" t re-search-forward verilog-inside-comment-or-string-p 0 "[/\"\n]" verilog-read-inst-param-value verilog-read-inst-module verilog-read-inst-name " of " ".v" primitive vector verilog-backward-open-paren verilog-forward-sexp-ign-cmt 1 verilog-read-sub-decls-gate verilog-modi-lookup verilog-modi-cache-results verilog-read-decls "\\s *(?\\s *// Interfaced" verilog-read-sub-decls-line "\\s *(?\\s *// Interfaces" "\\s *(?\\s *// Outputs" "\\s *(?\\s *// Inouts" "\\s *(?\\s *// Inputs" verilog-signals-combine-bus end-inst-point st-point end-mod-point noerror bound regexp pt verilog-auto-inst-param-value verilog-auto-inst-param-value-type submod inst verilog-gate-keywords subprim comment submodi submoddecls interfaces gparams consts assigns modports vars in inout out modi verilog-read-sub-decls-gate-ios verilog-read-sub-decls-in-interfaced intfd intf] 11 (#$ . 250292)]) #@143 Return an array of [ pins ] for the current instantiation at point. For example if declare A A (.B(SIG)) then B will be included in the list. (defalias 'verilog-read-inst-pins #[nil "\212`\303\211\304 \210\305\306\n\307#\203- \310\311!\312 \204\n C B\313\314!\203\n \315\311!\210\202\n \316 !,\207" [pin pins end-mod-point nil verilog-backward-open-paren re-search-forward "\\.\\([^(,) \n\f]*\\)\\s-*" t match-string 1 verilog-inside-comment-or-string-p looking-at "(" verilog-forward-sexp-ign-cmt vector] 4 (#$ . 252936)]) #@76 Return an array of [ pins ] for the current argument declaration at point. (defalias 'verilog-read-arg-pins #[nil "\212`\303\211\304 \210\305\306\n\307#\203# \310\311!\312 \204\n C B\202\n \313 !,\207" [pin pins end-mod-point nil verilog-backward-open-paren re-search-forward "\\([a-zA-Z0-9$_.%`]+\\)" t match-string 1 verilog-inside-comment-or-string-p vector] 4 (#$ . 253473)]) #@79 Return a list of AUTO_CONSTANTs used in the region from BEG to END-MOD-POINT. (defalias 'verilog-read-auto-constants #[(beg end-mod-point) "\212\304\211\nb\210\305\306 \307#\203C \310\311!\204 \312\313\314 \"\210\315\316 \"\210\212\317u\210\320\321!\210\317u\210`)\305\322\307#\203 \323\321!\304\211E B\202/ +\207" [tpl-end-pt sig-list beg end-mod-point nil re-search-forward "\\<AUTO_CONSTANT" t looking-at "\\s *(" error "%s: Missing () after AUTO_CONSTANT" verilog-point-text search-forward "(" -1 verilog-forward-sexp-cmt 1 "\\s-*\\([\"a-zA-Z0-9$_.%`]+\\)\\s-*,*" match-string] 4 (#$ . 253865)]) #@34 True if any AUTO_LISP in buffer. (defvar verilog-cache-has-lisp nil (#$ . 254479)) (make-variable-buffer-local 'verilog-cache-has-lisp) #@63 Set `verilog-cache-has-lisp' if any AUTO_LISP in this buffer. (defalias 'verilog-read-auto-lisp-present #[nil "\212eb\210\301\302\303\304#\211)\207" [verilog-cache-has-lisp re-search-forward "\\<AUTO_LISP(" nil t] 4 (#$ . 254621)]) #@124 Look for and evaluate an AUTO_LISP between START and END. Must call `verilog-read-auto-lisp-present' before this function. (defalias 'verilog-read-auto-lisp #[(start end) "\205( \212 b\210\306\307\n\310#\205' \311u\210`\312\313!\210` \310 \314 \f\315#\210+\202 )\207" [verilog-cache-has-lisp start end beg-pt end-pt verilog-in-hooks re-search-forward "\\<AUTO_LISP(" t -1 verilog-forward-sexp-cmt 1 eval-region nil] 4 (#$ . 254861)]) #@230 Recursive routine for parentheses/bracket matching. EXIT-KEYWD is expression to stop at, nil if top level. RVALUE is true if at right hand side of equal. IGNORE-NEXT is true to ignore next token, fake from inside case statement. (defalias 'verilog-read-always-signals-recurse #[(exit-keywd rvalue temp-next) "\306\232\307\211\307\211 \307\211 = >\307\211 ? @\307 Am\204\257=\204\257\310\311!\2031 \312\313!\210\202\250\310\314!\203G \312\315!\204\250\316\317\320 `#\210\202\250\310\321!\203` \322u\210\312\323!\204\250\316\324\320 `#\210\202\250\325`\212\326\307w\327=\203n \322u\210`)\"\f\307\n\330\232\203\216 \331\332\307\333#\204\246\316\334\320 `#\210\202\246@\203\237 \n\335\232\203\237 \307@\202\246@\203\260 \310\336!\203\260 \333=\202\246\203\312 \n\232\203\312 \310\337!\204\312 \333=\nGu\210\202\246\n\340\232\203\343 \307A B\204\335 \333@\322u\210\202\246\n\341\232\203\374 \310\342!\203\366 \327\225b\210\202\246\322u\210\202\246\n\343\232\203K\310\337!\203\322u\210\202E\306\232\203 \307\211AB\202E\344\232\204E\345\232\204E>\203:\307A B\307>\202EB\204E\333A\307B\322u\210\202\246\n\346\232\203\225>\203c?>?JBL\210\307>B\204\211`Sf\347=\203~\350C:\"C\307:\202\211\350D:\"D\307:\307A\333B\322u\210\202\246\n\344\232\203\250\322u\210\351\343B\307#\210\202\246\n\352\232\203\272\322u\210\351\345\333\307#\210\202\246\n\353\232\203\356\322u\210 \203\312\307> \354\267\202\345\351\340\307\333#\210\351\340\333\307#\210\351\355\307\211#\210\202\246\351\355\333\307#\210\202\246\n\356\232\203\357\360!\210\351\361\307\211#\210\307A B\204\246\333@\202\246\n\362\235\203.\357\360!\210\351\306\333\307#\210\307A B\204\246\333=\202\246\363\364\n\"\203\243\n\365\235\203A\333A\202\234A\204T\nE\235\204T\363\366\n\"\203Z\307A\202\234\367\n!>\203m?>?JBL\210F\203v\370\202\200B\203\371\202\200\372?\n?\206\215\373\n?J\"?\205\225\n\307\211E>\307F\333\326\307w\210\202\246\322u\210\n\357\374!\210\202 >\205\302?>?JBL\210\307\211>.\n\207" [exit-keywd semi-rvalue keywd last-keywd sig-tolk sig-last-tolk "endcase" nil looking-at "//" search-forward "\n" "/\\*" "*/" error "%s: Unmatched /* */, at char %d" verilog-point-text "(\\*" 1 "*)" "%s: Unmatched (* *), at char %d" buffer-substring-no-properties "a-zA-Z0-9$_.%`" 0 "\"" re-search-forward "[^\\]\"" t "%s: Unmatched quotes, at char %d" "else" "[^ \n\f]" "::" ";" "'" "'[sS]?[hdxboHDXBO]?[ ]*[0-9a-fA-F_xzXZ?]+" ":" "?" "]" "=" 60 append verilog-read-always-signals-recurse "[" "(" #s(hash-table size 1 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ("for" 464)) ")" "begin" skip-syntax-forward "w_" "end" ("case" "casex" "casez" "randcase") string-match "^[$`a-zA-Z_]" ("`ifdef" "`ifndef" "`elsif") "^\\$" verilog-symbol-detick-denumber sigs-temp sigs-in sigs-out-unk assoc " " gotend got-sig got-list end-else-check ignore-next rvalue sigs-out-d sigs-out-i verilog-keywords temp-next] 5 (#$ . 255305)]) #@72 Parse always block at point and return list of (outputs inout inputs). (defalias 'verilog-read-always-signals #[nil "\212\306\211\306\211\306 \307\306\211\211#\210\310 \n\"\306 \f \n \f\311\f \n $.\n\207" [sigs-out-d sigs-out-i sigs-out-unk sigs-temp sigs-in inputs nil verilog-read-always-signals-recurse append vector temps outputs-imm outputs-del] 6 (#$ . 258336)]) #@69 Parse module at point and return list of ( ( file instance ) ... ). (defalias 'verilog-read-instants #[nil "\306 \210\307 \310\211\212`W\203P \311`\312\313\310%\211@\312V\204& \314 8\203, \315y\210\202 \316 \210\317\320!\203J \321\315!\321\322!\211 \235\204I \f D\nB*\315y\210\202 )\n+\207" [end-mod-point state instants-list instant module verilog-keywords verilog-beg-of-defun-quick verilog-get-end-of-defun nil parse-partial-sexp 0 t 5 1 beginning-of-line looking-at "^\\s-*\\([a-zA-Z0-9`_$]+\\)\\s-+\\([a-zA-Z0-9`_$]+\\)\\s-*(" match-string 2] 7 (#$ . 258725)]) #@118 With point in middle of an AUTO_TEMPLATE, parse it. Returns REGEXP and list of ( (signal_name connection_name)... ). (defalias 'verilog-read-auto-template-middle #[nil "\212\306\307\310\311\211\211\211 *\312\313!\203 \314\315!*\310\225b\210\316\317!\210+\204- ,\203T \212` -eb\210\316\320-\321#\203C \fT\2024 `-W\203S \315y\210 T\202C *\212\307u\210\322\315!\210\307u\210`)` W\203\203\312\323!\203\271 \315\311\224\205\213 \211\203\205 \324\224\225#\266\202\202\215 \325\224\225\"\266\202\326\311\224\205\252 \211\203\244 \324\224\225#\266\202\202\254 \325\224\225\"\266\202\f F B\310\225b\210\202b \312\327!\203-\330\311\224\205\334 \211\203\326 \324\224\225#\266\202\202\336 \325\224\225\"\266\202\310\225b\210\331\332\333\311\211\314\315! . / 0 1 2\310 3\3342.3#\203 \33510/.$\211.G\310\2241G\\^3\202\370 ..\336Q\f F\nB\202b \312\337!\203:\310\225b\210\202b \312\340!\203J T\310\225b\210\202b \312\341!\203Z\316\340!\210 T\202b \312\342!\203s\326u\210\316\343!\204b \344\345\346 `#\210\202b \344\347\346 \312\350!\210\314\310!#\210\202b \351* \nD\".\207" [rep tpl-end-pt tpl-wild-list tpl-sig-list templateno lineno "\\([0-9]+\\)" -1 0 nil looking-at "\\s-*\"\\([^\"]*\\)\"" match-string 1 search-forward "(" "AUTO_TEMPLATE" t verilog-forward-sexp-cmt "\\s-*\\.\\([a-zA-Z0-9`_$]+\\)\\s-*(\\(.*\\))\\s-*\\(,\\|)\\s-*;\\)" substring-no-properties buffer-substring-no-properties 2 "\\s-*\\.\\(\\([a-zA-Z0-9`_$+@^.*?|---]\\|[][]\\|\\\\[()|]\\)+\\)\\s-*(\\(.*\\))\\s-*\\(,\\|)\\s-*;\\)" 3 "^" "@" "\\\\([0-9]+\\\\)" string-match replace-match "$" "[ \f]+" "\n" "//" "/\\*" "*/" error "%s: Unmatched /* */, at char %d" verilog-point-text "%s: AUTO_TEMPLATE parsing error: %s" ".*$" vector tpl-regexp verilog-auto-inst-template-numbers verilog-auto-template-warn-unused pre-pt string literal fixedcase to-string from-string start] 7 (#$ . 259309)]) #@134 Look for an auto_template for the instantiation of the given MODULE. If found returns `verilog-read-auto-template-inside' structure. (defalias 'verilog-read-auto-template #[(module) "\212`\306\307 \310Q\311\312 \311 \204@ \313 \n#\203@ \212\311\210\314\f\315 \n#)\316\224`X\2039 \316\225`Y\204 \311\211\203 \203I b\210-\204\236 b\210\306\307 \310Q\311\312 \311 \204\217 \317 \n#\203\217 \212\320 \210\321\f\322 \n#)\316\224`X\203\210 \316\225`Y\204` \311\211\203e \203\230 b\210-\203\247 \316\225b\210\323 \202\253 \324\325\311\"*\207" [pt module noerror bound regexp substr "AUTO_TEMPLATE" "^\\s-*/?\\*?\\s-*" "\\s-+AUTO_TEMPLATE" nil t search-backward re-search-backward line-beginning-position 0 search-forward beginning-of-line re-search-forward line-end-position verilog-read-auto-template-middle vector "" done] 4 (#$ . 261222)]) #@59 Successful lookups with `verilog-read-auto-template-hit'. (defvar verilog-auto-template-hits nil (#$ . 262103)) (make-variable-buffer-local 'verilog-auto-template-hits) #@42 Initialize `verilog-read-auto-template'. (defalias 'verilog-read-auto-template-init #[nil "\205\f \302\303\304\305\306$\211\207" [verilog-auto-template-warn-unused verilog-auto-template-hits make-hash-table :test equal :rehash-size 4.0] 5 (#$ . 262278)]) #@74 Record that TPL-ASS template from `verilog-read-auto-template' was used. (defalias 'verilog-read-auto-template-hit #[(tpl-ass) "\205 \204 \303 \210\304\305\306\n8\307\n8\"\310 #\207" [verilog-auto-template-warn-unused verilog-auto-template-hits tpl-ass verilog-read-auto-template-init puthash vector 2 3 t] 5 (#$ . 262541)]) #@130 Set the definition DEFNAME to the DEFVALUE in the given BUFFER. Optionally associate it with the specified enumeration ENUMNAME. (defalias 'verilog-set-define #[(defname defvalue &optional buffer enumname) "r\206 pq\210\306\307 P!\310\n! \311\232\203 \312\202 L\210)\f\205: \306\313\fP! \314 !\2043 \315L\210\316\310 ! \"))\207" [buffer defname mac defvalue enumname enumvar intern "vh-" make-local-variable "" "1" "venum-" boundp nil add-to-list] 3 (#$ . 262877)]) #@1932 Read \=`defines and parameters for the current file, or optional FILENAME. If the filename is provided, `verilog-library-flags' will be used to resolve it. If optional RECURSE is non-nil, recurse through \=`includes. Localparams must be simple assignments to constants, or have their own "localparam" label rather than a list of localparams. Thus: localparam X = 5, Y = 10; // Ok localparam X = {1\='b1, 2\='h2}; // Ok localparam X = {1\='b1, 2\='h2}, Y = 10; // Bad, make into 2 localparam lines Defines must be simple text substitutions, one on a line, starting at the beginning of the line. Any ifdefs or multiline comments around the define are ignored. Defines are stored inside Emacs variables using the name vh-{definename}. Localparams define what symbols are constants so that AUTOSENSE will not include them in sensitivity lists. However any parameters in the include file are not considered ports in the including file, thus will not appear in AUTOINSTPARAM lists for a parent module.. The file variables feature can be used to set defines that `verilog-mode' can see; put at the *END* of your file something like: // Local Variables: // vh-macro:"macro_definition" // End: If macros are defined earlier in the same file and you want their values, you can read them automatically with: // Local Variables: // verilog-auto-read-includes:t // End: Or a more specific alternative example, which requires having `enable-local-eval' non-nil: // Local Variables: // eval:(verilog-read-defines) // eval:(verilog-read-defines "group_standard_includes.v") // End: Note these are only read when the file is first visited, you must use \[find-alternate-file] RET to have these take effect after editing them! If you want to disable the "Process `eval' or hook local variables" warning message, you need to add to your init file: (setq enable-local-eval t) (defalias 'verilog-read-defines #[(&optional filename recurse subcall) "p\212 \204\n \306 \210\n\203) \307\n\310 \"\211\203! \311 @!q\210\202( \312\313\314 \n#\210)\f\203\236 eb\210\315\316\317\320#\203\236 \321\322\317\211\323\317\224\205Y \211\203S \324\224\225#\266\202\202[ \325\224\225\"\266\202 % & ' (\326 )\327( )#\203\211 \330'&% $\211G\326\224'G\\^)\202g . *\331 \204\232 \332*\f\320#\210)\2020 eb\210\315\333\317\320#\2037\323\317\224\205\306 \211\203\300 \324\224\225#\266\202\202\310 \325\224\225\"\266\202\334\317\224\205\345 \211\203\337 \324\224\225#\266\202\202\347 \325\224\225\"\266\202 + ,\331\326\224!\2043\335\322\317\211+ % & ' (\326 )\327( )#\203&\330'&% $\211G\326\224'G\\^)\202 .+\336,+#\210*\202\241 eb\210\315\337\317\320#\205\320\317 -\340\341!\203l\334\317\224\205h\211\203b\324\224\225#\266\202\202j\325\224\225\"\266\202-\342\343!\210\340\344!\203\314\331\326\224!\204\301\336\323\317\224\205\233\211\203\225\324\224\225#\266\202\202\235\325\224\225\"\266\202\334\317\224\205\272\211\203\264\324\224\225#\266\202\202\274\325\224\225\"\266\202-$\210\326\225b\210\342\343!\210\202p)\202:*\207" [origbuf subcall filename fns recurse string verilog-getopt-flags verilog-library-filenames buffer-file-name find-file-noselect error "%s: Can't find verilog-read-defines file: %s" verilog-point-text re-search-forward "^\\s-*`include\\s-+\\([^ \n\f]+\\)" nil t "\"" "" 1 substring-no-properties buffer-substring-no-properties 0 string-match replace-match verilog-inside-comment-or-string-p verilog-read-defines "^\\s-*`define\\s-+\\([a-zA-Z0-9_$]+\\)\\s-+\\(.*\\)$" 2 "\\s-*/[/*].*$" verilog-set-define "^\\s-*\\(parameter\\|localparam\\)\\(\\s-*\\[[^]]*\\]\\)?\\s-*" looking-at "[^\n]*\\(auto\\|synopsys\\)\\s +enum\\s +\\([a-zA-Z0-9_]+\\)" forward-comment 99999 "\\s-*,?\\s-*\\(?:/[/*].*?$\\)?\\s-*\\([a-zA-Z0-9_$]+\\)\\s-*=\\s-*\\([^;,]*\\),?\\s-*\\(/[/*].*?$\\)?\\s-*" literal fixedcase to-string from-string start inc defvalue defname enumname] 11 (#$ . 263358)]) #@1207 Read \=`includes for the current file. This will find all of the \=`includes which are at the beginning of lines, ignoring any ifdefs or multiline comments around them. `verilog-read-defines' is then performed on the current and each included file. It is often useful put at the *END* of your file something like: // Local Variables: // verilog-auto-read-includes:t // End: Or the equivalent longer version, which requires having `enable-local-eval' non-nil: // Local Variables: // eval:(verilog-read-defines) // eval:(verilog-read-includes) // End: Note includes are only read when the file is first visited, you must use \[find-alternate-file] RET to have these take effect after editing them! It is good to get in the habit of including all needed files in each .v file that needs it, rather than waiting for compile time. This will aid this process, Verilint, and readability. To prevent defining the same variable over and over when many modules are compiled together, put a test around the inside each include file: foo.v (an include file): \=`ifdef _FOO_V // include if not already included \=`else \=`define _FOO_V ... contents of file \=`endif // _FOO_V (defalias 'verilog-read-includes #[nil "\212\306 \210eb\210\307\310\311\312#\205H \313\314\311\211\315\316! \317 \320\f #\2038 \321 \n $\211G\317\224 G\\^\202 . \322\311\312#\210)\202 )\207" [string literal fixedcase to-string from-string start verilog-getopt-flags re-search-forward "^\\s-*`include\\s-+\\([^ \n\f]+\\)" nil t "\"" "" match-string 1 0 string-match replace-match verilog-read-defines inc] 6 (#$ . 267379)]) #@203 Return a simple list of all possible signals in the file. Bounded by optional region from START to END. Overly aggressive but fast. Some macros and such are also found and included. For dinotrace.el. (defalias 'verilog-read-signals #[(&optional start end) "\305\211\n\206 eb\210 \206 d\306\307 \310#\203\231 \311u\210\312\313!\203) \314\315!\210\202 \312\316!\2036 \314\317!\210\202 \312\320!\203I \312\321!\204 \314\322!\210\202 g\323=\203V \306\324!\210\202 \312\325!\203\223 \326\225b\210\327\305\224\205} \211\203w \330\224\225#\266\202\202 \331\224\225\"\266\202\211\f\235\204 \235\204 B\202 \327u\210\202 *\207" [keywd sigs-all start end verilog-keywords nil re-search-forward "[\"/a-zA-Z_.%`]" t -1 looking-at "//" search-forward "\n" "/\\*" "*/" "(\\*" "(\\*\\s-*)" "*)" 34 "[^\\]\"" "\\s-*\\([a-zA-Z0-9$_.%`]+\\)" 0 1 substring-no-properties buffer-substring-no-properties] 7 (#$ . 269031)]) #@99 Parse -f, -v etc arguments in ARGLIST list or string. Use DEFAULT-DIR to anchor paths if non-nil. (defalias 'verilog-getopt #[(arglist &optional default-dir) "<\204 C\305\211\211\203K @A\306\307\n\"\203 \310 \311\n\224\205> \211\2038 \312\224\225#\266\202\202@ \313\224\225\"\266\202C\"\314\315\n\"\202 \205Y @ A\n\316\232\203` \n\202K \n\317\232\203k \n\202K \n\320\232\203v \n\202K \n\321\232\203\201 \n\202K \306\322\n\"\203\244 \314\311\n\"\306\323\n\"\203K \324\325\314\311\n\"\"\210\314\315\n\"\202\215 \306\326\n\"\204\300 \306\327\n\"\204\300 \306\330\n\"\204\300 \306\331\n\"\203\316 \332\314\311\n\"\314\315\n\"\"\210\202K \306\333\n\"\204\334 \306\334\n\"\203\351 \324\335\336\314\311\n\"!\"\210\202K \n\337\232\204K \306\340\n\"\204K \316\232\203\305\341\342\n\f\"\343\342\n\f\"!\"\210\202K \317\232\203!\305\341\342\n\f\"\305\"\210\202K \320\232\2034\305\324\344\342\n\f\"\"\210\202K \321\232\203G\305\324\335\342\n\f\"\"\210\202K \306\345\n\"\203K \324\344\342\n\f\"\"\210\202K +\207" [arglist next-param arg space-args default-dir nil string-match "^\\([^ \n\f]+\\)[ \n\f]*\\(.*$\\)" append 1 substring-no-properties buffer-substring-no-properties match-string 2 "-F" "-f" "-v" "-y" "^\\+libext\\+\\(.*\\)" "\\([^+]+\\)\\+?\\(.*\\)" verilog-add-list-unique verilog-library-extensions "^-D\\([^+=]*\\)[+=]\\(.*\\)" "^-D\\([^+=]*\\)\\(\\)" "^\\+define\\([^+=]*\\)[+=]\\(.*\\)" "^\\+define\\([^+=]*\\)\\(\\)" verilog-set-define "^\\+incdir\\+\\(.*\\)" "^-I\\(.*\\)" verilog-library-directories substitute-in-file-name "+librescan" "^-U\\(.*\\)" verilog-getopt-file verilog-substitute-file-name-path file-name-directory verilog-library-files "^[^-+]"] 8 (#$ . 269968)]) #@95 Read Verilog options from the specified FILENAME. Use DEFAULT-DIR to anchor paths if non-nil. (defalias 'verilog-getopt-file #[(filename &optional default-dir) "\212\305\306 \"p\307\211\203 \310 @!q\210\202 \311\312\313 #\210eb\210m?\205I `\314 {\315y\210\316\317 \"\203< \320\211\224Or\nq\210\321 \f\"\210)\202\" ,\207" [filename line orig-buffer fns default-dir verilog-library-filenames buffer-file-name nil find-file-noselect error "%s: Can't find verilog-getopt-file -f file: %s" verilog-point-text line-end-position 1 string-match "//" 0 verilog-getopt] 5 (#$ . 271702)]) #@66 Convert `verilog-library-flags' into standard library variables. (defalias 'verilog-getopt-flags #[nil "\302\301p\"\203\f \303\304\305\"\210\306\307\310!\210)\311 !\210\306\307\312!)\207" [verilog-in-hooks verilog-library-flags local-variable-p mapc make-local-variable (verilog-library-extensions verilog-library-directories verilog-library-files verilog-library-flags) t run-hooks verilog-before-getopt-flags-hook verilog-getopt verilog-getopt-flags-hook] 3 (#$ . 272296)]) #@101 Return FILENAME with environment variables substituted. Use DEFAULT-DIR to anchor paths if non-nil. (defalias 'verilog-substitute-file-name-path #[(filename default-dir) "\203 \302\303 !\"\207\303 !\207" [default-dir filename expand-file-name substitute-in-file-name] 3 (#$ . 272781)]) #@95 Append to VARREF list the given OBJECT, unless it is already a member of the variable's list. (defalias 'verilog-add-list-unique #[(varref object) " J\235\204 \302 JC\"L\210 \207" [object varref append] 4 (#$ . 273076)]) #@120 Convert `verilog-library-flags' and similar variables to command line. Used for __FLAGS__ in `verilog-expand-command'. (defalias 'verilog-current-flags #[nil "\305\306\307#\211\310\232\203 \311\305\306\n\312#\305\313 \310#\305\314\f\310#R )\207" [verilog-library-flags cmd verilog-library-extensions verilog-library-directories verilog-library-files mapconcat concat " " "" "+libext+" "+" #[(i) "\301\302R\207" [i " -y " " +incdir+"] 4] #[(i) "\301P\207" [i " -v "] 2]] 8 (#$ . 273308)]) #@131 If true, the directory cache is enabled, and file system changes are ignored. See `verilog-dir-exists-p' and `verilog-dir-files'. (defvar verilog-dir-cache-preserving nil (#$ . 273810)) #@72 Alist of (((Cwd Dirname) Results)...) for caching `verilog-dir-files'. (defvar verilog-dir-cache-list nil (#$ . 274002)) #@46 Cached data for `verilog-library-filenames'. (defvar verilog-dir-cache-lib-filenames nil (#$ . 274129)) #@203 Execute the BODY forms, allowing directory cache preservation within BODY. This means that changes inside BODY made to the file system will not be seen by the `verilog-dir-files' and related functions. (defalias 'verilog-preserve-dir-cache '(macro . #[(&rest body) "\301\302\303BE\207" [body let ((verilog-dir-cache-preserving (current-buffer)) verilog-dir-cache-list verilog-dir-cache-lib-filenames) progn] 4 (#$ . 274240)])) #@157 Return all filenames in the DIRNAME directory. Relative paths depend on the `default-directory'. Results are cached if inside `verilog-preserve-dir-cache'. (defalias 'verilog-dir-files #[(dirname) "\204 \306\n D \307\f \" \306\211 \f \203 A@\202= \310\n! \311 !\2052 \312 \306\211\211$\f\f\fD B\f,\207" [verilog-dir-cache-preserving verilog-dir-cache-list dirname default-directory cache-key fass nil assoc expand-file-name file-directory-p directory-files exp-dirname data] 6 (#$ . 274675)]) #@117 Return true if FILENAME exists. Like `file-exists-p' but results are cached if inside `verilog-preserve-dir-cache'. (defalias 'verilog-dir-file-exists-p #[(filename) "\305!\211\203 \232\203 \n\202 \306 !\211 \205% \307!\f\235\205% \310+\207" [filename dirname default-directory dirnamed flist file-name-directory verilog-dir-files file-name-nondirectory t] 3 (#$ . 275189)]) #@120 Return modi if MODULE is specified inside FILENAME, else nil. Allows version control to check out the file if need be. (defalias 'verilog-module-inside-filename-p #[(module filename) "\306!\204 \307\310!\205\320 \310!\205\320 \311\211r\312!q\210\212eb\210\313\311\314 \311 \204N \315 \f #\203N \316\317\224!\203F \315\320\311\314#\210\202) \317\225\211\203. ,\203\316 \317\311\224\205q \211\203k \321\224\225#\266\202\202s \322\224\225\"\266\202\211\203\316 \323\311\314 \311 \204\246 \315 \f #\203\246 \316\317\224!\203\236 \315\320\311\314#\210\202\201 \317\225\211\203\206 ,\203\316 \324 \232\203 ` \325 $,\202 \n,\207" [filename type modi noerror bound regexp file-exists-p fboundp vc-backend nil find-file-noselect "\\<\\(module\\|interface\\|program\\)\\>" t re-search-forward verilog-inside-comment-or-string-p 0 "[/\"\n]" substring-no-properties buffer-substring-no-properties "[(;]" verilog-read-module-name vector pt module fob name] 6 (#$ . 275581)]) #@39 Return true if SYMBOL is number-like. (defalias 'verilog-is-number #[(symbol) "\301\302\"\206 \301\303\"\206 \301\304\"\207" [symbol string-match "^[0-9 :]+$" "^[---]*[0-9]+$" "^[0-9 ]+'s?[hdxbo][0-9a-fA-F_xz? ]*$"] 3 (#$ . 276601)]) #@186 Return an expanded SYMBOL name without any defines. If the variable vh-{symbol} is defined, return that value. If undefined, and WING-IT, return just SYMBOL without the tick, else nil. (defalias 'verilog-symbol-detick #[(symbol wing-it) "\203? \303\304\"\203? \305\306O\307\310\311P!!\2035 \312\310\311P!!\211\306=\2030 \n\2051 \2021 )\202: \n\205: \211\204 \207" [symbol val wing-it string-match "^`" 1 nil boundp intern "vh-" eval] 5 (#$ . 276850)]) #@70 Return SYMBOL with defines converted and any numbers dropped to nil. (defalias 'verilog-symbol-detick-denumber #[(symbol) "\306\307\"\203F \310\311\312\211\313\312\"\206 \203 \314\202 \315 \306\n#\203B \316 \f \n$\211G\315\224 G\\^\202$ \n.\317!?\205N \207" [symbol verilog-auto-sense-defines-constant string literal fixedcase to-string string-match "^`" "\\[[^0-9: ]+\\]" "" nil verilog-symbol-detick "0" 0 replace-match verilog-is-number from-string start] 7 (#$ . 277321)]) #@103 Return TEXT without any known defines. If the variable vh-{symbol} is defined, substitute that value. (defalias 'verilog-symbol-detick-text #[(text) "\304\305\211\n\203< \306\307 \"\203< \310\311 \"\312\313\314 P!!\2036 \315\313\314 P!!\211\2036 \316\305\211 $\202 \305\211\204\n + \207" [val symbol ok text t nil string-match "`\\([a-zA-Z0-9_]+\\)" match-string 1 boundp intern "vh-" eval replace-match] 6 (#$ . 277831)]) #@145 Return a list of existing directories given a list of wildcarded DIRNAMES. Or, just the existing dirnames themselves if there are no wildcards. (defalias 'verilog-expand-dirnames #[(&optional dirnames) "\204 \306\307!\210\310 \311\216\312!\313\211\211\211\211\211\211\211\211 ! \" # $\314\315\"\203 @ A\316\317 \"\203\320\321 \"\320\322 \"\320\323 \"\f#\324\325\313\211# % & ' ( )\326 *\316)%*#\203\215 \327('&%$\211%G\326\224(G\\^*\202h %.#\330\331\313\211# % & ' ( )\326 *\316)%*#\203\313 \327('&%$\211%G\326\224(G\\^*\202\246 %.#\332#\333Q#\334 !!!\203- !@\335 \n Q!\"!A!\316#\n\"\203\335 \n\331\232\204\335 \n\336\232\204\335 \"B\202\335 \337 !\203- $B$\202- $. \207" [dirnames save-match-data-internal basefile rest filename root error "`verilog-library-directories' should include at least `.'" match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] reverse nil mapcar substitute-in-file-name string-match "^\\(\\|[/\\]*[^*?]*[/\\]\\)\\([^/\\]*[*?][^/\\]*\\)\\(.*\\)" match-string 1 2 3 "[*]" ".+" 0 replace-match "[?]" "." "^" "$" verilog-dir-files expand-file-name ".." file-directory-p dirname dirfiles dirfile pattern dirlist string literal fixedcase to-string from-string start] 9 (#$ . 278270) nil]) #@295 Return a search path to find the given FILENAME or module name. Uses the optional CURRENT filename or variable `buffer-file-name', plus `verilog-library-directories' and `verilog-library-extensions' variables to build the path. With optional CHECK-EXT also check `verilog-library-extensions'. (defalias 'verilog-library-filenames #[(filename &optional current check-ext) "\204 \306 \204 \307 \fE \310 \n\" \307\211 \307\211 \307 \2033 A@\202\225 \311!\211\203\207 \312@\313!\"\f\203P \202Q \314\211\203~ \312 @P\"\315!\203u \312\313!\"BA\211\204W A\211\204= \237 D\nB.\207" [current verilog-dir-cache-preserving verilog-dir-cache-lib-filenames filename check-ext cache-key buffer-file-name nil assoc verilog-expand-dirnames expand-file-name file-name-directory ("") verilog-dir-file-exists-p fass chkdirs chkdir chkexts fn outlist verilog-library-directories verilog-library-extensions] 5 (#$ . 279600)]) #@197 Return a search path to find the given MODULE name. Uses the CURRENT filename, `verilog-library-extensions', `verilog-library-directories' and `verilog-library-files' variables to build the path. (defalias 'verilog-module-filenames #[(module current) "\303C\304 \305#\306\307\n\"#\207" [current module verilog-library-files append verilog-library-filenames t mapcar #[(fname) "\302!\203\f \303 !P\207\207" [fname current file-name-absolute-p file-remote-p] 2]] 6 (#$ . 280578)]) #@89 Non-nil enables caching of signals, etc. Set to nil for debugging to make things SLOW! (defvar verilog-cache-enabled t (#$ . 281068)) #@126 Cache of ((Module Function) Buf-Tick Buf-Modtime Func-Returns)... For speeding up verilog-modi-get-* commands. Buffer-local. (defvar verilog-modi-cache-list nil (#$ . 281210)) (make-variable-buffer-local 'verilog-modi-cache-list) #@113 Modification tick after which the cache is still considered valid. Use `verilog-preserve-modi-cache' to set it. (defvar verilog-modi-cache-preserve-tick nil (#$ . 281447)) #@113 Modification tick after which the cache is still considered valid. Use `verilog-preserve-modi-cache' to set it. (defvar verilog-modi-cache-preserve-buffer nil (#$ . 281626)) #@67 Non-nil means allow caching `verilog-modi-current', set by let(). (defvar verilog-modi-cache-current-enable nil (#$ . 281806)) #@64 Currently active `verilog-modi-current', if any, set by let(). (defvar verilog-modi-cache-current nil (#$ . 281939)) #@67 Current endmodule point for `verilog-modi-cache-current', if any. (defvar verilog-modi-cache-current-max nil (#$ . 282062)) #@79 Return the modi structure for the module currently at point, possibly cached. (defalias 'verilog-modi-current #[nil "\203 `\211\306H)Y\203 `\nX\203 \207 \203W \307 \212\f\310\211 \310 \204Q \311 #\203Q \312\313\224!\203I \311\314\310\315#\210\202* \313\225\211\203/ -\207\307 \207" [verilog-modi-cache-current modi verilog-modi-cache-current-max verilog-modi-cache-current-enable verilog-end-defun-re noerror 2 verilog-modi-current-get nil re-search-forward verilog-inside-comment-or-string-p 0 "[/\"\n]" t bound regexp pt] 5 (#$ . 282192)]) #@62 Return the modi structure for the module currently at point. (defalias 'verilog-modi-current-get #[nil "\306\211\306\212 \306\211 \306\n\2044 \307 \f#\2034 \310\311\224!\203- \307\312\306\313#\210\202 \311\224\211\203 \n,\210\311\306\224\205T \211\203N \314\224\225#\266\202\202V \315\224\225\"\266\202\316\306\211 \306\n\204\204 \317 \f#\203\204 \310\311\224!\203} \317\320\306\313#\210\202` \311\225\211\203d \n,\210\321 `)\322 \206\224 p\n \323\n $.\207" [name type pt verilog-defun-re noerror bound nil re-search-backward verilog-inside-comment-or-string-p 0 "[/\"]" t substring-no-properties buffer-substring-no-properties "(" re-search-forward "[/\"\n]" verilog-read-module-name buffer-file-name vector regexp fob] 7 (#$ . 282765)]) #@28 Hash of (modulename modi). (defvar verilog-modi-lookup-cache nil (#$ . 283548)) (make-variable-buffer-local 'verilog-modi-lookup-cache) #@43 Cache of `current-buffer' at last lookup. (defvar verilog-modi-lookup-last-current nil (#$ . 283690)) #@55 Cache of `buffer-chars-modified-tick' at last lookup. (defvar verilog-modi-lookup-last-tick nil (#$ . 283798)) #@197 Find the file and point at which MODULE is defined. If ALLOW-CACHE is set, check and remember cache of previous lookups. Return modi if successful, else print message unless IGNORE-ERROR is true. (defalias 'verilog-modi-lookup #[(module allow-cache &optional ignore-error) "\306 \206 p\307\n\203= \203= \f\203= \310 \n\"\211\203= \232\203= \311 \232\2048 \211\312H)\232\204= \210\202\263 \313 \314\" \315 \"\211 ! \"\307 #\"\203p #\204p \316 \"@\"\211#\204P \"A\211\"\204U ##\204\232 $\204\232 \317\320\321 \211 \232\204\221 \322 \323Q\202\222 \324\325\326!\327#%\210\n\204\245 \330\331\332\333\334$\335 \n#\210 \311 , *\207" [current modi verilog-modi-lookup-cache verilog-cache-enabled allow-cache module buffer-file-name nil gethash buffer-chars-modified-tick 1 verilog-symbol-detick t verilog-module-filenames verilog-module-inside-filename-p error "%s: Can't locate `%s' module definition%s\n Check the verilog-library-directories variable.\n I looked in (if not listed, doesn't exist):\n %s" verilog-point-text " (Expanded macro to " ")" "" mapconcat concat "\n " make-hash-table :test equal :rehash-size 4.0 puthash verilog-modi-lookup-last-current verilog-modi-lookup-last-tick realname orig-filenames filenames mif ignore-error] 10 (#$ . 283916)]) #@63 Filename of MODI, or name of buffer if it's never been saved. (defalias 'verilog-modi-filename #[(modi) "\301\211\302H)!\203 \303\211\302H)!\206% \304\211\302H)!\207\211\302H)\207" [modi bufferp 1 buffer-file-name buffer-name] 4 (#$ . 285223)]) #@38 Move point/buffer to specified MODI. (defalias 'verilog-modi-goto #[(modi) "\204 \302\303!\210\304\211\305H)!\203 \211\305H)\202$ \306\211\305H)!q\210 \307\232\204/ \307 \210\211\310H)b\207" [modi major-mode error "Passed unfound modi to goto, check earlier" bufferp 1 find-file-noselect verilog-mode 2] 4 (#$ . 285483)]) #@60 Move point to the file at which a given MODULE is defined. (defalias 'verilog-goto-defun-file #[(module) "\302\303\"\211\205 \304 !\210\305p!)\207" [module modi verilog-modi-lookup nil verilog-modi-goto switch-to-buffer] 4 (#$ . 285822) "sGoto File for Module: "]) #@129 Run on MODI the given FUNCTION. Locate the module in a file. Cache the output of function so next call may have faster access. (defalias 'verilog-modi-cache-results #[(modi function) "\306\212\307 !\210\310 \nD \"\211\203? \f\203; \311 A@\232\2042 \203; A@X\203; p\232\203; \312 \3138\232\204? \306\211\203I \3148\202\237 \203S \n \202\215 \315 \316\317!\210)deZ \320\321!\205p \205p \321\322!\210\315 \323\324ed#\210\325\216\315\211 \315 \306\211 \n . \nD\311 \312 F B )*\207" [fass modi function verilog-modi-cache-list verilog-cache-enabled verilog-modi-cache-preserve-tick nil verilog-modi-goto assoc buffer-chars-modified-tick visited-file-modtime 2 3 t run-hooks verilog-before-save-font-hook boundp font-lock-mode 0 run-hook-with-args before-change-functions #[nil "\303\304ed$\210 \203 \305\306!\210\306\307\310!)\207" [verilog-save-font-mod-hooked fontlocked verilog-in-hooks run-hook-with-args after-change-functions font-lock-mode t run-hooks verilog-after-save-font-hook] 5] verilog-modi-cache-preserve-buffer verilog-save-font-mod-hooked verilog-in-hooks fontlocked inhibit-point-motion-hooks inhibit-modification-hooks verilog-no-change-functions after-change-functions func-returns] 5 (#$ . 286097)]) #@182 Add function return results to the module cache. Update MODI's cache for given FUNCTION so that the return ELEMENT of that function now contains the additional SIG-LIST parameters. (defalias 'verilog-modi-cache-add #[(modi function element sig-list) "\306\212\307 !\210\310 \nD \"\211\205! \3118\211 \312 \f H\"I)*\207" [fass modi function verilog-modi-cache-list func-returns element nil verilog-modi-goto assoc 3 append sig-list] 7 (#$ . 287358)]) #@380 Execute the BODY forms, allowing cache preservation within BODY. This means that changes to the buffer will not result in the cache being flushed. If the changes affect the modsig state, they must call the modsig-cache-add-* function, else the results of later calls may be incorrect. Without this, changes are assumed to be adding/removing signals and invalidating the cache. (defalias 'verilog-preserve-modi-cache '(macro . #[(&rest body) "\301\302\303BE\207" [body let ((verilog-modi-cache-preserve-tick (buffer-chars-modified-tick)) (verilog-modi-cache-preserve-buffer (current-buffer))) progn] 4 (#$ . 287820)])) #@118 Given a MODI, return the declarations related to the given modport NAME. Report errors unless optional IGNORE-ERROR. (defalias 'verilog-modi-modport-lookup-one #[(modi name &optional ignore-error) "\306\307\"\310\n\311\n\312\")\211\313H)\"\211 \2042 \2042 \314\315\316 \211 \232\204/ \317 \320Q\2020 \321$\210\f \322 8)\f\211 A@)\211 \203\317 \323\n @ # \211 \204] \202\304 \204g \202\304 \324\325 \326H \326H\"\325 \327H \327H\"\325 \322H \322H\"\325 \330H \330H\"\325 \313H \313H\"\325 \331H \331H\"\325 \332H \332H\"\325 \333H \333H\"\325 \334H \334H\"& * A\211 \204H ,\207" [name realname modi decls modport ignore-error verilog-symbol-detick t assoc verilog-modi-cache-results verilog-read-decls 4 error "%s: Can't locate `%s' modport definition%s" verilog-point-text " (Expanded macro to " ")" "" 2 verilog-modi-modport-lookup-one vector append 0 1 3 5 6 7 8 sig clks b a] 14 (#$ . 288448)]) #@185 Given a MODI, return the declarations related to the given modport NAME-RE. If the modport points to any clocking blocks, expand the signals to include those clocking block's signals. (defalias 'verilog-modi-modport-lookup #[(modi name-re &optional ignore-error) "\306\307\")\211\211\310H)\311\f\312Q \313\211\211\211\211\211\211\211\211 \314 & . \203\340 \315\f @\211 @)\"\203\331 \n\316 @\211 @)!# \"\211 #\204p \"\202\327 \"\204z #\202\327 \314\317#\320H\"\320H\"\317#\321H\"\321H\"\317#\322H\"\322H\"\317#\323H\"\323H\"\317#\310H\"\310H\"\317#\324H\"\324H\"\317#\325H\"\325H\"\317#\326H\"\326H\"\317#\327H\"\327H\"& * A\211\204I \n,\207" [modi mod-decls decls clks name-re interfaces verilog-modi-cache-results verilog-read-decls 4 "^" "$" nil vector string-match verilog-modi-modport-lookup-one append 0 1 2 3 5 6 7 8 gparams consts assigns modports vars in inout out sig ignore-error b a] 14 (#$ . 289397)]) #@56 Return all signals in IN-LIST matching the given ENUM. (defalias 'verilog-signals-matching-enum #[(in-list enum) "\306 \203 @\307\n8) \232\203 @B A\211\204 \310\311 P! \312\f!\205- \313\f!\211 \203O @C\211 \f\235\203B \210\202G \fB) A\211\2042 *\237)\207" [out-list in-list sig enum enumvar enumlist nil 4 intern "venum-" boundp eval #1=#:x] 4 (#$ . 290384)]) #@70 Return all signals in IN-LIST matching the given REGEXP, if non-nil. (defalias 'verilog-signals-matching-regexp #[(in-list regexp) "\203\n \306\232\203\f \207\n\307 \203, \310 @\211 @)\"\203% @ B A\211\204 \237*\207" [regexp in-list verilog-case-fold out-list case-fold-search sig "" nil string-match] 4 (#$ . 290768)]) #@74 Return all signals in IN-LIST not matching the given REGEXP, if non-nil. (defalias 'verilog-signals-not-matching-regexp #[(in-list regexp) "\203\n \306\232\203\f \207\n\307 \203, \310 @\211 @)\"\204% @ B A\211\204 \237*\207" [regexp in-list verilog-case-fold out-list case-fold-search sig "" nil string-match] 4 (#$ . 291105)]) #@84 Return all signals in IN-LIST matching the given DECL-TYPE and REGEXP, if non-nil. (defalias 'verilog-signals-matching-dir-re #[(in-list decl-type regexp) "\203\n \306\232\203\f \207\307\211 \203B \f\310 @ \311 8)\310 @ \312 8) @\211 A@)\260\313\n\"\203; @ B A\211\204 \237*\207" [regexp in-list to-match out-list decl-type sig "" nil " " 5 7 string-match] 7 (#$ . 291450)]) #@68 Return all signals in IN-LIST with wire/reg data types made blank. (defalias 'verilog-signals-edit-wire-reg #[(in-list) "\301\302\"\207" [in-list mapcar #[(sig) "\3028)\303\235\203 \304\302\233 \240*\210\207" [sig type 6 ("wire" "reg") nil] 2]] 3 (#$ . 291844)]) #@70 Return all declared signals in DECLS, excluding `assign' statements. (defalias 'verilog-decls-get-signals #[(decls) "\301\211\302H)\211\303H)\211\304H)\211\305H)\211\306H)\211\307H)&\207" [decls append 0 1 2 3 6 7] 9 (#$ . 292123)]) (defalias 'verilog-decls-get-ports #[(decls) "\301\211\302H)\211\303H)\211\304H)#\207" [decls append 0 1 2] 6]) (defalias 'verilog-decls-get-iovars #[(decls) "\301\211\302H)\211\303H)\211\304H)\211\305H)$\207" [decls append 3 0 1 2] 7]) (defalias 'verilog-modi-cache-add-outputs #[(modi sig-list) "\302\303\304 $\207" [modi sig-list verilog-modi-cache-add verilog-read-decls 0] 5]) (put 'verilog-modi-cache-add-outputs 'byte-optimizer 'byte-compile-inline-expand) (defalias 'verilog-modi-cache-add-inouts #[(modi sig-list) "\302\303\304 $\207" [modi sig-list verilog-modi-cache-add verilog-read-decls 1] 5]) (put 'verilog-modi-cache-add-inouts 'byte-optimizer 'byte-compile-inline-expand) (defalias 'verilog-modi-cache-add-inputs #[(modi sig-list) "\302\303\304 $\207" [modi sig-list verilog-modi-cache-add verilog-read-decls 2] 5]) (put 'verilog-modi-cache-add-inputs 'byte-optimizer 'byte-compile-inline-expand) (defalias 'verilog-modi-cache-add-vars #[(modi sig-list) "\302\303\304 $\207" [modi sig-list verilog-modi-cache-add verilog-read-decls 3] 5]) (put 'verilog-modi-cache-add-vars 'byte-optimizer 'byte-compile-inline-expand) (defalias 'verilog-modi-cache-add-gparams #[(modi sig-list) "\302\303\304 $\207" [modi sig-list verilog-modi-cache-add verilog-read-decls 7] 5]) (put 'verilog-modi-cache-add-gparams 'byte-optimizer 'byte-compile-inline-expand) #@85 Search for the given auto text regexp SEARCH-FOR, and perform FUNC where it occurs. (defalias 'verilog-auto-re-search-do #[(search-for func) "eb\210\306\307\306 \f\204. \310 \n #\203. \311\312\224!\203' \310\313\306\307#\210\202 \312\225\211\203 \f,\2059 \210\202 \207" [search-for noerror bound regexp pt func nil t re-search-forward verilog-inside-comment-or-string-p 0 "[/\"\n]"] 4 (#$ . 293756)]) #@91 Print out a definition for SIG of the given TYPE, with appropriate INDENT-PT indentation. (defalias 'verilog-insert-one-definition #[(sig type indent-pt) "j\210 c\210\n\305\n8)\203 \306\n\305\n8)\261\210\n\307\n8)\203, \310\n\307\n8)\261\210\n\311\n8)\203` \310\n\211\311\n8)\205\\ \312\n\311\n8) \203Z @\fP A\211\204N \f*)\261\210\n\211A@)\203s \310\n\211A@)\261\210\313\314\\]j\210hz\315U\204\204 \310c\210\n\211@)c\210\n\316\n8)\205\235 \310\n\316\n8)\261\207" [indent-pt type sig args str 8 "." 5 " " 7 "" 24 16 32 3] 5 (#$ . 294173)]) #@275 Print out a definition for MODI's list of SIGS of the given DIRECTION, with appropriate INDENT-PT indentation. If V2K, use Verilog 2001 I/O format. Sort unless DONT-SORT. DIRECTION is normally wire/reg/output. When MODI is non-null, also add to modi-cache, for tracking. (defalias 'verilog-insert-definition #[(modi sigs direction indent-pt v2k &optional dont-sort) "\203\234 \306\267\202\227 \n\307\310\311 $*\210\202\234 \n\307\310\311 $*\210\202\234 \n\307\310\312 $*\210\f\203\234 \n\307\310\311 $*\210\202\234 \n\307\310\313 $*\210\f\203\234 \n\307\310\311 $*\210\202\234 \n\307\310\314 $*\210\f\203\234 \n\307\310\311 $*\210\202\234 \202\234 \n\307\310\315 $*\210\202\234 \316\317 \"\210 \204\247 \320\321\n!\322\"\n\205q\n@ #\323#$\324\232\203\341 # #\325#8)\203\323 # #\325#8)\326\232\203\341 \327\235\203\335 \202 \324\202 # #\325#8)\204\362 $\203 \330\235\205\373 \331P# #\325#8)\206 $P\202 \f\203 \332\235\203 \331\fQ\202 %#\210&\203,\333\202-\334c\210'\203N# #\313#8)\203N# #\313#8)\335\232\203T\336c\210\202j\337%\340\\]j\210\341\342# #\313#8)\336#\210\nA)\202\247 \207" [modi direction sigs sig-list verilog-auto-declare-nettype dont-sort #s(hash-table size 7 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ("wire" 10 "reg" 25 "output" 40 "input" 71 "inout" 102 "interface" 133 "parameter" 136)) verilog-modi-cache-add verilog-read-decls 3 0 2 1 7 error "Unsupported verilog-insert-definition direction: `%s'" sort copy-alist verilog-signals-sort-compare verilog-insert-one-definition "wire" 6 "logic" ("input" "output" "inout") ("input" "output" "inout") " " ("input" "output" "inout") "," ";" "" "\n" 48 40 verilog-insert "// " sig verilog-auto-wire-type indent-pt v2k verilog-auto-wire-comment] 5 (#$ . 294746)]) #@124 Indent to position stored in local `indent-pt' variable, then insert STUFF. Presumes that any newlines end a list element. (defalias 'verilog-insert-indent #[(&rest stuff) "\303 \205\" \203 \nj\210\304\305 @!\210\306\307 @\" A\211\204 \304)\207" [need-indent stuff indent-pt t nil verilog-insert string-match "\n$"] 4 (#$ . 296590)]) #@60 Move forward a line, unless at EOB, then insert a newline. (defalias 'verilog-forward-or-insert-line #[nil "m\203 \300c\207\301y\207" ["\n" nil] 1 (#$ . 296937)]) #@79 Insert comma if previous argument is other than an open parenthesis or endif. (defalias 'verilog-repair-open-comma #[nil "\212\300 \210\212\301u\210\302\303!)?\205\" \212\301u\210\304\305x\210\302\306!)?\205\" \307c)\207" [verilog-backward-syntactic-ws-quick -1 looking-at "[(,]" "[a-zA-Z0-9_`]" nil "`" ","] 2 (#$ . 297107)]) #@112 If point is at a comma followed by a close parenthesis, fix it. This repairs those mis-inserted by an AUTOARG. (defalias 'verilog-repair-close-comma #[nil "\212\300 \210\301u\210\302 \210\301u\210\303\304!\205 \305\306!)\207" [verilog-forward-close-paren -1 verilog-backward-syntactic-ws-quick looking-at "," delete-char 1] 2 (#$ . 297441)]) #@76 Return an expression calculating the length of a range [x:y] in RANGE-EXP. (defalias 'verilog-make-width-expression #[(range-exp) "\204 \301\207\302\303\"\203 \304\305\"\204 \301\207\302\306\"\2032 \307\310\311\304\305\"!\311\304\312\"!Z!T!\207\302\313\"\203> \304\305\"\207\302\314\"\203c \315\304\305\"\316\304\312\"\317\232\203X \320\202_ \321\304\312\"\316Q\316\260\207\322\207" [range-exp "1" string-match "^\\[\\(.*\\)\\]$" match-string 1 "^\\s *\\([0-9]+\\)\\s *:\\s *\\([0-9]+\\)\\s *$" int-to-string abs string-to-number 2 "^\\s *\\([a-zA-Z_][a-zA-Z0-9_]*\\)\\s *-\\s *1\\s *:\\s *0\\s *$" "^\\(.*\\)\\s *:\\s *\\(.*\\)\\s *$" "(1+(" ")" "0" "" "-(" nil] 7 (#$ . 297790)]) #@75 Return a simplified range expression with constants eliminated from EXPR. (defalias 'verilog-simplify-range-expression #[(expr) "\306\307\"\204 \207\310 \n\232\204\326 \n\306\311\n\"\203& \312\313\314\211\n$\202 \306\315\n\"\203I \312\316\317\n\"\320\321\322\316\323\n\"!!!\316\324\n\"Q\314\211\n$\202& \306\325\n\"\203q \312\316\317\n\"\320\322\316\323\n\"!\322\316\326\n\"!_!\316\327\n\"Q\314\211\n$\202I \306\330\n\"\203 \316\317\n\"\322\316\323\n\"!\322\316\326\n\"!\316\327\n\"\314 \211 \331\232\203\237 [\316\324\n\"\331\232\203\257 Z\202\263 \\\312 \331\232\203\306 \332W\203\306 \310\202\310 \320 !\fQ\314\211\n$-\202q \n*\207" [expr last-pass out val post rhs string-match "[---+*()]" "" "\\([[({:*+-]\\)(\\<\\([0-9A-Za-z_]+\\))\\([])}:*+-]\\)" replace-match "\\1\\2\\3" nil "\\([[({:*+-]\\)\\$clog2\\s *(\\<\\([0-9]+\\))\\([])}:*+-]\\)" match-string 1 int-to-string verilog-clog2 string-to-number 2 3 "\\([[({:*+-]\\)\\([0-9]+\\)\\s *\\([*]\\)\\s *\\([0-9]+\\)\\([])}:*+-]\\)" 4 5 "\\([[({:+-]\\)\\([0-9]+\\)\\s *\\([---+]\\)\\s *\\([0-9]+\\)\\([])}:+-]\\)" "-" 0 lhs pre] 9 (#$ . 298496)]) #@41 Compute $clog2 - ceiling log2 of VALUE. (defalias 'verilog-clog2 #[(value) "\301W\203 \302\207\303\304!\304\305!\245!\207" [value 1 0 ceiling log 2] 4 (#$ . 299636)]) #@56 Return true if the VARIABLE-NAME is a type definition. (defalias 'verilog-typedef-name-p #[(variable-name) "\205 \306 \307\f \n#,\207" [verilog-typedef-regexp variable-name start string regexp verilog-case-fold nil string-match case-fold-search] 4 (#$ . 299812)]) #@74 Delete autos that occupy multiple lines, between begin and end comments. (defalias 'verilog-delete-autos-lined #[nil "\301y\210`\302\303!\205 \304\305\306\307#\205 \306\210\301y\210`|)\207" [pt 1 looking-at "\\s-*// Beginning" search-forward "// End of automatic" nil t] 4 (#$ . 300091)]) #@48 Delete begin/end auto pair at point, if empty. (defalias 'verilog-delete-empty-auto-pair #[nil "\300y\210\301\302!\205 `\212\303y\210`)|\207" [0 looking-at "\\s-*// Beginning of automatic.*\n\\s-*// End of automatics\n" 2] 2 (#$ . 300391)]) #@116 Find the close parenthesis that match the current point. Ignore other close parenthesis with matching open parens. (defalias 'verilog-forward-close-paren #[nil "\305\306V\205X \307\310\311\310 \f\2043 \312 \n #\2033 \313\306\224!\203, \312\314\310\311#\210\202 \306\225\211\203 \f,\204> \315\316\317 \"\210h\320U\203K T\211\202 h\321U\203 S\211\202 )\207" [parens noerror bound regexp pt 1 0 "[()]" nil t re-search-forward verilog-inside-comment-or-string-p "[/\"\n]" error "%s: Mismatching ()" verilog-point-text 40 41] 5 (#$ . 300640)]) #@115 Find the open parenthesis that match the current point. Ignore other open parenthesis with matching close parens. (defalias 'verilog-backward-open-paren #[nil "\305\306V\205X \307\310\311\310 \f\2043 \312 \n #\2033 \313\306\224!\203, \312\314\310\311#\210\202 \306\224\211\203 \f,\204> \315\316\317 \"\210g\320U\203K T\211\202 g\321U\203 S\211\202 )\207" [parens noerror bound regexp pt 1 0 "[()]" nil t re-search-backward verilog-inside-comment-or-string-p "[/\"]" error "%s: Mismatching ()" verilog-point-text 41 40] 5 (#$ . 301201)]) #@108 Find the open bracket that match the current point. Ignore other open bracket with matching close bracket. (defalias 'verilog-backward-open-bracket #[nil "\305\306V\205X \307\310\311\310 \f\2043 \312 \n #\2033 \313\306\224!\203, \312\314\310\311#\210\202 \306\224\211\203 \f,\204> \315\316\317 \"\210g\320U\203K T\211\202 g\321U\203 S\211\202 )\207" [parens noerror bound regexp pt 1 0 "[][]" nil t re-search-backward verilog-inside-comment-or-string-p "[/\"]" error "%s: Mismatching []" verilog-point-text 93 91] 5 (#$ . 301760)]) #@121 Delete the automatic inst/sense/arg created by autos. Deletion stops at the matching end parenthesis, outside comments. (defalias 'verilog-delete-to-paren #[nil "`\212\300 \210\301\302!\210\303u\210`)|\207" [verilog-backward-open-paren verilog-forward-sexp-ign-cmt 1 -1] 3 (#$ . 302314)]) #@110 Return if a .* AUTOINST is safe to delete or expand. It was created by the AUTOS themselves, or by the user. (defalias 'verilog-auto-star-safe #[nil "\205\n \302\303 \304Q!\207" [verilog-auto-star-expand verilog-inst-comment-re looking-at "[ \n\f,]*\\([)]\\|// " "\\)"] 4 (#$ . 302610)]) #@38 Delete a .* AUTOINST, if it is safe. (defalias 'verilog-delete-auto-star-all #[nil "\300 \205 \301 \207" [verilog-auto-star-safe verilog-delete-to-paren] 1 (#$ . 302906)]) #@208 Delete all .* implicit connections created by `verilog-auto-star'. This function will be called automatically at save unless `verilog-auto-star-save' is set, any non-templated expanded pins will be removed. (defalias 'verilog-delete-auto-star-implicit #[nil "\305\211\211\212eb\210\306\307\305\310#\205s `\311 \210\212\312\313\n\310#\205$ \314 \310)`\nT|\210\203\n \212\315y\210\316\317 \320Q!\203E \321\224\321\225|\210\2020 )` \212\315u\210\316\322!\204I \316\323!\203] `T\f|\210*n\203e j\210\324c\210\325\323!\210\326\327!\210\202\n ,\207" [have-close-paren indent paren-pt verilog-inst-comment-re rtn-pt nil re-search-forward "// Implicit \\.\\*" t beginning-of-line search-forward ");" current-indentation -1 looking-at "\\s *//\\s *" "\n" 0 "[ \n\f]" "," ");\n" re-search-backward delete-char 1] 4 (#$ . 303086) nil]) #@136 Perform `verilog-delete-auto' on the current buffer. Intended for internal use inside a `verilog-save-font-no-change-functions' block. (defalias 'verilog-delete-auto-buffer #[nil "\301\302\303!\210)\304\305\306\"\210\304\307\310\"\210\304\311\312\"\210eb\210\313\314\315\301#\203( \316\317!\210\202 \301\302\320!)\207" [verilog-in-hooks t run-hooks verilog-before-delete-auto-hook verilog-auto-re-search-do "/\\*AUTO[A-Za-z0-9_]+\\(\\|([^)]*)\\|(\"[^\"]*\")\\).*?\\*/" verilog-delete-autos-lined "/\\*\\<\\(A\\(?:S\\|UTO\\(?:ARG\\|CONCATWIDTH\\|INST\\(?:PARAM\\)?\\|SENSE\\)\\)\\)\\>\\*/" verilog-delete-to-paren "\\.\\*" verilog-delete-auto-star-all re-search-forward "\\s-*// \\(Templated\\|Implicit \\.\\*\\)\\([ LT0-9]*\\| LHS: .*\\)?$" nil replace-match "" verilog-delete-auto-hook] 4 (#$ . 303926)]) #@260 Delete the automatic outputs, regs, and wires created by \[verilog-auto]. Use \[verilog-auto] to re-insert the updated AUTOs. The hooks `verilog-before-delete-auto-hook' and `verilog-delete-auto-hook' are called before and after this function, respectively. (defalias 'verilog-delete-auto #[nil "\212\306 \203 \307\306 !\210\203 \310 \204 \311p\312 )\202] \313\314\315!\210)deZ\316\304!\2058 \f\2058 \304\317!\210\313 \320\321ed#\210\322\216\313\211 \313 \311\211 \310 \204W \311p\312 . )\207" [verilog-save-font-mod-hooked verilog-scan-cache-tick verilog-scan-cache-preserving verilog-in-hooks font-lock-mode fontlocked buffer-file-name find-file-noselect verilog-scan-cache-ok-p nil verilog-delete-auto-buffer t run-hooks verilog-before-save-font-hook boundp 0 run-hook-with-args before-change-functions #[nil "\303\304ed$\210 \203 \305\306!\210\306\307\310!)\207" [verilog-save-font-mod-hooked fontlocked verilog-in-hooks run-hook-with-args after-change-functions font-lock-mode t run-hooks verilog-after-save-font-hook] 5] inhibit-point-motion-hooks inhibit-modification-hooks verilog-no-change-functions after-change-functions] 5 (#$ . 304743) nil]) #@921 Examine legacy non-AUTO code and insert AUTOs in appropriate places. Any always @ blocks with sensitivity lists that match computed lists will be replaced with /*AS*/ comments. Any cells will get /*AUTOINST*/ added to the end of the pin list. Pins with have identical names will be deleted. Argument lists will not be deleted, /*AUTOARG*/ will only be inserted to support adding new ports. You may wish to delete older ports yourself. For example: module ExampInject (i, o); input i; input j; output o; always @ (i or j) o = i | j; InstModule instName (.foobar(baz), j(j)); endmodule Typing \[verilog-inject-auto] will make this into: module ExampInject (i, o/*AUTOARG*/ // Inputs j); input i; output o; always @ (/*AS*/i or j) o = i | j; InstModule instName (.foobar(baz), /*AUTOINST*/ // Outputs j(j)); endmodule (defalias 'verilog-inject-auto #[nil "\300\301!\207" [verilog-auto t] 2 (#$ . 305926) nil]) #@59 Inject AUTOARG into new code. See `verilog-inject-auto'. (defalias 'verilog-inject-arg #[nil "\212eb\210\305\306\307\306 \204/ \310\n #\203/ \311\312\224!\203( \310\313\306\307#\210\202\f \312\225\211\203 ,\205\263 \212\314\306\307\306 \204` \310\n #\203` \311\312\224!\203Y \310\313\306\307#\210\202= \312\225\211\203A ,\210`) \310\315\f\307#\204\257 \316\306\307\306 \204\231 \310\n #\203\231 \311\312\224!\203\222 \310\313\306\307#\210\202v \312\225\211\203z ,\210\317u\210\320 \210\317u\210\321\322!\203\257 \323\324!\210)\202 )\207" [noerror bound regexp pt endmodp "\\<module\\>" nil t re-search-forward verilog-inside-comment-or-string-p 0 "[/\"\n]" "\\<endmodule\\>" "/\\*AUTOARG\\*/" ";" -1 verilog-backward-syntactic-ws-quick looking-at ")" verilog-insert "/*AUTOARG*/"] 4 (#$ . 306944)]) #@61 Inject AUTOSENSE into new code. See `verilog-inject-auto'. (defalias 'verilog-inject-sense #[nil "\212eb\210\306\307\310\307 \204/ \311\n #\203/ \312\313\224!\203( \311\314\307\310#\210\202\f \313\225\211\203 ,\205\257 ` \315 \211 \316 \317\") \307\211 \320u\210\321\322!\210\320u\210\323\f\310\307 \204} \324\n #\203} \312\313\224!\203v \324\325\307\310#\210\202Z \313\224\211\203^ ,\204\253 \326\327\f`\"! \330 \307\" \331 \"\204\253 \331 \"\204\253 \f`|\210\332\333!\210-\202 )\207" [noerror bound regexp pt start-pt modi "\\<always\\s *@\\s *(" nil t re-search-forward verilog-inside-comment-or-string-p 0 "[/\"\n]" verilog-modi-current verilog-modi-cache-results verilog-read-decls -1 verilog-forward-sexp-ign-cmt 1 "/\\*\\(AUTOSENSE\\|AS\\)\\*/" re-search-backward "[/\"]" verilog-signals-from-signame verilog-read-signals verilog-auto-sense-sigs verilog-signals-not-in verilog-insert "/*AS*/" moddecls pre-sigs got-sigs] 5 (#$ . 307773)]) #@60 Inject AUTOINST into new code. See `verilog-inject-auto'. (defalias 'verilog-inject-inst #[nil "\212eb\210\306\307\310\307 \204/ \311\n #\203/ \312\313\224!\203( \311\314\307\310#\210\202\f \313\225\211\203 ,\205 \315 \210h\316U\203F \317u\210\320 \210\202 \317u\210i\313\\\212\320 \210`) \321\f\310\307 \204 \311\n #\203 \312\313\224!\203x \311\314\307\310#\210\202\\ \313\225\211\203` ,\203\212 \fb\210\202 \307 \322\f\310\307 \204\270 \311\n #\203\270 \312\313\224!\203\261 \311\314\307\310#\210\202\225 \313\225\211\203\231 ,\203\350 \313\224\313\225|\210\f\313\225\313\224ZZ\323\324!\204\327 \323\325!\203\215 \313\224\313\225|\210\f\313\225\313\224ZZ\202\313 )\320 \210\326u\210\327\330`S\310#\203\313\224\313\225|\210\202\357 \331\332!\210\333\334!\210*\202 )\207" [noerror bound regexp pt end-pt indent-pt "\\.\\s *[a-zA-Z0-9`_$]+\\s *(\\s *[a-zA-Z0-9`_$]+\\s *)" nil t re-search-forward verilog-inside-comment-or-string-p 0 "[/\"\n]" verilog-backward-open-paren 35 1 verilog-forward-close-paren "\\(/\\*AUTOINST\\*/\\|\\.\\*\\)" "\\.\\s *\\([a-zA-Z0-9`_$]+\\)*\\s *(\\s *\\1\\s *)\\s *" looking-at "[ \n\f,]+" "//[^\n]*" -1 re-search-backward "[ \n\f]+" verilog-insert "\n" verilog-insert-indent "/*AUTOINST*/" case-fold-search] 4 (#$ . 308756)]) #@201 Return nil if buffers B1 and B2 have same contents. Else, return point in B1 that first mismatches. If optional WHITESPACE true, ignore whitespace. If optional REGEXP, ignore differences matching it. (defalias 'verilog-diff-buffers-p #[(b1 b2 &optional whitespace regexp) "\212\306r q\210eb)r q\210eb) r q\210d) r q\210d) \307\211 \306\211 \n=\203< \f=\204\306 \203] r q\210\nb\210\310\306w\210`)r q\210\fb\210\310\306w\210`)\203\206 r q\210\nb\210\311!\203s \312\225)r q\210\fb\210\311!\203\205 \312\225) \nZ \fZ^\313 \f\f\\ \n\n\\&\211\312U\203\254 \202\261 \314!S\n\f\n\\\f\\\202. \n =\205\320 \f =?\205\325 \n.\n\207" [case-fold-search b1 p1 b2 p2 maxp1 nil -1 " \n \f " looking-at 0 compare-buffer-substrings abs maxp2 op1 op2 progress size whitespace regexp] 9 (#$ . 310056)]) #@258 View the differences between file F1 and buffer B2. This requires the external program `diff-command' to be in your `exec-path', and uses `diff-switches' in which you may want to have "-u" flag. Ignores WHITESPACE if t, and writes output to stdout if SHOW. (defalias 'verilog-diff-file-with-buffer #[(f1 b2 &optional whitespace show) "\306!\204 \307\310\311 !\"\207\312\313!r\nq\210\314\216p\315\316! \317\216r q\210\214~\210\320ed \321\322%\210*\323 \321\f\324 \203? \325\202@ \326 &\210 \203U r\fq\210\307\327\330 \"\210))\331\332!\210\306 !\205c \333 !-\207" [f1 b2 #1=#:temp-buffer f2 outbuf diff-command file-exists-p message "Buffer `%s' has no associated file on disk" buffer-name generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] make-temp-file "vm-diff-auto-" #[nil "\300\207" [nil] 1] write-region nil nomessage call-process t "-b" "" "%s" buffer-string sit-for 0 delete-file diff-switches whitespace show] 9 (#$ . 310899)]) #@178 Report differences detected with `verilog-diff-auto'. Differences are between buffers B1 and B2, starting at point DIFFPT. This function is called via `verilog-diff-function'. (defalias 'verilog-diff-report #[(b1 b2 diffpt) "rq\210\305 )\306\307 rq\210\310e\n\")#\210 \203# \311 \f\312\211$\202' \313\f\")\207" [b1 name1 diffpt noninteractive b2 buffer-file-name verilog-warn-error "%s:%d: Difference in AUTO expansion found" count-lines verilog-diff-file-with-buffer t ediff-buffers] 6 (#$ . 311895)]) #@448 Expand AUTOs in a temporary buffer and indicate any change. Whitespace is ignored when detecting differences, but once a difference is detected, whitespace differences may be shown. To call this from the command line, see \[verilog-batch-diff-auto]. The action on differences is selected with `verilog-diff-function'. The default is `verilog-diff-report' which will report an error and run `ediff' in interactive mode, or `diff' in batch mode. (defalias 'verilog-diff-auto #[nil "p\306\211\305 \307 \212\310!\203 \311!\210\306 \312!)r q\210 \313\216r\fq\210\306)\314 \210\2047 \315 \210+\316\f \317$\211\204T \204M \320\321!\210\311!\210\202[ \f \n#\210\n.\207" [newname name1 diffpt b2 b1 buffer-file-name nil "*Verilog-Diff*" get-buffer kill-buffer clone-buffer #[nil "rq\210 \211)\207" [b1 name1 buffer-file-name] 2] verilog-auto verilog-delete-auto-star-implicit verilog-diff-buffers-p t message "AUTO expansion identical" verilog-auto-star-save verilog-diff-ignore-regexp noninteractive verilog-diff-function] 6 (#$ . 312410) nil]) #@39 On saving see if we need auto update. (defalias 'verilog-auto-save-check #[nil "\203L \212\305 \306\216\307eb\210\310\311\307\312#,\203L \313=\203$ \314 \210\202L \315 \203L \316 =\204L \317=\203< \314 \210\202L \320\321!\203E \314 \210\322\303!\210\316 \f\204S \323 \210\307\207" [verilog-auto-save-policy save-match-data-internal case-fold-search verilog-auto-update-tick verilog-auto-star-save match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] nil re-search-forward "AUTO" t force verilog-auto buffer-modified-p buffer-chars-modified-tick detect yes-or-no-p "AUTO statements not recomputed, do it now? " make-local-variable verilog-delete-auto-star-implicit] 4 (#$ . 313480)]) #@55 Return file local variable segment at bottom of file. (defalias 'verilog-auto-read-locals #[nil "\212db\210\300\301\302\303#\203 \304`d\"\202 \305)\207" [re-search-backward "Local Variables:" nil t buffer-substring-no-properties ""] 4 (#$ . 314213)]) #@99 Read file local variable segment at bottom of file if it has changed. If FORCE, always reread it. (defalias 'verilog-auto-reeval-locals #[(&optional force) "\303 \204 \n\232?\205 \304\302!\210\305 \210\306)\207" [curlocal force verilog-auto-last-file-locals verilog-auto-read-locals make-local-variable hack-local-variables t] 2 (#$ . 314472)]) #@106 Print a list of ports for AUTOARG. Takes SIGS list, adds MESSAGE to front and inserts each at INDENT-PT. (defalias 'verilog-auto-arg-ports #[(sigs message indent-pt) "\205k \203 \306\307!\310\"\311c\210\nj\210 c\210\311c\210\312 \nj\210\205j \313\232\2035 \fc\210\nj\210\311\202W \314\315i@\211 @)G#V\203R \311c\210\nj\210\316\202W \fc\210\316@\211 @)\317\261\210A\211\204$ \320)\207" [sigs verilog-auto-arg-sort indent-pt message space verilog-auto-arg-format sort copy-alist verilog-signals-sort-compare "\n" "" single + 2 " " "," nil sig fill-column] 5 (#$ . 314831)]) #@1393 Expand AUTOARG statements. Replace the argument declarations at the beginning of the module with ones automatically derived from input and output statements. This can be dangerous if the module is instantiated using position-based connections, so use only name-based when instantiating the resulting module. Long lines are split based on the `fill-column', see \[set-fill-column]. Limitations: Concatenation and outputting partial buses is not supported. Typedefs must match `verilog-typedef-regexp', which is disabled by default. For example: module ExampArg (/*AUTOARG*/); input i; output o; endmodule Typing \[verilog-auto] will make this into: module ExampArg (/*AUTOARG*/ // Outputs o, // Inputs i ); input i; output o; endmodule The argument declarations may be printed in declaration order to best suit order based instantiations, or alphabetically, based on the `verilog-auto-arg-sort' variable. Formatting is controlled with `verilog-auto-arg-format' variable. Any ports declared between the ( and /*AUTOARG*/ are presumed to be predeclared and are not redeclared by AUTOARG. AUTOARG will make a conservative guess on adding a comma for the first signal, if you have any ifdefs or complicated expressions before the AUTOARG you will need to choose the comma yourself. Avoid declaring ports manually, as it makes code harder to maintain. (defalias 'verilog-auto-arg #[nil "\212\305 \211\306\307\")\310 \311H\312 \210\313\314 \211\311H)\n\"\315\f#\210\313\314 \211\316H)\n\"\317\f#\210\313\314 \211\320H)\n\"\321\f#\210\322 \210`Sf\323=\204L \324c\210\fj,\207" [modi moddecls skip-pins decls verilog-indent-level-declaration verilog-modi-current verilog-modi-cache-results verilog-read-decls verilog-read-arg-pins 0 verilog-repair-open-comma verilog-auto-arg-ports verilog-signals-not-in "// Outputs" 1 "// Inouts" 2 "// Inputs" verilog-repair-close-comma 47 "\n"] 5 (#$ . 315430)]) #@995 Expand AUTOASSIGNMODPORT statements, as part of \[verilog-auto]. Take input/output/inout statements from the specified interface and modport and use to build assignments into the modport, for making verification modules that connect to UVM interfaces. The first parameter is the name of an interface. The second parameter is a regexp of modports to read from in that interface. The third parameter is the instance name to use to dot reference into. The optional fourth parameter is a regular expression, and only signals matching the regular expression will be included. Limitations: Interface names must be resolvable to filenames. See `verilog-auto-inst'. Inouts are not supported, as assignments must be unidirectional. If a signal is part of the interface header and in both a modport and the interface itself, it will not be listed. (As this would result in a syntax error when the connections are made.) See the example in `verilog-auto-inout-modport'. (defalias 'verilog-auto-assign-modport #[nil "\212\306\307\310\"\211@A@\3118\3078 \312\211 %\313 \314\"\211%\205\315 &% '\316'\317\") (\320%\n\" )\321(\211 *\307H)\322)\211 *\311H)\323(!\"\" +\321(\211 *\307H)\322)\211 *\324H)\323(!\"\" ,\325y\210\326\327\330+\f\"\331 #!+\326\327\330,\f\"\332 #!,\333\334+!\335\"+\333\334,!\335\",+\204\250 ,\205\336\337!\210,\211 -\203\326 \336\340-@\211 .@)\341 \342-@\211 .@)\343&\210-A\211-\204\264 )+\211 -\203\336\340 \342-@\211 .@)\341-@\211 .@)\343&\210-A\211-\204\337 )\336\344!-.\207" [params submod modport-re inst-name regexp direction-re verilog-read-auto-params 3 4 2 nil verilog-modi-lookup t current-indentation verilog-modi-cache-results verilog-read-decls verilog-modi-modport-lookup verilog-signals-in verilog-signals-not-in verilog-decls-get-ports 0 1 verilog-signals-edit-wire-reg verilog-signals-matching-dir-re verilog-signals-matching-regexp "input" "output" sort copy-alist verilog-signals-sort-compare verilog-insert-indent "// Beginning of automatic assignments from modport\n" "assign " " = " "." ";\n" "// End of automatics\n" submodi indent-pt modi submoddecls submodportdecls decls sig-list-i sig-list-o sigs sig] 9 (#$ . 317381)]) (defalias 'verilog-auto-inst-port-map #[(_port-st) "\300\207" [nil] 1]) #@26 See `verilog-auto-inst'. (defvar vl-cell-type nil (#$ . 319698)) #@26 See `verilog-auto-inst'. (defvar vl-cell-name nil (#$ . 319769)) #@26 See `verilog-auto-inst'. (defvar vl-modport nil (#$ . 319840)) #@26 See `verilog-auto-inst'. (defvar vl-name nil (#$ . 319909)) #@26 See `verilog-auto-inst'. (defvar vl-width nil (#$ . 319975)) #@26 See `verilog-auto-inst'. (defvar vl-dir nil (#$ . 320042)) #@26 See `verilog-auto-inst'. (defvar vl-bits nil (#$ . 320107)) #@26 See `verilog-auto-inst'. (defvar vl-mbits nil (#$ . 320173)) #@319 Print out an instantiation connection for this PORT-ST. Insert to INDENT-PT, use template TPL-LIST. @ are instantiation numbers, replaced with TPL-NUM. @"(expression @)" are evaluated, with @ as a variable. If FOR-STAR add comment it is a .* expansion. If PAR-VALUES replace final strings with these parameter values. (defalias 'verilog-auto-inst-port #[(port-st indent-pt moddecls tpl-list tpl-num for-star par-values) "\211@)\306\n @\"\206 \307! \211@) \310 \211A@)!) ;\311 8) <\312 8) =\313 8)\203q \211\313 8)\205m \314 \313 8) > ?>\203j >@?P?>A\211>\204Y ?*)\202r \314 @A\204\231 \306\n\315B!\"\203\231 \211A@)\306\n\315B!\"\211A@)\232\204\246 \211A@)\206\247 \314\202\247 \314 C\316 DE F\316\211 G HF\203\323C\314\232\204\323F\203\266\317F@@\320Q\321F@A@\322Q\323\211C I J K L M\324 N\325MIN#\203\f\326LKJI$\211IG\324\224LG\\^N\202\347 I.C\317F@@\320Q\321F@A@\322Q\323\211@ I J K L M\324 N\325MIN#\203W\326LKJI$\211IG\324\224LG\\^N\2022I.@=\205\253\317F@@\320Q\321F@A@\322Q\323\211= I J K L M\324 N\325MIN#\203\247\326LKJI$\211IG\324\224LG\\^N\202\202I.=FA\211F\204\307 \327C!C\327@!@=\205\313\327=!=\310C!;\211A@)\203\345\313 8)\204\356\312 8)\203\330@C=\203\374\331\202\375\314=\203=\202\314\332\260\202C\260H\n<\203;\306\nB\211 O\311H)\"\211\2050 \311 8))\204;\331<P\202<\314HQG\f\203M\fA@G\202\200 A@\203\200 A@\211 P\203\325P@@\n\"\203vP@\326P@A@\323\316\n$GPA\211P\204\\)\f\203\325\333G\"\203J\325\334G\"\203JG\324\211\224O\335 Q\336\216\337\340G\" R\341\342\316\211R I J K L M\324 N\325MIN#\203\337\326LKJI$\211IG\324\224LG\\^N\202\272I.R\343S\316\211R I J K L M\324 N\325MIN#\203 \326LKJI$\211IG\324\224LG\\^N\202\371I.R\344\345\346R!@!\347\"\211 T\247\203;\350T!TT,G\324\225\316OQG\202\214\343S\316\211G I J K L M\324 N\325MIN#\203\203\326LKJI$\211IG\324\224LG\\^N\202^I.G\351H\316\211G I J K L M\324 N\325MIN#\203\302\326LKJI$\211IG\324\224LG\\^N\202\235I.G\352C\316\211G I J K L M\324 N\325MIN#\203\326LKJI$\211IG\324\224LG\\^N\202\334I.GUj\210\331\n\261\210V\203 \nG\232\204'Wj\210\321G\322\261\210\353c\210\f\203s\354\f!\210W\355W\203=\356\202>\357W\\j\210X\360\232\203T\361\362\363\f@\364$\202\221X\203m\361\362\365\366\367\f8!\370\366\312\f8!\364&\202\221\361\371!\202\221Y\203\217W\355W\203\203\356\202\204\357W\\j\210\361\372!\202\221\364c.\f\207" [port-st sig port tpl-list tpl-ass vl-name assoc verilog-auto-inst-port-map verilog-make-width-expression 8 3 7 "" verilog-decls-get-signals nil "\\<" "\\>" "(" ")" t 0 string-match replace-match verilog-simplify-range-expression "/*" "." "*/" "@\".*[^\\]\"" "@\"\\(\\([^\\\"]*\\(\\\\.\\)*\\)*\\)\"" match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] match-string 1 "\\\\\"" "\"" "@" prin1 eval read-from-string #[(_ch) "\300\207" [nil] 1] number-to-string "\\[\\]\\[\\]" "\\[\\]" "," verilog-read-auto-template-hit 48 24 16 lhs verilog-insert " // Templated" " LHS: " "\n" " T" int-to-string 2 " L" " // Templated\n" " // Implicit .*\n" vl-width vl-modport vl-memory args str vl-mbits verilog-auto-inst-vector moddecls vl-bits case-fold-search par-values check-values tpl-net dflt-bits string literal fixedcase to-string from-string start decls wildcards save-match-data-internal expr tpl-num value indent-pt verilog-auto-inst-dot-name verilog-auto-inst-column verilog-auto-inst-template-numbers for-star] 9 (#$ . 320241)]) #@79 For `verilog-auto-inst' print a list of ports using `verilog-auto-inst-port'. (defalias 'verilog-auto-inst-port-list #[(sig-list indent-pt moddecls tpl-list tpl-num for-star par-values) "\203 \302\303 !\304\"\305\306 \"\207" [verilog-auto-inst-sort sig-list sort copy-alist verilog-signals-sort-compare mapc #[(port) "\306 \n \f &\207" [port indent-pt moddecls tpl-list tpl-num for-star verilog-auto-inst-port par-values] 8]] 3 (#$ . 323875)]) #@87 Insert , etc before first ever port in this instant, as part of \[verilog-auto-inst]. (defalias 'verilog-auto-inst-first #[nil "\304c\210\212\305\306\211\306 \204/ \307\n #\203/ \310\311\224!\203( \307\312\306\313#\210\202\f \311\224\211\203 ,\210\314\315!\205= \316u\210\317c)\207" [noerror bound regexp pt "\n" "[^ \n\f]" nil re-search-backward verilog-inside-comment-or-string-p 0 "[/\"]" t looking-at ")\\|\\*" 1 ","] 4 (#$ . 324332)]) #@758 Expand SystemVerilog .* pins, as part of \[verilog-auto]. If `verilog-auto-star-expand' is set, .* pins are treated if they were AUTOINST statements, otherwise they are ignored. For safety, Verilog mode will also ignore any .* that are not last in your pin list (this prevents it from deleting pins following the .* when it expands the AUTOINST.) On writing your file, unless `verilog-auto-star-save' is set, any non-templated expanded pins will be removed. You may do this at any time with \[verilog-delete-auto-star-implicit]. If you are converting a module to use .* for the first time, you may wish to use \[verilog-inject-auto] and then replace the created AUTOINST with .*. See `verilog-auto-inst' for examples, templates, and more information. (defalias 'verilog-auto-star #[nil "\300 \205 \301 \207" [verilog-auto-star-safe verilog-auto-inst] 1 (#$ . 324788)]) #@11038 Expand AUTOINST statements, as part of \[verilog-auto]. Replace the pin connections to an instantiation or interface declaration with ones automatically derived from the module or interface header of the instantiated item. If `verilog-auto-star-expand' is set, also expand SystemVerilog .* ports, and delete them before saving unless `verilog-auto-star-save' is set. See `verilog-auto-star' for more information. The pins are printed in declaration order or alphabetically, based on the `verilog-auto-inst-sort' variable. Limitations: Module names must be resolvable to filenames by adding a `verilog-library-extensions', and being found in the same directory, or by changing the variable `verilog-library-flags' or `verilog-library-directories'. Macros `modname are translated through the vh-{name} Emacs variable, if that is not found, it just ignores the \=`. In templates you must have one signal per line, ending in a ), or ));, and have proper () nesting, including a final ); to end the template. Typedefs must match `verilog-typedef-regexp', which is disabled by default. SystemVerilog multidimensional input/output has only experimental support. SystemVerilog .name syntax is used if `verilog-auto-inst-dot-name' is set. Parameters referenced by the instantiation will remain symbolic, unless `verilog-auto-inst-param-value' is set. Gate primitives (and/or) may have AUTOINST for the purpose of AUTOWIRE declarations, etc. Gates are the only case when position based connections are passed. The array part of arrayed instances are ignored; this may result in undesirable default AUTOINST connections; use a template instead. For example, first take the submodule InstModule.v: module InstModule (o,i); output [31:0] o; input i; wire [31:0] o = {32{i}}; endmodule This is then used in an upper level module: module ExampInst (o,i); output o; input i; InstModule instName (/*AUTOINST*/); endmodule Typing \[verilog-auto] will make this into: module ExampInst (o,i); output o; input i; InstModule instName (/*AUTOINST*/ // Outputs .ov (ov[31:0]), // Inputs .i (i)); endmodule Where the list of inputs and outputs came from the inst module. Exceptions: Unless you are instantiating a module multiple times, or the module is something trivial like an adder, DO NOT CHANGE SIGNAL NAMES ACROSS HIERARCHY. It just makes for unmaintainable code. To sanitize signal names, try vrename from URL `http://www.veripool.org'. When you need to violate this suggestion there are two ways to list exceptions, placing them before the AUTOINST, or using templates. Any ports defined before the /*AUTOINST*/ are not included in the list of automatics. This is similar to making a template as described below, but is restricted to simple connections just like you normally make. Also note that any signals before the AUTOINST will only be picked up by AUTOWIRE if you have the appropriate // Input or // Output comment, and exactly the same line formatting as AUTOINST itself uses. InstModule instName (// Inputs .i (my_i_dont_mess_with_it), /*AUTOINST*/ // Outputs .ov (ov[31:0])); Templates: For multiple instantiations based upon a single template, create a commented out template: /* InstModule AUTO_TEMPLATE ( .sig3 (sigz[]), ); */ Templates go ABOVE the instantiation(s). When an instantiation is expanded `verilog-mode' simply searches up for the closest template. Thus you can have multiple templates for the same module, just alternate between the template for an instantiation and the instantiation itself. (For backward compatibility if no template is found above, it will also look below, but do not use this behavior in new designs.) The module name must be the same as the name of the module in the instantiation name, and the code "AUTO_TEMPLATE" must be in these exact words and capitalized. Only signals that must be different for each instantiation need to be listed. Inside a template, a [] in a connection name (with nothing else inside the brackets) will be replaced by the same bus subscript as it is being connected to, or the [] will be removed if it is a single bit signal. Inside a template, a [][] in a connection name will behave similarly to a [] for scalar or single-dimensional connection; for a multidimensional connection it will print a comment similar to that printed when a template is not used. Generally it is a good idea to do this for all connections in a template, as then they will work for any width signal, and with AUTOWIRE. See PTL_BUS becoming PTL_BUSNEW below. Inside a template, a [] in a connection name (with nothing else inside the brackets) will be replaced by the same bus subscript as it is being connected to, or the [] will be removed if it is a single bit signal. Generally it is a good idea to do this for all connections in a template, as then they will work for any width signal, and with AUTOWIRE. See PTL_BUS becoming PTL_BUSNEW below. If you have a complicated template, set `verilog-auto-inst-template-numbers' to see which regexps are matching. Don't leave that mode set after debugging is completed though, it will result in lots of extra differences and merge conflicts. Setting `verilog-auto-template-warn-unused' will report errors if any template lines are unused. For example: /* InstModule AUTO_TEMPLATE ( .ptl_bus (ptl_busnew[]), ); */ InstModule ms2m (/*AUTOINST*/); Typing \[verilog-auto] will make this into: InstModule ms2m (/*AUTOINST*/ // Outputs .NotInTemplate (NotInTemplate), .ptl_bus (ptl_busnew[3:0]), // Templated .... Multiple Module Templates: The same template lines can be applied to multiple modules with the syntax as follows: /* InstModuleA AUTO_TEMPLATE InstModuleB AUTO_TEMPLATE InstModuleC AUTO_TEMPLATE InstModuleD AUTO_TEMPLATE ( .ptl_bus (ptl_busnew[]), ); */ Note there is only one AUTO_TEMPLATE opening parenthesis. @ Templates: It is common to instantiate a cell multiple times, so templates make it trivial to substitute part of the cell name into the connection name. /* InstName AUTO_TEMPLATE <optional "REGEXP"> ( .sig1 (sigx[@]), .sig2 (sigy[@"(% (+ 1 @) 4)"]), ); */ If no regular expression is provided immediately after the AUTO_TEMPLATE keyword, then the @ character in any connection names will be replaced with the instantiation number; the first digits found in the cell's instantiation name. If a regular expression is provided, the @ character will be replaced with the first () grouping that matches against the cell name. Using a regexp of `\([0-9]+\)' provides identical values for @ as when no regexp is provided. If you use multiple layers of parenthesis, `test\([^0-9]+\)_\([0-9]+\)' would replace @ with non-number characters after test and before _, whereas `\(test\([a-z]+\)_\([0-9]+\)\)' would replace @ with the entire match. For example: /* InstModule AUTO_TEMPLATE ( .ptl_mapvalidx (ptl_mapvalid[@]), .ptl_mapvalidp1x (ptl_mapvalid[@"(% (+ 1 @) 4)"]), ); */ InstModule ms2m (/*AUTOINST*/); Typing \[verilog-auto] will make this into: InstModule ms2m (/*AUTOINST*/ // Outputs .ptl_mapvalidx (ptl_mapvalid[2]), .ptl_mapvalidp1x (ptl_mapvalid[3])); Note the @ character was replaced with the 2 from "ms2m". Alternatively, using a regular expression for @: /* InstModule AUTO_TEMPLATE "_\([a-z]+\)" ( .ptl_mapvalidx (@_ptl_mapvalid), .ptl_mapvalidp1x (ptl_mapvalid_@), ); */ InstModule ms2_FOO (/*AUTOINST*/); InstModule ms2_BAR (/*AUTOINST*/); Typing \[verilog-auto] will make this into: InstModule ms2_FOO (/*AUTOINST*/ // Outputs .ptl_mapvalidx (FOO_ptl_mapvalid), .ptl_mapvalidp1x (ptl_mapvalid_FOO)); InstModule ms2_BAR (/*AUTOINST*/ // Outputs .ptl_mapvalidx (BAR_ptl_mapvalid), .ptl_mapvalidp1x (ptl_mapvalid_BAR)); Regexp Templates: A template entry of the form .pci_req\([0-9]+\)_l (pci_req_jtag_[\1]), will apply an Emacs style regular expression search for any port beginning in pci_req followed by numbers and ending in _l and connecting that to the pci_req_jtag_[] net, with the bus subscript coming from what matches inside the first set of \( \). Thus pci_req2_l becomes pci_req_jtag_[2]. Since \([0-9]+\) is so common and ugly to read, a @ in the port name does the same thing. (Note a @ in the connection/replacement text is completely different -- still use \1 there!) Thus this is the same as the above template: .pci_req@_l (pci_req_jtag_[\1]), Here's another example to remove the _l, useful when naming conventions specify _ alone to mean active low. Note the use of [] to keep the bus subscript: .\(.*\)_l (\1_[]), Lisp Templates: First any regular expression template is expanded. If the syntax @"( ... )" is found in a connection, the expression in quotes will be evaluated as a Lisp expression, with @ replaced by the instantiation number. The MAPVALIDP1X example above would put @+1 modulo 4 into the brackets. Quote all double-quotes inside the expression with a leading backslash (\"...\"); or if the Lisp template is also a regexp template backslash the backslash quote (\\"...\\"). There are special variables defined that are useful in these Lisp functions: vl-name Name portion of the input/output port. vl-bits Bus bits portion of the input/output port (`[2:0]'). vl-mbits Multidimensional array bits for port (`[2:0][3:0]'). vl-width Width of the input/output port (`3' for [2:0]). May be a (...) expression if bits isn't a constant. vl-dir Direction of the pin input/output/inout/interface. vl-modport The modport, if an interface with a modport. vl-cell-type Module name/type of the cell (`InstModule'). vl-cell-name Instance name of the cell (`instName'). Normal Lisp variables may be used in expressions. See `verilog-read-defines' which can set vh-{definename} variables for use here. Also, any comments of the form: /*AUTO_LISP(setq foo 1)*/ will evaluate any Lisp expression inside the parenthesis between the beginning of the buffer and the point of the AUTOINST. This allows functions to be defined or variables to be changed between instantiations. (See also `verilog-auto-insert-lisp' if you want the output from your lisp function to be inserted.) Note that when using lisp expressions errors may occur when @ is not a number; you may need to use the standard Emacs Lisp functions `number-to-string' and `string-to-number'. After the evaluation is completed, @ substitution and [] substitution occur. For more information see the \[verilog-faq] and forums at URL `http://www.veripool.org'. (defalias 'verilog-auto-inst #[nil "\212`\212\306u\210\307\310!)\212\311 \210iT) \312\n\313\\\314\245\314_\\]\315 \211 \316\f\317\") \320\211 7 8\320\211 9 :\320\211 ; <\320\211 = >\320 ?\321 7\322 :7@:A\323 \324H;\325e\"\210B\205h \326 ?7C\235?\205\3277\330\"\2118\2058 \316\f\317\")9\3317!\211 D\324H\211 E:\320 F G HI J\332HGF#,\203\265 \333\334:\"\202\266 \335=D\334H<*8\211 \336H)\337\232\205\327 \3409\211 K\336H);\"\341 L\211 M\203N\203>\204\360 \342 \210\330>\343\344!\210\345M\n <= ?&\210*\3409\211 K\314H);\"\337 L\211 M\2037>\204$\342 \210\330>\343\346!\210\345M\n <= ?&\210*\3409\211 K\324H);\"\347 L\211 M\203k>\204X\342 \210\330>\343\350!\210\345M\n <= ?&\210*\3409\211 K\334H);\"\351 L\211 M\203\237>\204\214\342 \210\330>\343\352!\210\345M\n <= ?&\210*\3409\211 K\353H);\"\354 L\211 M\203\323>\204\300\342 \210\330>\343\355!\210\345M\n <= ?&\210*\212>\205\356\357\330#\210\360\334!\210\361c\210\362\363!\210\360\364!\210\362\365\320\330#\203\373\360\364!\210\362\366\320\330#\205\360\364!).\207" [pt for-star indent-pt verilog-auto-inst-column modi moddecls -2 looking-at "\\.\\*" verilog-backward-open-paren 16 7 8 verilog-modi-current verilog-modi-cache-results verilog-read-decls nil verilog-read-inst-module verilog-read-inst-name verilog-read-inst-pins 0 verilog-read-auto-lisp verilog-read-inst-param-value verilog-modi-lookup t verilog-read-auto-template string-match match-string 1 "" 3 "interface" verilog-signals-not-in "interfaced" verilog-auto-inst-first verilog-insert-indent "// Interfaced\n" verilog-auto-inst-port-list "// Interfaces\n" "output" "// Outputs\n" "inout" "// Inouts\n" 2 "input" "// Inputs\n" re-search-backward "," delete-char ");" search-forward "\n" -1 ")" ";" submod submodi submoddecls inst skip-pins tpl-list tpl-num did-first par-values vl-cell-type vl-cell-name verilog-auto-inst-param-value verilog-gate-keywords tpl-info tpl-regexp start string regexp verilog-case-fold case-fold-search decls vl-dir sig-list verilog-auto-inst-interfaced-ports] 9 (#$ . 325673)]) #@971 Expand AUTOINSTPARAM statements, as part of \[verilog-auto]. Replace the parameter connections to an instantiation with ones automatically derived from the module header of the instantiated netlist. See \[verilog-auto-inst] for limitations, and templates to customize the output. For example, first take the submodule InstModule.v: module InstModule (o,i); parameter PAR; endmodule This is then used in an upper level module: module ExampInst (o,i); parameter PAR; InstModule #(/*AUTOINSTPARAM*/) instName (/*AUTOINST*/); endmodule Typing \[verilog-auto] will make this into: module ExampInst (o,i); output o; input i; InstModule #(/*AUTOINSTPARAM*/ // Parameters .PAR (PAR)); instName (/*AUTOINST*/); endmodule Where the list of parameter connections come from the inst module. Templates: You can customize the parameter connections using AUTO_TEMPLATEs, just as you would with \[verilog-auto-inst]. (defalias 'verilog-auto-inst-param #[nil "\212`\212\306 \210iT)\n\307 \310\\\311\245\311_\\]\312 \211\313 \314\") \315\211 +\315\211 , -\315\211 . /\315\211 0 1\212\316\315\211 2 3 4\315\204k \317432#\203k \320\321\224!\203d \317\322\315\323#\210\202E \321\225\211\203I ,\210\324 )\212\316\315\211 2 3 4\315\204\244 \317432#\203\244 \320\321\224!\203\235 \317\322\315\323#\210\202~ \321\225\211\203\202 ,\210\325 )- 5-6\326 \321H.\327e\"\210\330 \323\"\211+\205b+\313 \314\"),\331 !\211 7\321H\211 8-\315 9 : 4; <\3324:9#,\203\376 \333\334-\"\202\377 \33507\334H/*\336,\211 =\310H).\"\337 >\211 ?\203:1\204(\340 \210\3231\341\342!\210\343? \f/0\315\211&\210*\2121\205a\344\345\323#\210\346\334!\210\347c\210\350\351!\210\346\352!\210\350\347\315\323#\205a\346\352!).\207" [pt indent-pt verilog-auto-inst-column modi moddecls submod verilog-backward-open-paren 16 7 8 verilog-modi-current verilog-modi-cache-results verilog-read-decls nil "[(;]" re-search-forward verilog-inside-comment-or-string-p 0 "[/\"\n]" t verilog-read-inst-module verilog-read-inst-name verilog-read-inst-pins verilog-read-auto-lisp verilog-modi-lookup verilog-read-auto-template string-match match-string 1 "" verilog-signals-not-in "parameter" verilog-auto-inst-first verilog-insert-indent "// Parameters\n" verilog-auto-inst-port-list re-search-backward "," delete-char ")" search-forward "\n" -1 submodi submoddecls inst skip-pins tpl-list tpl-num did-first noerror bound regexp vl-cell-type vl-cell-name tpl-info tpl-regexp start string verilog-case-fold case-fold-search decls vl-dir sig-list] 9 (#$ . 338838)]) #@752 Expand AUTOREG statements, as part of \[verilog-auto]. Make reg statements for any output that isn't already declared, and isn't a wire output from a block. `verilog-auto-wire-type' may be used to change the datatype of the declarations. Limitations: This ONLY detects outputs of AUTOINSTants (see `verilog-read-sub-decls'). This does NOT work on memories, declare those yourself. An example: module ExampReg (o,i); output o; input i; /*AUTOREG*/ always o = i; endmodule Typing \[verilog-auto] will make this into: module ExampReg (o,i); output o; input i; /*AUTOREG*/ // Beginning of automatic regs (for this module's undeclared outputs) reg o; // End of automatics always o = i; endmodule (defalias 'verilog-auto-reg #[nil "\212\306 \307 \211\310 \311\") \310 \312\")\313\n\211 \314H)\315\316\317\n\211 \314H)\"\n\211 \320H)\n\211 \321H)\n\211 \322H)\n\211 \323H) \211 \324H) \211 \314H) \211 \325H)&\"\211 \205n \326 \210\327\330!\210\331 \332\333%\210\327\334!.\207" [indent-pt modi moddecls modsubdecls decls subdecls current-indentation verilog-modi-current verilog-modi-cache-results verilog-read-decls verilog-read-sub-decls verilog-signals-not-in 0 append verilog-signals-with verilog-sig-type 3 5 6 7 4 1 verilog-forward-or-insert-line verilog-insert-indent "// Beginning of automatic regs (for this module's undeclared outputs)\n" verilog-insert-definition "reg" nil "// End of automatics\n" sig-list] 13 (#$ . 341462)]) #@984 Expand AUTOREGINPUT statements, as part of \[verilog-auto]. Make reg statements instantiation inputs that aren't already declared. This is useful for making a top level shell for testing the module that is to be instantiated. Limitations: This ONLY detects inputs of AUTOINSTants (see `verilog-read-sub-decls'). This does NOT work on memories, declare those yourself. An example (see `verilog-auto-inst' for what else is going on here): module ExampRegInput (o,i); output o; input i; /*AUTOREGINPUT*/ InstModule instName (/*AUTOINST*/); endmodule Typing \[verilog-auto] will make this into: module ExampRegInput (o,i); output o; input i; /*AUTOREGINPUT*/ // Beginning of automatic reg inputs (for undeclared ... reg [31:0] iv; // From inst of inst.v // End of automatics InstModule instName (/*AUTOINST*/ // Outputs .o (o[31:0]), // Inputs .iv (iv)); endmodule (defalias 'verilog-auto-reg-input #[nil "\212\306 \307 \211\310 \311\") \310 \312\")\313\314\315 \211 \316H) \211 \317H)\"\315\320\n!\n\211 \321H)\"\"!\211 \205M \322 \210\323\324!\210\325 \326\327%\210\323\330!.\207" [indent-pt modi moddecls modsubdecls subdecls decls current-indentation verilog-modi-current verilog-modi-cache-results verilog-read-decls verilog-read-sub-decls verilog-signals-combine-bus verilog-signals-not-in append 2 1 verilog-decls-get-signals 5 verilog-forward-or-insert-line verilog-insert-indent "// Beginning of automatic reg inputs (for undeclared instantiated-module inputs)\n" verilog-insert-definition "reg" nil "// End of automatics\n" sig-list] 8 (#$ . 342973)]) #@37 Prepare variables due to AUTOLOGIC. (defalias 'verilog-auto-logic-setup #[nil "?\205\f \301\300!\210\302\211\207" [verilog-auto-wire-type make-local-variable "logic"] 2 (#$ . 344670)]) #@372 Expand AUTOLOGIC statements, as part of \[verilog-auto]. Make wire statements using the SystemVerilog logic keyword. This is currently equivalent to: /*AUTOWIRE*/ with the below at the bottom of the file // Local Variables: // verilog-auto-wire-type:"logic" // End: In the future AUTOLOGIC may declare additional identifiers, while AUTOWIRE will not. (defalias 'verilog-auto-logic #[nil "\212\300 \210\301 )\207" [verilog-auto-logic-setup verilog-auto-wire] 1 (#$ . 344864)]) #@1332 Expand AUTOWIRE statements, as part of \[verilog-auto]. Make wire statements for instantiations outputs that aren't already declared. `verilog-auto-wire-type' may be used to change the datatype of the declarations. Limitations: This ONLY detects outputs of AUTOINSTants (see `verilog-read-sub-decls'), and all buses must have widths, such as those from AUTOINST, or using [] in AUTO_TEMPLATEs. This does NOT work on memories or SystemVerilog .name connections, declare those yourself. Verilog mode will add "Couldn't Merge" comments to signals it cannot determine how to bus together. This occurs when you have ports with non-numeric or non-sequential bus subscripts. If Verilog mode mis-guessed, you'll have to declare them yourself. An example (see `verilog-auto-inst' for what else is going on here): module ExampWire (o,i); output o; input i; /*AUTOWIRE*/ InstModule instName (/*AUTOINST*/); endmodule Typing \[verilog-auto] will make this into: module ExampWire (o,i); output o; input i; /*AUTOWIRE*/ // Beginning of automatic wires wire [31:0] ov; // From inst of inst.v // End of automatics InstModule instName (/*AUTOINST*/ // Outputs .ov (ov[31:0]), // Inputs .i (i)); wire o = | ov; endmodule (defalias 'verilog-auto-wire #[nil "\212\306 \307 \211\310 \311\") \310 \312\")\313\314\315 \211 \316H) \211 \317H)\"\320\n!\"!\211 \205C \321 \210\322\323!\210\324 \325\326%\210\322\327!.\207" [indent-pt modi moddecls modsubdecls subdecls sig-list current-indentation verilog-modi-current verilog-modi-cache-results verilog-read-decls verilog-read-sub-decls verilog-signals-combine-bus verilog-signals-not-in append 0 1 verilog-decls-get-signals verilog-forward-or-insert-line verilog-insert-indent "// Beginning of automatic wires (for undeclared instantiated-module outputs)\n" verilog-insert-definition "wire" nil "// End of automatics\n"] 7 (#$ . 345368)]) #@1659 Expand AUTOOUTPUT statements, as part of \[verilog-auto]. Make output statements for any output signal from an /*AUTOINST*/ that isn't an input to another AUTOINST. This is useful for modules which only instantiate other modules. Limitations: This ONLY detects outputs of AUTOINSTants (see `verilog-read-sub-decls'). If placed inside the parenthesis of a module declaration, it creates Verilog 2001 style, else uses Verilog 1995 style. If any concatenation, or bit-subscripts are missing in the AUTOINSTant's instantiation, all bets are off. (For example due to an AUTO_TEMPLATE). Typedefs must match `verilog-typedef-regexp', which is disabled by default. Types are added to declarations if an AUTOLOGIC or `verilog-auto-wire-type' is set to logic. Signals matching `verilog-auto-output-ignore-regexp' are not included. An example (see `verilog-auto-inst' for what else is going on here): module ExampOutput (ov,i); input i; /*AUTOOUTPUT*/ InstModule instName (/*AUTOINST*/); endmodule Typing \[verilog-auto] will make this into: module ExampOutput (ov,i); input i; /*AUTOOUTPUT*/ // Beginning of automatic outputs (from unused autoinst outputs) output [31:0] ov; // From inst of inst.v // End of automatics InstModule instName (/*AUTOINST*/ // Outputs .ov (ov[31:0]), // Inputs .i (i)); endmodule You may also provide an optional regular expression, in which case only signals matching the regular expression will be included. For example the same expansion will result from only extracting outputs starting with ov: /*AUTOOUTPUT("^ov")*/ (defalias 'verilog-auto-output #[nil "\212\306 \307\310\311\"\211@\312 \313 \211 \314\f\315\") \f \314\f\316\") \317 \211 \310H)\320 \211 \310H) \211 \311H) \211 \321H) \211 \321H) \211 \311H)%\" \n\203a \322 \n\" \323 \" \324 \210 \203s \325 \210 \203\211 \326\327!\210\330\f \331 %\210\326\332!\210 \205\217 \333 . \207" [indent-pt params regexp v2k modi moddecls current-indentation verilog-read-auto-params 0 1 verilog-in-paren-quick verilog-modi-current verilog-modi-cache-results verilog-read-decls verilog-read-sub-decls verilog-signals-not-in append 2 verilog-signals-matching-regexp verilog-signals-not-matching-regexp verilog-forward-or-insert-line verilog-repair-open-comma verilog-insert-indent "// Beginning of automatic outputs (from unused autoinst outputs)\n" verilog-insert-definition "output" "// End of automatics\n" verilog-repair-close-comma modsubdecls subdecls decls sig-list verilog-auto-output-ignore-regexp] 10 (#$ . 347378)]) #@1082 Expand AUTOOUTPUTEVERY statements, as part of \[verilog-auto]. Make output statements for any signals that aren't primary inputs or outputs already. This makes every signal in the design an output. This is useful to get Synopsys to preserve every signal in the design, since it won't optimize away the outputs. An example: module ExampOutputEvery (o,i,tempa,tempb); output o; input i; /*AUTOOUTPUTEVERY*/ wire tempa = i; wire tempb = tempa; wire o = tempb; endmodule Typing \[verilog-auto] will make this into: module ExampOutputEvery (o,i,tempa,tempb); output o; input i; /*AUTOOUTPUTEVERY*/ // Beginning of automatic outputs (every signal) output tempb; output tempa; // End of automatics wire tempa = i; wire tempb = tempa; wire o = tempb; endmodule You may also provide an optional regular expression, in which case only signals matching the regular expression will be included. For example the same expansion will result from only extracting outputs starting with ov: /*AUTOOUTPUTEVERY("^ov")*/ (defalias 'verilog-auto-output-every #[nil "\212\306 \307\310\311\"\211@\312 \313 \211 \314\f\315\") \316\317\320 !\321 !\"! \n\2031 \322 \n\" \323 \" \324 \210 \203C \325 \210 \203Y \326\327!\210\330\f \331 %\210\326\332!\210 \205_ \333 .\207" [indent-pt params regexp v2k modi moddecls current-indentation verilog-read-auto-params 0 1 verilog-in-paren-quick verilog-modi-current verilog-modi-cache-results verilog-read-decls verilog-signals-combine-bus verilog-signals-not-in verilog-decls-get-signals verilog-decls-get-ports verilog-signals-matching-regexp verilog-signals-not-matching-regexp verilog-forward-or-insert-line verilog-repair-open-comma verilog-insert-indent "// Beginning of automatic outputs (every signal)\n" verilog-insert-definition "output" "// End of automatics\n" verilog-repair-close-comma sig-list verilog-auto-output-ignore-regexp] 7 (#$ . 350022)]) #@1662 Expand AUTOINPUT statements, as part of \[verilog-auto]. Make input statements for any input signal into an /*AUTOINST*/ that isn't declared elsewhere inside the module. This is useful for modules which only instantiate other modules. Limitations: This ONLY detects outputs of AUTOINSTants (see `verilog-read-sub-decls'). If placed inside the parenthesis of a module declaration, it creates Verilog 2001 style, else uses Verilog 1995 style. If any concatenation, or bit-subscripts are missing in the AUTOINSTant's instantiation, all bets are off. (For example due to an AUTO_TEMPLATE). Typedefs must match `verilog-typedef-regexp', which is disabled by default. Types are added to declarations if an AUTOLOGIC or `verilog-auto-wire-type' is set to logic. Signals matching `verilog-auto-input-ignore-regexp' are not included. An example (see `verilog-auto-inst' for what else is going on here): module ExampInput (ov,i); output [31:0] ov; /*AUTOINPUT*/ InstModule instName (/*AUTOINST*/); endmodule Typing \[verilog-auto] will make this into: module ExampInput (ov,i); output [31:0] ov; /*AUTOINPUT*/ // Beginning of automatic inputs (from unused autoinst inputs) input i; // From inst of inst.v // End of automatics InstModule instName (/*AUTOINST*/ // Outputs .ov (ov[31:0]), // Inputs .i (i)); endmodule You may also provide an optional regular expression, in which case only signals matching the regular expression will be included. For example the same expansion will result from only extracting inputs starting with i: /*AUTOINPUT("^i")*/ (defalias 'verilog-auto-input #[nil "\212\306 \307\310\311\"\211@\312 \313 \211 \314\f\315\") \f \314\f\316\") \317 \211 !\320H)\321 \211 \"\320H) \211 \"\311H) \211 \"\310H) \211 \"\322H) \211 \"\323H) \211 \"\324H) \211 !\325H) \211 !\310H) \211 !\311H)& \" #\n\203 \326#\n\"#\327#$\"#\330 \210 \203\221 \331 \210#\203\247 \332\333!\210\334\f#\335 %\210\332\336!\210 \205\255 \337 . \207" [indent-pt params regexp v2k modi moddecls current-indentation verilog-read-auto-params 0 1 verilog-in-paren-quick verilog-modi-current verilog-modi-cache-results verilog-read-decls verilog-read-sub-decls verilog-signals-not-in 2 append 3 6 7 4 verilog-signals-matching-regexp verilog-signals-not-matching-regexp verilog-forward-or-insert-line verilog-repair-open-comma verilog-insert-indent "// Beginning of automatic inputs (from unused autoinst inputs)\n" verilog-insert-definition "input" "// End of automatics\n" verilog-repair-close-comma modsubdecls subdecls decls sig-list verilog-auto-input-ignore-regexp] 14 (#$ . 352004)]) #@1583 Expand AUTOINOUT statements, as part of \[verilog-auto]. Make inout statements for any inout signal in an /*AUTOINST*/ that isn't declared elsewhere inside the module. Limitations: This ONLY detects outputs of AUTOINSTants (see `verilog-read-sub-decls'). If placed inside the parenthesis of a module declaration, it creates Verilog 2001 style, else uses Verilog 1995 style. If any concatenation, or bit-subscripts are missing in the AUTOINSTant's instantiation, all bets are off. (For example due to an AUTO_TEMPLATE). Typedefs must match `verilog-typedef-regexp', which is disabled by default. Types are added to declarations if an AUTOLOGIC or `verilog-auto-wire-type' is set to logic. Signals matching `verilog-auto-inout-ignore-regexp' are not included. An example (see `verilog-auto-inst' for what else is going on here): module ExampInout (ov,i); input i; /*AUTOINOUT*/ InstModule instName (/*AUTOINST*/); endmodule Typing \[verilog-auto] will make this into: module ExampInout (ov,i); input i; /*AUTOINOUT*/ // Beginning of automatic inouts (from unused autoinst inouts) inout [31:0] ov; // From inst of inst.v // End of automatics InstModule instName (/*AUTOINST*/ // Inouts .ov (ov[31:0]), // Inputs .i (i)); endmodule You may also provide an optional regular expression, in which case only signals matching the regular expression will be included. For example the same expansion will result from only extracting inouts starting with i: /*AUTOINOUT("^i")*/ (defalias 'verilog-auto-inout #[nil "\212\306 \307\310\311\"\211@\312 \313 \211 \314\f\315\") \f \314\f\316\") \317 \211 \311H)\320 \211 \310H) \211 \311H) \211 \321H) \211 \321H) \211 \310H)%\" \n\203a \322 \n\" \323 \" \324 \210 \203s \325 \210 \203\211 \326\327!\210\330\f \331 %\210\326\332!\210 \205\217 \333 . \207" [indent-pt params regexp v2k modi moddecls current-indentation verilog-read-auto-params 0 1 verilog-in-paren-quick verilog-modi-current verilog-modi-cache-results verilog-read-decls verilog-read-sub-decls verilog-signals-not-in append 2 verilog-signals-matching-regexp verilog-signals-not-matching-regexp verilog-forward-or-insert-line verilog-repair-open-comma verilog-insert-indent "// Beginning of automatic inouts (from unused autoinst inouts)\n" verilog-insert-definition "inout" "// End of automatics\n" verilog-repair-close-comma modsubdecls subdecls decls sig-list verilog-auto-inout-ignore-regexp] 10 (#$ . 354717)]) #@2640 Expand AUTOINOUTMODULE statements, as part of \[verilog-auto]. Take input/output/inout statements from the specified module and insert into the current module. This is useful for making null templates and shell modules which need to have identical I/O with another module. Any I/O which are already defined in this module will not be redefined. For the complement of this function, see `verilog-auto-inout-comp', and to make monitors with all inputs, see `verilog-auto-inout-in'. Limitations: If placed inside the parenthesis of a module declaration, it creates Verilog 2001 style, else uses Verilog 1995 style. Concatenation and outputting partial buses is not supported. Module names must be resolvable to filenames. See `verilog-auto-inst'. Signals are not inserted in the same order as in the original module, though they will appear to be in the same order to an AUTOINST instantiating either module. Signals declared as "output reg" or "output wire" etc will lose the wire/reg declaration so that shell modules may generate those outputs differently. However, "output logic" is propagated. An example: module ExampShell (/*AUTOARG*/); /*AUTOINOUTMODULE("ExampMain")*/ endmodule module ExampMain (i,o,io); input i; output o; inout io; endmodule Typing \[verilog-auto] will make this into: module ExampShell (/*AUTOARG*/i,o,io); /*AUTOINOUTMODULE("ExampMain")*/ // Beginning of automatic in/out/inouts (from specific module) output o; inout io; input i; // End of automatics endmodule You may also provide an optional regular expression, in which case only signals matching the regular expression will be included. For example the same expansion will result from only extracting signals starting with i: /*AUTOINOUTMODULE("ExampMain","^i")*/ You may also provide an optional third argument regular expression, in which case only signals which have that pin direction and data type matching that regular expression will be included. This matches against everything before the signal name in the declaration, for example against "input" (single bit), "output logic" (direction and type) or "output [1:0]" (direction and implicit type). You also probably want to skip spaces in your regexp. For example, the below will result in matching the output "o" against the previous example's module: /*AUTOINOUTMODULE("ExampMain","","^output.*")*/ You may also provide an optional fourth argument regular expression, which if not "" only signals which do NOT match that expression are included. (defalias 'verilog-auto-inout-module #[(&optional complement all-in) "\212\306\307\310\"\211@A@\3118\3128 \313 \314 \315\"\211\205\224\316 %\317 &\320 \211 ' '\321'\322\") ( '\321'\322\") )\323*\203e \324)\211 +\311H))\211 +\307H))\211 +\325H)#\202} ,\203u )\211 +\325H)\202} )\211 +\311H)\324(\211 +\311H)!\" -\323*\203\224 \313\202\254 ,\203\244 )\211 +\311H)\202\254 )\211 +\325H)\324(\211 +\325H)!\" .\323*\203\303 \313\202\313 )\211 +\307H)\324(\211 +\307H)!\" /\323)\211 +\326H)\324(\211 +\326H)!\" 0\307y\210\327\330\331\332-\n\"\333 #\f\"!-\327\330\331\332.\n\"\334 #\f\"!.\327\330\331\332/\n\"\335 #\f\"!/\330\331\3320\n\"\336 #\f\"0&\2037\337 \210-\204K.\204K/\204K0\203\213\340\341!\210\342'.\334%&\315&\210\342'/\335%&\315&\210\342'-\333%&\315&\210\342'0\336%&\315&\210\340\343!\210&\205\222\344 . .\207" [params submod regexp direction-re not-re submodi verilog-read-auto-params 1 4 2 3 nil verilog-modi-lookup t current-indentation verilog-in-paren-quick verilog-modi-current verilog-modi-cache-results verilog-read-decls verilog-signals-not-in append 0 8 verilog-signals-edit-wire-reg verilog-signals-not-matching-regexp verilog-signals-matching-dir-re verilog-signals-matching-regexp "input" "output" "inout" "interface" verilog-repair-open-comma verilog-insert-indent "// Beginning of automatic in/out/inouts (from specific module)\n" verilog-insert-definition "// End of automatics\n" verilog-repair-close-comma indent-pt v2k modi moddecls submoddecls all-in decls complement sig-list-i sig-list-o sig-list-io sig-list-if] 8 (#$ . 357280)]) #@2414 Expand AUTOINOUTCOMP statements, as part of \[verilog-auto]. Take input/output/inout statements from the specified module and insert the inverse into the current module (inputs become outputs and vice-versa.) This is useful for making test and stimulus modules which need to have complementing I/O with another module. Any I/O which are already defined in this module will not be redefined. For the complement of this function, see `verilog-auto-inout-module'. Limitations: If placed inside the parenthesis of a module declaration, it creates Verilog 2001 style, else uses Verilog 1995 style. Concatenation and outputting partial buses is not supported. Module names must be resolvable to filenames. See `verilog-auto-inst'. Signals are not inserted in the same order as in the original module, though they will appear to be in the same order to an AUTOINST instantiating either module. An example: module ExampShell (/*AUTOARG*/); /*AUTOINOUTCOMP("ExampMain")*/ endmodule module ExampMain (i,o,io); input i; output o; inout io; endmodule Typing \[verilog-auto] will make this into: module ExampShell (/*AUTOARG*/i,o,io); /*AUTOINOUTCOMP("ExampMain")*/ // Beginning of automatic in/out/inouts (from specific module) output i; inout io; input o; // End of automatics endmodule You may also provide an optional regular expression, in which case only signals matching the regular expression will be included. For example the same expansion will result from only extracting signals starting with i: /*AUTOINOUTCOMP("ExampMain","^i")*/ You may also provide an optional third argument regular expression, in which case only signals which have that pin direction and data type matching that regular expression will be included. This matches against everything before the signal name in the declaration, for example against "input" (single bit), "output logic" (direction and type) or "output [1:0]" (direction and implicit type). You also probably want to skip spaces in your regexp. For example, the below will result in matching the output "o" against the previous example's module: /*AUTOINOUTCOMP("ExampMain","","^output.*")*/ You may also provide an optional fourth argument regular expression, which if not "" only signals which do NOT match that expression are included. (defalias 'verilog-auto-inout-comp #[nil "\300\301\302\"\207" [verilog-auto-inout-module t nil] 3 (#$ . 361559)]) #@1589 Expand AUTOINOUTIN statements, as part of \[verilog-auto]. Take input/output/inout statements from the specified module and insert them as all inputs into the current module. This is useful for making monitor modules which need to see all signals as inputs based on another module. Any I/O which are already defined in this module will not be redefined. See also `verilog-auto-inout-module'. Limitations: If placed inside the parenthesis of a module declaration, it creates Verilog 2001 style, else uses Verilog 1995 style. Concatenation and outputting partial buses is not supported. Module names must be resolvable to filenames. See `verilog-auto-inst'. Signals are not inserted in the same order as in the original module, though they will appear to be in the same order to an AUTOINST instantiating either module. An example: module ExampShell (/*AUTOARG*/); /*AUTOINOUTIN("ExampMain")*/ endmodule module ExampMain (i,o,io); input i; output o; inout io; endmodule Typing \[verilog-auto] will make this into: module ExampShell (/*AUTOARG*/i,o,io); /*AUTOINOUTIN("ExampMain")*/ // Beginning of automatic in/out/inouts (from specific module) input i; input io; input o; // End of automatics endmodule You may also provide an optional regular expression, in which case only signals matching the regular expression will be included. For example the same expansion will result from only extracting signals starting with i: /*AUTOINOUTIN("ExampMain","^i")*/ (defalias 'verilog-auto-inout-in #[nil "\300\301\302\"\207" [verilog-auto-inout-module nil t] 3 (#$ . 364094)]) #@1518 Expand AUTOINOUTPARAM statements, as part of \[verilog-auto]. Take input/output/inout statements from the specified module and insert into the current module. This is useful for making null templates and shell modules which need to have identical I/O with another module. Any I/O which are already defined in this module will not be redefined. For the complement of this function, see `verilog-auto-inout-comp', and to make monitors with all inputs, see `verilog-auto-inout-in'. Limitations: If placed inside the parenthesis of a module declaration, it creates Verilog 2001 style, else uses Verilog 1995 style. Module names must be resolvable to filenames. See `verilog-auto-inst'. Parameters are inserted in the same order as in the original module. Parameters do not have values, which is SystemVerilog 2009 syntax. An example: module ExampShell (); /*AUTOINOUTPARAM("ExampMain")*/ endmodule module ExampMain (); parameter PARAM = 22; endmodule Typing \[verilog-auto] will make this into: module ExampShell (/*AUTOARG*/i,o,io); /*AUTOINOUTPARAM("ExampMain")*/ // Beginning of automatic parameters (from specific module) parameter PARAM; // End of automatics endmodule You may also provide an optional regular expression, in which case only parameters matching the regular expression will be included. For example the same expansion will result from only extracting parameters starting with i: /*AUTOINOUTPARAM("ExampMain","^i")*/ (defalias 'verilog-auto-inout-param #[nil "\212\306\307\310\"\211@A@\311\312 \313\"\211\205\200 \314 \315 \316 \211 \317 \320\") \317 \320\") \321 \211 \322H)\323 \211 \322H)!\" \307y\210\324 \n\" \203_ \325 \210 \203x \326\327!\210\330 \331\f \313&\210\326\332!\210 \205~ \333 .-\207" [params submod regexp submodi indent-pt v2k verilog-read-auto-params 1 2 nil verilog-modi-lookup t current-indentation verilog-in-paren-quick verilog-modi-current verilog-modi-cache-results verilog-read-decls verilog-signals-not-in 7 append verilog-signals-matching-regexp verilog-repair-open-comma verilog-insert-indent "// Beginning of automatic parameters (from specific module)\n" verilog-insert-definition "parameter" "// End of automatics\n" verilog-repair-close-comma modi moddecls submoddecls decls sig-list-p] 8 (#$ . 365802)]) #@1813 Expand AUTOINOUTMODPORT statements, as part of \[verilog-auto]. Take input/output/inout statements from the specified interface and modport and insert into the current module. This is useful for making verification modules that connect to UVM interfaces. The first parameter is the name of an interface. The second parameter is a regexp of modports to read from in that interface. The optional third parameter is a regular expression, and only signals matching the regular expression will be included. Limitations: If placed inside the parenthesis of a module declaration, it creates Verilog 2001 style, else uses Verilog 1995 style. Interface names must be resolvable to filenames. See `verilog-auto-inst'. As with other autos, any inputs/outputs declared in the module will suppress the AUTO from redeclaring an inputs/outputs by the same name. An example: interface ExampIf ( input logic clk ); logic req_val; logic [7:0] req_dat; clocking mon_clkblk @(posedge clk); input req_val; input req_dat; endclocking modport mp(clocking mon_clkblk); endinterface module ExampMain ( input clk, /*AUTOINOUTMODPORT("ExampIf" "mp")*/ // Beginning of automatic in/out/inouts (from modport) input [7:0] req_dat, input req_val // End of automatics ); /*AUTOASSIGNMODPORT("ExampIf" "mp")*/ endmodule Typing \[verilog-auto] will make this into: ... module ExampMain ( input clk, /*AUTOINOUTMODPORT("ExampIf" "mp")*/ // Beginning of automatic in/out/inouts (from modport) input req_dat, input req_val // End of automatics ); If the modport is part of a UVM monitor/driver class, this creates a wrapper module that may be used to instantiate the driver/monitor using AUTOINST in the testbench. (defalias 'verilog-auto-inout-modport #[nil "\212\306\307\310\"\211@A@\3078\311\211 \312 \313\"\211\205\"\314 $\315 %\316 \211 & &\317&\320\") ' &\317&\320\") (\321 \n\" )\322(\211 *\310H)\323)\211 *\307H)\324\325(!\325'!\"\"\" +\322(\211 *\310H)\323)\211 *\326H)\324\325(!\325'!\"\"\" ,\322(\211 *\310H)\323)\211 *\327H)\324\325(!\325'!\"\"\" -\327y\210\330\331\332+ \"\333\f#!+\330\331\332, \"\334\f#!,\330\331\332- \"\335\f#!-%\203\330 \336 \210+\204\347 ,\204\347 -\203\337\340!\210\341&,\334$%\313&\210\341&-\335$%\313&\210\341&+\333$%\313&\210\337\342!\210%\205 \343 . .\207" [params submod modport-re regexp direction-re submodi verilog-read-auto-params 2 3 nil verilog-modi-lookup t current-indentation verilog-in-paren-quick verilog-modi-current verilog-modi-cache-results verilog-read-decls verilog-modi-modport-lookup verilog-signals-in verilog-signals-not-in append verilog-decls-get-ports 0 1 verilog-signals-edit-wire-reg verilog-signals-matching-dir-re verilog-signals-matching-regexp "input" "output" "inout" verilog-repair-open-comma verilog-insert-indent "// Beginning of automatic in/out/inouts (from modport)\n" verilog-insert-definition "// End of automatics\n" verilog-repair-close-comma indent-pt v2k modi moddecls submoddecls submodportdecls decls sig-list-i sig-list-o sig-list-io] 9 (#$ . 368182)]) #@1287 Expand AUTOINSERTLISP statements, as part of \[verilog-auto]. The Lisp code provided is called before other AUTOS are expanded, and the Lisp code generally will call `insert' to insert text into the current file beginning on the line after the AUTOINSERTLISP. See also AUTOINSERTLAST and `verilog-auto-insert-last' which executes after (as opposed to before) other AUTOs. See also AUTO_LISP, which takes a Lisp expression and evaluates it during `verilog-auto-inst' but does not insert any text. An example: module ExampInsertLisp; /*AUTOINSERTLISP(my-verilog-insert-hello "world")*/ endmodule // For this example we declare the function in the // module's file itself. Often you'd define it instead // in a site-start.el or init file. /* Local Variables: eval: (defun my-verilog-insert-hello (who) (insert (concat "initial $write(\"hello " who "\");\n"))) End: */ Typing \[verilog-auto] will call my-verilog-insert-hello and expand the above into: // Beginning of automatic insert lisp initial $write("hello world"); // End of automatics You can also call an external program and insert the returned text: /*AUTOINSERTLISP(insert (shell-command-to-string "echo //hello"))*/ // Beginning of automatic insert lisp //hello // End of automatics (defalias 'verilog-auto-insert-lisp #[nil "\212\305 \212\306\307!\210\310u\210`)\212 b\210\311\312!\210`)\313\n \"\314 \210\315\316!\210\315\317!\210\320y\210\321\322 !!\210\320y\210\310\323 -\207" [indent-pt cmd-end-pt cmd-beg-pt cmd verilog-scan-cache-tick current-indentation search-backward ")" nil backward-sexp 1 buffer-substring-no-properties verilog-forward-or-insert-line verilog-insert-indent "// Beginning of automatic insert lisp\n" "// End of automatics\n" -1 eval read verilog-delete-empty-auto-pair] 3 (#$ . 371383)]) #@515 Expand AUTOINSERTLAST statements, as part of \[verilog-auto]. The Lisp code provided is called after all other AUTOS have been expanded, and the Lisp code generally will call `insert' to insert text into the current file beginning on the line after the AUTOINSERTLAST. Other than when called (after AUTOs are expanded), the functionality is otherwise identical to AUTOINSERTLISP and `verilog-auto-insert-lisp' which executes before (as opposed to after) other AUTOs. See `verilog-auto-insert-lisp' for examples. (defalias 'verilog-auto-insert-last #[nil "\300 \207" [verilog-auto-insert-lisp] 1 (#$ . 373214)]) #@53 Return list of signals for current AUTOSENSE block. (defalias 'verilog-auto-sense-sigs #[(moddecls presense-sigs) "\212\306\307!\210\310 )\311\312\211\313H)\314\n?\205 \211\315H)\n?\205( \211\316H)\211\317H) \211 \320H) \211 \321H) &\"!)\207" [sigss sigs verilog-auto-sense-include-inputs moddecls decls presense-sigs search-forward ")" verilog-read-always-signals verilog-signals-not-params verilog-signals-not-in 3 append 0 1 2 6 7] 11 (#$ . 373833)]) #@2065 Expand AUTOSENSE statements, as part of \[verilog-auto]. Replace the always (/*AUTOSENSE*/) sensitivity list (/*AS*/ for short) with one automatically derived from all inputs declared in the always statement. Signals that are generated within the same always block are NOT placed into the sensitivity list (see `verilog-auto-sense-include-inputs'). Long lines are split based on the `fill-column', see \[set-fill-column]. Limitations: Verilog does not allow memories (multidimensional arrays) in sensitivity lists. AUTOSENSE will thus exclude them, and add a /*memory or*/ comment. Constant signals: AUTOSENSE cannot always determine if a \=`define is a constant or a signal (it could be in an include file for example). If a \=`define or other signal is put into the AUTOSENSE list and is not desired, use the AUTO_CONSTANT declaration anywhere in the module (parenthesis are required): /* AUTO_CONSTANT ( \=`this_is_really_constant_dont_autosense_it ) */ Better yet, use a parameter, which will be understood to be constant automatically. OOps! If AUTOSENSE makes a mistake, please report it. (First try putting a begin/end after your always!) As a workaround, if a signal that shouldn't be in the sensitivity list was, use the AUTO_CONSTANT above. If a signal should be in the sensitivity list wasn't, placing it before the /*AUTOSENSE*/ comment will prevent it from being deleted when the autos are updated (or added if it occurs there already). An example: always @ (/*AS*/) begin /* AUTO_CONSTANT (\=`constant) */ outin = ina | inb | \=`constant; out = outin; end Typing \[verilog-auto] will make this into: always @ (/*AS*/ina or inb) begin /* AUTO_CONSTANT (\=`constant) */ outin = ina | inb | \=`constant; out = outin; end Note in Verilog 2001, you can often get the same result from the new @* operator. (This was added to the language in part due to AUTOSENSE!) always @* begin outin = ina | inb | \=`constant; out = outin; end (defalias 'verilog-auto-sense #[nil "\212\212\306\307\310\307 \204- \311\n #\203- \312\313\224!\203& \311\314\307\310#\210\202\n \313\224\211\203 ,\210`) \212\fb\203> iT\206@ \315 ) \316 \211 % %\317%\320\") &\321&\211 '\322H)! (\307\211 ) *\307 +\323\212\324\f`\")!+\325&+\")(\203\230 )G ,\326)(\"),)G=\204\227 \327\330!\210)+\203l\212`b\210\331\f\310\307 \204\314 \311\n #\203\314 \312\313\224!\203\305 \311\314\307\310#\210\202\251 \313\224\211\203\255 ,\210\332\f\310\307 \204\372 \311\n #\203\372 \312\313\224!\203\363 \311\314\307\310#\210\202\327 \313\224\211\203\333 ,\210\333\334!\203b\331\f\310\307 \204.\311\n #\203.\312\313\224!\203'\311\314\307\310#\210\202 \313\224\211\203 ,\210\332\f\310\307 \204\\\311\n #\203\\\312\313\224!\203U\311\314\307\310#\210\2029\313\224\211\203= ,\210\202\375 \333\335!)\204l\310*\336)\337\"))\205\271\340\341i)@\211 -@)G#.V\203\234\342c\210 j\210*\203\244\343c\210\202\244*\203\244\344c\210)@\211 -@)c\210)A)\310*\202s. \207" [noerror bound regexp pt start-pt indent-pt "(" nil t re-search-backward verilog-inside-comment-or-string-p 0 "[/\"]" current-indentation verilog-modi-current verilog-modi-cache-results verilog-read-decls verilog-signals-memory 3 verilog-signals-from-signame verilog-read-signals verilog-auto-sense-sigs verilog-signals-not-in verilog-insert " /*memory or*/ " "[a-zA-Z0-9$_.%`]+" "\\s-" looking-at "\\s-`endif" "\\s-or\\b" sort verilog-signals-sort-compare + 4 "\n" "or " " or " modi moddecls decls sig-memories sig-list not-first presense-sigs tlen sig fill-column] 5 (#$ . 374306)]) #@2229 Expand AUTORESET statements, as part of \[verilog-auto]. Replace the /*AUTORESET*/ comment with code to initialize all registers set elsewhere in the always block. Limitations: AUTORESET will not clear memories. AUTORESET uses <= if the signal has a <= assignment in the block, else it uses =. If <= is used, all = assigned variables are ignored if `verilog-auto-reset-blocking-in-non' is nil; they are presumed to be temporaries. /*AUTORESET*/ presumes that any signals mentioned between the previous begin/case/if statement and the AUTORESET comment are being reset manually and should not be automatically reset. This includes omitting any signals used on the right hand side of assignments. By default, AUTORESET will include the width of the signal in the autos, SystemVerilog designs may want to change this. To control this behavior, see `verilog-auto-reset-widths'. In some cases AUTORESET must use a \='0 assignment and it will print NOWIDTH; use `verilog-auto-reset-widths' unbased to prevent this. AUTORESET ties signals to deasserted, which is presumed to be zero. Signals that match `verilog-active-low-regexp' will be deasserted by tying them to a one. AUTORESET may try to reset arrays or structures that cannot be reset by a simple assignment, resulting in compile errors. This is a feature to be taken as a hint that you need to reset these signals manually (or put them into a "\=`ifdef NEVER signal<=\=`0; \=`endif" so Verilog-Mode ignores them.) An example: always @(posedge clk or negedge reset_l) begin if (!reset_l) begin c <= 1; /*AUTORESET*/ end else begin a <= in_a; b <= in_b; c <= in_c; end end Typing \[verilog-auto] will make this into: always @(posedge core_clk or negedge reset_l) begin if (!reset_l) begin c <= 1; /*AUTORESET*/ // Beginning of autoreset for uninitialized flops a <= 0; b = 0; // if `verilog-auto-reset-blocking-in-non' true // End of automatics end else begin a <= in_a; b = in_b; c <= in_c; end end (defalias 'verilog-auto-reset #[nil "\212\306 \307 \211\310 \311\")\312\n!\313\211 \313\211 % &\314\212\315\212\316\313\317 ' ( )\313 **\204U \320)('#\203U \321\322\224!\203M \320\323\313\317#\210\202- \322\224\211*\2032 *,\210`)`\")!&\212\324\313\317 ' ( )\313 **\204\226 \320)('#\203\226 \321\322\224!\203\216 \320\323\313\317#\210\202n \322\224\211*\203s *,\210\325 )\f\211 +\322H)%\326\327\f\211 +\322H)\f\211 +\322H)\203\277 ,\205\306 \f\211 +\330H)\"\327\f\211 +\331H)&\"\"\332 \333\"\211\205+\334c\210\335\336!\210 \203(\337 @\211 -@) \"\206\367 @ -j\210-\211 -@)\337-\211 -@)%\"\203\340.P\202\341\342-!\343\261\210 A)\202\344 \335\344!. \207" [indent-pt modi moddecls all-list sigss sig-list current-indentation verilog-modi-current verilog-modi-cache-results verilog-read-decls verilog-decls-get-signals nil verilog-signals-from-signame verilog-read-signals "\\(@\\|\\<\\(begin\\|if\\|case[xz]?\\|always\\(_latch\\|_ff\\|_comb\\)?\\)\\>\\)" t re-search-backward verilog-inside-comment-or-string-p 0 "[/\"]" "\\(@\\|\\<\\(always\\(_latch\\|_ff\\|_comb\\)?\\)\\>\\)" verilog-read-always-signals verilog-signals-not-in-struct append 1 2 sort verilog-signals-sort-compare "\n" verilog-insert-indent "// Beginning of autoreset for uninitialized flops\n" assoc " <= " " = " verilog-sig-tieoff ";\n" "// End of automatics" dly-list prereset-sigs noerror bound regexp pt sigs verilog-auto-reset-blocking-in-non sig verilog-assignment-delay] 7 (#$ . 378014) nil]) #@1727 Expand AUTOTIEOFF statements, as part of \[verilog-auto]. Replace the /*AUTOTIEOFF*/ comment with code to wire-tie all unused output signals to deasserted. /*AUTOTIEOFF*/ is used to make stub modules; modules that have the same input/output list as another module, but no internals. Specifically, it finds all outputs in the module, and if that input is not otherwise declared as a register or wire, nor comes from a AUTOINST submodule's output, creates a tieoff. AUTOTIEOFF does not examine assignments to determine what is already driven. AUTORESET ties signals to deasserted, which is presumed to be zero. Signals that match `verilog-active-low-regexp' will be deasserted by tying them to a one. You can add signals you do not want included in AUTOTIEOFF with `verilog-auto-tieoff-ignore-regexp'. `verilog-auto-wire-type' may be used to change the datatype of the declarations. `verilog-auto-reset-widths' may be used to change how the tieoff value's width is generated. An example of making a stub for another module: module ExampStub (/*AUTOINST*/); /*AUTOINOUTPARAM("Foo")*/ /*AUTOINOUTMODULE("Foo")*/ /*AUTOTIEOFF*/ // verilator lint_off UNUSED wire _unused_ok = &{1\='b0, /*AUTOUNUSED*/ 1\='b0}; // verilator lint_on UNUSED endmodule Typing \[verilog-auto] will make this into: module ExampStub (/*AUTOINST*/...); /*AUTOINOUTPARAM("Foo")*/ /*AUTOINOUTMODULE("Foo")*/ // Beginning of autotieoff output [2:0] foo; // End of automatics /*AUTOTIEOFF*/ // Beginning of autotieoff wire [2:0] foo = 3\='b0; // End of automatics ... endmodule (defalias 'verilog-auto-tieoff #[nil "\212\306 \307 \211\310 \311\") \310 \312\")\313\n\211 \314H)\315\n\211 \316H)\n\211 \317H)\n\211 \320H)\n\211 \321H) \211 \322H) \211 \314H) \211 \323H)&\" %\324%&\"\211%\205\277 \325 \210\326\327!\210\330\331%!\332\"% % %\333 \311\316%$*\210%\203\274 %@ '(\334\267\202\233 j\210\335'\211 '@)\261\210\202\243 \336'(#\210\337\340\\]j\210\341\342'!\343\261\210%A%)\202y \326\344!.\207" [indent-pt modi moddecls modsubdecls decls subdecls current-indentation verilog-modi-current verilog-modi-cache-results verilog-read-decls verilog-read-sub-decls verilog-signals-not-in 0 append 3 5 6 7 4 1 verilog-signals-not-matching-regexp verilog-forward-or-insert-line verilog-insert-indent "// Beginning of automatic tieoffs (for this module's unterminated outputs)\n" sort copy-alist verilog-signals-sort-compare verilog-modi-cache-add #s(hash-table size 1 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ("assign" 138)) "assign " verilog-insert-one-definition 48 40 "= " verilog-sig-tieoff ";\n" "// End of automatics\n" sig-list verilog-auto-tieoff-ignore-regexp sig verilog-auto-tieoff-declaration] 12 (#$ . 381754) nil]) #@1016 Expand AUTOUNDEF statements, as part of \[verilog-auto]. Take any \=`defines since the last AUTOUNDEF in the current file and create \=`undefs for them. This is used to insure that file-local defines do not pollute the global \=`define name space. Limitations: AUTOUNDEF presumes any identifier following \=`define is the name of a define. Any \=`ifdefs are ignored. AUTOUNDEF suppresses creating an \=`undef for any define that was \=`undefed before the AUTOUNDEF. This may be used to work around the ignoring of \=`ifdefs as shown below. An example: \=`define XX_FOO \=`define M_BAR(x) \=`define M_BAZ ... \=`ifdef NEVER \=`undef M_BAZ // Emacs will see this and not \=`undef M_BAZ \=`endif ... /*AUTOUNDEF*/ Typing \[verilog-auto] will make this into: ... /*AUTOUNDEF*/ // Beginning of automatic undefs \=`undef XX_FOO \=`undef M_BAR // End of automatics You may also provide an optional regular expression, in which case only defines the regular expression will be undefed. (defalias 'verilog-auto-undef #[nil "\212\306\307\310\"\211@\311 `\312\211 \212\313 \314 ! \"\312 ##\204E \315 \"!#\203E \316\307\224!\203= \315\317\312\314#\210\202 \307\224\211#\203# #,\204N eb\210\320 \314 ! \"\312 ##\204\200 \321 \"!#\203\200 \316\307\224!\203x \321\322\312\314#\210\202Y \307\225\211#\203^ #,\203\310\312\224\205\243 \211\203\235 \323\224\225#\266\202\202\245 \324\224\225\"\266\202\325\232\203\342 \326\312\224\205\307 \211\203\301 \323\224\225#\266\202\202\311 \324\224\225\"\266\202 \203\325 \327 \"\203N \f\235\204N \fB\202N \330\326\312\224\205 \211\203\372 \323\224\225#\266\202\202\324\224\225\"\266\202\f\"\202N )\331\f\332\"\211\205.\333 \210\334\335!\210\f\203+\334\336\f@\337#\210\fA\211\204 \334\340!.\207" [params regexp indent-pt end-pt defs def verilog-read-auto-params 0 1 current-indentation nil "/\\*AUTOUNDEF\\>" t re-search-backward verilog-inside-comment-or-string-p "[/\"]" "`\\(define\\|undef\\)\\s-*\\([a-zA-Z_][a-zA-Z_0-9]*\\)" re-search-forward "[/\"\n]" substring-no-properties buffer-substring-no-properties "define" 2 string-match delete sort string< verilog-forward-or-insert-line verilog-insert-indent "// Beginning of automatic undefs\n" "`undef " "\n" "// End of automatics\n" noerror bound pt] 8 (#$ . 384690)]) #@1945 Expand AUTOUNUSED statements, as part of \[verilog-auto]. Replace the /*AUTOUNUSED*/ comment with a comma separated list of all unused input and inout signals. /*AUTOUNUSED*/ is used to make stub modules; modules that have the same input/output list as another module, but no internals. Specifically, it finds all inputs and inouts in the module, and if that input is not otherwise used, adds it to a comma separated list. The comma separated list is intended to be used to create a _unused_ok signal. Using the exact name "_unused_ok" for name of the temporary signal is recommended as it will insure maximum forward compatibility, it also makes lint warnings easy to understand; ignore any unused warnings with "unused" in the signal name. To reduce simulation time, the _unused_ok signal should be forced to a constant to prevent wiggling. The easiest thing to do is use a reduction-and with 1\='b0 as shown. This way all unused signals are in one place, making it convenient to add your tool's specific pragmas around the assignment to disable any unused warnings. You can add signals you do not want included in AUTOUNUSED with `verilog-auto-unused-ignore-regexp'. An example of making a stub for another module: module ExampStub (/*AUTOINST*/); /*AUTOINOUTPARAM("Examp")*/ /*AUTOINOUTMODULE("Examp")*/ /*AUTOTIEOFF*/ // verilator lint_off UNUSED wire _unused_ok = &{1\='b0, /*AUTOUNUSED*/ 1\='b0}; // verilator lint_on UNUSED endmodule Typing \[verilog-auto] will make this into: ... // verilator lint_off UNUSED wire _unused_ok = &{1\='b0, /*AUTOUNUSED*/ // Beginning of automatics unused_input_a, unused_input_b, unused_input_c, // End of automatics 1\='b0}; // verilator lint_on UNUSED endmodule (defalias 'verilog-auto-unused #[nil "\212\306\307!\210i\310 \211\311 \312\") \311 \313\")\314\315\n\211 \316H)\n\211 \317H)\"\315 \211 \316H) \211 \317H)\"\" \320\"\211\205z \321 \210\322\323!\210\324\325!\326\"\203w @ j\210\211 @)\327\261\210A)\202V \322\330!.\207" [indent-pt modi moddecls modsubdecls decls subdecls search-backward "/*" verilog-modi-current verilog-modi-cache-results verilog-read-decls verilog-read-sub-decls verilog-signals-not-in append 2 1 verilog-signals-not-matching-regexp verilog-forward-or-insert-line verilog-insert-indent "// Beginning of automatic unused inputs\n" sort copy-alist verilog-signals-sort-compare ",\n" "// End of automatics\n" sig-list verilog-auto-unused-ignore-regexp sig] 7 (#$ . 387034) nil]) #@103 Convert an enum name SIGNM to an ascii string for insertion. Remove user provided prefix ELIM-REGEXP. (defalias 'verilog-enum-ascii #[(signm elim-regexp) "\204 \306\307\310\311\211\n \312 \313 #\2037 \314 \f $\211G\312\224 G\\^\202 .\227)\207" [elim-regexp case-fold-search signm string literal fixedcase "_ DONT MATCH IT_" t "" nil 0 string-match replace-match to-string from-string start] 5 (#$ . 389761)]) #@2310 Expand AUTOASCIIENUM statements, as part of \[verilog-auto]. Create a register to contain the ASCII decode of an enumerated signal type. This will allow trace viewers to show the ASCII name of states. First, parameters are built into an enumeration using the synopsys enum comment. The comment must be between the keyword and the symbol. (Annoying, but that's what Synopsys's dc_shell FSM reader requires.) Next, registers which that enum applies to are also tagged with the same enum. Finally, an AUTOASCIIENUM command is used. The first parameter is the name of the signal to be decoded. The second parameter is the name to store the ASCII code into. For the signal foo, I suggest the name _foo__ascii, where the leading _ indicates a signal that is just for simulation, and the magic characters _ascii tell viewers like Dinotrace to display in ASCII format. The third optional parameter is a string which will be removed from the state names. It defaults to "" which removes nothing. The fourth optional parameter is "onehot" to force one-hot decoding. If unspecified, if and only if the first parameter width is 2^(number of states in enum) and does NOT match the width of the enum, the signal is assumed to be a one-hot decode. Otherwise, it's a normal encoded state vector. `verilog-auto-wire-type' may be used to change the datatype of the declarations. "auto enum" may be used in place of "synopsys enum". An example: //== State enumeration parameter [2:0] // synopsys enum state_info SM_IDLE = 3\='b000, SM_SEND = 3\='b001, SM_WAIT1 = 3\='b010; //== State variables reg [2:0] /* synopsys enum state_info */ state_r; /* synopsys state_vector state_r */ reg [2:0] /* synopsys enum state_info */ state_e1; /*AUTOASCIIENUM("state_r", "state_ascii_r", "SM_")*/ Typing \[verilog-auto] will make this into: ... same front matter ... /*AUTOASCIIENUM("state_r", "state_ascii_r", "SM_")*/ // Beginning of automatic ASCII enum decoding reg [39:0] state_ascii_r; // Decode of state_r always @(state_r) begin case ({state_r}) SM_IDLE: state_ascii_r = "idle "; SM_SEND: state_ascii_r = "send "; SM_WAIT1: state_ascii_r = "wait1"; default: state_ascii_r = "%Erro"; endcase end // End of automatics (defalias 'verilog-auto-ascii-enum #[nil "\212\306\307\310\"\211@A@\3078\205 \3078\311\232?\205 \3078\3128 \313 \314 \211 ; ;\315;\316\") <\317<\211 =\320H)<\211 =\321H)\" >\322<! ?\323 ?\"\206^ \324\325\326 #\211 @ A\310A8)\206q \324\327\326 # B\330\331>B\"\206\204 \324\332\326 B#\333\" C\334\335\f\206\217 \311\"\206\330 C@\211 AA@)\203\303 C@ A\336A\211 AA@)!)@ A\336A\211 AA@)!)\232?\205\330 \337CG!@ A\336A\211 AA@)!)\232 D\340\211 E FC\211 G\203EG@\211 A@)G]EF\341G@\211 A@) \"G]FGA\211G\204\350 )\342 \210\343\344!\210\n\345\346F\347_S\"\350 P\333\211\257C H\351;H\352 \333%\210)\343\353 \354#\210 I\\\343\355 \356#\210 J\\C\345\357D\203Y\360\202Z\361\347E]\\\nF$\362\340\320F^O K L\211 G\203\270\343\345LD\205~\363D\205\210\337CG!D\205\216\364G@\211 A@)D\205\234\365\366\260\341G@\211 A@) \"#\260!\210GA\211G\204t\343\345L\367K#!\210+ JZ\343\370!\210 IZ\343\371\372\".\207" [params undecode-name ascii-name elim-regexp one-hot-flag indent-pt verilog-read-auto-params 2 4 "" 3 current-indentation verilog-modi-current verilog-modi-cache-results verilog-read-decls append 6 7 verilog-decls-get-iovars assoc error "%s: Signal `%s' not found in design" verilog-point-text "%s: Signal `%s' does not have an enum tag" verilog-signals-not-in verilog-signals-matching-enum "%s: No state definitions for `%s'" nil string-match "onehot" verilog-make-width-expression number-to-string 0 verilog-enum-ascii verilog-forward-or-insert-line verilog-insert-indent "// Beginning of automatic ASCII enum decoding\n" format "[%d:0]" 8 "Decode of " verilog-insert-definition "reg" "always @(" ") begin\n" "case ({" "})\n" "%%-%ds %s = \"%%-%ds\";\n" 9 1 "%Error" "(" "'b1<<" ")" ":" "default:" "endcase\n" "end\n" "// End of automatics\n" modi moddecls decls sig-list-consts sig-list-all undecode-sig sig undecode-enum enum-sigs one-hot enum-chars ascii-chars tmp-sigs decode-sig-list verilog-indent-level verilog-case-indent errname chrfmt] 10 (#$ . 390203)]) #@202 Replace Templated relative line numbers with absolute line numbers. Internal use only. This hacks around the line numbers in AUTOINST Templates being different from the final output's line numbering. (defalias 'verilog-auto-templated-rel #[nil "\303\211C\304eb\210m\204$ \305\306!\203 \nT BT\304y\210\202\n \237eb\210\307\310\311\312#\205K \313\314\315\316\317\304!! 8\316\317\320!!\\!P\312\211#\210\202* +\207" [buf-line template-line templateno 0 1 looking-at ".*AUTO_TEMPLATE" re-search-forward " Templated T\\([0-9]+\\) L\\([0-9]+\\)" nil t replace-match " Templated " int-to-string string-to-number match-string 2] 7 (#$ . 394551)]) #@89 Check AUTO_TEMPLATEs for unused lines. Enable with `verilog-auto-template-warn-unused'. (defalias 'verilog-auto-template-lint #[nil "\306 \206 \307 \212eb\210\310\311\312\313#\205[ \314 \211\315H\316\n@\nA@\"\312 \203W @ A \203% \317\320\321\f8\322\f8\" \"\204% \323\324\f\322\234\325e`\"\\\f\326\234\f\315\234%\210\202% ,\202\f *\207" [name1 tpl-info tpl-list tlines tpl-ass verilog-auto-template-hits buffer-file-name buffer-name re-search-forward "^\\s-*/?\\*?\\s-*[a-zA-Z0-9`_$]+\\s-+AUTO_TEMPLATE" nil t verilog-read-auto-template-middle 1 append gethash vector 2 3 verilog-warn-error "%s:%d: AUTO_TEMPLATE line unused: \".%s (%s)\"" count-lines 0] 8 (#$ . 395207)]) #@3433 Expand AUTO statements. Look for any /*AUTO...*/ commands in the code, as used in instantiations or argument headers. Update the list of signals following the /*AUTO...*/ command. Use \[verilog-delete-auto] to remove the AUTOs. Use \[verilog-diff-auto] to see differences in AUTO expansion. Use \[verilog-inject-auto] to insert AUTOs for the first time. Use \[verilog-faq] for a pointer to frequently asked questions. For new users, we recommend setting `verilog-case-fold' to nil and `verilog-auto-arg-sort' to t. The hooks `verilog-before-auto-hook' and `verilog-auto-hook' are called before and after this function, respectively. For example: module ModuleName (/*AUTOARG*/); /*AUTOINPUT*/ /*AUTOOUTPUT*/ /*AUTOWIRE*/ /*AUTOREG*/ InstMod instName #(/*AUTOINSTPARAM*/) (/*AUTOINST*/); You can also update the AUTOs from the shell using: emacs --batch <filenames.v> -f verilog-batch-auto Or fix indentation with: emacs --batch <filenames.v> -f verilog-batch-indent Likewise, you can delete or inject AUTOs with: emacs --batch <filenames.v> -f verilog-batch-delete-auto emacs --batch <filenames.v> -f verilog-batch-inject-auto Or check if AUTOs have the same expansion emacs --batch <filenames.v> -f verilog-batch-diff-auto Using \[describe-function], see also: `verilog-auto-arg' for AUTOARG module instantiations `verilog-auto-ascii-enum' for AUTOASCIIENUM enumeration decoding `verilog-auto-assign-modport' for AUTOASSIGNMODPORT assignment to/from modport `verilog-auto-inout' for AUTOINOUT making hierarchy inouts `verilog-auto-inout-comp' for AUTOINOUTCOMP copy complemented i/o `verilog-auto-inout-in' for AUTOINOUTIN inputs for all i/o `verilog-auto-inout-modport' for AUTOINOUTMODPORT i/o from an interface modport `verilog-auto-inout-module' for AUTOINOUTMODULE copying i/o from elsewhere `verilog-auto-inout-param' for AUTOINOUTPARAM copying params from elsewhere `verilog-auto-input' for AUTOINPUT making hierarchy inputs `verilog-auto-insert-lisp' for AUTOINSERTLISP insert code from lisp function `verilog-auto-insert-last' for AUTOINSERTLAST insert code from lisp function `verilog-auto-inst' for AUTOINST instantiation pins `verilog-auto-star' for AUTOINST .* SystemVerilog pins `verilog-auto-inst-param' for AUTOINSTPARAM instantiation params `verilog-auto-logic' for AUTOLOGIC declaring logic signals `verilog-auto-output' for AUTOOUTPUT making hierarchy outputs `verilog-auto-output-every' for AUTOOUTPUTEVERY making all outputs `verilog-auto-reg' for AUTOREG registers `verilog-auto-reg-input' for AUTOREGINPUT instantiation registers `verilog-auto-reset' for AUTORESET flop resets `verilog-auto-sense' for AUTOSENSE or AS always sensitivity lists `verilog-auto-tieoff' for AUTOTIEOFF output tieoffs `verilog-auto-undef' for AUTOUNDEF \=`undef of local \=`defines `verilog-auto-unused' for AUTOUNUSED unused inputs/inouts `verilog-auto-wire' for AUTOWIRE instantiation wires `verilog-read-defines' for reading \=`define values `verilog-read-includes' for reading \=`includes If you have bugs with these autos, please file an issue at URL `http://www.veripool.org/verilog-mode' or contact the AUTOAUTHOR Wilson Snyder (wsnyder@wsnyder.org). (defalias 'verilog-auto #[(&optional inject) "\204 \306\307!\210\310\311!\203 \311 \210 \203\235\312 ?\205 \313 \n\314\211e\315 @ A B\316 \2043 \315Cp D\212\315E\317 \210F\320=\204G \320 \210\314 G\321\322!\210)\323 \210\324 \210\325ed\"\210\326 \210p\315\211 H I @J\203t \327 \210\330\315\211\314#\210\331\332\333\"\210\334 p K L\335 \210M\203\221 \336 \210\337 \210\340 \210\331\341\342\"\210\331\343\344\"\210\331\345\346\"\210\331\347\350\"\210\331\351\352\"\210\331\353\354\"\210\331\355\356\"\210\331\357\360\"\210\331\361\362\"\210\331\363\364\"\210\331\365\366\"\210\331\367\370\"\210\331\371\372\"\210\331\373\374\"\210\331\375\376\"\210\331\377\201Y \"\210\331\332\201Z \"\210\331\201[ \201\\ \"\210\331\201] \201^ \"\210\331\201_ \201` \"\210\331\201a \201b \"\210\331\201c \201d \"\210\331\201e \201f \"\210\331\201g \201h \"\210\331\201i \201j \"\210\331\201k \201l \"\210N\203E\201m \210O\203O\201n \210-\314 G\321\201o !\210)P\203d\201p \210\201q \201Q !\210\334 QB\203\220B\313 \232\203\220\201r \315!\210?\205\232\306\201s !\202\232?\205\232\306\201t !.\207\314 G\321\201u !\210)deZ\201v \201R !\205\303R\205\303\201R \201w !\210\314 S\201x \201W ed#\210\201y \216\314\211 T U\314 V\315\211 W X\312 ?\205\352\313 \n\314\211e\315 @ A B\316 \204 \315Cp D\212\315E\317 \210F\320=\204\320 \210\314 G\321\322!\210)\323 \210\324 \210\325ed\"\210\326 \210p\315\211 H I @J\203A\327 \210\330\315\211\314#\210\331\332\333\"\210\334 p K L\335 \210M\203^\336 \210\337 \210\340 \210\331\341\342\"\210\331\343\344\"\210\331\345\346\"\210\331\347\350\"\210\331\351\352\"\210\331\353\354\"\210\331\355\356\"\210\331\357\360\"\210\331\361\362\"\210\331\363\364\"\210\331\365\366\"\210\331\367\370\"\210\331\371\372\"\210\331\373\374\"\210\331\375\376\"\210\331\377\201Y \"\210\331\332\201Z \"\210\331\201[ \201\\ \"\210\331\201] \201^ \"\210\331\201_ \201` \"\210\331\201a \201b \"\210\331\201c \201d \"\210\331\201e \201f \"\210\331\201g \201h \"\210\331\201i \201j \"\210\331\201k \201l \"\210N\203\201m \210O\203 \201n \210-\314 G\321\201o !\210)P\2031\201p \210\201q \201Q !\210\334 QB\203]B\313 \232\203]\201r \315!\210?\205g\306\201s !\202g?\205g\306\201t !.\207" [noninteractive verilog-save-font-mod-hooked verilog-case-fold verilog-modi-cache-current verilog-modi-cache-current-max verilog-modi-cache-current-enable message "Updating AUTOs..." fboundp dinotrace-unannotate-all buffer-modified-p buffer-string t nil verilog-scan-cache-ok-p verilog-read-auto-template-init verilog-mode run-hooks verilog-before-auto-hook verilog-auto-reeval-locals verilog-read-auto-lisp-present verilog-read-auto-lisp verilog-getopt-flags verilog-read-includes verilog-read-defines verilog-auto-re-search-do "/\\*AUTOLOGIC\\*/" verilog-auto-logic-setup buffer-chars-modified-tick verilog-delete-auto-buffer verilog-inject-inst verilog-inject-sense verilog-inject-arg "/\\*AUTOINSERTLISP(.*?)\\*/" verilog-auto-insert-lisp "/\\*AUTOINSTPARAM\\*/" verilog-auto-inst-param "/\\*AUTOINST\\*/" verilog-auto-inst "\\.\\*" verilog-auto-star "/\\*AUTOASCIIENUM(.*?)\\*/" verilog-auto-ascii-enum "/\\*AUTOINOUTMODPORT(.*?)\\*/" verilog-auto-inout-modport "/\\*AUTOINOUTMODULE(.*?)\\*/" verilog-auto-inout-module "/\\*AUTOINOUTCOMP(.*?)\\*/" verilog-auto-inout-comp "/\\*AUTOINOUTIN(.*?)\\*/" verilog-auto-inout-in "/\\*AUTOINOUTPARAM(.*?)\\*/" verilog-auto-inout-param "/\\*AUTOOUTPUT\\((.*?)\\)?\\*/" verilog-auto-output "/\\*AUTOINPUT\\((.*?)\\)?\\*/" verilog-auto-input "/\\*AUTOINOUT\\((.*?)\\)?\\*/" verilog-auto-inout "/\\*AUTOTIEOFF\\*/" verilog-auto-tieoff "/\\*AUTOUNDEF\\((.*?)\\)?\\*/" verilog-auto-undef "/\\*AUTOASSIGNMODPORT(.*?)\\*/" verilog-dir-cache-preserving case-fold-search oldbuf verilog-scan-cache-tick verilog-scan-cache-preserving verilog-modi-cache-list major-mode verilog-in-hooks verilog-dir-cache-lib-filenames verilog-dir-cache-list verilog-auto-read-includes verilog-modi-cache-preserve-buffer verilog-modi-cache-preserve-tick inject verilog-auto-inst-template-numbers verilog-auto-template-warn-unused verilog-auto-delete-trailing-whitespace verilog-auto-update-tick font-lock-mode fontlocked inhibit-point-motion-hooks inhibit-modification-hooks verilog-no-change-functions before-change-functions after-change-functions verilog-auto-assign-modport verilog-auto-logic "/\\*AUTOWIRE\\*/" verilog-auto-wire "/\\*AUTOREG\\*/" verilog-auto-reg "/\\*AUTOREGINPUT\\*/" verilog-auto-reg-input "/\\*AUTOOUTPUTEVERY\\((.*?)\\)?\\*/" verilog-auto-output-every "/\\*\\(AUTOSENSE\\|AS\\)\\*/" verilog-auto-sense "/\\*AUTORESET\\*/" verilog-auto-reset "/\\*AUTOUNUSED\\*/" verilog-auto-unused "/\\*AUTOARG\\*/" verilog-auto-arg "/\\*AUTOINSERTLAST(.*?)\\*/" verilog-auto-insert-last verilog-auto-templated-rel verilog-auto-template-lint verilog-auto-hook verilog-delete-trailing-whitespace make-local-variable verilog-restore-buffer-modified-p "Updating AUTOs...done (no changes)" "Updating AUTOs...done" verilog-before-save-font-hook boundp 0 run-hook-with-args #[nil "\303\304ed$\210 \203 \305\306!\210\306\307\310!)\207" [verilog-save-font-mod-hooked fontlocked verilog-in-hooks run-hook-with-args after-change-functions font-lock-mode t run-hooks verilog-after-save-font-hook] 5]] 7 (#$ . 395897) nil]) #@60 Keymap used in Verilog mode for smart template operations. (defvar verilog-template-map (byte-code "\301 \302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\312#\210\302\313\314#\210\302\315\316#\210\302\317\320#\210\302\321\322#\210\302\323\324#\210\302\325\326#\210\302\327\330#\210\302\331\332#\210\302\333\334#\210\302\335\336#\210\302\337\340#\210\302\341\342#\210\302\343\344#\210\302\345\346#\210\302\347\350#\210\302\351\352#\210\302\353\354#\210\302\355\356#\210\302\357\360#\210\302\361\362#\210\302\363\364#\210\302\365\366#\210\302\367\370#\210\302\371\372#\210\302\373\374#\210\302\375\376#\210\302\377\201@ #\210)\207" [map make-sparse-keymap define-key "a" verilog-sk-always "b" verilog-sk-begin "c" verilog-sk-case "f" verilog-sk-for "g" verilog-sk-generate "h" verilog-sk-header "i" verilog-sk-initial "j" verilog-sk-fork "m" verilog-sk-module "o" verilog-sk-ovm-class "p" verilog-sk-primitive "r" verilog-sk-repeat "s" verilog-sk-specify "t" verilog-sk-task "u" verilog-sk-uvm-object "w" verilog-sk-while "x" verilog-sk-casex "z" verilog-sk-casez "?" verilog-sk-if ":" verilog-sk-else-if "/" verilog-sk-comment "A" verilog-sk-assign "F" verilog-sk-function "I" verilog-sk-input "O" verilog-sk-output "S" verilog-sk-state-machine "=" verilog-sk-inout "U" verilog-sk-uvm-component "W" verilog-sk-wire "R" verilog-sk-reg "D" verilog-sk-define-signal] 4) (#$ . 404619)) (byte-code "\302\303 #\210\304\305\306\307#\207" [verilog-mode-map verilog-template-map define-key "" put verilog-sk-prompt-condition no-self-insert t] 4) #@535 Prompt for the loop condition. This is a skeleton command (see `skeleton-insert'). Normally the skeleton text is inserted at point, with nothing "inside". If there is a highlighted region, the skeleton text is wrapped around the region text. A prefix argument ARG says to wrap the skeleton around the next ARG words. A prefix argument of -1 says to wrap around region, even if not highlighted. A prefix argument of zero says to wrap around zero words---that is, nothing. This is a way of overriding the use of a highlighted region. (defalias 'verilog-sk-prompt-condition #[(&optional str arg) "\302\303 #\207" [str arg skeleton-proxy-new ("[condition]: " str)] 4 (#$ . 406209) "*P\nP"]) (put 'verilog-sk-prompt-init 'no-self-insert t) #@540 Prompt for the loop init statement. This is a skeleton command (see `skeleton-insert'). Normally the skeleton text is inserted at point, with nothing "inside". If there is a highlighted region, the skeleton text is wrapped around the region text. A prefix argument ARG says to wrap the skeleton around the next ARG words. A prefix argument of -1 says to wrap around region, even if not highlighted. A prefix argument of zero says to wrap around zero words---that is, nothing. This is a way of overriding the use of a highlighted region. (defalias 'verilog-sk-prompt-init #[(&optional str arg) "\302\303 #\207" [str arg skeleton-proxy-new ("[initial statement]: " str)] 4 (#$ . 406954) "*P\nP"]) (put 'verilog-sk-prompt-inc 'no-self-insert t) #@545 Prompt for the loop increment statement. This is a skeleton command (see `skeleton-insert'). Normally the skeleton text is inserted at point, with nothing "inside". If there is a highlighted region, the skeleton text is wrapped around the region text. A prefix argument ARG says to wrap the skeleton around the next ARG words. A prefix argument of -1 says to wrap around region, even if not highlighted. A prefix argument of zero says to wrap around zero words---that is, nothing. This is a way of overriding the use of a highlighted region. (defalias 'verilog-sk-prompt-inc #[(&optional str arg) "\302\303 #\207" [str arg skeleton-proxy-new ("[increment statement]: " str)] 4 (#$ . 407706) "*P\nP"]) (put 'verilog-sk-prompt-name 'no-self-insert t) #@538 Prompt for the name of something. This is a skeleton command (see `skeleton-insert'). Normally the skeleton text is inserted at point, with nothing "inside". If there is a highlighted region, the skeleton text is wrapped around the region text. A prefix argument ARG says to wrap the skeleton around the next ARG words. A prefix argument of -1 says to wrap around region, even if not highlighted. A prefix argument of zero says to wrap around zero words---that is, nothing. This is a way of overriding the use of a highlighted region. (defalias 'verilog-sk-prompt-name #[(&optional str arg) "\302\303 #\207" [str arg skeleton-proxy-new ("[name]: " str)] 4 (#$ . 408465) "*P\nP"]) (put 'verilog-sk-prompt-clock 'no-self-insert t) #@538 Prompt for the name of something. This is a skeleton command (see `skeleton-insert'). Normally the skeleton text is inserted at point, with nothing "inside". If there is a highlighted region, the skeleton text is wrapped around the region text. A prefix argument ARG says to wrap the skeleton around the next ARG words. A prefix argument of -1 says to wrap around region, even if not highlighted. A prefix argument of zero says to wrap around zero words---that is, nothing. This is a way of overriding the use of a highlighted region. (defalias 'verilog-sk-prompt-clock #[(&optional str arg) "\302\303 #\207" [str arg skeleton-proxy-new ("name and edge of clock(s): " str)] 4 (#$ . 409204) "*P\nP"]) (defvar verilog-sk-reset nil) #@47 Prompt for the name of a state machine reset. (defalias 'verilog-sk-prompt-reset #[nil "\301\302\303\"\211\207" [verilog-sk-reset read-string "name of reset: " "rst"] 3 (#$ . 409943)]) (put 'verilog-sk-prompt-state-selector 'no-self-insert t) #@553 Prompt for the name of a state machine selector. This is a skeleton command (see `skeleton-insert'). Normally the skeleton text is inserted at point, with nothing "inside". If there is a highlighted region, the skeleton text is wrapped around the region text. A prefix argument ARG says to wrap the skeleton around the next ARG words. A prefix argument of -1 says to wrap around region, even if not highlighted. A prefix argument of zero says to wrap around zero words---that is, nothing. This is a way of overriding the use of a highlighted region. (defalias 'verilog-sk-prompt-state-selector #[(&optional str arg) "\302\303 #\207" [str arg skeleton-proxy-new ("name of selector (eg {a,b,c,d}): " str)] 4 (#$ . 410194) "*P\nP"]) (put 'verilog-sk-prompt-output 'no-self-insert t) #@538 Prompt for the name of something. This is a skeleton command (see `skeleton-insert'). Normally the skeleton text is inserted at point, with nothing "inside". If there is a highlighted region, the skeleton text is wrapped around the region text. A prefix argument ARG says to wrap the skeleton around the next ARG words. A prefix argument of -1 says to wrap around region, even if not highlighted. A prefix argument of zero says to wrap around zero words---that is, nothing. This is a way of overriding the use of a highlighted region. (defalias 'verilog-sk-prompt-output #[(&optional str arg) "\302\303 #\207" [str arg skeleton-proxy-new ("output: " str)] 4 (#$ . 410984) "*P\nP"]) (put 'verilog-sk-prompt-msb 'no-self-insert t) #@551 Prompt for most significant bit specification. This is a skeleton command (see `skeleton-insert'). Normally the skeleton text is inserted at point, with nothing "inside". If there is a highlighted region, the skeleton text is wrapped around the region text. A prefix argument ARG says to wrap the skeleton around the next ARG words. A prefix argument of -1 says to wrap around region, even if not highlighted. A prefix argument of zero says to wrap around zero words---that is, nothing. This is a way of overriding the use of a highlighted region. (defalias 'verilog-sk-prompt-msb #[(&optional str arg) "\302\303 #\207" [str arg skeleton-proxy-new ("msb:" str & 58 & '(verilog-sk-prompt-lsb) | -1)] 4 (#$ . 411723) "*P\nP"]) (put 'verilog-sk-prompt-lsb 'no-self-insert t) #@552 Prompt for least significant bit specification. This is a skeleton command (see `skeleton-insert'). Normally the skeleton text is inserted at point, with nothing "inside". If there is a highlighted region, the skeleton text is wrapped around the region text. A prefix argument ARG says to wrap the skeleton around the next ARG words. A prefix argument of -1 says to wrap around region, even if not highlighted. A prefix argument of zero says to wrap around zero words---that is, nothing. This is a way of overriding the use of a highlighted region. (defalias 'verilog-sk-prompt-lsb #[(&optional str arg) "\302\303 #\207" [str arg skeleton-proxy-new ("lsb:" str)] 4 (#$ . 412505) "*P\nP"]) (defvar verilog-sk-p nil) (put 'verilog-sk-prompt-width 'no-self-insert t) #@538 Prompt for a width specification. This is a skeleton command (see `skeleton-insert'). Normally the skeleton text is inserted at point, with nothing "inside". If there is a highlighted region, the skeleton text is wrapped around the region text. A prefix argument ARG says to wrap the skeleton around the next ARG words. A prefix argument of -1 says to wrap around region, even if not highlighted. A prefix argument of zero says to wrap around zero words---that is, nothing. This is a way of overriding the use of a highlighted region. (defalias 'verilog-sk-prompt-width #[(&optional str arg) "\302\303 #\207" [str arg skeleton-proxy-new (nil (progn (setq verilog-sk-p (point)) (verilog-sk-prompt-msb) (if (> (point) verilog-sk-p) "] " " ")))] 4 (#$ . 413279) "*P\nP"]) #@106 Insert a descriptive header at the top of the file. See also `verilog-header' for an alternative format. (defalias 'verilog-sk-header #[nil "\212eb\210\300 )\207" [verilog-sk-header-tmpl] 1 (#$ . 414058) "*"]) (put 'verilog-sk-header-tmpl 'no-self-insert t) #@569 Insert a comment block containing the module title, author, etc. This is a skeleton command (see `skeleton-insert'). Normally the skeleton text is inserted at point, with nothing "inside". If there is a highlighted region, the skeleton text is wrapped around the region text. A prefix argument ARG says to wrap the skeleton around the next ARG words. A prefix argument of -1 says to wrap around region, even if not highlighted. A prefix argument of zero says to wrap around zero words---that is, nothing. This is a way of overriding the use of a highlighted region. (defalias 'verilog-sk-header-tmpl #[(&optional str arg) "\302\303 #\207" [str arg skeleton-proxy-new ("[Description]: " "// -*- Mode: Verilog -*-" "\n// Filename : " (buffer-name) "\n// Description : " str "\n// Author : " (user-full-name) "\n// Created On : " (current-time-string) "\n// Last Modified By: " (user-full-name) "\n// Last Modified On: " (current-time-string) "\n// Update Count : 0" "\n// Status : Unknown, Use with caution!" "\n")] 4 (#$ . 414323) "*P\nP"]) (put 'verilog-sk-module 'no-self-insert t) #@532 Insert a module definition. This is a skeleton command (see `skeleton-insert'). Normally the skeleton text is inserted at point, with nothing "inside". If there is a highlighted region, the skeleton text is wrapped around the region text. A prefix argument ARG says to wrap the skeleton around the next ARG words. A prefix argument of -1 says to wrap around region, even if not highlighted. A prefix argument of zero says to wrap around zero words---that is, nothing. This is a way of overriding the use of a highlighted region. (defalias 'verilog-sk-module #[(&optional str arg) "\302\303 #\207" [str arg skeleton-proxy-new (nil > "module " '(verilog-sk-prompt-name) " (/*AUTOARG*/ ) ;" n > _ n > (- verilog-indent-level-behavioral) "endmodule" (progn (electric-verilog-terminate-line) nil))] 4 (#$ . 415482) "*P\nP"]) (put 'verilog-sk-ovm-class 'no-self-insert t) #@530 Insert a class definition This is a skeleton command (see `skeleton-insert'). Normally the skeleton text is inserted at point, with nothing "inside". If there is a highlighted region, the skeleton text is wrapped around the region text. A prefix argument ARG says to wrap the skeleton around the next ARG words. A prefix argument of -1 says to wrap around region, even if not highlighted. A prefix argument of zero says to wrap around zero words---that is, nothing. This is a way of overriding the use of a highlighted region. (defalias 'verilog-sk-ovm-class #[(&optional str arg) "\302\303 #\207" [str arg skeleton-proxy-new (nil > "class " (setq name (skeleton-read "Name: ")) " extends " (skeleton-read "Extends: ") ";" n > _ n > "`ovm_object_utils_begin(" name ")" n > (- verilog-indent-level) " `ovm_object_utils_end" n > _ n > "function new(string name=\"" name "\");" n > "super.new(name);" n > (- verilog-indent-level) "endfunction" n > _ n > "endclass" (progn (electric-verilog-terminate-line) nil))] 4 (#$ . 416358) "*P\nP"]) (put 'verilog-sk-uvm-object 'no-self-insert t) #@530 Insert a class definition This is a skeleton command (see `skeleton-insert'). Normally the skeleton text is inserted at point, with nothing "inside". If there is a highlighted region, the skeleton text is wrapped around the region text. A prefix argument ARG says to wrap the skeleton around the next ARG words. A prefix argument of -1 says to wrap around region, even if not highlighted. A prefix argument of zero says to wrap around zero words---that is, nothing. This is a way of overriding the use of a highlighted region. (defalias 'verilog-sk-uvm-object #[(&optional str arg) "\302\303 #\207" [str arg skeleton-proxy-new (nil > "class " (setq name (skeleton-read "Name: ")) " extends " (skeleton-read "Extends: ") ";" n > _ n > "`uvm_object_utils_begin(" name ")" n > (- verilog-indent-level) "`uvm_object_utils_end" n > _ n > "function new(string name=\"" name "\");" n > "super.new(name);" n > (- verilog-indent-level) "endfunction" n > _ n > "endclass" (progn (electric-verilog-terminate-line) nil))] 4 (#$ . 417451) "*P\nP"]) (put 'verilog-sk-uvm-component 'no-self-insert t) #@530 Insert a class definition This is a skeleton command (see `skeleton-insert'). Normally the skeleton text is inserted at point, with nothing "inside". If there is a highlighted region, the skeleton text is wrapped around the region text. A prefix argument ARG says to wrap the skeleton around the next ARG words. A prefix argument of -1 says to wrap around region, even if not highlighted. A prefix argument of zero says to wrap around zero words---that is, nothing. This is a way of overriding the use of a highlighted region. (defalias 'verilog-sk-uvm-component #[(&optional str arg) "\302\303 #\207" [str arg skeleton-proxy-new (nil > "class " (setq name (skeleton-read "Name: ")) " extends " (skeleton-read "Extends: ") ";" n > _ n > "`uvm_component_utils_begin(" name ")" n > (- verilog-indent-level) "`uvm_component_utils_end" n > _ n > "function new(string name=\"\", uvm_component parent);" n > "super.new(name, parent);" n > (- verilog-indent-level) "endfunction" n > _ n > "endclass" (progn (electric-verilog-terminate-line) nil))] 4 (#$ . 418547) "*P\nP"]) (put 'verilog-sk-primitive 'no-self-insert t) #@530 Insert a task definition. This is a skeleton command (see `skeleton-insert'). Normally the skeleton text is inserted at point, with nothing "inside". If there is a highlighted region, the skeleton text is wrapped around the region text. A prefix argument ARG says to wrap the skeleton around the next ARG words. A prefix argument of -1 says to wrap around region, even if not highlighted. A prefix argument of zero says to wrap around zero words---that is, nothing. This is a way of overriding the use of a highlighted region. (defalias 'verilog-sk-primitive #[(&optional str arg) "\302\303 #\207" [str arg skeleton-proxy-new (nil > "primitive " '(verilog-sk-prompt-name) " ( " '(verilog-sk-prompt-output) ("input:" ", " str) " );" n > _ n > (- verilog-indent-level-behavioral) "endprimitive" (progn (electric-verilog-terminate-line) nil))] 4 (#$ . 419670) "*P\nP"]) (put 'verilog-sk-task 'no-self-insert t) #@530 Insert a task definition. This is a skeleton command (see `skeleton-insert'). Normally the skeleton text is inserted at point, with nothing "inside". If there is a highlighted region, the skeleton text is wrapped around the region text. A prefix argument ARG says to wrap the skeleton around the next ARG words. A prefix argument of -1 says to wrap around region, even if not highlighted. A prefix argument of zero says to wrap around zero words---that is, nothing. This is a way of overriding the use of a highlighted region. (defalias 'verilog-sk-task #[(&optional str arg) "\302\303 #\207" [str arg skeleton-proxy-new (nil > "task " '(verilog-sk-prompt-name) & 59 n > _ n > "begin" n > n > (- verilog-indent-level-behavioral) "end" n > (- verilog-indent-level-behavioral) "endtask" (progn (electric-verilog-terminate-line) nil))] 4 (#$ . 420588) "*P\nP"]) (put 'verilog-sk-function 'no-self-insert t) #@534 Insert a function definition. This is a skeleton command (see `skeleton-insert'). Normally the skeleton text is inserted at point, with nothing "inside". If there is a highlighted region, the skeleton text is wrapped around the region text. A prefix argument ARG says to wrap the skeleton around the next ARG words. A prefix argument of -1 says to wrap around region, even if not highlighted. A prefix argument of zero says to wrap around zero words---that is, nothing. This is a way of overriding the use of a highlighted region. (defalias 'verilog-sk-function #[(&optional str arg) "\302\303 #\207" [str arg skeleton-proxy-new (nil > "function [" '(verilog-sk-prompt-width) | -1 '(verilog-sk-prompt-name) 59 n > _ n > "begin" n > n > (- verilog-indent-level-behavioral) "end" n > (- verilog-indent-level-behavioral) "endfunction" (progn (electric-verilog-terminate-line) nil))] 4 (#$ . 421502) "*P\nP"]) (put 'verilog-sk-always 'no-self-insert t) #@578 Insert always block. Uses the minibuffer to prompt for sensitivity list. This is a skeleton command (see `skeleton-insert'). Normally the skeleton text is inserted at point, with nothing "inside". If there is a highlighted region, the skeleton text is wrapped around the region text. A prefix argument ARG says to wrap the skeleton around the next ARG words. A prefix argument of -1 says to wrap around region, even if not highlighted. A prefix argument of zero says to wrap around zero words---that is, nothing. This is a way of overriding the use of a highlighted region. (defalias 'verilog-sk-always #[(&optional str arg) "\302\303 #\207" [str arg skeleton-proxy-new (nil > "always @ ( /*AUTOSENSE*/ ) begin\n" > _ n > (- verilog-indent-level-behavioral) "end" n >)] 4 (#$ . 422461) "*P\nP"]) (put 'verilog-sk-initial 'no-self-insert t) #@529 Insert an initial block. This is a skeleton command (see `skeleton-insert'). Normally the skeleton text is inserted at point, with nothing "inside". If there is a highlighted region, the skeleton text is wrapped around the region text. A prefix argument ARG says to wrap the skeleton around the next ARG words. A prefix argument of -1 says to wrap around region, even if not highlighted. A prefix argument of zero says to wrap around zero words---that is, nothing. This is a way of overriding the use of a highlighted region. (defalias 'verilog-sk-initial #[(&optional str arg) "\302\303 #\207" [str arg skeleton-proxy-new (nil > "initial begin\n" > _ n > (- verilog-indent-level-behavioral) "end" n >)] 4 (#$ . 423312) "*P\nP"]) (put 'verilog-sk-specify 'no-self-insert t) #@528 Insert specify block. This is a skeleton command (see `skeleton-insert'). Normally the skeleton text is inserted at point, with nothing "inside". If there is a highlighted region, the skeleton text is wrapped around the region text. A prefix argument ARG says to wrap the skeleton around the next ARG words. A prefix argument of -1 says to wrap around region, even if not highlighted. A prefix argument of zero says to wrap around zero words---that is, nothing. This is a way of overriding the use of a highlighted region. (defalias 'verilog-sk-specify #[(&optional str arg) "\302\303 #\207" [str arg skeleton-proxy-new (nil > "specify\n" > _ n > (- verilog-indent-level-behavioral) "endspecify" n >)] 4 (#$ . 424096) "*P\nP"]) (put 'verilog-sk-generate 'no-self-insert t) #@529 Insert generate block. This is a skeleton command (see `skeleton-insert'). Normally the skeleton text is inserted at point, with nothing "inside". If there is a highlighted region, the skeleton text is wrapped around the region text. A prefix argument ARG says to wrap the skeleton around the next ARG words. A prefix argument of -1 says to wrap around region, even if not highlighted. A prefix argument of zero says to wrap around zero words---that is, nothing. This is a way of overriding the use of a highlighted region. (defalias 'verilog-sk-generate #[(&optional str arg) "\302\303 #\207" [str arg skeleton-proxy-new (nil > "generate\n" > _ n > (- verilog-indent-level-behavioral) "endgenerate" n >)] 4 (#$ . 424881) "*P\nP"]) (put 'verilog-sk-begin 'no-self-insert t) #@569 Insert begin end block. Uses the minibuffer to prompt for name. This is a skeleton command (see `skeleton-insert'). Normally the skeleton text is inserted at point, with nothing "inside". If there is a highlighted region, the skeleton text is wrapped around the region text. A prefix argument ARG says to wrap the skeleton around the next ARG words. A prefix argument of -1 says to wrap around region, even if not highlighted. A prefix argument of zero says to wrap around zero words---that is, nothing. This is a way of overriding the use of a highlighted region. (defalias 'verilog-sk-begin #[(&optional str arg) "\302\303 #\207" [str arg skeleton-proxy-new (nil > "begin" '(verilog-sk-prompt-name) n > _ n > (- verilog-indent-level-behavioral) "end")] 4 (#$ . 425667) "*P\nP"]) (put 'verilog-sk-fork 'no-self-insert t) #@530 Insert a fork join block. This is a skeleton command (see `skeleton-insert'). Normally the skeleton text is inserted at point, with nothing "inside". If there is a highlighted region, the skeleton text is wrapped around the region text. A prefix argument ARG says to wrap the skeleton around the next ARG words. A prefix argument of -1 says to wrap around region, even if not highlighted. A prefix argument of zero says to wrap around zero words---that is, nothing. This is a way of overriding the use of a highlighted region. (defalias 'verilog-sk-fork #[(&optional str arg) "\302\303 #\207" [str arg skeleton-proxy-new (nil > "fork\n" > "begin" n > _ n > (- verilog-indent-level-behavioral) "end" n > "begin" n > n > (- verilog-indent-level-behavioral) "end" n > (- verilog-indent-level-behavioral) "join" n >)] 4 (#$ . 426500) "*P\nP"]) (put 'verilog-sk-case 'no-self-insert t) #@594 Build skeleton case statement, prompting for the selector expression, and the case items. This is a skeleton command (see `skeleton-insert'). Normally the skeleton text is inserted at point, with nothing "inside". If there is a highlighted region, the skeleton text is wrapped around the region text. A prefix argument ARG says to wrap the skeleton around the next ARG words. A prefix argument of -1 says to wrap around region, even if not highlighted. A prefix argument of zero says to wrap around zero words---that is, nothing. This is a way of overriding the use of a highlighted region. (defalias 'verilog-sk-case #[(&optional str arg) "\302\303 #\207" [str arg skeleton-proxy-new ("[selector expression]: " > "case (" str ") " n > ("case selector: " str ": begin" n > _ n > (- verilog-indent-level-behavioral) "end" n >) resume: > (- verilog-case-indent) "endcase" (progn (electric-verilog-terminate-line) nil))] 4 (#$ . 427391) "*P\nP"]) (put 'verilog-sk-casex 'no-self-insert t) #@595 Build skeleton casex statement, prompting for the selector expression, and the case items. This is a skeleton command (see `skeleton-insert'). Normally the skeleton text is inserted at point, with nothing "inside". If there is a highlighted region, the skeleton text is wrapped around the region text. A prefix argument ARG says to wrap the skeleton around the next ARG words. A prefix argument of -1 says to wrap around region, even if not highlighted. A prefix argument of zero says to wrap around zero words---that is, nothing. This is a way of overriding the use of a highlighted region. (defalias 'verilog-sk-casex #[(&optional str arg) "\302\303 #\207" [str arg skeleton-proxy-new ("[selector expression]: " > "casex (" str ") " n > ("case selector: " str ": begin" n > _ n > (- verilog-indent-level-behavioral) "end" n >) resume: > (- verilog-case-indent) "endcase" (progn (electric-verilog-terminate-line) nil))] 4 (#$ . 428387) "*P\nP"]) (put 'verilog-sk-casez 'no-self-insert t) #@595 Build skeleton casez statement, prompting for the selector expression, and the case items. This is a skeleton command (see `skeleton-insert'). Normally the skeleton text is inserted at point, with nothing "inside". If there is a highlighted region, the skeleton text is wrapped around the region text. A prefix argument ARG says to wrap the skeleton around the next ARG words. A prefix argument of -1 says to wrap around region, even if not highlighted. A prefix argument of zero says to wrap around zero words---that is, nothing. This is a way of overriding the use of a highlighted region. (defalias 'verilog-sk-casez #[(&optional str arg) "\302\303 #\207" [str arg skeleton-proxy-new ("[selector expression]: " > "casez (" str ") " n > ("case selector: " str ": begin" n > _ n > (- verilog-indent-level-behavioral) "end" n >) resume: > (- verilog-case-indent) "endcase" (progn (electric-verilog-terminate-line) nil))] 4 (#$ . 429386) "*P\nP"]) (put 'verilog-sk-if 'no-self-insert t) #@536 Insert a skeleton if statement. This is a skeleton command (see `skeleton-insert'). Normally the skeleton text is inserted at point, with nothing "inside". If there is a highlighted region, the skeleton text is wrapped around the region text. A prefix argument ARG says to wrap the skeleton around the next ARG words. A prefix argument of -1 says to wrap around region, even if not highlighted. A prefix argument of zero says to wrap around zero words---that is, nothing. This is a way of overriding the use of a highlighted region. (defalias 'verilog-sk-if #[(&optional str arg) "\302\303 #\207" [str arg skeleton-proxy-new (> "if (" '(verilog-sk-prompt-condition) & ")" " begin" n > _ n > (- verilog-indent-level-behavioral) "end " n)] 4 (#$ . 430382) "*P\nP"]) (put 'verilog-sk-else-if 'no-self-insert t) #@541 Insert a skeleton else if statement. This is a skeleton command (see `skeleton-insert'). Normally the skeleton text is inserted at point, with nothing "inside". If there is a highlighted region, the skeleton text is wrapped around the region text. A prefix argument ARG says to wrap the skeleton around the next ARG words. A prefix argument of -1 says to wrap around region, even if not highlighted. A prefix argument of zero says to wrap around zero words---that is, nothing. This is a way of overriding the use of a highlighted region. (defalias 'verilog-sk-else-if #[(&optional str arg) "\302\303 #\207" [str arg skeleton-proxy-new (> (verilog-indent-line) "else if (" (progn (setq verilog-sk-p (point)) nil) '(verilog-sk-prompt-condition) (if (> (point) verilog-sk-p) ") " -1) & " begin" n > _ n > "end" (progn (electric-verilog-terminate-line) nil))] 4 (#$ . 431200) "*P\nP"]) (put 'verilog-sk-datadef 'no-self-insert t) #@543 Common routine to get data definition. This is a skeleton command (see `skeleton-insert'). Normally the skeleton text is inserted at point, with nothing "inside". If there is a highlighted region, the skeleton text is wrapped around the region text. A prefix argument ARG says to wrap the skeleton around the next ARG words. A prefix argument of -1 says to wrap around region, even if not highlighted. A prefix argument of zero says to wrap around zero words---that is, nothing. This is a way of overriding the use of a highlighted region. (defalias 'verilog-sk-datadef #[(&optional str arg) "\302\303 #\207" [str arg skeleton-proxy-new (nil '(verilog-sk-prompt-width) | -1 ("name (RET to end):" str ", ") -2 ";" n)] 4 (#$ . 432136) "*P\nP"]) (put 'verilog-sk-input 'no-self-insert t) #@532 Insert an input definition. This is a skeleton command (see `skeleton-insert'). Normally the skeleton text is inserted at point, with nothing "inside". If there is a highlighted region, the skeleton text is wrapped around the region text. A prefix argument ARG says to wrap the skeleton around the next ARG words. A prefix argument of -1 says to wrap around region, even if not highlighted. A prefix argument of zero says to wrap around zero words---that is, nothing. This is a way of overriding the use of a highlighted region. (defalias 'verilog-sk-input #[(&optional str arg) "\302\303 #\207" [str arg skeleton-proxy-new (nil > "input [" '(verilog-sk-datadef))] 4 (#$ . 432931) "*P\nP"]) (put 'verilog-sk-output 'no-self-insert t) #@533 Insert an output definition. This is a skeleton command (see `skeleton-insert'). Normally the skeleton text is inserted at point, with nothing "inside". If there is a highlighted region, the skeleton text is wrapped around the region text. A prefix argument ARG says to wrap the skeleton around the next ARG words. A prefix argument of -1 says to wrap around region, even if not highlighted. A prefix argument of zero says to wrap around zero words---that is, nothing. This is a way of overriding the use of a highlighted region. (defalias 'verilog-sk-output #[(&optional str arg) "\302\303 #\207" [str arg skeleton-proxy-new (nil > "output [" '(verilog-sk-datadef))] 4 (#$ . 433676) "*P\nP"]) (put 'verilog-sk-inout 'no-self-insert t) #@532 Insert an inout definition. This is a skeleton command (see `skeleton-insert'). Normally the skeleton text is inserted at point, with nothing "inside". If there is a highlighted region, the skeleton text is wrapped around the region text. A prefix argument ARG says to wrap the skeleton around the next ARG words. A prefix argument of -1 says to wrap around region, even if not highlighted. A prefix argument of zero says to wrap around zero words---that is, nothing. This is a way of overriding the use of a highlighted region. (defalias 'verilog-sk-inout #[(&optional str arg) "\302\303 #\207" [str arg skeleton-proxy-new (nil > "inout [" '(verilog-sk-datadef))] 4 (#$ . 434422) "*P\nP"]) (defvar verilog-sk-signal nil) (put 'verilog-sk-def-reg 'no-self-insert t) #@529 Insert a reg definition. This is a skeleton command (see `skeleton-insert'). Normally the skeleton text is inserted at point, with nothing "inside". If there is a highlighted region, the skeleton text is wrapped around the region text. A prefix argument ARG says to wrap the skeleton around the next ARG words. A prefix argument of -1 says to wrap around region, even if not highlighted. A prefix argument of zero says to wrap around zero words---that is, nothing. This is a way of overriding the use of a highlighted region. (defalias 'verilog-sk-def-reg #[(&optional str arg) "\302\303 #\207" [str arg skeleton-proxy-new (nil > "reg [" '(verilog-sk-prompt-width) | -1 verilog-sk-signal ";" n (verilog-pretty-declarations-auto))] 4 (#$ . 435199) "*P\nP"]) #@61 Insert a definition of signal under point at top of module. (defalias 'verilog-sk-define-signal #[nil "\304\212\305x\210`)\212\305w\210`){\211\n\235\204/ \212 \306 \210\307 \210\310 \210\311 \210\312\313 \")\2023 \312\314 \"*\207" [sig-re v1 verilog-keywords verilog-sk-signal "[a-zA-Z0-9_]*" nil verilog-beg-of-defun verilog-end-of-statement verilog-forward-syntactic-ws verilog-sk-def-reg message "signal at point is %s" "object at point (%s) is a keyword"] 4 (#$ . 435968) "*"]) (put 'verilog-sk-wire 'no-self-insert t) #@530 Insert a wire definition. This is a skeleton command (see `skeleton-insert'). Normally the skeleton text is inserted at point, with nothing "inside". If there is a highlighted region, the skeleton text is wrapped around the region text. A prefix argument ARG says to wrap the skeleton around the next ARG words. A prefix argument of -1 says to wrap around region, even if not highlighted. A prefix argument of zero says to wrap around zero words---that is, nothing. This is a way of overriding the use of a highlighted region. (defalias 'verilog-sk-wire #[(&optional str arg) "\302\303 #\207" [str arg skeleton-proxy-new (nil > "wire [" '(verilog-sk-datadef))] 4 (#$ . 436503) "*P\nP"]) (put 'verilog-sk-reg 'no-self-insert t) #@529 Insert a reg definition. This is a skeleton command (see `skeleton-insert'). Normally the skeleton text is inserted at point, with nothing "inside". If there is a highlighted region, the skeleton text is wrapped around the region text. A prefix argument ARG says to wrap the skeleton around the next ARG words. A prefix argument of -1 says to wrap around region, even if not highlighted. A prefix argument of zero says to wrap around zero words---that is, nothing. This is a way of overriding the use of a highlighted region. (defalias 'verilog-sk-reg #[(&optional str arg) "\302\303 #\207" [str arg skeleton-proxy-new (nil > "reg [" '(verilog-sk-datadef))] 4 (#$ . 437242) "*P\nP"]) (put 'verilog-sk-assign 'no-self-insert t) #@540 Insert a skeleton assign statement. This is a skeleton command (see `skeleton-insert'). Normally the skeleton text is inserted at point, with nothing "inside". If there is a highlighted region, the skeleton text is wrapped around the region text. A prefix argument ARG says to wrap the skeleton around the next ARG words. A prefix argument of -1 says to wrap around region, even if not highlighted. A prefix argument of zero says to wrap around zero words---that is, nothing. This is a way of overriding the use of a highlighted region. (defalias 'verilog-sk-assign #[(&optional str arg) "\302\303 #\207" [str arg skeleton-proxy-new (nil > "assign " '(verilog-sk-prompt-name) " = " _ ";" n)] 4 (#$ . 437981) "*P\nP"]) (put 'verilog-sk-while 'no-self-insert t) #@544 Insert a skeleton while loop statement. This is a skeleton command (see `skeleton-insert'). Normally the skeleton text is inserted at point, with nothing "inside". If there is a highlighted region, the skeleton text is wrapped around the region text. A prefix argument ARG says to wrap the skeleton around the next ARG words. A prefix argument of -1 says to wrap around region, even if not highlighted. A prefix argument of zero says to wrap around zero words---that is, nothing. This is a way of overriding the use of a highlighted region. (defalias 'verilog-sk-while #[(&optional str arg) "\302\303 #\207" [str arg skeleton-proxy-new (nil > "while (" '(verilog-sk-prompt-condition) ") begin" n > _ n > (- verilog-indent-level-behavioral) "end " (progn (electric-verilog-terminate-line) nil))] 4 (#$ . 438751) "*P\nP"]) (put 'verilog-sk-repeat 'no-self-insert t) #@545 Insert a skeleton repeat loop statement. This is a skeleton command (see `skeleton-insert'). Normally the skeleton text is inserted at point, with nothing "inside". If there is a highlighted region, the skeleton text is wrapped around the region text. A prefix argument ARG says to wrap the skeleton around the next ARG words. A prefix argument of -1 says to wrap around region, even if not highlighted. A prefix argument of zero says to wrap around zero words---that is, nothing. This is a way of overriding the use of a highlighted region. (defalias 'verilog-sk-repeat #[(&optional str arg) "\302\303 #\207" [str arg skeleton-proxy-new (nil > "repeat (" '(verilog-sk-prompt-condition) ") begin" n > _ n > (- verilog-indent-level-behavioral) "end " (progn (electric-verilog-terminate-line) nil))] 4 (#$ . 439625) "*P\nP"]) (put 'verilog-sk-for 'no-self-insert t) #@544 Insert a skeleton while loop statement. This is a skeleton command (see `skeleton-insert'). Normally the skeleton text is inserted at point, with nothing "inside". If there is a highlighted region, the skeleton text is wrapped around the region text. A prefix argument ARG says to wrap the skeleton around the next ARG words. A prefix argument of -1 says to wrap around region, even if not highlighted. A prefix argument of zero says to wrap around zero words---that is, nothing. This is a way of overriding the use of a highlighted region. (defalias 'verilog-sk-for #[(&optional str arg) "\302\303 #\207" [str arg skeleton-proxy-new (nil > "for (" '(verilog-sk-prompt-init) "; " '(verilog-sk-prompt-condition) "; " '(verilog-sk-prompt-inc) ") begin" n > _ n > (- verilog-indent-level-behavioral) "end " (progn (electric-verilog-terminate-line) nil))] 4 (#$ . 440499) "*P\nP"]) (put 'verilog-sk-comment 'no-self-insert t) #@559 Inserts three comment lines, making a display comment. This is a skeleton command (see `skeleton-insert'). Normally the skeleton text is inserted at point, with nothing "inside". If there is a highlighted region, the skeleton text is wrapped around the region text. A prefix argument ARG says to wrap the skeleton around the next ARG words. A prefix argument of -1 says to wrap around region, even if not highlighted. A prefix argument of zero says to wrap around zero words---that is, nothing. This is a way of overriding the use of a highlighted region. (defalias 'verilog-sk-comment #[(&optional str arg) "\302\303 #\207" [str arg skeleton-proxy-new (nil > "/*\n" > "* " _ n > "*/")] 4 (#$ . 441431) "*P\nP"]) (put 'verilog-sk-state-machine 'no-self-insert t) #@539 Insert a state machine definition. This is a skeleton command (see `skeleton-insert'). Normally the skeleton text is inserted at point, with nothing "inside". If there is a highlighted region, the skeleton text is wrapped around the region text. A prefix argument ARG says to wrap the skeleton around the next ARG words. A prefix argument of -1 says to wrap around region, even if not highlighted. A prefix argument of zero says to wrap around zero words---that is, nothing. This is a way of overriding the use of a highlighted region. (defalias 'verilog-sk-state-machine #[(&optional str arg) "\302\303 #\207" [str arg skeleton-proxy-new ("Name of state variable: " '(setq input "state") > "// State registers for " str | -23 n '(setq verilog-sk-state str) > "reg [" '(verilog-sk-prompt-width) | -1 verilog-sk-state ", next_" verilog-sk-state 59 n '(setq input nil) > n > "// State FF for " verilog-sk-state n > "always @ ( " (read-string "clock:" "posedge clk") " or " (verilog-sk-prompt-reset) " ) begin" n > "if ( " verilog-sk-reset " ) " verilog-sk-state " = 0; else" n > verilog-sk-state " = next_" verilog-sk-state 59 n > (- verilog-indent-level-behavioral) "end" (progn (electric-verilog-terminate-line) nil) > n > "// Next State Logic for " verilog-sk-state n > "always @ ( /*AUTOSENSE*/ ) begin\n" > "case (" '(verilog-sk-prompt-state-selector) ") " n > ("case selector: " str ": begin" n > "next_" verilog-sk-state " = " _ ";" n > (- verilog-indent-level-behavioral) "end" n) resume: > (- verilog-case-indent) "endcase" (progn (electric-verilog-terminate-line) nil) > (- verilog-indent-level-behavioral) "end" (progn (electric-verilog-terminate-line) nil))] 4 (#$ . 442204) "*P\nP"]) #@39 Regexp that matches the include file. (defconst verilog-include-file-regexp "^`include\\s-+\"\\([^\n\"]*\\)\"" (#$ . 443908)) #@51 Map containing mouse bindings for `verilog-mode'. (defvar verilog-mode-mouse-map (byte-code "\302 \303 \"\210\304\305\306#\210\304\307\310#\210\304\311\312#\210)\207" [map verilog-mode-map make-sparse-keymap set-keymap-parent define-key " " verilog-load-file-at-point [mouse-2] verilog-load-file-at-mouse [S-mouse-2] mouse-yank-at-click] 4) (#$ . 444040)) #@137 Colorize included files and modules in the (changed?) region. Clicking on the middle-mouse button loads them in a buffer (as in dired). (defalias 'verilog-highlight-region #[(beg end _old-len) "\204 \205P\212\306 \307\216\310\211 \311 \310\211 & '\310 (\312\216\313 \204( \314)p *\314 +,b\210\315 +-b\210\316 \210\317`+\"\211 .\203r \320.@\321\"\203i \320.@\322\"\204c \320.@\323\"\203i \324.@!\210.A\211.\204H )\203\274 \325/+\310#\203\274 \326\224b\210\327\326\224\326\225\" 0\3300\331\310#\210\3300\332\310#\210\3300\333\310#\210\3300\322\310#\210\3300\334\335#\210\3300\3361#\210)\202w -b\210 \205N\3371L\340+\310 2 3 4\314 55\204\375 \341432#\203\375 \342\343\224!\203\365 \341\344\314\310#\210\202\325 \343\225\2115\203\332 5,\205H\212\343\224b\210\342 \204D\345 \210\327\343\224\343\225\" 0\3300\331\310#\210\3300\332\310#\210\3300\333\310#\210\3300\323\310#\210\3300\334\335#\210\3300\3361#\210))\202\310 0\202N\210\314.\f\207" [verilog-highlight-includes verilog-highlight-modules save-match-data-internal verilog-no-change-functions inhibit-point-motion-hooks #1=#:modified match-data #[nil "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3] t buffer-modified-p #[nil "?\205 \301\302!\207" [#1# restore-buffer-modified-p nil] 2] verilog-scan-cache-ok-p nil line-end-position beginning-of-line overlays-in overlay-get detachable verilog-include-file verilog-inst-module delete-overlay search-forward-regexp 1 make-overlay overlay-put start-closed end-closed evaporate mouse-face highlight local-map (error) "\\(/\\*AUTOINST\\*/\\|\\.\\*\\)" re-search-forward verilog-inside-comment-or-string-p 0 "[/\"\n]" verilog-read-inst-module-matcher buffer-undo-list inhibit-read-only inhibit-modification-hooks verilog-scan-cache-tick verilog-scan-cache-preserving end-point end beg overlays verilog-include-file-regexp ov verilog-mode-mouse-map noerror bound regexp pt] 5 (#$ . 444409)]) #@62 Colorize included files and modules across the whole buffer. (defalias 'verilog-highlight-buffer #[nil "\300ed\301#\207" [verilog-highlight-region nil] 4 (#$ . 446375) nil]) (defalias 'verilog-colorize-include-files-buffer 'verilog-highlight-buffer) #@93 Load file under button 2 click's EVENT. Files are checked based on `verilog-library-flags'. (defalias 'verilog-load-file-at-mouse #[(event) "\212\301!\210\302\303!)\207" [event mouse-set-point verilog-load-file-at-point t] 2 (#$ . 446631) "@e"]) #@113 Load file under point. If WARN, throw warning if not found. Files are checked based on `verilog-library-flags'. (defalias 'verilog-load-file-at-point #[(&optional warn) "\212\304``\"\305\211\203- \204- \306 @\307\"\203& \310\311 @!\312 @!{!\210\313 A\211\204\f \314 \210?\205j \315\n!\205j \316\317\320!\321 \"@\203` \322\316\317\320!\321 \"@!\203` \323\316\317\320!\321 \"@!\202j \205j \324\325\317\320!\"+\207" [hit overlays verilog-include-file-regexp warn overlays-in nil overlay-get verilog-inst-module verilog-goto-defun-file overlay-start overlay-end t beginning-of-line looking-at verilog-library-filenames match-string 1 buffer-file-name file-readable-p find-file message "File `%s' isn't readable, use shift-mouse2 to paste in this field"] 5 (#$ . 446885) nil]) #@68 Tell the user their current version, and where to get the FAQ etc. (defalias 'verilog-faq #[nil "r\306\307!q\210p\310 \210 \311\211\312\211\312 \313 \210\314\315!\210+\211 \316\317\320\"!\210\316\321!\210\316\322!\210\316\321!\210\316\323!\210\316\321!\210\316\324!\210\316\321!\325!\210+\207" [default-directory #1=#:old-dir buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks get-buffer-create "*verilog-mode help*" kill-all-local-variables nil t erase-buffer run-hooks temp-buffer-setup-hook princ format "You are using verilog-mode %s\n" "\n" "For new releases, see http://www.veripool.com/verilog-mode\n" "For frequently asked questions, see http://www.veripool.org/verilog-mode-faq.html\n" "To submit a bug, use M-x verilog-submit-bug-report\n" internal-temp-output-buffer-show inhibit-read-only #2=#:buf standard-output verilog-mode-version] 5 (#$ . 447670) nil]) (autoload 'reporter-submit-bug-report "reporter") #@50 Submit via mail a bug report on verilog-mode.el. (defalias 'verilog-submit-bug-report #[nil "\303\304\305\306 P\307\310\211\311\n\312Q&)\207" [reporter-prompt-for-summary-p verilog-mode-version invocation-name t reporter-submit-bug-report "mac@verilog.com, wsnyder@wsnyder.org" "verilog-mode v" (verilog-active-low-regexp verilog-after-save-font-hook verilog-align-ifelse verilog-assignment-delay verilog-auto-arg-sort verilog-auto-declare-nettype verilog-auto-delete-trailing-whitespace verilog-auto-endcomments verilog-auto-hook verilog-auto-ignore-concat verilog-auto-indent-on-newline verilog-auto-inout-ignore-regexp verilog-auto-input-ignore-regexp verilog-auto-inst-column verilog-auto-inst-dot-name verilog-auto-inst-interfaced-ports verilog-auto-inst-param-value verilog-auto-inst-sort verilog-auto-inst-template-numbers verilog-auto-inst-vector verilog-auto-lineup verilog-auto-newline verilog-auto-output-ignore-regexp verilog-auto-read-includes verilog-auto-reset-blocking-in-non verilog-auto-reset-widths verilog-auto-save-policy verilog-auto-sense-defines-constant verilog-auto-sense-include-inputs verilog-auto-star-expand verilog-auto-star-save verilog-auto-template-warn-unused verilog-auto-tieoff-declaration verilog-auto-tieoff-ignore-regexp verilog-auto-unused-ignore-regexp verilog-auto-wire-type verilog-before-auto-hook verilog-before-delete-auto-hook verilog-before-getopt-flags-hook verilog-before-save-font-hook verilog-cache-enabled verilog-case-fold verilog-case-indent verilog-cexp-indent verilog-compiler verilog-coverage verilog-delete-auto-hook verilog-getopt-flags-hook verilog-highlight-grouping-keywords verilog-highlight-includes verilog-highlight-modules verilog-highlight-p1800-keywords verilog-highlight-translate-off verilog-indent-begin-after-if verilog-indent-declaration-macros verilog-indent-level verilog-indent-level-behavioral verilog-indent-level-declaration verilog-indent-level-directive verilog-indent-level-module verilog-indent-lists verilog-library-directories verilog-library-extensions verilog-library-files verilog-library-flags verilog-linter verilog-minimum-comment-distance verilog-mode-hook verilog-mode-release-emacs verilog-mode-version verilog-preprocessor verilog-simulator verilog-tab-always-indent verilog-tab-to-comment verilog-typedef-regexp verilog-warn-fatal) nil "Hi Mac,\n\nI want to report a bug.\n\nBefore I go further, I want to say that Verilog mode has changed my life.\nI save so much time, my files are colored nicely, my co workers respect\nmy coding ability... until now. I'd really appreciate anything you\ncould do to help me out with this minor deficiency in the product.\n\nI've taken a look at the Verilog-Mode FAQ at\nhttp://www.veripool.org/verilog-mode-faq.html.\n\nAnd, I've considered filing the bug on the issue tracker at\nhttp://www.veripool.org/verilog-mode-bugs\nsince I realize that public bugs are easier for you to track,\nand for others to search, but would prefer to email.\n\nSo, to reproduce the bug, start a fresh Emacs via " "\n-no-init-file -no-site-file'. In a new buffer, in Verilog mode, type\nthe code included below.\n\nGiven those lines, I expected [[Fill in here]] to happen;\nbut instead, [[Fill in here]] happens!.\n\n== The code: =="] 9 (#$ . 448638) nil]) (provide 'verilog-mode)