annotate lisp/progmodes/delphi.el @ 26628:10c31fda7fc2

*** empty log message ***
author Dave Love <fx@gnu.org>
date Fri, 26 Nov 1999 21:27:25 +0000
parents 06136c6979f1
children 2dd8115a9f72
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
25072
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1 ;; delphi.el --- Major mode for editing Delphi source (Object Pascal) in Emacs
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
3 ;; Copyright (C) 1998, 1999 Free Software Foundation, Inc.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
4
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
5 ;; Author: Ray Blaak <blaak@infomatch.com>
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
6 ;; Keywords: languages
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
7
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
8 ;; This file is part of GNU Emacs.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
9
25161
ae69eef1b98b checked in with -k by blaak at 1999/08/03 06:17:58
Ray Blaak <blaak@infomatch.com>
parents: 25072
diff changeset
10 ;; GNU Emacs is free software; you can redistribute it and/or modify it under
ae69eef1b98b checked in with -k by blaak at 1999/08/03 06:17:58
Ray Blaak <blaak@infomatch.com>
parents: 25072
diff changeset
11 ;; the terms of the GNU General Public License as published by the Free
ae69eef1b98b checked in with -k by blaak at 1999/08/03 06:17:58
Ray Blaak <blaak@infomatch.com>
parents: 25072
diff changeset
12 ;; Software Foundation; either version 2, or (at your option) any later
ae69eef1b98b checked in with -k by blaak at 1999/08/03 06:17:58
Ray Blaak <blaak@infomatch.com>
parents: 25072
diff changeset
13 ;; version.
25072
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
14
25161
ae69eef1b98b checked in with -k by blaak at 1999/08/03 06:17:58
Ray Blaak <blaak@infomatch.com>
parents: 25072
diff changeset
15 ;; GNU Emacs is distributed in the hope that it will be useful, but WITHOUT ANY
ae69eef1b98b checked in with -k by blaak at 1999/08/03 06:17:58
Ray Blaak <blaak@infomatch.com>
parents: 25072
diff changeset
16 ;; WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
ae69eef1b98b checked in with -k by blaak at 1999/08/03 06:17:58
Ray Blaak <blaak@infomatch.com>
parents: 25072
diff changeset
17 ;; FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
ae69eef1b98b checked in with -k by blaak at 1999/08/03 06:17:58
Ray Blaak <blaak@infomatch.com>
parents: 25072
diff changeset
18 ;; details.
25072
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
19
25161
ae69eef1b98b checked in with -k by blaak at 1999/08/03 06:17:58
Ray Blaak <blaak@infomatch.com>
parents: 25072
diff changeset
20 ;; You should have received a copy of the GNU General Public License along with
ae69eef1b98b checked in with -k by blaak at 1999/08/03 06:17:58
Ray Blaak <blaak@infomatch.com>
parents: 25072
diff changeset
21 ;; GNU Emacs; see the file COPYING. If not, write to the Free Software
ae69eef1b98b checked in with -k by blaak at 1999/08/03 06:17:58
Ray Blaak <blaak@infomatch.com>
parents: 25072
diff changeset
22 ;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
25072
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
23
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
24 ;;; Commentary:
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
25
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
26 ;; To enter Delphi mode when you find a Delphi source file, one must override
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
27 ;; the auto-mode-alist to associate Delphi with .pas (and .dpr and .dpk)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
28 ;; files. Emacs, by default, will otherwise enter Pascal mode. E.g.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
29 ;;
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
30 ;; (autoload 'delphi-mode "delphi")
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
31 ;; (setq auto-mode-alist
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
32 ;; (cons '("\\.\\(pas\\|dpr\\|dpk\\)$" . delphi-mode) auto-mode-alist))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
33
25161
ae69eef1b98b checked in with -k by blaak at 1999/08/03 06:17:58
Ray Blaak <blaak@infomatch.com>
parents: 25072
diff changeset
34 ;; To get keyword, comment, and string literal coloring, be sure that font-lock
ae69eef1b98b checked in with -k by blaak at 1999/08/03 06:17:58
Ray Blaak <blaak@infomatch.com>
parents: 25072
diff changeset
35 ;; is running. One can manually do M-x font-lock-mode in a Delphi buffer, or
ae69eef1b98b checked in with -k by blaak at 1999/08/03 06:17:58
Ray Blaak <blaak@infomatch.com>
parents: 25072
diff changeset
36 ;; one can put in .emacs:
ae69eef1b98b checked in with -k by blaak at 1999/08/03 06:17:58
Ray Blaak <blaak@infomatch.com>
parents: 25072
diff changeset
37 ;;
ae69eef1b98b checked in with -k by blaak at 1999/08/03 06:17:58
Ray Blaak <blaak@infomatch.com>
parents: 25072
diff changeset
38 ;; (add-hook 'delphi-mode-hook 'turn-on-font-lock)
ae69eef1b98b checked in with -k by blaak at 1999/08/03 06:17:58
Ray Blaak <blaak@infomatch.com>
parents: 25072
diff changeset
39
ae69eef1b98b checked in with -k by blaak at 1999/08/03 06:17:58
Ray Blaak <blaak@infomatch.com>
parents: 25072
diff changeset
40 ;; If font-lock is not loaded by default, you might have to do:
ae69eef1b98b checked in with -k by blaak at 1999/08/03 06:17:58
Ray Blaak <blaak@infomatch.com>
parents: 25072
diff changeset
41 ;;
ae69eef1b98b checked in with -k by blaak at 1999/08/03 06:17:58
Ray Blaak <blaak@infomatch.com>
parents: 25072
diff changeset
42 ;; (autoload 'font-lock-mode "font-lock")
ae69eef1b98b checked in with -k by blaak at 1999/08/03 06:17:58
Ray Blaak <blaak@infomatch.com>
parents: 25072
diff changeset
43 ;; (autoload 'turn-on-font-lock "font-lock")
ae69eef1b98b checked in with -k by blaak at 1999/08/03 06:17:58
Ray Blaak <blaak@infomatch.com>
parents: 25072
diff changeset
44 ;; (setq font-lock-support-mode 'lazy-lock-mode)
ae69eef1b98b checked in with -k by blaak at 1999/08/03 06:17:58
Ray Blaak <blaak@infomatch.com>
parents: 25072
diff changeset
45 ;;
ae69eef1b98b checked in with -k by blaak at 1999/08/03 06:17:58
Ray Blaak <blaak@infomatch.com>
parents: 25072
diff changeset
46 ;; Lazy lock is very necessary for faster screen updates.
ae69eef1b98b checked in with -k by blaak at 1999/08/03 06:17:58
Ray Blaak <blaak@infomatch.com>
parents: 25072
diff changeset
47
ae69eef1b98b checked in with -k by blaak at 1999/08/03 06:17:58
Ray Blaak <blaak@infomatch.com>
parents: 25072
diff changeset
48 ;; For good performance, be sure to byte-compile delphi.el, e.g.
ae69eef1b98b checked in with -k by blaak at 1999/08/03 06:17:58
Ray Blaak <blaak@infomatch.com>
parents: 25072
diff changeset
49 ;;
ae69eef1b98b checked in with -k by blaak at 1999/08/03 06:17:58
Ray Blaak <blaak@infomatch.com>
parents: 25072
diff changeset
50 ;; M-x byte-compile-file <give the path to delphi.el when prompted>
ae69eef1b98b checked in with -k by blaak at 1999/08/03 06:17:58
Ray Blaak <blaak@infomatch.com>
parents: 25072
diff changeset
51
ae69eef1b98b checked in with -k by blaak at 1999/08/03 06:17:58
Ray Blaak <blaak@infomatch.com>
parents: 25072
diff changeset
52 ;; This will generate delphi.elc, which will be loaded instead of delphi.el
ae69eef1b98b checked in with -k by blaak at 1999/08/03 06:17:58
Ray Blaak <blaak@infomatch.com>
parents: 25072
diff changeset
53 ;; when delphi-mode is autoloaded.
ae69eef1b98b checked in with -k by blaak at 1999/08/03 06:17:58
Ray Blaak <blaak@infomatch.com>
parents: 25072
diff changeset
54
25072
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
55 ;; When you have entered Delphi mode, you may get more info by pressing
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
56 ;; C-h m.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
57
25161
ae69eef1b98b checked in with -k by blaak at 1999/08/03 06:17:58
Ray Blaak <blaak@infomatch.com>
parents: 25072
diff changeset
58 ;; This delphi mode implementation is fairly tolerant of syntax errors, relying
ae69eef1b98b checked in with -k by blaak at 1999/08/03 06:17:58
Ray Blaak <blaak@infomatch.com>
parents: 25072
diff changeset
59 ;; as much as possible on the indentation of the previous statement. This also
ae69eef1b98b checked in with -k by blaak at 1999/08/03 06:17:58
Ray Blaak <blaak@infomatch.com>
parents: 25072
diff changeset
60 ;; makes it faster and simpler, since there is less searching for properly
ae69eef1b98b checked in with -k by blaak at 1999/08/03 06:17:58
Ray Blaak <blaak@infomatch.com>
parents: 25072
diff changeset
61 ;; constructed beginnings.
25072
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
62
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
63 ;;; Code:
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
64
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
65 (provide 'delphi)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
66
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
67 (defconst delphi-version
25317
06136c6979f1 checked in with -k by blaak at 1999/08/18 05:08:39
Ray Blaak <blaak@infomatch.com>
parents: 25161
diff changeset
68 (let ((revision "$Revision: 3.2 $"))
25072
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
69 (string-match ": \\([^ ]+\\)" revision)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
70 (match-string 1 revision))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
71 "Version of this delphi mode.")
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
72 ;;; $Log: delphi.el,v $
25317
06136c6979f1 checked in with -k by blaak at 1999/08/18 05:08:39
Ray Blaak <blaak@infomatch.com>
parents: 25161
diff changeset
73 ;;; Revision 3.2 1999/08/04 05:09:19 blaak
06136c6979f1 checked in with -k by blaak at 1999/08/18 05:08:39
Ray Blaak <blaak@infomatch.com>
parents: 25161
diff changeset
74 ;;; Consider assembly sections as blocks, to indent them better.
06136c6979f1 checked in with -k by blaak at 1999/08/18 05:08:39
Ray Blaak <blaak@infomatch.com>
parents: 25161
diff changeset
75 ;;;
06136c6979f1 checked in with -k by blaak at 1999/08/18 05:08:39
Ray Blaak <blaak@infomatch.com>
parents: 25161
diff changeset
76 ;;; Revision 3.1 1999/08/04 04:45:47 blaak
06136c6979f1 checked in with -k by blaak at 1999/08/18 05:08:39
Ray Blaak <blaak@infomatch.com>
parents: 25161
diff changeset
77 ;;; Make auto-indent on newline optional
06136c6979f1 checked in with -k by blaak at 1999/08/18 05:08:39
Ray Blaak <blaak@infomatch.com>
parents: 25161
diff changeset
78 ;;;
25161
ae69eef1b98b checked in with -k by blaak at 1999/08/03 06:17:58
Ray Blaak <blaak@infomatch.com>
parents: 25072
diff changeset
79 ;;; Revision 3.0 1999/08/03 04:59:02 blaak
ae69eef1b98b checked in with -k by blaak at 1999/08/03 06:17:58
Ray Blaak <blaak@infomatch.com>
parents: 25072
diff changeset
80 ;;; Re-release as an official Emacs language mode
25072
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
81 ;;;
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
82
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
83 (eval-and-compile
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
84 ;; Allow execution on pre Emacs 20 versions.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
85 (or (fboundp 'when)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
86 (defmacro when (test &rest body)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
87 `(if ,test (progn ,@body))))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
88 (or (fboundp 'unless)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
89 (defmacro unless (test &rest body)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
90 `(if (not ,test) (progn ,@body))))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
91 (or (fboundp 'defgroup)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
92 (defmacro defgroup (group val docs &rest group-attributes)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
93 `(defvar ,group ,val ,docs)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
94 (or (fboundp 'defcustom)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
95 (defmacro defcustom (val-name val docs &rest custom-attributes)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
96 `(defvar ,val-name ,val ,docs)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
97 (or (fboundp 'cadr)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
98 (defmacro cadr (list) `(car (cdr ,list))))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
99 (or (fboundp 'cddr)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
100 (defmacro cddr (list) `(cdr (cdr ,list))))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
101 (or (fboundp 'with-current-buffer)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
102 (defmacro with-current-buffer (buf &rest forms)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
103 `(save-excursion (set-buffer ,buf) ,@forms)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
104 )
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
105
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
106 (defgroup delphi nil
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
107 "Major mode for editing Delphi source in Emacs"
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
108 :group 'languages)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
109
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
110 (defconst delphi-debug nil
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
111 "True if in debug mode.")
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
112
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
113 (defcustom delphi-search-path "."
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
114 "*Directories to search when finding external units. It is a list of
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
115 directory strings. If only a single directory, it can be a single
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
116 string instead of a list. If a directory ends in \"...\" then that
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
117 directory is recursively searched."
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
118 :type 'string
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
119 :group 'delphi)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
120
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
121 (defcustom delphi-indent-level 3
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
122 "*Indentation of Delphi statements with respect to containing block. E.g.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
123
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
124 begin
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
125 // This is an indent of 3.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
126 end;"
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
127 :type 'integer
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
128 :group 'delphi)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
129
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
130 (defcustom delphi-compound-block-indent 0
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
131 "*Extra indentation for blocks in compound statements. E.g.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
132
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
133 // block indent = 0 vs // block indent = 2
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
134 if b then if b then
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
135 begin begin
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
136 end else begin end
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
137 end; else
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
138 begin
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
139 end;"
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
140 :type 'integer
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
141 :group 'delphi)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
142
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
143 (defcustom delphi-case-label-indent delphi-indent-level
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
144 "*Extra indentation for case statement labels. E.g.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
145
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
146 // case indent = 0 vs // case indent = 3
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
147 case value of case value of
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
148 v1: process_v1; v1: process_v1;
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
149 v2: process_v2; v2: process_v2;
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
150 else else
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
151 process_else; process_else;
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
152 end; end;"
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
153 :type 'integer
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
154 :group 'delphi)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
155
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
156 (defcustom delphi-verbose t ; nil
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
157 "*If true then delphi token processing progress is reported to the user."
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
158 :type 'boolean
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
159 :group 'delphi)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
160
25317
06136c6979f1 checked in with -k by blaak at 1999/08/18 05:08:39
Ray Blaak <blaak@infomatch.com>
parents: 25161
diff changeset
161 (defcustom delphi-tab-always-indents t
25072
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
162 "*Non-nil means TAB in Delphi mode should always reindent the current line,
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
163 regardless of where in the line point is when the TAB command is used."
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
164 :type 'boolean
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
165 :group 'delphi)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
166
25317
06136c6979f1 checked in with -k by blaak at 1999/08/18 05:08:39
Ray Blaak <blaak@infomatch.com>
parents: 25161
diff changeset
167 (defcustom delphi-newline-always-indents t
06136c6979f1 checked in with -k by blaak at 1999/08/18 05:08:39
Ray Blaak <blaak@infomatch.com>
parents: 25161
diff changeset
168 "*Non-nil means NEWLINE in Delphi mode should always reindent the current
06136c6979f1 checked in with -k by blaak at 1999/08/18 05:08:39
Ray Blaak <blaak@infomatch.com>
parents: 25161
diff changeset
169 line, insert a blank line and move to the default indent column of the blank
06136c6979f1 checked in with -k by blaak at 1999/08/18 05:08:39
Ray Blaak <blaak@infomatch.com>
parents: 25161
diff changeset
170 line. If nil, then no indentation occurs, and NEWLINE does the usual
06136c6979f1 checked in with -k by blaak at 1999/08/18 05:08:39
Ray Blaak <blaak@infomatch.com>
parents: 25161
diff changeset
171 behaviour. This is useful when one needs to do customized indentation that
06136c6979f1 checked in with -k by blaak at 1999/08/18 05:08:39
Ray Blaak <blaak@infomatch.com>
parents: 25161
diff changeset
172 differs from the default."
06136c6979f1 checked in with -k by blaak at 1999/08/18 05:08:39
Ray Blaak <blaak@infomatch.com>
parents: 25161
diff changeset
173 :type 'boolean
06136c6979f1 checked in with -k by blaak at 1999/08/18 05:08:39
Ray Blaak <blaak@infomatch.com>
parents: 25161
diff changeset
174 :group 'delphi)
06136c6979f1 checked in with -k by blaak at 1999/08/18 05:08:39
Ray Blaak <blaak@infomatch.com>
parents: 25161
diff changeset
175
25072
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
176 (defcustom delphi-comment-face 'font-lock-comment-face
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
177 "*Face used to color delphi comments."
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
178 :type 'facep
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
179 :group 'delphi)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
180
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
181 (defcustom delphi-string-face 'font-lock-string-face
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
182 "*Face used to color delphi strings."
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
183 :type 'facep
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
184 :group 'delphi)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
185
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
186 (defcustom delphi-keyword-face 'font-lock-keyword-face
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
187 "*Face used to color delphi keywords."
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
188 :type 'facep
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
189 :group 'delphi)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
190
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
191 (defcustom delphi-other-face nil
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
192 "*Face used to color everything else."
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
193 :type 'facep
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
194 :group 'delphi)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
195
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
196 (defconst delphi-directives
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
197 '(absolute abstract assembler automated cdecl default dispid dynamic
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
198 export external far forward index inline message name near nodefault
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
199 overload override pascal private protected public published read readonly
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
200 register reintroduce resident resourcestring safecall stdcall stored
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
201 virtual write writeonly)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
202 "Delphi4 directives.")
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
203
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
204 (defconst delphi-keywords
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
205 (append
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
206 '(;; Keywords.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
207 and array as asm at begin case class const constructor contains
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
208 destructor dispinterface div do downto else end except exports
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
209 file finalization finally for function goto if implementation implements
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
210 in inherited initialization interface is label library mod nil not
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
211 of object on or out package packed procedure program property
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
212 raise record repeat requires result self set shl shr then threadvar
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
213 to try type unit uses until var while with xor
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
214
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
215 ;; These routines should be keywords, if Borland had the balls.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
216 break exit)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
217
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
218 ;; We want directives to look like keywords.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
219 delphi-directives)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
220 "Delphi4 keywords.")
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
221
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
222 (defconst delphi-previous-terminators `(semicolon comma)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
223 "Expression/statement terminators that denote a previous expression.")
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
224
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
225 (defconst delphi-comments
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
226 '(comment-single-line comment-multi-line-1 comment-multi-line-2)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
227 "Tokens that represent comments.")
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
228
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
229 (defconst delphi-strings
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
230 '(string double-quoted-string)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
231 "Tokens that represent string literals.")
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
232
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
233 (defconst delphi-whitespace `(space newline ,@delphi-comments)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
234 "Tokens that are considered whitespace.")
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
235
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
236 (defconst delphi-routine-statements
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
237 '(procedure function constructor destructor property)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
238 "Marks the start of a routine, or routine-ish looking expression.")
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
239
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
240 (defconst delphi-body-expr-statements '(if while for on)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
241 "Statements that have either a single statement or a block as a body and also
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
242 are followed by an expression.")
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
243
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
244 (defconst delphi-expr-statements `(case ,@delphi-body-expr-statements)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
245 "Expression statements contain expressions after their keyword.")
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
246
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
247 (defconst delphi-body-statements `(else ,@delphi-body-expr-statements)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
248 "Statements that have either a single statement or a block as a body.")
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
249
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
250 (defconst delphi-expr-delimiters '(then do of)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
251 "Expression delimiter tokens.")
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
252
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
253 (defconst delphi-binary-ops
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
254 '(plus minus equals not-equals times divides div mod and or xor)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
255 "Delphi binary operations.")
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
256
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
257 (defconst delphi-visibilities '(public private protected published automated)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
258 "Class visibilities.")
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
259
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
260 (defconst delphi-block-statements
25317
06136c6979f1 checked in with -k by blaak at 1999/08/18 05:08:39
Ray Blaak <blaak@infomatch.com>
parents: 25161
diff changeset
261 '(begin try case repeat initialization finalization asm)
25072
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
262 "Statements that contain multiple substatements.")
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
263
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
264 (defconst delphi-mid-block-statements
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
265 `(except finally ,@delphi-visibilities)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
266 "Statements that mark mid sections of the enclosing block.")
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
267
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
268 (defconst delphi-end-block-statements `(end until)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
269 "Statements that end block sections.")
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
270
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
271 (defconst delphi-match-block-statements
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
272 `(,@delphi-end-block-statements ,@delphi-mid-block-statements)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
273 "Statements that match the indentation of the parent block.")
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
274
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
275 (defconst delphi-decl-sections '(type const var label)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
276 "Denotes the start of a declaration section.")
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
277
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
278 (defconst delphi-class-types '(class object)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
279 "Class types.")
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
280
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
281 (defconst delphi-composite-types `(,@delphi-class-types record)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
282 "Types that contain declarations within them.")
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
283
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
284 (defconst delphi-unit-sections
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
285 '(interface implementation program library package)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
286 "Unit sections within which the indent is 0.")
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
287
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
288 (defconst delphi-use-clauses `(uses requires exports contains)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
289 "Statements that refer to foreign symbols.")
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
290
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
291 (defconst delphi-unit-statements
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
292 `(,@delphi-use-clauses ,@delphi-unit-sections initialization finalization)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
293 "Statements indented at level 0.")
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
294
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
295 (defconst delphi-decl-delimiters
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
296 `(,@delphi-decl-sections ,@delphi-unit-statements
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
297 ,@delphi-routine-statements)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
298 "Statements that a declaration statement should align with.")
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
299
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
300 (defconst delphi-decl-matchers
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
301 `(begin ,@delphi-decl-sections)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
302 "Statements that should match to declaration statement indentation.")
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
303
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
304 (defconst delphi-enclosing-statements
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
305 `(,@delphi-block-statements ,@delphi-mid-block-statements
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
306 ,@delphi-decl-sections ,@delphi-use-clauses ,@delphi-routine-statements)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
307 "Delimits an enclosing statement.")
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
308
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
309 (defconst delphi-previous-statements
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
310 `(,@delphi-unit-statements ,@delphi-routine-statements)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
311 "Delimits a previous statement.")
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
312
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
313 (defconst delphi-previous-enclosing-statements
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
314 `(,@delphi-block-statements ,@delphi-mid-block-statements
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
315 ,@delphi-decl-sections)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
316 "Delimits a previous enclosing statement.")
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
317
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
318 (defconst delphi-begin-enclosing-tokens
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
319 `(,@delphi-block-statements ,@delphi-mid-block-statements)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
320 "Tokens that a begin token indents from.")
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
321
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
322 (defconst delphi-begin-previous-tokens
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
323 `(,@delphi-decl-sections ,@delphi-routine-statements)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
324 "Tokens that a begin token aligns with, but only if not part of a nested
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
325 routine.")
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
326
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
327 (defconst delphi-space-chars "\000-\011\013- ") ; all except \n
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
328 (defconst delphi-non-space-chars (concat "^" delphi-space-chars))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
329 (defconst delphi-spaces-re (concat "[" delphi-space-chars "]*"))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
330 (defconst delphi-leading-spaces-re (concat "^" delphi-spaces-re))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
331 (defconst delphi-word-chars "a-zA-Z0-9_")
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
332
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
333 (defmacro delphi-save-match-data (&rest forms)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
334 ;; Executes the forms such that the current match data is preserved, so as
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
335 ;; not to disturb any existing search results.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
336 `(let ((data (match-data)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
337 (unwind-protect
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
338 (progn ,@forms)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
339 (set-match-data data))))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
340
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
341 (defmacro delphi-save-excursion (&rest forms)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
342 ;; Executes the forms such that any movements have no effect, including
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
343 ;; searches.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
344 `(save-excursion
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
345 (delphi-save-match-data
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
346 (let ((inhibit-point-motion-hooks t)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
347 (deactivate-mark nil))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
348 (progn ,@forms)))))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
349
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
350 (defmacro delphi-save-state (&rest forms)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
351 ;; Executes the forms such that any buffer modifications do not have any side
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
352 ;; effects beyond the buffer's actual content changes.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
353 `(let ((delphi-ignore-changes t)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
354 (old-supersession-threat
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
355 (symbol-function 'ask-user-about-supersession-threat))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
356 (buffer-read-only nil)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
357 (inhibit-read-only t)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
358 (buffer-undo-list t)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
359 (before-change-functions nil)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
360 (after-change-functions nil)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
361 (modified (buffer-modified-p)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
362 ;; Disable any queries about editing obsolete files.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
363 (fset 'ask-user-about-supersession-threat (lambda (fn)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
364 (unwind-protect
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
365 (progn ,@forms)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
366 (set-buffer-modified-p modified)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
367 (fset 'ask-user-about-supersession-threat old-supersession-threat))))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
368
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
369 (defsubst delphi-is (element in-set)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
370 ;; If the element is in the set, the element cdr is returned, otherwise nil.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
371 (memq element in-set))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
372
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
373 (defun delphi-string-of (start end)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
374 ;; Returns the buffer string from start to end.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
375 (buffer-substring-no-properties start end))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
376
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
377 (defun delphi-looking-at-string (p s)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
378 ;; True if point p marks the start of string s. s is not a regular
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
379 ;; expression.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
380 (let ((limit (+ p (length s))))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
381 (and (<= limit (point-max))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
382 (string= s (delphi-string-of p limit)))))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
383
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
384 (defun delphi-token-of (kind start end)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
385 ;; Constructs a token from a kind symbol and its start/end points.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
386 `[,kind ,start ,end])
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
387
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
388 (defsubst delphi-token-kind (token)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
389 ;; Returns the kind symbol of the token.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
390 (if token (aref token 0) nil))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
391
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
392 (defun delphi-set-token-kind (token to-kind)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
393 ;; Sets the kind symbol of the token.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
394 (if token (aset token 0 to-kind)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
395
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
396 (defsubst delphi-token-start (token)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
397 ;; Returns the start point of the token.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
398 (if token (aref token 1) (point-min)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
399
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
400 (defsubst delphi-token-end (token)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
401 ;; Returns the end point of the token.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
402 (if token (aref token 2) (point-min)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
403
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
404 (defun delphi-set-token-start (token start)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
405 ;; Sets the start point of the token.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
406 (if token (aset token 1 start)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
407
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
408 (defun delphi-set-token-end (token end)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
409 ;; Sets the end point of the token.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
410 (if token (aset token 2 end)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
411
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
412 (defun delphi-token-string (token)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
413 ;; Returns the string image of the token.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
414 (if token
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
415 (delphi-string-of (delphi-token-start token) (delphi-token-end token))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
416 ""))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
417
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
418 (defun delphi-in-token (p token)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
419 ;; Returns true if the point p is within the token's start/end points.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
420 (and (<= (delphi-token-start token) p) (< p (delphi-token-end token))))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
421
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
422 (defun delphi-column-of (p)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
423 ;; Returns the column of the point p.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
424 (save-excursion (goto-char p) (current-column)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
425
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
426 (defun delphi-face-of (token-kind)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
427 ;; Returns the face property appropriate for the token kind.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
428 (cond ((delphi-is token-kind delphi-comments) delphi-comment-face)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
429 ((delphi-is token-kind delphi-strings) delphi-string-face)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
430 ((delphi-is token-kind delphi-keywords) delphi-keyword-face)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
431 (delphi-other-face)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
432
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
433 (defvar delphi-progress-last-reported-point nil
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
434 "The last point at which progress was reported.")
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
435
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
436 (defconst delphi-parsing-progress-step 16384
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
437 "Number of chars to process before the next parsing progress report.")
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
438 (defconst delphi-scanning-progress-step 2048
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
439 "Number of chars to process before the next scanning progress report.")
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
440 (defconst delphi-fontifying-progress-step delphi-scanning-progress-step
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
441 "Number of chars to process before the next fontification progress report.")
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
442
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
443 (defun delphi-progress-start ()
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
444 ;; Initializes progress reporting.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
445 (setq delphi-progress-last-reported-point nil))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
446
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
447 (defun delphi-progress-done (&rest msgs)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
448 ;; Finalizes progress reporting.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
449 (setq delphi-progress-last-reported-point nil)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
450 (when delphi-verbose
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
451 (if (null msgs)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
452 (message "")
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
453 (apply #'message msgs))))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
454
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
455 (defun delphi-step-progress (p desc step-size)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
456 ;; If enough distance has elapsed since the last reported point, then report
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
457 ;; the current progress to the user.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
458 (cond ((null delphi-progress-last-reported-point)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
459 ;; This is the first progress step.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
460 (setq delphi-progress-last-reported-point p))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
461
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
462 ((and delphi-verbose
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
463 (>= (abs (- p delphi-progress-last-reported-point)) step-size))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
464 ;; Report the percentage complete.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
465 (setq delphi-progress-last-reported-point p)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
466 (message "%s %s ... %d%%"
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
467 desc (buffer-name) (/ (* 100 p) (point-max))))))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
468
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
469 (defun delphi-next-line-start (&optional from-point)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
470 ;; Returns the first point of the next line.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
471 (let ((curr-point (point))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
472 (next nil))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
473 (if from-point (goto-char from-point))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
474 (end-of-line)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
475 (setq next (min (1+ (point)) (point-max)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
476 (goto-char curr-point)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
477 next))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
478
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
479 (defun delphi-set-text-properties (from to properties)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
480 ;; Like `set-text-properties', except we do not consider this to be a buffer
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
481 ;; modification.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
482 (delphi-save-state
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
483 (set-text-properties from to properties)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
484
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
485 (defun delphi-literal-kind (p)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
486 ;; Returns the literal kind the point p is in (or nil if not in a literal).
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
487 (if (and (<= (point-min) p) (<= p (point-max)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
488 (get-text-property p 'token)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
489
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
490 (defun delphi-literal-start-pattern (literal-kind)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
491 ;; Returns the start pattern of the literal kind.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
492 (cdr (assoc literal-kind
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
493 '((comment-single-line . "//")
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
494 (comment-multi-line-1 . "{")
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
495 (comment-multi-line-2 . "(*")
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
496 (string . "'")
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
497 (double-quoted-string . "\"")))))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
498
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
499 (defun delphi-literal-end-pattern (literal-kind)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
500 ;; Returns the end pattern of the literal kind.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
501 (cdr (assoc literal-kind
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
502 '((comment-single-line . "\n")
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
503 (comment-multi-line-1 . "}")
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
504 (comment-multi-line-2 . "*)")
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
505 (string . "'")
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
506 (double-quoted-string . "\"")))))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
507
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
508 (defun delphi-literal-stop-pattern (literal-kind)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
509 ;; Returns the pattern that delimits end of the search for the literal kind.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
510 ;; These are regular expressions.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
511 (cdr (assoc literal-kind
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
512 '((comment-single-line . "\n")
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
513 (comment-multi-line-1 . "}")
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
514 (comment-multi-line-2 . "\\*)")
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
515 ;; Strings cannot span lines.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
516 (string . "['\n]")
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
517 (double-quoted-string . "[\"\n]")))))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
518
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
519 (defun delphi-is-literal-start (p)
25161
ae69eef1b98b checked in with -k by blaak at 1999/08/03 06:17:58
Ray Blaak <blaak@infomatch.com>
parents: 25072
diff changeset
520 ;; True if the point p is at the start point of a (completed) literal.
25072
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
521 (let* ((kind (delphi-literal-kind p))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
522 (pattern (delphi-literal-start-pattern kind)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
523 (or (null kind) ; Non-literals are considered as start points.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
524 (delphi-looking-at-string p pattern))))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
525
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
526 (defun delphi-is-literal-end (p)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
527 ;; True if the point p is at the end point of a (completed) literal.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
528 (let* ((kind (delphi-literal-kind (1- p)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
529 (pattern (delphi-literal-end-pattern kind)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
530 (or (null kind) ; Non-literals are considered as end points.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
531
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
532 (and (delphi-looking-at-string (- p (length pattern)) pattern)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
533 (or (not (delphi-is kind delphi-strings))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
534 ;; Special case: string delimiters are start/end ambiguous.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
535 ;; We have an end only if there is some string content (at
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
536 ;; least a starting delimiter).
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
537 (not (delphi-is-literal-end (1- p)))))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
538
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
539 ;; Special case: strings cannot span lines.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
540 (and (delphi-is kind delphi-strings) (eq ?\n (char-after (1- p)))))))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
541
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
542 (defun delphi-is-stable-literal (p)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
543 ;; True if the point p marks a stable point. That is, a point outside of a
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
544 ;; literal region, inside of a literal region, or adjacent to completed
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
545 ;; literal regions.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
546 (let ((at-start (delphi-is-literal-start p))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
547 (at-end (delphi-is-literal-end p)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
548 (or (>= p (point-max))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
549 (and at-start at-end)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
550 (and (not at-start) (not at-end)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
551 (eq (delphi-literal-kind (1- p)) (delphi-literal-kind p))))))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
552
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
553 (defun delphi-complete-literal (literal-kind limit)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
554 ;; Continues the search for a literal's true end point and returns the
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
555 ;; point past the end pattern (if found) or the limit (if not found).
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
556 (let ((pattern (delphi-literal-stop-pattern literal-kind)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
557 (if (not (stringp pattern))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
558 (error "Invalid literal kind %S" literal-kind)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
559 ;; Search up to the limit.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
560 (re-search-forward pattern limit 'goto-limit-on-fail)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
561 (point))))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
562
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
563 (defun delphi-literal-text-properties (kind)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
564 ;; Creates a list of text properties for the literal kind.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
565 (if (and (boundp 'font-lock-mode)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
566 font-lock-mode)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
567 (list 'token kind 'face (delphi-face-of kind) 'lazy-lock t)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
568 (list 'token kind)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
569
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
570 (defun delphi-parse-next-literal (limit)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
571 ;; Searches for the next literal region (i.e. comment or string) and sets the
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
572 ;; the point to its end (or the limit, if not found). The literal region is
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
573 ;; marked as such with a text property, to speed up tokenizing during face
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
574 ;; coloring and indentation scanning.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
575 (let ((search-start (point)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
576 (cond ((not (delphi-is-literal-end search-start))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
577 ;; We are completing an incomplete literal.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
578 (let ((kind (delphi-literal-kind (1- search-start))))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
579 (delphi-complete-literal kind limit)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
580 (delphi-set-text-properties
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
581 search-start (point) (delphi-literal-text-properties kind))))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
582
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
583 ((re-search-forward
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
584 "\\(//\\)\\|\\({\\)\\|\\((\\*\\)\\|\\('\\)\\|\\(\"\\)"
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
585 limit 'goto-limit-on-fail)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
586 ;; We found the start of a new literal. Find its end and mark it.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
587 (let ((kind (cond ((match-beginning 1) 'comment-single-line)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
588 ((match-beginning 2) 'comment-multi-line-1)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
589 ((match-beginning 3) 'comment-multi-line-2)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
590 ((match-beginning 4) 'string)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
591 ((match-beginning 5) 'double-quoted-string)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
592 (start (match-beginning 0)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
593 (delphi-set-text-properties search-start start nil)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
594 (delphi-complete-literal kind limit)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
595 (delphi-set-text-properties
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
596 start (point) (delphi-literal-text-properties kind))))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
597
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
598 ;; Nothing found. Mark it as a non-literal.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
599 ((delphi-set-text-properties search-start limit nil)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
600 (delphi-step-progress (point) "Parsing" delphi-parsing-progress-step)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
601
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
602 (defun delphi-literal-token-at (p)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
603 ;; Returns the literal token surrounding the point p, or nil if none.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
604 (let ((kind (delphi-literal-kind p)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
605 (when kind
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
606 (let ((start (previous-single-property-change (1+ p) 'token))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
607 (end (next-single-property-change p 'token)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
608 (delphi-token-of kind (or start (point-min)) (or end (point-max)))))))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
609
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
610 (defun delphi-point-token-at (p kind)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
611 ;; Returns the single character token at the point p.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
612 (delphi-token-of kind p (1+ p)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
613
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
614 (defsubst delphi-char-token-at (p char kind)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
615 ;; Returns the token at the point p that describes the specified character.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
616 ;; If not actually over such a character, nil is returned.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
617 (when (eq char (char-after p))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
618 (delphi-token-of kind p (1+ p))))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
619
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
620 (defun delphi-charset-token-at (p charset kind)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
621 ;; Returns the token surrounding point p that contains only members of the
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
622 ;; character set.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
623 (let ((currp (point))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
624 (end nil)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
625 (start nil)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
626 (token nil))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
627 (goto-char p)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
628 (when (> (skip-chars-forward charset) 0)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
629 (setq end (point))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
630 (goto-char (1+ p))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
631 (skip-chars-backward charset)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
632 (setq token (delphi-token-of kind (point) end)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
633 (goto-char currp)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
634 token))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
635
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
636 (defun delphi-space-token-at (p)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
637 ;; If point p is surrounded by space characters, then return the token of the
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
638 ;; contiguous spaces.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
639 (delphi-charset-token-at p delphi-space-chars 'space))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
640
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
641 (defun delphi-word-token-at (p)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
642 ;; If point p is over a word (i.e. identifier characters), then return a word
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
643 ;; token. If the word is actually a keyword, then return the keyword token.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
644 (let ((word (delphi-charset-token-at p delphi-word-chars 'word)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
645 (when word
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
646 (let* ((word-image (downcase (delphi-token-string word)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
647 (keyword (intern-soft word-image)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
648 (when (and (or keyword (string= "nil" word-image))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
649 (delphi-is keyword delphi-keywords))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
650 (delphi-set-token-kind word keyword))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
651 word))))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
652
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
653 (defun delphi-explicit-token-at (p token-string kind)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
654 ;; If point p is anywhere in the token string then returns the resulting
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
655 ;; token.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
656 (let ((token (delphi-charset-token-at p token-string kind)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
657 (when (and token (string= token-string (delphi-token-string token)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
658 token)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
659
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
660 (defun delphi-token-at (p)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
661 ;; Returns the token from parsing text at point p.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
662 (when (and (<= (point-min) p) (<= p (point-max)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
663 (cond ((delphi-literal-token-at p))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
664
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
665 ((delphi-space-token-at p))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
666
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
667 ((delphi-word-token-at p))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
668
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
669 ((delphi-char-token-at p ?\( 'open-group))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
670 ((delphi-char-token-at p ?\) 'close-group))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
671 ((delphi-char-token-at p ?\[ 'open-group))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
672 ((delphi-char-token-at p ?\] 'close-group))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
673 ((delphi-char-token-at p ?\n 'newline))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
674 ((delphi-char-token-at p ?\; 'semicolon))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
675 ((delphi-char-token-at p ?. 'dot))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
676 ((delphi-char-token-at p ?, 'comma))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
677 ((delphi-char-token-at p ?= 'equals))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
678 ((delphi-char-token-at p ?+ 'plus))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
679 ((delphi-char-token-at p ?- 'minus))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
680 ((delphi-char-token-at p ?* 'times))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
681 ((delphi-char-token-at p ?/ 'divides))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
682 ((delphi-char-token-at p ?: 'colon))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
683
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
684 ((delphi-explicit-token-at p "<>" 'not-equals))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
685
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
686 ((delphi-point-token-at p 'punctuation)))))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
687
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
688 (defun delphi-current-token ()
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
689 ;; Returns the delphi source token under the current point.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
690 (delphi-token-at (point)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
691
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
692 (defun delphi-next-token (token)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
693 ;; Returns the token after the specified token.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
694 (when token
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
695 (let ((next (delphi-token-at (delphi-token-end token))))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
696 (if next
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
697 (delphi-step-progress (delphi-token-start next) "Scanning"
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
698 delphi-scanning-progress-step))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
699 next)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
700
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
701 (defun delphi-previous-token (token)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
702 ;; Returns the token before the specified token.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
703 (when token
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
704 (let ((previous (delphi-token-at (1- (delphi-token-start token)))))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
705 (if previous
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
706 (delphi-step-progress (delphi-token-start previous) "Scanning"
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
707 delphi-scanning-progress-step))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
708 previous)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
709
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
710 (defun delphi-next-visible-token (token)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
711 ;; Returns the first non-space token after the specified token.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
712 (let (next-token)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
713 (while (progn
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
714 (setq next-token (delphi-next-token token))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
715 (delphi-is (delphi-token-kind next-token) '(space newline))))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
716 next-token))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
717
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
718 (defun delphi-parse-region (from to)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
719 ;; Parses the literal tokens in the region. The point is set to "to".
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
720 (save-restriction
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
721 (widen)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
722 (goto-char from)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
723 (while (< (point) to)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
724 (delphi-parse-next-literal to))))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
725
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
726 (defun delphi-parse-region-until-stable (from to)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
727 ;; Parses at least the literal tokens in the region. After that, parsing
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
728 ;; continues as long as obsolete literal regions are encountered. The point
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
729 ;; is set to the encountered stable point.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
730 (save-restriction
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
731 (widen)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
732 (delphi-parse-region from to)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
733 (while (not (delphi-is-stable-literal (point)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
734 (delphi-parse-next-literal (point-max)))))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
735
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
736 (defun delphi-fontify-region (from to &optional verbose)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
737 ;; Colors the text in the region according to Delphi rules.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
738 (delphi-save-excursion
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
739 (delphi-save-state
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
740 (let ((p from)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
741 (delphi-verbose verbose)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
742 (token nil))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
743 (delphi-progress-start)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
744 (while (< p to)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
745 ;; Color the token and move past it.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
746 (setq token (delphi-token-at p))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
747 (add-text-properties
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
748 (delphi-token-start token) (delphi-token-end token)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
749 (list 'face (delphi-face-of (delphi-token-kind token)) 'lazy-lock t))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
750 (setq p (delphi-token-end token))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
751 (delphi-step-progress p "Fontifying" delphi-fontifying-progress-step))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
752 (delphi-progress-done)))))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
753
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
754 (defconst delphi-ignore-changes t
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
755 "Internal flag to control if the delphi-mode responds to buffer changes.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
756 Defaults to t in case the delphi-after-change function is called on a
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
757 non-delphi buffer. Set to nil in a delphi buffer. To override, just do:
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
758 (let ((delphi-ignore-changes t)) ...)")
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
759
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
760 (defun delphi-after-change (change-start change-end old-length)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
761 ;; Called when the buffer has changed. Reparses the changed region.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
762 (unless delphi-ignore-changes
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
763 (let ((delphi-ignore-changes t)) ; Prevent recursive calls.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
764 (delphi-save-excursion
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
765 (delphi-progress-start)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
766 ;; Reparse at least from the token previous to the change to the end of
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
767 ;; line after the change.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
768 (delphi-parse-region-until-stable
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
769 (delphi-token-start (delphi-token-at (1- change-start)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
770 (progn (goto-char change-end) (end-of-line) (point)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
771 (delphi-progress-done)))))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
772
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
773 (defun delphi-group-start (from-token)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
774 ;; Returns the token that denotes the start of the ()/[] group.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
775 (let ((token (delphi-previous-token from-token))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
776 (token-kind nil))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
777 (catch 'done
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
778 (while token
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
779 (setq token-kind (delphi-token-kind token))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
780 (cond
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
781 ;; Skip over nested groups.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
782 ((eq 'close-group token-kind) (setq token (delphi-group-start token)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
783 ((eq 'open-group token-kind) (throw 'done token)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
784 (setq token (delphi-previous-token token)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
785 ;; Start not found.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
786 nil)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
787
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
788 (defun delphi-group-end (from-token)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
789 ;; Returns the token that denotes the end of the ()/[] group.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
790 (let ((token (delphi-next-token from-token))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
791 (token-kind nil))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
792 (catch 'done
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
793 (while token
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
794 (setq token-kind (delphi-token-kind token))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
795 (cond
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
796 ;; Skip over nested groups.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
797 ((eq 'open-group token-kind) (setq token (delphi-group-end token)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
798 ((eq 'close-group token-kind) (throw 'done token)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
799 (setq token (delphi-next-token token)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
800 ;; end not found.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
801 nil)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
802
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
803 (defun delphi-indent-of (token &optional offset)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
804 ;; Returns the start column of the token, plus any offset.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
805 (let ((indent (+ (delphi-column-of (delphi-token-start token))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
806 (if offset offset 0))))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
807 (when delphi-debug
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
808 (delphi-debug-log
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
809 (concat "\n Indent of: %S %S"
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
810 "\n column: %d indent: %d offset: %d")
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
811 token (delphi-token-string token)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
812 (delphi-column-of (delphi-token-start token))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
813 indent (if offset offset 0)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
814 indent))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
815
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
816 (defun delphi-line-indent-of (from-token &optional offset &rest terminators)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
817 ;; Returns the column of first non-space character on the token's line, plus
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
818 ;; any offset. We also stop if one of the terminators or an open ( or [ is
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
819 ;; encountered.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
820 (let ((token (delphi-previous-token from-token))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
821 (last-token from-token)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
822 (kind nil))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
823 (catch 'done
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
824 (while token
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
825 (setq kind (delphi-token-kind token))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
826 (cond
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
827 ;; Skip over ()/[] groups.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
828 ((eq 'close-group kind) (setq token (delphi-group-start token)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
829
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
830 ;; Stop at the beginning of the line or an open group.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
831 ((delphi-is kind '(newline open-group)) (throw 'done nil))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
832
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
833 ;; Stop at one of the specified terminators.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
834 ((delphi-is kind terminators) (throw 'done nil)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
835 (unless (delphi-is kind delphi-whitespace) (setq last-token token))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
836 (setq token (delphi-previous-token token))))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
837 (delphi-indent-of last-token offset)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
838
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
839 (defun delphi-stmt-line-indent-of (from-token &optional offset)
25161
ae69eef1b98b checked in with -k by blaak at 1999/08/03 06:17:58
Ray Blaak <blaak@infomatch.com>
parents: 25072
diff changeset
840 ;; Like `delphi-line-indent-of' except is also stops on a use clause, and
ae69eef1b98b checked in with -k by blaak at 1999/08/03 06:17:58
Ray Blaak <blaak@infomatch.com>
parents: 25072
diff changeset
841 ;; colons that precede statements (i.e. case labels).
ae69eef1b98b checked in with -k by blaak at 1999/08/03 06:17:58
Ray Blaak <blaak@infomatch.com>
parents: 25072
diff changeset
842 (let ((token (delphi-previous-token from-token))
ae69eef1b98b checked in with -k by blaak at 1999/08/03 06:17:58
Ray Blaak <blaak@infomatch.com>
parents: 25072
diff changeset
843 (last-token from-token)
ae69eef1b98b checked in with -k by blaak at 1999/08/03 06:17:58
Ray Blaak <blaak@infomatch.com>
parents: 25072
diff changeset
844 (kind nil))
ae69eef1b98b checked in with -k by blaak at 1999/08/03 06:17:58
Ray Blaak <blaak@infomatch.com>
parents: 25072
diff changeset
845 (catch 'done
ae69eef1b98b checked in with -k by blaak at 1999/08/03 06:17:58
Ray Blaak <blaak@infomatch.com>
parents: 25072
diff changeset
846 (while token
ae69eef1b98b checked in with -k by blaak at 1999/08/03 06:17:58
Ray Blaak <blaak@infomatch.com>
parents: 25072
diff changeset
847 (setq kind (delphi-token-kind token))
ae69eef1b98b checked in with -k by blaak at 1999/08/03 06:17:58
Ray Blaak <blaak@infomatch.com>
parents: 25072
diff changeset
848 (cond
ae69eef1b98b checked in with -k by blaak at 1999/08/03 06:17:58
Ray Blaak <blaak@infomatch.com>
parents: 25072
diff changeset
849 ((and (eq 'colon kind)
ae69eef1b98b checked in with -k by blaak at 1999/08/03 06:17:58
Ray Blaak <blaak@infomatch.com>
parents: 25072
diff changeset
850 (delphi-is (delphi-token-kind last-token)
ae69eef1b98b checked in with -k by blaak at 1999/08/03 06:17:58
Ray Blaak <blaak@infomatch.com>
parents: 25072
diff changeset
851 `(,@delphi-block-statements
ae69eef1b98b checked in with -k by blaak at 1999/08/03 06:17:58
Ray Blaak <blaak@infomatch.com>
parents: 25072
diff changeset
852 ,@delphi-expr-statements)))
ae69eef1b98b checked in with -k by blaak at 1999/08/03 06:17:58
Ray Blaak <blaak@infomatch.com>
parents: 25072
diff changeset
853 ;; We hit a label followed by a statement. Indent to the statement.
ae69eef1b98b checked in with -k by blaak at 1999/08/03 06:17:58
Ray Blaak <blaak@infomatch.com>
parents: 25072
diff changeset
854 (throw 'done nil))
ae69eef1b98b checked in with -k by blaak at 1999/08/03 06:17:58
Ray Blaak <blaak@infomatch.com>
parents: 25072
diff changeset
855
ae69eef1b98b checked in with -k by blaak at 1999/08/03 06:17:58
Ray Blaak <blaak@infomatch.com>
parents: 25072
diff changeset
856 ;; Skip over ()/[] groups.
ae69eef1b98b checked in with -k by blaak at 1999/08/03 06:17:58
Ray Blaak <blaak@infomatch.com>
parents: 25072
diff changeset
857 ((eq 'close-group kind) (setq token (delphi-group-start token)))
ae69eef1b98b checked in with -k by blaak at 1999/08/03 06:17:58
Ray Blaak <blaak@infomatch.com>
parents: 25072
diff changeset
858
ae69eef1b98b checked in with -k by blaak at 1999/08/03 06:17:58
Ray Blaak <blaak@infomatch.com>
parents: 25072
diff changeset
859 ((delphi-is kind `(newline open-group ,@delphi-use-clauses))
ae69eef1b98b checked in with -k by blaak at 1999/08/03 06:17:58
Ray Blaak <blaak@infomatch.com>
parents: 25072
diff changeset
860 ;; Stop at the beginning of the line, an open group, or a use clause
ae69eef1b98b checked in with -k by blaak at 1999/08/03 06:17:58
Ray Blaak <blaak@infomatch.com>
parents: 25072
diff changeset
861 (throw 'done nil)))
ae69eef1b98b checked in with -k by blaak at 1999/08/03 06:17:58
Ray Blaak <blaak@infomatch.com>
parents: 25072
diff changeset
862 (unless (delphi-is kind delphi-whitespace) (setq last-token token))
ae69eef1b98b checked in with -k by blaak at 1999/08/03 06:17:58
Ray Blaak <blaak@infomatch.com>
parents: 25072
diff changeset
863 (setq token (delphi-previous-token token))))
ae69eef1b98b checked in with -k by blaak at 1999/08/03 06:17:58
Ray Blaak <blaak@infomatch.com>
parents: 25072
diff changeset
864 (delphi-indent-of last-token offset)))
25072
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
865
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
866 (defun delphi-open-group-indent (token last-token &optional offset)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
867 ;; Returns the indent relative to an unmatched ( or [.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
868 (when (eq 'open-group (delphi-token-kind token))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
869 (if last-token
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
870 (delphi-indent-of last-token offset)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
871 ;; There is nothing following the ( or [. Indent from its line.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
872 (delphi-stmt-line-indent-of token delphi-indent-level))))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
873
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
874 (defun delphi-composite-type-start (token last-token)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
875 ;; Returns true (actually the last-token) if the pair equals (= class) or (=
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
876 ;; record), and nil otherwise.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
877 (if (and (eq 'equals (delphi-token-kind token))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
878 (delphi-is (delphi-token-kind last-token) delphi-composite-types))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
879 last-token))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
880
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
881 (defun delphi-is-simple-class-type (at-token limit-token)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
882 ;; True if at-token is the start of a simple class type. E.g.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
883 ;; class of TClass;
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
884 ;; class (TBaseClass);
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
885 ;; class;
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
886 (when (delphi-is (delphi-token-kind at-token) delphi-class-types)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
887 (catch 'done
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
888 ;; Scan until the semi colon.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
889 (let ((token (delphi-next-token at-token))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
890 (token-kind nil)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
891 (limit (delphi-token-start limit-token)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
892 (while (and token (<= (delphi-token-start token) limit))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
893 (setq token-kind (delphi-token-kind token))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
894 (cond
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
895 ;; A semicolon delimits the search.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
896 ((eq 'semicolon token-kind) (throw 'done token))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
897
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
898 ;; Skip over the inheritance list.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
899 ((eq 'open-group token-kind) (setq token (delphi-group-end token)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
900
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
901 ;; Only allow "of" and whitespace, and an identifier
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
902 ((delphi-is token-kind `(of word ,@delphi-whitespace)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
903
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
904 ;; Otherwise we are not in a simple class declaration.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
905 ((throw 'done nil)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
906 (setq token (delphi-next-token token)))))))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
907
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
908 (defun delphi-block-start (from-token &optional stop-on-class)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
909 ;; Returns the token that denotes the start of the block.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
910 (let ((token (delphi-previous-token from-token))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
911 (last-token nil)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
912 (token-kind nil))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
913 (catch 'done
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
914 (while token
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
915 (setq token-kind (delphi-token-kind token))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
916 (cond
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
917 ;; Skip over nested blocks.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
918 ((delphi-is token-kind delphi-end-block-statements)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
919 (setq token (delphi-block-start token)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
920
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
921 ;; Regular block start found.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
922 ((delphi-is token-kind delphi-block-statements) (throw 'done token))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
923
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
924 ;; A class/record start also begins a block.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
925 ((delphi-composite-type-start token last-token)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
926 (throw 'done (if stop-on-class last-token token)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
927 )
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
928 (unless (delphi-is token-kind delphi-whitespace)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
929 (setq last-token token))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
930 (setq token (delphi-previous-token token)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
931 ;; Start not found.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
932 nil)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
933
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
934 (defun delphi-else-start (from-else)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
935 ;; Returns the token of the if or case statement.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
936 (let ((token (delphi-previous-token from-else))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
937 (token-kind nil)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
938 (semicolon-count 0)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
939 (if-count 0))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
940 (catch 'done
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
941 (while token
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
942 (setq token-kind (delphi-token-kind token))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
943 (cond
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
944 ;; Skip over nested groups.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
945 ((eq 'close-group token-kind) (setq token (delphi-group-start token)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
946
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
947 ;; Skip over any nested blocks.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
948 ((delphi-is token-kind delphi-end-block-statements)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
949 (setq token (delphi-block-start token)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
950
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
951 ((eq 'semicolon token-kind)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
952 ;; Semicolon means we are looking for an enclosing if, unless we
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
953 ;; are in a case statement. Keep counts of the semicolons and decide
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
954 ;; later.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
955 (setq semicolon-count (1+ semicolon-count)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
956
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
957 ((and (eq 'if token-kind) (= semicolon-count 0))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
958 ;; We only can match an if when there have been no intervening
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
959 ;; semicolons.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
960 (throw 'done token))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
961
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
962 ((eq 'case token-kind)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
963 ;; We have hit a case statement start.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
964 (throw 'done token)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
965 (setq token (delphi-previous-token token)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
966 ;; No if or case statement found.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
967 nil)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
968
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
969 (defun delphi-comment-content-start (comment)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
970 ;; Returns the point of the first non-space character in the comment.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
971 (let ((kind (delphi-token-kind comment)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
972 (when (delphi-is kind delphi-comments)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
973 (delphi-save-excursion
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
974 (goto-char (+ (delphi-token-start comment)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
975 (length (delphi-literal-start-pattern kind))))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
976 (skip-chars-forward delphi-space-chars)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
977 (point)))))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
978
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
979 (defun delphi-comment-block-start (comment)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
980 ;; Returns the starting comment token of a contiguous // comment block. If
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
981 ;; the comment is multiline (i.e. {...} or (*...*)), the original comment is
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
982 ;; returned.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
983 (if (not (eq 'comment-single-line (delphi-token-kind comment)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
984 comment
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
985 ;; Scan until we run out of // comments.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
986 (let ((prev-comment comment)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
987 (start-comment comment)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
988 (kind nil))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
989 (while (let ((kind (delphi-token-kind prev-comment)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
990 (cond ((eq kind 'space))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
991 ((eq kind 'comment-single-line)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
992 (setq start-comment prev-comment))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
993 (t nil)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
994 (setq prev-comment (delphi-previous-token prev-comment)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
995 start-comment)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
996
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
997 (defun delphi-comment-block-end (comment)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
998 ;; Returns the end comment token of a contiguous // comment block. If the
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
999 ;; comment is multiline (i.e. {...} or (*...*)), the original comment is
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1000 ;; returned.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1001 (if (not (eq 'comment-single-line (delphi-token-kind comment)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1002 comment
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1003 ;; Scan until we run out of // comments.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1004 (let ((next-comment comment)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1005 (end-comment comment)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1006 (kind nil))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1007 (while (let ((kind (delphi-token-kind next-comment)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1008 (cond ((eq kind 'space))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1009 ((eq kind 'comment-single-line)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1010 (setq end-comment next-comment))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1011 (t nil)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1012 (setq next-comment (delphi-next-token next-comment)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1013 end-comment)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1014
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1015 (defun delphi-on-first-comment-line (comment)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1016 ;; Returns true if the current point is on the first line of the comment.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1017 (save-excursion
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1018 (let ((comment-start (delphi-token-start comment))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1019 (current-point (point)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1020 (goto-char comment-start)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1021 (end-of-line)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1022 (and (<= comment-start current-point) (<= current-point (point))))))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1023
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1024 (defun delphi-comment-indent-of (comment)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1025 ;; Returns the correct indentation for the comment.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1026 (let ((start-comment (delphi-comment-block-start comment)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1027 (if (and (eq start-comment comment)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1028 (delphi-on-first-comment-line comment))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1029 ;; Indent as a statement.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1030 (delphi-enclosing-indent-of comment)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1031 (save-excursion
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1032 (let ((kind (delphi-token-kind comment)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1033 (beginning-of-line)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1034 (cond ((eq 'comment-single-line kind)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1035 ;; Indent to the first comment in the // block.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1036 (delphi-indent-of start-comment))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1037
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1038 ((looking-at (concat delphi-leading-spaces-re
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1039 (delphi-literal-stop-pattern kind)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1040 ;; Indent multi-line comment terminators to the comment start.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1041 (delphi-indent-of comment))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1042
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1043 ;; Indent according to the comment's content start.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1044 ((delphi-column-of (delphi-comment-content-start comment)))))))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1045 ))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1046
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1047 (defun delphi-is-use-clause-end (at-token last-token last-colon from-kind)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1048 ;; True if we are after the end of a uses type clause.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1049 (when (and last-token
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1050 (not last-colon)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1051 (eq 'comma (delphi-token-kind at-token))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1052 (eq 'semicolon from-kind))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1053 ;; Scan for the uses statement, just to be sure.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1054 (let ((token (delphi-previous-token at-token))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1055 (token-kind nil))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1056 (catch 'done
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1057 (while token
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1058 (setq token-kind (delphi-token-kind token))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1059 (cond ((delphi-is token-kind delphi-use-clauses)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1060 (throw 'done t))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1061
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1062 ;; Whitespace, identifiers, strings, "in" keyword, and commas
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1063 ;; are allowed in use clauses.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1064 ((or (delphi-is token-kind '(word comma in newline))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1065 (delphi-is token-kind delphi-whitespace)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1066 (delphi-is token-kind delphi-strings)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1067
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1068 ;; Nothing else is.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1069 ((throw 'done nil)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1070 (setq token (delphi-previous-token token)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1071 nil))))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1072
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1073 (defun delphi-is-block-after-expr-statement (token)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1074 ;; Returns true if we have a block token trailing an expression delimiter (of
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1075 ;; presumably an expression statement).
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1076 (when (delphi-is (delphi-token-kind token) delphi-block-statements)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1077 (let ((previous (delphi-previous-token token))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1078 (previous-kind nil))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1079 (while (progn
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1080 (setq previous-kind (delphi-token-kind previous))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1081 (eq previous-kind 'space))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1082 (setq previous (delphi-previous-token previous)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1083 (or (delphi-is previous-kind delphi-expr-delimiters)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1084 (eq previous-kind 'else)))))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1085
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1086 (defun delphi-previous-indent-of (from-token)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1087 ;; Returns the indentation of the previous statement of the token.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1088 (let ((token (delphi-previous-token from-token))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1089 (token-kind nil)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1090 (from-kind (delphi-token-kind from-token))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1091 (last-colon nil)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1092 (last-token nil))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1093 (catch 'done
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1094 (while token
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1095 (setq token-kind (delphi-token-kind token))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1096 (cond
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1097 ;; An open ( or [ always is an indent point.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1098 ((eq 'open-group token-kind)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1099 (throw 'done (delphi-open-group-indent token last-token)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1100
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1101 ;; Skip over any ()/[] groups.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1102 ((eq 'close-group token-kind) (setq token (delphi-group-start token)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1103
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1104 ((delphi-is token-kind delphi-end-block-statements)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1105 (if (eq 'newline (delphi-token-kind (delphi-previous-token token)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1106 ;; We can stop at an end token that is right up against the
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1107 ;; margin.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1108 (throw 'done 0)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1109 ;; Otherwise, skip over any nested blocks.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1110 (setq token (delphi-block-start token))))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1111
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1112 ;; Special case: if we encounter a ", word;" then we assume that we
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1113 ;; are in some kind of uses clause, and thus indent to column 0. This
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1114 ;; works because no other constructs are known to have that form.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1115 ;; This fixes the irritating case of having indents after a uses
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1116 ;; clause look like:
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1117 ;; uses
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1118 ;; someUnit,
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1119 ;; someOtherUnit;
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1120 ;; // this should be at column 0!
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1121 ((delphi-is-use-clause-end token last-token last-colon from-kind)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1122 (throw 'done 0))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1123
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1124 ;; A previous terminator means we can stop. If we are on a directive,
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1125 ;; however, then we are not actually encountering a new statement.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1126 ((and last-token
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1127 (delphi-is token-kind delphi-previous-terminators)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1128 (not (delphi-is (delphi-token-kind last-token)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1129 delphi-directives)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1130 (throw 'done (delphi-stmt-line-indent-of last-token 0)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1131
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1132 ;; Ignore whitespace.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1133 ((delphi-is token-kind delphi-whitespace))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1134
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1135 ;; Remember any ':' we encounter, since that affects how we indent to
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1136 ;; a case statement.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1137 ((eq 'colon token-kind) (setq last-colon token))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1138
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1139 ;; A case statement delimits a previous statement. We indent labels
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1140 ;; specially.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1141 ((eq 'case token-kind)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1142 (throw 'done
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1143 (if last-colon (delphi-line-indent-of last-colon)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1144 (delphi-line-indent-of token delphi-case-label-indent))))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1145
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1146 ;; If we are in a use clause then commas mark an enclosing rather than
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1147 ;; a previous statement.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1148 ((delphi-is token-kind delphi-use-clauses)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1149 (throw 'done
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1150 (if (eq 'comma from-kind)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1151 (if last-token
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1152 ;; Indent to first unit in use clause.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1153 (delphi-indent-of last-token)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1154 ;; Indent from use clause keyword.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1155 (delphi-line-indent-of token delphi-indent-level))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1156 ;; Indent to use clause keyword.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1157 (delphi-line-indent-of token))))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1158
25317
06136c6979f1 checked in with -k by blaak at 1999/08/18 05:08:39
Ray Blaak <blaak@infomatch.com>
parents: 25161
diff changeset
1159 ;; Assembly sections always indent in from the asm keyword.
06136c6979f1 checked in with -k by blaak at 1999/08/18 05:08:39
Ray Blaak <blaak@infomatch.com>
parents: 25161
diff changeset
1160 ((eq token-kind 'asm)
06136c6979f1 checked in with -k by blaak at 1999/08/18 05:08:39
Ray Blaak <blaak@infomatch.com>
parents: 25161
diff changeset
1161 (throw 'done (delphi-stmt-line-indent-of token delphi-indent-level)))
06136c6979f1 checked in with -k by blaak at 1999/08/18 05:08:39
Ray Blaak <blaak@infomatch.com>
parents: 25161
diff changeset
1162
25072
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1163 ;; An enclosing statement delimits a previous statement.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1164 ;; We try to use the existing indent of the previous statement,
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1165 ;; otherwise we calculate from the enclosing statement.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1166 ((delphi-is token-kind delphi-previous-enclosing-statements)
25317
06136c6979f1 checked in with -k by blaak at 1999/08/18 05:08:39
Ray Blaak <blaak@infomatch.com>
parents: 25161
diff changeset
1167 (throw 'done (if last-token
06136c6979f1 checked in with -k by blaak at 1999/08/18 05:08:39
Ray Blaak <blaak@infomatch.com>
parents: 25161
diff changeset
1168 ;; Otherwise indent to the last token
06136c6979f1 checked in with -k by blaak at 1999/08/18 05:08:39
Ray Blaak <blaak@infomatch.com>
parents: 25161
diff changeset
1169 (delphi-line-indent-of last-token)
06136c6979f1 checked in with -k by blaak at 1999/08/18 05:08:39
Ray Blaak <blaak@infomatch.com>
parents: 25161
diff changeset
1170 ;; Just indent from the enclosing keyword
25072
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1171 (delphi-line-indent-of token delphi-indent-level))))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1172
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1173 ;; A class or record declaration also delimits a previous statement.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1174 ((delphi-composite-type-start token last-token)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1175 (throw
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1176 'done
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1177 (if (delphi-is-simple-class-type last-token from-token)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1178 ;; c = class; or c = class of T; are previous statements.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1179 (delphi-line-indent-of token)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1180 ;; Otherwise c = class ... or r = record ... are enclosing
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1181 ;; statements.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1182 (delphi-line-indent-of last-token delphi-indent-level))))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1183
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1184 ;; We have a definite previous statement delimiter.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1185 ((delphi-is token-kind delphi-previous-statements)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1186 (throw 'done (delphi-stmt-line-indent-of token 0)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1187 )
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1188 (unless (delphi-is token-kind delphi-whitespace)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1189 (setq last-token token))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1190 (setq token (delphi-previous-token token)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1191 ;; We ran out of tokens. Indent to column 0.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1192 0)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1193
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1194 (defun delphi-section-indent-of (section-token)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1195 ;; Returns the indentation appropriate for begin/var/const/type/label
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1196 ;; tokens.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1197 (let* ((token (delphi-previous-token section-token))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1198 (token-kind nil)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1199 (last-token nil)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1200 (nested-block-count 0)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1201 (expr-delimited nil)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1202 (last-terminator nil))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1203 (catch 'done
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1204 (while token
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1205 (setq token-kind (delphi-token-kind token))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1206 (cond
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1207 ;; Always stop at unmatched ( or [.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1208 ((eq token-kind 'open-group)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1209 (throw 'done (delphi-open-group-indent token last-token)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1210
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1211 ;; Skip over any ()/[] groups.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1212 ((eq 'close-group token-kind) (setq token (delphi-group-start token)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1213
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1214 ((delphi-is token-kind delphi-end-block-statements)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1215 (if (eq 'newline (delphi-token-kind (delphi-previous-token token)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1216 ;; We can stop at an end token that is right up against the
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1217 ;; margin.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1218 (throw 'done 0)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1219 ;; Otherwise, skip over any nested blocks.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1220 (setq token (delphi-block-start token)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1221 nested-block-count (1+ nested-block-count))))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1222
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1223 ;; Remember if we have encountered any forward routine declarations.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1224 ((eq 'forward token-kind)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1225 (setq nested-block-count (1+ nested-block-count)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1226
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1227 ;; Mark the completion of a nested routine traversal.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1228 ((and (delphi-is token-kind delphi-routine-statements)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1229 (> nested-block-count 0))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1230 (setq nested-block-count (1- nested-block-count)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1231
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1232 ;; Remember if we have encountered any statement terminators.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1233 ((eq 'semicolon token-kind) (setq last-terminator token))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1234
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1235 ;; Remember if we have encountered any expression delimiters.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1236 ((delphi-is token-kind delphi-expr-delimiters)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1237 (setq expr-delimited token))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1238
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1239 ;; Enclosing body statements are delimiting. We indent the compound
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1240 ;; bodies specially.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1241 ((and (not last-terminator)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1242 (delphi-is token-kind delphi-body-statements))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1243 (throw 'done
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1244 (delphi-stmt-line-indent-of token delphi-compound-block-indent)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1245
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1246 ;; An enclosing ":" means a label.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1247 ((and (eq 'colon token-kind)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1248 (delphi-is (delphi-token-kind section-token)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1249 delphi-block-statements)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1250 (not last-terminator)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1251 (not expr-delimited)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1252 (not (eq 'equals (delphi-token-kind last-token))))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1253 (throw 'done
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1254 (delphi-stmt-line-indent-of token delphi-indent-level)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1255
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1256 ;; Block and mid block tokens are always enclosing
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1257 ((delphi-is token-kind delphi-begin-enclosing-tokens)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1258 (throw 'done
25161
ae69eef1b98b checked in with -k by blaak at 1999/08/03 06:17:58
Ray Blaak <blaak@infomatch.com>
parents: 25072
diff changeset
1259 (delphi-stmt-line-indent-of token delphi-indent-level)))
25072
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1260
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1261 ;; Declaration sections and routines are delimiters, unless they
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1262 ;; are part of a nested routine.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1263 ((and (delphi-is token-kind delphi-decl-delimiters)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1264 (= 0 nested-block-count))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1265 (throw 'done (delphi-line-indent-of token 0)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1266
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1267 ;; Unit statements mean we indent right to the left.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1268 ((delphi-is token-kind delphi-unit-statements) (throw 'done 0))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1269 )
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1270 (unless (delphi-is token-kind delphi-whitespace)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1271 (setq last-token token))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1272 (setq token (delphi-previous-token token)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1273 ;; We ran out of tokens. Indent to column 0.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1274 0)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1275
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1276 (defun delphi-enclosing-indent-of (from-token)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1277 ;; Returns the indentation offset from the enclosing statement of the token.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1278 (let ((token (delphi-previous-token from-token))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1279 (from-kind (delphi-token-kind from-token))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1280 (token-kind nil)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1281 (stmt-start nil)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1282 (last-token nil)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1283 (equals-encountered nil)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1284 (before-equals nil)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1285 (expr-delimited nil))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1286 (catch 'done
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1287 (while token
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1288 (setq token-kind (delphi-token-kind token))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1289 (cond
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1290 ;; An open ( or [ always is an indent point.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1291 ((eq 'open-group token-kind)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1292 (throw 'done
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1293 (delphi-open-group-indent
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1294 token last-token
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1295 (if (delphi-is from-kind delphi-binary-ops)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1296 ;; Keep binary operations aligned with the open group.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1297 0
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1298 delphi-indent-level))))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1299
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1300 ;; Skip over any ()/[] groups.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1301 ((eq 'close-group token-kind) (setq token (delphi-group-start token)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1302
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1303 ;; Skip over any nested blocks.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1304 ((delphi-is token-kind delphi-end-block-statements)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1305 (setq token (delphi-block-start token)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1306
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1307 ;; An expression delimiter affects indentation depending on whether
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1308 ;; the point is before or after it. Remember that we encountered one.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1309 ;; Also remember the last encountered token, since if it exists it
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1310 ;; should be the actual indent point.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1311 ((delphi-is token-kind delphi-expr-delimiters)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1312 (setq expr-delimited token stmt-start last-token))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1313
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1314 ;; With a non-delimited expression statement we indent after the
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1315 ;; statement's keyword, unless we are on the delimiter itself.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1316 ((and (not expr-delimited)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1317 (delphi-is token-kind delphi-expr-statements))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1318 (throw 'done
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1319 (cond ((delphi-is from-kind delphi-expr-delimiters)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1320 ;; We are indenting a delimiter. Indent to the statement.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1321 (delphi-stmt-line-indent-of token 0))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1322
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1323 ((and last-token (delphi-is from-kind delphi-binary-ops))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1324 ;; Align binary ops with the expression.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1325 (delphi-indent-of last-token))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1326
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1327 (last-token
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1328 ;; Indent in from the expression.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1329 (delphi-indent-of last-token delphi-indent-level))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1330
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1331 ;; Indent in from the statement's keyword.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1332 ((delphi-indent-of token delphi-indent-level)))))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1333
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1334 ;; A delimited case statement indents the label according to
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1335 ;; a special rule.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1336 ((eq 'case token-kind)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1337 (throw 'done
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1338 (if stmt-start
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1339 ;; We are not actually indenting to the case statement,
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1340 ;; but are within a label expression.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1341 (delphi-stmt-line-indent-of
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1342 stmt-start delphi-indent-level)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1343 ;; Indent from the case keyword.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1344 (delphi-stmt-line-indent-of
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1345 token delphi-case-label-indent))))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1346
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1347 ;; Body expression statements are enclosing. Indent from the
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1348 ;; statement's keyword, unless we have a non-block statement following
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1349 ;; it.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1350 ((delphi-is token-kind delphi-body-expr-statements)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1351 (throw 'done
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1352 (delphi-stmt-line-indent-of
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1353 (or stmt-start token) delphi-indent-level)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1354
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1355 ;; An else statement is enclosing, but it doesn't have an expression.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1356 ;; Thus we take into account last-token instead of stmt-start.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1357 ((eq 'else token-kind)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1358 (throw 'done (delphi-stmt-line-indent-of
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1359 (or last-token token) delphi-indent-level)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1360
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1361 ;; We indent relative to an enclosing declaration section.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1362 ((delphi-is token-kind delphi-decl-sections)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1363 (throw 'done (delphi-indent-of (if last-token last-token token)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1364 delphi-indent-level)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1365
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1366 ;; In unit sections we indent right to the left.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1367 ((delphi-is token-kind delphi-unit-sections) (throw 'done 0))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1368
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1369 ;; A previous terminator means we can stop.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1370 ((delphi-is token-kind delphi-previous-terminators)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1371 (throw 'done
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1372 (cond ((and last-token
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1373 (eq 'comma token-kind)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1374 (delphi-is from-kind delphi-binary-ops))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1375 ;; Align binary ops with the expression.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1376 (delphi-indent-of last-token))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1377
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1378 (last-token
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1379 ;; Indent in from the expression.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1380 (delphi-indent-of last-token delphi-indent-level))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1381
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1382 ;; No enclosing expression; use the previous statment's
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1383 ;; indent.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1384 ((delphi-previous-indent-of token)))))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1385
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1386 ;; A block statement after an expression delimiter has its start
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1387 ;; column as the expression statement. E.g.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1388 ;; if (a = b)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1389 ;; and (a != c) then begin
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1390 ;; //...
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1391 ;; end;
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1392 ;; Remember it for when we encounter the expression statement start.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1393 ((delphi-is-block-after-expr-statement token)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1394 (throw 'done
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1395 (cond (last-token (delphi-indent-of last-token delphi-indent-level))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1396
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1397 ((+ (delphi-section-indent-of token) delphi-indent-level)))))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1398
25317
06136c6979f1 checked in with -k by blaak at 1999/08/18 05:08:39
Ray Blaak <blaak@infomatch.com>
parents: 25161
diff changeset
1399 ;; Assembly sections always indent in from the asm keyword.
06136c6979f1 checked in with -k by blaak at 1999/08/18 05:08:39
Ray Blaak <blaak@infomatch.com>
parents: 25161
diff changeset
1400 ((eq token-kind 'asm)
06136c6979f1 checked in with -k by blaak at 1999/08/18 05:08:39
Ray Blaak <blaak@infomatch.com>
parents: 25161
diff changeset
1401 (throw 'done (delphi-stmt-line-indent-of token delphi-indent-level)))
06136c6979f1 checked in with -k by blaak at 1999/08/18 05:08:39
Ray Blaak <blaak@infomatch.com>
parents: 25161
diff changeset
1402
25072
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1403 ;; Stop at an enclosing statement and indent from it.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1404 ((delphi-is token-kind delphi-enclosing-statements)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1405 (throw 'done (delphi-stmt-line-indent-of
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1406 (or last-token token) delphi-indent-level)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1407
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1408 ;; A class/record declaration is also enclosing.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1409 ((delphi-composite-type-start token last-token)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1410 (throw 'done
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1411 (delphi-line-indent-of last-token delphi-indent-level)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1412
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1413 ;; A ":" we indent relative to its line beginning. If we are in a
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1414 ;; parameter list, then stop also if we hit a ";".
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1415 ((and (eq token-kind 'colon)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1416 (not expr-delimited)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1417 (not (delphi-is from-kind delphi-expr-delimiters))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1418 (not equals-encountered)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1419 (not (eq from-kind 'equals)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1420 (throw 'done
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1421 (if last-token
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1422 (delphi-indent-of last-token delphi-indent-level)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1423 (delphi-line-indent-of token delphi-indent-level 'semicolon))))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1424
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1425 ;; If the ":" was not processed above and we have token after the "=",
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1426 ;; then indent from the "=". Ignore :=, however.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1427 ((and (eq token-kind 'colon) equals-encountered before-equals)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1428 (cond
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1429 ;; Ignore binary ops for now. It would do, for example:
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1430 ;; val := 1 + 2
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1431 ;; + 3;
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1432 ;; which is good, but also
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1433 ;; val := Foo
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1434 ;; (foo, args)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1435 ;; + 2;
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1436 ;; which doesn't look right.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1437 ;;;; Align binary ops with the before token.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1438 ;;((delphi-is from-kind delphi-binary-ops)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1439 ;;(throw 'done (delphi-indent-of before-equals 0)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1440
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1441 ;; Assignments (:=) we skip over to get a normal indent.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1442 ((eq (delphi-token-kind last-token) 'equals))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1443
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1444 ;; Otherwise indent in from the equals.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1445 ((throw 'done
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1446 (delphi-indent-of before-equals delphi-indent-level)))))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1447
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1448 ;; Remember any "=" we encounter if it has not already been processed.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1449 ((eq token-kind 'equals)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1450 (setq equals-encountered token
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1451 before-equals last-token))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1452 )
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1453 (unless (delphi-is token-kind delphi-whitespace)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1454 (setq last-token token))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1455 (setq token (delphi-previous-token token)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1456 ;; We ran out of tokens. Indent to column 0.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1457 0)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1458
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1459 (defun delphi-corrected-indentation ()
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1460 ;; Returns the corrected indentation for the current line.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1461 (delphi-save-excursion
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1462 (delphi-progress-start)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1463 ;; Move to the first token on the line.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1464 (beginning-of-line)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1465 (skip-chars-forward delphi-space-chars)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1466 (let* ((token (delphi-current-token))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1467 (token-kind (delphi-token-kind token))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1468 (indent
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1469 (cond ((eq 'close-group token-kind)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1470 ;; Indent to the matching start ( or [.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1471 (delphi-indent-of (delphi-group-start token)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1472
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1473 ((delphi-is token-kind delphi-unit-statements) 0)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1474
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1475 ((delphi-is token-kind delphi-comments)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1476 ;; In a comment.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1477 (delphi-comment-indent-of token))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1478
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1479 ((delphi-is token-kind delphi-decl-matchers)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1480 ;; Use a previous section/routine's indent.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1481 (delphi-section-indent-of token))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1482
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1483 ((delphi-is token-kind delphi-match-block-statements)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1484 ;; Use the block's indentation.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1485 (let ((block-start
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1486 (delphi-block-start token 'stop-on-class)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1487 (cond
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1488 ;; When trailing a body statement, indent to
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1489 ;; the statement's keyword.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1490 ((delphi-is-block-after-expr-statement block-start)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1491 (delphi-section-indent-of block-start))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1492
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1493 ;; Otherwise just indent to the block start.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1494 ((delphi-stmt-line-indent-of block-start 0)))))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1495
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1496 ((eq 'else token-kind)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1497 ;; Find the start of the if or case statement.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1498 (delphi-stmt-line-indent-of (delphi-else-start token) 0))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1499
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1500 ;; Otherwise indent in from enclosing statement.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1501 ((delphi-enclosing-indent-of
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1502 (if token token (delphi-token-at (1- (point)))))))))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1503 (delphi-progress-done)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1504 indent)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1505
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1506 (defun delphi-indent-line ()
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1507 "Indent the current line according to the current language construct. If
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1508 before the indent, the point is moved to the indent."
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1509 (interactive)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1510 (delphi-save-match-data
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1511 (let ((marked-point (point-marker)) ; Maintain our position reliably.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1512 (new-point nil)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1513 (line-start nil)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1514 (old-indent 0)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1515 (new-indent 0))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1516 (beginning-of-line)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1517 (setq line-start (point))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1518 (skip-chars-forward delphi-space-chars)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1519 (setq old-indent (current-column))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1520 (setq new-indent (delphi-corrected-indentation))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1521 (if (< marked-point (point))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1522 ;; If before the indent column, then move to it.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1523 (set-marker marked-point (point)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1524 ;; Advance our marked point after inserted spaces.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1525 (set-marker-insertion-type marked-point t)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1526 (when (/= old-indent new-indent)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1527 (delete-region line-start (point))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1528 (insert (make-string new-indent ?\ )))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1529 (goto-char marked-point)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1530 (set-marker marked-point nil))))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1531
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1532 (defvar delphi-mode-abbrev-table nil
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1533 "Abbrev table in use in delphi-mode buffers.")
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1534 (define-abbrev-table 'delphi-mode-abbrev-table ())
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1535
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1536 (defmacro delphi-ensure-buffer (buffer-var buffer-name)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1537 ;; Ensures there exists a buffer of the specified name in the specified
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1538 ;; variable.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1539 `(when (not (buffer-live-p ,buffer-var))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1540 (setq ,buffer-var (get-buffer-create ,buffer-name))))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1541
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1542 (defun delphi-log-msg (to-buffer the-msg)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1543 ;; Writes a message to the end of the specified buffer.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1544 (with-current-buffer to-buffer
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1545 (save-selected-window
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1546 (switch-to-buffer-other-window to-buffer)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1547 (goto-char (point-max))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1548 (set-window-dot (get-buffer-window to-buffer) (point))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1549 (insert the-msg))))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1550
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1551 ;; Debugging helpers:
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1552
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1553 (defvar delphi-debug-buffer nil
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1554 "Buffer to write delphi-mode debug messages to. Created on demand.")
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1555
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1556 (defun delphi-debug-log (format-string &rest args)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1557 ;; Writes a message to the log buffer.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1558 (when delphi-debug
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1559 (delphi-ensure-buffer delphi-debug-buffer "*Delphi Debug Log*")
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1560 (delphi-log-msg delphi-debug-buffer
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1561 (concat (format-time-string "%H:%M:%S " (current-time))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1562 (apply #'format (cons format-string args))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1563 "\n"))))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1564
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1565 (defun delphi-debug-token-string (token)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1566 (let* ((image (delphi-token-string token))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1567 (has-newline (string-match "^\\([^\n]*\\)\n\\(.+\\)?$" image)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1568 (when has-newline
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1569 (setq image (concat (match-string 1 image)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1570 (if (match-beginning 2) "..."))))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1571 image))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1572
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1573 (defun delphi-debug-show-current-token ()
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1574 (interactive)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1575 (let ((token (delphi-current-token)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1576 (delphi-debug-log "Token: %S %S" token (delphi-debug-token-string token))))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1577
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1578 (defun delphi-debug-goto-point (p)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1579 (interactive "NGoto char: ")
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1580 (goto-char p))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1581
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1582 (defun delphi-debug-goto-next-token ()
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1583 (interactive)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1584 (goto-char (delphi-token-start (delphi-next-token (delphi-current-token)))))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1585
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1586 (defun delphi-debug-goto-previous-token ()
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1587 (interactive)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1588 (goto-char
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1589 (delphi-token-start (delphi-previous-token (delphi-current-token)))))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1590
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1591 (defun delphi-debug-show-current-string (from to)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1592 (interactive "r")
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1593 (delphi-debug-log "String: %S" (buffer-substring from to)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1594
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1595 (defun delphi-debug-show-is-stable ()
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1596 (interactive)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1597 (delphi-debug-log "stable: %S prev: %S next: %S"
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1598 (delphi-is-stable-literal (point))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1599 (delphi-literal-kind (1- (point)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1600 (delphi-literal-kind (point))))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1601
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1602 (defun delphi-debug-unparse-buffer ()
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1603 (interactive)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1604 (delphi-set-text-properties (point-min) (point-max) nil))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1605
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1606 (defun delphi-debug-parse-region (from to)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1607 (interactive "r")
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1608 (let ((delphi-verbose t))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1609 (delphi-save-excursion
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1610 (delphi-progress-start)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1611 (delphi-parse-region from to)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1612 (delphi-progress-done "Parsing done"))))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1613
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1614 (defun delphi-debug-parse-window ()
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1615 (interactive)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1616 (delphi-debug-parse-region (window-start) (window-end)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1617
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1618 (defun delphi-debug-parse-buffer ()
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1619 (interactive)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1620 (delphi-debug-parse-region (point-min) (point-max)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1621
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1622 (defun delphi-debug-fontify-window ()
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1623 (interactive)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1624 (delphi-fontify-region (window-start) (window-end) t))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1625
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1626 (defun delphi-debug-fontify-buffer ()
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1627 (interactive)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1628 (delphi-fontify-region (point-min) (point-max) t))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1629
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1630 (defun delphi-debug-tokenize-region (from to)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1631 (interactive)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1632 (delphi-save-excursion
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1633 (delphi-progress-start)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1634 (goto-char from)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1635 (while (< (point) to)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1636 (goto-char (delphi-token-end (delphi-current-token)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1637 (delphi-step-progress (point) "Tokenizing" delphi-scanning-progress-step))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1638 (delphi-progress-done "Tokenizing done")))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1639
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1640 (defun delphi-debug-tokenize-buffer ()
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1641 (interactive)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1642 (delphi-debug-tokenize-region (point-min) (point-max)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1643
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1644 (defun delphi-debug-tokenize-window ()
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1645 (interactive)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1646 (delphi-debug-tokenize-region (window-start) (window-end)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1647
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1648 (defun delphi-newline ()
25317
06136c6979f1 checked in with -k by blaak at 1999/08/18 05:08:39
Ray Blaak <blaak@infomatch.com>
parents: 25161
diff changeset
1649 "Terminate the current line with a newline and indent the next, unless
06136c6979f1 checked in with -k by blaak at 1999/08/18 05:08:39
Ray Blaak <blaak@infomatch.com>
parents: 25161
diff changeset
1650 `delphi-newline-always-indents' is nil, in which case no reindenting occurs."
25072
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1651 (interactive)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1652 ;; Remove trailing spaces
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1653 (delete-horizontal-space)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1654 (newline)
25317
06136c6979f1 checked in with -k by blaak at 1999/08/18 05:08:39
Ray Blaak <blaak@infomatch.com>
parents: 25161
diff changeset
1655 (when delphi-newline-always-indents
06136c6979f1 checked in with -k by blaak at 1999/08/18 05:08:39
Ray Blaak <blaak@infomatch.com>
parents: 25161
diff changeset
1656 ;; Indent both the (now) previous and current line first.
06136c6979f1 checked in with -k by blaak at 1999/08/18 05:08:39
Ray Blaak <blaak@infomatch.com>
parents: 25161
diff changeset
1657 (save-excursion
06136c6979f1 checked in with -k by blaak at 1999/08/18 05:08:39
Ray Blaak <blaak@infomatch.com>
parents: 25161
diff changeset
1658 (previous-line 1)
06136c6979f1 checked in with -k by blaak at 1999/08/18 05:08:39
Ray Blaak <blaak@infomatch.com>
parents: 25161
diff changeset
1659 (delphi-indent-line))
06136c6979f1 checked in with -k by blaak at 1999/08/18 05:08:39
Ray Blaak <blaak@infomatch.com>
parents: 25161
diff changeset
1660 (delphi-indent-line)))
25072
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1661
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1662
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1663 (defun delphi-tab ()
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1664 "Indent the current line or insert a TAB, depending on the value of
25317
06136c6979f1 checked in with -k by blaak at 1999/08/18 05:08:39
Ray Blaak <blaak@infomatch.com>
parents: 25161
diff changeset
1665 `delphi-tab-always-indents' and the current line position."
25072
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1666 (interactive)
25317
06136c6979f1 checked in with -k by blaak at 1999/08/18 05:08:39
Ray Blaak <blaak@infomatch.com>
parents: 25161
diff changeset
1667 (if (or delphi-tab-always-indents ; We are always indenting
25072
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1668 ;; Or we are before the first non-space character on the line.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1669 (save-excursion (skip-chars-backward delphi-space-chars) (bolp)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1670 (delphi-indent-line)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1671 (insert "\t")))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1672
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1673
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1674 (defun delphi-is-directory (path)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1675 ;; True if the specified path is an existing directory.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1676 (let ((attributes (file-attributes path)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1677 (and attributes (car attributes))))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1678
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1679 (defun delphi-is-file (path)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1680 ;; True if the specified file exists as a file.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1681 (let ((attributes (file-attributes path)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1682 (and attributes (null (car attributes)))))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1683
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1684 (defun delphi-search-directory (unit dir &optional recurse)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1685 ;; Searches for the unit in the specified directory. If recurse is true, then
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1686 ;; the directory is recursively searched. File name comparison is done in a
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1687 ;; case insensitive manner.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1688 (when (delphi-is-directory dir)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1689 (let ((files (directory-files dir))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1690 (unit-file (downcase unit)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1691 (catch 'done
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1692 ;; Search for the file.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1693 (mapcar #'(lambda (file)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1694 (let ((path (concat dir "/" file)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1695 (if (and (string= unit-file (downcase file))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1696 (delphi-is-file path))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1697 (throw 'done path))))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1698 files)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1699
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1700 ;; Not found. Search subdirectories.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1701 (when recurse
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1702 (mapcar #'(lambda (subdir)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1703 (unless (member subdir '("." ".."))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1704 (let ((path (delphi-search-directory
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1705 unit (concat dir "/" subdir) recurse)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1706 (if path (throw 'done path)))))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1707 files))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1708
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1709 ;; Not found.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1710 nil))))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1711
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1712
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1713 (defun delphi-find-unit-in-directory (unit dir)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1714 ;; Searches for the unit in the specified directory. If the directory ends
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1715 ;; in \"...\", then it is recursively searched.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1716 (let ((dir-name dir)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1717 (recurse nil))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1718 ;; Check if we need to recursively search the directory.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1719 (if (string-match "^\\(.+\\)\\.\\.\\.$" dir-name)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1720 (setq dir-name (match-string 1 dir-name)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1721 recurse t))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1722 ;; Ensure the trailing slash is removed.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1723 (if (string-match "^\\(.+\\)[\\\\/]$" dir-name)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1724 (setq dir-name (match-string 1 dir-name)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1725 (delphi-search-directory unit dir-name recurse)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1726
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1727 (defun delphi-find-unit-file (unit)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1728 ;; Finds the specified delphi source file according to `delphi-search-path'.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1729 ;; If found, the full path is returned, otherwise nil is returned.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1730 (catch 'done
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1731 (cond ((null delphi-search-path)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1732 (delphi-find-unit-in-directory unit "."))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1733
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1734 ((stringp delphi-search-path)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1735 (delphi-find-unit-in-directory unit delphi-search-path))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1736
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1737 ((mapcar
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1738 #'(lambda (dir)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1739 (let ((file (delphi-find-unit-in-directory unit dir)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1740 (if file (throw 'done file))))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1741 delphi-search-path)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1742 nil))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1743
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1744 (defun delphi-find-unit (unit)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1745 "Finds the specified delphi source file according to `delphi-search-path'.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1746 If no extension is specified, .pas is assumed. Creates a buffer for the unit."
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1747 (interactive "sDelphi unit name: ")
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1748 (let* ((unit-file (if (string-match "^\\(.*\\)\\.[a-z]+$" unit)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1749 unit
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1750 (concat unit ".pas")))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1751 (file (delphi-find-unit-file unit-file)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1752 (if (null file)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1753 (error "unit not found: %s" unit-file)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1754 (find-file file)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1755 (if (not (eq major-mode 'delphi-mode))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1756 (delphi-mode)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1757 file))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1758
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1759 (defun delphi-find-current-def ()
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1760 "Find the definition of the identifier under the current point."
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1761 (interactive)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1762 (error "delphi-find-current-def: not implemented yet"))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1763
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1764 (defun delphi-find-current-xdef ()
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1765 "Find the definition of the identifier under the current point, searching
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1766 in external units if necessary (as listed in the current unit's use clause).
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1767 The set of directories to search for a unit is specified by the global variable
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1768 delphi-search-path."
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1769 (interactive)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1770 (error "delphi-find-current-xdef: not implemented yet"))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1771
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1772 (defun delphi-find-current-body ()
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1773 "Find the body of the identifier under the current point, assuming
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1774 it is a routine."
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1775 (interactive)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1776 (error "delphi-find-current-body: not implemented yet"))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1777
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1778 (defun delphi-fill-comment ()
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1779 "Fills the text of the current comment, according to `fill-column'.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1780 An error is raised if not in a comment."
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1781 (interactive)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1782 (save-excursion
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1783 (let* ((comment (delphi-current-token))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1784 (comment-kind (delphi-token-kind comment)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1785 (if (not (delphi-is comment-kind delphi-comments))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1786 (error "Not in a comment")
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1787 (let* ((start-comment (delphi-comment-block-start comment))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1788 (end-comment (delphi-comment-block-end comment))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1789 (comment-start (delphi-token-start start-comment))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1790 (comment-end (delphi-token-end end-comment))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1791 (content-start (delphi-comment-content-start start-comment))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1792 (content-indent (delphi-column-of content-start))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1793 (content-prefix (make-string content-indent ?\ ))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1794 (content-prefix-re delphi-leading-spaces-re)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1795 (p nil)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1796 (marked-point (point-marker))) ; Maintain our position reliably.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1797 (when (eq 'comment-single-line comment-kind)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1798 ;; // style comments need more work.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1799 (setq content-prefix
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1800 (let ((comment-indent (delphi-column-of comment-start)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1801 (concat (make-string comment-indent ?\ ) "//"
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1802 (make-string (- content-indent comment-indent 2)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1803 ?\ )))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1804 content-prefix-re (concat delphi-leading-spaces-re
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1805 "//"
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1806 delphi-spaces-re)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1807 comment-end (if (delphi-is-literal-end comment-end)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1808 ;; Don't include the trailing newline.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1809 (1- comment-end)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1810 comment-end)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1811
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1812 ;; Advance our marked point after inserted spaces.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1813 (set-marker-insertion-type marked-point t)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1814
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1815 ;; Ensure we can modify the buffer
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1816 (goto-char content-start)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1817 (insert " ")
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1818 (delete-char -1)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1819
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1820 (narrow-to-region content-start comment-end)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1821
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1822 ;; Strip off the comment prefixes
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1823 (setq p (point-min))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1824 (while (when (< p (point-max))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1825 (goto-char p)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1826 (re-search-forward content-prefix-re nil t))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1827 (replace-match "" nil nil)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1828 (setq p (1+ (point))))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1829
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1830 ;; add an extra line to prevent the fill from doing it for us.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1831 (goto-char (point-max))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1832 (insert "\n")
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1833
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1834 ;; Fill the comment contents.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1835 (let ((fill-column (- fill-column content-indent)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1836 (fill-region (point-min) (point-max)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1837
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1838 (goto-char (point-max))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1839 (delete-char -1)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1840
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1841 ;; Restore comment prefixes.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1842 (goto-char (point-min))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1843 (end-of-line) ; Don't reset the first line.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1844 (setq p (point))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1845 (while (when (< p (point-max))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1846 (goto-char p)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1847 (re-search-forward "^" nil t))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1848 (replace-match content-prefix nil nil)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1849 (setq p (1+ (point))))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1850
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1851 (setq comment-end (point-max))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1852 (widen)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1853
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1854 ;; Restore our position
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1855 (goto-char marked-point)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1856 (set-marker marked-point nil)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1857
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1858 ;; React to the entire fill change as a whole.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1859 (delphi-progress-start)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1860 (delphi-parse-region comment-start comment-end)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1861 (delphi-progress-done))))))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1862
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1863 (defun delphi-new-comment-line ()
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1864 "If in a // comment, does a newline, indented such that one is still in the
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1865 comment block. If not in a // comment, just does a normal newline."
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1866 (interactive)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1867 (let ((comment (delphi-current-token)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1868 (if (not (eq 'comment-single-line (delphi-token-kind comment)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1869 ;; Not in a // comment. Just do the normal newline.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1870 (delphi-newline)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1871 (let* ((start-comment (delphi-comment-block-start comment))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1872 (comment-start (delphi-token-start start-comment))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1873 (content-start (delphi-comment-content-start start-comment))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1874 (prefix
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1875 (concat (make-string (delphi-column-of comment-start) ?\ ) "//"
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1876 (make-string (- content-start comment-start 2) ?\ ))))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1877 (delete-horizontal-space)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1878 (newline)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1879 (insert prefix)))))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1880
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1881 (defun delphi-match-token (token limit)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1882 ;; Sets the match region used by (match-string 0) and friends to the token's
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1883 ;; region. Sets the current point to the end of the token (or limit).
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1884 (set-match-data nil)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1885 (if token
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1886 (let ((end (min (delphi-token-end token) limit)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1887 (set-match-data (list (delphi-token-start token) end))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1888 (goto-char end)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1889 token)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1890
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1891 (defconst delphi-font-lock-defaults
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1892 '(nil ; We have our own fontify routine, so keywords don't apply.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1893 t ; Syntactic fontification doesn't apply.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1894 nil ; Don't care about case since we don't use regexps to find tokens.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1895 nil ; Syntax alists don't apply.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1896 nil ; Syntax begin movement doesn't apply
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1897 (font-lock-fontify-region-function . delphi-fontify-region)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1898 (font-lock-verbose . delphi-fontifying-progress-step))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1899 "Delphi mode font-lock defaults. Syntactic fontification is ignored.")
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1900
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1901 (defvar delphi-debug-mode-map
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1902 (let ((kmap (make-sparse-keymap)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1903 (mapcar #'(lambda (binding) (define-key kmap (car binding) (cadr binding)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1904 '(("n" delphi-debug-goto-next-token)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1905 ("p" delphi-debug-goto-previous-token)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1906 ("t" delphi-debug-show-current-token)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1907 ("T" delphi-debug-tokenize-buffer)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1908 ("W" delphi-debug-tokenize-window)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1909 ("g" delphi-debug-goto-point)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1910 ("s" delphi-debug-show-current-string)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1911 ("a" delphi-debug-parse-buffer)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1912 ("w" delphi-debug-parse-window)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1913 ("f" delphi-debug-fontify-window)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1914 ("F" delphi-debug-fontify-buffer)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1915 ("r" delphi-debug-parse-region)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1916 ("c" delphi-debug-unparse-buffer)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1917 ("x" delphi-debug-show-is-stable)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1918 ))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1919 kmap)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1920 "Keystrokes for delphi-mode debug commands.")
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1921
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1922 (defvar delphi-mode-map
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1923 (let ((kmap (make-sparse-keymap)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1924 (mapcar #'(lambda (binding) (define-key kmap (car binding) (cadr binding)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1925 (list '("\r" delphi-newline)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1926 '("\t" delphi-tab)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1927 '("\177" backward-delete-char-untabify)
25317
06136c6979f1 checked in with -k by blaak at 1999/08/18 05:08:39
Ray Blaak <blaak@infomatch.com>
parents: 25161
diff changeset
1928 ;; '("\C-cd" delphi-find-current-def)
06136c6979f1 checked in with -k by blaak at 1999/08/18 05:08:39
Ray Blaak <blaak@infomatch.com>
parents: 25161
diff changeset
1929 ;; '("\C-cx" delphi-find-current-xdef)
06136c6979f1 checked in with -k by blaak at 1999/08/18 05:08:39
Ray Blaak <blaak@infomatch.com>
parents: 25161
diff changeset
1930 ;; '("\C-cb" delphi-find-current-body)
25072
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1931 '("\C-cu" delphi-find-unit)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1932 '("\M-q" delphi-fill-comment)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1933 '("\M-j" delphi-new-comment-line)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1934 ;; Debug bindings:
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1935 (list "\C-c\C-d" delphi-debug-mode-map)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1936 kmap)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1937 "Keymap used in Delphi mode.")
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1938
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1939 (defconst delphi-mode-syntax-table (make-syntax-table)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1940 "Delphi mode's syntax table. It is just a standard syntax table.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1941 This is ok since we do our own keyword/comment/string face coloring.")
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1942
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1943 ;;;###autoload
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1944 (defun delphi-mode (&optional skip-initial-parsing)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1945 "Major mode for editing Delphi code. \\<delphi-mode-map>
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1946 \\[delphi-tab]\t- Indents the current line for Delphi code.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1947 \\[delphi-find-unit]\t- Search for a Delphi source file.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1948 \\[delphi-fill-comment]\t- Fill the current comment.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1949 \\[delphi-new-comment-line]\t- If in a // comment, do a new comment line.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1950
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1951 M-x indent-region also works for indenting a whole region.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1952
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1953 Customization:
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1954
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1955 `delphi-indent-level' (default 3)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1956 Indentation of Delphi statements with respect to containing block.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1957 `delphi-compound-block-indent' (default 0)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1958 Extra indentation for blocks in compound statements.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1959 `delphi-case-label-indent' (default 0)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1960 Extra indentation for case statement labels.
25317
06136c6979f1 checked in with -k by blaak at 1999/08/18 05:08:39
Ray Blaak <blaak@infomatch.com>
parents: 25161
diff changeset
1961 `delphi-tab-always-indents' (default t)
25072
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1962 Non-nil means TAB in Delphi mode should always reindent the current line,
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1963 regardless of where in the line point is when the TAB command is used.
25317
06136c6979f1 checked in with -k by blaak at 1999/08/18 05:08:39
Ray Blaak <blaak@infomatch.com>
parents: 25161
diff changeset
1964 `delphi-newline-always-indents' (default t)
06136c6979f1 checked in with -k by blaak at 1999/08/18 05:08:39
Ray Blaak <blaak@infomatch.com>
parents: 25161
diff changeset
1965 Non-nil means NEWLINE in Delphi mode should always reindent the current
06136c6979f1 checked in with -k by blaak at 1999/08/18 05:08:39
Ray Blaak <blaak@infomatch.com>
parents: 25161
diff changeset
1966 line, insert a blank line and move to the default indent column of the
06136c6979f1 checked in with -k by blaak at 1999/08/18 05:08:39
Ray Blaak <blaak@infomatch.com>
parents: 25161
diff changeset
1967 blank line.
25072
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1968 `delphi-search-path' (default .)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1969 Directories to search when finding external units.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1970 `delphi-verbose' (default nil)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1971 If true then delphi token processing progress is reported to the user.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1972
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1973 Coloring:
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1974
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1975 `delphi-comment-face' (default font-lock-comment-face)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1976 Face used to color delphi comments.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1977 `delphi-string-face' (default font-lock-string-face)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1978 Face used to color delphi strings.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1979 `delphi-keyword-face' (default font-lock-keyword-face)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1980 Face used to color delphi keywords.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1981 `delphi-other-face' (default nil)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1982 Face used to color everything else.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1983
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1984 Turning on Delphi mode calls the value of the variable delphi-mode-hook with
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1985 no args, if that value is non-nil."
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1986 (interactive)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1987 (kill-all-local-variables)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1988 (use-local-map delphi-mode-map)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1989 (setq major-mode 'delphi-mode)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1990 (setq mode-name "Delphi")
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1991
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1992 (setq local-abbrev-table delphi-mode-abbrev-table)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1993 (set-syntax-table delphi-mode-syntax-table)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1994
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1995 ;; Buffer locals:
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1996 (mapcar #'(lambda (var)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1997 (let ((var-symb (car var))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1998 (var-val (cadr var)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
1999 (make-local-variable var-symb)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2000 (set var-symb var-val)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2001 (list '(indent-line-function delphi-indent-line)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2002 '(comment-indent-function delphi-indent-line)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2003 '(case-fold-search t)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2004 '(delphi-progress-last-reported-point nil)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2005 '(delphi-ignore-changes nil)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2006 (list 'font-lock-defaults delphi-font-lock-defaults)))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2007
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2008 ;; We need to keep track of changes to the buffer to determine if we need
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2009 ;; to retokenize changed text.
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2010 (make-local-hook 'after-change-functions)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2011 (add-hook 'after-change-functions 'delphi-after-change nil t)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2012
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2013 (widen)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2014 (unless skip-initial-parsing
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2015 (delphi-save-excursion
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2016 (let ((delphi-verbose t))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2017 (delphi-progress-start)
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2018 (delphi-parse-region (point-min) (point-max))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2019 (delphi-progress-done))))
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2020
29873c097b15 Initial revision
Karl Heuer <kwzh@gnu.org>
parents:
diff changeset
2021 (run-hooks 'delphi-mode-hook))