Lines Matching defs:looking
781 ;; special case: looking at a filename:line not at the beginning of a line
784 (or (looking-at ada-compile-goto-error-file-linenr-re)
788 (looking-at ada-compile-goto-error-file-linenr-re))
790 (if (looking-at "\\([0-9]+\\)") (backward-word 1))
791 (looking-at "line \\([0-9]+\\)"))))
796 (looking-at ada-compile-goto-error-file-linenr-re)
984 (if (looking-at "^[ \t]*#")
1651 (looking-at (concat ada-keywords "[^_]")))))
1807 (setq attribp (looking-at "'.[^']")))))
1816 (setq keywordp (looking-at ada-keywords))
1931 (looking-at "\\(\\(\\sw\\|[_, \t\n]\\)*\\(\\sw\\|_\\)\\)[ \t\n]*:[^=]")
1966 (while (looking-at "\\<\\(in\\|out\\|access\\)\\>")
1973 (looking-at "\\<\\(\\sw\\|[_.' \t]\\)+\\>")
2033 (looking-at "^."))
2038 (if (looking-at "\\(is\\|return\\)")
2045 ((looking-at "[ \t]*\\(\n\\|;\\)")
2047 ((looking-at "[ \t]*\\(is\\|return\\)")
2110 (unless (looking-at "[ \t]*\\(;\\|\n\\|is\\|return\\)")
2129 ;; what context we are by looking at the following keyword or punctuation
2378 ((looking-at "end\\>")
2391 (looking-at ".+\\<loop\\>"))
2399 (not (looking-at "\\<loop\\>"))))
2404 (if (looking-at ada-named-block-re)
2414 (if (looking-at "record")
2417 (looking-at "^[ \t]*\\(record\\|limited record\\)"))
2428 ((looking-at "exception\\>")
2435 ((looking-at "else\\>")
2437 (looking-at "\\<or\\>"))
2445 ((looking-at "elsif\\>")
2457 (looking-at "when\\>"))
2468 (looking-at "then\\>"))
2470 (looking-at "and\\>"))
2484 (looking-at "loop\\>"))
2489 (if (looking-at "\\<\\(loop\\|if\\)\\>")
2491 (unless (looking-at ada-loop-start-re)
2494 (if (looking-at "\\<loop\\>")
2503 (looking-at "limited\\>"))
2505 (looking-at "record\\>")))
2510 (if (looking-at "\\<use\\>")
2521 (looking-at "begin\\>"))
2532 (looking-at "is\\>"))
2539 (looking-at "\\<abstract\\>\\|\\<separate\\>")))
2545 (if (looking-at "\\<package\\|procedure\\|function\\>")
2554 (looking-at "re\\(turn\\|names\\)\\>"))
2558 ;; If looking at a renames, skip the 'return' statement too
2559 (if (looking-at "renames")
2580 (looking-at "\\(function\\|procedure\\)\\>"))
2584 (looking-at "\\(function\\|procedure\\)\\>")))))
2597 (looking-at "function\\>")))
2611 (or (ada-looking-at-semi-or)
2612 (ada-looking-at-semi-private)))
2614 ;; ??? Wasn't this done already in ada-looking-at-semi-or ?
2623 (looking-at "do\\>"))
2666 (looking-at "#[ \t]*\\(if\\|els\\(e\\|if\\)\\|end[ \t]*if\\)"))
2683 ((looking-at "\\(new\\|abstract\\|separate\\)\\>")
2691 (looking-at "\\<\\(package\\|function\\|procedure\\)\\>"))
2703 (setq found (not (looking-at "with"))))))
2705 (if (looking-at "generic")
2713 ((looking-at "\\(\\sw\\|_\\)+[ \t\n]*:[^=]")
2755 ((looking-at "end\\>")
2758 ((looking-at ada-loop-start-re)
2761 ((looking-at ada-subprog-start-re)
2764 ((looking-at ada-block-start-re)
2767 ((looking-at "\\(sub\\)?type\\>")
2773 ((looking-at "\\(\\(els\\)?if\\>\\)\\|then abort\\\>")
2776 ((looking-at "case\\>")
2779 ((looking-at "when\\>")
2782 ((looking-at "\\(\\sw\\|_\\)+[ \t\n]*:[^=]")
2785 ((looking-at "separate\\>")
2789 ((looking-at "<<")
2794 ((looking-at "with\\>\\|use\\>")
2795 ;; Are we still in that statement, or are we in fact looking at
2799 (list (point) (if (looking-at "with")
2862 ((looking-at "\\<\\(loop\\|select\\|if\\|case\\)\\>")
2869 ((looking-at "\\<record\\>")
2872 ;; we are now looking at the matching "record" statement
2876 (unless (looking-at "\\(for\\|type\\)\\>")
2882 ((looking-at ada-ident-re)
2894 (if (looking-at "\\<begin\\>")
2975 ;; If "then" was found (we are looking at it)
2985 (looking-at "\\<then\\>"))
3009 ((looking-at "record")
3014 (looking-at "^[ \t]*\\(record\\|limited record\\)"))
3113 ((looking-at "[ \t]*\\(\\sw\\|_\\)*[ \t]*,[ \t]*$")
3120 (if (looking-at ada-named-block-re)
3131 (looking-at "with"))))
3137 (looking-at "null")))))
3187 ;; If looking at a named block, skip the label
3190 (if (looking-at ada-named-block-re)
3206 ((looking-at "loop\\>")
3215 ((looking-at "for\\>")
3227 (looking-at "\\<use\\>")
3255 (looking-at "\\<loop\\>"))
3269 ((looking-at "while\\>")
3285 (looking-at "\\<loop\\>"))
3306 (looking-at "\\<record\\>")
3352 As a special case, if we are looking at a closing parenthesis, skip to the
3363 (unless (looking-at "declare")
3413 ((and (looking-at
3417 (looking-at "\\<\\(end\\|or\\|and\\)\\>[ \t]*[^;]")))
3420 ((looking-at "is")
3424 (not (looking-at "subtype")))
3429 (not (looking-at
3437 ((looking-at "private")
3440 (setq found (not (looking-at "is")))))
3512 (unless (looking-at (concat "\\<" keyword "\\>"))
3524 (looking-at (concat "\\<" defun-name "\\> *:")))
3529 (unless (looking-at ada-subprog-start-re)
3538 (if (looking-at "\\<declare\\>")
3549 (if (looking-at "\\<\\(body\\|type\\)\\>")
3554 ;; should be looking-at the correct name
3556 (unless (looking-at (concat "\\<" defun-name "\\>"))
3573 ;; Ignore "when" most of the time, except if we are looking at the
3578 (if (looking-at "begin")
3582 (looking-at "\\<\\(package\\|procedure\\|function\\)\\>")
3586 (looking-at "generic")))
3598 ((looking-at "end")
3610 (if (looking-at "begin")
3623 (if (looking-at "end")
3628 (unless (looking-at "begin")
3633 ((looking-at "generic")
3639 ((looking-at "if")
3642 (unless (looking-at "\\<end[ \t\n]*if\\>")
3648 ((looking-at "declare\\|generic")
3652 ((looking-at "is")
3655 (if (or (looking-at "is[ \t]+<>")
3672 (looking-at "\\<\\(sub\\)?type\\|case\\>")
3675 (not (looking-at "\\<protected\\>"))))
3683 ((looking-at "new")
3686 (looking-at "is"))
3690 (looking-at "begin"))
3693 ((looking-at "when")
3696 (unless (looking-at "\\<exit[ \t\n]*when\\>")
3702 ((looking-at "begin")
3714 (if (looking-at "is")
3716 (looking-at "declare\\|generic")))
3744 (unless (and (looking-at "\\<record\\>")
3747 (looking-at "\\<null\\>")))
3752 ((looking-at "end")
3758 ((looking-at "loop\\|select\\|record\\|case\\|if")
3763 (if (looking-at "\\<end\\>[ \t]*[^;]")
3784 ((looking-at "package")
3796 (unless (looking-at "renames")
3805 (if (and (not (looking-at "\\<\\(new\\|separate\\|begin\\)\\>"))
3812 ((looking-at "task")
3817 ((looking-at "\\<body\\>"))
3818 ((looking-at "\\<type\\>")
3823 ;; Do nothing if we are simply looking at a simple
3825 (unless (looking-at ";")
3828 (if (looking-at "(")
3835 (if (looking-at "is")
3841 (looking-at "[ \t]*;"))
3846 ((looking-at "declare")
3858 ((looking-at "protected")
3865 (if (looking-at "is")
3870 ((or (looking-at "procedure")
3871 (looking-at "function"))
3878 (if (looking-at "is")
3885 (push (looking-at "begin") last-was-begin)
3907 (looking-at "if")
3912 (looking-at "\\<then\\>")))
3918 ((looking-at "do")
3947 (first (not (looking-at "declare"))))
3949 ;; If we are already looking at one of the keywords, this shouldn't count
3953 (if (looking-at "\\<if\\|loop\\|case\\|begin\\>")
3983 ((and (looking-at "\\<procedure\\|function\\>"))
3992 (unless (looking-at "\\<new\\>")
3998 ((looking-at "\\<end\\>")
4005 (looking-at "\\<\\(loop\\|select\\|record\\|case\\|if\\)\\>"))
4010 ((looking-at "\\<package\\>")
4015 (if (looking-at "\\<new\\>")
4116 ;; found what we were looking for
4139 (defun ada-looking-at-semi-or ()
4140 "Return t if looking at an 'or' following a semicolon."
4142 (and (looking-at "\\<or\\>")
4146 (looking-at "\\<or\\>")))))
4149 (defun ada-looking-at-semi-private ()
4150 "Return t if looking at the start of a private section in a package.
4154 (and (looking-at "\\<private\\>")
4155 (not (looking-at "\\<private[ \t]*\\(package\\|generic\\)"))
4168 (looking-at "\\<package\\>"))))))))
4179 ;; We could be looking at two things here:
4203 (looking-at (eval-when-compile
4218 (looking-at "and then\\|or else"))))
4245 (not (looking-at "[ \t]+--")))
4376 (if (or (looking-at "--")
4419 (or (looking-at "[ \t]*\\<end\\>")
4421 (or (looking-at "[ \t]*\\<end\\>")
4423 (or (looking-at "[ \t]*\\<end\\>")
4432 (looking-at "\\<begin\\>")
4462 (looking-at "\\<begin\\>"))
4472 (looking-at "\\<function\\>\\|\\<procedure\\>" )
4482 (looking-at "\\<task\\>" )
4485 (looking-at "\\<body\\>")))
4491 (looking-at "\\<accept\\>" )))
4496 (and decl-start (looking-at "\\<package\\>")))
4502 (looking-at "\\<declare\\>"))
4888 (not (looking-at "[ \t]*--")))
4903 (while (and (not (eobp)) (looking-at ".*--[ \t]*[^ \t\n]"))
4917 (while (and (not (bobp)) (looking-at ".*--[ \t]*[^ \t\n]"))
5099 ;; Are we looking at "function Foo\n (paramlist)"
5107 (if (looking-at "return")
5131 (looking-at "[ \t\n]*new"))))
5363 ((or (looking-at "^[ \t]*procedure")
5364 (setq func-found (looking-at "^[ \t]*function")))
5374 (unless (looking-at "[ \t\n]*\\(;\\|return\\)")
5389 ((looking-at "[ \t]*;")
5408 ((looking-at "[ \t\n]*is")
5411 ((looking-at "[ \t\n]*rename")
5417 (if (looking-at "^[ \t]*task")
5421 (if (looking-at "[ \t]*;")
5453 (if (looking-at ada-package-start-regexp)