Lines Matching +defs:open +defs:function
100 ;;; Note: Every function in this package is compiler-independent.
111 ;;; `which-function-mode': Display the name of the subprogram the cursor is
281 By default, if the line that contains the open parenthesis has some
314 "*Indentation for renames relative to the matching function statement.
316 the open parenthesis (if there is no parenthesis, `ada-broken-indent' is used).
319 function A (B : Integer)
325 "*Indentation for 'return' relative to the matching 'function' statement.
327 the open parenthesis (if there is no parenthesis, `ada-broken-indent' is used).
330 function A (B : Integer)
334 (defcustom ada-indent-to-open-paren t
335 "*Non-nil means indent according to the innermost open parenthesis."
480 "else" "elsif" "end" "entry" "exception" "exit" "for" "function"
557 "function\\|"
605 "^[ \t]*\\(with[ \t]+\\)?\\(\\(not[ \t]+\\)?overriding[ \t]+\\)?\\(procedure\\|function\\|task\\)[ \t\n]+"
651 "^[ \t]*" (regexp-opt '("function" "package" "procedure")
663 "if" "task" "package" "procedure" "function" "record" "protected") t)
681 (concat "\\<" (regexp-opt '("accept" "entry" "function" "package" "procedure"
729 (concat "^[ \t]*\\(procedure\\|function\\)[ \t\n]+"
740 "^[ \t]*\\(procedure\\|function\\)[ \t\n]+\\(\\(\\sw\\|_\\)+\\)"
824 ;; Grammar related function
841 ;; `ada-after-change-function', thanks to `ada-deactivate-properties' and
889 ;; See the comment above on grammar related function for the special
946 (remove-hook 'after-change-functions 'ada-after-change-function t))
968 (add-hook 'after-change-functions 'ada-after-change-function nil t)
971 (defun ada-after-change-function (beg end old-len)
1024 (defun ada-call-from-contextual-menu (function)
1028 (funcall function)
1036 displaying the menu. When a function from the menu is called, the
1040 ;; declare this as a local variable, so that the function called
1057 (funcall (symbol-function 'popup-menu) ada-contextual-menu)
1103 (funcall (symbol-function 'speedbar-add-supported-extension)
1105 (funcall (symbol-function 'speedbar-add-supported-extension)
1148 If you use this function in a spec and no body is available, it gets created with body stubs.
1177 (set (make-local-variable 'comment-line-break-function)
1181 (set (make-local-variable 'indent-line-function)
1182 'ada-indent-current-function)
1202 (set (make-local-variable 'fill-paragraph-function)
1246 (add-hook 'ff-pre-load-hook 'ada-which-function-are-we-in)
1281 "\\([ \t]*\\(procedure\\|function\\|package\\|if\\|while\\|for\\|declare\\|case\\|end\\|begin\\|loop\\)\\|--\\)")
1285 (setq imenu-sort-function 'imenu--sort-by-name)
1292 (add-to-list 'align-open-comment-modes 'ada-mode)
1342 ;; Support for which-function mode
1344 (setq which-func-functions '(ada-which-function))
1413 (or (and (featurep 'xemacs) (funcall (symbol-function 'region-active-p)))
1741 ;; Call case modifying function after certain keys.
1742 (mapcar (function (lambda(key) (define-key
1767 This function can be used for the auto-casing variables in Ada mode, to
1786 Attention: This function might take very long for big regions!"
1832 ATTENTION: This function might take very long for big buffers!"
1847 ;; - Delete and recreate the parameter list in function
2211 This function should be used from the Unix/Windows command line, with a
2317 ;; in open parenthesis, but not in parameter-list
2320 ((and ada-indent-to-open-paren
2322 (setq column (ada-in-open-paren-p)))
2545 (if (looking-at "\\<package\\|procedure\\|function\\>")
2573 ;; If there is a parameter list, and we have a function declaration
2580 (looking-at "\\(function\\|procedure\\)\\>"))
2584 (looking-at "\\(function\\|procedure\\)\\>")))))
2592 ;; Else there is no parameter list, but we have a function
2594 ;; relative to the "function" keyword
2597 (looking-at "function\\>")))
2687 ;; package/function/procedure
2691 (looking-at "\\<\\(package\\|function\\|procedure\\)\\>"))
2698 "\\<\\(generic\\|end\\|begin\\|package\\|procedure\\|function\\)\\>" t))
2751 ada-indent-to-open-paren
2752 (ada-in-open-paren-p))
2753 (ada-get-indent-open-paren))
2772 ;; the current function would leave the cursor on that position
2807 (defun ada-get-indent-open-paren ()
2809 (list (ada-in-open-paren-p) 0))
3353 open parenthesis."
3410 (unless (ada-in-open-paren-p)
3454 Do not call this function from within a string."
3532 ;; 'begin' of 'procedure'/'function'/'task' or 'declare'
3541 ;; no, => 'procedure'/'function'/'task'/'protected'
3582 (looking-at "\\<\\(package\\|procedure\\|function\\)\\>")
3585 "\\<\\(package\\|procedure\\|function\\|generic\\)\\>" t)
3620 "\\<\\(declare\\|begin\\|end\\|procedure\\|function\\|task\\|package\\)\\>"
3871 (looking-at "function"))
3939 "procedure" "function") t)
3983 ((and (looking-at "\\<procedure\\|function\\>"))
4180 ;; operator definition: function "." (
4205 "procedure\\|function\\|body\\|"
4208 "access[ \t]+function\\|"
4221 (defun ada-in-open-paren-p ()
4222 "Non-nil if in an open parenthesis.
4278 (defun ada-indent-current-function ()
4279 "Ada mode version of the `indent-line-function'."
4472 (looking-at "\\<function\\>\\|\\<procedure\\>" )
4601 ;; Use predefined function of Emacs19 for comments (RE)
4647 (define-key map "\C-f" 'ada-function-spec)
4753 ["Indent Line" ada-indent-current-function t]
4785 ["Function Spec" ada-function-spec t]
4832 ;; comment-region function, which only allows uncommenting if the
4837 ;; function for justifying the comments.
4981 ;; It is also used to find in which function we are, so as to put the
5058 (defun ada-which-function-are-we-in ()
5059 "Return the name of the function whose definition/declaration point is in.
5061 (setq ff-function-name nil)
5065 (setq ff-function-name (match-string 5)))
5067 (setq ff-function-name (match-string 4))))
5071 (defvar ada-last-which-function-line -1
5072 "Last line on which `ada-which-function' was called.")
5073 (defvar ada-last-which-function-subprog 0
5074 "Last subprogram name returned by `ada-which-function'.")
5075 (make-variable-buffer-local 'ada-last-which-function-subprog)
5076 (make-variable-buffer-local 'ada-last-which-function-line)
5079 (defun ada-which-function ()
5080 "Return the name of the function whose body the point is in.
5081 This function works even in the case of nested subprograms, whereas the
5082 standard Emacs function `which-function' does not.
5092 (if (= line ada-last-which-function-line)
5093 ada-last-which-function-subprog
5099 ;; Are we looking at "function Foo\n (paramlist)"
5125 ;; Get the function name, but not the properties, or this changes
5143 (setq ada-last-which-function-line line
5144 ada-last-which-function-subprog found)
5154 "Move to the function declaration that was set by `ff-which-function-are-we-in'."
5155 (if ff-function-name
5159 (concat ff-function-name "\\b") nil)
5224 ;; handle "type T is access function return S;"
5225 (list "\\<\\(function[ \t]+return\\)\\>" '(1 font-lock-keyword-face) )
5231 ;; accept, entry, function, package (body), protected (body|type),
5237 "function\\|"
5250 '(1 font-lock-keyword-face) '(2 font-lock-function-name-face nil t))
5275 (1 font-lock-keyword-face) (3 font-lock-function-name-face nil t))
5277 ;; Keywords followed by a type or function name.
5283 font-lock-function-name-face
5348 ;; The Ada mode has a set of function to automatically generate a subprogram
5350 ;; These function only use a primary and basic algorithm, this could use a
5357 "Make dummy body of a procedure/function specification.
5364 (setq func-found (looking-at "^[ \t]*function")))
5377 ;; if function, skip over 'return' and result type.
5429 This function typically is to be hooked into `ff-file-created-hook'."
5557 (autoload 'ada-function-spec "ada-stmt" nil t)