Lines Matching +defs:label +defs:prefix +defs:re
338 (defcustom ada-fill-comment-prefix "-- "
349 (defcustom ada-label-indent -4
350 "*Number of columns to indent a label.
597 (defconst ada-ident-re
627 (defconst ada-compile-goto-error-file-linenr-re
634 (defvar ada-block-start-re
642 (defvar ada-end-stmt-re
658 (defvar ada-matching-start-re
667 (defvar ada-matching-decl-start-re
675 (defvar ada-loop-start-re
679 (defvar ada-subprog-start-re
685 (defvar ada-named-block-re
726 (defconst ada-imenu-comment-re "\\([ \t]*--.*\\)?")
728 (defconst ada-imenu-subprogram-menu-re
731 ada-imenu-comment-re
737 (list nil ada-imenu-subprogram-menu-re 2)
742 "\\(" ada-imenu-comment-re "[ \t\n]+\\|[ \t\n]*([^)]+)"
743 ada-imenu-comment-re "\\)";; parameter list or simple space
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)
922 (while (re-search-forward "'\\([(\")#]\\)'" to t)
929 (while (re-search-forward "\\(#[0-9a-fA-F]*#\\)" to t)
956 (while (re-search-forward "'.'" nil t)
960 (while (re-search-forward "^[ \t]*#" nil t)
980 (while (re-search-forward "'.'" eol t)
1178 (lambda (&optional soft) (let ((fill-prefix nil))
1374 ;; ada-fill-comment-prefix
1376 (if ada-fill-comment-prefix
1377 (set 'comment-start ada-fill-comment-prefix)
1595 re)
1605 (setq re (concat "\\b" (regexp-quote (caar substrings)) "\\b"))
1608 (while (re-search-forward re max t)
1640 ;; Else simply re-case the word
1685 ARG is the prefix the user entered with \\[universal-argument]."
1710 ((self-insert-command (prefix-numeric-value arg))))
1728 (self-insert-command (prefix-numeric-value arg))))
1801 (while (re-search-backward "\\<\\(\\sw+\\)\\>" from t)
1872 (concat ada-subprog-start-re "\\|\\<body\\>" ) t nil)
2032 (re-search-backward "^.\\|[^ \t]" nil t)
2034 ;; yes => re-indent it
2210 "Re-indent and re-case all the files found on the command line.
2279 ;; only re-indent if indentation is different then the current
2379 (let ((label 0)
2398 (ada-search-ignore-string-comment ada-loop-start-re t limit))
2404 (if (looking-at ada-named-block-re)
2405 (setq label (- ada-label-indent))))))))
2424 (list (+ (save-excursion (back-to-indentation) (point)) label) 0)))))
2491 (unless (looking-at ada-loop-start-re)
2492 (ada-search-ignore-string-comment ada-loop-start-re
2554 (looking-at "re\\(turn\\|names\\)\\>"))
2710 ;; label
2717 '(ada-label-indent))))
2758 ((looking-at ada-loop-start-re)
2761 ((looking-at ada-subprog-start-re)
2764 ((looking-at ada-block-start-re)
2783 (ada-get-indent-label orgpoint))
2788 ;; A label
2791 (- ada-label-indent))))
2882 ((looking-at ada-ident-re)
3073 (ada-search-ignore-string-comment ada-subprog-start-re t)
3098 (let ((label 0))
3120 (if (looking-at ada-named-block-re)
3121 (setq label (- ada-label-indent))
3140 (re-search-backward "\\<\\(type\\|subtype\\)\\>" nil t)
3145 (list (+ (save-excursion (back-to-indentation) (point)) label) 0)
3146 (list (+ (save-excursion (back-to-indentation) (point)) label)
3149 (defun ada-get-indent-label (orgpoint)
3150 "Calculate the indentation when before a label or variable declaration.
3156 ;; loop label
3159 ada-loop-start-re nil orgpoint)))
3163 ;; declare label
3179 (list cur-indent '(- ada-label-indent))))))
3187 ;; If looking at a named block, skip the label
3188 (label (save-excursion
3190 (if (looking-at ada-named-block-re)
3191 (- ada-label-indent)
3202 (list (+ (save-excursion (back-to-indentation) (point)) label) 0))
3208 (if (equal label 0)
3210 (list (+ (car pos) label) (cdr pos))))
3257 (list (+ (save-excursion (back-to-indentation) (point)) label)
3263 (list (+ (save-excursion (back-to-indentation) (point)) label)
3287 (list (+ (save-excursion (back-to-indentation) (point)) label)
3290 (list (+ (save-excursion (back-to-indentation) (point)) label)
3407 ada-end-stmt-re t)))
3473 (if (ada-search-ignore-string-comment ada-end-stmt-re nil limit)
3529 (unless (looking-at ada-subprog-start-re)
3536 ;; a named 'declare'-block ? => jump to the label
3592 (ada-search-ignore-string-comment ada-matching-decl-start-re t))
3715 (ada-search-ignore-string-comment ada-subprog-start-re t)
3742 (ada-search-ignore-string-comment ada-matching-start-re t))
4038 (search-re &optional backward limit paramlists search-func)
4055 (setq search-func (if backward 're-search-backward 're-search-forward)))
4066 (funcall search-func search-re limit 1))
4322 (while (re-search-forward "[ \t]+$" (point-max) t)
4333 (while (re-search-forward "--[ \t]*\\([^-\n]\\)" nil t)
4339 (while (re-search-forward "\\>(" nil t)
4343 (while (re-search-forward ";--" nil t)
4348 (while (re-search-forward "([ \t]+" nil t)
4352 (while (re-search-forward ")[ \t]+)" nil t)
4356 (while (re-search-forward "\\>:" nil t)
4364 (while (re-search-forward ",[ \t]*\\(.\\)" nil t)
4372 (while (re-search-forward
4526 (if (re-search-forward ada-procedure-start-regexp nil t)
4534 (if (re-search-backward ada-procedure-start-regexp nil t)
4542 (if (re-search-forward ada-package-start-regexp nil t)
4550 (if (re-search-backward ada-package-start-regexp nil t)
4833 ;; comment is at the beginning of a line. If the line have been re-indented,
4842 (listp arg) ;; a prefix with \C-u is of the form '(4), whereas
4848 (while (re-search-forward cs end t)
4898 fill-prefix
4936 (while (re-search-forward "--\n" to t)
4943 (setq fill-prefix ada-fill-comment-prefix)
5064 (or (if (re-search-backward ada-procedure-start-regexp nil t)
5066 (if (re-search-backward ada-package-start-regexp nil t)
5123 (re-search-backward ada-imenu-subprogram-menu-re nil t))
5462 (let* ((found (re-search-backward ada-procedure-start-regexp nil t))
5468 (if (and (re-search-forward "(\\|;" nil t)
5485 (re-search-backward "\\<end\\>" nil t)
5487 (re-search-backward "^begin" nil t)
5491 (re-search-backward ada-procedure-start-regexp nil t)