Mercurial > emacs
annotate lisp/progmodes/f90.el @ 52392:ea78742dd7ca
(w32_per_char_metric): Allow cached metrics to be
returned even when font_type is unknown.
author | Jason Rumney <jasonr@gnu.org> |
---|---|
date | Sun, 31 Aug 2003 22:15:15 +0000 |
parents | 5773e914b2ed |
children | 695cf19ef79e |
rev | line source |
---|---|
13337 | 1 ;;; f90.el --- Fortran-90 mode (free format) |
14169 | 2 |
28170
5427762a58a5
(f90): Put custom group under `languages', not
Dave Love <fx@gnu.org>
parents:
26607
diff
changeset
|
3 ;; Copyright (C) 1995, 1996, 1997, 2000 Free Software Foundation, Inc. |
10612 | 4 |
28915
0371c5f8f98b
Change author's mail address.
Gerd Moellmann <gerd@gnu.org>
parents:
28170
diff
changeset
|
5 ;; Author: Torbj\"orn Einarsson <Torbjorn.Einarsson@era.ericsson.se> |
44697 | 6 ;; Maintainer: Glenn Morris <gmorris@ast.cam.ac.uk> |
10612 | 7 ;; Keywords: fortran, f90, languages |
8 | |
14169 | 9 ;; This file is part of GNU Emacs. |
10 | |
11 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
10612 | 12 ;; it under the terms of the GNU General Public License as published by |
14169 | 13 ;; the Free Software Foundation; either version 2, or (at your option) |
14 ;; any later version. | |
10612 | 15 |
14169 | 16 ;; GNU Emacs is distributed in the hope that it will be useful, |
10612 | 17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of |
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
19 ;; GNU General Public License for more details. | |
20 | |
21 ;; You should have received a copy of the GNU General Public License | |
14169 | 22 ;; along with GNU Emacs; see the file COPYING. If not, write to the |
23 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, | |
24 ;; Boston, MA 02111-1307, USA. | |
10612 | 25 |
26 ;;; Commentary: | |
14169 | 27 |
44866
582f083ed579
General tidy-up of commentary and some doc strings.
Glenn Morris <rgm@gnu.org>
parents:
44825
diff
changeset
|
28 ;; Major mode for editing F90 programs in FREE FORMAT. |
582f083ed579
General tidy-up of commentary and some doc strings.
Glenn Morris <rgm@gnu.org>
parents:
44825
diff
changeset
|
29 ;; The minor language revision F95 is also supported (with font-locking). |
582f083ed579
General tidy-up of commentary and some doc strings.
Glenn Morris <rgm@gnu.org>
parents:
44825
diff
changeset
|
30 |
10612 | 31 ;; Knows about continuation lines, named structured statements, and other |
44866
582f083ed579
General tidy-up of commentary and some doc strings.
Glenn Morris <rgm@gnu.org>
parents:
44825
diff
changeset
|
32 ;; features in F90 including HPF (High Performance Fortran) structures. |
582f083ed579
General tidy-up of commentary and some doc strings.
Glenn Morris <rgm@gnu.org>
parents:
44825
diff
changeset
|
33 ;; The basic feature provides accurate indentation of F90 programs. |
10612 | 34 ;; In addition, there are many more features like automatic matching of all |
35 ;; end statements, an auto-fill function to break long lines, a join-lines | |
44866
582f083ed579
General tidy-up of commentary and some doc strings.
Glenn Morris <rgm@gnu.org>
parents:
44825
diff
changeset
|
36 ;; function which joins continued lines, etc. |
10612 | 37 |
44866
582f083ed579
General tidy-up of commentary and some doc strings.
Glenn Morris <rgm@gnu.org>
parents:
44825
diff
changeset
|
38 ;; To facilitate typing, a fairly complete list of abbreviations is provided. |
582f083ed579
General tidy-up of commentary and some doc strings.
Glenn Morris <rgm@gnu.org>
parents:
44825
diff
changeset
|
39 ;; All abbreviations begin with the backquote character "`" |
582f083ed579
General tidy-up of commentary and some doc strings.
Glenn Morris <rgm@gnu.org>
parents:
44825
diff
changeset
|
40 ;; (this requires modification of the syntax-table). |
582f083ed579
General tidy-up of commentary and some doc strings.
Glenn Morris <rgm@gnu.org>
parents:
44825
diff
changeset
|
41 ;; For example, `i expands to integer (if abbrev-mode is on). |
582f083ed579
General tidy-up of commentary and some doc strings.
Glenn Morris <rgm@gnu.org>
parents:
44825
diff
changeset
|
42 |
582f083ed579
General tidy-up of commentary and some doc strings.
Glenn Morris <rgm@gnu.org>
parents:
44825
diff
changeset
|
43 ;; There are two separate features for altering the appearance of code: |
10612 | 44 ;; 1) Upcasing or capitalizing of all keywords. |
44866
582f083ed579
General tidy-up of commentary and some doc strings.
Glenn Morris <rgm@gnu.org>
parents:
44825
diff
changeset
|
45 ;; 2) Colors/fonts using font-lock-mode. |
582f083ed579
General tidy-up of commentary and some doc strings.
Glenn Morris <rgm@gnu.org>
parents:
44825
diff
changeset
|
46 ;; Automatic upcase or downcase of keywords is controlled by the variable |
582f083ed579
General tidy-up of commentary and some doc strings.
Glenn Morris <rgm@gnu.org>
parents:
44825
diff
changeset
|
47 ;; f90-auto-keyword-case. |
10612 | 48 |
49 ;; The indentations of lines starting with ! is determined by the first of the | |
44866
582f083ed579
General tidy-up of commentary and some doc strings.
Glenn Morris <rgm@gnu.org>
parents:
44825
diff
changeset
|
50 ;; following matches (values in the left column are the defaults): |
13064 | 51 |
52 ;; start-string/regexp indent variable holding start-string/regexp | |
53 ;; !!! 0 | |
54 ;; !hpf\\$ (re) 0 f90-directive-comment-re | |
55 ;; !!$ 0 f90-comment-region | |
56 ;; ! (re) as code f90-indented-comment-re | |
57 ;; default comment-column | |
58 | |
59 ;; Ex: Here is the result of 3 different settings of f90-indented-comment-re | |
60 ;; f90-indented-comment-re !-indentation !!-indentation | |
61 ;; ! as code as code | |
62 ;; !! comment-column as code | |
63 ;; ![^!] as code comment-column | |
44866
582f083ed579
General tidy-up of commentary and some doc strings.
Glenn Morris <rgm@gnu.org>
parents:
44825
diff
changeset
|
64 ;; Trailing comments are indented to comment-column with indent-for-comment. |
582f083ed579
General tidy-up of commentary and some doc strings.
Glenn Morris <rgm@gnu.org>
parents:
44825
diff
changeset
|
65 ;; The function f90-comment-region toggles insertion of |
582f083ed579
General tidy-up of commentary and some doc strings.
Glenn Morris <rgm@gnu.org>
parents:
44825
diff
changeset
|
66 ;; the variable f90-comment-region in every line of the region. |
10612 | 67 |
50597
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
68 ;; One common convention for free vs. fixed format is that free format files |
44997 | 69 ;; have the ending .f90 or .f95 while fixed format files have the ending .f. |
44866
582f083ed579
General tidy-up of commentary and some doc strings.
Glenn Morris <rgm@gnu.org>
parents:
44825
diff
changeset
|
70 ;; Emacs automatically loads Fortran files in the appropriate mode based |
582f083ed579
General tidy-up of commentary and some doc strings.
Glenn Morris <rgm@gnu.org>
parents:
44825
diff
changeset
|
71 ;; on extension. You can modify this by adjusting the variable auto-mode-alist. |
582f083ed579
General tidy-up of commentary and some doc strings.
Glenn Morris <rgm@gnu.org>
parents:
44825
diff
changeset
|
72 ;; For example: |
582f083ed579
General tidy-up of commentary and some doc strings.
Glenn Morris <rgm@gnu.org>
parents:
44825
diff
changeset
|
73 ;; (add-to-list 'auto-mode-alist '("\\.f\\'" . f90-mode)) |
582f083ed579
General tidy-up of commentary and some doc strings.
Glenn Morris <rgm@gnu.org>
parents:
44825
diff
changeset
|
74 |
10612 | 75 ;; Once you have entered f90-mode, you may get more info by using |
44997 | 76 ;; the command describe-mode (C-h m). For online help use |
44866
582f083ed579
General tidy-up of commentary and some doc strings.
Glenn Morris <rgm@gnu.org>
parents:
44825
diff
changeset
|
77 ;; C-h f <Name of function you want described>, or |
582f083ed579
General tidy-up of commentary and some doc strings.
Glenn Morris <rgm@gnu.org>
parents:
44825
diff
changeset
|
78 ;; C-h v <Name of variable you want described>. |
10612 | 79 |
44866
582f083ed579
General tidy-up of commentary and some doc strings.
Glenn Morris <rgm@gnu.org>
parents:
44825
diff
changeset
|
80 ;; To customize f90-mode for your taste, use, for example: |
582f083ed579
General tidy-up of commentary and some doc strings.
Glenn Morris <rgm@gnu.org>
parents:
44825
diff
changeset
|
81 ;; (you don't have to specify values for all the parameters below) |
582f083ed579
General tidy-up of commentary and some doc strings.
Glenn Morris <rgm@gnu.org>
parents:
44825
diff
changeset
|
82 ;; |
28170
5427762a58a5
(f90): Put custom group under `languages', not
Dave Love <fx@gnu.org>
parents:
26607
diff
changeset
|
83 ;;(add-hook 'f90-mode-hook |
44866
582f083ed579
General tidy-up of commentary and some doc strings.
Glenn Morris <rgm@gnu.org>
parents:
44825
diff
changeset
|
84 ;; ;; These are the default values. |
10612 | 85 ;; '(lambda () (setq f90-do-indent 3 |
86 ;; f90-if-indent 3 | |
87 ;; f90-type-indent 3 | |
88 ;; f90-program-indent 2 | |
89 ;; f90-continuation-indent 5 | |
90 ;; f90-comment-region "!!$" | |
13064 | 91 ;; f90-directive-comment-re "!hpf\\$" |
92 ;; f90-indented-comment-re "!" | |
44866
582f083ed579
General tidy-up of commentary and some doc strings.
Glenn Morris <rgm@gnu.org>
parents:
44825
diff
changeset
|
93 ;; f90-break-delimiters "[-+\\*/><=,% \t]" |
10612 | 94 ;; f90-break-before-delimiters t |
95 ;; f90-beginning-ampersand t | |
96 ;; f90-smart-end 'blink | |
97 ;; f90-auto-keyword-case nil | |
44866
582f083ed579
General tidy-up of commentary and some doc strings.
Glenn Morris <rgm@gnu.org>
parents:
44825
diff
changeset
|
98 ;; f90-leave-line-no nil |
11501
a56d6a86fa85
(f90-keywords): "only" added to keyword list.
Karl Heuer <kwzh@gnu.org>
parents:
10882
diff
changeset
|
99 ;; indent-tabs-mode nil |
15863
f11b2bfc1275
new version from Torbj?Einarsson.
Erik Naggum <erik@naggum.no>
parents:
15244
diff
changeset
|
100 ;; f90-font-lock-keywords f90-font-lock-keywords-2 |
11501
a56d6a86fa85
(f90-keywords): "only" added to keyword list.
Karl Heuer <kwzh@gnu.org>
parents:
10882
diff
changeset
|
101 ;; ) |
44866
582f083ed579
General tidy-up of commentary and some doc strings.
Glenn Morris <rgm@gnu.org>
parents:
44825
diff
changeset
|
102 ;; ;; These are not default. |
10612 | 103 ;; (abbrev-mode 1) ; turn on abbreviation mode |
15863
f11b2bfc1275
new version from Torbj?Einarsson.
Erik Naggum <erik@naggum.no>
parents:
15244
diff
changeset
|
104 ;; (f90-add-imenu-menu) ; extra menu with functions etc. |
10612 | 105 ;; (if f90-auto-keyword-case ; change case of all keywords on startup |
106 ;; (f90-change-keywords f90-auto-keyword-case)) | |
107 ;; )) | |
44866
582f083ed579
General tidy-up of commentary and some doc strings.
Glenn Morris <rgm@gnu.org>
parents:
44825
diff
changeset
|
108 ;; |
582f083ed579
General tidy-up of commentary and some doc strings.
Glenn Morris <rgm@gnu.org>
parents:
44825
diff
changeset
|
109 ;; in your .emacs file. You can also customize the lists |
582f083ed579
General tidy-up of commentary and some doc strings.
Glenn Morris <rgm@gnu.org>
parents:
44825
diff
changeset
|
110 ;; f90-font-lock-keywords, etc. |
582f083ed579
General tidy-up of commentary and some doc strings.
Glenn Morris <rgm@gnu.org>
parents:
44825
diff
changeset
|
111 ;; |
582f083ed579
General tidy-up of commentary and some doc strings.
Glenn Morris <rgm@gnu.org>
parents:
44825
diff
changeset
|
112 ;; The auto-fill and abbreviation minor modes are accessible from the F90 menu, |
15863
f11b2bfc1275
new version from Torbj?Einarsson.
Erik Naggum <erik@naggum.no>
parents:
15244
diff
changeset
|
113 ;; or by using M-x auto-fill-mode and M-x abbrev-mode, respectively. |
10612 | 114 |
115 ;; Remarks | |
116 ;; 1) Line numbers are by default left-justified. If f90-leave-line-no is | |
117 ;; non-nil, the line numbers are never touched. | |
44866
582f083ed579
General tidy-up of commentary and some doc strings.
Glenn Morris <rgm@gnu.org>
parents:
44825
diff
changeset
|
118 ;; 2) Multi-; statements like "do i=1,20 ; j=j+i ; end do" are not handled |
10612 | 119 ;; correctly, but I imagine them to be rare. |
13064 | 120 ;; 3) Regexps for hilit19 are no longer supported. |
44866
582f083ed579
General tidy-up of commentary and some doc strings.
Glenn Morris <rgm@gnu.org>
parents:
44825
diff
changeset
|
121 ;; 4) For FIXED FORMAT code, use fortran mode. |
10612 | 122 ;; 5) This mode does not work under emacs-18.x. |
11501
a56d6a86fa85
(f90-keywords): "only" added to keyword list.
Karl Heuer <kwzh@gnu.org>
parents:
10882
diff
changeset
|
123 ;; 6) Preprocessor directives, i.e., lines starting with # are left-justified |
a56d6a86fa85
(f90-keywords): "only" added to keyword list.
Karl Heuer <kwzh@gnu.org>
parents:
10882
diff
changeset
|
124 ;; and are untouched by all case-changing commands. There is, at present, no |
a56d6a86fa85
(f90-keywords): "only" added to keyword list.
Karl Heuer <kwzh@gnu.org>
parents:
10882
diff
changeset
|
125 ;; mechanism for treating multi-line directives (continued by \ ). |
13064 | 126 ;; 7) f77 do-loops do 10 i=.. ; ; 10 continue are not correctly indented. |
127 ;; You are urged to use f90-do loops (with labels if you wish). | |
15052
1abb847e6bff
(f90-keywords-re): Added operator and result.
Karl Heuer <kwzh@gnu.org>
parents:
14533
diff
changeset
|
128 ;; 8) The highlighting mode under XEmacs is not as complete as under Emacs. |
10612 | 129 |
130 ;; List of user commands | |
131 ;; f90-previous-statement f90-next-statement | |
132 ;; f90-beginning-of-subprogram f90-end-of-subprogram f90-mark-subprogram | |
133 ;; f90-comment-region | |
134 ;; f90-indent-line f90-indent-new-line | |
135 ;; f90-indent-region (can be called by calling indent-region) | |
136 ;; f90-indent-subprogram | |
137 ;; f90-break-line f90-join-lines | |
138 ;; f90-fill-region | |
139 ;; f90-insert-end | |
140 ;; f90-upcase-keywords f90-upcase-region-keywords | |
141 ;; f90-downcase-keywords f90-downcase-region-keywords | |
142 ;; f90-capitalize-keywords f90-capitalize-region-keywords | |
15863
f11b2bfc1275
new version from Torbj?Einarsson.
Erik Naggum <erik@naggum.no>
parents:
15244
diff
changeset
|
143 ;; f90-add-imenu-menu |
f11b2bfc1275
new version from Torbj?Einarsson.
Erik Naggum <erik@naggum.no>
parents:
15244
diff
changeset
|
144 ;; f90-font-lock-1, f90-font-lock-2, f90-font-lock-3, f90-font-lock-4 |
10612 | 145 |
44866
582f083ed579
General tidy-up of commentary and some doc strings.
Glenn Morris <rgm@gnu.org>
parents:
44825
diff
changeset
|
146 ;; Original author's thanks |
10612 | 147 ;; Thanks to all the people who have tested the mode. Special thanks to Jens |
148 ;; Bloch Helmers for encouraging me to write this code, for creative | |
149 ;; suggestions as well as for the lists of hpf-commands. | |
150 ;; Also thanks to the authors of the fortran and pascal modes, on which some | |
151 ;; of this code is built. | |
152 | |
50597
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
153 ;;; Code: |
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
154 |
44866
582f083ed579
General tidy-up of commentary and some doc strings.
Glenn Morris <rgm@gnu.org>
parents:
44825
diff
changeset
|
155 ;; TODO |
582f083ed579
General tidy-up of commentary and some doc strings.
Glenn Morris <rgm@gnu.org>
parents:
44825
diff
changeset
|
156 ;; Support for hideshow, align. |
582f083ed579
General tidy-up of commentary and some doc strings.
Glenn Morris <rgm@gnu.org>
parents:
44825
diff
changeset
|
157 ;; OpenMP, preprocessor highlighting. |
582f083ed579
General tidy-up of commentary and some doc strings.
Glenn Morris <rgm@gnu.org>
parents:
44825
diff
changeset
|
158 |
47178
7a1530aeef3f
Remove (eval-when-compile) for free variables.
Glenn Morris <rgm@gnu.org>
parents:
47012
diff
changeset
|
159 (defvar comment-auto-fill-only-comments) |
7a1530aeef3f
Remove (eval-when-compile) for free variables.
Glenn Morris <rgm@gnu.org>
parents:
47012
diff
changeset
|
160 (defvar font-lock-keywords) |
46993
c4e4658185e3
eval-when-compile a few defvars to quieten the byte-compiler.
Glenn Morris <rgm@gnu.org>
parents:
46796
diff
changeset
|
161 |
10612 | 162 ;; User options |
17413
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16444
diff
changeset
|
163 |
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16444
diff
changeset
|
164 (defgroup f90 nil |
50597
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
165 "Major mode for editing free format Fortran 90,95 code." |
28170
5427762a58a5
(f90): Put custom group under `languages', not
Dave Love <fx@gnu.org>
parents:
26607
diff
changeset
|
166 :group 'languages) |
10612 | 167 |
17413
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16444
diff
changeset
|
168 (defgroup f90-indent nil |
50597
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
169 "Indentation in free format Fortran." |
17413
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16444
diff
changeset
|
170 :prefix "f90-" |
50597
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
171 :group 'f90) |
17413
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16444
diff
changeset
|
172 |
10612 | 173 |
17413
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16444
diff
changeset
|
174 (defcustom f90-do-indent 3 |
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16444
diff
changeset
|
175 "*Extra indentation applied to DO blocks." |
50597
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
176 :type 'integer |
17413
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16444
diff
changeset
|
177 :group 'f90-indent) |
10612 | 178 |
17413
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16444
diff
changeset
|
179 (defcustom f90-if-indent 3 |
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16444
diff
changeset
|
180 "*Extra indentation applied to IF, SELECT CASE, WHERE and FORALL blocks." |
50597
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
181 :type 'integer |
17413
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16444
diff
changeset
|
182 :group 'f90-indent) |
10612 | 183 |
17413
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16444
diff
changeset
|
184 (defcustom f90-type-indent 3 |
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16444
diff
changeset
|
185 "*Extra indentation applied to TYPE, INTERFACE and BLOCK DATA blocks." |
50597
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
186 :type 'integer |
17413
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16444
diff
changeset
|
187 :group 'f90-indent) |
10612 | 188 |
17413
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16444
diff
changeset
|
189 (defcustom f90-program-indent 2 |
50597
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
190 "*Extra indentation applied to PROGRAM, MODULE, SUBROUTINE, FUNCTION blocks." |
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
191 :type 'integer |
17413
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16444
diff
changeset
|
192 :group 'f90-indent) |
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16444
diff
changeset
|
193 |
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16444
diff
changeset
|
194 (defcustom f90-continuation-indent 5 |
50597
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
195 "*Extra indentation applied to continuation lines." |
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
196 :type 'integer |
17413
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16444
diff
changeset
|
197 :group 'f90-indent) |
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16444
diff
changeset
|
198 |
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16444
diff
changeset
|
199 (defcustom f90-comment-region "!!$" |
44866
582f083ed579
General tidy-up of commentary and some doc strings.
Glenn Morris <rgm@gnu.org>
parents:
44825
diff
changeset
|
200 "*String inserted by \\[f90-comment-region] at start of each line in region." |
50597
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
201 :type 'string |
17413
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16444
diff
changeset
|
202 :group 'f90-indent) |
10612 | 203 |
17413
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16444
diff
changeset
|
204 (defcustom f90-indented-comment-re "!" |
50597
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
205 "*Regexp matching comments to indent as code." |
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
206 :type 'regexp |
17413
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16444
diff
changeset
|
207 :group 'f90-indent) |
10612 | 208 |
17413
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16444
diff
changeset
|
209 (defcustom f90-directive-comment-re "!hpf\\$" |
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16444
diff
changeset
|
210 "*Regexp of comment-like directive like \"!HPF\\\\$\", not to be indented." |
50597
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
211 :type 'regexp |
17413
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16444
diff
changeset
|
212 :group 'f90-indent) |
10612 | 213 |
17413
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16444
diff
changeset
|
214 (defcustom f90-beginning-ampersand t |
44866
582f083ed579
General tidy-up of commentary and some doc strings.
Glenn Morris <rgm@gnu.org>
parents:
44825
diff
changeset
|
215 "*Non-nil gives automatic insertion of \& at start of continuation line." |
50597
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
216 :type 'boolean |
17413
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16444
diff
changeset
|
217 :group 'f90) |
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16444
diff
changeset
|
218 |
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16444
diff
changeset
|
219 (defcustom f90-smart-end 'blink |
10612 | 220 "*From an END statement, check and fill the end using matching block start. |
221 Allowed values are 'blink, 'no-blink, and nil, which determine | |
17413
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16444
diff
changeset
|
222 whether to blink the matching beginning." |
50597
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
223 :type '(choice (const blink) (const no-blink) (const nil)) |
17413
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16444
diff
changeset
|
224 :group 'f90) |
10612 | 225 |
17413
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16444
diff
changeset
|
226 (defcustom f90-break-delimiters "[-+\\*/><=,% \t]" |
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16444
diff
changeset
|
227 "*Regexp holding list of delimiters at which lines may be broken." |
50597
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
228 :type 'regexp |
17413
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16444
diff
changeset
|
229 :group 'f90) |
10612 | 230 |
17413
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16444
diff
changeset
|
231 (defcustom f90-break-before-delimiters t |
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16444
diff
changeset
|
232 "*Non-nil causes `f90-do-auto-fill' to break lines before delimiters." |
50597
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
233 :type 'boolean |
17413
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16444
diff
changeset
|
234 :group 'f90) |
10612 | 235 |
17413
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16444
diff
changeset
|
236 (defcustom f90-auto-keyword-case nil |
10612 | 237 "*Automatic case conversion of keywords. |
44866
582f083ed579
General tidy-up of commentary and some doc strings.
Glenn Morris <rgm@gnu.org>
parents:
44825
diff
changeset
|
238 The options are 'downcase-word, 'upcase-word, 'capitalize-word and nil." |
50597
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
239 :type '(choice (const downcase-word) (const upcase-word) |
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
240 (const capitalize-word) (const nil)) |
17413
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16444
diff
changeset
|
241 :group 'f90) |
10612 | 242 |
17413
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16444
diff
changeset
|
243 (defcustom f90-leave-line-no nil |
44866
582f083ed579
General tidy-up of commentary and some doc strings.
Glenn Morris <rgm@gnu.org>
parents:
44825
diff
changeset
|
244 "*If non-nil, line numbers are not left justified." |
50597
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
245 :type 'boolean |
17413
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16444
diff
changeset
|
246 :group 'f90) |
10612 | 247 |
46993
c4e4658185e3
eval-when-compile a few defvars to quieten the byte-compiler.
Glenn Morris <rgm@gnu.org>
parents:
46796
diff
changeset
|
248 (defcustom f90-mode-hook nil |
c4e4658185e3
eval-when-compile a few defvars to quieten the byte-compiler.
Glenn Morris <rgm@gnu.org>
parents:
46796
diff
changeset
|
249 "Hook run when entering F90 mode." |
50597
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
250 :type 'hook |
46993
c4e4658185e3
eval-when-compile a few defvars to quieten the byte-compiler.
Glenn Morris <rgm@gnu.org>
parents:
46796
diff
changeset
|
251 :options '(f90-add-imenu-menu) |
50597
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
252 :group 'f90) |
46993
c4e4658185e3
eval-when-compile a few defvars to quieten the byte-compiler.
Glenn Morris <rgm@gnu.org>
parents:
46796
diff
changeset
|
253 |
c4e4658185e3
eval-when-compile a few defvars to quieten the byte-compiler.
Glenn Morris <rgm@gnu.org>
parents:
46796
diff
changeset
|
254 ;; User options end here. |
44942
972dc81abf82
(f90-xemacs-flag): New variable to put the test for Emacs flavor in one
Glenn Morris <rgm@gnu.org>
parents:
44866
diff
changeset
|
255 |
13064 | 256 (defconst f90-keywords-re |
44340
93314c938a62
(f90-keywords-re, f90-keywords-level-3-re)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42442
diff
changeset
|
257 (regexp-opt '("allocatable" "allocate" "assign" "assignment" "backspace" |
93314c938a62
(f90-keywords-re, f90-keywords-level-3-re)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42442
diff
changeset
|
258 "block" "call" "case" "character" "close" "common" "complex" |
93314c938a62
(f90-keywords-re, f90-keywords-level-3-re)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42442
diff
changeset
|
259 "contains" "continue" "cycle" "data" "deallocate" |
93314c938a62
(f90-keywords-re, f90-keywords-level-3-re)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42442
diff
changeset
|
260 "dimension" "do" "double" "else" "elseif" "elsewhere" "end" |
93314c938a62
(f90-keywords-re, f90-keywords-level-3-re)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42442
diff
changeset
|
261 "enddo" "endfile" "endif" "entry" "equivalence" "exit" |
93314c938a62
(f90-keywords-re, f90-keywords-level-3-re)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42442
diff
changeset
|
262 "external" "forall" "format" "function" "goto" "if" |
93314c938a62
(f90-keywords-re, f90-keywords-level-3-re)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42442
diff
changeset
|
263 "implicit" "include" "inquire" "integer" "intent" |
93314c938a62
(f90-keywords-re, f90-keywords-level-3-re)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42442
diff
changeset
|
264 "interface" "intrinsic" "logical" "module" "namelist" "none" |
93314c938a62
(f90-keywords-re, f90-keywords-level-3-re)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42442
diff
changeset
|
265 "nullify" "only" "open" "operator" "optional" "parameter" |
93314c938a62
(f90-keywords-re, f90-keywords-level-3-re)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42442
diff
changeset
|
266 "pause" "pointer" "precision" "print" "private" "procedure" |
93314c938a62
(f90-keywords-re, f90-keywords-level-3-re)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42442
diff
changeset
|
267 "program" "public" "read" "real" "recursive" "result" "return" |
93314c938a62
(f90-keywords-re, f90-keywords-level-3-re)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42442
diff
changeset
|
268 "rewind" "save" "select" "sequence" "stop" "subroutine" |
93314c938a62
(f90-keywords-re, f90-keywords-level-3-re)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42442
diff
changeset
|
269 "target" "then" "type" "use" "where" "while" "write" |
93314c938a62
(f90-keywords-re, f90-keywords-level-3-re)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42442
diff
changeset
|
270 ;; F95 keywords. |
93314c938a62
(f90-keywords-re, f90-keywords-level-3-re)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42442
diff
changeset
|
271 "elemental" "pure") 'words) |
13064 | 272 "Regexp for F90 keywords.") |
273 | |
274 (defconst f90-keywords-level-3-re | |
44340
93314c938a62
(f90-keywords-re, f90-keywords-level-3-re)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42442
diff
changeset
|
275 (regexp-opt |
93314c938a62
(f90-keywords-re, f90-keywords-level-3-re)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42442
diff
changeset
|
276 '("allocatable" "allocate" "assign" "assignment" "backspace" |
93314c938a62
(f90-keywords-re, f90-keywords-level-3-re)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42442
diff
changeset
|
277 "close" "deallocate" "dimension" "endfile" "entry" "equivalence" |
93314c938a62
(f90-keywords-re, f90-keywords-level-3-re)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42442
diff
changeset
|
278 "external" "inquire" "intent" "intrinsic" "nullify" "only" "open" |
93314c938a62
(f90-keywords-re, f90-keywords-level-3-re)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42442
diff
changeset
|
279 "operator" "optional" "parameter" "pause" "pointer" "print" "private" |
93314c938a62
(f90-keywords-re, f90-keywords-level-3-re)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42442
diff
changeset
|
280 "public" "read" "recursive" "result" "rewind" "save" "select" |
93314c938a62
(f90-keywords-re, f90-keywords-level-3-re)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42442
diff
changeset
|
281 "sequence" "target" "write" |
93314c938a62
(f90-keywords-re, f90-keywords-level-3-re)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42442
diff
changeset
|
282 ;; F95 keywords. |
93314c938a62
(f90-keywords-re, f90-keywords-level-3-re)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42442
diff
changeset
|
283 "elemental" "pure") 'words) |
93314c938a62
(f90-keywords-re, f90-keywords-level-3-re)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42442
diff
changeset
|
284 "Keyword-regexp for font-lock level >= 3.") |
13064 | 285 |
286 (defconst f90-procedures-re | |
44340
93314c938a62
(f90-keywords-re, f90-keywords-level-3-re)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42442
diff
changeset
|
287 (concat "\\<" |
44997 | 288 (regexp-opt |
289 '("abs" "achar" "acos" "adjustl" "adjustr" "aimag" "aint" | |
290 "all" "allocated" "anint" "any" "asin" "associated" | |
291 "atan" "atan2" "bit_size" "btest" "ceiling" "char" "cmplx" | |
292 "conjg" "cos" "cosh" "count" "cshift" "date_and_time" "dble" | |
293 "digits" "dim" "dot_product" "dprod" "eoshift" "epsilon" | |
294 "exp" "exponent" "floor" "fraction" "huge" "iachar" "iand" | |
295 "ibclr" "ibits" "ibset" "ichar" "ieor" "index" "int" "ior" | |
296 "ishft" "ishftc" "kind" "lbound" "len" "len_trim" "lge" "lgt" | |
297 "lle" "llt" "log" "log10" "logical" "matmul" "max" | |
298 "maxexponent" "maxloc" "maxval" "merge" "min" "minexponent" | |
299 "minloc" "minval" "mod" "modulo" "mvbits" "nearest" "nint" | |
300 "not" "pack" "precision" "present" "product" "radix" | |
301 ;; Real is taken out here to avoid highlighting declarations. | |
302 "random_number" "random_seed" "range" ;; "real" | |
303 "repeat" "reshape" "rrspacing" "scale" "scan" | |
304 "selected_int_kind" "selected_real_kind" "set_exponent" | |
305 "shape" "sign" "sin" "sinh" "size" "spacing" "spread" "sqrt" | |
306 "sum" "system_clock" "tan" "tanh" "tiny" "transfer" | |
307 "transpose" "trim" "ubound" "unpack" "verify" | |
308 ;; F95 intrinsic functions. | |
309 "null" "cpu_time") t) | |
310 ;; A left parenthesis to avoid highlighting non-procedures. | |
311 "[ \t]*(") | |
13064 | 312 "Regexp whose first part matches F90 intrinsic procedures.") |
10612 | 313 |
13064 | 314 (defconst f90-operators-re |
44997 | 315 (concat "\\." |
316 (regexp-opt '("and" "eq" "eqv" "false" "ge" "gt" "le" "lt" "ne" | |
317 "neqv" "not" "or" "true") t) | |
318 "\\.") | |
13064 | 319 "Regexp matching intrinsic operators.") |
10612 | 320 |
13064 | 321 (defconst f90-hpf-keywords-re |
44340
93314c938a62
(f90-keywords-re, f90-keywords-level-3-re)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42442
diff
changeset
|
322 (regexp-opt |
45066
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
323 ;; Intrinsic procedures. |
44340
93314c938a62
(f90-keywords-re, f90-keywords-level-3-re)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42442
diff
changeset
|
324 '("all_prefix" "all_scatter" "all_suffix" "any_prefix" |
93314c938a62
(f90-keywords-re, f90-keywords-level-3-re)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42442
diff
changeset
|
325 "any_scatter" "any_suffix" "copy_prefix" "copy_scatter" |
93314c938a62
(f90-keywords-re, f90-keywords-level-3-re)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42442
diff
changeset
|
326 "copy_suffix" "count_prefix" "count_scatter" "count_suffix" |
93314c938a62
(f90-keywords-re, f90-keywords-level-3-re)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42442
diff
changeset
|
327 "grade_down" "grade_up" |
93314c938a62
(f90-keywords-re, f90-keywords-level-3-re)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42442
diff
changeset
|
328 "hpf_alignment" "hpf_distribution" "hpf_template" "iall" "iall_prefix" |
93314c938a62
(f90-keywords-re, f90-keywords-level-3-re)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42442
diff
changeset
|
329 "iall_scatter" "iall_suffix" "iany" "iany_prefix" "iany_scatter" |
93314c938a62
(f90-keywords-re, f90-keywords-level-3-re)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42442
diff
changeset
|
330 "iany_suffix" "ilen" "iparity" "iparity_prefix" |
93314c938a62
(f90-keywords-re, f90-keywords-level-3-re)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42442
diff
changeset
|
331 "iparity_scatter" "iparity_suffix" "leadz" "maxval_prefix" |
93314c938a62
(f90-keywords-re, f90-keywords-level-3-re)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42442
diff
changeset
|
332 "maxval_scatter" "maxval_suffix" "minval_prefix" "minval_scatter" |
93314c938a62
(f90-keywords-re, f90-keywords-level-3-re)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42442
diff
changeset
|
333 "minval_suffix" "number_of_processors" "parity" |
93314c938a62
(f90-keywords-re, f90-keywords-level-3-re)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42442
diff
changeset
|
334 "parity_prefix" "parity_scatter" "parity_suffix" "popcnt" "poppar" |
93314c938a62
(f90-keywords-re, f90-keywords-level-3-re)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42442
diff
changeset
|
335 "processors_shape" "product_prefix" "product_scatter" |
93314c938a62
(f90-keywords-re, f90-keywords-level-3-re)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42442
diff
changeset
|
336 "product_suffix" "sum_prefix" "sum_scatter" "sum_suffix" |
45066
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
337 ;; Directives. |
44340
93314c938a62
(f90-keywords-re, f90-keywords-level-3-re)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42442
diff
changeset
|
338 "align" "distribute" "dynamic" "independent" "inherit" "processors" |
44997 | 339 "realign" "redistribute" "template" |
45066
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
340 ;; Keywords. |
44340
93314c938a62
(f90-keywords-re, f90-keywords-level-3-re)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42442
diff
changeset
|
341 "block" "cyclic" "extrinsic" "new" "onto" "pure" "with") 'words) |
13064 | 342 "Regexp for all HPF keywords, procedures and directives.") |
10612 | 343 |
45066
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
344 ;; Highlighting patterns. |
10612 | 345 |
13064 | 346 (defvar f90-font-lock-keywords-1 |
23997 | 347 (list |
45066
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
348 ;; Special highlighting of "module procedure". |
44340
93314c938a62
(f90-keywords-re, f90-keywords-level-3-re)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42442
diff
changeset
|
349 '("\\<\\(module[ \t]*procedure\\)\\>" (1 font-lock-keyword-face)) |
46796
342b3e8fd75c
(f90-font-lock-keywords-1): Simplify `type' value a little.
Glenn Morris <rgm@gnu.org>
parents:
46793
diff
changeset
|
350 ;; Highlight definition of derived type. |
342b3e8fd75c
(f90-font-lock-keywords-1): Simplify `type' value a little.
Glenn Morris <rgm@gnu.org>
parents:
46793
diff
changeset
|
351 '("\\<\\(\\(?:end[ \t]*\\)?type\\)\\>\\([^()\n]*::\\)?[ \t]*\\(\\sw+\\)" |
46793
3fcd9700f0fc
(f90-font-lock-keywords-1): Fix highlighting of `type' forms.
Glenn Morris <rgm@gnu.org>
parents:
45972
diff
changeset
|
352 (1 font-lock-keyword-face) (3 font-lock-function-name-face)) |
44340
93314c938a62
(f90-keywords-re, f90-keywords-level-3-re)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42442
diff
changeset
|
353 ;; Other functions and declarations. |
44997 | 354 '("\\<\\(\\(?:end[ \t]*\\)?\\(program\\|module\\|function\\|\ |
46793
3fcd9700f0fc
(f90-font-lock-keywords-1): Fix highlighting of `type' forms.
Glenn Morris <rgm@gnu.org>
parents:
45972
diff
changeset
|
355 subroutine\\)\\|use\\|call\\)\\>[ \t]*\\(\\sw+\\)?" |
44340
93314c938a62
(f90-keywords-re, f90-keywords-level-3-re)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42442
diff
changeset
|
356 (1 font-lock-keyword-face) (3 font-lock-function-name-face nil t)) |
15863
f11b2bfc1275
new version from Torbj?Einarsson.
Erik Naggum <erik@naggum.no>
parents:
15244
diff
changeset
|
357 "\\<\\(\\(end[ \t]*\\)?\\(interface\\|block[ \t]*data\\)\\|contains\\)\\>") |
13064 | 358 "This does fairly subdued highlighting of comments and function calls.") |
10612 | 359 |
13064 | 360 (defvar f90-font-lock-keywords-2 |
44997 | 361 (append |
362 f90-font-lock-keywords-1 | |
363 (list | |
45066
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
364 ;; Variable declarations (avoid the real function call). |
44997 | 365 '("^[ \t0-9]*\\(real\\|integer\\|c\\(haracter\\|omplex\\)\\|\ |
50647
5773e914b2ed
(f90-font-lock-keywords-2): Use override for
Glenn Morris <rgm@gnu.org>
parents:
50616
diff
changeset
|
366 logical\\|type[ \t]*(\\sw+)\\)\\(.*::\\|[ \t]*(.*)\\)?\\([^&!\n]*\\)" |
5773e914b2ed
(f90-font-lock-keywords-2): Use override for
Glenn Morris <rgm@gnu.org>
parents:
50616
diff
changeset
|
367 (1 font-lock-type-face t) (4 font-lock-variable-name-face t)) |
45066
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
368 ;; do, if, select, where, and forall constructs. |
44997 | 369 '("\\<\\(end[ \t]*\\(do\\|if\\|select\\|forall\\|where\\)\\)\\>\ |
370 \\([ \t]+\\(\\sw+\\)\\)?" | |
371 (1 font-lock-keyword-face) (3 font-lock-constant-face nil t)) | |
372 '("^[ \t0-9]*\\(\\(\\sw+\\)[ \t]*:[ \t]*\\)?\\(\\(if\\|\ | |
373 do\\([ \t]*while\\)?\\|select[ \t]*case\\|where\\|forall\\)\\)\\>" | |
374 (2 font-lock-constant-face nil t) (3 font-lock-keyword-face)) | |
45066
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
375 ;; Implicit declaration. |
44997 | 376 '("\\<\\(implicit\\)[ \t]*\\(real\\|integer\\|c\\(haracter\\|omplex\\)\ |
46793
3fcd9700f0fc
(f90-font-lock-keywords-1): Fix highlighting of `type' forms.
Glenn Morris <rgm@gnu.org>
parents:
45972
diff
changeset
|
377 \\|logical\\|type[ \t]*(\\sw+)\\|none\\)[ \t]*" |
44997 | 378 (1 font-lock-keyword-face) (2 font-lock-type-face)) |
379 '("\\<\\(namelist\\|common\\)[ \t]*\/\\(\\sw+\\)?\/" | |
380 (1 font-lock-keyword-face) (2 font-lock-constant-face nil t)) | |
381 "\\<else\\([ \t]*if\\|where\\)?\\>" | |
50647
5773e914b2ed
(f90-font-lock-keywords-2): Use override for
Glenn Morris <rgm@gnu.org>
parents:
50616
diff
changeset
|
382 '("\\(&\\)[ \t]*\\(!\\|$\\)" (1 font-lock-keyword-face)) |
44997 | 383 "\\<\\(then\\|continue\\|format\\|include\\|stop\\|return\\)\\>" |
384 '("\\<\\(exit\\|cycle\\)[ \t]*\\(\\sw+\\)?\\>" | |
385 (1 font-lock-keyword-face) (2 font-lock-constant-face nil t)) | |
386 '("\\<\\(case\\)[ \t]*\\(default\\|(\\)" . 1) | |
387 '("\\<\\(do\\|go *to\\)\\>[ \t]*\\([0-9]+\\)" | |
388 (1 font-lock-keyword-face) (2 font-lock-constant-face)) | |
45377
31cf809b5bc2
(f90-equal-symbols, f90-looking-at-do, f90-looking-at-select-case)
Glenn Morris <rgm@gnu.org>
parents:
45372
diff
changeset
|
389 ;; Line numbers (lines whose first character after number is letter). |
44997 | 390 '("^[ \t]*\\([0-9]+\\)[ \t]*[a-z]+" (1 font-lock-constant-face t)))) |
44866
582f083ed579
General tidy-up of commentary and some doc strings.
Glenn Morris <rgm@gnu.org>
parents:
44825
diff
changeset
|
391 "Highlights declarations, do-loops and other constructs.") |
10612 | 392 |
13064 | 393 (defvar f90-font-lock-keywords-3 |
394 (append f90-font-lock-keywords-2 | |
44997 | 395 (list |
396 f90-keywords-level-3-re | |
397 f90-operators-re | |
398 (list f90-procedures-re '(1 font-lock-keyword-face keep)) | |
45066
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
399 "\\<real\\>" ; avoid overwriting real defs |
44997 | 400 )) |
13064 | 401 "Highlights all F90 keywords and intrinsic procedures.") |
402 | |
403 (defvar f90-font-lock-keywords-4 | |
404 (append f90-font-lock-keywords-3 | |
44997 | 405 (list f90-hpf-keywords-re)) |
13064 | 406 "Highlights all F90 and HPF keywords.") |
407 | |
408 (defvar f90-font-lock-keywords | |
44866
582f083ed579
General tidy-up of commentary and some doc strings.
Glenn Morris <rgm@gnu.org>
parents:
44825
diff
changeset
|
409 f90-font-lock-keywords-2 |
46993
c4e4658185e3
eval-when-compile a few defvars to quieten the byte-compiler.
Glenn Morris <rgm@gnu.org>
parents:
46796
diff
changeset
|
410 "*Default expressions to highlight in F90 mode. |
c4e4658185e3
eval-when-compile a few defvars to quieten the byte-compiler.
Glenn Morris <rgm@gnu.org>
parents:
46796
diff
changeset
|
411 Can be overridden by the value of `font-lock-maximum-decoration'.") |
10612 | 412 |
45066
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
413 |
45351
bd2bdf90e286
(f90-mode-syntax-table, f90-mode-map): Do the initialization in the defvar.
Glenn Morris <rgm@gnu.org>
parents:
45076
diff
changeset
|
414 (defvar f90-mode-syntax-table |
bd2bdf90e286
(f90-mode-syntax-table, f90-mode-map): Do the initialization in the defvar.
Glenn Morris <rgm@gnu.org>
parents:
45076
diff
changeset
|
415 (let ((table (make-syntax-table))) |
bd2bdf90e286
(f90-mode-syntax-table, f90-mode-map): Do the initialization in the defvar.
Glenn Morris <rgm@gnu.org>
parents:
45076
diff
changeset
|
416 (modify-syntax-entry ?\! "<" table) ; begin comment |
bd2bdf90e286
(f90-mode-syntax-table, f90-mode-map): Do the initialization in the defvar.
Glenn Morris <rgm@gnu.org>
parents:
45076
diff
changeset
|
417 (modify-syntax-entry ?\n ">" table) ; end comment |
bd2bdf90e286
(f90-mode-syntax-table, f90-mode-map): Do the initialization in the defvar.
Glenn Morris <rgm@gnu.org>
parents:
45076
diff
changeset
|
418 (modify-syntax-entry ?_ "w" table) ; underscore in names |
bd2bdf90e286
(f90-mode-syntax-table, f90-mode-map): Do the initialization in the defvar.
Glenn Morris <rgm@gnu.org>
parents:
45076
diff
changeset
|
419 (modify-syntax-entry ?\' "\"" table) ; string quote |
bd2bdf90e286
(f90-mode-syntax-table, f90-mode-map): Do the initialization in the defvar.
Glenn Morris <rgm@gnu.org>
parents:
45076
diff
changeset
|
420 (modify-syntax-entry ?\" "\"" table) ; string quote |
bd2bdf90e286
(f90-mode-syntax-table, f90-mode-map): Do the initialization in the defvar.
Glenn Morris <rgm@gnu.org>
parents:
45076
diff
changeset
|
421 (modify-syntax-entry ?\` "w" table) ; for abbrevs |
bd2bdf90e286
(f90-mode-syntax-table, f90-mode-map): Do the initialization in the defvar.
Glenn Morris <rgm@gnu.org>
parents:
45076
diff
changeset
|
422 (modify-syntax-entry ?\r " " table) ; return is whitespace |
bd2bdf90e286
(f90-mode-syntax-table, f90-mode-map): Do the initialization in the defvar.
Glenn Morris <rgm@gnu.org>
parents:
45076
diff
changeset
|
423 (modify-syntax-entry ?+ "." table) ; punctuation |
bd2bdf90e286
(f90-mode-syntax-table, f90-mode-map): Do the initialization in the defvar.
Glenn Morris <rgm@gnu.org>
parents:
45076
diff
changeset
|
424 (modify-syntax-entry ?- "." table) |
bd2bdf90e286
(f90-mode-syntax-table, f90-mode-map): Do the initialization in the defvar.
Glenn Morris <rgm@gnu.org>
parents:
45076
diff
changeset
|
425 (modify-syntax-entry ?= "." table) |
bd2bdf90e286
(f90-mode-syntax-table, f90-mode-map): Do the initialization in the defvar.
Glenn Morris <rgm@gnu.org>
parents:
45076
diff
changeset
|
426 (modify-syntax-entry ?* "." table) |
bd2bdf90e286
(f90-mode-syntax-table, f90-mode-map): Do the initialization in the defvar.
Glenn Morris <rgm@gnu.org>
parents:
45076
diff
changeset
|
427 (modify-syntax-entry ?/ "." table) |
bd2bdf90e286
(f90-mode-syntax-table, f90-mode-map): Do the initialization in the defvar.
Glenn Morris <rgm@gnu.org>
parents:
45076
diff
changeset
|
428 (modify-syntax-entry ?\\ "\\" table) ; escape chars |
bd2bdf90e286
(f90-mode-syntax-table, f90-mode-map): Do the initialization in the defvar.
Glenn Morris <rgm@gnu.org>
parents:
45076
diff
changeset
|
429 table) |
bd2bdf90e286
(f90-mode-syntax-table, f90-mode-map): Do the initialization in the defvar.
Glenn Morris <rgm@gnu.org>
parents:
45076
diff
changeset
|
430 "Syntax table used in F90 mode.") |
10612 | 431 |
45351
bd2bdf90e286
(f90-mode-syntax-table, f90-mode-map): Do the initialization in the defvar.
Glenn Morris <rgm@gnu.org>
parents:
45076
diff
changeset
|
432 (defvar f90-mode-map |
bd2bdf90e286
(f90-mode-syntax-table, f90-mode-map): Do the initialization in the defvar.
Glenn Morris <rgm@gnu.org>
parents:
45076
diff
changeset
|
433 (let ((map (make-sparse-keymap))) |
bd2bdf90e286
(f90-mode-syntax-table, f90-mode-map): Do the initialization in the defvar.
Glenn Morris <rgm@gnu.org>
parents:
45076
diff
changeset
|
434 (define-key map "`" 'f90-abbrev-start) |
bd2bdf90e286
(f90-mode-syntax-table, f90-mode-map): Do the initialization in the defvar.
Glenn Morris <rgm@gnu.org>
parents:
45076
diff
changeset
|
435 (define-key map "\C-c;" 'f90-comment-region) |
bd2bdf90e286
(f90-mode-syntax-table, f90-mode-map): Do the initialization in the defvar.
Glenn Morris <rgm@gnu.org>
parents:
45076
diff
changeset
|
436 (define-key map "\C-\M-a" 'f90-beginning-of-subprogram) |
bd2bdf90e286
(f90-mode-syntax-table, f90-mode-map): Do the initialization in the defvar.
Glenn Morris <rgm@gnu.org>
parents:
45076
diff
changeset
|
437 (define-key map "\C-\M-e" 'f90-end-of-subprogram) |
bd2bdf90e286
(f90-mode-syntax-table, f90-mode-map): Do the initialization in the defvar.
Glenn Morris <rgm@gnu.org>
parents:
45076
diff
changeset
|
438 (define-key map "\C-\M-h" 'f90-mark-subprogram) |
45497
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
439 (define-key map "\C-\M-n" 'f90-end-of-block) |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
440 (define-key map "\C-\M-p" 'f90-beginning-of-block) |
45351
bd2bdf90e286
(f90-mode-syntax-table, f90-mode-map): Do the initialization in the defvar.
Glenn Morris <rgm@gnu.org>
parents:
45076
diff
changeset
|
441 (define-key map "\C-\M-q" 'f90-indent-subprogram) |
bd2bdf90e286
(f90-mode-syntax-table, f90-mode-map): Do the initialization in the defvar.
Glenn Morris <rgm@gnu.org>
parents:
45076
diff
changeset
|
442 (define-key map "\C-j" 'f90-indent-new-line) ; LFD equals C-j |
bd2bdf90e286
(f90-mode-syntax-table, f90-mode-map): Do the initialization in the defvar.
Glenn Morris <rgm@gnu.org>
parents:
45076
diff
changeset
|
443 (define-key map "\r" 'newline) |
bd2bdf90e286
(f90-mode-syntax-table, f90-mode-map): Do the initialization in the defvar.
Glenn Morris <rgm@gnu.org>
parents:
45076
diff
changeset
|
444 (define-key map "\C-c\r" 'f90-break-line) |
bd2bdf90e286
(f90-mode-syntax-table, f90-mode-map): Do the initialization in the defvar.
Glenn Morris <rgm@gnu.org>
parents:
45076
diff
changeset
|
445 ;;; (define-key map [M-return] 'f90-break-line) |
45526
fcfb7bc58212
(f90-previous-block, f90-next-block): New names (and slightly changed
Glenn Morris <rgm@gnu.org>
parents:
45497
diff
changeset
|
446 (define-key map "\C-c\C-a" 'f90-previous-block) |
fcfb7bc58212
(f90-previous-block, f90-next-block): New names (and slightly changed
Glenn Morris <rgm@gnu.org>
parents:
45497
diff
changeset
|
447 (define-key map "\C-c\C-e" 'f90-next-block) |
45351
bd2bdf90e286
(f90-mode-syntax-table, f90-mode-map): Do the initialization in the defvar.
Glenn Morris <rgm@gnu.org>
parents:
45076
diff
changeset
|
448 (define-key map "\C-c\C-d" 'f90-join-lines) |
bd2bdf90e286
(f90-mode-syntax-table, f90-mode-map): Do the initialization in the defvar.
Glenn Morris <rgm@gnu.org>
parents:
45076
diff
changeset
|
449 (define-key map "\C-c\C-f" 'f90-fill-region) |
bd2bdf90e286
(f90-mode-syntax-table, f90-mode-map): Do the initialization in the defvar.
Glenn Morris <rgm@gnu.org>
parents:
45076
diff
changeset
|
450 (define-key map "\C-c\C-p" 'f90-previous-statement) |
bd2bdf90e286
(f90-mode-syntax-table, f90-mode-map): Do the initialization in the defvar.
Glenn Morris <rgm@gnu.org>
parents:
45076
diff
changeset
|
451 (define-key map "\C-c\C-n" 'f90-next-statement) |
bd2bdf90e286
(f90-mode-syntax-table, f90-mode-map): Do the initialization in the defvar.
Glenn Morris <rgm@gnu.org>
parents:
45076
diff
changeset
|
452 (define-key map "\C-c\C-w" 'f90-insert-end) |
bd2bdf90e286
(f90-mode-syntax-table, f90-mode-map): Do the initialization in the defvar.
Glenn Morris <rgm@gnu.org>
parents:
45076
diff
changeset
|
453 (define-key map "\t" 'f90-indent-line) |
bd2bdf90e286
(f90-mode-syntax-table, f90-mode-map): Do the initialization in the defvar.
Glenn Morris <rgm@gnu.org>
parents:
45076
diff
changeset
|
454 (define-key map "," 'f90-electric-insert) |
bd2bdf90e286
(f90-mode-syntax-table, f90-mode-map): Do the initialization in the defvar.
Glenn Morris <rgm@gnu.org>
parents:
45076
diff
changeset
|
455 (define-key map "+" 'f90-electric-insert) |
bd2bdf90e286
(f90-mode-syntax-table, f90-mode-map): Do the initialization in the defvar.
Glenn Morris <rgm@gnu.org>
parents:
45076
diff
changeset
|
456 (define-key map "-" 'f90-electric-insert) |
bd2bdf90e286
(f90-mode-syntax-table, f90-mode-map): Do the initialization in the defvar.
Glenn Morris <rgm@gnu.org>
parents:
45076
diff
changeset
|
457 (define-key map "*" 'f90-electric-insert) |
bd2bdf90e286
(f90-mode-syntax-table, f90-mode-map): Do the initialization in the defvar.
Glenn Morris <rgm@gnu.org>
parents:
45076
diff
changeset
|
458 (define-key map "/" 'f90-electric-insert) |
50597
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
459 |
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
460 (easy-menu-define f90-menu map "Menu for F90 mode." |
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
461 `("F90" |
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
462 ("Customization" |
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
463 ,(custom-menu-create 'f90) |
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
464 ["Set" Custom-set t] |
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
465 ["Save" Custom-save t] |
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
466 ["Reset to Current" Custom-reset-current t] |
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
467 ["Reset to Saved" Custom-reset-saved t] |
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
468 ["Reset to Standard Settings" Custom-reset-standard t] |
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
469 ) |
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
470 "--" |
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
471 ["Indent Subprogram" f90-indent-subprogram t] |
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
472 ["Mark Subprogram" f90-mark-subprogram t] |
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
473 ["Beginning of Subprogram" f90-beginning-of-subprogram t] |
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
474 ["End of Subprogram" f90-end-of-subprogram t] |
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
475 "--" |
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
476 ["(Un)Comment Region" f90-comment-region mark-active] |
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
477 ["Indent Region" f90-indent-region mark-active] |
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
478 ["Fill Region" f90-fill-region mark-active] |
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
479 "--" |
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
480 ["Break Line at Point" f90-break-line t] |
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
481 ["Join with Previous Line" f90-join-lines t] |
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
482 ["Insert Block End" f90-insert-end t] |
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
483 "--" |
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
484 ("Highlighting" |
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
485 ["Toggle font-lock-mode" font-lock-mode :selected font-lock-mode |
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
486 :style toggle] |
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
487 "--" |
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
488 ["Light highlighting (level 1)" f90-font-lock-1 t] |
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
489 ["Moderate highlighting (level 2)" f90-font-lock-2 t] |
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
490 ["Heavy highlighting (level 3)" f90-font-lock-3 t] |
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
491 ["Maximum highlighting (level 4)" f90-font-lock-4 t] |
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
492 ) |
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
493 ("Change Keyword Case" |
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
494 ["Upcase Keywords (buffer)" f90-upcase-keywords t] |
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
495 ["Capitalize Keywords (buffer)" f90-capitalize-keywords t] |
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
496 ["Downcase Keywords (buffer)" f90-downcase-keywords t] |
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
497 "--" |
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
498 ["Upcase Keywords (region)" f90-upcase-region-keywords |
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
499 mark-active] |
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
500 ["Capitalize Keywords (region)" f90-capitalize-region-keywords |
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
501 mark-active] |
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
502 ["Downcase Keywords (region)" f90-downcase-region-keywords |
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
503 mark-active] |
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
504 ) |
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
505 "--" |
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
506 ["Toggle auto-fill" auto-fill-mode :selected auto-fill-function |
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
507 :style toggle] |
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
508 ["Toggle abbrev-mode" abbrev-mode :selected abbrev-mode |
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
509 :style toggle] |
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
510 ["Add imenu Menu" f90-add-imenu-menu |
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
511 :active (not (lookup-key (current-local-map) [menu-bar index])) |
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
512 :included (fboundp 'imenu-add-to-menubar)])) |
45351
bd2bdf90e286
(f90-mode-syntax-table, f90-mode-map): Do the initialization in the defvar.
Glenn Morris <rgm@gnu.org>
parents:
45076
diff
changeset
|
513 map) |
10612 | 514 "Keymap used in F90 mode.") |
13064 | 515 |
45351
bd2bdf90e286
(f90-mode-syntax-table, f90-mode-map): Do the initialization in the defvar.
Glenn Morris <rgm@gnu.org>
parents:
45076
diff
changeset
|
516 |
47010
dd3a10c87fe8
(f90-xemacs-flag, f90-xemacs-menu, f90-menu-bar-menu, f90-change-case-menu)
Glenn Morris <rgm@gnu.org>
parents:
46993
diff
changeset
|
517 (defun f90-font-lock-1 () |
dd3a10c87fe8
(f90-xemacs-flag, f90-xemacs-menu, f90-menu-bar-menu, f90-change-case-menu)
Glenn Morris <rgm@gnu.org>
parents:
46993
diff
changeset
|
518 "Set `font-lock-keywords' to `f90-font-lock-keywords-1'." |
dd3a10c87fe8
(f90-xemacs-flag, f90-xemacs-menu, f90-menu-bar-menu, f90-change-case-menu)
Glenn Morris <rgm@gnu.org>
parents:
46993
diff
changeset
|
519 (interactive) |
dd3a10c87fe8
(f90-xemacs-flag, f90-xemacs-menu, f90-menu-bar-menu, f90-change-case-menu)
Glenn Morris <rgm@gnu.org>
parents:
46993
diff
changeset
|
520 (font-lock-mode 1) |
dd3a10c87fe8
(f90-xemacs-flag, f90-xemacs-menu, f90-menu-bar-menu, f90-change-case-menu)
Glenn Morris <rgm@gnu.org>
parents:
46993
diff
changeset
|
521 (setq font-lock-keywords f90-font-lock-keywords-1) |
dd3a10c87fe8
(f90-xemacs-flag, f90-xemacs-menu, f90-menu-bar-menu, f90-change-case-menu)
Glenn Morris <rgm@gnu.org>
parents:
46993
diff
changeset
|
522 (font-lock-fontify-buffer)) |
44997 | 523 |
47010
dd3a10c87fe8
(f90-xemacs-flag, f90-xemacs-menu, f90-menu-bar-menu, f90-change-case-menu)
Glenn Morris <rgm@gnu.org>
parents:
46993
diff
changeset
|
524 (defun f90-font-lock-2 () |
dd3a10c87fe8
(f90-xemacs-flag, f90-xemacs-menu, f90-menu-bar-menu, f90-change-case-menu)
Glenn Morris <rgm@gnu.org>
parents:
46993
diff
changeset
|
525 "Set `font-lock-keywords' to `f90-font-lock-keywords-2'." |
dd3a10c87fe8
(f90-xemacs-flag, f90-xemacs-menu, f90-menu-bar-menu, f90-change-case-menu)
Glenn Morris <rgm@gnu.org>
parents:
46993
diff
changeset
|
526 (interactive) |
dd3a10c87fe8
(f90-xemacs-flag, f90-xemacs-menu, f90-menu-bar-menu, f90-change-case-menu)
Glenn Morris <rgm@gnu.org>
parents:
46993
diff
changeset
|
527 (font-lock-mode 1) |
dd3a10c87fe8
(f90-xemacs-flag, f90-xemacs-menu, f90-menu-bar-menu, f90-change-case-menu)
Glenn Morris <rgm@gnu.org>
parents:
46993
diff
changeset
|
528 (setq font-lock-keywords f90-font-lock-keywords-2) |
dd3a10c87fe8
(f90-xemacs-flag, f90-xemacs-menu, f90-menu-bar-menu, f90-change-case-menu)
Glenn Morris <rgm@gnu.org>
parents:
46993
diff
changeset
|
529 (font-lock-fontify-buffer)) |
44997 | 530 |
47010
dd3a10c87fe8
(f90-xemacs-flag, f90-xemacs-menu, f90-menu-bar-menu, f90-change-case-menu)
Glenn Morris <rgm@gnu.org>
parents:
46993
diff
changeset
|
531 (defun f90-font-lock-3 () |
dd3a10c87fe8
(f90-xemacs-flag, f90-xemacs-menu, f90-menu-bar-menu, f90-change-case-menu)
Glenn Morris <rgm@gnu.org>
parents:
46993
diff
changeset
|
532 "Set `font-lock-keywords' to `f90-font-lock-keywords-3'." |
dd3a10c87fe8
(f90-xemacs-flag, f90-xemacs-menu, f90-menu-bar-menu, f90-change-case-menu)
Glenn Morris <rgm@gnu.org>
parents:
46993
diff
changeset
|
533 (interactive) |
dd3a10c87fe8
(f90-xemacs-flag, f90-xemacs-menu, f90-menu-bar-menu, f90-change-case-menu)
Glenn Morris <rgm@gnu.org>
parents:
46993
diff
changeset
|
534 (font-lock-mode 1) |
dd3a10c87fe8
(f90-xemacs-flag, f90-xemacs-menu, f90-menu-bar-menu, f90-change-case-menu)
Glenn Morris <rgm@gnu.org>
parents:
46993
diff
changeset
|
535 (setq font-lock-keywords f90-font-lock-keywords-3) |
dd3a10c87fe8
(f90-xemacs-flag, f90-xemacs-menu, f90-menu-bar-menu, f90-change-case-menu)
Glenn Morris <rgm@gnu.org>
parents:
46993
diff
changeset
|
536 (font-lock-fontify-buffer)) |
45066
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
537 |
47010
dd3a10c87fe8
(f90-xemacs-flag, f90-xemacs-menu, f90-menu-bar-menu, f90-change-case-menu)
Glenn Morris <rgm@gnu.org>
parents:
46993
diff
changeset
|
538 (defun f90-font-lock-4 () |
dd3a10c87fe8
(f90-xemacs-flag, f90-xemacs-menu, f90-menu-bar-menu, f90-change-case-menu)
Glenn Morris <rgm@gnu.org>
parents:
46993
diff
changeset
|
539 "Set `font-lock-keywords' to `f90-font-lock-keywords-4'." |
dd3a10c87fe8
(f90-xemacs-flag, f90-xemacs-menu, f90-menu-bar-menu, f90-change-case-menu)
Glenn Morris <rgm@gnu.org>
parents:
46993
diff
changeset
|
540 (interactive) |
dd3a10c87fe8
(f90-xemacs-flag, f90-xemacs-menu, f90-menu-bar-menu, f90-change-case-menu)
Glenn Morris <rgm@gnu.org>
parents:
46993
diff
changeset
|
541 (font-lock-mode 1) |
dd3a10c87fe8
(f90-xemacs-flag, f90-xemacs-menu, f90-menu-bar-menu, f90-change-case-menu)
Glenn Morris <rgm@gnu.org>
parents:
46993
diff
changeset
|
542 (setq font-lock-keywords f90-font-lock-keywords-4) |
dd3a10c87fe8
(f90-xemacs-flag, f90-xemacs-menu, f90-menu-bar-menu, f90-change-case-menu)
Glenn Morris <rgm@gnu.org>
parents:
46993
diff
changeset
|
543 (font-lock-fontify-buffer)) |
15863
f11b2bfc1275
new version from Torbj?Einarsson.
Erik Naggum <erik@naggum.no>
parents:
15244
diff
changeset
|
544 |
47010
dd3a10c87fe8
(f90-xemacs-flag, f90-xemacs-menu, f90-menu-bar-menu, f90-change-case-menu)
Glenn Morris <rgm@gnu.org>
parents:
46993
diff
changeset
|
545 |
13064 | 546 ;; Regexps for finding program structures. |
44997 | 547 (defconst f90-blocks-re |
45066
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
548 (concat "\\(block[ \t]*data\\|" |
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
549 (regexp-opt '("do" "if" "interface" "function" "module" "program" |
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
550 "select" "subroutine" "type" "where" "forall")) |
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
551 "\\)\\>") |
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
552 "Regexp potentially indicating a \"block\" of F90 code.") |
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
553 |
44997 | 554 (defconst f90-program-block-re |
45066
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
555 (regexp-opt '("program" "module" "subroutine" "function") 'paren) |
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
556 "Regexp used to locate the start/end of a \"subprogram\".") |
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
557 |
44997 | 558 (defconst f90-else-like-re |
45066
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
559 "\\(else\\([ \t]*if\\|where\\)?\\|case[ \t]*\\(default\\|(\\)\\)" |
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
560 "Regexp matching an ELSE IF, ELSEWHERE, CASE statement.") |
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
561 |
44997 | 562 (defconst f90-end-if-re |
45066
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
563 (concat "end[ \t]*" |
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
564 (regexp-opt '("if" "select" "where" "forall") 'paren) |
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
565 "\\>") |
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
566 "Regexp matching the end of an IF, SELECT, WHERE, FORALL block.") |
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
567 |
44997 | 568 (defconst f90-end-type-re |
45066
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
569 "end[ \t]*\\(type\\|interface\\|block[ \t]*data\\)\\>" |
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
570 "Regexp matching the end of a TYPE, INTERFACE, BLOCK DATA section.") |
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
571 |
13064 | 572 (defconst f90-type-def-re |
46796
342b3e8fd75c
(f90-font-lock-keywords-1): Simplify `type' value a little.
Glenn Morris <rgm@gnu.org>
parents:
46793
diff
changeset
|
573 "\\<\\(type\\)\\>\\(?:[^()\n]*::\\)?[ \t]*\\(\\sw+\\)" |
45912 | 574 "Regexp matching the definition of a derived type.") |
45066
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
575 |
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
576 (defconst f90-no-break-re |
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
577 (regexp-opt '("**" "//" "=>") 'paren) |
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
578 "Regexp specifying where not to break lines when filling.") |
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
579 |
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
580 (defvar f90-cache-position nil |
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
581 "Temporary position used to speed up region operations.") |
10612 | 582 (make-variable-buffer-local 'f90-cache-position) |
45066
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
583 |
15863
f11b2bfc1275
new version from Torbj?Einarsson.
Erik Naggum <erik@naggum.no>
parents:
15244
diff
changeset
|
584 |
45066
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
585 ;; Imenu support. |
13064 | 586 (defvar f90-imenu-generic-expression |
15863
f11b2bfc1275
new version from Torbj?Einarsson.
Erik Naggum <erik@naggum.no>
parents:
15244
diff
changeset
|
587 (let ((good-char "[^!\"\&\n \t]") (not-e "[^e!\n\"\& \t]") |
f11b2bfc1275
new version from Torbj?Einarsson.
Erik Naggum <erik@naggum.no>
parents:
15244
diff
changeset
|
588 (not-n "[^n!\n\"\& \t]") (not-d "[^d!\n\"\& \t]")) |
f11b2bfc1275
new version from Torbj?Einarsson.
Erik Naggum <erik@naggum.no>
parents:
15244
diff
changeset
|
589 (list |
f11b2bfc1275
new version from Torbj?Einarsson.
Erik Naggum <erik@naggum.no>
parents:
15244
diff
changeset
|
590 '(nil "^[ \t0-9]*program[ \t]+\\(\\sw+\\)" 1) |
f11b2bfc1275
new version from Torbj?Einarsson.
Erik Naggum <erik@naggum.no>
parents:
15244
diff
changeset
|
591 '("Modules" "^[ \t0-9]*module[ \t]+\\(\\sw+\\)[ \t]*\\(!\\|$\\)" 1) |
f11b2bfc1275
new version from Torbj?Einarsson.
Erik Naggum <erik@naggum.no>
parents:
15244
diff
changeset
|
592 '("Types" "^[ \t0-9]*type[ \t]+\\(\\sw+\\)" 1) |
f11b2bfc1275
new version from Torbj?Einarsson.
Erik Naggum <erik@naggum.no>
parents:
15244
diff
changeset
|
593 (list |
44997 | 594 "Procedures" |
15863
f11b2bfc1275
new version from Torbj?Einarsson.
Erik Naggum <erik@naggum.no>
parents:
15244
diff
changeset
|
595 (concat |
f11b2bfc1275
new version from Torbj?Einarsson.
Erik Naggum <erik@naggum.no>
parents:
15244
diff
changeset
|
596 "^[ \t0-9]*" |
f11b2bfc1275
new version from Torbj?Einarsson.
Erik Naggum <erik@naggum.no>
parents:
15244
diff
changeset
|
597 "\\(" |
45066
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
598 ;; At least three non-space characters before function/subroutine. |
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
599 ;; Check that the last three non-space characters do not spell E N D. |
15863
f11b2bfc1275
new version from Torbj?Einarsson.
Erik Naggum <erik@naggum.no>
parents:
15244
diff
changeset
|
600 "[^!\"\&\n]*\\(" |
f11b2bfc1275
new version from Torbj?Einarsson.
Erik Naggum <erik@naggum.no>
parents:
15244
diff
changeset
|
601 not-e good-char good-char "\\|" |
f11b2bfc1275
new version from Torbj?Einarsson.
Erik Naggum <erik@naggum.no>
parents:
15244
diff
changeset
|
602 good-char not-n good-char "\\|" |
f11b2bfc1275
new version from Torbj?Einarsson.
Erik Naggum <erik@naggum.no>
parents:
15244
diff
changeset
|
603 good-char good-char not-d "\\)" |
f11b2bfc1275
new version from Torbj?Einarsson.
Erik Naggum <erik@naggum.no>
parents:
15244
diff
changeset
|
604 "\\|" |
45066
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
605 ;; Less than three non-space characters before function/subroutine. |
15863
f11b2bfc1275
new version from Torbj?Einarsson.
Erik Naggum <erik@naggum.no>
parents:
15244
diff
changeset
|
606 good-char "?" good-char "?" |
f11b2bfc1275
new version from Torbj?Einarsson.
Erik Naggum <erik@naggum.no>
parents:
15244
diff
changeset
|
607 "\\)" |
f11b2bfc1275
new version from Torbj?Einarsson.
Erik Naggum <erik@naggum.no>
parents:
15244
diff
changeset
|
608 "[ \t]*\\(function\\|subroutine\\)[ \t]+\\(\\sw+\\)") |
44997 | 609 4))) |
50597
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
610 "Value for `imenu-generic-expression' in F90 mode.") |
13064 | 611 |
15863
f11b2bfc1275
new version from Torbj?Einarsson.
Erik Naggum <erik@naggum.no>
parents:
15244
diff
changeset
|
612 (defun f90-add-imenu-menu () |
44866
582f083ed579
General tidy-up of commentary and some doc strings.
Glenn Morris <rgm@gnu.org>
parents:
44825
diff
changeset
|
613 "Add an imenu menu to the menubar." |
15863
f11b2bfc1275
new version from Torbj?Einarsson.
Erik Naggum <erik@naggum.no>
parents:
15244
diff
changeset
|
614 (interactive) |
47178
7a1530aeef3f
Remove (eval-when-compile) for free variables.
Glenn Morris <rgm@gnu.org>
parents:
47012
diff
changeset
|
615 (if (lookup-key (current-local-map) [menu-bar index]) |
44944
dbacf99cccc4
Minor reorganization of some code.
Glenn Morris <rgm@gnu.org>
parents:
44943
diff
changeset
|
616 (message "%s" "F90-imenu already exists.") |
dbacf99cccc4
Minor reorganization of some code.
Glenn Morris <rgm@gnu.org>
parents:
44943
diff
changeset
|
617 (imenu-add-to-menubar "F90-imenu") |
47012
978b0db16be0
(f90-imenu-flag): Deleted - use imenu--index-alist instead.
Glenn Morris <rgm@gnu.org>
parents:
47010
diff
changeset
|
618 (redraw-frame (selected-frame)))) |
15863
f11b2bfc1275
new version from Torbj?Einarsson.
Erik Naggum <erik@naggum.no>
parents:
15244
diff
changeset
|
619 |
10612 | 620 |
45066
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
621 ;; Abbrevs have generally two letters, except standard types `c, `i, `r, `t. |
45355
d1b710ae9184
(f90-mode-abbrev-table): Initialize in the defvar.
Glenn Morris <rgm@gnu.org>
parents:
45353
diff
changeset
|
622 (defvar f90-mode-abbrev-table |
d1b710ae9184
(f90-mode-abbrev-table): Initialize in the defvar.
Glenn Morris <rgm@gnu.org>
parents:
45353
diff
changeset
|
623 (let (abbrevs-changed) |
46993
c4e4658185e3
eval-when-compile a few defvars to quieten the byte-compiler.
Glenn Morris <rgm@gnu.org>
parents:
46796
diff
changeset
|
624 (define-abbrev-table 'f90-mode-abbrev-table nil) |
c4e4658185e3
eval-when-compile a few defvars to quieten the byte-compiler.
Glenn Morris <rgm@gnu.org>
parents:
46796
diff
changeset
|
625 ;; Use the 6th arg (SYSTEM-FLAG) of define-abbrev if possible. |
c4e4658185e3
eval-when-compile a few defvars to quieten the byte-compiler.
Glenn Morris <rgm@gnu.org>
parents:
46796
diff
changeset
|
626 ;; A little baroque to quieten the byte-compiler. |
c4e4658185e3
eval-when-compile a few defvars to quieten the byte-compiler.
Glenn Morris <rgm@gnu.org>
parents:
46796
diff
changeset
|
627 (mapcar |
c4e4658185e3
eval-when-compile a few defvars to quieten the byte-compiler.
Glenn Morris <rgm@gnu.org>
parents:
46796
diff
changeset
|
628 (function (lambda (element) |
c4e4658185e3
eval-when-compile a few defvars to quieten the byte-compiler.
Glenn Morris <rgm@gnu.org>
parents:
46796
diff
changeset
|
629 (condition-case nil |
c4e4658185e3
eval-when-compile a few defvars to quieten the byte-compiler.
Glenn Morris <rgm@gnu.org>
parents:
46796
diff
changeset
|
630 (apply 'define-abbrev f90-mode-abbrev-table |
c4e4658185e3
eval-when-compile a few defvars to quieten the byte-compiler.
Glenn Morris <rgm@gnu.org>
parents:
46796
diff
changeset
|
631 (append element '(nil 0 t))) |
c4e4658185e3
eval-when-compile a few defvars to quieten the byte-compiler.
Glenn Morris <rgm@gnu.org>
parents:
46796
diff
changeset
|
632 (wrong-number-of-arguments |
c4e4658185e3
eval-when-compile a few defvars to quieten the byte-compiler.
Glenn Morris <rgm@gnu.org>
parents:
46796
diff
changeset
|
633 (apply 'define-abbrev f90-mode-abbrev-table |
c4e4658185e3
eval-when-compile a few defvars to quieten the byte-compiler.
Glenn Morris <rgm@gnu.org>
parents:
46796
diff
changeset
|
634 (append element '(nil 0))))))) |
c4e4658185e3
eval-when-compile a few defvars to quieten the byte-compiler.
Glenn Morris <rgm@gnu.org>
parents:
46796
diff
changeset
|
635 '(("`al" "allocate" ) |
c4e4658185e3
eval-when-compile a few defvars to quieten the byte-compiler.
Glenn Morris <rgm@gnu.org>
parents:
46796
diff
changeset
|
636 ("`ab" "allocatable" ) |
c4e4658185e3
eval-when-compile a few defvars to quieten the byte-compiler.
Glenn Morris <rgm@gnu.org>
parents:
46796
diff
changeset
|
637 ("`as" "assignment" ) |
c4e4658185e3
eval-when-compile a few defvars to quieten the byte-compiler.
Glenn Morris <rgm@gnu.org>
parents:
46796
diff
changeset
|
638 ("`ba" "backspace" ) |
c4e4658185e3
eval-when-compile a few defvars to quieten the byte-compiler.
Glenn Morris <rgm@gnu.org>
parents:
46796
diff
changeset
|
639 ("`bd" "block data" ) |
c4e4658185e3
eval-when-compile a few defvars to quieten the byte-compiler.
Glenn Morris <rgm@gnu.org>
parents:
46796
diff
changeset
|
640 ("`c" "character" ) |
c4e4658185e3
eval-when-compile a few defvars to quieten the byte-compiler.
Glenn Morris <rgm@gnu.org>
parents:
46796
diff
changeset
|
641 ("`cl" "close" ) |
c4e4658185e3
eval-when-compile a few defvars to quieten the byte-compiler.
Glenn Morris <rgm@gnu.org>
parents:
46796
diff
changeset
|
642 ("`cm" "common" ) |
c4e4658185e3
eval-when-compile a few defvars to quieten the byte-compiler.
Glenn Morris <rgm@gnu.org>
parents:
46796
diff
changeset
|
643 ("`cx" "complex" ) |
c4e4658185e3
eval-when-compile a few defvars to quieten the byte-compiler.
Glenn Morris <rgm@gnu.org>
parents:
46796
diff
changeset
|
644 ("`cn" "contains" ) |
c4e4658185e3
eval-when-compile a few defvars to quieten the byte-compiler.
Glenn Morris <rgm@gnu.org>
parents:
46796
diff
changeset
|
645 ("`cy" "cycle" ) |
c4e4658185e3
eval-when-compile a few defvars to quieten the byte-compiler.
Glenn Morris <rgm@gnu.org>
parents:
46796
diff
changeset
|
646 ("`de" "deallocate" ) |
c4e4658185e3
eval-when-compile a few defvars to quieten the byte-compiler.
Glenn Morris <rgm@gnu.org>
parents:
46796
diff
changeset
|
647 ("`df" "define" ) |
c4e4658185e3
eval-when-compile a few defvars to quieten the byte-compiler.
Glenn Morris <rgm@gnu.org>
parents:
46796
diff
changeset
|
648 ("`di" "dimension" ) |
c4e4658185e3
eval-when-compile a few defvars to quieten the byte-compiler.
Glenn Morris <rgm@gnu.org>
parents:
46796
diff
changeset
|
649 ("`dw" "do while" ) |
c4e4658185e3
eval-when-compile a few defvars to quieten the byte-compiler.
Glenn Morris <rgm@gnu.org>
parents:
46796
diff
changeset
|
650 ("`el" "else" ) |
c4e4658185e3
eval-when-compile a few defvars to quieten the byte-compiler.
Glenn Morris <rgm@gnu.org>
parents:
46796
diff
changeset
|
651 ("`eli" "else if" ) |
c4e4658185e3
eval-when-compile a few defvars to quieten the byte-compiler.
Glenn Morris <rgm@gnu.org>
parents:
46796
diff
changeset
|
652 ("`elw" "elsewhere" ) |
c4e4658185e3
eval-when-compile a few defvars to quieten the byte-compiler.
Glenn Morris <rgm@gnu.org>
parents:
46796
diff
changeset
|
653 ("`eq" "equivalence" ) |
c4e4658185e3
eval-when-compile a few defvars to quieten the byte-compiler.
Glenn Morris <rgm@gnu.org>
parents:
46796
diff
changeset
|
654 ("`ex" "external" ) |
c4e4658185e3
eval-when-compile a few defvars to quieten the byte-compiler.
Glenn Morris <rgm@gnu.org>
parents:
46796
diff
changeset
|
655 ("`ey" "entry" ) |
c4e4658185e3
eval-when-compile a few defvars to quieten the byte-compiler.
Glenn Morris <rgm@gnu.org>
parents:
46796
diff
changeset
|
656 ("`fl" "forall" ) |
c4e4658185e3
eval-when-compile a few defvars to quieten the byte-compiler.
Glenn Morris <rgm@gnu.org>
parents:
46796
diff
changeset
|
657 ("`fo" "format" ) |
c4e4658185e3
eval-when-compile a few defvars to quieten the byte-compiler.
Glenn Morris <rgm@gnu.org>
parents:
46796
diff
changeset
|
658 ("`fu" "function" ) |
c4e4658185e3
eval-when-compile a few defvars to quieten the byte-compiler.
Glenn Morris <rgm@gnu.org>
parents:
46796
diff
changeset
|
659 ("`fa" ".false." ) |
c4e4658185e3
eval-when-compile a few defvars to quieten the byte-compiler.
Glenn Morris <rgm@gnu.org>
parents:
46796
diff
changeset
|
660 ("`im" "implicit none") |
c4e4658185e3
eval-when-compile a few defvars to quieten the byte-compiler.
Glenn Morris <rgm@gnu.org>
parents:
46796
diff
changeset
|
661 ("`in" "include" ) |
c4e4658185e3
eval-when-compile a few defvars to quieten the byte-compiler.
Glenn Morris <rgm@gnu.org>
parents:
46796
diff
changeset
|
662 ("`i" "integer" ) |
c4e4658185e3
eval-when-compile a few defvars to quieten the byte-compiler.
Glenn Morris <rgm@gnu.org>
parents:
46796
diff
changeset
|
663 ("`it" "intent" ) |
c4e4658185e3
eval-when-compile a few defvars to quieten the byte-compiler.
Glenn Morris <rgm@gnu.org>
parents:
46796
diff
changeset
|
664 ("`if" "interface" ) |
c4e4658185e3
eval-when-compile a few defvars to quieten the byte-compiler.
Glenn Morris <rgm@gnu.org>
parents:
46796
diff
changeset
|
665 ("`lo" "logical" ) |
c4e4658185e3
eval-when-compile a few defvars to quieten the byte-compiler.
Glenn Morris <rgm@gnu.org>
parents:
46796
diff
changeset
|
666 ("`mo" "module" ) |
c4e4658185e3
eval-when-compile a few defvars to quieten the byte-compiler.
Glenn Morris <rgm@gnu.org>
parents:
46796
diff
changeset
|
667 ("`na" "namelist" ) |
c4e4658185e3
eval-when-compile a few defvars to quieten the byte-compiler.
Glenn Morris <rgm@gnu.org>
parents:
46796
diff
changeset
|
668 ("`nu" "nullify" ) |
c4e4658185e3
eval-when-compile a few defvars to quieten the byte-compiler.
Glenn Morris <rgm@gnu.org>
parents:
46796
diff
changeset
|
669 ("`op" "optional" ) |
c4e4658185e3
eval-when-compile a few defvars to quieten the byte-compiler.
Glenn Morris <rgm@gnu.org>
parents:
46796
diff
changeset
|
670 ("`pa" "parameter" ) |
c4e4658185e3
eval-when-compile a few defvars to quieten the byte-compiler.
Glenn Morris <rgm@gnu.org>
parents:
46796
diff
changeset
|
671 ("`po" "pointer" ) |
c4e4658185e3
eval-when-compile a few defvars to quieten the byte-compiler.
Glenn Morris <rgm@gnu.org>
parents:
46796
diff
changeset
|
672 ("`pr" "print" ) |
c4e4658185e3
eval-when-compile a few defvars to quieten the byte-compiler.
Glenn Morris <rgm@gnu.org>
parents:
46796
diff
changeset
|
673 ("`pi" "private" ) |
c4e4658185e3
eval-when-compile a few defvars to quieten the byte-compiler.
Glenn Morris <rgm@gnu.org>
parents:
46796
diff
changeset
|
674 ("`pm" "program" ) |
c4e4658185e3
eval-when-compile a few defvars to quieten the byte-compiler.
Glenn Morris <rgm@gnu.org>
parents:
46796
diff
changeset
|
675 ("`pu" "public" ) |
c4e4658185e3
eval-when-compile a few defvars to quieten the byte-compiler.
Glenn Morris <rgm@gnu.org>
parents:
46796
diff
changeset
|
676 ("`r" "real" ) |
c4e4658185e3
eval-when-compile a few defvars to quieten the byte-compiler.
Glenn Morris <rgm@gnu.org>
parents:
46796
diff
changeset
|
677 ("`rc" "recursive" ) |
c4e4658185e3
eval-when-compile a few defvars to quieten the byte-compiler.
Glenn Morris <rgm@gnu.org>
parents:
46796
diff
changeset
|
678 ("`rt" "return" ) |
c4e4658185e3
eval-when-compile a few defvars to quieten the byte-compiler.
Glenn Morris <rgm@gnu.org>
parents:
46796
diff
changeset
|
679 ("`rw" "rewind" ) |
c4e4658185e3
eval-when-compile a few defvars to quieten the byte-compiler.
Glenn Morris <rgm@gnu.org>
parents:
46796
diff
changeset
|
680 ("`se" "select" ) |
c4e4658185e3
eval-when-compile a few defvars to quieten the byte-compiler.
Glenn Morris <rgm@gnu.org>
parents:
46796
diff
changeset
|
681 ("`sq" "sequence" ) |
c4e4658185e3
eval-when-compile a few defvars to quieten the byte-compiler.
Glenn Morris <rgm@gnu.org>
parents:
46796
diff
changeset
|
682 ("`su" "subroutine" ) |
c4e4658185e3
eval-when-compile a few defvars to quieten the byte-compiler.
Glenn Morris <rgm@gnu.org>
parents:
46796
diff
changeset
|
683 ("`ta" "target" ) |
c4e4658185e3
eval-when-compile a few defvars to quieten the byte-compiler.
Glenn Morris <rgm@gnu.org>
parents:
46796
diff
changeset
|
684 ("`tr" ".true." ) |
c4e4658185e3
eval-when-compile a few defvars to quieten the byte-compiler.
Glenn Morris <rgm@gnu.org>
parents:
46796
diff
changeset
|
685 ("`t" "type" ) |
c4e4658185e3
eval-when-compile a few defvars to quieten the byte-compiler.
Glenn Morris <rgm@gnu.org>
parents:
46796
diff
changeset
|
686 ("`wh" "where" ) |
c4e4658185e3
eval-when-compile a few defvars to quieten the byte-compiler.
Glenn Morris <rgm@gnu.org>
parents:
46796
diff
changeset
|
687 ("`wr" "write" ))) |
45355
d1b710ae9184
(f90-mode-abbrev-table): Initialize in the defvar.
Glenn Morris <rgm@gnu.org>
parents:
45353
diff
changeset
|
688 f90-mode-abbrev-table) |
d1b710ae9184
(f90-mode-abbrev-table): Initialize in the defvar.
Glenn Morris <rgm@gnu.org>
parents:
45353
diff
changeset
|
689 "Abbrev table for F90 mode.") |
10612 | 690 |
28170
5427762a58a5
(f90): Put custom group under `languages', not
Dave Love <fx@gnu.org>
parents:
26607
diff
changeset
|
691 |
10612 | 692 ;;;###autoload |
693 (defun f90-mode () | |
44866
582f083ed579
General tidy-up of commentary and some doc strings.
Glenn Morris <rgm@gnu.org>
parents:
44825
diff
changeset
|
694 "Major mode for editing Fortran 90,95 code in free format. |
50597
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
695 For fixed format code, use `fortran-mode'. |
10612 | 696 |
50597
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
697 \\[f90-indent-line] indents the current line. |
45066
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
698 \\[f90-indent-new-line] indents current line and creates a new\ |
10612 | 699 indented line. |
44866
582f083ed579
General tidy-up of commentary and some doc strings.
Glenn Morris <rgm@gnu.org>
parents:
44825
diff
changeset
|
700 \\[f90-indent-subprogram] indents the current subprogram. |
10612 | 701 |
702 Type `? or `\\[help-command] to display a list of built-in\ | |
703 abbrevs for F90 keywords. | |
704 | |
705 Key definitions: | |
706 \\{f90-mode-map} | |
707 | |
708 Variables controlling indentation style and extra features: | |
709 | |
45066
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
710 `f90-do-indent' |
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
711 Extra indentation within do blocks (default 3). |
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
712 `f90-if-indent' |
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
713 Extra indentation within if/select case/where/forall blocks (default 3). |
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
714 `f90-type-indent' |
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
715 Extra indentation within type/interface/block-data blocks (default 3). |
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
716 `f90-program-indent' |
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
717 Extra indentation within program/module/subroutine/function blocks |
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
718 (default 2). |
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
719 `f90-continuation-indent' |
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
720 Extra indentation applied to continuation lines (default 5). |
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
721 `f90-comment-region' |
45076 | 722 String inserted by function \\[f90-comment-region] at start of each |
723 line in region (default \"!!!$\"). | |
45066
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
724 `f90-indented-comment-re' |
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
725 Regexp determining the type of comment to be intended like code |
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
726 (default \"!\"). |
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
727 `f90-directive-comment-re' |
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
728 Regexp of comment-like directive like \"!HPF\\\\$\", not to be indented |
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
729 (default \"!hpf\\\\$\"). |
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
730 `f90-break-delimiters' |
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
731 Regexp holding list of delimiters at which lines may be broken |
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
732 (default \"[-+*/><=,% \\t]\"). |
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
733 `f90-break-before-delimiters' |
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
734 Non-nil causes `f90-do-auto-fill' to break lines before delimiters |
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
735 (default t). |
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
736 `f90-beginning-ampersand' |
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
737 Automatic insertion of \& at beginning of continuation lines (default t). |
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
738 `f90-smart-end' |
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
739 From an END statement, check and fill the end using matching block start. |
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
740 Allowed values are 'blink, 'no-blink, and nil, which determine |
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
741 whether to blink the matching beginning (default 'blink). |
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
742 `f90-auto-keyword-case' |
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
743 Automatic change of case of keywords (default nil). |
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
744 The possibilities are 'downcase-word, 'upcase-word, 'capitalize-word. |
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
745 `f90-leave-line-no' |
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
746 Do not left-justify line numbers (default nil). |
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
747 `f90-keywords-re' |
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
748 List of keywords used for highlighting/upcase-keywords etc. |
10612 | 749 |
750 Turning on F90 mode calls the value of the variable `f90-mode-hook' | |
751 with no args, if that value is non-nil." | |
752 (interactive) | |
753 (kill-all-local-variables) | |
45076 | 754 (setq major-mode 'f90-mode |
755 mode-name "F90" | |
756 local-abbrev-table f90-mode-abbrev-table) | |
10612 | 757 (set-syntax-table f90-mode-syntax-table) |
758 (use-local-map f90-mode-map) | |
45076 | 759 (set (make-local-variable 'indent-line-function) 'f90-indent-line) |
760 (set (make-local-variable 'indent-region-function) 'f90-indent-region) | |
761 (set (make-local-variable 'require-final-newline) t) | |
762 (set (make-local-variable 'comment-start) "!") | |
763 (set (make-local-variable 'comment-start-skip) "!+ *") | |
764 (set (make-local-variable 'comment-indent-function) 'f90-comment-indent) | |
765 (set (make-local-variable 'abbrev-all-caps) t) | |
766 (set (make-local-variable 'normal-auto-fill-function) 'f90-do-auto-fill) | |
45351
bd2bdf90e286
(f90-mode-syntax-table, f90-mode-map): Do the initialization in the defvar.
Glenn Morris <rgm@gnu.org>
parents:
45076
diff
changeset
|
767 (setq indent-tabs-mode nil) ; auto buffer local |
45076 | 768 (set (make-local-variable 'font-lock-defaults) |
769 '((f90-font-lock-keywords f90-font-lock-keywords-1 | |
770 f90-font-lock-keywords-2 | |
771 f90-font-lock-keywords-3 | |
772 f90-font-lock-keywords-4) | |
773 nil t)) | |
23997 | 774 (set (make-local-variable 'imenu-case-fold-search) t) |
45076 | 775 (set (make-local-variable 'imenu-generic-expression) |
50597
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
776 f90-imenu-generic-expression) |
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
777 (set (make-local-variable 'beginning-of-defun-function) |
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
778 'f90-beginning-of-subprogram) |
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
779 (set (make-local-variable 'end-of-defun-function) 'f90-end-of-subprogram) |
28170
5427762a58a5
(f90): Put custom group under `languages', not
Dave Love <fx@gnu.org>
parents:
26607
diff
changeset
|
780 (set (make-local-variable 'add-log-current-defun-function) |
5427762a58a5
(f90): Put custom group under `languages', not
Dave Love <fx@gnu.org>
parents:
26607
diff
changeset
|
781 #'f90-current-defun) |
44825
82abaa8dbf18
(f90-startup-message): Obsolete variable removed.
Glenn Morris <rgm@gnu.org>
parents:
44824
diff
changeset
|
782 (run-hooks 'f90-mode-hook)) |
45066
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
783 |
10612 | 784 |
45066
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
785 ;; Inline-functions. |
10612 | 786 (defsubst f90-in-string () |
44990
8412bb92c791
Add/change doc strings for many in-line functions.
Glenn Morris <rgm@gnu.org>
parents:
44950
diff
changeset
|
787 "Return non-nil if point is inside a string. |
45066
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
788 Checks from `point-min', or `f90-cache-position', if that is non-nil |
44990
8412bb92c791
Add/change doc strings for many in-line functions.
Glenn Morris <rgm@gnu.org>
parents:
44950
diff
changeset
|
789 and lies before point." |
10612 | 790 (let ((beg-pnt |
791 (if (and f90-cache-position (> (point) f90-cache-position)) | |
792 f90-cache-position | |
793 (point-min)))) | |
794 (nth 3 (parse-partial-sexp beg-pnt (point))))) | |
44997 | 795 |
10612 | 796 (defsubst f90-in-comment () |
44990
8412bb92c791
Add/change doc strings for many in-line functions.
Glenn Morris <rgm@gnu.org>
parents:
44950
diff
changeset
|
797 "Return non-nil if point is inside a comment. |
45066
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
798 Checks from `point-min', or `f90-cache-position', if that is non-nil |
44990
8412bb92c791
Add/change doc strings for many in-line functions.
Glenn Morris <rgm@gnu.org>
parents:
44950
diff
changeset
|
799 and lies before point." |
10612 | 800 (let ((beg-pnt |
801 (if (and f90-cache-position (> (point) f90-cache-position)) | |
802 f90-cache-position | |
803 (point-min)))) | |
804 (nth 4 (parse-partial-sexp beg-pnt (point))))) | |
805 | |
806 (defsubst f90-line-continued () | |
44990
8412bb92c791
Add/change doc strings for many in-line functions.
Glenn Morris <rgm@gnu.org>
parents:
44950
diff
changeset
|
807 "Return t if the current line is a continued one. |
8412bb92c791
Add/change doc strings for many in-line functions.
Glenn Morris <rgm@gnu.org>
parents:
44950
diff
changeset
|
808 This includes comment lines embedded in continued lines, but |
8412bb92c791
Add/change doc strings for many in-line functions.
Glenn Morris <rgm@gnu.org>
parents:
44950
diff
changeset
|
809 not the last line of a continued statement." |
10612 | 810 (save-excursion |
44824
637c10f08055
(f90-get-beg-of-line): Removed and replaced with line-beginning-position.
Glenn Morris <rgm@gnu.org>
parents:
44697
diff
changeset
|
811 (beginning-of-line) |
637c10f08055
(f90-get-beg-of-line): Removed and replaced with line-beginning-position.
Glenn Morris <rgm@gnu.org>
parents:
44697
diff
changeset
|
812 (while (and (looking-at "[ \t]*\\(!\\|$\\)") (zerop (forward-line -1)))) |
45076 | 813 (end-of-line) |
814 (while (f90-in-comment) | |
815 (search-backward "!" (line-beginning-position)) | |
816 (skip-chars-backward "!")) | |
817 (skip-chars-backward " \t") | |
818 (= (preceding-char) ?&))) | |
10612 | 819 |
50610
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
820 ;; GM this is not right, eg a continuation line starting with a number. |
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
821 ;; Need f90-code-start-position function. |
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
822 ;; And yet, things seems to work with this... |
50647
5773e914b2ed
(f90-font-lock-keywords-2): Use override for
Glenn Morris <rgm@gnu.org>
parents:
50616
diff
changeset
|
823 ;; cf f90-indent-line |
5773e914b2ed
(f90-font-lock-keywords-2): Use override for
Glenn Morris <rgm@gnu.org>
parents:
50616
diff
changeset
|
824 ;; (beginning-of-line) ; digits after & \n are not line-nos |
5773e914b2ed
(f90-font-lock-keywords-2): Use override for
Glenn Morris <rgm@gnu.org>
parents:
50616
diff
changeset
|
825 ;; (if (not (save-excursion (and (f90-previous-statement) |
5773e914b2ed
(f90-font-lock-keywords-2): Use override for
Glenn Morris <rgm@gnu.org>
parents:
50616
diff
changeset
|
826 ;; (f90-line-continued)))) |
5773e914b2ed
(f90-font-lock-keywords-2): Use override for
Glenn Morris <rgm@gnu.org>
parents:
50616
diff
changeset
|
827 ;; (f90-indent-line-no) |
10612 | 828 (defsubst f90-current-indentation () |
829 "Return indentation of current line. | |
830 Line-numbers are considered whitespace characters." | |
45076 | 831 (save-excursion (beginning-of-line) (skip-chars-forward " \t0-9"))) |
10612 | 832 |
833 (defsubst f90-indent-to (col &optional no-line-number) | |
834 "Indent current line to column COL. | |
44990
8412bb92c791
Add/change doc strings for many in-line functions.
Glenn Morris <rgm@gnu.org>
parents:
44950
diff
changeset
|
835 If optional argument NO-LINE-NUMBER is nil, jump over a possible |
8412bb92c791
Add/change doc strings for many in-line functions.
Glenn Morris <rgm@gnu.org>
parents:
44950
diff
changeset
|
836 line-number before indenting." |
10612 | 837 (beginning-of-line) |
50610
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
838 (or no-line-number |
10612 | 839 (skip-chars-forward " \t0-9")) |
840 (delete-horizontal-space) | |
50610
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
841 ;; Leave >= 1 space after line number. |
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
842 (indent-to col (if (zerop (current-column)) 0 1))) |
10612 | 843 |
844 (defsubst f90-get-present-comment-type () | |
44990
8412bb92c791
Add/change doc strings for many in-line functions.
Glenn Morris <rgm@gnu.org>
parents:
44950
diff
changeset
|
845 "If point lies within a comment, return the string starting the comment. |
8412bb92c791
Add/change doc strings for many in-line functions.
Glenn Morris <rgm@gnu.org>
parents:
44950
diff
changeset
|
846 For example, \"!\" or \"!!\"." |
10612 | 847 (save-excursion |
45076 | 848 (when (f90-in-comment) |
849 (beginning-of-line) | |
45372
ecefa899fdb3
(f90-get-present-comment-type): Fix bug introduced in version 1.46.
Glenn Morris <rgm@gnu.org>
parents:
45370
diff
changeset
|
850 (re-search-forward "!+" (line-end-position)) |
45076 | 851 (while (f90-in-string) |
45372
ecefa899fdb3
(f90-get-present-comment-type): Fix bug introduced in version 1.46.
Glenn Morris <rgm@gnu.org>
parents:
45370
diff
changeset
|
852 (re-search-forward "!+" (line-end-position))) |
ecefa899fdb3
(f90-get-present-comment-type): Fix bug introduced in version 1.46.
Glenn Morris <rgm@gnu.org>
parents:
45370
diff
changeset
|
853 (match-string 0)))) |
10612 | 854 |
855 (defsubst f90-equal-symbols (a b) | |
45066
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
856 "Compare strings A and B neglecting case and allowing for nil value." |
45377
31cf809b5bc2
(f90-equal-symbols, f90-looking-at-do, f90-looking-at-select-case)
Glenn Morris <rgm@gnu.org>
parents:
45372
diff
changeset
|
857 (equal (if a (downcase a) nil) |
31cf809b5bc2
(f90-equal-symbols, f90-looking-at-do, f90-looking-at-select-case)
Glenn Morris <rgm@gnu.org>
parents:
45372
diff
changeset
|
858 (if b (downcase b) nil))) |
10612 | 859 |
860 (defsubst f90-looking-at-do () | |
44990
8412bb92c791
Add/change doc strings for many in-line functions.
Glenn Morris <rgm@gnu.org>
parents:
44950
diff
changeset
|
861 "Return (\"do\" NAME) if a do statement starts after point. |
8412bb92c791
Add/change doc strings for many in-line functions.
Glenn Morris <rgm@gnu.org>
parents:
44950
diff
changeset
|
862 NAME is nil if the statement has no label." |
45377
31cf809b5bc2
(f90-equal-symbols, f90-looking-at-do, f90-looking-at-select-case)
Glenn Morris <rgm@gnu.org>
parents:
45372
diff
changeset
|
863 (if (looking-at "\\(\\(\\sw+\\)[ \t]*:\\)?[ \t]*\\(do\\)\\>") |
50616
2e4300c14e95
(f90-looking-at-do, f90-find-breakpoint): Fix previous change.
Glenn Morris <rgm@gnu.org>
parents:
50610
diff
changeset
|
864 (list (match-string 3) (match-string 2)))) |
13064 | 865 |
866 (defsubst f90-looking-at-select-case () | |
44990
8412bb92c791
Add/change doc strings for many in-line functions.
Glenn Morris <rgm@gnu.org>
parents:
44950
diff
changeset
|
867 "Return (\"select\" NAME) if a select-case statement starts after point. |
8412bb92c791
Add/change doc strings for many in-line functions.
Glenn Morris <rgm@gnu.org>
parents:
44950
diff
changeset
|
868 NAME is nil if the statement has no label." |
45377
31cf809b5bc2
(f90-equal-symbols, f90-looking-at-do, f90-looking-at-select-case)
Glenn Morris <rgm@gnu.org>
parents:
45372
diff
changeset
|
869 (if (looking-at "\\(\\(\\sw+\\)[ \t]*:\\)?[ \t]*\ |
44990
8412bb92c791
Add/change doc strings for many in-line functions.
Glenn Morris <rgm@gnu.org>
parents:
44950
diff
changeset
|
870 \\(select\\)[ \t]*case[ \t]*(") |
50610
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
871 (list (match-string 3) (match-string 2)))) |
10612 | 872 |
873 (defsubst f90-looking-at-if-then () | |
44990
8412bb92c791
Add/change doc strings for many in-line functions.
Glenn Morris <rgm@gnu.org>
parents:
44950
diff
changeset
|
874 "Return (\"if\" NAME) if an if () then statement starts after point. |
8412bb92c791
Add/change doc strings for many in-line functions.
Glenn Morris <rgm@gnu.org>
parents:
44950
diff
changeset
|
875 NAME is nil if the statement has no label." |
10612 | 876 (save-excursion |
45377
31cf809b5bc2
(f90-equal-symbols, f90-looking-at-do, f90-looking-at-select-case)
Glenn Morris <rgm@gnu.org>
parents:
45372
diff
changeset
|
877 (when (looking-at "\\(\\(\\sw+\\)[ \t]*:\\)?[ \t]*\\(if\\)\\>") |
31cf809b5bc2
(f90-equal-symbols, f90-looking-at-do, f90-looking-at-select-case)
Glenn Morris <rgm@gnu.org>
parents:
45372
diff
changeset
|
878 (let ((struct (match-string 3)) |
50610
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
879 (label (match-string 2)) |
45377
31cf809b5bc2
(f90-equal-symbols, f90-looking-at-do, f90-looking-at-select-case)
Glenn Morris <rgm@gnu.org>
parents:
45372
diff
changeset
|
880 (pos (scan-lists (point) 1 0))) |
31cf809b5bc2
(f90-equal-symbols, f90-looking-at-do, f90-looking-at-select-case)
Glenn Morris <rgm@gnu.org>
parents:
45372
diff
changeset
|
881 (and pos (goto-char pos)) |
44944
dbacf99cccc4
Minor reorganization of some code.
Glenn Morris <rgm@gnu.org>
parents:
44943
diff
changeset
|
882 (skip-chars-forward " \t") |
dbacf99cccc4
Minor reorganization of some code.
Glenn Morris <rgm@gnu.org>
parents:
44943
diff
changeset
|
883 (if (or (looking-at "then\\>") |
dbacf99cccc4
Minor reorganization of some code.
Glenn Morris <rgm@gnu.org>
parents:
44943
diff
changeset
|
884 (when (f90-line-continued) |
dbacf99cccc4
Minor reorganization of some code.
Glenn Morris <rgm@gnu.org>
parents:
44943
diff
changeset
|
885 (f90-next-statement) |
dbacf99cccc4
Minor reorganization of some code.
Glenn Morris <rgm@gnu.org>
parents:
44943
diff
changeset
|
886 (skip-chars-forward " \t0-9&") |
dbacf99cccc4
Minor reorganization of some code.
Glenn Morris <rgm@gnu.org>
parents:
44943
diff
changeset
|
887 (looking-at "then\\>"))) |
dbacf99cccc4
Minor reorganization of some code.
Glenn Morris <rgm@gnu.org>
parents:
44943
diff
changeset
|
888 (list struct label)))))) |
10612 | 889 |
45434
1c0762514eaa
(f90-looking-at-where-or-forall): Oops, defsubst, not defun.
Glenn Morris <rgm@gnu.org>
parents:
45379
diff
changeset
|
890 (defsubst f90-looking-at-where-or-forall () |
44990
8412bb92c791
Add/change doc strings for many in-line functions.
Glenn Morris <rgm@gnu.org>
parents:
44950
diff
changeset
|
891 "Return (KIND NAME) if a where or forall block starts after point. |
8412bb92c791
Add/change doc strings for many in-line functions.
Glenn Morris <rgm@gnu.org>
parents:
44950
diff
changeset
|
892 NAME is nil if the statement has no label." |
45377
31cf809b5bc2
(f90-equal-symbols, f90-looking-at-do, f90-looking-at-select-case)
Glenn Morris <rgm@gnu.org>
parents:
45372
diff
changeset
|
893 (save-excursion |
31cf809b5bc2
(f90-equal-symbols, f90-looking-at-do, f90-looking-at-select-case)
Glenn Morris <rgm@gnu.org>
parents:
45372
diff
changeset
|
894 (when (looking-at "\\(\\(\\sw+\\)[ \t]*:\\)?[ \t]*\ |
31cf809b5bc2
(f90-equal-symbols, f90-looking-at-do, f90-looking-at-select-case)
Glenn Morris <rgm@gnu.org>
parents:
45372
diff
changeset
|
895 \\(where\\|forall\\)\\>") |
31cf809b5bc2
(f90-equal-symbols, f90-looking-at-do, f90-looking-at-select-case)
Glenn Morris <rgm@gnu.org>
parents:
45372
diff
changeset
|
896 (let ((struct (match-string 3)) |
50610
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
897 (label (match-string 2)) |
45377
31cf809b5bc2
(f90-equal-symbols, f90-looking-at-do, f90-looking-at-select-case)
Glenn Morris <rgm@gnu.org>
parents:
45372
diff
changeset
|
898 (pos (scan-lists (point) 1 0))) |
31cf809b5bc2
(f90-equal-symbols, f90-looking-at-do, f90-looking-at-select-case)
Glenn Morris <rgm@gnu.org>
parents:
45372
diff
changeset
|
899 (and pos (goto-char pos)) |
31cf809b5bc2
(f90-equal-symbols, f90-looking-at-do, f90-looking-at-select-case)
Glenn Morris <rgm@gnu.org>
parents:
45372
diff
changeset
|
900 (skip-chars-forward " \t") |
31cf809b5bc2
(f90-equal-symbols, f90-looking-at-do, f90-looking-at-select-case)
Glenn Morris <rgm@gnu.org>
parents:
45372
diff
changeset
|
901 (if (looking-at "\\(!\\|$\\)") (list struct label)))))) |
10612 | 902 |
903 (defsubst f90-looking-at-type-like () | |
44990
8412bb92c791
Add/change doc strings for many in-line functions.
Glenn Morris <rgm@gnu.org>
parents:
44950
diff
changeset
|
904 "Return (KIND NAME) if a type/interface/block-data block starts after point. |
8412bb92c791
Add/change doc strings for many in-line functions.
Glenn Morris <rgm@gnu.org>
parents:
44950
diff
changeset
|
905 NAME is non-nil only for type." |
44997 | 906 (cond |
13064 | 907 ((looking-at f90-type-def-re) |
45912 | 908 (list (match-string 1) (match-string 2))) |
13064 | 909 ((looking-at "\\(interface\\|block[\t]*data\\)\\>") |
44824
637c10f08055
(f90-get-beg-of-line): Removed and replaced with line-beginning-position.
Glenn Morris <rgm@gnu.org>
parents:
44697
diff
changeset
|
910 (list (match-string 1) nil)))) |
10612 | 911 |
912 (defsubst f90-looking-at-program-block-start () | |
44990
8412bb92c791
Add/change doc strings for many in-line functions.
Glenn Morris <rgm@gnu.org>
parents:
44950
diff
changeset
|
913 "Return (KIND NAME) if a program block with name NAME starts after point." |
10612 | 914 (cond |
13064 | 915 ((looking-at "\\(program\\)[ \t]+\\(\\sw+\\)\\>") |
44824
637c10f08055
(f90-get-beg-of-line): Removed and replaced with line-beginning-position.
Glenn Morris <rgm@gnu.org>
parents:
44697
diff
changeset
|
916 (list (match-string 1) (match-string 2))) |
10612 | 917 ((and (not (looking-at "module[ \t]*procedure\\>")) |
13064 | 918 (looking-at "\\(module\\)[ \t]+\\(\\sw+\\)\\>")) |
44824
637c10f08055
(f90-get-beg-of-line): Removed and replaced with line-beginning-position.
Glenn Morris <rgm@gnu.org>
parents:
44697
diff
changeset
|
919 (list (match-string 1) (match-string 2))) |
15863
f11b2bfc1275
new version from Torbj?Einarsson.
Erik Naggum <erik@naggum.no>
parents:
15244
diff
changeset
|
920 ((and (not (looking-at "end[ \t]*\\(function\\|subroutine\\)")) |
50610
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
921 (looking-at "[^!'\"\&\n]*\\(function\\|subroutine\\)[ \t]+\ |
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
922 \\(\\sw+\\)")) |
44824
637c10f08055
(f90-get-beg-of-line): Removed and replaced with line-beginning-position.
Glenn Morris <rgm@gnu.org>
parents:
44697
diff
changeset
|
923 (list (match-string 1) (match-string 2))))) |
10612 | 924 |
925 (defsubst f90-looking-at-program-block-end () | |
44990
8412bb92c791
Add/change doc strings for many in-line functions.
Glenn Morris <rgm@gnu.org>
parents:
44950
diff
changeset
|
926 "Return (KIND NAME) if a block with name NAME ends after point." |
44997 | 927 (if (looking-at (concat "end[ \t]*" f90-blocks-re |
13064 | 928 "?\\([ \t]+\\(\\sw+\\)\\)?\\>")) |
44824
637c10f08055
(f90-get-beg-of-line): Removed and replaced with line-beginning-position.
Glenn Morris <rgm@gnu.org>
parents:
44697
diff
changeset
|
929 (list (match-string 1) (match-string 3)))) |
10612 | 930 |
931 (defsubst f90-comment-indent () | |
45066
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
932 "Return the indentation to be used for a comment starting at point. |
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
933 Used for `comment-indent-function' by F90 mode. |
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
934 \"!!!\", `f90-directive-comment-re', variable `f90-comment-region' return 0. |
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
935 `f90-indented-comment-re' (if not trailing code) calls `f90-calculate-indent'. |
45372
ecefa899fdb3
(f90-get-present-comment-type): Fix bug introduced in version 1.46.
Glenn Morris <rgm@gnu.org>
parents:
45370
diff
changeset
|
936 All others return `comment-column', leaving at least one space after code." |
10612 | 937 (cond ((looking-at "!!!") 0) |
13064 | 938 ((and f90-directive-comment-re |
939 (looking-at f90-directive-comment-re)) 0) | |
10612 | 940 ((looking-at (regexp-quote f90-comment-region)) 0) |
22228
a12c92c5f4e9
(f90-comment-indent): Don't attempt to indent trailing comment as
Dave Love <fx@gnu.org>
parents:
20953
diff
changeset
|
941 ((and (looking-at f90-indented-comment-re) |
a12c92c5f4e9
(f90-comment-indent): Don't attempt to indent trailing comment as
Dave Love <fx@gnu.org>
parents:
20953
diff
changeset
|
942 ;; Don't attempt to indent trailing comment as code. |
a12c92c5f4e9
(f90-comment-indent): Don't attempt to indent trailing comment as
Dave Love <fx@gnu.org>
parents:
20953
diff
changeset
|
943 (save-excursion |
a12c92c5f4e9
(f90-comment-indent): Don't attempt to indent trailing comment as
Dave Love <fx@gnu.org>
parents:
20953
diff
changeset
|
944 (skip-chars-backward " \t") |
a12c92c5f4e9
(f90-comment-indent): Don't attempt to indent trailing comment as
Dave Love <fx@gnu.org>
parents:
20953
diff
changeset
|
945 (bolp))) |
10612 | 946 (f90-calculate-indent)) |
947 (t (skip-chars-backward " \t") | |
948 (max (if (bolp) 0 (1+ (current-column))) comment-column)))) | |
949 | |
950 (defsubst f90-present-statement-cont () | |
44990
8412bb92c791
Add/change doc strings for many in-line functions.
Glenn Morris <rgm@gnu.org>
parents:
44950
diff
changeset
|
951 "Return continuation properties of present statement. |
8412bb92c791
Add/change doc strings for many in-line functions.
Glenn Morris <rgm@gnu.org>
parents:
44950
diff
changeset
|
952 Possible return values are: |
8412bb92c791
Add/change doc strings for many in-line functions.
Glenn Morris <rgm@gnu.org>
parents:
44950
diff
changeset
|
953 single - statement is not continued. |
8412bb92c791
Add/change doc strings for many in-line functions.
Glenn Morris <rgm@gnu.org>
parents:
44950
diff
changeset
|
954 begin - current line is the first in a continued statement. |
8412bb92c791
Add/change doc strings for many in-line functions.
Glenn Morris <rgm@gnu.org>
parents:
44950
diff
changeset
|
955 end - current line is the last in a continued statement |
8412bb92c791
Add/change doc strings for many in-line functions.
Glenn Morris <rgm@gnu.org>
parents:
44950
diff
changeset
|
956 middle - current line is neither first nor last in a continued statement. |
8412bb92c791
Add/change doc strings for many in-line functions.
Glenn Morris <rgm@gnu.org>
parents:
44950
diff
changeset
|
957 Comment lines embedded amongst continued lines return 'middle." |
10612 | 958 (let (pcont cont) |
959 (save-excursion | |
45076 | 960 (setq pcont (if (f90-previous-statement) (f90-line-continued)))) |
10612 | 961 (setq cont (f90-line-continued)) |
962 (cond ((and (not pcont) (not cont)) 'single) | |
963 ((and (not pcont) cont) 'begin) | |
964 ((and pcont (not cont)) 'end) | |
965 ((and pcont cont) 'middle) | |
45076 | 966 (t (error "The impossible occurred"))))) |
10612 | 967 |
968 (defsubst f90-indent-line-no () | |
44990
8412bb92c791
Add/change doc strings for many in-line functions.
Glenn Morris <rgm@gnu.org>
parents:
44950
diff
changeset
|
969 "If `f90-leave-line-no' is nil, left-justify a line number. |
8412bb92c791
Add/change doc strings for many in-line functions.
Glenn Morris <rgm@gnu.org>
parents:
44950
diff
changeset
|
970 Leaves point at the first non-blank character after the line number. |
8412bb92c791
Add/change doc strings for many in-line functions.
Glenn Morris <rgm@gnu.org>
parents:
44950
diff
changeset
|
971 Call from beginning of line." |
50610
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
972 (and (null f90-leave-line-no) (looking-at "[ \t]+[0-9]") |
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
973 (delete-horizontal-space)) |
10612 | 974 (skip-chars-forward " \t0-9")) |
975 | |
976 (defsubst f90-no-block-limit () | |
44990
8412bb92c791
Add/change doc strings for many in-line functions.
Glenn Morris <rgm@gnu.org>
parents:
44950
diff
changeset
|
977 "Return nil if point is at the edge of a code block. |
8412bb92c791
Add/change doc strings for many in-line functions.
Glenn Morris <rgm@gnu.org>
parents:
44950
diff
changeset
|
978 Searches line forward for \"function\" or \"subroutine\", |
8412bb92c791
Add/change doc strings for many in-line functions.
Glenn Morris <rgm@gnu.org>
parents:
44950
diff
changeset
|
979 if all else fails." |
50610
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
980 (save-excursion |
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
981 (not (or (looking-at "end") |
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
982 (looking-at "\\(do\\|if\\|else\\(if\\|where\\)?\ |
16444
f32ed369901c
(f90-no-block-limit): Fixed bug for indentation of
Richard M. Stallman <rms@gnu.org>
parents:
15863
diff
changeset
|
983 \\|select[ \t]*case\\|case\\|where\\|forall\\)\\>") |
50610
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
984 (looking-at "\\(program\\|module\\|interface\\|\ |
10612 | 985 block[ \t]*data\\)\\>") |
50610
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
986 (looking-at "\\(contains\\|\\sw+[ \t]*:\\)") |
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
987 (looking-at f90-type-def-re) |
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
988 (re-search-forward "\\(function\\|subroutine\\)" |
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
989 (line-end-position) t))))) |
10612 | 990 |
991 (defsubst f90-update-line () | |
44990
8412bb92c791
Add/change doc strings for many in-line functions.
Glenn Morris <rgm@gnu.org>
parents:
44950
diff
changeset
|
992 "Change case of current line as per `f90-auto-keyword-case'." |
8412bb92c791
Add/change doc strings for many in-line functions.
Glenn Morris <rgm@gnu.org>
parents:
44950
diff
changeset
|
993 (if f90-auto-keyword-case |
8412bb92c791
Add/change doc strings for many in-line functions.
Glenn Morris <rgm@gnu.org>
parents:
44950
diff
changeset
|
994 (f90-change-keywords f90-auto-keyword-case |
8412bb92c791
Add/change doc strings for many in-line functions.
Glenn Morris <rgm@gnu.org>
parents:
44950
diff
changeset
|
995 (line-beginning-position) (line-end-position)))) |
10612 | 996 |
16444
f32ed369901c
(f90-no-block-limit): Fixed bug for indentation of
Richard M. Stallman <rms@gnu.org>
parents:
15863
diff
changeset
|
997 (defun f90-electric-insert () |
44990
8412bb92c791
Add/change doc strings for many in-line functions.
Glenn Morris <rgm@gnu.org>
parents:
44950
diff
changeset
|
998 "Change keyword case and auto-fill line as operators are inserted." |
16444
f32ed369901c
(f90-no-block-limit): Fixed bug for indentation of
Richard M. Stallman <rms@gnu.org>
parents:
15863
diff
changeset
|
999 (interactive) |
f32ed369901c
(f90-no-block-limit): Fixed bug for indentation of
Richard M. Stallman <rms@gnu.org>
parents:
15863
diff
changeset
|
1000 (self-insert-command 1) |
44990
8412bb92c791
Add/change doc strings for many in-line functions.
Glenn Morris <rgm@gnu.org>
parents:
44950
diff
changeset
|
1001 (if auto-fill-function (f90-do-auto-fill) ; also updates line |
8412bb92c791
Add/change doc strings for many in-line functions.
Glenn Morris <rgm@gnu.org>
parents:
44950
diff
changeset
|
1002 (f90-update-line))) |
8412bb92c791
Add/change doc strings for many in-line functions.
Glenn Morris <rgm@gnu.org>
parents:
44950
diff
changeset
|
1003 |
16444
f32ed369901c
(f90-no-block-limit): Fixed bug for indentation of
Richard M. Stallman <rms@gnu.org>
parents:
15863
diff
changeset
|
1004 |
10612 | 1005 (defun f90-get-correct-indent () |
1006 "Get correct indent for a line starting with line number. | |
1007 Does not check type and subprogram indentation." | |
44824
637c10f08055
(f90-get-beg-of-line): Removed and replaced with line-beginning-position.
Glenn Morris <rgm@gnu.org>
parents:
44697
diff
changeset
|
1008 (let ((epnt (line-end-position)) icol cont) |
10612 | 1009 (save-excursion |
1010 (while (and (f90-previous-statement) | |
1011 (or (progn | |
1012 (setq cont (f90-present-statement-cont)) | |
1013 (or (eq cont 'end) (eq cont 'middle))) | |
1014 (looking-at "[ \t]*[0-9]")))) | |
1015 (setq icol (current-indentation)) | |
1016 (beginning-of-line) | |
44944
dbacf99cccc4
Minor reorganization of some code.
Glenn Morris <rgm@gnu.org>
parents:
44943
diff
changeset
|
1017 (when (re-search-forward "\\(if\\|do\\|select\\|where\\|forall\\)" |
dbacf99cccc4
Minor reorganization of some code.
Glenn Morris <rgm@gnu.org>
parents:
44943
diff
changeset
|
1018 (line-end-position) t) |
45076 | 1019 (beginning-of-line) |
1020 (skip-chars-forward " \t") | |
44944
dbacf99cccc4
Minor reorganization of some code.
Glenn Morris <rgm@gnu.org>
parents:
44943
diff
changeset
|
1021 (cond ((f90-looking-at-do) |
dbacf99cccc4
Minor reorganization of some code.
Glenn Morris <rgm@gnu.org>
parents:
44943
diff
changeset
|
1022 (setq icol (+ icol f90-do-indent))) |
dbacf99cccc4
Minor reorganization of some code.
Glenn Morris <rgm@gnu.org>
parents:
44943
diff
changeset
|
1023 ((or (f90-looking-at-if-then) |
dbacf99cccc4
Minor reorganization of some code.
Glenn Morris <rgm@gnu.org>
parents:
44943
diff
changeset
|
1024 (f90-looking-at-where-or-forall) |
dbacf99cccc4
Minor reorganization of some code.
Glenn Morris <rgm@gnu.org>
parents:
44943
diff
changeset
|
1025 (f90-looking-at-select-case)) |
dbacf99cccc4
Minor reorganization of some code.
Glenn Morris <rgm@gnu.org>
parents:
44943
diff
changeset
|
1026 (setq icol (+ icol f90-if-indent)))) |
dbacf99cccc4
Minor reorganization of some code.
Glenn Morris <rgm@gnu.org>
parents:
44943
diff
changeset
|
1027 (end-of-line)) |
10612 | 1028 (while (re-search-forward |
13064 | 1029 "\\(if\\|do\\|select\\|where\\|forall\\)" epnt t) |
45076 | 1030 (beginning-of-line) |
1031 (skip-chars-forward " \t0-9") | |
1032 (cond ((f90-looking-at-do) | |
1033 (setq icol (+ icol f90-do-indent))) | |
1034 ((or (f90-looking-at-if-then) | |
1035 (f90-looking-at-where-or-forall) | |
1036 (f90-looking-at-select-case)) | |
1037 (setq icol (+ icol f90-if-indent))) | |
1038 ((looking-at f90-end-if-re) | |
1039 (setq icol (- icol f90-if-indent))) | |
1040 ((looking-at "end[ \t]*do\\>") | |
1041 (setq icol (- icol f90-do-indent)))) | |
10612 | 1042 (end-of-line)) |
1043 icol))) | |
44997 | 1044 |
10612 | 1045 (defun f90-calculate-indent () |
1046 "Calculate the indent column based on previous statements." | |
1047 (interactive) | |
1048 (let (icol cont (case-fold-search t) (pnt (point))) | |
1049 (save-excursion | |
1050 (if (not (f90-previous-statement)) | |
1051 (setq icol 0) | |
1052 (setq cont (f90-present-statement-cont)) | |
1053 (if (eq cont 'end) | |
1054 (while (not (eq 'begin (f90-present-statement-cont))) | |
1055 (f90-previous-statement))) | |
1056 (cond ((eq cont 'begin) | |
1057 (setq icol (+ (f90-current-indentation) | |
1058 f90-continuation-indent))) | |
45076 | 1059 ((eq cont 'middle) (setq icol (current-indentation))) |
10612 | 1060 (t (setq icol (f90-current-indentation)) |
1061 (skip-chars-forward " \t") | |
1062 (if (looking-at "[0-9]") | |
1063 (setq icol (f90-get-correct-indent)) | |
1064 (cond ((or (f90-looking-at-if-then) | |
1065 (f90-looking-at-where-or-forall) | |
1066 (f90-looking-at-select-case) | |
44997 | 1067 (looking-at f90-else-like-re)) |
10612 | 1068 (setq icol (+ icol f90-if-indent))) |
1069 ((f90-looking-at-do) | |
1070 (setq icol (+ icol f90-do-indent))) | |
1071 ((f90-looking-at-type-like) | |
1072 (setq icol (+ icol f90-type-indent))) | |
1073 ((or (f90-looking-at-program-block-start) | |
1074 (looking-at "contains[ \t]*\\($\\|!\\)")) | |
1075 (setq icol (+ icol f90-program-indent))))) | |
1076 (goto-char pnt) | |
1077 (beginning-of-line) | |
1078 (cond ((looking-at "[ \t]*$")) | |
45066
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
1079 ((looking-at "[ \t]*#") ; check for cpp directive |
10612 | 1080 (setq icol 0)) |
1081 (t | |
1082 (skip-chars-forward " \t0-9") | |
1083 (cond ((or (looking-at f90-else-like-re) | |
1084 (looking-at f90-end-if-re)) | |
1085 (setq icol (- icol f90-if-indent))) | |
13064 | 1086 ((looking-at "end[ \t]*do\\>") |
10612 | 1087 (setq icol (- icol f90-do-indent))) |
1088 ((looking-at f90-end-type-re) | |
1089 (setq icol (- icol f90-type-indent))) | |
1090 ((or (looking-at "contains[ \t]*\\(!\\|$\\)") | |
1091 (f90-looking-at-program-block-end)) | |
1092 (setq icol (- icol f90-program-indent)))))) | |
1093 )))) | |
1094 icol)) | |
1095 | |
1096 (defun f90-previous-statement () | |
1097 "Move point to beginning of the previous F90 statement. | |
45066
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
1098 Return nil if no previous statement is found. |
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
1099 A statement is a line which is neither blank nor a comment." |
10612 | 1100 (interactive) |
1101 (let (not-first-statement) | |
1102 (beginning-of-line) | |
1103 (while (and (setq not-first-statement (zerop (forward-line -1))) | |
13064 | 1104 (looking-at "[ \t0-9]*\\(!\\|$\\|#\\)"))) |
10612 | 1105 not-first-statement)) |
1106 | |
1107 (defun f90-next-statement () | |
1108 "Move point to beginning of the next F90 statement. | |
1109 Return nil if no later statement is found." | |
1110 (interactive) | |
1111 (let (not-last-statement) | |
1112 (beginning-of-line) | |
1113 (while (and (setq not-last-statement | |
1114 (and (zerop (forward-line 1)) | |
1115 (not (eobp)))) | |
1116 (looking-at "[ \t0-9]*\\(!\\|$\\)"))) | |
1117 not-last-statement)) | |
1118 | |
1119 (defun f90-beginning-of-subprogram () | |
45526
fcfb7bc58212
(f90-previous-block, f90-next-block): New names (and slightly changed
Glenn Morris <rgm@gnu.org>
parents:
45497
diff
changeset
|
1120 "Move point to the beginning of the current subprogram. |
45066
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
1121 Return (TYPE NAME), or nil if not found." |
10612 | 1122 (interactive) |
1123 (let ((count 1) (case-fold-search t) matching-beg) | |
45076 | 1124 (beginning-of-line) |
45526
fcfb7bc58212
(f90-previous-block, f90-next-block): New names (and slightly changed
Glenn Morris <rgm@gnu.org>
parents:
45497
diff
changeset
|
1125 (while (and (> count 0) |
10612 | 1126 (re-search-backward f90-program-block-re nil 'move)) |
45076 | 1127 (beginning-of-line) |
1128 (skip-chars-forward " \t0-9") | |
1129 (cond ((setq matching-beg (f90-looking-at-program-block-start)) | |
1130 (setq count (1- count))) | |
1131 ((f90-looking-at-program-block-end) | |
1132 (setq count (1+ count))))) | |
10612 | 1133 (beginning-of-line) |
1134 (if (zerop count) | |
1135 matching-beg | |
45066
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
1136 (message "No beginning found.") |
10612 | 1137 nil))) |
1138 | |
1139 (defun f90-end-of-subprogram () | |
45526
fcfb7bc58212
(f90-previous-block, f90-next-block): New names (and slightly changed
Glenn Morris <rgm@gnu.org>
parents:
45497
diff
changeset
|
1140 "Move point to the end of the current subprogram. |
45066
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
1141 Return (TYPE NAME), or nil if not found." |
10612 | 1142 (interactive) |
50647
5773e914b2ed
(f90-font-lock-keywords-2): Use override for
Glenn Morris <rgm@gnu.org>
parents:
50616
diff
changeset
|
1143 (let ((case-fold-search t) |
5773e914b2ed
(f90-font-lock-keywords-2): Use override for
Glenn Morris <rgm@gnu.org>
parents:
50616
diff
changeset
|
1144 (count 1) |
5773e914b2ed
(f90-font-lock-keywords-2): Use override for
Glenn Morris <rgm@gnu.org>
parents:
50616
diff
changeset
|
1145 matching-end) |
10612 | 1146 (end-of-line) |
45526
fcfb7bc58212
(f90-previous-block, f90-next-block): New names (and slightly changed
Glenn Morris <rgm@gnu.org>
parents:
45497
diff
changeset
|
1147 (while (and (> count 0) |
10612 | 1148 (re-search-forward f90-program-block-re nil 'move)) |
45076 | 1149 (beginning-of-line) |
1150 (skip-chars-forward " \t0-9") | |
10612 | 1151 (cond ((f90-looking-at-program-block-start) |
45076 | 1152 (setq count (1+ count))) |
10612 | 1153 ((setq matching-end (f90-looking-at-program-block-end)) |
45076 | 1154 (setq count (1- count)))) |
10612 | 1155 (end-of-line)) |
45497
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1156 ;; This means f90-end-of-subprogram followed by f90-start-of-subprogram |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1157 ;; has a net non-zero effect, which seems odd. |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1158 ;;; (forward-line 1) |
10612 | 1159 (if (zerop count) |
1160 matching-end | |
1161 (message "No end found.") | |
1162 nil))) | |
1163 | |
45497
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1164 |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1165 (defun f90-end-of-block (&optional num) |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1166 "Move point forward to the end of the current code block. |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1167 With optional argument NUM, go forward that many balanced blocks. |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1168 If NUM is negative, go backward to the start of a block. |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1169 Checks for consistency of block types and labels (if present), |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1170 and completes outermost block if necessary." |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1171 (interactive "p") |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1172 (if (and num (< num 0)) (f90-beginning-of-block (- num))) |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1173 (let ((f90-smart-end nil) ; for the final `f90-match-end' |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1174 (case-fold-search t) |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1175 (count (or num 1)) |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1176 start-list start-this start-type start-label end-type end-label) |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1177 (if (interactive-p) (push-mark (point) t)) |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1178 (end-of-line) ; probably want this |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1179 (while (and (> count 0) (re-search-forward f90-blocks-re nil 'move)) |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1180 (beginning-of-line) |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1181 (skip-chars-forward " \t0-9") |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1182 (cond ((or (f90-in-string) (f90-in-comment))) |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1183 ((setq start-this |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1184 (or |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1185 (f90-looking-at-do) |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1186 (f90-looking-at-select-case) |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1187 (f90-looking-at-type-like) |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1188 (f90-looking-at-program-block-start) |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1189 (f90-looking-at-if-then) |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1190 (f90-looking-at-where-or-forall))) |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1191 (setq start-list (cons start-this start-list) ; not add-to-list! |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1192 count (1+ count))) |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1193 ((looking-at (concat "end[ \t]*" f90-blocks-re |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1194 "[ \t]*\\(\\sw+\\)?")) |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1195 (setq end-type (match-string 1) |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1196 end-label (match-string 2) |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1197 count (1- count)) |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1198 ;; Check any internal blocks. |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1199 (when start-list |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1200 (setq start-this (car start-list) |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1201 start-list (cdr start-list) |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1202 start-type (car start-this) |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1203 start-label (cadr start-this)) |
50610
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1204 (or (f90-equal-symbols start-type end-type) |
45497
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1205 (error "End type `%s' does not match start type `%s'" |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1206 end-type start-type)) |
50610
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1207 (or (f90-equal-symbols start-label end-label) |
45497
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1208 (error "End label `%s' does not match start label `%s'" |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1209 end-label start-label))))) |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1210 (end-of-line)) |
45526
fcfb7bc58212
(f90-previous-block, f90-next-block): New names (and slightly changed
Glenn Morris <rgm@gnu.org>
parents:
45497
diff
changeset
|
1211 (if (> count 0) (error "Missing block end")) |
45497
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1212 ;; Check outermost block. |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1213 (if (interactive-p) |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1214 (save-excursion |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1215 (beginning-of-line) |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1216 (skip-chars-forward " \t0-9") |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1217 (f90-match-end))))) |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1218 |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1219 (defun f90-beginning-of-block (&optional num) |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1220 "Move point backwards to the start of the current code block. |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1221 With optional argument NUM, go backward that many balanced blocks. |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1222 If NUM is negative, go forward to the end of a block. |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1223 Checks for consistency of block types and labels (if present). |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1224 Does not check the outermost block, because it may be incomplete." |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1225 (interactive "p") |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1226 (if (and num (< num 0)) (f90-end-of-block (- num))) |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1227 (let ((case-fold-search t) |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1228 (count (or num 1)) |
50610
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1229 end-list end-this end-type end-label |
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1230 start-this start-type start-label) |
45497
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1231 (if (interactive-p) (push-mark (point) t)) |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1232 (beginning-of-line) ; probably want this |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1233 (while (and (> count 0) (re-search-backward f90-blocks-re nil 'move)) |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1234 (beginning-of-line) |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1235 (skip-chars-forward " \t0-9") |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1236 (cond ((or (f90-in-string) (f90-in-comment))) |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1237 ((looking-at (concat "end[ \t]*" f90-blocks-re |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1238 "[ \t]*\\(\\sw+\\)?")) |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1239 (setq end-list (cons (list (match-string 1) (match-string 2)) |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1240 end-list) |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1241 count (1+ count))) |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1242 ((setq start-this |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1243 (or |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1244 (f90-looking-at-do) |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1245 (f90-looking-at-select-case) |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1246 (f90-looking-at-type-like) |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1247 (f90-looking-at-program-block-start) |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1248 (f90-looking-at-if-then) |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1249 (f90-looking-at-where-or-forall))) |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1250 (setq start-type (car start-this) |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1251 start-label (cadr start-this) |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1252 count (1- count)) |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1253 ;; Check any internal blocks. |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1254 (when end-list |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1255 (setq end-this (car end-list) |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1256 end-list (cdr end-list) |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1257 end-type (car end-this) |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1258 end-label (cadr end-this)) |
50610
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1259 (or (f90-equal-symbols start-type end-type) |
45497
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1260 (error "Start type `%s' does not match end type `%s'" |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1261 start-type end-type)) |
50610
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1262 (or (f90-equal-symbols start-label end-label) |
45497
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1263 (error "Start label `%s' does not match end label `%s'" |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1264 start-label end-label)))))) |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1265 (if (> count 0) (error "Missing block start")))) |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1266 |
45526
fcfb7bc58212
(f90-previous-block, f90-next-block): New names (and slightly changed
Glenn Morris <rgm@gnu.org>
parents:
45497
diff
changeset
|
1267 (defun f90-next-block (&optional num) |
fcfb7bc58212
(f90-previous-block, f90-next-block): New names (and slightly changed
Glenn Morris <rgm@gnu.org>
parents:
45497
diff
changeset
|
1268 "Move point forward to the next end or start of a code block. |
fcfb7bc58212
(f90-previous-block, f90-next-block): New names (and slightly changed
Glenn Morris <rgm@gnu.org>
parents:
45497
diff
changeset
|
1269 With optional argument NUM, go forward that many blocks. |
fcfb7bc58212
(f90-previous-block, f90-next-block): New names (and slightly changed
Glenn Morris <rgm@gnu.org>
parents:
45497
diff
changeset
|
1270 If NUM is negative, go backwards. |
fcfb7bc58212
(f90-previous-block, f90-next-block): New names (and slightly changed
Glenn Morris <rgm@gnu.org>
parents:
45497
diff
changeset
|
1271 A block is a subroutine, if-endif, etc." |
45497
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1272 (interactive "p") |
45526
fcfb7bc58212
(f90-previous-block, f90-next-block): New names (and slightly changed
Glenn Morris <rgm@gnu.org>
parents:
45497
diff
changeset
|
1273 (let ((case-fold-search t) |
fcfb7bc58212
(f90-previous-block, f90-next-block): New names (and slightly changed
Glenn Morris <rgm@gnu.org>
parents:
45497
diff
changeset
|
1274 (count (if num (abs num) 1))) |
fcfb7bc58212
(f90-previous-block, f90-next-block): New names (and slightly changed
Glenn Morris <rgm@gnu.org>
parents:
45497
diff
changeset
|
1275 (while (and (> count 0) |
fcfb7bc58212
(f90-previous-block, f90-next-block): New names (and slightly changed
Glenn Morris <rgm@gnu.org>
parents:
45497
diff
changeset
|
1276 (if (> num 0) (re-search-forward f90-blocks-re nil 'move) |
fcfb7bc58212
(f90-previous-block, f90-next-block): New names (and slightly changed
Glenn Morris <rgm@gnu.org>
parents:
45497
diff
changeset
|
1277 (re-search-backward f90-blocks-re nil 'move))) |
45497
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1278 (beginning-of-line) |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1279 (skip-chars-forward " \t0-9") |
45526
fcfb7bc58212
(f90-previous-block, f90-next-block): New names (and slightly changed
Glenn Morris <rgm@gnu.org>
parents:
45497
diff
changeset
|
1280 (cond ((or (f90-in-string) (f90-in-comment))) |
fcfb7bc58212
(f90-previous-block, f90-next-block): New names (and slightly changed
Glenn Morris <rgm@gnu.org>
parents:
45497
diff
changeset
|
1281 ((or |
fcfb7bc58212
(f90-previous-block, f90-next-block): New names (and slightly changed
Glenn Morris <rgm@gnu.org>
parents:
45497
diff
changeset
|
1282 (looking-at "end[ \t]*") |
fcfb7bc58212
(f90-previous-block, f90-next-block): New names (and slightly changed
Glenn Morris <rgm@gnu.org>
parents:
45497
diff
changeset
|
1283 (f90-looking-at-do) |
fcfb7bc58212
(f90-previous-block, f90-next-block): New names (and slightly changed
Glenn Morris <rgm@gnu.org>
parents:
45497
diff
changeset
|
1284 (f90-looking-at-select-case) |
fcfb7bc58212
(f90-previous-block, f90-next-block): New names (and slightly changed
Glenn Morris <rgm@gnu.org>
parents:
45497
diff
changeset
|
1285 (f90-looking-at-type-like) |
fcfb7bc58212
(f90-previous-block, f90-next-block): New names (and slightly changed
Glenn Morris <rgm@gnu.org>
parents:
45497
diff
changeset
|
1286 (f90-looking-at-program-block-start) |
fcfb7bc58212
(f90-previous-block, f90-next-block): New names (and slightly changed
Glenn Morris <rgm@gnu.org>
parents:
45497
diff
changeset
|
1287 (f90-looking-at-if-then) |
fcfb7bc58212
(f90-previous-block, f90-next-block): New names (and slightly changed
Glenn Morris <rgm@gnu.org>
parents:
45497
diff
changeset
|
1288 (f90-looking-at-where-or-forall)) |
fcfb7bc58212
(f90-previous-block, f90-next-block): New names (and slightly changed
Glenn Morris <rgm@gnu.org>
parents:
45497
diff
changeset
|
1289 (setq count (1- count)))) |
fcfb7bc58212
(f90-previous-block, f90-next-block): New names (and slightly changed
Glenn Morris <rgm@gnu.org>
parents:
45497
diff
changeset
|
1290 (if (> num 0) (end-of-line) |
fcfb7bc58212
(f90-previous-block, f90-next-block): New names (and slightly changed
Glenn Morris <rgm@gnu.org>
parents:
45497
diff
changeset
|
1291 (beginning-of-line))))) |
45497
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1292 |
45526
fcfb7bc58212
(f90-previous-block, f90-next-block): New names (and slightly changed
Glenn Morris <rgm@gnu.org>
parents:
45497
diff
changeset
|
1293 |
fcfb7bc58212
(f90-previous-block, f90-next-block): New names (and slightly changed
Glenn Morris <rgm@gnu.org>
parents:
45497
diff
changeset
|
1294 (defun f90-previous-block (&optional num) |
fcfb7bc58212
(f90-previous-block, f90-next-block): New names (and slightly changed
Glenn Morris <rgm@gnu.org>
parents:
45497
diff
changeset
|
1295 "Move point backward to the previous end or start of a code block. |
fcfb7bc58212
(f90-previous-block, f90-next-block): New names (and slightly changed
Glenn Morris <rgm@gnu.org>
parents:
45497
diff
changeset
|
1296 With optional argument NUM, go backward that many blocks. |
fcfb7bc58212
(f90-previous-block, f90-next-block): New names (and slightly changed
Glenn Morris <rgm@gnu.org>
parents:
45497
diff
changeset
|
1297 If NUM is negative, go forwards. |
fcfb7bc58212
(f90-previous-block, f90-next-block): New names (and slightly changed
Glenn Morris <rgm@gnu.org>
parents:
45497
diff
changeset
|
1298 A block is a subroutine, if-endif, etc." |
45497
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1299 (interactive "p") |
45526
fcfb7bc58212
(f90-previous-block, f90-next-block): New names (and slightly changed
Glenn Morris <rgm@gnu.org>
parents:
45497
diff
changeset
|
1300 (f90-next-block (- (or num 1)))) |
45497
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1301 |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1302 |
10612 | 1303 (defun f90-mark-subprogram () |
50597
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
1304 "Put mark at end of F90 subprogram, point at beginning, push mark." |
10612 | 1305 (interactive) |
1306 (let ((pos (point)) program) | |
1307 (f90-end-of-subprogram) | |
46993
c4e4658185e3
eval-when-compile a few defvars to quieten the byte-compiler.
Glenn Morris <rgm@gnu.org>
parents:
46796
diff
changeset
|
1308 (push-mark) |
10612 | 1309 (goto-char pos) |
1310 (setq program (f90-beginning-of-subprogram)) | |
47010
dd3a10c87fe8
(f90-xemacs-flag, f90-xemacs-menu, f90-menu-bar-menu, f90-change-case-menu)
Glenn Morris <rgm@gnu.org>
parents:
46993
diff
changeset
|
1311 (if (fboundp 'zmacs-activate-region) |
46993
c4e4658185e3
eval-when-compile a few defvars to quieten the byte-compiler.
Glenn Morris <rgm@gnu.org>
parents:
46796
diff
changeset
|
1312 (zmacs-activate-region) |
44942
972dc81abf82
(f90-xemacs-flag): New variable to put the test for Emacs flavor in one
Glenn Morris <rgm@gnu.org>
parents:
44866
diff
changeset
|
1313 (setq mark-active t |
46993
c4e4658185e3
eval-when-compile a few defvars to quieten the byte-compiler.
Glenn Morris <rgm@gnu.org>
parents:
46796
diff
changeset
|
1314 deactivate-mark nil)) |
10612 | 1315 program)) |
1316 | |
1317 (defun f90-comment-region (beg-region end-region) | |
1318 "Comment/uncomment every line in the region. | |
44990
8412bb92c791
Add/change doc strings for many in-line functions.
Glenn Morris <rgm@gnu.org>
parents:
44950
diff
changeset
|
1319 Insert the variable `f90-comment-region' at the start of every line |
8412bb92c791
Add/change doc strings for many in-line functions.
Glenn Morris <rgm@gnu.org>
parents:
44950
diff
changeset
|
1320 in the region, or, if already present, remove it." |
10612 | 1321 (interactive "*r") |
50610
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1322 (let ((end (copy-marker end-region))) |
10612 | 1323 (goto-char beg-region) |
1324 (beginning-of-line) | |
1325 (if (looking-at (regexp-quote f90-comment-region)) | |
1326 (delete-region (point) (match-end 0)) | |
1327 (insert f90-comment-region)) | |
45076 | 1328 (while (and (zerop (forward-line 1)) |
50610
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1329 (< (point) end)) |
10612 | 1330 (if (looking-at (regexp-quote f90-comment-region)) |
1331 (delete-region (point) (match-end 0)) | |
1332 (insert f90-comment-region))) | |
1333 (set-marker end nil))) | |
1334 | |
1335 (defun f90-indent-line (&optional no-update) | |
44866
582f083ed579
General tidy-up of commentary and some doc strings.
Glenn Morris <rgm@gnu.org>
parents:
44825
diff
changeset
|
1336 "Indent current line as F90 code. |
582f083ed579
General tidy-up of commentary and some doc strings.
Glenn Morris <rgm@gnu.org>
parents:
44825
diff
changeset
|
1337 Unless optional argument NO-UPDATE is non-nil, call `f90-update-line' |
582f083ed579
General tidy-up of commentary and some doc strings.
Glenn Morris <rgm@gnu.org>
parents:
44825
diff
changeset
|
1338 after indenting." |
50597
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
1339 (interactive "*P") |
50610
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1340 (let ((case-fold-search t) |
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1341 (pos (point-marker)) |
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1342 indent no-line-number) |
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1343 (beginning-of-line) ; digits after & \n are not line-nos |
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1344 (if (not (save-excursion (and (f90-previous-statement) |
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1345 (f90-line-continued)))) |
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1346 (f90-indent-line-no) |
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1347 (setq no-line-number t) |
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1348 (skip-chars-forward " \t")) |
10612 | 1349 (if (looking-at "!") |
1350 (setq indent (f90-comment-indent)) | |
50610
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1351 (and f90-smart-end (looking-at "end") |
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1352 (f90-match-end)) |
10612 | 1353 (setq indent (f90-calculate-indent))) |
50610
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1354 (or (= indent (current-column)) |
45076 | 1355 (f90-indent-to indent no-line-number)) |
10612 | 1356 ;; If initial point was within line's indentation, |
1357 ;; position after the indentation. Else stay at same point in text. | |
50610
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1358 (and (< (point) pos) |
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1359 (goto-char pos)) |
44997 | 1360 (if auto-fill-function |
50647
5773e914b2ed
(f90-font-lock-keywords-2): Use override for
Glenn Morris <rgm@gnu.org>
parents:
50616
diff
changeset
|
1361 ;; GM NO-UPDATE not honoured, since this calls f90-update-line. |
5773e914b2ed
(f90-font-lock-keywords-2): Use override for
Glenn Morris <rgm@gnu.org>
parents:
50616
diff
changeset
|
1362 (f90-do-auto-fill) |
50610
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1363 (or no-update (f90-update-line))) |
10612 | 1364 (set-marker pos nil))) |
1365 | |
1366 (defun f90-indent-new-line () | |
50597
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
1367 "Re-indent current line, insert a newline and indent the newline. |
44866
582f083ed579
General tidy-up of commentary and some doc strings.
Glenn Morris <rgm@gnu.org>
parents:
44825
diff
changeset
|
1368 An abbrev before point is expanded if the variable `abbrev-mode' is non-nil. |
10612 | 1369 If run in the middle of a line, the line is not broken." |
50597
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
1370 (interactive "*") |
50610
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1371 (if abbrev-mode (expand-abbrev)) |
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1372 (beginning-of-line) ; reindent where likely to be needed |
50647
5773e914b2ed
(f90-font-lock-keywords-2): Use override for
Glenn Morris <rgm@gnu.org>
parents:
50616
diff
changeset
|
1373 (f90-indent-line) ; calls indent-line-no, update-line |
50610
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1374 (end-of-line) |
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1375 (delete-horizontal-space) ; destroy trailing whitespace |
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1376 (let ((string (f90-in-string)) |
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1377 (cont (f90-line-continued))) |
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1378 (and string (not cont) (insert "&")) |
10612 | 1379 (newline) |
50610
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1380 (if (or string (and cont f90-beginning-ampersand)) (insert "&"))) |
50647
5773e914b2ed
(f90-font-lock-keywords-2): Use override for
Glenn Morris <rgm@gnu.org>
parents:
50616
diff
changeset
|
1381 (f90-indent-line 'no-update)) ; nothing to update |
10612 | 1382 |
1383 | |
1384 (defun f90-indent-region (beg-region end-region) | |
1385 "Indent every line in region by forward parsing." | |
1386 (interactive "*r") | |
50610
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1387 (let ((end-region-mark (copy-marker end-region)) |
45076 | 1388 (save-point (point-marker)) |
50610
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1389 block-list ind-lev ind-curr ind-b cont struct beg-struct end-struct) |
10612 | 1390 (goto-char beg-region) |
45066
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
1391 ;; First find a line which is not a continuation line or comment. |
10612 | 1392 (beginning-of-line) |
13064 | 1393 (while (and (looking-at "[ \t]*[0-9]*\\(!\\|#\\|[ \t]*$\\)") |
10612 | 1394 (progn (f90-indent-line 'no-update) |
1395 (zerop (forward-line 1))) | |
1396 (< (point) end-region-mark))) | |
1397 (setq cont (f90-present-statement-cont)) | |
1398 (while (and (or (eq cont 'middle) (eq cont 'end)) | |
1399 (f90-previous-statement)) | |
1400 (setq cont (f90-present-statement-cont))) | |
45066
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
1401 ;; Process present line for beginning of block. |
10612 | 1402 (setq f90-cache-position (point)) |
1403 (f90-indent-line 'no-update) | |
45076 | 1404 (setq ind-lev (f90-current-indentation) |
1405 ind-curr ind-lev) | |
1406 (beginning-of-line) | |
1407 (skip-chars-forward " \t0-9") | |
1408 (setq struct nil | |
1409 ind-b (cond ((setq struct (f90-looking-at-do)) f90-do-indent) | |
10612 | 1410 ((or (setq struct (f90-looking-at-if-then)) |
1411 (setq struct (f90-looking-at-select-case)) | |
1412 (setq struct (f90-looking-at-where-or-forall)) | |
1413 (looking-at f90-else-like-re)) | |
1414 f90-if-indent) | |
1415 ((setq struct (f90-looking-at-type-like)) | |
1416 f90-type-indent) | |
47178
7a1530aeef3f
Remove (eval-when-compile) for free variables.
Glenn Morris <rgm@gnu.org>
parents:
47012
diff
changeset
|
1417 ((or (setq struct (f90-looking-at-program-block-start)) |
7a1530aeef3f
Remove (eval-when-compile) for free variables.
Glenn Morris <rgm@gnu.org>
parents:
47012
diff
changeset
|
1418 (looking-at "contains[ \t]*\\($\\|!\\)")) |
10612 | 1419 f90-program-indent))) |
1420 (if ind-b (setq ind-lev (+ ind-lev ind-b))) | |
1421 (if struct (setq block-list (cons struct block-list))) | |
1422 (while (and (f90-line-continued) (zerop (forward-line 1)) | |
1423 (< (point) end-region-mark)) | |
45066
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
1424 (if (looking-at "[ \t]*!") |
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
1425 (f90-indent-to (f90-comment-indent)) |
50610
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1426 (or (= (current-indentation) |
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1427 (+ ind-curr f90-continuation-indent)) |
45066
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
1428 (f90-indent-to (+ ind-curr f90-continuation-indent) 'no-line-no)))) |
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
1429 ;; Process all following lines. |
44990
8412bb92c791
Add/change doc strings for many in-line functions.
Glenn Morris <rgm@gnu.org>
parents:
44950
diff
changeset
|
1430 (while (and (zerop (forward-line 1)) (< (point) end-region-mark)) |
10612 | 1431 (beginning-of-line) |
1432 (f90-indent-line-no) | |
1433 (setq f90-cache-position (point)) | |
1434 (cond ((looking-at "[ \t]*$") (setq ind-curr 0)) | |
1435 ((looking-at "[ \t]*#") (setq ind-curr 0)) | |
1436 ((looking-at "!") (setq ind-curr (f90-comment-indent))) | |
1437 ((f90-no-block-limit) (setq ind-curr ind-lev)) | |
1438 ((looking-at f90-else-like-re) (setq ind-curr | |
1439 (- ind-lev f90-if-indent))) | |
1440 ((looking-at "contains[ \t]*\\($\\|!\\)") | |
1441 (setq ind-curr (- ind-lev f90-program-indent))) | |
1442 ((setq ind-b | |
1443 (cond ((setq struct (f90-looking-at-do)) f90-do-indent) | |
1444 ((or (setq struct (f90-looking-at-if-then)) | |
1445 (setq struct (f90-looking-at-select-case)) | |
1446 (setq struct (f90-looking-at-where-or-forall))) | |
1447 f90-if-indent) | |
1448 ((setq struct (f90-looking-at-type-like)) | |
1449 f90-type-indent) | |
1450 ((setq struct (f90-looking-at-program-block-start)) | |
1451 f90-program-indent))) | |
1452 (setq ind-curr ind-lev) | |
1453 (if ind-b (setq ind-lev (+ ind-lev ind-b))) | |
1454 (setq block-list (cons struct block-list))) | |
1455 ((setq end-struct (f90-looking-at-program-block-end)) | |
1456 (setq beg-struct (car block-list) | |
1457 block-list (cdr block-list)) | |
44997 | 1458 (if f90-smart-end |
10612 | 1459 (save-excursion |
45066
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
1460 (f90-block-match (car beg-struct) (car (cdr beg-struct)) |
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
1461 (car end-struct) (car (cdr end-struct))))) |
10612 | 1462 (setq ind-b |
1463 (cond ((looking-at f90-end-if-re) f90-if-indent) | |
1464 ((looking-at "end[ \t]*do\\>") f90-do-indent) | |
1465 ((looking-at f90-end-type-re) f90-type-indent) | |
1466 ((f90-looking-at-program-block-end) | |
1467 f90-program-indent))) | |
1468 (if ind-b (setq ind-lev (- ind-lev ind-b))) | |
1469 (setq ind-curr ind-lev)) | |
1470 (t (setq ind-curr ind-lev))) | |
45066
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
1471 ;; Do the indentation if necessary. |
50610
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1472 (or (= ind-curr (current-column)) |
10612 | 1473 (f90-indent-to ind-curr)) |
1474 (while (and (f90-line-continued) (zerop (forward-line 1)) | |
1475 (< (point) end-region-mark)) | |
45066
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
1476 (if (looking-at "[ \t]*!") |
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
1477 (f90-indent-to (f90-comment-indent)) |
50610
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1478 (or (= (current-indentation) |
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1479 (+ ind-curr f90-continuation-indent)) |
45066
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
1480 (f90-indent-to |
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
1481 (+ ind-curr f90-continuation-indent) 'no-line-no))))) |
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
1482 ;; Restore point, etc. |
10612 | 1483 (setq f90-cache-position nil) |
1484 (goto-char save-point) | |
1485 (set-marker end-region-mark nil) | |
1486 (set-marker save-point nil) | |
47010
dd3a10c87fe8
(f90-xemacs-flag, f90-xemacs-menu, f90-menu-bar-menu, f90-change-case-menu)
Glenn Morris <rgm@gnu.org>
parents:
46993
diff
changeset
|
1487 (if (fboundp 'zmacs-deactivate-region) |
46993
c4e4658185e3
eval-when-compile a few defvars to quieten the byte-compiler.
Glenn Morris <rgm@gnu.org>
parents:
46796
diff
changeset
|
1488 (zmacs-deactivate-region) |
10612 | 1489 (deactivate-mark)))) |
1490 | |
1491 (defun f90-indent-subprogram () | |
45066
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
1492 "Properly indent the subprogram containing point." |
50597
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
1493 (interactive "*") |
10612 | 1494 (save-excursion |
45076 | 1495 (let ((program (f90-mark-subprogram))) |
10612 | 1496 (if program |
1497 (progn | |
14533
2eb6c03dcb86
(f90-indent-subprogram): Fix message.
Karl Heuer <kwzh@gnu.org>
parents:
14526
diff
changeset
|
1498 (message "Indenting %s %s..." |
14526
e2db2835838d
(f90-indent-subprogram, f90-match-end): Pass proper format string to message.
Richard M. Stallman <rms@gnu.org>
parents:
14169
diff
changeset
|
1499 (car program) (car (cdr program))) |
44341
9c7859045cf8
(f90-indent-subprogram): Braino (missing arg).
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44340
diff
changeset
|
1500 (indent-region (point) (mark) nil) |
14533
2eb6c03dcb86
(f90-indent-subprogram): Fix message.
Karl Heuer <kwzh@gnu.org>
parents:
14526
diff
changeset
|
1501 (message "Indenting %s %s...done" |
14526
e2db2835838d
(f90-indent-subprogram, f90-match-end): Pass proper format string to message.
Richard M. Stallman <rms@gnu.org>
parents:
14169
diff
changeset
|
1502 (car program) (car (cdr program)))) |
14533
2eb6c03dcb86
(f90-indent-subprogram): Fix message.
Karl Heuer <kwzh@gnu.org>
parents:
14526
diff
changeset
|
1503 (message "Indenting the whole file...") |
44341
9c7859045cf8
(f90-indent-subprogram): Braino (missing arg).
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
44340
diff
changeset
|
1504 (indent-region (point) (mark) nil) |
14533
2eb6c03dcb86
(f90-indent-subprogram): Fix message.
Karl Heuer <kwzh@gnu.org>
parents:
14526
diff
changeset
|
1505 (message "Indenting the whole file...done"))))) |
10612 | 1506 |
1507 (defun f90-break-line (&optional no-update) | |
44866
582f083ed579
General tidy-up of commentary and some doc strings.
Glenn Morris <rgm@gnu.org>
parents:
44825
diff
changeset
|
1508 "Break line at point, insert continuation marker(s) and indent. |
582f083ed579
General tidy-up of commentary and some doc strings.
Glenn Morris <rgm@gnu.org>
parents:
44825
diff
changeset
|
1509 Unless in a string or comment, or if the optional argument NO-UPDATE |
582f083ed579
General tidy-up of commentary and some doc strings.
Glenn Morris <rgm@gnu.org>
parents:
44825
diff
changeset
|
1510 is non-nil, call `f90-update-line' after inserting the continuation marker." |
50597
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
1511 (interactive "*P") |
45372
ecefa899fdb3
(f90-get-present-comment-type): Fix bug introduced in version 1.46.
Glenn Morris <rgm@gnu.org>
parents:
45370
diff
changeset
|
1512 (cond ((f90-in-string) |
ecefa899fdb3
(f90-get-present-comment-type): Fix bug introduced in version 1.46.
Glenn Morris <rgm@gnu.org>
parents:
45370
diff
changeset
|
1513 (insert "&\n&")) |
ecefa899fdb3
(f90-get-present-comment-type): Fix bug introduced in version 1.46.
Glenn Morris <rgm@gnu.org>
parents:
45370
diff
changeset
|
1514 ((f90-in-comment) |
ecefa899fdb3
(f90-get-present-comment-type): Fix bug introduced in version 1.46.
Glenn Morris <rgm@gnu.org>
parents:
45370
diff
changeset
|
1515 (insert "\n" (f90-get-present-comment-type))) |
ecefa899fdb3
(f90-get-present-comment-type): Fix bug introduced in version 1.46.
Glenn Morris <rgm@gnu.org>
parents:
45370
diff
changeset
|
1516 (t (insert "&") |
ecefa899fdb3
(f90-get-present-comment-type): Fix bug introduced in version 1.46.
Glenn Morris <rgm@gnu.org>
parents:
45370
diff
changeset
|
1517 (or no-update (f90-update-line)) |
ecefa899fdb3
(f90-get-present-comment-type): Fix bug introduced in version 1.46.
Glenn Morris <rgm@gnu.org>
parents:
45370
diff
changeset
|
1518 (newline 1) |
ecefa899fdb3
(f90-get-present-comment-type): Fix bug introduced in version 1.46.
Glenn Morris <rgm@gnu.org>
parents:
45370
diff
changeset
|
1519 (if f90-beginning-ampersand (insert "&")))) |
44340
93314c938a62
(f90-keywords-re, f90-keywords-level-3-re)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42442
diff
changeset
|
1520 (indent-according-to-mode)) |
44997 | 1521 |
10612 | 1522 (defun f90-find-breakpoint () |
44866
582f083ed579
General tidy-up of commentary and some doc strings.
Glenn Morris <rgm@gnu.org>
parents:
44825
diff
changeset
|
1523 "From `fill-column', search backward for break-delimiter." |
50610
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1524 (re-search-backward f90-break-delimiters (line-beginning-position)) |
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1525 (if (not f90-break-before-delimiters) |
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1526 (forward-char (if (looking-at f90-no-break-re) 2 1)) |
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1527 (backward-char) |
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1528 (or (looking-at f90-no-break-re) |
50616
2e4300c14e95
(f90-looking-at-do, f90-find-breakpoint): Fix previous change.
Glenn Morris <rgm@gnu.org>
parents:
50610
diff
changeset
|
1529 (forward-char)))) |
10612 | 1530 |
1531 (defun f90-do-auto-fill () | |
44990
8412bb92c791
Add/change doc strings for many in-line functions.
Glenn Morris <rgm@gnu.org>
parents:
44950
diff
changeset
|
1532 "Break line if non-white characters beyond `fill-column'. |
8412bb92c791
Add/change doc strings for many in-line functions.
Glenn Morris <rgm@gnu.org>
parents:
44950
diff
changeset
|
1533 Update keyword case first." |
50597
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
1534 (interactive "*") |
45066
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
1535 ;; Break line before or after last delimiter (non-word char) if |
15863
f11b2bfc1275
new version from Torbj?Einarsson.
Erik Naggum <erik@naggum.no>
parents:
15244
diff
changeset
|
1536 ;; position is beyond fill-column. |
45066
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
1537 ;; Will not break **, //, or => (as specified by f90-no-break-re). |
16444
f32ed369901c
(f90-no-block-limit): Fixed bug for indentation of
Richard M. Stallman <rms@gnu.org>
parents:
15863
diff
changeset
|
1538 (f90-update-line) |
45972
50b1541ec981
(f90-do-auto-fill): Make it respect `comment-auto-fill-only-comments'.
Glenn Morris <rgm@gnu.org>
parents:
45912
diff
changeset
|
1539 ;; Need this for `f90-electric-insert' and other f90- callers. |
50b1541ec981
(f90-do-auto-fill): Make it respect `comment-auto-fill-only-comments'.
Glenn Morris <rgm@gnu.org>
parents:
45912
diff
changeset
|
1540 (unless (and (boundp 'comment-auto-fill-only-comments) |
50b1541ec981
(f90-do-auto-fill): Make it respect `comment-auto-fill-only-comments'.
Glenn Morris <rgm@gnu.org>
parents:
45912
diff
changeset
|
1541 comment-auto-fill-only-comments |
50b1541ec981
(f90-do-auto-fill): Make it respect `comment-auto-fill-only-comments'.
Glenn Morris <rgm@gnu.org>
parents:
45912
diff
changeset
|
1542 (not (f90-in-comment))) |
50b1541ec981
(f90-do-auto-fill): Make it respect `comment-auto-fill-only-comments'.
Glenn Morris <rgm@gnu.org>
parents:
45912
diff
changeset
|
1543 (while (> (current-column) fill-column) |
50b1541ec981
(f90-do-auto-fill): Make it respect `comment-auto-fill-only-comments'.
Glenn Morris <rgm@gnu.org>
parents:
45912
diff
changeset
|
1544 (let ((pos-mark (point-marker))) |
50b1541ec981
(f90-do-auto-fill): Make it respect `comment-auto-fill-only-comments'.
Glenn Morris <rgm@gnu.org>
parents:
45912
diff
changeset
|
1545 (move-to-column fill-column) |
50b1541ec981
(f90-do-auto-fill): Make it respect `comment-auto-fill-only-comments'.
Glenn Morris <rgm@gnu.org>
parents:
45912
diff
changeset
|
1546 (or (f90-in-string) (f90-find-breakpoint)) |
50b1541ec981
(f90-do-auto-fill): Make it respect `comment-auto-fill-only-comments'.
Glenn Morris <rgm@gnu.org>
parents:
45912
diff
changeset
|
1547 (f90-break-line) |
50b1541ec981
(f90-do-auto-fill): Make it respect `comment-auto-fill-only-comments'.
Glenn Morris <rgm@gnu.org>
parents:
45912
diff
changeset
|
1548 (goto-char pos-mark) |
50b1541ec981
(f90-do-auto-fill): Make it respect `comment-auto-fill-only-comments'.
Glenn Morris <rgm@gnu.org>
parents:
45912
diff
changeset
|
1549 (set-marker pos-mark nil))))) |
15863
f11b2bfc1275
new version from Torbj?Einarsson.
Erik Naggum <erik@naggum.no>
parents:
15244
diff
changeset
|
1550 |
50571
9d10c32adde2
(f90-join-lines): Make it behave more like the standard function
Glenn Morris <rgm@gnu.org>
parents:
50562
diff
changeset
|
1551 (defun f90-join-lines (&optional arg) |
9d10c32adde2
(f90-join-lines): Make it behave more like the standard function
Glenn Morris <rgm@gnu.org>
parents:
50562
diff
changeset
|
1552 "Join current line to previous, fix whitespace, continuation, comments. |
50597
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
1553 With optional argument ARG, join current line to following line. |
50571
9d10c32adde2
(f90-join-lines): Make it behave more like the standard function
Glenn Morris <rgm@gnu.org>
parents:
50562
diff
changeset
|
1554 Like `join-line', but handles F90 syntax." |
9d10c32adde2
(f90-join-lines): Make it behave more like the standard function
Glenn Morris <rgm@gnu.org>
parents:
50562
diff
changeset
|
1555 (interactive "*P") |
9d10c32adde2
(f90-join-lines): Make it behave more like the standard function
Glenn Morris <rgm@gnu.org>
parents:
50562
diff
changeset
|
1556 (beginning-of-line) |
9d10c32adde2
(f90-join-lines): Make it behave more like the standard function
Glenn Morris <rgm@gnu.org>
parents:
50562
diff
changeset
|
1557 (if arg (forward-line 1)) |
9d10c32adde2
(f90-join-lines): Make it behave more like the standard function
Glenn Morris <rgm@gnu.org>
parents:
50562
diff
changeset
|
1558 (when (eq (preceding-char) ?\n) |
9d10c32adde2
(f90-join-lines): Make it behave more like the standard function
Glenn Morris <rgm@gnu.org>
parents:
50562
diff
changeset
|
1559 (skip-chars-forward " \t") |
9d10c32adde2
(f90-join-lines): Make it behave more like the standard function
Glenn Morris <rgm@gnu.org>
parents:
50562
diff
changeset
|
1560 (if (looking-at "\&") (delete-char 1)) |
9d10c32adde2
(f90-join-lines): Make it behave more like the standard function
Glenn Morris <rgm@gnu.org>
parents:
50562
diff
changeset
|
1561 (beginning-of-line) |
9d10c32adde2
(f90-join-lines): Make it behave more like the standard function
Glenn Morris <rgm@gnu.org>
parents:
50562
diff
changeset
|
1562 (delete-region (point) (1- (point))) |
10612 | 1563 (skip-chars-backward " \t") |
50571
9d10c32adde2
(f90-join-lines): Make it behave more like the standard function
Glenn Morris <rgm@gnu.org>
parents:
50562
diff
changeset
|
1564 (and (eq (preceding-char) ?&) (delete-char -1)) |
9d10c32adde2
(f90-join-lines): Make it behave more like the standard function
Glenn Morris <rgm@gnu.org>
parents:
50562
diff
changeset
|
1565 (and (f90-in-comment) |
9d10c32adde2
(f90-join-lines): Make it behave more like the standard function
Glenn Morris <rgm@gnu.org>
parents:
50562
diff
changeset
|
1566 (looking-at "[ \t]*!+") |
9d10c32adde2
(f90-join-lines): Make it behave more like the standard function
Glenn Morris <rgm@gnu.org>
parents:
50562
diff
changeset
|
1567 (replace-match "")) |
9d10c32adde2
(f90-join-lines): Make it behave more like the standard function
Glenn Morris <rgm@gnu.org>
parents:
50562
diff
changeset
|
1568 (or (f90-in-string) |
9d10c32adde2
(f90-join-lines): Make it behave more like the standard function
Glenn Morris <rgm@gnu.org>
parents:
50562
diff
changeset
|
1569 (fixup-whitespace)))) |
10612 | 1570 |
1571 (defun f90-fill-region (beg-region end-region) | |
44990
8412bb92c791
Add/change doc strings for many in-line functions.
Glenn Morris <rgm@gnu.org>
parents:
44950
diff
changeset
|
1572 "Fill every line in region by forward parsing. Join lines if possible." |
10612 | 1573 (interactive "*r") |
50610
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1574 (let ((end-region-mark (copy-marker end-region)) |
45076 | 1575 (go-on t) |
1576 f90-smart-end f90-auto-keyword-case auto-fill-function) | |
10612 | 1577 (goto-char beg-region) |
1578 (while go-on | |
45066
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
1579 ;; Join as much as possible. |
50597
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
1580 (while (progn |
50571
9d10c32adde2
(f90-join-lines): Make it behave more like the standard function
Glenn Morris <rgm@gnu.org>
parents:
50562
diff
changeset
|
1581 (end-of-line) |
9d10c32adde2
(f90-join-lines): Make it behave more like the standard function
Glenn Morris <rgm@gnu.org>
parents:
50562
diff
changeset
|
1582 (skip-chars-backward " \t") |
9d10c32adde2
(f90-join-lines): Make it behave more like the standard function
Glenn Morris <rgm@gnu.org>
parents:
50562
diff
changeset
|
1583 (eq (preceding-char) ?&)) |
9d10c32adde2
(f90-join-lines): Make it behave more like the standard function
Glenn Morris <rgm@gnu.org>
parents:
50562
diff
changeset
|
1584 (f90-join-lines 'forward)) |
45066
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
1585 ;; Chop the line if necessary. |
10612 | 1586 (while (> (save-excursion (end-of-line) (current-column)) |
1587 fill-column) | |
1588 (move-to-column fill-column) | |
16444
f32ed369901c
(f90-no-block-limit): Fixed bug for indentation of
Richard M. Stallman <rms@gnu.org>
parents:
15863
diff
changeset
|
1589 (f90-find-breakpoint) |
f32ed369901c
(f90-no-block-limit): Fixed bug for indentation of
Richard M. Stallman <rms@gnu.org>
parents:
15863
diff
changeset
|
1590 (f90-break-line 'no-update)) |
50610
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1591 (setq go-on (and (< (point) end-region-mark) |
45076 | 1592 (zerop (forward-line 1))) |
1593 f90-cache-position (point))) | |
10612 | 1594 (setq f90-cache-position nil) |
50610
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1595 (set-marker end-region-mark nil) |
47010
dd3a10c87fe8
(f90-xemacs-flag, f90-xemacs-menu, f90-menu-bar-menu, f90-change-case-menu)
Glenn Morris <rgm@gnu.org>
parents:
46993
diff
changeset
|
1596 (if (fboundp 'zmacs-deactivate-region) |
46993
c4e4658185e3
eval-when-compile a few defvars to quieten the byte-compiler.
Glenn Morris <rgm@gnu.org>
parents:
46796
diff
changeset
|
1597 (zmacs-deactivate-region) |
10612 | 1598 (deactivate-mark)))) |
1599 | |
1600 (defun f90-block-match (beg-block beg-name end-block end-name) | |
1601 "Match end-struct with beg-struct and complete end-block if possible. | |
45066
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
1602 BEG-BLOCK is the type of block as indicated at the start (e.g., do). |
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
1603 BEG-NAME is the block start name (may be nil). |
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
1604 END-BLOCK is the type of block as indicated at the end (may be nil). |
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
1605 END-NAME is the block end name (may be nil). |
10612 | 1606 Leave point at the end of line." |
44824
637c10f08055
(f90-get-beg-of-line): Removed and replaced with line-beginning-position.
Glenn Morris <rgm@gnu.org>
parents:
44697
diff
changeset
|
1607 (search-forward "end" (line-end-position)) |
10612 | 1608 (catch 'no-match |
50610
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1609 (if (f90-equal-symbols beg-block end-block) |
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1610 (search-forward end-block) |
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1611 (if end-block |
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1612 (progn |
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1613 (message "END %s does not match %s." end-block beg-block) |
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1614 (end-of-line) |
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1615 (throw 'no-match nil)) |
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1616 (message "Inserting %s." beg-block) |
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1617 (insert (concat " " beg-block)))) |
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1618 (if (f90-equal-symbols beg-name end-name) |
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1619 (and end-name (search-forward end-name)) |
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1620 (cond ((and beg-name (not end-name)) |
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1621 (message "Inserting %s." beg-name) |
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1622 (insert (concat " " beg-name))) |
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1623 ((and beg-name end-name) |
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1624 (message "Replacing %s with %s." end-name beg-name) |
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1625 (search-forward end-name) |
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1626 (replace-match beg-name)) |
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1627 ((and (not beg-name) end-name) |
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1628 (message "Deleting %s." end-name) |
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1629 (search-forward end-name) |
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1630 (replace-match "")))) |
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1631 (or (looking-at "[ \t]*!") (delete-horizontal-space)))) |
10612 | 1632 |
1633 (defun f90-match-end () | |
45066
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
1634 "From an end block statement, find the corresponding block and name." |
10612 | 1635 (interactive) |
50610
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1636 (let ((count 1) |
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1637 (top-of-window (window-start)) |
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1638 (end-point (point)) |
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1639 (case-fold-search t) |
45076 | 1640 matching-beg beg-name end-name beg-block end-block end-struct) |
44944
dbacf99cccc4
Minor reorganization of some code.
Glenn Morris <rgm@gnu.org>
parents:
44943
diff
changeset
|
1641 (when (save-excursion (beginning-of-line) (skip-chars-forward " \t0-9") |
dbacf99cccc4
Minor reorganization of some code.
Glenn Morris <rgm@gnu.org>
parents:
44943
diff
changeset
|
1642 (setq end-struct (f90-looking-at-program-block-end))) |
45076 | 1643 (setq end-block (car end-struct) |
1644 end-name (car (cdr end-struct))) | |
44944
dbacf99cccc4
Minor reorganization of some code.
Glenn Morris <rgm@gnu.org>
parents:
44943
diff
changeset
|
1645 (save-excursion |
dbacf99cccc4
Minor reorganization of some code.
Glenn Morris <rgm@gnu.org>
parents:
44943
diff
changeset
|
1646 (beginning-of-line) |
45370
4055a77b0abb
(f90-match-end): Simplify it a bit.
Glenn Morris <rgm@gnu.org>
parents:
45355
diff
changeset
|
1647 (while (and (> count 0) (re-search-backward f90-blocks-re nil t)) |
45076 | 1648 (beginning-of-line) |
50610
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1649 ;; GM not a line number if continued line. |
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1650 ;;; (skip-chars-forward " \t") |
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1651 ;;; (skip-chars-forward "0-9") |
45076 | 1652 (skip-chars-forward " \t0-9") |
45370
4055a77b0abb
(f90-match-end): Simplify it a bit.
Glenn Morris <rgm@gnu.org>
parents:
45355
diff
changeset
|
1653 (cond ((or (f90-in-string) (f90-in-comment))) |
4055a77b0abb
(f90-match-end): Simplify it a bit.
Glenn Morris <rgm@gnu.org>
parents:
45355
diff
changeset
|
1654 ((setq matching-beg |
45076 | 1655 (or |
1656 (f90-looking-at-do) | |
1657 (f90-looking-at-if-then) | |
1658 (f90-looking-at-where-or-forall) | |
1659 (f90-looking-at-select-case) | |
1660 (f90-looking-at-type-like) | |
1661 (f90-looking-at-program-block-start))) | |
1662 (setq count (1- count))) | |
45370
4055a77b0abb
(f90-match-end): Simplify it a bit.
Glenn Morris <rgm@gnu.org>
parents:
45355
diff
changeset
|
1663 ((looking-at (concat "end[ \t]*" f90-blocks-re)) |
45076 | 1664 (setq count (1+ count))))) |
45370
4055a77b0abb
(f90-match-end): Simplify it a bit.
Glenn Morris <rgm@gnu.org>
parents:
45355
diff
changeset
|
1665 (if (> count 0) |
44944
dbacf99cccc4
Minor reorganization of some code.
Glenn Morris <rgm@gnu.org>
parents:
44943
diff
changeset
|
1666 (message "No matching beginning.") |
dbacf99cccc4
Minor reorganization of some code.
Glenn Morris <rgm@gnu.org>
parents:
44943
diff
changeset
|
1667 (f90-update-line) |
dbacf99cccc4
Minor reorganization of some code.
Glenn Morris <rgm@gnu.org>
parents:
44943
diff
changeset
|
1668 (if (eq f90-smart-end 'blink) |
dbacf99cccc4
Minor reorganization of some code.
Glenn Morris <rgm@gnu.org>
parents:
44943
diff
changeset
|
1669 (if (< (point) top-of-window) |
dbacf99cccc4
Minor reorganization of some code.
Glenn Morris <rgm@gnu.org>
parents:
44943
diff
changeset
|
1670 (message "Matches %s: %s" |
dbacf99cccc4
Minor reorganization of some code.
Glenn Morris <rgm@gnu.org>
parents:
44943
diff
changeset
|
1671 (what-line) |
dbacf99cccc4
Minor reorganization of some code.
Glenn Morris <rgm@gnu.org>
parents:
44943
diff
changeset
|
1672 (buffer-substring |
dbacf99cccc4
Minor reorganization of some code.
Glenn Morris <rgm@gnu.org>
parents:
44943
diff
changeset
|
1673 (line-beginning-position) |
dbacf99cccc4
Minor reorganization of some code.
Glenn Morris <rgm@gnu.org>
parents:
44943
diff
changeset
|
1674 (line-end-position))) |
dbacf99cccc4
Minor reorganization of some code.
Glenn Morris <rgm@gnu.org>
parents:
44943
diff
changeset
|
1675 (sit-for 1))) |
45076 | 1676 (setq beg-block (car matching-beg) |
1677 beg-name (car (cdr matching-beg))) | |
44944
dbacf99cccc4
Minor reorganization of some code.
Glenn Morris <rgm@gnu.org>
parents:
44943
diff
changeset
|
1678 (goto-char end-point) |
dbacf99cccc4
Minor reorganization of some code.
Glenn Morris <rgm@gnu.org>
parents:
44943
diff
changeset
|
1679 (beginning-of-line) |
dbacf99cccc4
Minor reorganization of some code.
Glenn Morris <rgm@gnu.org>
parents:
44943
diff
changeset
|
1680 (f90-block-match beg-block beg-name end-block end-name)))))) |
10612 | 1681 |
1682 (defun f90-insert-end () | |
44866
582f083ed579
General tidy-up of commentary and some doc strings.
Glenn Morris <rgm@gnu.org>
parents:
44825
diff
changeset
|
1683 "Insert a complete end statement matching beginning of present block." |
50597
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
1684 (interactive "*") |
45076 | 1685 (let ((f90-smart-end (or f90-smart-end 'blink))) |
10612 | 1686 (insert "end") |
1687 (f90-indent-new-line))) | |
1688 | |
45066
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
1689 ;; Abbrevs and keywords. |
10612 | 1690 |
1691 (defun f90-abbrev-start () | |
44997 | 1692 "Typing `\\[help-command] or `? lists all the F90 abbrevs. |
10612 | 1693 Any other key combination is executed normally." |
50647
5773e914b2ed
(f90-font-lock-keywords-2): Use override for
Glenn Morris <rgm@gnu.org>
parents:
50616
diff
changeset
|
1694 (interactive "*") |
5773e914b2ed
(f90-font-lock-keywords-2): Use override for
Glenn Morris <rgm@gnu.org>
parents:
50616
diff
changeset
|
1695 (insert last-command-char) |
5773e914b2ed
(f90-font-lock-keywords-2): Use override for
Glenn Morris <rgm@gnu.org>
parents:
50616
diff
changeset
|
1696 (let (char event) |
5773e914b2ed
(f90-font-lock-keywords-2): Use override for
Glenn Morris <rgm@gnu.org>
parents:
50616
diff
changeset
|
1697 (if (fboundp 'next-command-event) ; XEmacs |
5773e914b2ed
(f90-font-lock-keywords-2): Use override for
Glenn Morris <rgm@gnu.org>
parents:
50616
diff
changeset
|
1698 (setq event (next-command-event) |
5773e914b2ed
(f90-font-lock-keywords-2): Use override for
Glenn Morris <rgm@gnu.org>
parents:
50616
diff
changeset
|
1699 char (event-to-character event)) |
5773e914b2ed
(f90-font-lock-keywords-2): Use override for
Glenn Morris <rgm@gnu.org>
parents:
50616
diff
changeset
|
1700 (setq event (read-event) |
5773e914b2ed
(f90-font-lock-keywords-2): Use override for
Glenn Morris <rgm@gnu.org>
parents:
50616
diff
changeset
|
1701 char event)) |
50562
6ee9d94eaca3
(f90-abbrev-start): Only offer help if abbrev-mode is active.
Glenn Morris <rgm@gnu.org>
parents:
49598
diff
changeset
|
1702 ;; Insert char if not equal to `?', or if abbrev-mode is off. |
50647
5773e914b2ed
(f90-font-lock-keywords-2): Use override for
Glenn Morris <rgm@gnu.org>
parents:
50616
diff
changeset
|
1703 (if (and abbrev-mode (or (eq char ??) (eq char help-char))) |
10612 | 1704 (f90-abbrev-help) |
50647
5773e914b2ed
(f90-font-lock-keywords-2): Use override for
Glenn Morris <rgm@gnu.org>
parents:
50616
diff
changeset
|
1705 (setq unread-command-events (list event))))) |
10612 | 1706 |
1707 (defun f90-abbrev-help () | |
1708 "List the currently defined abbrevs in F90 mode." | |
1709 (interactive) | |
1710 (message "Listing abbrev table...") | |
1711 (display-buffer (f90-prepare-abbrev-list-buffer)) | |
1712 (message "Listing abbrev table...done")) | |
1713 | |
1714 (defun f90-prepare-abbrev-list-buffer () | |
45066
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
1715 "Create a buffer listing the F90 mode abbreviations." |
10612 | 1716 (save-excursion |
1717 (set-buffer (get-buffer-create "*Abbrevs*")) | |
1718 (erase-buffer) | |
1719 (insert-abbrev-table-description 'f90-mode-abbrev-table t) | |
1720 (goto-char (point-min)) | |
1721 (set-buffer-modified-p nil) | |
1722 (edit-abbrevs-mode)) | |
1723 (get-buffer-create "*Abbrevs*")) | |
1724 | |
1725 (defun f90-upcase-keywords () | |
1726 "Upcase all F90 keywords in the buffer." | |
50597
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
1727 (interactive "*") |
10612 | 1728 (f90-change-keywords 'upcase-word)) |
1729 | |
1730 (defun f90-capitalize-keywords () | |
1731 "Capitalize all F90 keywords in the buffer." | |
50597
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
1732 (interactive "*") |
10612 | 1733 (f90-change-keywords 'capitalize-word)) |
1734 | |
1735 (defun f90-downcase-keywords () | |
1736 "Downcase all F90 keywords in the buffer." | |
50597
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
1737 (interactive "*") |
10612 | 1738 (f90-change-keywords 'downcase-word)) |
1739 | |
1740 (defun f90-upcase-region-keywords (beg end) | |
1741 "Upcase all F90 keywords in the region." | |
1742 (interactive "*r") | |
1743 (f90-change-keywords 'upcase-word beg end)) | |
1744 | |
1745 (defun f90-capitalize-region-keywords (beg end) | |
1746 "Capitalize all F90 keywords in the region." | |
1747 (interactive "*r") | |
1748 (f90-change-keywords 'capitalize-word beg end)) | |
1749 | |
1750 (defun f90-downcase-region-keywords (beg end) | |
1751 "Downcase all F90 keywords in the region." | |
1752 (interactive "*r") | |
1753 (f90-change-keywords 'downcase-word beg end)) | |
1754 | |
1755 ;; Change the keywords according to argument. | |
1756 (defun f90-change-keywords (change-word &optional beg end) | |
45066
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
1757 "Change the case of F90 keywords in the region (if specified) or buffer. |
45379
eadb2403fb8a
(f90-change-keywords): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
45377
diff
changeset
|
1758 CHANGE-WORD should be one of 'upcase-word, 'downcase-word, 'capitalize-word." |
10612 | 1759 (save-excursion |
45076 | 1760 (setq beg (or beg (point-min)) |
1761 end (or end (point-max))) | |
44997 | 1762 (let ((keyword-re |
13064 | 1763 (concat "\\(" |
1764 f90-keywords-re "\\|" f90-procedures-re "\\|" | |
1765 f90-hpf-keywords-re "\\|" f90-operators-re "\\)")) | |
49598
0d8b17d428b5
Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents:
47178
diff
changeset
|
1766 (ref-point (point-min)) |
45076 | 1767 (modified (buffer-modified-p)) |
1768 state saveword back-point) | |
10612 | 1769 (goto-char beg) |
13064 | 1770 (unwind-protect |
1771 (while (re-search-forward keyword-re end t) | |
44944
dbacf99cccc4
Minor reorganization of some code.
Glenn Morris <rgm@gnu.org>
parents:
44943
diff
changeset
|
1772 (unless (progn |
dbacf99cccc4
Minor reorganization of some code.
Glenn Morris <rgm@gnu.org>
parents:
44943
diff
changeset
|
1773 (setq state (parse-partial-sexp ref-point (point))) |
dbacf99cccc4
Minor reorganization of some code.
Glenn Morris <rgm@gnu.org>
parents:
44943
diff
changeset
|
1774 (or (nth 3 state) (nth 4 state) |
50610
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1775 ;; GM f90-directive-comment-re? |
45066
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
1776 (save-excursion ; check for cpp directive |
44944
dbacf99cccc4
Minor reorganization of some code.
Glenn Morris <rgm@gnu.org>
parents:
44943
diff
changeset
|
1777 (beginning-of-line) |
dbacf99cccc4
Minor reorganization of some code.
Glenn Morris <rgm@gnu.org>
parents:
44943
diff
changeset
|
1778 (skip-chars-forward " \t0-9") |
dbacf99cccc4
Minor reorganization of some code.
Glenn Morris <rgm@gnu.org>
parents:
44943
diff
changeset
|
1779 (looking-at "#")))) |
13064 | 1780 (setq ref-point (point) |
45076 | 1781 back-point (save-excursion (backward-word 1) (point)) |
1782 saveword (buffer-substring back-point ref-point)) | |
13064 | 1783 (funcall change-word -1) |
1784 (or (string= saveword (buffer-substring back-point ref-point)) | |
1785 (setq modified t)))) | |
1786 (or modified (set-buffer-modified-p nil)))))) | |
10612 | 1787 |
28170
5427762a58a5
(f90): Put custom group under `languages', not
Dave Love <fx@gnu.org>
parents:
26607
diff
changeset
|
1788 |
5427762a58a5
(f90): Put custom group under `languages', not
Dave Love <fx@gnu.org>
parents:
26607
diff
changeset
|
1789 (defun f90-current-defun () |
5427762a58a5
(f90): Put custom group under `languages', not
Dave Love <fx@gnu.org>
parents:
26607
diff
changeset
|
1790 "Function to use for `add-log-current-defun-function' in F90 mode." |
5427762a58a5
(f90): Put custom group under `languages', not
Dave Love <fx@gnu.org>
parents:
26607
diff
changeset
|
1791 (save-excursion |
5427762a58a5
(f90): Put custom group under `languages', not
Dave Love <fx@gnu.org>
parents:
26607
diff
changeset
|
1792 (nth 1 (f90-beginning-of-subprogram)))) |
5427762a58a5
(f90): Put custom group under `languages', not
Dave Love <fx@gnu.org>
parents:
26607
diff
changeset
|
1793 |
10612 | 1794 (provide 'f90) |
10613 | 1795 |
10612 | 1796 ;;; f90.el ends here |