Lines Matching +defs:at +defs:type +defs:decl
14 ;; Software Foundation; either version 2, or (at your option) any later
105 :type 'string
114 :type 'integer
127 :type 'integer
140 :type 'integer
145 :type 'boolean
151 :type 'boolean
160 :type 'boolean
165 :type 'face
170 :type 'face
175 :type 'face
180 :type '(choice (const :tag "None" nil) face)
194 and array as asm at begin case class const constructor contains
200 to try type unit uses until var while with xor
262 (defconst delphi-decl-sections '(type const var label resourcestring)
280 "Statements indented at level 0.")
282 (defconst delphi-decl-delimiters
283 `(,@delphi-decl-sections ,@delphi-unit-statements
287 (defconst delphi-decl-matchers
288 `(begin ,@delphi-decl-sections)
293 ,@delphi-decl-sections ,@delphi-use-clauses ,@delphi-routine-statements)
302 ,@delphi-decl-sections)
310 `(,@delphi-decl-sections ,@delphi-routine-statements)
364 (defun delphi-looking-at-string (p s)
421 "The last point at which progress was reported.")
507 ;; True if the point p is at the start point of a (completed) literal.
511 (delphi-looking-at-string p pattern))))
514 ;; True if the point p is at the end point of a (completed) literal.
519 (and (delphi-looking-at-string (- p (length pattern)) pattern)
522 ;; We have an end only if there is some string content (at
533 (let ((at-start (delphi-is-literal-start p))
534 (at-end (delphi-is-literal-end p)))
536 (and at-start at-end)
537 (and (not at-start) (not at-end)
589 (defun delphi-literal-token-at (p)
597 (defun delphi-point-token-at (p kind)
598 ;; Returns the single character token at the point p.
601 (defsubst delphi-char-token-at (p char kind)
602 ;; Returns the token at the point p that describes the specified character.
607 (defun delphi-charset-token-at (p charset kind)
623 (defun delphi-space-token-at (p)
626 (delphi-charset-token-at p delphi-space-chars 'space))
628 (defun delphi-word-token-at (p)
631 (let ((word (delphi-charset-token-at p delphi-word-chars 'word)))
640 (defun delphi-explicit-token-at (p token-string kind)
643 (let ((token (delphi-charset-token-at p token-string kind)))
647 (defun delphi-token-at (p)
648 ;; Returns the token from parsing text at point p.
650 (cond ((delphi-literal-token-at p))
652 ((delphi-space-token-at p))
654 ((delphi-word-token-at p))
656 ((delphi-char-token-at p ?\( 'open-group))
657 ((delphi-char-token-at p ?\) 'close-group))
658 ((delphi-char-token-at p ?\[ 'open-group))
659 ((delphi-char-token-at p ?\] 'close-group))
660 ((delphi-char-token-at p ?\n 'newline))
661 ((delphi-char-token-at p ?\; 'semicolon))
662 ((delphi-char-token-at p ?. 'dot))
663 ((delphi-char-token-at p ?, 'comma))
664 ((delphi-char-token-at p ?= 'equals))
665 ((delphi-char-token-at p ?+ 'plus))
666 ((delphi-char-token-at p ?- 'minus))
667 ((delphi-char-token-at p ?* 'times))
668 ((delphi-char-token-at p ?/ 'divides))
669 ((delphi-char-token-at p ?: 'colon))
671 ((delphi-explicit-token-at p "<>" 'not-equals))
673 ((delphi-point-token-at p 'punctuation)))))
677 (delphi-token-at (point)))
682 (let ((next (delphi-token-at (delphi-token-end token))))
691 (let ((previous (delphi-token-at (1- (delphi-token-start token)))))
714 ;; Parses at least the literal tokens in the region. After that, parsing
733 (setq token (delphi-token-at p))
753 ;; Reparse at least from the token previous to the change to the end of
756 (delphi-token-start (delphi-token-at (1- change-start)))
817 ;; Stop at the beginning of the line or an open group.
820 ;; Stop at one of the specified terminators.
847 ;; Stop at the beginning of the line, an open group, or a use clause
861 (defun delphi-composite-type-start (token last-token)
868 (defun delphi-is-simple-class-type (at-token limit-token)
869 ;; True if at-token is the start of a simple class type. E.g.
873 (when (delphi-is (delphi-token-kind at-token) delphi-class-types)
876 (let ((token (delphi-next-token at-token))
912 ((delphi-composite-type-start token last-token)
1025 ((looking-at (concat delphi-leading-spaces-re
1034 (defun delphi-is-use-clause-end (at-token last-token last-colon from-kind)
1035 ;; True if we are after the end of a uses type clause.
1038 (eq 'comma (delphi-token-kind at-token))
1041 (let ((token (delphi-previous-token at-token))
1093 ;; We can stop at an end token that is right up against the
1107 ;; // this should be at column 0!
1161 ((delphi-composite-type-start token last-token)
1164 (if (delphi-is-simple-class-type last-token from-token)
1182 ;; Returns the indentation appropriate for begin/var/const/type/label
1194 ;; Always stop at unmatched ( or [.
1203 ;; We can stop at an end token that is right up against the
1250 ((and (delphi-is token-kind delphi-decl-delimiters)
1349 ((delphi-is token-kind delphi-decl-sections)
1390 ;; Stop at an enclosing statement and indent from it.
1396 ((delphi-composite-type-start token last-token)
1466 ((delphi-is token-kind delphi-decl-matchers)
1489 (if token token (delphi-token-at (1- (point)))))))))
1512 (set-marker-insertion-type marked-point t)
1801 (set-marker-insertion-type marked-point t)