Lines Matching defs:case
168 (defcustom ada-auto-case t
169 "*Non-nil means automatically change case of preceding word while typing.
170 Casing is done according to `ada-case-keyword', `ada-case-identifier'
171 and `ada-case-attribute'."
199 (defcustom ada-case-attribute 'ada-capitalize-word
200 "*Function to call to adjust the case of Ada attributes.
201 It may be `downcase-word', `upcase-word', `ada-loose-case-word',
202 `ada-capitalize-word' or `ada-no-auto-case'."
206 (const ada-loose-case-word)
207 (const ada-no-auto-case))
210 (defcustom ada-case-exception-file
214 when you call `ada-create-case-exception'.
225 (defcustom ada-case-keyword 'downcase-word
226 "*Function to call to adjust the case of an Ada keywords.
227 It may be `downcase-word', `upcase-word', `ada-loose-case-word' or
232 (const ada-loose-case-word)
233 (const ada-no-auto-case))
236 (defcustom ada-case-identifier 'ada-loose-case-word
237 "*Function to call to adjust the case of an Ada identifier.
238 It may be `downcase-word', `upcase-word', `ada-loose-case-word' or
243 (const ada-loose-case-word)
244 (const ada-no-auto-case))
421 "*Indentation for 'when' relative to 'exception' or 'case'.
424 case A is
479 "body" "case" "constant" "declare" "delay" "delta" "digits" "do"
502 (defvar ada-case-exception '()
505 (defvar ada-case-exception-substring '()
508 is not itself in `ada-case-exception', and only for substrings that
662 '("end" "loop" "select" "begin" "case" "do" "declare"
781 ;; special case: looking at a filename:line not at the beginning of a line
1123 Adjust case of identifiers and keywords in region '\\[ada-adjust-case-region]'
1124 Adjust case of identifiers and keywords in buffer '\\[ada-adjust-case-buffer]'
1198 (set 'case-fold-search t)
1199 (if (boundp 'imenu-case-fold-search)
1200 (set 'imenu-case-fold-search t))
1281 "\\([ \t]*\\(procedure\\|function\\|package\\|if\\|while\\|for\\|declare\\|case\\|end\\|begin\\|loop\\)\\|--\\)")
1369 (add-hook 'skeleton-end-hook 'ada-adjust-case-skeleton nil t)
1373 ;; To be run after the hook, in case the user modified
1399 (if ada-auto-case
1400 (ada-activate-keys-for-case)))
1402 (defun ada-adjust-case-skeleton ()
1403 "Adjust the case of the text inserted by a skeleton."
1406 (ada-adjust-case-region
1422 ;; Since Ada is case-insensitive, the Ada mode provides an extensive set of
1423 ;; functions to auto-case identifiers, keywords, ...
1425 ;; `ada-case-attribute', `ada-case-keyword' and `ada-case-identifier'. These
1430 ;; one word per line. These files are stored in `ada-case-exception-file'.
1436 Casing exception lists are `ada-case-exception' and `ada-case-exception-substring'."
1440 (sort (copy-sequence ada-case-exception)
1443 (sort (copy-sequence ada-case-exception-substring)
1449 (defun ada-create-case-exception (&optional word)
1452 The new words is added to the first file in `ada-case-exception-file'.
1459 (cond ((stringp ada-case-exception-file)
1460 (setq file-name ada-case-exception-file))
1461 ((listp ada-case-exception-file)
1462 (setq file-name (car ada-case-exception-file)))
1465 "See variable ada-case-exception-file"))))
1475 ;; Reread the exceptions file, in case it was modified by some other,
1476 (ada-case-read-exceptions-from-file file-name)
1480 (if (and (not (equal ada-case-exception '()))
1481 (assoc-string word ada-case-exception t))
1482 (setcar (assoc-string word ada-case-exception t) word)
1483 (add-to-list 'ada-case-exception (cons word t))
1489 (defun ada-create-case-exception-substring (&optional word)
1493 The new word is added to the first file in `ada-case-exception-file'.
1498 (cond ((stringp ada-case-exception-file)
1499 ada-case-exception-file)
1500 ((listp ada-case-exception-file)
1501 (car ada-case-exception-file))
1504 "See variable ada-case-exception-file"))))))
1528 ;; Reread the exceptions file, in case it was modified by some other,
1529 (ada-case-read-exceptions-from-file file-name)
1533 (if (and (not (equal ada-case-exception-substring '()))
1534 (assoc-string word ada-case-exception-substring t))
1535 (setcar (assoc-string word ada-case-exception-substring t) word)
1536 (add-to-list 'ada-case-exception-substring (cons word t))
1543 (defun ada-case-read-exceptions-from-file (file-name)
1563 (unless (assoc-string word ada-case-exception-substring t)
1564 (add-to-list 'ada-case-exception-substring (cons word t))))
1565 (unless (assoc-string word ada-case-exception t)
1566 (add-to-list 'ada-case-exception (cons word t)))))
1573 (defun ada-case-read-exceptions ()
1574 "Read all the casing exception files from `ada-case-exception-file'."
1578 (setq ada-case-exception '()
1579 ada-case-exception-substring '())
1581 (cond ((stringp ada-case-exception-file)
1582 (ada-case-read-exceptions-from-file ada-case-exception-file))
1584 ((listp ada-case-exception-file)
1585 (mapcar 'ada-case-read-exceptions-from-file
1586 ada-case-exception-file))))
1588 (defun ada-adjust-case-substring ()
1589 "Adjust case of substrings in the previous word."
1591 (let ((substrings ada-case-exception-substring)
1593 (case-fold-search t)
1616 (defun ada-adjust-case-identifier ()
1617 "Adjust case of the previous identifier.
1618 The auto-casing is done according to the value of `ada-case-identifier'
1619 and the exceptions defined in `ada-case-exception-file'."
1621 (if (or (equal ada-case-exception '())
1624 (funcall ada-case-identifier -1)
1625 (ada-adjust-case-substring))
1634 ada-case-exception t))
1640 ;; Else simply re-case the word
1641 (funcall ada-case-identifier -1)
1642 (ada-adjust-case-substring))))))
1653 (defun ada-adjust-case (&optional force-identifier)
1654 "Adjust the case of the word before the character just typed.
1673 (funcall ada-case-attribute -1)
1677 (funcall ada-case-keyword -1)
1678 (ada-adjust-case-identifier))))
1683 (defun ada-adjust-case-interactive (arg)
1684 "Adjust the case of the previous word, and process the character just typed.
1688 (if ada-auto-case
1699 (ada-adjust-case)
1714 (ada-adjust-case t)
1715 (ada-adjust-case))
1731 (defun ada-activate-keys-for-case ()
1741 ;; Call case modifying function after certain keys.
1745 'ada-adjust-case-interactive)))
1749 (defun ada-loose-case-word (&optional arg)
1765 (defun ada-no-auto-case (&optional arg)
1769 instance use it for `ada-case-identifier' if you don't want any special
1771 See also `ada-auto-case' to disable auto casing altogether."
1775 "Upcase first letter and letters following '_', lower case other letters.
1784 (defun ada-adjust-case-region (from to)
1785 "Adjust the case of all words in the region between FROM and TO.
1793 (message "Adjusting case ...")
1822 (funcall ada-case-attribute -1)
1824 (funcall ada-case-keyword -1)
1825 (ada-adjust-case-identifier)))
1827 (message "Adjusting case ... Done"))
1830 (defun ada-adjust-case-buffer ()
1831 "Adjust the case of all words in the whole buffer.
1834 (ada-adjust-case-region (point-min) (point-max)))
2210 "Re-indent and re-case all the files found on the command line.
2220 (ada-adjust-case-buffer)
2347 ;; A special case to handle nested boolean expressions, as in
2770 ;; "then" has to be included in the case of "select...then abort"
2776 ((looking-at "case\\>")
2777 (ada-get-indent-case orgpoint))
2862 ((looking-at "\\<\\(loop\\|select\\|if\\|case\\)\\>")
2867 ;; loop/select/if/case/record/select
2912 (defun ada-get-indent-case (orgpoint)
2913 "Calculate the indentation when point is just before a case statement.
2919 ;; case..is..when..=>
2931 (error "Missing 'when' between 'case' and '=>'"))
2934 ;; case..is..when
2942 ;; case..is
2949 ;; incomplete case
3005 ;; Special case for record types, for instance for:
3105 ;; subprogram declaration (in that case, we are at this point inside
3117 ;; This one is called in every over case when indenting a line at the
3352 As a special case, if we are looking at a closing parenthesis, skip to the
3574 ;; beginning of a block (structure: case .. is
3601 ;; In some case, two begin..end block can follow each other closely,
3672 (looking-at "\\<\\(sub\\)?type\\|case\\>")
3756 ;; found loop/select/record/case/if => check if it starts or
3758 ((looking-at "loop\\|select\\|record\\|case\\|if")
3819 ;; In that case, do nothing if there is a "is"
3937 (regexp-opt '("end" "loop" "select" "begin" "case"
3951 ;; "declare" is a special case because we need to look after the "begin"
3953 (if (looking-at "\\<if\\|loop\\|case\\|begin\\>")
3969 ;; case they are defined in a declare/begin block, as in:
4005 (looking-at "\\<\\(loop\\|select\\|record\\|case\\|if\\)\\>"))
4045 in case we are searching for a constant string.
4193 ;; We should ignore the case when the reserved keyword is in a
4468 ;; handled as the general case (find the enclosing block)
4573 ;; We don't want to make meta-characters case-specific.
4586 (define-key ada-mode-map "\C-c\C-b" 'ada-adjust-case-buffer)
4587 (define-key ada-mode-map "\C-c\C-t" 'ada-case-read-exceptions)
4588 (define-key ada-mode-map "\C-c\C-y" 'ada-create-case-exception)
4589 (define-key ada-mode-map "\C-c\C-\M-y" 'ada-create-case-exception-substring)
4640 (define-key map "c" 'ada-case)
4683 ["Auto Casing" (setq ada-auto-case (not ada-auto-case))
4684 :style toggle :selected ada-auto-case]
4769 ["Adjust Case Selection" ada-adjust-case-region t]
4770 ["Adjust Case in File" ada-adjust-case-buffer t]
4771 ["Create Case Exception" ada-create-case-exception t]
4773 ada-create-case-exception-substring t]
4774 ["Reload Case Exceptions" ada-case-read-exceptions t]
4810 ["Case" ada-case t]
5081 This function works even in the case of nested subprograms, whereas the
5096 ;; In case the current line is also the beginning of the body
5102 (condition-case nil
5113 ;; Can't simply do forward-word, in case the "is" is not on the
5211 ;; As a special case, ''' will not be highlighted, but if we do not
5212 ;; set this special case, then the rest of the buffer is highlighted as
5264 "and" "array" "at" "begin" "case" "declare" "delay" "delta"
5516 (ada-case-read-exceptions)
5549 (autoload 'ada-case "ada-stmt" nil t)