lisp/progmodes/delphi.el

14 ;; Software Foundation; either version 2, or (at your option) any later
194      and array as asm at begin case class const constructor contains
280   "Statements indented at level 0.")
362   (buffer-substring-no-properties start end))
364 (defun delphi-looking-at-string (p s)
421   "The last point at which progress was reported.")
466 (defun delphi-set-text-properties (from to properties)
467   ;; Like `set-text-properties', except we do not consider this to be a buffer
470    (set-text-properties from to properties)))
475       (get-text-property p 'token)))
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)
550 (defun delphi-literal-text-properties (kind)
551   ;; Creates a list of text properties for the literal kind.
560   ;; marked as such with a text property, to speed up tokenizing during face
567              (delphi-set-text-properties
568               search-start (point) (delphi-literal-text-properties kind))))
580              (delphi-set-text-properties search-start start nil)
582              (delphi-set-text-properties
583               start (point) (delphi-literal-text-properties kind))))
586           ((delphi-set-text-properties search-start limit nil)))
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
724   ;; Colors the text in the region according to Delphi rules.
733         (setq token (delphi-token-at p))
734         (add-text-properties
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
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))
1025                 ((looking-at (concat delphi-leading-spaces-re
1034 (defun delphi-is-use-clause-end (at-token last-token last-colon from-kind)
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!
1194          ;; Always stop at unmatched ( or [.
1203               ;; We can stop at an end token that is right up against the
1390          ;; Stop at an enclosing statement and indent from it.
1489                     (if token token (delphi-token-at (1- (point)))))))))
1591   (delphi-set-text-properties (point-min) (point-max) nil))
1766   "Fills the text of the current comment, according to `fill-column'.
1997   ;; to retokenize changed text.