Lines Matching +defs:compile +defs:goto +defs:error
131 (require 'compile nil t)
133 (defvar compile-auto-highlight)
137 (eval-and-compile
475 (eval-when-compile
476 ;; These values are used in eval-when-compile expressions.
481 "generic" "goto" "if" "in" "is" "limited" "loop" "mod" "new"
548 (eval-when-compile
572 (eval-when-compile
577 (eval-when-compile
585 (eval-when-compile
627 (defconst ada-compile-goto-error-file-linenr-re
635 (eval-when-compile
643 (eval-when-compile
659 (eval-when-compile
665 "Regexp used in `ada-goto-matching-start'.")
668 (eval-when-compile
673 "Regexp used in `ada-goto-matching-decl-start'.")
680 (eval-when-compile
711 ["Goto Previous Reference" ada-xref-goto-previous-reference]
718 ["Goto Parent Unit" ada-goto-parent]))
758 ;; Support for compile.el
761 (defun ada-compile-mouse-goto-error ()
762 "Mouse interface for `ada-compile-goto-error'."
765 (ada-compile-goto-error (point))
768 (defun ada-compile-goto-error (pos)
769 "Replace `compile-goto-error' from compile.el.
771 to compile.el the capacity to go to a reference in an error message.
777 (goto-char pos)
784 (or (looking-at ada-compile-goto-error-file-linenr-re)
788 (looking-at ada-compile-goto-error-file-linenr-re))
796 (looking-at ada-compile-goto-error-file-linenr-re)
798 (error-pos (point-marker))
807 (goto-line (string-to-number line)))
811 (compilation-goto-locus error-pos source nil)
817 (compile-goto-error))
921 (goto-char from)
928 (goto-char from)
938 (goto-char (caar change))
955 (goto-char (point-min))
959 (goto-char (point-min))
1064 (goto-char (car ada-contextual-menu-last-point))
1152 or '\\[ada-goto-declaration]' with point on the identifier
1208 ;; Support for compile.el
1209 ;; We just substitute our own functions to go to the error.
1212 (set (make-local-variable 'compile-auto-highlight) 40)
1215 'ada-compile-mouse-goto-error)
1217 'ada-compile-goto-error)
1219 'ada-compile-goto-error)))
1252 (cons (eval-when-compile
1407 (progn (goto-char (symbol-value 'beg)) (forward-word -1) (point))
1408 (goto-char aa-end)))))
1464 (error (concat "No exception file specified. "
1503 (error (concat "No exception file specified. "
1550 (goto-char (point-min))
1797 (goto-char to)
1817 (goto-char end)
1826 (goto-char begin))))
1868 (error "Not in parameter list"))
1894 (goto-char begin)
1912 (goto-char begin)
1918 (ada-goto-next-non-ws)
1930 (goto-char apos)
1946 (goto-char apos)
1955 (goto-char apos)
1964 (goto-char apos)
1965 (ada-goto-next-non-ws)
1968 (ada-goto-next-non-ws))
1979 (goto-char (setq apos (match-end 0)))
1995 (goto-char semipos))
2148 (goto-char beg)
2189 (goto-char (car cur-indent))
2206 (goto-char (car cur-indent))
2226 (defsubst ada-goto-previous-word ()
2229 (ada-goto-next-word t))
2265 (setq prev-indent (save-excursion (goto-char (car cur-indent))
2288 (goto-char orgpoint)
2331 (goto-char column)
2382 (ada-goto-matching-start 1)
2401 (goto-char (car match-cons))
2430 (ada-goto-matching-start 1)
2436 (if (save-excursion (ada-goto-previous-word)
2440 (ada-goto-matching-start 1 nil t)
2447 (ada-goto-matching-start 1 nil t)
2459 (ada-goto-matching-start 1)
2469 (if (save-excursion (ada-goto-previous-word)
2487 (goto-char (match-end 0))
2488 (ada-goto-stmt-start)
2523 (if (ada-goto-matching-decl-start t)
2536 (goto-char (match-end 0))
2537 (ada-goto-next-non-ws (save-excursion (end-of-line)
2541 (ada-goto-stmt-start)
2544 (ada-goto-stmt-start)
2565 (goto-char (car pos)))
2615 (ada-goto-matching-start 1)
2625 (ada-goto-stmt-start)
2732 (goto-char initial-pos))
2741 (ada-goto-stmt-start))
2771 ;; statements, since (goto-stmt-start) at the beginning of
2825 (goto-char (match-end 0))
2830 (goto-char (cdr (ada-search-ignore-string-comment "(\\|;" t nil t)))
2831 (ada-goto-next-non-ws)
2842 (goto-char (cdr (ada-search-ignore-string-comment "(\\|;" t nil t)))
2843 (ada-goto-next-non-ws)
2860 (ada-goto-next-non-ws)
2874 (ada-goto-stmt-start)
2885 (ada-goto-matching-start 0)
2893 (ada-goto-matching-start 0)
2897 (if (ada-goto-matching-decl-start t)
2903 ;; anything else - should maybe signal an error ?
2929 (goto-char (car match-cons))
2931 (error "Missing 'when' between 'case' and '=>'"))
2939 (goto-char (cdr match-cons))
3000 (setq pos (ada-goto-next-non-ws orgpoint)))
3001 (goto-char pos)
3044 (goto-char (cdr match-cons)))
3046 ;; no, then goto next non-ws, if there is one in front of point
3049 (unless (ada-goto-next-non-ws orgpoint)
3050 (goto-char orgpoint))))
3072 (goto-char (car match-cons))
3080 (save-excursion (setq match-cons (ada-goto-next-non-ws orgpoint)))
3081 (goto-char match-cons)
3130 (ada-goto-previous-word)
3136 (ada-goto-previous-word)
3139 (goto-char p)
3160 (goto-char (car match-cons))
3167 (goto-char (car match-cons))
3222 (goto-char (match-end 0))
3223 (ada-goto-next-non-ws orgpoint)
3226 (ada-goto-next-non-ws orgpoint)
3237 (goto-char (car match-cons))
3248 (goto-char (car match-cons))
3256 (goto-char pos))
3278 (goto-char (car match-cons))
3286 (goto-char pos))
3305 (ada-goto-next-non-ws)
3308 (ada-goto-next-non-ws)
3310 (goto-char (car match-dat))
3318 (goto-char (car match-dat))
3334 (not (ada-goto-next-non-ws orgpoint))))
3349 (defun ada-goto-stmt-start ()
3366 (goto-char (cdr match-dat))
3367 (ada-goto-next-non-ws orgpoint))
3374 ;; if found the correct end-statement => goto next non-ws
3377 (goto-char (cdr match-dat)))
3378 (ada-goto-next-non-ws)
3386 (goto-char (point-min))
3390 (unless (ada-goto-next-non-ws orgpoint)
3391 (goto-char orgpoint))))
3409 (goto-char (car match-dat))
3416 (ada-goto-previous-word)
3422 (and (save-excursion (ada-goto-previous-word)
3423 (ada-goto-previous-word)
3426 (save-excursion (goto-char (cdr match-dat))
3427 (ada-goto-next-non-ws)
3430 (eval-when-compile
3451 (defun ada-goto-next-non-ws (&optional limit)
3469 (defun ada-goto-stmt-end (&optional limit)
3478 (defun ada-goto-next-word (&optional backward)
3496 (goto-char (car match-cons))
3502 (goto-char orgpoint)
3509 "Signal an error if matching block start is not KEYWORD.
3511 (ada-goto-matching-start 0)
3513 (error "Matching start is not '%s'" keyword)))
3518 Assumes point to be already positioned by `ada-goto-matching-start'.
3523 (ada-goto-previous-word)
3530 (ada-goto-matching-decl-start))
3557 (error "Matching defun has different name: %s"
3561 (defun ada-goto-matching-decl-start (&optional noerror recursive)
3599 (ada-goto-matching-start 1 noerror)
3624 (ada-goto-matching-start 1 noerror t)
3625 ;; (ada-goto-matching-decl-start noerror t)
3670 (ada-goto-previous-word)
3674 (ada-goto-previous-word)
3677 (goto-char (match-beginning 0))
3685 (ada-goto-previous-word)
3687 (goto-char (match-beginning 0))))
3719 (error "No matching proc/func/task/declare/package/protected")))
3722 (defun ada-goto-matching-start (&optional nest-level noerror gotothen)
3762 (ada-goto-previous-word)
3780 (goto-char pos)
3791 (goto-char (car pos))
3792 (error (concat
3799 (ada-goto-next-non-ws)
3815 (ada-goto-next-non-ws)
3821 (ada-goto-next-non-ws);; skip type name
3834 (goto-char (car tmp))
3864 (goto-char (car pos)))
3877 (goto-char (car pos)))
3913 (goto-char (match-beginning 0)))
3922 (error "Missing 'accept' in front of 'do'"))))
3927 (error "No matching start"))))))
3930 (defun ada-goto-matching-end (&optional nest-level noerror)
3935 (regex (eval-when-compile
3991 (ada-goto-next-non-ws)
3994 (goto-char pos)
3995 (ada-goto-matching-end 0 t)))))))
4004 (ada-goto-next-non-ws)
4013 (ada-goto-next-non-ws)
4016 (goto-char (match-end 0))
4033 (error "No matching end")))
4081 (goto-char (nth 8 parse-result)))
4093 (goto-char (nth 8 parse-result)))
4136 (ada-goto-matching-decl-start t))))
4145 (ada-goto-stmt-start)
4203 (looking-at (eval-when-compile
4235 (goto-char (1+ (nth 1 parse)))
4266 ((eq ada-tab-policy 'always-tab) (error "Not implemented"))
4274 ((eq ada-tab-policy 'indent-auto) (error "Not implemented"))
4275 ((eq ada-tab-policy 'always-tab) (error "Not implemented"))
4285 (goto-char starting-point))
4321 (goto-char (point-min))
4332 (goto-char (point-min))
4338 (goto-char (point-min))
4342 (goto-char (point-min))
4347 (goto-char (point-min))
4351 (goto-char (point-min))
4355 (goto-char (point-min))
4363 (goto-char (point-min))
4366 (goto-char (match-beginning 0))
4371 (goto-char (point-min))
4375 (goto-char (match-beginning 1))
4414 ;; or if an error occurs during processing
4424 (error "Not on end ...;")))
4425 (ada-goto-matching-start 1)
4433 (ada-goto-matching-decl-start)
4439 (goto-char pos))
4463 (ada-goto-matching-end 1)
4477 (ada-goto-matching-end 0 t))
4481 (and (ada-goto-stmt-start)
4484 (ada-goto-next-non-ws)
4490 (and (ada-goto-stmt-start)
4492 (ada-goto-matching-end 0))
4495 (setq decl-start (and (ada-goto-matching-decl-start t) (point)))
4497 (ada-goto-matching-end 1))
4503 (ada-goto-matching-end 0 t))
4507 (goto-char decl-start)
4508 (ada-goto-matching-end 0 t))
4512 (ada-goto-matching-end 1)))
4517 (goto-char pos))
4527 (goto-char (match-beginning 4))
4528 (error "No more functions/procedures/tasks")))
4535 (goto-char (match-beginning 4))
4536 (error "No more functions/procedures/tasks")))
4543 (goto-char (match-beginning 1))
4544 (error "No more packages")))
4551 (goto-char (match-beginning 1))
4552 (error "No more packages")))
4583 (define-key ada-mode-map "\C-c\C-c" 'compile))
4616 (define-key ada-mode-map "\C-c5\C-d" 'ada-goto-declaration-other-frame)
4617 (define-key ada-mode-map "\C-c\C-d" 'ada-goto-declaration)
4618 (define-key ada-mode-map "\C-c\C-s" 'ada-xref-goto-previous-reference)
4619 (define-key ada-mode-map "\C-c\C-c" 'ada-compile-application)
4623 (define-key ada-mode-map "\C-c\C-m" 'ada-set-main-compile-application)
4625 (define-key ada-mode-map "\C-c\C-o" 'ada-goto-parent)
4693 (setq ada-xref-confirm-compile (not ada-xref-confirm-compile))
4694 :style toggle :selected ada-xref-confirm-compile
4707 ["Compile file" ada-compile-current t]
4708 ["Set main and Build" ada-set-main-compile-application t]
4710 ["Build" ada-compile-application t]
4720 ["Goto Declaration/Body" ada-goto-declaration
4722 ["Goto Body" ada-goto-body
4725 ada-goto-declaration-other-frame
4727 ["Goto Previous Reference" ada-xref-goto-previous-reference
4735 ["Goto Parent Unit" ada-goto-parent
4738 ["Next compilation error" next-error t]
4847 (goto-char beg)
4889 (error "Not inside comment"))
4913 (goto-char opos)
4935 (goto-char from)
4939 (goto-char (1- to))
4953 (goto-char from)
4969 (goto-char to)
4973 (goto-char opos)))
5104 (error nil))
5130 (goto-char (match-end 0))
5157 (goto-char (point-min))
5160 (goto-char (point-min))))))
5221 (eval-when-compile
5289 (list (concat "\\<\\(goto\\|raise\\|use\\|with\\)"
5360 (goto-char (car match))
5370 ;; goto end of procname
5371 (goto-char (cdr match))
5432 (goto-char (point-min))
5438 (progn (goto-char (cdr found))
5441 (error "No package"))
5452 (goto-char (car found))
5454 (progn (goto-char (cdr found))
5467 (goto-char spec)
5479 (error "No body found for the package. Create it first"))
5483 (goto-char (point-max))
5494 (error "Not in subprogram spec"))))
5521 (autoload 'ada-compile-application "ada-xref" nil t)
5522 (autoload 'ada-compile-current "ada-xref" nil t)
5530 (autoload 'ada-goto-declaration "ada-xref" nil t)
5531 (autoload 'ada-goto-declaration-other-frame "ada-xref" nil t)
5532 (autoload 'ada-goto-parent "ada-xref" nil t)
5539 (autoload 'ada-xref-goto-previous-reference "ada-xref" nil t)
5540 (autoload 'ada-set-main-compile-application "ada-xref" nil t)