Lines Matching +defs:compile +defs:goto +defs:error
88 ;; directory. Otherwise, byte-compile the source file:
89 ;; Emacs: M-x byte-compile-file RET vhdl-mode.el RET
90 ;; Unix: emacs -batch -q -no-site-file -f batch-byte-compile vhdl-mode.el
168 (widget-put widget :error "Invalid directory entry: must end with '/'")
223 (defgroup vhdl-compile nil
262 ;; test.vhd:34: error message
346 Compile options : compile options (\"\\1\" inserts library name)
358 Regexp : regular expression to match error messages (*)
371 \(*) The regular expression must match the error message starting from the
385 Compile options, compile directory, library directory, and Makefile name are
390 Some compilers do not include the file name in the error message, but print
397 A compiler is selected for syntax analysis (`\\[vhdl-compile]') by
403 NOTE: Activate new error and file message regexps and reflect the new setting
445 :group 'vhdl-compile)
455 :group 'vhdl-compile)
457 (defcustom vhdl-compile-use-local-error-regexp t
458 "*Non-nil means use buffer-local `compilation-error-regexp-alist'.
459 In this case, only error message regexps for VHDL compilers are active if
460 compilation is started from a VHDL buffer. Otherwise, the error message
463 might result in erroneous parsing of error messages for some VHDL compilers.
467 :group 'vhdl-compile)
478 :group 'vhdl-compile)
484 :group 'vhdl-compile)
526 - Do not compile: do not compile this file (in Makefile)
552 Files are compiled in the compile directory. Makefiles are also placed into
553 the compile directory. Library directory specifies which directory the
556 Since different compile/library directories and Makefiles may exist for
559 Compile options, compile directory, library directory, and Makefile name
597 (const :tag "Do not compile" nil))))))
1876 in the offsets alist, an error is generated, otherwise no error is
1932 an error is generated if `vhdl-strict-syntax-p' is non-nil, otherwise
2031 (require 'compile) ; XEmacs
2035 ;; optional (minimize warning messages during compile)
2036 (eval-when-compile
2343 (error (eval restore-prog) ; restore environment on error
2344 (error (cadr info))))) ; pass error up
2384 (error (eval restore-prog) ; restore environment on error
2385 (error (cadr info))))) ; pass error up
2390 (defmacro vhdl-visit-file (file-name issue-error &rest body)
2408 (error
2409 (if ,issue-error
2413 (error "ERROR: File cannot be opened: \"%s\"" ,file-name))
2418 (error
2419 (if ,issue-error
2423 (error (cadr info)))
2477 (goto-char (point-min))
2479 (goto-char (match-end 1))
2501 (defun vhdl-goto-marker (marker)
2505 (goto-char marker))
2706 (define-key vhdl-mode-map "\C-c\C-k" 'vhdl-compile)
2762 (define-key vhdl-mode-map "\C-c\C-l\C-g" 'goto-line)
3204 ["Compile Buffer" vhdl-compile t]
3210 ["Next Error" next-error t]
3211 ["Previous Error" previous-error t]
3212 ["First Error" first-error t]
3419 ["Goto" goto-line t]
3555 (customize-set-variable 'vhdl-compile-use-local-error-regexp
3556 (not vhdl-compile-use-local-error-regexp))
3557 :style toggle :selected vhdl-compile-use-local-error-regexp]
4098 "Call `directory-files' if DIRECTORY exists, otherwise generate error
4451 command options, compilation directory, and error message syntax
4742 (when vhdl-compile-use-local-error-regexp
4743 (set (make-local-variable 'compilation-error-regexp-alist) nil)
4923 "note" "warning" "error" "failure"
5167 (error "ERROR: Bad buffer position requested: %s" position))
5185 (t (error "ERROR: Unknown buffer position requested: %s" position))
5189 (goto-char here))
5196 "Safely execute BODY, return nil if an error occurred."
5199 (error nil)))
5232 ;; error, but don't signal one, keep trying
5274 (error "ERROR: Offset must be int, func, var, or one of +, -, ++, --: %s"
5282 (error "ERROR: %s is not a valid syntactic symbol" symbol))))
5297 (error "ERROR: Invalid VHDL indentation style `%s'" style))
5339 (error "ERROR: Don't know how to indent a %s" symbol)
5355 (goto-char relpos)
5389 (goto-char (match-beginning 3))
5394 (goto-char (match-end 0))
5409 (goto-char lim )
5471 (if lim (goto-char (min (point) lim)))))
5500 (goto-char here)
5511 (if lim (goto-char (max (point) lim)))))
5542 (and (goto-char point)
5550 (and (goto-char point)
5862 (goto-char (match-end 0)))
5867 (goto-char (match-end 0)))
5990 (error
6008 (goto-char (match-beginning 0)))
6024 (goto-char placeholder))
6028 (error "ERROR: Unbalanced keywords in vhdl-forward-sexp"))
6037 (goto-char target)
6062 (error "ERROR: Containing expression ends prematurely in vhdl-backward-sexp")))
6119 (goto-char (match-beginning 1)))
6125 (goto-char
6135 (goto-char foundp))
6141 (error "ERROR: Unbalanced keywords in vhdl-backward-sexp"))
6146 (goto-char target)
6158 (error "ERROR: Unbalanced blocks"))
6162 (goto-char target)))
6219 (goto-char
6225 (goto-char last-forward)))
6245 (goto-char last-forward)
6273 (goto-char
6280 (goto-char last-forward)) ; end search for begin keyword
6306 (goto-char lim)
6317 (goto-char (max (point) lim))
6367 (progn (goto-char pos)
6387 (goto-char (vhdl-end-of-leader))
6396 (goto-char pos)
6411 (goto-char (match-end 0))
6417 (goto-char pos)
6431 (goto-char placeholder)
6435 (goto-char bod)
6442 (goto-char bod)
6529 (goto-char (match-beginning 0))
6539 (goto-char here))
6555 (goto-char placeholder))
6565 (goto-char (match-end 0))
6612 (goto-char containing-sexp)
6621 (goto-char indent-point)
6635 (goto-char indent-point)
6653 (goto-char preceding-sexp)
6695 (goto-char containing-sexp)
6700 (goto-char containing-sexp)
6707 (goto-char (1+ containing-sexp))
6715 (goto-char containing-sexp)
6726 (goto-char containing-sexp)
6735 (goto-char containing-sexp)
6768 (goto-char placeholder)
6776 (goto-char placeholder)
6780 (goto-char new)
6793 (goto-char containing-sexp)
6803 (goto-char containing-leader)
6804 (goto-char containing-sexp)
6821 (goto-char (match-end 0))
6841 (goto-char containing-sexp)
6853 (goto-char indent-point)
6880 (goto-char (cdr langelem)))
6883 (goto-char (cdr langelem))
6888 (progn (goto-char (match-end 0))
6893 (goto-char containing-sexp)
6902 (goto-char here))))
6910 (goto-char (cdr langelem))
6942 (goto-char (vhdl-point 'boi))
6947 (goto-char relpos)
6957 (goto-char (min (vhdl-point 'eol)
7081 (goto-char (- (point-max) pos))))
7158 (error "ERROR: Should be: %s, is: %s" expected expurgated))
7240 (goto-char (1+ beg))
7246 (error "ERROR: Not within a list enclosed by a pair of parentheses"))))
7283 (goto-char end)
7285 (goto-char begin)
7294 (goto-char begin)
7321 (goto-char begin)
7338 (goto-char (setq bol begin))
7345 (goto-char (match-beginning substr))
7360 (goto-char beg)
7364 (goto-char end)
7372 (goto-char beg)
7386 (goto-char beg))
7411 (goto-char end)
7413 (goto-char cur-beg)
7419 (progn (goto-char cur-beg)
7472 (error "ERROR: Not within the declarative part of a design unit"))))
7491 (goto-char beg)
7496 (not (save-excursion (goto-char (match-beginning 2))
7516 (goto-char beg)
7522 (goto-char (match-beginning 3))
7531 (goto-char (match-end 2))
7564 (goto-char beg)
7568 (goto-char end)
7572 (goto-char beg)
7582 (goto-char beg))
7598 (goto-char start)
7624 (goto-char end)
7627 (goto-char beg)
7630 (goto-char (match-end 1))
7633 (goto-char beg)
7636 (goto-char (match-end 1))
7639 (goto-char beg)
7642 (goto-char (match-end 1))
7645 (goto-char beg)
7648 (goto-char (match-end 1))
7650 (goto-char (match-end 2))))
7652 (goto-char beg)
7684 (setq end (save-excursion (goto-char end) (point-marker)))
7705 (goto-char beg)
7707 (goto-char end)
7715 (goto-char beg)
7769 (error "ERROR: Not within a process")
7779 (goto-char (point-min))
7782 (goto-char (match-beginning 0))
7783 (condition-case nil (vhdl-update-sensitivity-list) (error "")))
7794 ((progn (goto-char proc-mid)
7796 (error "ERROR: Process with wait statement, sensitivity list not generated"))
7834 (goto-char proc-beg)
7839 (goto-char (match-end 1))
7842 (goto-char sens-beg)
7849 (goto-char proc-mid)
7853 (goto-char end)
7860 (goto-char proc-mid)
7863 (goto-char beg)
7880 (goto-char (match-end 1)))))
7883 (goto-char sens-beg)
7911 (error "ERROR: Not within an architecture")))
7914 (goto-char (point-min))
7922 (goto-char (point-min))
7924 (error "ERROR: Entity \"%s\" not found:\n --> see option `vhdl-entity-file-name'" entity-name)
7934 (goto-char (match-end 0)))
7938 (goto-char (match-end 0))
7947 (error "ERROR: No architecture declarative part found")
7949 (goto-char beg)
7957 (goto-char (match-end 0)))
7963 (goto-char (match-end 0))))
7969 (goto-char (match-end 2))
7975 (goto-char beg)
7983 (goto-char (match-end 0)))
7989 (goto-char (match-end 0))))))
7990 (goto-char beg)))
8004 (error "ERROR: Not within a generic/port clause")
8006 (goto-char (match-end 0))
8010 (goto-char (1- (match-end 0)))
8014 (goto-char end)
8016 (error "ERROR: Not within a generic/port clause"))
8024 (while (progn (goto-char beg)
8026 (error (goto-char (point-max))))
8031 (goto-char end)
8042 (goto-char (point-min))
8110 (goto-char last-abbrev-location)
8312 (goto-char start)
8379 (goto-char start)
8397 (goto-char position)))))
8617 (goto-char position))))
8794 (goto-char start)
8796 (goto-char position)
8811 (goto-char start)
8935 (goto-char start)
8937 (goto-char position)
8952 (goto-char start)
9035 (goto-char start)
9093 (goto-char (point-min))
9098 (error (concat "ERROR: Modification date prefix string \""
9135 (goto-char mid-pos)
9138 (when end-pos (goto-char end-pos))))))
9194 (goto-char position))))
9233 (goto-char start)
9235 (goto-char start)
9289 (goto-char start)
9291 (goto-char start)
9344 (goto-char final-pos))))
9478 (goto-char position))
9620 (goto-char mid-pos)
9623 (when end-pos (goto-char end-pos))))))
9688 (goto-char position)
9691 (goto-char position)))
9703 (goto-char start)
9798 (goto-char position)
9915 (goto-char (point-min))
9927 (goto-char (point-max))
9942 (goto-char beg)
9945 (goto-char beg)
9948 (goto-char beg)
9951 (goto-char beg)
9956 (goto-char beg)
9959 (goto-char beg)
9962 (goto-char beg)
9965 (goto-char beg)
9968 (goto-char beg)
9975 (goto-char beg)
9980 (goto-char beg)
9984 (goto-char beg)
9987 (goto-char beg)
9991 (goto-char beg))
9997 (goto-char beg)
10001 (when pos (goto-char pos))
10023 (goto-char position)
10027 (goto-char position)
10108 ; (goto-char position))
10129 (goto-char final-pos))))
10135 (goto-char (1- end))
10138 (goto-char beg)
10158 (goto-char end)
10160 (goto-char beg)
10171 (goto-char end)
10173 (goto-char beg)
10204 (goto-char position)))
10238 (when semicolon-pos (goto-char semicolon-pos))
10253 (goto-char position)
10287 (goto-char semicolon-pos)
10303 (goto-char position)
10340 (goto-char semicolon-pos)
10493 (goto-char end)
10520 (goto-char (match-end 5))
10537 (when pos (goto-char pos))))
10561 (when pos (goto-char pos))))
10796 (goto-char start)
10800 (goto-char start)
10806 (goto-char start)
10811 (goto-char start)
10818 (goto-char start)
10830 (goto-char position)))
10831 (goto-char start)
10832 ;; goto final position
10835 (goto-char end))))))
10878 (goto-char (match-end 0))
10880 (throw 'parse (format "ERROR: Syntax error near line %s, expecting \"%s\""
10920 (goto-char pos)))
10931 (error "ERROR: No port has been read")
10966 (error "ERROR: No port has been read")
10986 (let (parse-error end-of-list
10991 parse-error
11133 (if parse-error
11134 (error parse-error)
11274 (error "ERROR: No port read")
11283 (error "ERROR: No port read")
11394 (error "ERROR: No port read")
11411 (goto-char (point-min))
11443 (error "ERROR: No port read")
11485 (error "ERROR: No port read")
11534 (error "ERROR: No port read")
11567 (error "ERROR: No port read")
11588 (error "ERROR: Pasting port as testbench...aborted")))
11597 (goto-char (point-max)))
11632 (error "ERROR: Pasting port as testbench...aborted"))
11641 (goto-char (point-max)))
11684 (goto-char position)
11729 (error "ERROR: No subprogram interface has been read")
11753 (let (parse-error pos end-of-list
11759 parse-error
11764 (when (looking-at "[ \t\n]*\\((\\|;\\|is\\>\\)") (goto-char (match-end 0)))
11766 (goto-char (match-end 0))
11870 (if parse-error
11871 (error parse-error)
11950 (error "ERROR: No subprogram interface read")
11962 (error "ERROR: No subprogram interface read")
11974 (error "ERROR: No subprogram interface read")
12064 (error ()))
12094 (goto-char end)
12096 (goto-char beg)
12109 (goto-char end)))))
12238 (goto-char pos)
12254 (goto-char pos)
12268 (goto-char (point-min))
12271 (goto-char (match-end 1))
12274 (goto-char (point-min))
12298 (when pos (goto-char pos))
12307 (when pos (goto-char pos))
12348 (error "ERROR: No current project")))
12358 (error "ERROR: File not writable: \"%s\"" file-name)
12393 (error ""))
12401 (error (vhdl-warning
12475 (goto-char (match-end 0))
12488 (goto-char (match-end 0))
12494 (goto-char (match-end 0))
12498 (goto-char pos))
12501 (goto-char (match-end 0))
12514 (goto-char (match-end 0))
12525 (t (goto-char pos))))))
12588 (goto-char end))))))
12599 (goto-char (match-end 1))
12602 (goto-char (match-end 1))
12604 (error t)))
12728 (progn (goto-char (match-beginning 1))
12738 (goto-char (match-end 1)) (1 font-lock-variable-name-face)))
12744 (progn (goto-char (match-beginning 1))
12750 (goto-char (point-max))))
12751 (goto-char (match-end 1)) (1 font-lock-variable-name-face)))
12757 (progn (goto-char (match-end 1)) (match-beginning 2))
13105 (goto-char (match-beginning 0))
13200 (goto-char (point-min))
13217 (goto-char (point-min))
13243 (goto-char (point-min))
13292 (goto-char (point-min))
13346 (goto-char (point-min))
13395 (goto-char (match-end 1))
13408 (goto-char beg-of-unit)
13461 (goto-char end-of-unit))))
13736 (error "ERROR: Instantiation loop detected, component instantiates itself: \"%s\"" ent-key))
13856 (error (progn (vhdl-warning "ERROR: An error occurred while saving the hierarchy caches")
13955 (error (progn (vhdl-warning (format "ERROR: Corrupted cache file: \"%s\"" file-dir-name))
14096 (error "WARNING: Speedbar is not available or not installed")
14099 (error (error "WARNING: An error occurred while opening speedbar")))))
14133 (error (vhdl-warning-when-idle "ERROR: Invalid hierarchy information, unable to display correctly")))))
14145 (error (vhdl-warning-when-idle "ERROR: Invalid hierarchy information, unable to display correctly"))))
14166 (goto-char (point-min))
14169 (goto-char (match-end 1))
14281 (when (speedbar-goto-this-file (car sf))
14284 (goto-char (match-end 0))
14298 (vhdl-speedbar-goto-this-unit key (caar unit-alist))
14303 (goto-char (match-end 0))
14308 (goto-char position)
14314 (goto-char (match-end 0))
14331 (goto-char (match-end 0))
14394 (t (error "Nothing to display")))
14463 (t (error "Nothing to display")))
14522 (t (error "Nothing to display")))
14580 (t (error "Nothing to display")))
14649 (t (error "Nothing to display")))
14689 (goto-char (point-min))
14699 (when pos (goto-char pos)))
14772 (goto-char pos)
14783 (goto-char (point-min))
15014 (t (error "Nothing to display")))
15023 (when (looking-at "^[0-9]+:") (goto-char (match-end 0)))
15032 (goto-char (match-end 1))
15148 (defun vhdl-speedbar-goto-this-unit (directory unit)
15149 "If UNIT is displayed in DIRECTORY, goto this line and return t, else nil."
15152 (progn (goto-char (point-min)) t)
15153 (speedbar-goto-this-file directory))
15157 (goto-char dest)
15165 (error "ERROR: File cannot be found")
15169 (goto-line (cdr token))
15180 (error "ERROR: No entity/component or subprogram under cursor")
15187 (progn (goto-line (cdr token))
15192 (error (error "ERROR: %s not scanned successfully\n (%s)"
15194 (error "ERROR: No entity/component or subprogram on current line")))))
15200 (error "ERROR: No entity/component under cursor")
15212 (error "ERROR: No architecture under cursor")
15224 (error "ERROR: No architecture under cursor")
15234 "Make (compile) design unit or directory/project under the cursor."
15238 (error "ERROR: No primary design unit or directory/project under cursor")
15374 (error (vhdl-warning-when-idle "ERROR: An error occurred while opening speedbar"))))
15416 (error "ERROR: Creating component...aborted"))
15423 (goto-char (point-max)))
15457 (error "ERROR: Creating component...aborted"))
15464 (goto-char (point-max)))
15493 (goto-char (point-min))
15509 (error "ERROR: No port has been read")
15514 (error "ERROR: No architecture found"))
15544 (goto-char (point-min))
15546 (error "ERROR: Entity not found: \"%s\"" ent-name))
15547 (goto-char (match-beginning 0))
15551 (progn (goto-char (match-end 0))
15566 (error "ERROR: No architecture found"))
15589 (goto-char arch-stat-pos)
15606 (goto-char (point-min))
15608 (error "ERROR: Component declaration not found: \"%s\"" comp-name))
15617 (goto-char (point-min))
15619 (error "ERROR: Entity declaration not found: \"%s\"" comp-ent-name))
15636 (error "ERROR: Formal generic \"%s\" mismatch for instance \"%s\"" (match-string 2) inst-name))
15656 (error "ERROR: Formal port \"%s\" mismatch for instance \"%s\"" (match-string 2) inst-name))
15695 (vhdl-goto-marker arch-decl-pos)
15707 (goto-char (point-min))
15709 (error "ERROR: Entity not found: \"%s\"" ent-name))
15713 (goto-char (match-beginning 0))
15731 (goto-char (match-beginning 0))
15763 (vhdl-goto-marker generic-pos)
15771 (vhdl-goto-marker
15779 (vhdl-goto-marker (vhdl-max-marker constant-temp-pos generic-pos))
15782 (vhdl-goto-marker generic-inst-pos))
15790 (vhdl-goto-marker port-in-pos)
15797 (vhdl-goto-marker (vhdl-max-marker port-out-pos port-in-pos))
15805 (vhdl-goto-marker
15813 (vhdl-goto-marker signal-pos)
15819 (vhdl-goto-marker
15824 (vhdl-goto-marker port-inst-pos))
15826 (vhdl-goto-marker signal-temp-pos)
15829 (vhdl-goto-marker signal-pos))
15832 (vhdl-goto-marker generic-end-pos) (backward-char)
15837 (vhdl-goto-marker port-end-pos) (backward-char)
15844 (vhdl-goto-marker generic-beg-pos)
15847 (vhdl-goto-marker signal-beg-pos)
15904 (error "ERROR: Generating components package...aborted"))
15912 (goto-char (point-max)))
15936 (progn (goto-line (nth 3 (car ent-alist)))
15939 (goto-char component-pos)
15943 (goto-char clause-pos)
15947 (goto-char (point-min))
16065 (error "ERROR: Not within an architecture"))))
16083 (error "ERROR: Creating configuration...aborted"))
16092 (goto-char (point-max)))
16094 ;; goto end of architecture
16128 ;; (using `compile.el')
16140 (defun vhdl-compile-directory ()
16175 (defun vhdl-compile-init ()
16177 (when (or (null compilation-error-regexp-alist)
16179 compilation-error-regexp-alist)))
16180 ;; `compilation-error-regexp-alist'
16194 (setq compilation-error-regexp-alist
16195 (append compilation-error-regexp-alist (nreverse regexp-alist))))
16210 (defvar vhdl-compile-file-name nil
16213 (defun vhdl-compile-print-file-name ()
16214 "Function called within `compile' to print out file name for compilers that
16216 (insert "Compiling \"" vhdl-compile-file-name "\"\n"))
16218 (defun vhdl-get-compile-options (project compiler file-name
16220 "Get compiler options. Returning nil means do not compile this file."
16275 (defun vhdl-compile ()
16279 (vhdl-compile-init)
16282 (error "ERROR: No such compiler: \"%s\"" vhdl-compiler)))
16285 (options (vhdl-get-compile-options project compiler file-name))
16286 (default-directory (vhdl-compile-directory))
16289 (error "ERROR: Compile directory does not exist: \"%s\"" default-directory))
16294 (setq vhdl-compile-file-name (buffer-file-name))
16297 (setq compilation-process-setup-function 'vhdl-compile-print-file-name))
16301 (compile (concat command " " options " " file-name)))
16302 (vhdl-warning "Your project settings tell me not to compile this file"))))
16309 `Makefile'). Optional argument TARGET allows to compile the design
16315 (vhdl-compile-init)
16318 (error "ERROR: No such compiler: \"%s\"" vhdl-compiler)))
16321 (default-directory (vhdl-compile-directory)))
16323 (error "ERROR: Compile directory does not exist: \"%s\"" default-directory))
16325 (compile (concat (if (equal command "") "make" command)
16335 (error "ERROR: No such compiler: \"%s\"" vhdl-compiler)))
16339 (let ((default-directory (vhdl-compile-directory)))
16340 (compile (vhdl-replace-string
16378 (compile-directory (expand-file-name (vhdl-compile-directory)
16390 (unless (file-exists-p compile-directory)
16391 (make-directory compile-directory t))
16393 (error "Please contact the VHDL Mode maintainer for support of \"%s\""
16403 (nth 2 ent-entry) compile-directory)
16428 compile-directory)
16472 (nth 2 conf-entry) compile-directory)
16523 compile-directory)
16542 compile-directory)
16577 makefile-name compile-directory))
16605 ;; insert compile and option variable settings
16608 "\nOPTIONS = " (vhdl-get-compile-options project compiler nil)
16617 compile-directory))))
16687 (vhdl-get-compile-options project compiler (nth 0 rule) t))
16707 ;; insert compile command
16769 'vhdl-compile-use-local-error-regexp