Mercurial > emacs
annotate lisp/progmodes/f90.el @ 107168:282ddc0ca465
* simple.el (save-interprogram-paste-before-kill): Doc fix.
author | Chong Yidong <cyd@stupidchicken.com> |
---|---|
date | Tue, 16 Feb 2010 09:40:45 -0500 |
parents | 906017fe8f4b |
children | 3c104aea26eb |
rev | line source |
---|---|
13337 | 1 ;;; f90.el --- Fortran-90 mode (free format) |
14169 | 2 |
68721 | 3 ;; Copyright (C) 1995, 1996, 1997, 2000, 2001, 2002, 2003, 2004, 2005, |
106815 | 4 ;; 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. |
10612 | 5 |
28915
0371c5f8f98b
Change author's mail address.
Gerd Moellmann <gerd@gnu.org>
parents:
28170
diff
changeset
|
6 ;; Author: Torbj\"orn Einarsson <Torbjorn.Einarsson@era.ericsson.se> |
65918
e58f331c3cba
(f90-keywords-re, f90-mode): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
64699
diff
changeset
|
7 ;; Maintainer: Glenn Morris <rgm@gnu.org> |
10612 | 8 ;; Keywords: fortran, f90, languages |
9 | |
14169 | 10 ;; This file is part of GNU Emacs. |
11 | |
94673
52b7a8c22af5
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
94367
diff
changeset
|
12 ;; GNU Emacs is free software: you can redistribute it and/or modify |
10612 | 13 ;; it under the terms of the GNU General Public License as published by |
94673
52b7a8c22af5
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
94367
diff
changeset
|
14 ;; the Free Software Foundation, either version 3 of the License, or |
52b7a8c22af5
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
94367
diff
changeset
|
15 ;; (at your option) any later version. |
10612 | 16 |
14169 | 17 ;; GNU Emacs is distributed in the hope that it will be useful, |
10612 | 18 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of |
19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
20 ;; GNU General Public License for more details. | |
21 | |
22 ;; You should have received a copy of the GNU General Public License | |
94673
52b7a8c22af5
Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents:
94367
diff
changeset
|
23 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. |
10612 | 24 |
25 ;;; Commentary: | |
14169 | 26 |
44866
582f083ed579
General tidy-up of commentary and some doc strings.
Glenn Morris <rgm@gnu.org>
parents:
44825
diff
changeset
|
27 ;; 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
|
28 ;; The minor language revision F95 is also supported (with font-locking). |
85617
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
29 ;; Some/many (?) aspects of F2003 are supported. |
44866
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 ;; 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
|
41 |
582f083ed579
General tidy-up of commentary and some doc strings.
Glenn Morris <rgm@gnu.org>
parents:
44825
diff
changeset
|
42 ;; There are two separate features for altering the appearance of code: |
10612 | 43 ;; 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
|
44 ;; 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
|
45 ;; 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
|
46 ;; f90-auto-keyword-case. |
10612 | 47 |
48 ;; 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
|
49 ;; following matches (values in the left column are the defaults): |
13064 | 50 |
51 ;; start-string/regexp indent variable holding start-string/regexp | |
52 ;; !!! 0 | |
53 ;; !hpf\\$ (re) 0 f90-directive-comment-re | |
54 ;; !!$ 0 f90-comment-region | |
55 ;; ! (re) as code f90-indented-comment-re | |
56 ;; default comment-column | |
57 | |
58 ;; Ex: Here is the result of 3 different settings of f90-indented-comment-re | |
59 ;; f90-indented-comment-re !-indentation !!-indentation | |
60 ;; ! as code as code | |
61 ;; !! comment-column as code | |
62 ;; ![^!] as code comment-column | |
44866
582f083ed579
General tidy-up of commentary and some doc strings.
Glenn Morris <rgm@gnu.org>
parents:
44825
diff
changeset
|
63 ;; 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
|
64 ;; 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
|
65 ;; the variable f90-comment-region in every line of the region. |
10612 | 66 |
50597
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
67 ;; One common convention for free vs. fixed format is that free format files |
44997 | 68 ;; 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
|
69 ;; 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
|
70 ;; 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
|
71 ;; For example: |
582f083ed579
General tidy-up of commentary and some doc strings.
Glenn Morris <rgm@gnu.org>
parents:
44825
diff
changeset
|
72 ;; (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
|
73 |
10612 | 74 ;; Once you have entered f90-mode, you may get more info by using |
44997 | 75 ;; 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
|
76 ;; 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
|
77 ;; C-h v <Name of variable you want described>. |
10612 | 78 |
44866
582f083ed579
General tidy-up of commentary and some doc strings.
Glenn Morris <rgm@gnu.org>
parents:
44825
diff
changeset
|
79 ;; 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
|
80 ;; (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
|
81 ;; |
28170
5427762a58a5
(f90): Put custom group under `languages', not
Dave Love <fx@gnu.org>
parents:
26607
diff
changeset
|
82 ;;(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
|
83 ;; ;; These are the default values. |
10612 | 84 ;; '(lambda () (setq f90-do-indent 3 |
85 ;; f90-if-indent 3 | |
86 ;; f90-type-indent 3 | |
87 ;; f90-program-indent 2 | |
88 ;; f90-continuation-indent 5 | |
89 ;; f90-comment-region "!!$" | |
13064 | 90 ;; f90-directive-comment-re "!hpf\\$" |
91 ;; f90-indented-comment-re "!" | |
44866
582f083ed579
General tidy-up of commentary and some doc strings.
Glenn Morris <rgm@gnu.org>
parents:
44825
diff
changeset
|
92 ;; f90-break-delimiters "[-+\\*/><=,% \t]" |
10612 | 93 ;; f90-break-before-delimiters t |
94 ;; f90-beginning-ampersand t | |
95 ;; f90-smart-end 'blink | |
96 ;; 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
|
97 ;; f90-leave-line-no nil |
11501
a56d6a86fa85
(f90-keywords): "only" added to keyword list.
Karl Heuer <kwzh@gnu.org>
parents:
10882
diff
changeset
|
98 ;; indent-tabs-mode nil |
15863
f11b2bfc1275
new version from Torbj?Einarsson.
Erik Naggum <erik@naggum.no>
parents:
15244
diff
changeset
|
99 ;; 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
|
100 ;; ) |
44866
582f083ed579
General tidy-up of commentary and some doc strings.
Glenn Morris <rgm@gnu.org>
parents:
44825
diff
changeset
|
101 ;; ;; These are not default. |
10612 | 102 ;; (abbrev-mode 1) ; turn on abbreviation mode |
15863
f11b2bfc1275
new version from Torbj?Einarsson.
Erik Naggum <erik@naggum.no>
parents:
15244
diff
changeset
|
103 ;; (f90-add-imenu-menu) ; extra menu with functions etc. |
10612 | 104 ;; (if f90-auto-keyword-case ; change case of all keywords on startup |
105 ;; (f90-change-keywords f90-auto-keyword-case)) | |
85535 | 106 ;; )) |
44866
582f083ed579
General tidy-up of commentary and some doc strings.
Glenn Morris <rgm@gnu.org>
parents:
44825
diff
changeset
|
107 ;; |
582f083ed579
General tidy-up of commentary and some doc strings.
Glenn Morris <rgm@gnu.org>
parents:
44825
diff
changeset
|
108 ;; 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
|
109 ;; f90-font-lock-keywords, etc. |
582f083ed579
General tidy-up of commentary and some doc strings.
Glenn Morris <rgm@gnu.org>
parents:
44825
diff
changeset
|
110 ;; |
582f083ed579
General tidy-up of commentary and some doc strings.
Glenn Morris <rgm@gnu.org>
parents:
44825
diff
changeset
|
111 ;; 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
|
112 ;; or by using M-x auto-fill-mode and M-x abbrev-mode, respectively. |
10612 | 113 |
114 ;; Remarks | |
115 ;; 1) Line numbers are by default left-justified. If f90-leave-line-no is | |
116 ;; 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
|
117 ;; 2) Multi-; statements like "do i=1,20 ; j=j+i ; end do" are not handled |
10612 | 118 ;; correctly, but I imagine them to be rare. |
13064 | 119 ;; 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
|
120 ;; 4) For FIXED FORMAT code, use fortran mode. |
10612 | 121 ;; 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
|
122 ;; 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
|
123 ;; 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
|
124 ;; mechanism for treating multi-line directives (continued by \ ). |
13064 | 125 ;; 7) f77 do-loops do 10 i=.. ; ; 10 continue are not correctly indented. |
126 ;; 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
|
127 ;; 8) The highlighting mode under XEmacs is not as complete as under Emacs. |
10612 | 128 |
129 ;; List of user commands | |
130 ;; f90-previous-statement f90-next-statement | |
131 ;; f90-beginning-of-subprogram f90-end-of-subprogram f90-mark-subprogram | |
132 ;; f90-comment-region | |
133 ;; f90-indent-line f90-indent-new-line | |
134 ;; f90-indent-region (can be called by calling indent-region) | |
135 ;; f90-indent-subprogram | |
136 ;; f90-break-line f90-join-lines | |
137 ;; f90-fill-region | |
138 ;; f90-insert-end | |
139 ;; f90-upcase-keywords f90-upcase-region-keywords | |
140 ;; f90-downcase-keywords f90-downcase-region-keywords | |
141 ;; f90-capitalize-keywords f90-capitalize-region-keywords | |
15863
f11b2bfc1275
new version from Torbj?Einarsson.
Erik Naggum <erik@naggum.no>
parents:
15244
diff
changeset
|
142 ;; f90-add-imenu-menu |
f11b2bfc1275
new version from Torbj?Einarsson.
Erik Naggum <erik@naggum.no>
parents:
15244
diff
changeset
|
143 ;; f90-font-lock-1, f90-font-lock-2, f90-font-lock-3, f90-font-lock-4 |
10612 | 144 |
44866
582f083ed579
General tidy-up of commentary and some doc strings.
Glenn Morris <rgm@gnu.org>
parents:
44825
diff
changeset
|
145 ;; Original author's thanks |
10612 | 146 ;; Thanks to all the people who have tested the mode. Special thanks to Jens |
147 ;; Bloch Helmers for encouraging me to write this code, for creative | |
148 ;; suggestions as well as for the lists of hpf-commands. | |
149 ;; Also thanks to the authors of the fortran and pascal modes, on which some | |
150 ;; of this code is built. | |
151 | |
50597
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
152 ;;; Code: |
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
153 |
44866
582f083ed579
General tidy-up of commentary and some doc strings.
Glenn Morris <rgm@gnu.org>
parents:
44825
diff
changeset
|
154 ;; TODO |
85617
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
155 ;; 1. Any missing F2003 syntax? |
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
156 ;; 2. Have "f90-mode" just recognize F90 syntax, then derived modes |
85536
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
157 ;; "f95-mode", "f2003-mode" for the language revisions. |
85617
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
158 ;; 3. Support for align. |
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
159 ;; Font-locking: |
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
160 ;; 1. OpenMP, OpenMPI?, preprocessor highlighting. |
107105
906017fe8f4b
Fix previous change for F2003 interfaces.
Glenn Morris <rgm@gnu.org>
parents:
107101
diff
changeset
|
161 ;; 2. integer_name = 1 |
906017fe8f4b
Fix previous change for F2003 interfaces.
Glenn Morris <rgm@gnu.org>
parents:
107101
diff
changeset
|
162 ;; 3. Labels for "else" statements (F2003)? |
44866
582f083ed579
General tidy-up of commentary and some doc strings.
Glenn Morris <rgm@gnu.org>
parents:
44825
diff
changeset
|
163 |
47178
7a1530aeef3f
Remove (eval-when-compile) for free variables.
Glenn Morris <rgm@gnu.org>
parents:
47012
diff
changeset
|
164 (defvar comment-auto-fill-only-comments) |
7a1530aeef3f
Remove (eval-when-compile) for free variables.
Glenn Morris <rgm@gnu.org>
parents:
47012
diff
changeset
|
165 (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
|
166 |
10612 | 167 ;; User options |
17413
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16444
diff
changeset
|
168 |
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16444
diff
changeset
|
169 (defgroup f90 nil |
50597
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
170 "Major mode for editing free format Fortran 90,95 code." |
66963
a11fdee52c05
Add :link (custom-group-link font-lock-faces) to defgroup.
Juri Linkov <juri@jurta.org>
parents:
66633
diff
changeset
|
171 :link '(custom-group-link :tag "Font Lock Faces group" font-lock-faces) |
28170
5427762a58a5
(f90): Put custom group under `languages', not
Dave Love <fx@gnu.org>
parents:
26607
diff
changeset
|
172 :group 'languages) |
10612 | 173 |
17413
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16444
diff
changeset
|
174 (defgroup f90-indent nil |
50597
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
175 "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
|
176 :prefix "f90-" |
50597
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
177 :group 'f90) |
17413
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16444
diff
changeset
|
178 |
10612 | 179 |
17413
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16444
diff
changeset
|
180 (defcustom f90-do-indent 3 |
85533
309e01535a04
Remove leading "*" from defcustom doc-strings.
Glenn Morris <rgm@gnu.org>
parents:
85471
diff
changeset
|
181 "Extra indentation applied to DO blocks." |
50597
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
182 :type 'integer |
104821
25eb9d6cb593
Move all safe properties into the defcustoms.
Glenn Morris <rgm@gnu.org>
parents:
103652
diff
changeset
|
183 :safe 'integerp |
17413
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16444
diff
changeset
|
184 :group 'f90-indent) |
10612 | 185 |
17413
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16444
diff
changeset
|
186 (defcustom f90-if-indent 3 |
85533
309e01535a04
Remove leading "*" from defcustom doc-strings.
Glenn Morris <rgm@gnu.org>
parents:
85471
diff
changeset
|
187 "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
|
188 :type 'integer |
104821
25eb9d6cb593
Move all safe properties into the defcustoms.
Glenn Morris <rgm@gnu.org>
parents:
103652
diff
changeset
|
189 :safe 'integerp |
17413
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16444
diff
changeset
|
190 :group 'f90-indent) |
10612 | 191 |
17413
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16444
diff
changeset
|
192 (defcustom f90-type-indent 3 |
85536
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
193 "Extra indentation applied to TYPE, ENUM, INTERFACE and BLOCK DATA blocks." |
50597
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
194 :type 'integer |
104821
25eb9d6cb593
Move all safe properties into the defcustoms.
Glenn Morris <rgm@gnu.org>
parents:
103652
diff
changeset
|
195 :safe 'integerp |
17413
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16444
diff
changeset
|
196 :group 'f90-indent) |
10612 | 197 |
17413
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16444
diff
changeset
|
198 (defcustom f90-program-indent 2 |
85533
309e01535a04
Remove leading "*" from defcustom doc-strings.
Glenn Morris <rgm@gnu.org>
parents:
85471
diff
changeset
|
199 "Extra indentation applied to PROGRAM, MODULE, SUBROUTINE, FUNCTION blocks." |
50597
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
200 :type 'integer |
104821
25eb9d6cb593
Move all safe properties into the defcustoms.
Glenn Morris <rgm@gnu.org>
parents:
103652
diff
changeset
|
201 :safe 'integerp |
17413
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16444
diff
changeset
|
202 :group 'f90-indent) |
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16444
diff
changeset
|
203 |
85536
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
204 (defcustom f90-associate-indent 2 |
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
205 "Extra indentation applied to ASSOCIATE blocks." |
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
206 :type 'integer |
104821
25eb9d6cb593
Move all safe properties into the defcustoms.
Glenn Morris <rgm@gnu.org>
parents:
103652
diff
changeset
|
207 :safe 'integerp |
85536
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
208 :group 'f90-indent |
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
209 :version "23.1") |
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
210 |
17413
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16444
diff
changeset
|
211 (defcustom f90-continuation-indent 5 |
85533
309e01535a04
Remove leading "*" from defcustom doc-strings.
Glenn Morris <rgm@gnu.org>
parents:
85471
diff
changeset
|
212 "Extra indentation applied to continuation lines." |
50597
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
213 :type 'integer |
104821
25eb9d6cb593
Move all safe properties into the defcustoms.
Glenn Morris <rgm@gnu.org>
parents:
103652
diff
changeset
|
214 :safe 'integerp |
17413
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16444
diff
changeset
|
215 :group 'f90-indent) |
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16444
diff
changeset
|
216 |
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16444
diff
changeset
|
217 (defcustom f90-comment-region "!!$" |
85533
309e01535a04
Remove leading "*" from defcustom doc-strings.
Glenn Morris <rgm@gnu.org>
parents:
85471
diff
changeset
|
218 "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
|
219 :type 'string |
104821
25eb9d6cb593
Move all safe properties into the defcustoms.
Glenn Morris <rgm@gnu.org>
parents:
103652
diff
changeset
|
220 :safe 'stringp |
17413
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16444
diff
changeset
|
221 :group 'f90-indent) |
10612 | 222 |
17413
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16444
diff
changeset
|
223 (defcustom f90-indented-comment-re "!" |
85533
309e01535a04
Remove leading "*" from defcustom doc-strings.
Glenn Morris <rgm@gnu.org>
parents:
85471
diff
changeset
|
224 "Regexp matching comments to indent as code." |
50597
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
225 :type 'regexp |
104821
25eb9d6cb593
Move all safe properties into the defcustoms.
Glenn Morris <rgm@gnu.org>
parents:
103652
diff
changeset
|
226 :safe 'stringp |
17413
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16444
diff
changeset
|
227 :group 'f90-indent) |
10612 | 228 |
17413
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16444
diff
changeset
|
229 (defcustom f90-directive-comment-re "!hpf\\$" |
85533
309e01535a04
Remove leading "*" from defcustom doc-strings.
Glenn Morris <rgm@gnu.org>
parents:
85471
diff
changeset
|
230 "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
|
231 :type 'regexp |
104821
25eb9d6cb593
Move all safe properties into the defcustoms.
Glenn Morris <rgm@gnu.org>
parents:
103652
diff
changeset
|
232 :safe 'stringp |
17413
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16444
diff
changeset
|
233 :group 'f90-indent) |
10612 | 234 |
17413
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16444
diff
changeset
|
235 (defcustom f90-beginning-ampersand t |
85533
309e01535a04
Remove leading "*" from defcustom doc-strings.
Glenn Morris <rgm@gnu.org>
parents:
85471
diff
changeset
|
236 "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
|
237 :type 'boolean |
104821
25eb9d6cb593
Move all safe properties into the defcustoms.
Glenn Morris <rgm@gnu.org>
parents:
103652
diff
changeset
|
238 :safe 'booleanp |
17413
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16444
diff
changeset
|
239 :group 'f90) |
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16444
diff
changeset
|
240 |
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16444
diff
changeset
|
241 (defcustom f90-smart-end 'blink |
85533
309e01535a04
Remove leading "*" from defcustom doc-strings.
Glenn Morris <rgm@gnu.org>
parents:
85471
diff
changeset
|
242 "Qualification of END statements according to the matching block start. |
58482
08ece7841cd6
(f90-smart-end, f90-previous-statement, f90-beginning-of-block): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
57935
diff
changeset
|
243 For example, the END that closes an IF block is changed to END |
08ece7841cd6
(f90-smart-end, f90-previous-statement, f90-beginning-of-block): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
57935
diff
changeset
|
244 IF. If the block has a label, this is added as well. Allowed |
08ece7841cd6
(f90-smart-end, f90-previous-statement, f90-beginning-of-block): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
57935
diff
changeset
|
245 values are 'blink, 'no-blink, and nil. If nil, nothing is done. |
08ece7841cd6
(f90-smart-end, f90-previous-statement, f90-beginning-of-block): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
57935
diff
changeset
|
246 The other two settings have the same effect, but 'blink |
08ece7841cd6
(f90-smart-end, f90-previous-statement, f90-beginning-of-block): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
57935
diff
changeset
|
247 additionally blinks the cursor to the start of the block." |
50597
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
248 :type '(choice (const blink) (const no-blink) (const nil)) |
104821
25eb9d6cb593
Move all safe properties into the defcustoms.
Glenn Morris <rgm@gnu.org>
parents:
103652
diff
changeset
|
249 :safe (lambda (value) (memq value '(blink no-blink nil))) |
17413
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16444
diff
changeset
|
250 :group 'f90) |
10612 | 251 |
17413
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16444
diff
changeset
|
252 (defcustom f90-break-delimiters "[-+\\*/><=,% \t]" |
85533
309e01535a04
Remove leading "*" from defcustom doc-strings.
Glenn Morris <rgm@gnu.org>
parents:
85471
diff
changeset
|
253 "Regexp matching delimiter characters at which lines may be broken. |
103652
1de9fbe264a4
(f90-break-delimiters, f90-no-break-re): Doc fixes.
Glenn Morris <rgm@gnu.org>
parents:
103651
diff
changeset
|
254 There are some common two-character tokens where one or more of |
1de9fbe264a4
(f90-break-delimiters, f90-no-break-re): Doc fixes.
Glenn Morris <rgm@gnu.org>
parents:
103651
diff
changeset
|
255 the members matches this regexp. Although Fortran allows breaks |
1de9fbe264a4
(f90-break-delimiters, f90-no-break-re): Doc fixes.
Glenn Morris <rgm@gnu.org>
parents:
103651
diff
changeset
|
256 within lexical tokens (provided the next line has a beginning ampersand), |
1de9fbe264a4
(f90-break-delimiters, f90-no-break-re): Doc fixes.
Glenn Morris <rgm@gnu.org>
parents:
103651
diff
changeset
|
257 the constant `f90-no-break-re' ensures that such tokens are not split." |
104821
25eb9d6cb593
Move all safe properties into the defcustoms.
Glenn Morris <rgm@gnu.org>
parents:
103652
diff
changeset
|
258 :type 'regexp |
25eb9d6cb593
Move all safe properties into the defcustoms.
Glenn Morris <rgm@gnu.org>
parents:
103652
diff
changeset
|
259 :safe 'stringp |
17413
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16444
diff
changeset
|
260 :group 'f90) |
10612 | 261 |
17413
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16444
diff
changeset
|
262 (defcustom f90-break-before-delimiters t |
85533
309e01535a04
Remove leading "*" from defcustom doc-strings.
Glenn Morris <rgm@gnu.org>
parents:
85471
diff
changeset
|
263 "Non-nil causes `f90-do-auto-fill' to break lines before delimiters." |
104821
25eb9d6cb593
Move all safe properties into the defcustoms.
Glenn Morris <rgm@gnu.org>
parents:
103652
diff
changeset
|
264 :type 'boolean |
25eb9d6cb593
Move all safe properties into the defcustoms.
Glenn Morris <rgm@gnu.org>
parents:
103652
diff
changeset
|
265 :safe 'booleanp |
17413
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16444
diff
changeset
|
266 :group 'f90) |
10612 | 267 |
17413
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16444
diff
changeset
|
268 (defcustom f90-auto-keyword-case nil |
85533
309e01535a04
Remove leading "*" from defcustom doc-strings.
Glenn Morris <rgm@gnu.org>
parents:
85471
diff
changeset
|
269 "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
|
270 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
|
271 :type '(choice (const downcase-word) (const upcase-word) |
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
272 (const capitalize-word) (const nil)) |
104821
25eb9d6cb593
Move all safe properties into the defcustoms.
Glenn Morris <rgm@gnu.org>
parents:
103652
diff
changeset
|
273 :safe (lambda (value) (memq value '(downcase-word |
25eb9d6cb593
Move all safe properties into the defcustoms.
Glenn Morris <rgm@gnu.org>
parents:
103652
diff
changeset
|
274 capitalize-word upcase-word nil))) |
17413
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16444
diff
changeset
|
275 :group 'f90) |
10612 | 276 |
17413
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16444
diff
changeset
|
277 (defcustom f90-leave-line-no nil |
85533
309e01535a04
Remove leading "*" from defcustom doc-strings.
Glenn Morris <rgm@gnu.org>
parents:
85471
diff
changeset
|
278 "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
|
279 :type 'boolean |
104821
25eb9d6cb593
Move all safe properties into the defcustoms.
Glenn Morris <rgm@gnu.org>
parents:
103652
diff
changeset
|
280 :safe 'booleanp |
17413
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16444
diff
changeset
|
281 :group 'f90) |
10612 | 282 |
46993
c4e4658185e3
eval-when-compile a few defvars to quieten the byte-compiler.
Glenn Morris <rgm@gnu.org>
parents:
46796
diff
changeset
|
283 (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
|
284 "Hook run when entering F90 mode." |
50597
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
285 :type 'hook |
104821
25eb9d6cb593
Move all safe properties into the defcustoms.
Glenn Morris <rgm@gnu.org>
parents:
103652
diff
changeset
|
286 ;; Not the only safe options, but some common ones. |
25eb9d6cb593
Move all safe properties into the defcustoms.
Glenn Morris <rgm@gnu.org>
parents:
103652
diff
changeset
|
287 :safe (lambda (value) (member value '((f90-add-imenu-menu) nil))) |
46993
c4e4658185e3
eval-when-compile a few defvars to quieten the byte-compiler.
Glenn Morris <rgm@gnu.org>
parents:
46796
diff
changeset
|
288 :options '(f90-add-imenu-menu) |
50597
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
289 :group 'f90) |
46993
c4e4658185e3
eval-when-compile a few defvars to quieten the byte-compiler.
Glenn Morris <rgm@gnu.org>
parents:
46796
diff
changeset
|
290 |
c4e4658185e3
eval-when-compile a few defvars to quieten the byte-compiler.
Glenn Morris <rgm@gnu.org>
parents:
46796
diff
changeset
|
291 ;; 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
|
292 |
13064 | 293 (defconst f90-keywords-re |
44340
93314c938a62
(f90-keywords-re, f90-keywords-level-3-re)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42442
diff
changeset
|
294 (regexp-opt '("allocatable" "allocate" "assign" "assignment" "backspace" |
85535 | 295 "block" "call" "case" "character" "close" "common" "complex" |
296 "contains" "continue" "cycle" "data" "deallocate" | |
297 "dimension" "do" "double" "else" "elseif" "elsewhere" "end" | |
298 "enddo" "endfile" "endif" "entry" "equivalence" "exit" | |
299 "external" "forall" "format" "function" "goto" "if" | |
300 "implicit" "include" "inquire" "integer" "intent" | |
301 "interface" "intrinsic" "logical" "module" "namelist" "none" | |
302 "nullify" "only" "open" "operator" "optional" "parameter" | |
303 "pause" "pointer" "precision" "print" "private" "procedure" | |
304 "program" "public" "read" "real" "recursive" "result" "return" | |
305 "rewind" "save" "select" "sequence" "stop" "subroutine" | |
306 "target" "then" "type" "use" "where" "while" "write" | |
307 ;; F95 keywords. | |
85536
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
308 "elemental" "pure" |
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
309 ;; F2003 |
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
310 "abstract" "associate" "asynchronous" "bind" "class" |
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
311 "deferred" "enum" "enumerator" "extends" "extends_type_of" |
85617
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
312 "final" "generic" "import" "non_intrinsic" "non_overridable" |
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
313 "nopass" "pass" "protected" "same_type_as" "value" "volatile" |
85536
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
314 ) 'words) |
65918
e58f331c3cba
(f90-keywords-re, f90-mode): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
64699
diff
changeset
|
315 "Regexp used by the function `f90-change-keywords'.") |
13064 | 316 |
317 (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
|
318 (regexp-opt |
93314c938a62
(f90-keywords-re, f90-keywords-level-3-re)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42442
diff
changeset
|
319 '("allocatable" "allocate" "assign" "assignment" "backspace" |
93314c938a62
(f90-keywords-re, f90-keywords-level-3-re)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42442
diff
changeset
|
320 "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
|
321 "external" "inquire" "intent" "intrinsic" "nullify" "only" "open" |
85536
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
322 ;; FIXME operator and assignment should be F2003 procedures? |
44340
93314c938a62
(f90-keywords-re, f90-keywords-level-3-re)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42442
diff
changeset
|
323 "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
|
324 "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
|
325 "sequence" "target" "write" |
93314c938a62
(f90-keywords-re, f90-keywords-level-3-re)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42442
diff
changeset
|
326 ;; F95 keywords. |
85536
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
327 "elemental" "pure" |
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
328 ;; F2003. asynchronous separate. |
85617
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
329 "abstract" "deferred" "import" "final" "non_intrinsic" "non_overridable" |
85536
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
330 "nopass" "pass" "protected" "value" "volatile" |
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
331 ) 'words) |
44340
93314c938a62
(f90-keywords-re, f90-keywords-level-3-re)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42442
diff
changeset
|
332 "Keyword-regexp for font-lock level >= 3.") |
13064 | 333 |
334 (defconst f90-procedures-re | |
44340
93314c938a62
(f90-keywords-re, f90-keywords-level-3-re)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42442
diff
changeset
|
335 (concat "\\<" |
44997 | 336 (regexp-opt |
337 '("abs" "achar" "acos" "adjustl" "adjustr" "aimag" "aint" | |
338 "all" "allocated" "anint" "any" "asin" "associated" | |
339 "atan" "atan2" "bit_size" "btest" "ceiling" "char" "cmplx" | |
340 "conjg" "cos" "cosh" "count" "cshift" "date_and_time" "dble" | |
341 "digits" "dim" "dot_product" "dprod" "eoshift" "epsilon" | |
342 "exp" "exponent" "floor" "fraction" "huge" "iachar" "iand" | |
343 "ibclr" "ibits" "ibset" "ichar" "ieor" "index" "int" "ior" | |
344 "ishft" "ishftc" "kind" "lbound" "len" "len_trim" "lge" "lgt" | |
345 "lle" "llt" "log" "log10" "logical" "matmul" "max" | |
346 "maxexponent" "maxloc" "maxval" "merge" "min" "minexponent" | |
347 "minloc" "minval" "mod" "modulo" "mvbits" "nearest" "nint" | |
348 "not" "pack" "precision" "present" "product" "radix" | |
349 ;; Real is taken out here to avoid highlighting declarations. | |
350 "random_number" "random_seed" "range" ;; "real" | |
351 "repeat" "reshape" "rrspacing" "scale" "scan" | |
352 "selected_int_kind" "selected_real_kind" "set_exponent" | |
353 "shape" "sign" "sin" "sinh" "size" "spacing" "spread" "sqrt" | |
354 "sum" "system_clock" "tan" "tanh" "tiny" "transfer" | |
355 "transpose" "trim" "ubound" "unpack" "verify" | |
356 ;; F95 intrinsic functions. | |
85536
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
357 "null" "cpu_time" |
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
358 ;; F2003. |
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
359 "move_alloc" "command_argument_count" "get_command" |
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
360 "get_command_argument" "get_environment_variable" |
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
361 "selected_char_kind" "wait" "flush" "new_line" |
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
362 "extends" "extends_type_of" "same_type_as" "bind" |
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
363 ;; F2003 ieee_arithmetic intrinsic module. |
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
364 "ieee_support_underflow_control" "ieee_get_underflow_mode" |
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
365 "ieee_set_underflow_mode" |
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
366 ;; F2003 iso_c_binding intrinsic module. |
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
367 "c_loc" "c_funloc" "c_associated" "c_f_pointer" |
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
368 "c_f_procpointer" |
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
369 ) t) |
44997 | 370 ;; A left parenthesis to avoid highlighting non-procedures. |
371 "[ \t]*(") | |
13064 | 372 "Regexp whose first part matches F90 intrinsic procedures.") |
10612 | 373 |
13064 | 374 (defconst f90-operators-re |
44997 | 375 (concat "\\." |
376 (regexp-opt '("and" "eq" "eqv" "false" "ge" "gt" "le" "lt" "ne" | |
377 "neqv" "not" "or" "true") t) | |
378 "\\.") | |
13064 | 379 "Regexp matching intrinsic operators.") |
10612 | 380 |
13064 | 381 (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
|
382 (regexp-opt |
45066
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
383 ;; Intrinsic procedures. |
44340
93314c938a62
(f90-keywords-re, f90-keywords-level-3-re)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42442
diff
changeset
|
384 '("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
|
385 "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
|
386 "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
|
387 "grade_down" "grade_up" |
93314c938a62
(f90-keywords-re, f90-keywords-level-3-re)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42442
diff
changeset
|
388 "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
|
389 "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
|
390 "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
|
391 "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
|
392 "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
|
393 "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
|
394 "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
|
395 "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
|
396 "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
|
397 ;; Directives. |
44340
93314c938a62
(f90-keywords-re, f90-keywords-level-3-re)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42442
diff
changeset
|
398 "align" "distribute" "dynamic" "independent" "inherit" "processors" |
44997 | 399 "realign" "redistribute" "template" |
45066
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
400 ;; Keywords. |
44340
93314c938a62
(f90-keywords-re, f90-keywords-level-3-re)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42442
diff
changeset
|
401 "block" "cyclic" "extrinsic" "new" "onto" "pure" "with") 'words) |
13064 | 402 "Regexp for all HPF keywords, procedures and directives.") |
10612 | 403 |
85536
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
404 (defconst f90-constants-re |
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
405 (regexp-opt '( ;; F2003 iso_fortran_env constants. |
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
406 "iso_fortran_env" |
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
407 "input_unit" "output_unit" "error_unit" |
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
408 "iostat_end" "iostat_eor" |
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
409 "numeric_storage_size" "character_storage_size" |
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
410 "file_storage_size" |
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
411 ;; F2003 iso_c_binding constants. |
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
412 "iso_c_binding" |
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
413 "c_int" "c_short" "c_long" "c_long_long" "c_signed_char" |
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
414 "c_size_t" |
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
415 "c_int8_t" "c_int16_t" "c_int32_t" "c_int64_t" |
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
416 "c_int_least8_t" "c_int_least16_t" "c_int_least32_t" |
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
417 "c_int_least64_t" |
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
418 "c_int_fast8_t" "c_int_fast16_t" "c_int_fast32_t" |
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
419 "c_int_fast64_t" |
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
420 "c_intmax_t" "c_intptr_t" |
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
421 "c_float" "c_double" "c_long_double" |
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
422 "c_float_complex" "c_double_complex" "c_long_double_complex" |
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
423 "c_bool" "c_char" |
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
424 "c_null_char" "c_alert" "c_backspace" "c_form_feed" |
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
425 "c_new_line" "c_carriage_return" "c_horizontal_tab" |
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
426 "c_vertical_tab" |
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
427 "c_ptr" "c_funptr" "c_null_ptr" "c_null_funptr" |
85617
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
428 "ieee_exceptions" |
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
429 "ieee_arithmetic" |
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
430 "ieee_features" |
85536
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
431 ) 'words) |
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
432 "Regexp for Fortran intrinsic constants.") |
10612 | 433 |
85617
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
434 ;; cf f90-looking-at-type-like. |
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
435 (defun f90-typedef-matcher (limit) |
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
436 "Search for the start/end of the definition of a derived type, up to LIMIT. |
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
437 Set the match data so that subexpression 1,2 are the TYPE, and |
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
438 type-name parts, respectively." |
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
439 (let (found l) |
95487
35a83ed5a550
(f90-typedef-matcher, f90-looking-at-type-like): Check that
Glenn Morris <rgm@gnu.org>
parents:
94673
diff
changeset
|
440 (while (and (re-search-forward "\\<\\(\\(?:end[ \t]*\\)?type\\)\\>[ \t]*" |
85617
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
441 limit t) |
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
442 (not (setq found |
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
443 (progn |
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
444 (setq l (match-data)) |
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
445 (unless (looking-at "\\(is\\>\\|(\\)") |
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
446 (when (if (looking-at "\\(\\sw+\\)") |
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
447 (goto-char (match-end 0)) |
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
448 (re-search-forward |
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
449 "[ \t]*::[ \t]*\\(\\sw+\\)" |
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
450 (line-end-position) t)) |
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
451 ;; 0 is wrong, but we don't use it. |
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
452 (set-match-data |
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
453 (append l (list (match-beginning 1) |
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
454 (match-end 1)))) |
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
455 t))))))) |
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
456 found)) |
10612 | 457 |
13064 | 458 (defvar f90-font-lock-keywords-1 |
23997 | 459 (list |
45066
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
460 ;; Special highlighting of "module procedure". |
85617
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
461 '("\\<\\(module[ \t]*procedure\\)\\>\\([^()\n]*::\\)?[ \t]*\\([^&!\n]*\\)" |
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
462 (1 font-lock-keyword-face) (3 font-lock-function-name-face nil t)) |
46796
342b3e8fd75c
(f90-font-lock-keywords-1): Simplify `type' value a little.
Glenn Morris <rgm@gnu.org>
parents:
46793
diff
changeset
|
463 ;; Highlight definition of derived type. |
85617
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
464 ;;; '("\\<\\(\\(?:end[ \t]*\\)?type\\)\\>\\([^()\n]*::\\)?[ \t]*\\(\\sw+\\)" |
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
465 ;;; (1 font-lock-keyword-face) (3 font-lock-function-name-face)) |
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
466 '(f90-typedef-matcher |
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
467 (1 font-lock-keyword-face) (2 font-lock-function-name-face)) |
107105
906017fe8f4b
Fix previous change for F2003 interfaces.
Glenn Morris <rgm@gnu.org>
parents:
107101
diff
changeset
|
468 ;; F2003. Prevent operators being highlighted as functions. |
906017fe8f4b
Fix previous change for F2003 interfaces.
Glenn Morris <rgm@gnu.org>
parents:
107101
diff
changeset
|
469 '("\\<\\(\\(?:end[ \t]*\\)?interface[ \t]*\\(?:assignment\\|operator\\|\ |
906017fe8f4b
Fix previous change for F2003 interfaces.
Glenn Morris <rgm@gnu.org>
parents:
107101
diff
changeset
|
470 read\\|write\\)\\)[ \t]*(" (1 font-lock-keyword-face t)) |
906017fe8f4b
Fix previous change for F2003 interfaces.
Glenn Morris <rgm@gnu.org>
parents:
107101
diff
changeset
|
471 ;; Other functions and declarations. Named interfaces = F2003. |
85536
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
472 '("\\<\\(\\(?:end[ \t]*\\)?\\(program\\|module\\|function\\|associate\\|\ |
107105
906017fe8f4b
Fix previous change for F2003 interfaces.
Glenn Morris <rgm@gnu.org>
parents:
107101
diff
changeset
|
473 subroutine\\|interface\\)\\|use\\|call\\)\\>[ \t]*\\(\\sw+\\)?" |
44340
93314c938a62
(f90-keywords-re, f90-keywords-level-3-re)
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42442
diff
changeset
|
474 (1 font-lock-keyword-face) (3 font-lock-function-name-face nil t)) |
85617
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
475 ;; F2003. |
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
476 '("\\<\\(use\\)[ \t]*,[ \t]*\\(\\(?:non_\\)?intrinsic\\)[ \t]*::[ \t]*\ |
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
477 \\(\\sw+\\)" |
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
478 (1 font-lock-keyword-face) (2 font-lock-keyword-face) |
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
479 (3 font-lock-function-name-face)) |
107105
906017fe8f4b
Fix previous change for F2003 interfaces.
Glenn Morris <rgm@gnu.org>
parents:
107101
diff
changeset
|
480 "\\<\\(\\(end[ \t]*\\)?block[ \t]*data\\|contains\\)\\>" |
906017fe8f4b
Fix previous change for F2003 interfaces.
Glenn Morris <rgm@gnu.org>
parents:
107101
diff
changeset
|
481 ;; "abstract interface" is F2003. |
906017fe8f4b
Fix previous change for F2003 interfaces.
Glenn Morris <rgm@gnu.org>
parents:
107101
diff
changeset
|
482 '("\\<abstract[ \t]*interface\\>" (0 font-lock-keyword-face t))) |
13064 | 483 "This does fairly subdued highlighting of comments and function calls.") |
10612 | 484 |
85617
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
485 ;; NB not explicitly handling this, yet it seems to work. |
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
486 ;; type(...) function foo() |
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
487 (defun f90-typedec-matcher (limit) |
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
488 "Search for the declaration of variables of derived type, up to LIMIT. |
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
489 Set the match data so that subexpression 1,2 are the TYPE(...), |
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
490 and variable-name parts, respectively." |
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
491 ;; Matcher functions must return nil only when there are no more |
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
492 ;; matches within the search range. |
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
493 (let (found l) |
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
494 (while (and (re-search-forward "\\<\\(type\\|class\\)[ \t]*(" limit t) |
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
495 (not |
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
496 (setq found |
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
497 (condition-case nil |
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
498 (progn |
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
499 ;; Set l after this to just highlight |
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
500 ;; the "type" part. |
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
501 (backward-char 1) |
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
502 ;; Needed for: type( foo(...) ) :: bar |
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
503 (forward-sexp) |
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
504 (setq l (list (match-beginning 0) (point))) |
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
505 (skip-chars-forward " \t") |
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
506 (when |
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
507 (re-search-forward |
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
508 ;; type (foo) bar, qux |
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
509 (if (looking-at "\\sw+") |
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
510 "\\([^&!\n]+\\)" |
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
511 ;; type (foo), stuff :: bar, qux |
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
512 "::[ \t]*\\([^&!\n]+\\)") |
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
513 (line-end-position) t) |
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
514 (set-match-data |
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
515 (append (list (car l) (match-end 1)) |
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
516 l (list (match-beginning 1) |
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
517 (match-end 1)))) |
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
518 t)) |
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
519 (error nil)))))) |
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
520 found)) |
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
521 |
13064 | 522 (defvar f90-font-lock-keywords-2 |
44997 | 523 (append |
524 f90-font-lock-keywords-1 | |
525 (list | |
45066
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
526 ;; Variable declarations (avoid the real function call). |
85617
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
527 ;; NB by accident (?), this correctly fontifies the "integer" in: |
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
528 ;; integer () function foo () |
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
529 ;; because "() function foo ()" matches \\3. |
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
530 ;; The "pure" part does not really belong here, but was added to |
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
531 ;; exploit that hack. |
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
532 ;; The "function foo" bit is correctly fontified by keywords-1. |
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
533 ;; TODO ? actually check for balanced parens in that case. |
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
534 '("^[ \t0-9]*\\(?:pure\\|elemental\\)?[ \t]*\ |
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
535 \\(real\\|integer\\|c\\(haracter\\|omplex\\)\\|\ |
85699
f240b732dbe0
(f90-font-lock-keywords-1): Revert change merged in from EMACS_22 branch.
Glenn Morris <rgm@gnu.org>
parents:
85688
diff
changeset
|
536 enumerator\\|generic\\|procedure\\|logical\\|double[ \t]*precision\\)\ |
65918
e58f331c3cba
(f90-keywords-re, f90-mode): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
64699
diff
changeset
|
537 \\(.*::\\|[ \t]*(.*)\\)?\\([^&!\n]*\\)" |
50647
5773e914b2ed
(f90-font-lock-keywords-2): Use override for
Glenn Morris <rgm@gnu.org>
parents:
50616
diff
changeset
|
538 (1 font-lock-type-face t) (4 font-lock-variable-name-face t)) |
85617
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
539 ;; Derived type/class variables. |
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
540 ;; TODO ? If we just highlighted the "type" part, rather than |
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
541 ;; "type(...)", this could be in the previous expression. And this |
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
542 ;; would be consistent with integer( kind=8 ), etc. |
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
543 '(f90-typedec-matcher |
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
544 (1 font-lock-type-face) (2 font-lock-variable-name-face)) |
85536
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
545 ;; "real function foo (args)". Must override previous. Note hack |
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
546 ;; to get "args" unhighlighted again. Might not always be right, |
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
547 ;; but probably better than leaving them as variables. |
85617
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
548 ;; NB not explicitly handling this case: |
85536
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
549 ;; integer( kind=1 ) function foo() |
85617
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
550 ;; thanks to the happy accident described above. |
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
551 ;; Not anchored, so don't need to worry about "pure" etc. |
85536
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
552 '("\\<\\(\\(real\\|integer\\|c\\(haracter\\|omplex\\)\\|\ |
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
553 logical\\|double[ \t]*precision\\|\ |
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
554 \\(?:type\\|class\\)[ \t]*([ \t]*\\sw+[ \t]*)\\)[ \t]*\\)\ |
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
555 \\(function\\)\\>[ \t]*\\(\\sw+\\)[ \t]*\\(([^&!\n]*)\\)" |
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
556 (1 font-lock-type-face t) (4 font-lock-keyword-face t) |
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
557 (5 font-lock-function-name-face t) (6 'default t)) |
107091
c2a34eaf2f6a
* progmodes/f90.el (f90-font-lock-keywords-2): Fix `enum'.
Glenn Morris <rgm@gnu.org>
parents:
106815
diff
changeset
|
558 ;; enum (F2003; must be followed by ", bind(C)"). |
c2a34eaf2f6a
* progmodes/f90.el (f90-font-lock-keywords-2): Fix `enum'.
Glenn Morris <rgm@gnu.org>
parents:
106815
diff
changeset
|
559 '("\\<\\(enum\\)[ \t]*," (1 font-lock-keyword-face)) |
85617
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
560 ;; end do, enum (F2003), if, select, where, and forall constructs. |
85536
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
561 '("\\<\\(end[ \t]*\\(do\\|if\\|enum\\|select\\|forall\\|where\\)\\)\\>\ |
44997 | 562 \\([ \t]+\\(\\sw+\\)\\)?" |
563 (1 font-lock-keyword-face) (3 font-lock-constant-face nil t)) | |
564 '("^[ \t0-9]*\\(\\(\\sw+\\)[ \t]*:[ \t]*\\)?\\(\\(if\\|\ | |
85536
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
565 do\\([ \t]*while\\)?\\|select[ \t]*\\(?:case\\|type\\)\\|where\\|\ |
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
566 forall\\)\\)\\>" |
44997 | 567 (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
|
568 ;; Implicit declaration. |
44997 | 569 '("\\<\\(implicit\\)[ \t]*\\(real\\|integer\\|c\\(haracter\\|omplex\\)\ |
85536
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
570 \\|enumerator\\|procedure\\|\ |
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
571 logical\\|double[ \t]*precision\\|type[ \t]*(\\sw+)\\|none\\)[ \t]*" |
44997 | 572 (1 font-lock-keyword-face) (2 font-lock-type-face)) |
573 '("\\<\\(namelist\\|common\\)[ \t]*\/\\(\\sw+\\)?\/" | |
574 (1 font-lock-keyword-face) (2 font-lock-constant-face nil t)) | |
575 "\\<else\\([ \t]*if\\|where\\)?\\>" | |
50647
5773e914b2ed
(f90-font-lock-keywords-2): Use override for
Glenn Morris <rgm@gnu.org>
parents:
50616
diff
changeset
|
576 '("\\(&\\)[ \t]*\\(!\\|$\\)" (1 font-lock-keyword-face)) |
44997 | 577 "\\<\\(then\\|continue\\|format\\|include\\|stop\\|return\\)\\>" |
578 '("\\<\\(exit\\|cycle\\)[ \t]*\\(\\sw+\\)?\\>" | |
579 (1 font-lock-keyword-face) (2 font-lock-constant-face nil t)) | |
580 '("\\<\\(case\\)[ \t]*\\(default\\|(\\)" . 1) | |
85536
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
581 ;; F2003 "class default". |
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
582 '("\\<\\(class\\)[ \t]*default" . 1) |
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
583 ;; F2003 "type is" in a "select type" block. |
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
584 '("\\<\\(\\(type\\|class\\)[ \t]*is\\)[ \t]*(" (1 font-lock-keyword-face t)) |
79177
3aa5f50b34c0
(f90-do-indent, f90-if-indent)
Glenn Morris <rgm@gnu.org>
parents:
79158
diff
changeset
|
585 '("\\<\\(do\\|go[ \t]*to\\)\\>[ \t]*\\([0-9]+\\)" |
44997 | 586 (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
|
587 ;; Line numbers (lines whose first character after number is letter). |
44997 | 588 '("^[ \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
|
589 "Highlights declarations, do-loops and other constructs.") |
10612 | 590 |
13064 | 591 (defvar f90-font-lock-keywords-3 |
592 (append f90-font-lock-keywords-2 | |
44997 | 593 (list |
594 f90-keywords-level-3-re | |
595 f90-operators-re | |
94367 | 596 ;; FIXME why isn't this font-lock-builtin-face, which |
597 ;; otherwise we hardly use, as in fortran.el? | |
44997 | 598 (list f90-procedures-re '(1 font-lock-keyword-face keep)) |
85535 | 599 "\\<real\\>" ; avoid overwriting real defs |
85536
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
600 ;; As an attribute, but not as an optional argument. |
92813
9c73b1f69e7e
(f90-font-lock-n): New function.
Glenn Morris <rgm@gnu.org>
parents:
87941
diff
changeset
|
601 '("\\<\\(asynchronous\\)[ \t]*[^=]" . 1))) |
13064 | 602 "Highlights all F90 keywords and intrinsic procedures.") |
603 | |
604 (defvar f90-font-lock-keywords-4 | |
605 (append f90-font-lock-keywords-3 | |
85536
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
606 (list (cons f90-constants-re 'font-lock-constant-face) |
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
607 f90-hpf-keywords-re)) |
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
608 "Highlights all F90 and HPF keywords and constants.") |
13064 | 609 |
610 (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
|
611 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
|
612 "*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
|
613 Can be overridden by the value of `font-lock-maximum-decoration'.") |
10612 | 614 |
45066
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
615 |
45351
bd2bdf90e286
(f90-mode-syntax-table, f90-mode-map): Do the initialization in the defvar.
Glenn Morris <rgm@gnu.org>
parents:
45076
diff
changeset
|
616 (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
|
617 (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
|
618 (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
|
619 (modify-syntax-entry ?\n ">" table) ; end comment |
94326
c419e1e2f8ee
(f90-mode-syntax-table): Don't set ` as word syntax.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93975
diff
changeset
|
620 ;; FIXME: This goes against the convention: it should be "_". |
45351
bd2bdf90e286
(f90-mode-syntax-table, f90-mode-map): Do the initialization in the defvar.
Glenn Morris <rgm@gnu.org>
parents:
45076
diff
changeset
|
621 (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
|
622 (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
|
623 (modify-syntax-entry ?\" "\"" table) ; string quote |
94326
c419e1e2f8ee
(f90-mode-syntax-table): Don't set ` as word syntax.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93975
diff
changeset
|
624 ;; FIXME: We used to set ` to word syntax for the benefit of abbrevs, but |
c419e1e2f8ee
(f90-mode-syntax-table): Don't set ` as word syntax.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93975
diff
changeset
|
625 ;; we do not need it any more. Not sure if it should be "_" or "." now. |
c419e1e2f8ee
(f90-mode-syntax-table): Don't set ` as word syntax.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93975
diff
changeset
|
626 (modify-syntax-entry ?\` "_" table) |
45351
bd2bdf90e286
(f90-mode-syntax-table, f90-mode-map): Do the initialization in the defvar.
Glenn Morris <rgm@gnu.org>
parents:
45076
diff
changeset
|
627 (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
|
628 (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
|
629 (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
|
630 (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
|
631 (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
|
632 (modify-syntax-entry ?/ "." table) |
96376
c3309dba6542
American English spelling fix.
Glenn Morris <rgm@gnu.org>
parents:
95831
diff
changeset
|
633 ;; I think that the f95 standard leaves the behavior of \ |
58482
08ece7841cd6
(f90-smart-end, f90-previous-statement, f90-beginning-of-block): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
57935
diff
changeset
|
634 ;; unspecified, but that f2k will require it to be non-special. |
08ece7841cd6
(f90-smart-end, f90-previous-statement, f90-beginning-of-block): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
57935
diff
changeset
|
635 ;; Use `f90-backslash-not-special' to change. |
45351
bd2bdf90e286
(f90-mode-syntax-table, f90-mode-map): Do the initialization in the defvar.
Glenn Morris <rgm@gnu.org>
parents:
45076
diff
changeset
|
636 (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
|
637 table) |
bd2bdf90e286
(f90-mode-syntax-table, f90-mode-map): Do the initialization in the defvar.
Glenn Morris <rgm@gnu.org>
parents:
45076
diff
changeset
|
638 "Syntax table used in F90 mode.") |
10612 | 639 |
45351
bd2bdf90e286
(f90-mode-syntax-table, f90-mode-map): Do the initialization in the defvar.
Glenn Morris <rgm@gnu.org>
parents:
45076
diff
changeset
|
640 (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
|
641 (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
|
642 (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
|
643 (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
|
644 (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
|
645 (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
|
646 (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
|
647 (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
|
648 (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
|
649 (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
|
650 (define-key map "\C-j" 'f90-indent-new-line) ; LFD equals C-j |
98150
43afebdca874
(f90-mode-map): Don't bind \t and \r.
Glenn Morris <rgm@gnu.org>
parents:
96376
diff
changeset
|
651 ;;; (define-key map "\r" 'newline) |
45351
bd2bdf90e286
(f90-mode-syntax-table, f90-mode-map): Do the initialization in the defvar.
Glenn Morris <rgm@gnu.org>
parents:
45076
diff
changeset
|
652 (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
|
653 ;;; (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
|
654 (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
|
655 (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
|
656 (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
|
657 (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
|
658 (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
|
659 (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
|
660 (define-key map "\C-c\C-w" 'f90-insert-end) |
98150
43afebdca874
(f90-mode-map): Don't bind \t and \r.
Glenn Morris <rgm@gnu.org>
parents:
96376
diff
changeset
|
661 ;; Standard tab binding will call this, and also handle regions. |
43afebdca874
(f90-mode-map): Don't bind \t and \r.
Glenn Morris <rgm@gnu.org>
parents:
96376
diff
changeset
|
662 ;;; (define-key map "\t" 'f90-indent-line) |
45351
bd2bdf90e286
(f90-mode-syntax-table, f90-mode-map): Do the initialization in the defvar.
Glenn Morris <rgm@gnu.org>
parents:
45076
diff
changeset
|
663 (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
|
664 (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
|
665 (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
|
666 (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
|
667 (define-key map "/" 'f90-electric-insert) |
50597
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
668 |
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
669 (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
|
670 `("F90" |
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
671 ("Customization" |
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
672 ,(custom-menu-create 'f90) |
99719
a4bd76aee560
(f90-mode-map): Add some menu :help.
Glenn Morris <rgm@gnu.org>
parents:
98150
diff
changeset
|
673 ;; FIXME useless? |
a4bd76aee560
(f90-mode-map): Add some menu :help.
Glenn Morris <rgm@gnu.org>
parents:
98150
diff
changeset
|
674 ["Set" Custom-set :active t |
a4bd76aee560
(f90-mode-map): Add some menu :help.
Glenn Morris <rgm@gnu.org>
parents:
98150
diff
changeset
|
675 :help "Set current value of all edited settings in the buffer"] |
a4bd76aee560
(f90-mode-map): Add some menu :help.
Glenn Morris <rgm@gnu.org>
parents:
98150
diff
changeset
|
676 ["Save" Custom-save :active t |
a4bd76aee560
(f90-mode-map): Add some menu :help.
Glenn Morris <rgm@gnu.org>
parents:
98150
diff
changeset
|
677 :help "Set and save all edited settings"] |
a4bd76aee560
(f90-mode-map): Add some menu :help.
Glenn Morris <rgm@gnu.org>
parents:
98150
diff
changeset
|
678 ["Reset to Current" Custom-reset-current :active t |
a4bd76aee560
(f90-mode-map): Add some menu :help.
Glenn Morris <rgm@gnu.org>
parents:
98150
diff
changeset
|
679 :help "Reset all edited settings to current"] |
a4bd76aee560
(f90-mode-map): Add some menu :help.
Glenn Morris <rgm@gnu.org>
parents:
98150
diff
changeset
|
680 ["Reset to Saved" Custom-reset-saved :active t |
a4bd76aee560
(f90-mode-map): Add some menu :help.
Glenn Morris <rgm@gnu.org>
parents:
98150
diff
changeset
|
681 :help "Reset all edited or set settings to saved"] |
a4bd76aee560
(f90-mode-map): Add some menu :help.
Glenn Morris <rgm@gnu.org>
parents:
98150
diff
changeset
|
682 ["Reset to Standard Settings" Custom-reset-standard :active t |
a4bd76aee560
(f90-mode-map): Add some menu :help.
Glenn Morris <rgm@gnu.org>
parents:
98150
diff
changeset
|
683 :help "Erase all cusomizations in buffer"] |
50597
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
684 ) |
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
685 "--" |
99719
a4bd76aee560
(f90-mode-map): Add some menu :help.
Glenn Morris <rgm@gnu.org>
parents:
98150
diff
changeset
|
686 ["Indent Subprogram" f90-indent-subprogram t] |
a4bd76aee560
(f90-mode-map): Add some menu :help.
Glenn Morris <rgm@gnu.org>
parents:
98150
diff
changeset
|
687 ["Mark Subprogram" f90-mark-subprogram :active t :help |
a4bd76aee560
(f90-mode-map): Add some menu :help.
Glenn Morris <rgm@gnu.org>
parents:
98150
diff
changeset
|
688 "Mark the end of the current subprogram, move point to the start"] |
a4bd76aee560
(f90-mode-map): Add some menu :help.
Glenn Morris <rgm@gnu.org>
parents:
98150
diff
changeset
|
689 ["Beginning of Subprogram" f90-beginning-of-subprogram :active t |
a4bd76aee560
(f90-mode-map): Add some menu :help.
Glenn Morris <rgm@gnu.org>
parents:
98150
diff
changeset
|
690 :help "Move point to the start of the current subprogram"] |
a4bd76aee560
(f90-mode-map): Add some menu :help.
Glenn Morris <rgm@gnu.org>
parents:
98150
diff
changeset
|
691 ["End of Subprogram" f90-end-of-subprogram :active t |
a4bd76aee560
(f90-mode-map): Add some menu :help.
Glenn Morris <rgm@gnu.org>
parents:
98150
diff
changeset
|
692 :help "Move point to the end of the current subprogram"] |
50597
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
693 "--" |
99719
a4bd76aee560
(f90-mode-map): Add some menu :help.
Glenn Morris <rgm@gnu.org>
parents:
98150
diff
changeset
|
694 ["(Un)Comment Region" f90-comment-region :active mark-active |
a4bd76aee560
(f90-mode-map): Add some menu :help.
Glenn Morris <rgm@gnu.org>
parents:
98150
diff
changeset
|
695 :help "Comment or uncomment the region"] |
a4bd76aee560
(f90-mode-map): Add some menu :help.
Glenn Morris <rgm@gnu.org>
parents:
98150
diff
changeset
|
696 ["Indent Region" f90-indent-region :active mark-active] |
a4bd76aee560
(f90-mode-map): Add some menu :help.
Glenn Morris <rgm@gnu.org>
parents:
98150
diff
changeset
|
697 ["Fill Region" f90-fill-region :active mark-active |
a4bd76aee560
(f90-mode-map): Add some menu :help.
Glenn Morris <rgm@gnu.org>
parents:
98150
diff
changeset
|
698 :help "Fill long lines in the region"] |
50597
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
699 "--" |
99719
a4bd76aee560
(f90-mode-map): Add some menu :help.
Glenn Morris <rgm@gnu.org>
parents:
98150
diff
changeset
|
700 ["Break Line at Point" f90-break-line :active t |
a4bd76aee560
(f90-mode-map): Add some menu :help.
Glenn Morris <rgm@gnu.org>
parents:
98150
diff
changeset
|
701 :help "Break the current line at point"] |
a4bd76aee560
(f90-mode-map): Add some menu :help.
Glenn Morris <rgm@gnu.org>
parents:
98150
diff
changeset
|
702 ["Join with Previous Line" f90-join-lines :active t |
a4bd76aee560
(f90-mode-map): Add some menu :help.
Glenn Morris <rgm@gnu.org>
parents:
98150
diff
changeset
|
703 :help "Join the current line to the previous one"] |
a4bd76aee560
(f90-mode-map): Add some menu :help.
Glenn Morris <rgm@gnu.org>
parents:
98150
diff
changeset
|
704 ["Insert Block End" f90-insert-end :active t |
a4bd76aee560
(f90-mode-map): Add some menu :help.
Glenn Morris <rgm@gnu.org>
parents:
98150
diff
changeset
|
705 :help "Insert an end statement for the current code block"] |
50597
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
706 "--" |
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
707 ("Highlighting" |
99719
a4bd76aee560
(f90-mode-map): Add some menu :help.
Glenn Morris <rgm@gnu.org>
parents:
98150
diff
changeset
|
708 :help "Fontify this buffer to varying degrees" |
50597
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
709 ["Toggle font-lock-mode" font-lock-mode :selected font-lock-mode |
99719
a4bd76aee560
(f90-mode-map): Add some menu :help.
Glenn Morris <rgm@gnu.org>
parents:
98150
diff
changeset
|
710 :style toggle :help "Fontify text in this buffer"] |
50597
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
711 "--" |
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
712 ["Light highlighting (level 1)" f90-font-lock-1 t] |
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
713 ["Moderate highlighting (level 2)" f90-font-lock-2 t] |
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
714 ["Heavy highlighting (level 3)" f90-font-lock-3 t] |
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
715 ["Maximum highlighting (level 4)" f90-font-lock-4 t] |
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
716 ) |
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
717 ("Change Keyword Case" |
99719
a4bd76aee560
(f90-mode-map): Add some menu :help.
Glenn Morris <rgm@gnu.org>
parents:
98150
diff
changeset
|
718 :help "Change the case of keywords in the buffer or region" |
50597
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
719 ["Upcase Keywords (buffer)" f90-upcase-keywords t] |
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
720 ["Capitalize Keywords (buffer)" f90-capitalize-keywords t] |
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
721 ["Downcase Keywords (buffer)" f90-downcase-keywords t] |
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
722 "--" |
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
723 ["Upcase Keywords (region)" f90-upcase-region-keywords |
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
724 mark-active] |
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
725 ["Capitalize Keywords (region)" f90-capitalize-region-keywords |
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
726 mark-active] |
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
727 ["Downcase Keywords (region)" f90-downcase-region-keywords |
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
728 mark-active] |
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
729 ) |
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
730 "--" |
99719
a4bd76aee560
(f90-mode-map): Add some menu :help.
Glenn Morris <rgm@gnu.org>
parents:
98150
diff
changeset
|
731 ["Toggle Auto Fill" auto-fill-mode :selected auto-fill-function |
a4bd76aee560
(f90-mode-map): Add some menu :help.
Glenn Morris <rgm@gnu.org>
parents:
98150
diff
changeset
|
732 :style toggle |
a4bd76aee560
(f90-mode-map): Add some menu :help.
Glenn Morris <rgm@gnu.org>
parents:
98150
diff
changeset
|
733 :help "Automatically fill text while typing in this buffer"] |
a4bd76aee560
(f90-mode-map): Add some menu :help.
Glenn Morris <rgm@gnu.org>
parents:
98150
diff
changeset
|
734 ["Toggle Abbrev Mode" abbrev-mode :selected abbrev-mode |
a4bd76aee560
(f90-mode-map): Add some menu :help.
Glenn Morris <rgm@gnu.org>
parents:
98150
diff
changeset
|
735 :style toggle :help "Expand abbreviations while typing in this buffer"] |
a4bd76aee560
(f90-mode-map): Add some menu :help.
Glenn Morris <rgm@gnu.org>
parents:
98150
diff
changeset
|
736 ["Add Imenu Menu" f90-add-imenu-menu |
50597
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
737 :active (not (lookup-key (current-local-map) [menu-bar index])) |
99719
a4bd76aee560
(f90-mode-map): Add some menu :help.
Glenn Morris <rgm@gnu.org>
parents:
98150
diff
changeset
|
738 :included (fboundp 'imenu-add-to-menubar) |
a4bd76aee560
(f90-mode-map): Add some menu :help.
Glenn Morris <rgm@gnu.org>
parents:
98150
diff
changeset
|
739 :help "Add an index menu to the menu-bar" |
a4bd76aee560
(f90-mode-map): Add some menu :help.
Glenn Morris <rgm@gnu.org>
parents:
98150
diff
changeset
|
740 ])) |
45351
bd2bdf90e286
(f90-mode-syntax-table, f90-mode-map): Do the initialization in the defvar.
Glenn Morris <rgm@gnu.org>
parents:
45076
diff
changeset
|
741 map) |
10612 | 742 "Keymap used in F90 mode.") |
13064 | 743 |
45351
bd2bdf90e286
(f90-mode-syntax-table, f90-mode-map): Do the initialization in the defvar.
Glenn Morris <rgm@gnu.org>
parents:
45076
diff
changeset
|
744 |
92813
9c73b1f69e7e
(f90-font-lock-n): New function.
Glenn Morris <rgm@gnu.org>
parents:
87941
diff
changeset
|
745 (defun f90-font-lock-n (n) |
9c73b1f69e7e
(f90-font-lock-n): New function.
Glenn Morris <rgm@gnu.org>
parents:
87941
diff
changeset
|
746 "Set `font-lock-keywords' to F90 level N keywords." |
9c73b1f69e7e
(f90-font-lock-n): New function.
Glenn Morris <rgm@gnu.org>
parents:
87941
diff
changeset
|
747 (font-lock-mode 1) |
9c73b1f69e7e
(f90-font-lock-n): New function.
Glenn Morris <rgm@gnu.org>
parents:
87941
diff
changeset
|
748 (setq font-lock-keywords |
9c73b1f69e7e
(f90-font-lock-n): New function.
Glenn Morris <rgm@gnu.org>
parents:
87941
diff
changeset
|
749 (symbol-value (intern-soft (format "f90-font-lock-keywords-%d" n)))) |
9c73b1f69e7e
(f90-font-lock-n): New function.
Glenn Morris <rgm@gnu.org>
parents:
87941
diff
changeset
|
750 (font-lock-fontify-buffer)) |
9c73b1f69e7e
(f90-font-lock-n): New function.
Glenn Morris <rgm@gnu.org>
parents:
87941
diff
changeset
|
751 |
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
|
752 (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
|
753 "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
|
754 (interactive) |
92813
9c73b1f69e7e
(f90-font-lock-n): New function.
Glenn Morris <rgm@gnu.org>
parents:
87941
diff
changeset
|
755 (f90-font-lock-n 1)) |
44997 | 756 |
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
|
757 (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
|
758 "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
|
759 (interactive) |
92813
9c73b1f69e7e
(f90-font-lock-n): New function.
Glenn Morris <rgm@gnu.org>
parents:
87941
diff
changeset
|
760 (f90-font-lock-n 2)) |
44997 | 761 |
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
|
762 (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
|
763 "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
|
764 (interactive) |
92813
9c73b1f69e7e
(f90-font-lock-n): New function.
Glenn Morris <rgm@gnu.org>
parents:
87941
diff
changeset
|
765 (f90-font-lock-n 3)) |
45066
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
766 |
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
|
767 (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
|
768 "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
|
769 (interactive) |
92813
9c73b1f69e7e
(f90-font-lock-n): New function.
Glenn Morris <rgm@gnu.org>
parents:
87941
diff
changeset
|
770 (f90-font-lock-n 4)) |
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
|
771 |
13064 | 772 ;; Regexps for finding program structures. |
44997 | 773 (defconst f90-blocks-re |
45066
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
774 (concat "\\(block[ \t]*data\\|" |
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
775 (regexp-opt '("do" "if" "interface" "function" "module" "program" |
85536
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
776 "select" "subroutine" "type" "where" "forall" |
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
777 ;; F2003. |
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
778 "enum" "associate")) |
45066
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
779 "\\)\\>") |
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
780 "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
|
781 |
44997 | 782 (defconst f90-program-block-re |
45066
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
783 (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
|
784 "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
|
785 |
85536
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
786 ;; "class is" is F2003. |
44997 | 787 (defconst f90-else-like-re |
85536
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
788 "\\(else\\([ \t]*if\\|where\\)?\\|case[ \t]*\\(default\\|(\\)\\|\ |
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
789 \\(class\\|type\\)[ \t]*is[ \t]*(\\|class[ \t]*default\\)" |
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
790 "Regexp matching an ELSE IF, ELSEWHERE, CASE, CLASS/TYPE IS statement.") |
45066
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
791 |
44997 | 792 (defconst f90-end-if-re |
45066
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
793 (concat "end[ \t]*" |
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
794 (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
|
795 "\\>") |
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
796 "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
|
797 |
44997 | 798 (defconst f90-end-type-re |
85536
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
799 "end[ \t]*\\(type\\|enum\\|interface\\|block[ \t]*data\\)\\>" |
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
800 "Regexp matching the end of a TYPE, ENUM, INTERFACE, BLOCK DATA section.") |
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
801 |
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
802 (defconst f90-end-associate-re |
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
803 "end[ \t]*associate\\>" |
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
804 "Regexp matching the end of an ASSOCIATE block.") |
45066
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
805 |
85536
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
806 ;; This is for a TYPE block, not a variable of derived TYPE. |
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
807 ;; Hence no need to add CLASS for F2003. |
13064 | 808 (defconst f90-type-def-re |
85536
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
809 ;; type word |
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
810 ;; type :: word |
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
811 ;; type, stuff :: word |
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
812 ;; NOT "type (" |
46796
342b3e8fd75c
(f90-font-lock-keywords-1): Simplify `type' value a little.
Glenn Morris <rgm@gnu.org>
parents:
46793
diff
changeset
|
813 "\\<\\(type\\)\\>\\(?:[^()\n]*::\\)?[ \t]*\\(\\sw+\\)" |
45912 | 814 "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
|
815 |
85536
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
816 (defconst f90-typeis-re |
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
817 "\\<\\(class\\|type\\)[ \t]*is[ \t]*(" |
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
818 "Regexp matching a CLASS/TYPE IS statement.") |
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
819 |
45066
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
820 (defconst f90-no-break-re |
103651
53dc0b838c59
Evangelos Evangelou <vangelis at email.unc.edu> (tiny change)
Glenn Morris <rgm@gnu.org>
parents:
101002
diff
changeset
|
821 (regexp-opt '("**" "//" "=>" ">=" "<=" "==" "/=" "(/" "/)") 'paren) |
103652
1de9fbe264a4
(f90-break-delimiters, f90-no-break-re): Doc fixes.
Glenn Morris <rgm@gnu.org>
parents:
103651
diff
changeset
|
822 "Regexp specifying two-character tokens not to split when breaking lines. |
1de9fbe264a4
(f90-break-delimiters, f90-no-break-re): Doc fixes.
Glenn Morris <rgm@gnu.org>
parents:
103651
diff
changeset
|
823 Each token has one or more of the characters from `f90-break-delimiters'. |
1de9fbe264a4
(f90-break-delimiters, f90-no-break-re): Doc fixes.
Glenn Morris <rgm@gnu.org>
parents:
103651
diff
changeset
|
824 Note that if only one of the characters is from that variable, |
1de9fbe264a4
(f90-break-delimiters, f90-no-break-re): Doc fixes.
Glenn Morris <rgm@gnu.org>
parents:
103651
diff
changeset
|
825 then the presence of the token here allows a line-break before or |
1de9fbe264a4
(f90-break-delimiters, f90-no-break-re): Doc fixes.
Glenn Morris <rgm@gnu.org>
parents:
103651
diff
changeset
|
826 after the other character, where a break would not normally be |
1de9fbe264a4
(f90-break-delimiters, f90-no-break-re): Doc fixes.
Glenn Morris <rgm@gnu.org>
parents:
103651
diff
changeset
|
827 allowed. This minor issue currently only affects \"(/\" and \"/)\".") |
45066
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
828 |
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
829 (defvar f90-cache-position nil |
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
830 "Temporary position used to speed up region operations.") |
10612 | 831 (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
|
832 |
15863
f11b2bfc1275
new version from Torbj?Einarsson.
Erik Naggum <erik@naggum.no>
parents:
15244
diff
changeset
|
833 |
55637
239a750fdcfa
(f90-end-block-re, f90-start-block-re): New constants.
Glenn Morris <rgm@gnu.org>
parents:
55250
diff
changeset
|
834 ;; Hideshow support. |
239a750fdcfa
(f90-end-block-re, f90-start-block-re): New constants.
Glenn Morris <rgm@gnu.org>
parents:
55250
diff
changeset
|
835 (defconst f90-end-block-re |
61106
888d43e15dfd
(f90-end-block-re, f90-start-block-re): Doc fix. Tweak regexp.
Glenn Morris <rgm@gnu.org>
parents:
59243
diff
changeset
|
836 (concat "^[ \t0-9]*\\<end[ \t]*" |
55637
239a750fdcfa
(f90-end-block-re, f90-start-block-re): New constants.
Glenn Morris <rgm@gnu.org>
parents:
55250
diff
changeset
|
837 (regexp-opt '("do" "if" "forall" "function" "interface" |
61106
888d43e15dfd
(f90-end-block-re, f90-start-block-re): Doc fix. Tweak regexp.
Glenn Morris <rgm@gnu.org>
parents:
59243
diff
changeset
|
838 "module" "program" "select" "subroutine" |
85536
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
839 "type" "where" "enum" "associate") t) |
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
840 "\\>") |
61106
888d43e15dfd
(f90-end-block-re, f90-start-block-re): Doc fix. Tweak regexp.
Glenn Morris <rgm@gnu.org>
parents:
59243
diff
changeset
|
841 "Regexp matching the end of an F90 \"block\", from the line start. |
55637
239a750fdcfa
(f90-end-block-re, f90-start-block-re): New constants.
Glenn Morris <rgm@gnu.org>
parents:
55250
diff
changeset
|
842 Used in the F90 entry in `hs-special-modes-alist'.") |
239a750fdcfa
(f90-end-block-re, f90-start-block-re): New constants.
Glenn Morris <rgm@gnu.org>
parents:
55250
diff
changeset
|
843 |
239a750fdcfa
(f90-end-block-re, f90-start-block-re): New constants.
Glenn Morris <rgm@gnu.org>
parents:
55250
diff
changeset
|
844 ;; Ignore the fact that FUNCTION, SUBROUTINE, WHERE, FORALL have a |
61106
888d43e15dfd
(f90-end-block-re, f90-start-block-re): Doc fix. Tweak regexp.
Glenn Morris <rgm@gnu.org>
parents:
59243
diff
changeset
|
845 ;; following "(". DO, CASE, IF can have labels. |
55637
239a750fdcfa
(f90-end-block-re, f90-start-block-re): New constants.
Glenn Morris <rgm@gnu.org>
parents:
55250
diff
changeset
|
846 (defconst f90-start-block-re |
239a750fdcfa
(f90-end-block-re, f90-start-block-re): New constants.
Glenn Morris <rgm@gnu.org>
parents:
55250
diff
changeset
|
847 (concat |
239a750fdcfa
(f90-end-block-re, f90-start-block-re): New constants.
Glenn Morris <rgm@gnu.org>
parents:
55250
diff
changeset
|
848 "^[ \t0-9]*" ; statement number |
239a750fdcfa
(f90-end-block-re, f90-start-block-re): New constants.
Glenn Morris <rgm@gnu.org>
parents:
55250
diff
changeset
|
849 "\\(\\(" |
239a750fdcfa
(f90-end-block-re, f90-start-block-re): New constants.
Glenn Morris <rgm@gnu.org>
parents:
55250
diff
changeset
|
850 "\\(\\sw+[ \t]*:[ \t]*\\)?" ; structure label |
85536
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
851 "\\(do\\|select[ \t]*\\(case\\|type\\)\\|" |
61106
888d43e15dfd
(f90-end-block-re, f90-start-block-re): Doc fix. Tweak regexp.
Glenn Morris <rgm@gnu.org>
parents:
59243
diff
changeset
|
852 ;; See comments in fortran-start-block-re for the problems of IF. |
888d43e15dfd
(f90-end-block-re, f90-start-block-re): Doc fix. Tweak regexp.
Glenn Morris <rgm@gnu.org>
parents:
59243
diff
changeset
|
853 "if[ \t]*(\\(.*\\|" |
888d43e15dfd
(f90-end-block-re, f90-start-block-re): Doc fix. Tweak regexp.
Glenn Morris <rgm@gnu.org>
parents:
59243
diff
changeset
|
854 ".*\n\\([^if]*\\([^i].\\|.[^f]\\|.\\>\\)\\)\\)\\<then\\|" |
55637
239a750fdcfa
(f90-end-block-re, f90-start-block-re): New constants.
Glenn Morris <rgm@gnu.org>
parents:
55250
diff
changeset
|
855 ;; Distinguish WHERE block from isolated WHERE. |
239a750fdcfa
(f90-end-block-re, f90-start-block-re): New constants.
Glenn Morris <rgm@gnu.org>
parents:
55250
diff
changeset
|
856 "\\(where\\|forall\\)[ \t]*(.*)[ \t]*\\(!\\|$\\)\\)\\)" |
239a750fdcfa
(f90-end-block-re, f90-start-block-re): New constants.
Glenn Morris <rgm@gnu.org>
parents:
55250
diff
changeset
|
857 "\\|" |
85536
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
858 ;; Avoid F2003 "type is" in "select type", |
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
859 ;; and also variables of derived type "type (foo)". |
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
860 ;; "type, foo" must be a block (?). |
85617
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
861 "type[ \t,]\\(" |
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
862 "[^i(!\n\"\& \t]\\|" ; not-i( |
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
863 "i[^s!\n\"\& \t]\\|" ; i not-s |
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
864 "is\\sw\\)\\|" |
85536
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
865 ;; "abstract interface" is F2003. |
85617
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
866 "program\\|\\(?:abstract[ \t]*\\)?interface\\|module\\|" |
85536
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
867 ;; "enum", but not "enumerator". |
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
868 "function\\|subroutine\\|enum[^e]\\|associate" |
55637
239a750fdcfa
(f90-end-block-re, f90-start-block-re): New constants.
Glenn Morris <rgm@gnu.org>
parents:
55250
diff
changeset
|
869 "\\)" |
239a750fdcfa
(f90-end-block-re, f90-start-block-re): New constants.
Glenn Morris <rgm@gnu.org>
parents:
55250
diff
changeset
|
870 "[ \t]*") |
61106
888d43e15dfd
(f90-end-block-re, f90-start-block-re): Doc fix. Tweak regexp.
Glenn Morris <rgm@gnu.org>
parents:
59243
diff
changeset
|
871 "Regexp matching the start of an F90 \"block\", from the line start. |
55637
239a750fdcfa
(f90-end-block-re, f90-start-block-re): New constants.
Glenn Morris <rgm@gnu.org>
parents:
55250
diff
changeset
|
872 A simple regexp cannot do this in fully correct fashion, so this |
239a750fdcfa
(f90-end-block-re, f90-start-block-re): New constants.
Glenn Morris <rgm@gnu.org>
parents:
55250
diff
changeset
|
873 tries to strike a compromise between complexity and flexibility. |
239a750fdcfa
(f90-end-block-re, f90-start-block-re): New constants.
Glenn Morris <rgm@gnu.org>
parents:
55250
diff
changeset
|
874 Used in the F90 entry in `hs-special-modes-alist'.") |
239a750fdcfa
(f90-end-block-re, f90-start-block-re): New constants.
Glenn Morris <rgm@gnu.org>
parents:
55250
diff
changeset
|
875 |
239a750fdcfa
(f90-end-block-re, f90-start-block-re): New constants.
Glenn Morris <rgm@gnu.org>
parents:
55250
diff
changeset
|
876 ;; hs-special-modes-alist is autoloaded. |
239a750fdcfa
(f90-end-block-re, f90-start-block-re): New constants.
Glenn Morris <rgm@gnu.org>
parents:
55250
diff
changeset
|
877 (add-to-list 'hs-special-modes-alist |
239a750fdcfa
(f90-end-block-re, f90-start-block-re): New constants.
Glenn Morris <rgm@gnu.org>
parents:
55250
diff
changeset
|
878 `(f90-mode ,f90-start-block-re ,f90-end-block-re |
239a750fdcfa
(f90-end-block-re, f90-start-block-re): New constants.
Glenn Morris <rgm@gnu.org>
parents:
55250
diff
changeset
|
879 "!" f90-end-of-block nil)) |
239a750fdcfa
(f90-end-block-re, f90-start-block-re): New constants.
Glenn Morris <rgm@gnu.org>
parents:
55250
diff
changeset
|
880 |
239a750fdcfa
(f90-end-block-re, f90-start-block-re): New constants.
Glenn Morris <rgm@gnu.org>
parents:
55250
diff
changeset
|
881 |
45066
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
882 ;; Imenu support. |
85617
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
883 ;; FIXME trivial to extend this to enum. Worth it? |
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
884 (defun f90-imenu-type-matcher () |
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
885 "Search backward for the start of a derived type. |
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
886 Set subexpression 1 in the match-data to the name of the type." |
94326
c419e1e2f8ee
(f90-mode-syntax-table): Don't set ` as word syntax.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93975
diff
changeset
|
887 (let (found) |
85617
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
888 (while (and (re-search-backward "^[ \t0-9]*type[ \t]*" nil t) |
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
889 (not (setq found |
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
890 (save-excursion |
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
891 (goto-char (match-end 0)) |
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
892 (unless (looking-at "\\(is\\>\\|(\\)") |
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
893 (or (looking-at "\\(\\sw+\\)") |
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
894 (re-search-forward |
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
895 "[ \t]*::[ \t]*\\(\\sw+\\)" |
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
896 (line-end-position) t)))))))) |
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
897 found)) |
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
898 |
13064 | 899 (defvar f90-imenu-generic-expression |
15863
f11b2bfc1275
new version from Torbj?Einarsson.
Erik Naggum <erik@naggum.no>
parents:
15244
diff
changeset
|
900 (let ((good-char "[^!\"\&\n \t]") (not-e "[^e!\n\"\& \t]") |
85617
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
901 (not-n "[^n!\n\"\& \t]") (not-d "[^d!\n\"\& \t]") |
94326
c419e1e2f8ee
(f90-mode-syntax-table): Don't set ` as word syntax.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93975
diff
changeset
|
902 ;; (not-ib "[^i(!\n\"\& \t]") (not-s "[^s!\n\"\& \t]") |
c419e1e2f8ee
(f90-mode-syntax-table): Don't set ` as word syntax.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93975
diff
changeset
|
903 ) |
15863
f11b2bfc1275
new version from Torbj?Einarsson.
Erik Naggum <erik@naggum.no>
parents:
15244
diff
changeset
|
904 (list |
f11b2bfc1275
new version from Torbj?Einarsson.
Erik Naggum <erik@naggum.no>
parents:
15244
diff
changeset
|
905 '(nil "^[ \t0-9]*program[ \t]+\\(\\sw+\\)" 1) |
f11b2bfc1275
new version from Torbj?Einarsson.
Erik Naggum <erik@naggum.no>
parents:
15244
diff
changeset
|
906 '("Modules" "^[ \t0-9]*module[ \t]+\\(\\sw+\\)[ \t]*\\(!\\|$\\)" 1) |
85617
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
907 (list "Types" 'f90-imenu-type-matcher 1) |
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
908 ;; Does not handle: "type[, stuff] :: foo". |
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
909 ;;; (format "^[ \t0-9]*type[ \t]+\\(\\(%s\\|i%s\\|is\\sw\\)\\sw*\\)" |
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
910 ;;; not-ib not-s) |
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
911 ;;; 1) |
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
912 ;; Can't get the subexpression numbers to match in the two branches. |
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
913 ;;; (format "^[ \t0-9]*type\\([ \t]*,.*\\(::\\)[ \t]*\\(\\sw+\\)\\|[ \t]+\\(\\(%s\\|i%s\\|is\\sw\\)\\sw*\\)\\)" not-ib not-s) |
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
914 ;;; 3) |
15863
f11b2bfc1275
new version from Torbj?Einarsson.
Erik Naggum <erik@naggum.no>
parents:
15244
diff
changeset
|
915 (list |
44997 | 916 "Procedures" |
15863
f11b2bfc1275
new version from Torbj?Einarsson.
Erik Naggum <erik@naggum.no>
parents:
15244
diff
changeset
|
917 (concat |
f11b2bfc1275
new version from Torbj?Einarsson.
Erik Naggum <erik@naggum.no>
parents:
15244
diff
changeset
|
918 "^[ \t0-9]*" |
f11b2bfc1275
new version from Torbj?Einarsson.
Erik Naggum <erik@naggum.no>
parents:
15244
diff
changeset
|
919 "\\(" |
45066
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
920 ;; 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
|
921 ;; 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
|
922 "[^!\"\&\n]*\\(" |
f11b2bfc1275
new version from Torbj?Einarsson.
Erik Naggum <erik@naggum.no>
parents:
15244
diff
changeset
|
923 not-e good-char good-char "\\|" |
f11b2bfc1275
new version from Torbj?Einarsson.
Erik Naggum <erik@naggum.no>
parents:
15244
diff
changeset
|
924 good-char not-n good-char "\\|" |
f11b2bfc1275
new version from Torbj?Einarsson.
Erik Naggum <erik@naggum.no>
parents:
15244
diff
changeset
|
925 good-char good-char not-d "\\)" |
f11b2bfc1275
new version from Torbj?Einarsson.
Erik Naggum <erik@naggum.no>
parents:
15244
diff
changeset
|
926 "\\|" |
45066
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
927 ;; 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
|
928 good-char "?" good-char "?" |
f11b2bfc1275
new version from Torbj?Einarsson.
Erik Naggum <erik@naggum.no>
parents:
15244
diff
changeset
|
929 "\\)" |
f11b2bfc1275
new version from Torbj?Einarsson.
Erik Naggum <erik@naggum.no>
parents:
15244
diff
changeset
|
930 "[ \t]*\\(function\\|subroutine\\)[ \t]+\\(\\sw+\\)") |
44997 | 931 4))) |
50597
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
932 "Value for `imenu-generic-expression' in F90 mode.") |
13064 | 933 |
15863
f11b2bfc1275
new version from Torbj?Einarsson.
Erik Naggum <erik@naggum.no>
parents:
15244
diff
changeset
|
934 (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
|
935 "Add an imenu menu to the menubar." |
15863
f11b2bfc1275
new version from Torbj?Einarsson.
Erik Naggum <erik@naggum.no>
parents:
15244
diff
changeset
|
936 (interactive) |
47178
7a1530aeef3f
Remove (eval-when-compile) for free variables.
Glenn Morris <rgm@gnu.org>
parents:
47012
diff
changeset
|
937 (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
|
938 (message "%s" "F90-imenu already exists.") |
dbacf99cccc4
Minor reorganization of some code.
Glenn Morris <rgm@gnu.org>
parents:
44943
diff
changeset
|
939 (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
|
940 (redraw-frame (selected-frame)))) |
15863
f11b2bfc1275
new version from Torbj?Einarsson.
Erik Naggum <erik@naggum.no>
parents:
15244
diff
changeset
|
941 |
10612 | 942 |
45066
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
943 ;; Abbrevs have generally two letters, except standard types `c, `i, `r, `t. |
94326
c419e1e2f8ee
(f90-mode-syntax-table): Don't set ` as word syntax.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93975
diff
changeset
|
944 (define-abbrev-table 'f90-mode-abbrev-table |
c419e1e2f8ee
(f90-mode-syntax-table): Don't set ` as word syntax.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93975
diff
changeset
|
945 (mapcar (lambda (e) (list (car e) (cdr e) nil :system t)) |
c419e1e2f8ee
(f90-mode-syntax-table): Don't set ` as word syntax.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93975
diff
changeset
|
946 '(("`al" . "allocate" ) |
c419e1e2f8ee
(f90-mode-syntax-table): Don't set ` as word syntax.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93975
diff
changeset
|
947 ("`ab" . "allocatable" ) |
c419e1e2f8ee
(f90-mode-syntax-table): Don't set ` as word syntax.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93975
diff
changeset
|
948 ("`ai" . "abstract interface") |
c419e1e2f8ee
(f90-mode-syntax-table): Don't set ` as word syntax.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93975
diff
changeset
|
949 ("`as" . "assignment" ) |
c419e1e2f8ee
(f90-mode-syntax-table): Don't set ` as word syntax.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93975
diff
changeset
|
950 ("`asy" . "asynchronous" ) |
c419e1e2f8ee
(f90-mode-syntax-table): Don't set ` as word syntax.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93975
diff
changeset
|
951 ("`ba" . "backspace" ) |
c419e1e2f8ee
(f90-mode-syntax-table): Don't set ` as word syntax.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93975
diff
changeset
|
952 ("`bd" . "block data" ) |
c419e1e2f8ee
(f90-mode-syntax-table): Don't set ` as word syntax.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93975
diff
changeset
|
953 ("`c" . "character" ) |
c419e1e2f8ee
(f90-mode-syntax-table): Don't set ` as word syntax.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93975
diff
changeset
|
954 ("`cl" . "close" ) |
c419e1e2f8ee
(f90-mode-syntax-table): Don't set ` as word syntax.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93975
diff
changeset
|
955 ("`cm" . "common" ) |
c419e1e2f8ee
(f90-mode-syntax-table): Don't set ` as word syntax.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93975
diff
changeset
|
956 ("`cx" . "complex" ) |
c419e1e2f8ee
(f90-mode-syntax-table): Don't set ` as word syntax.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93975
diff
changeset
|
957 ("`cn" . "contains" ) |
c419e1e2f8ee
(f90-mode-syntax-table): Don't set ` as word syntax.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93975
diff
changeset
|
958 ("`cy" . "cycle" ) |
c419e1e2f8ee
(f90-mode-syntax-table): Don't set ` as word syntax.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93975
diff
changeset
|
959 ("`de" . "deallocate" ) |
c419e1e2f8ee
(f90-mode-syntax-table): Don't set ` as word syntax.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93975
diff
changeset
|
960 ("`df" . "define" ) |
c419e1e2f8ee
(f90-mode-syntax-table): Don't set ` as word syntax.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93975
diff
changeset
|
961 ("`di" . "dimension" ) |
c419e1e2f8ee
(f90-mode-syntax-table): Don't set ` as word syntax.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93975
diff
changeset
|
962 ("`dp" . "double precision") |
c419e1e2f8ee
(f90-mode-syntax-table): Don't set ` as word syntax.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93975
diff
changeset
|
963 ("`dw" . "do while" ) |
c419e1e2f8ee
(f90-mode-syntax-table): Don't set ` as word syntax.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93975
diff
changeset
|
964 ("`el" . "else" ) |
c419e1e2f8ee
(f90-mode-syntax-table): Don't set ` as word syntax.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93975
diff
changeset
|
965 ("`eli" . "else if" ) |
c419e1e2f8ee
(f90-mode-syntax-table): Don't set ` as word syntax.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93975
diff
changeset
|
966 ("`elw" . "elsewhere" ) |
c419e1e2f8ee
(f90-mode-syntax-table): Don't set ` as word syntax.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93975
diff
changeset
|
967 ("`em" . "elemental" ) |
c419e1e2f8ee
(f90-mode-syntax-table): Don't set ` as word syntax.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93975
diff
changeset
|
968 ("`e" . "enumerator" ) |
c419e1e2f8ee
(f90-mode-syntax-table): Don't set ` as word syntax.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93975
diff
changeset
|
969 ("`eq" . "equivalence" ) |
c419e1e2f8ee
(f90-mode-syntax-table): Don't set ` as word syntax.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93975
diff
changeset
|
970 ("`ex" . "external" ) |
c419e1e2f8ee
(f90-mode-syntax-table): Don't set ` as word syntax.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93975
diff
changeset
|
971 ("`ey" . "entry" ) |
c419e1e2f8ee
(f90-mode-syntax-table): Don't set ` as word syntax.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93975
diff
changeset
|
972 ("`fl" . "forall" ) |
c419e1e2f8ee
(f90-mode-syntax-table): Don't set ` as word syntax.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93975
diff
changeset
|
973 ("`fo" . "format" ) |
c419e1e2f8ee
(f90-mode-syntax-table): Don't set ` as word syntax.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93975
diff
changeset
|
974 ("`fu" . "function" ) |
c419e1e2f8ee
(f90-mode-syntax-table): Don't set ` as word syntax.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93975
diff
changeset
|
975 ("`fa" . ".false." ) |
c419e1e2f8ee
(f90-mode-syntax-table): Don't set ` as word syntax.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93975
diff
changeset
|
976 ("`im" . "implicit none") |
c419e1e2f8ee
(f90-mode-syntax-table): Don't set ` as word syntax.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93975
diff
changeset
|
977 ("`in" . "include" ) |
c419e1e2f8ee
(f90-mode-syntax-table): Don't set ` as word syntax.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93975
diff
changeset
|
978 ("`i" . "integer" ) |
c419e1e2f8ee
(f90-mode-syntax-table): Don't set ` as word syntax.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93975
diff
changeset
|
979 ("`it" . "intent" ) |
c419e1e2f8ee
(f90-mode-syntax-table): Don't set ` as word syntax.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93975
diff
changeset
|
980 ("`if" . "interface" ) |
c419e1e2f8ee
(f90-mode-syntax-table): Don't set ` as word syntax.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93975
diff
changeset
|
981 ("`lo" . "logical" ) |
c419e1e2f8ee
(f90-mode-syntax-table): Don't set ` as word syntax.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93975
diff
changeset
|
982 ("`mo" . "module" ) |
c419e1e2f8ee
(f90-mode-syntax-table): Don't set ` as word syntax.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93975
diff
changeset
|
983 ("`na" . "namelist" ) |
c419e1e2f8ee
(f90-mode-syntax-table): Don't set ` as word syntax.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93975
diff
changeset
|
984 ("`nu" . "nullify" ) |
c419e1e2f8ee
(f90-mode-syntax-table): Don't set ` as word syntax.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93975
diff
changeset
|
985 ("`op" . "optional" ) |
c419e1e2f8ee
(f90-mode-syntax-table): Don't set ` as word syntax.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93975
diff
changeset
|
986 ("`pa" . "parameter" ) |
c419e1e2f8ee
(f90-mode-syntax-table): Don't set ` as word syntax.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93975
diff
changeset
|
987 ("`po" . "pointer" ) |
c419e1e2f8ee
(f90-mode-syntax-table): Don't set ` as word syntax.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93975
diff
changeset
|
988 ("`pr" . "print" ) |
c419e1e2f8ee
(f90-mode-syntax-table): Don't set ` as word syntax.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93975
diff
changeset
|
989 ("`pi" . "private" ) |
c419e1e2f8ee
(f90-mode-syntax-table): Don't set ` as word syntax.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93975
diff
changeset
|
990 ("`pm" . "program" ) |
c419e1e2f8ee
(f90-mode-syntax-table): Don't set ` as word syntax.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93975
diff
changeset
|
991 ("`pr" . "protected" ) |
c419e1e2f8ee
(f90-mode-syntax-table): Don't set ` as word syntax.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93975
diff
changeset
|
992 ("`pu" . "public" ) |
c419e1e2f8ee
(f90-mode-syntax-table): Don't set ` as word syntax.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93975
diff
changeset
|
993 ("`r" . "real" ) |
c419e1e2f8ee
(f90-mode-syntax-table): Don't set ` as word syntax.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93975
diff
changeset
|
994 ("`rc" . "recursive" ) |
c419e1e2f8ee
(f90-mode-syntax-table): Don't set ` as word syntax.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93975
diff
changeset
|
995 ("`rt" . "return" ) |
c419e1e2f8ee
(f90-mode-syntax-table): Don't set ` as word syntax.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93975
diff
changeset
|
996 ("`rw" . "rewind" ) |
c419e1e2f8ee
(f90-mode-syntax-table): Don't set ` as word syntax.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93975
diff
changeset
|
997 ("`se" . "select" ) |
c419e1e2f8ee
(f90-mode-syntax-table): Don't set ` as word syntax.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93975
diff
changeset
|
998 ("`sq" . "sequence" ) |
c419e1e2f8ee
(f90-mode-syntax-table): Don't set ` as word syntax.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93975
diff
changeset
|
999 ("`su" . "subroutine" ) |
c419e1e2f8ee
(f90-mode-syntax-table): Don't set ` as word syntax.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93975
diff
changeset
|
1000 ("`ta" . "target" ) |
c419e1e2f8ee
(f90-mode-syntax-table): Don't set ` as word syntax.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93975
diff
changeset
|
1001 ("`tr" . ".true." ) |
c419e1e2f8ee
(f90-mode-syntax-table): Don't set ` as word syntax.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93975
diff
changeset
|
1002 ("`t" . "type" ) |
c419e1e2f8ee
(f90-mode-syntax-table): Don't set ` as word syntax.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93975
diff
changeset
|
1003 ("`vo" . "volatile" ) |
c419e1e2f8ee
(f90-mode-syntax-table): Don't set ` as word syntax.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93975
diff
changeset
|
1004 ("`wh" . "where" ) |
c419e1e2f8ee
(f90-mode-syntax-table): Don't set ` as word syntax.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93975
diff
changeset
|
1005 ("`wr" . "write" ))) |
c419e1e2f8ee
(f90-mode-syntax-table): Don't set ` as word syntax.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93975
diff
changeset
|
1006 "Abbrev table for F90 mode." |
c419e1e2f8ee
(f90-mode-syntax-table): Don't set ` as word syntax.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93975
diff
changeset
|
1007 ;; Accept ` as the first char of an abbrev. Also allow _ in abbrevs. |
c419e1e2f8ee
(f90-mode-syntax-table): Don't set ` as word syntax.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93975
diff
changeset
|
1008 :regexp "\\(?:[^[:word:]_`]\\|^\\)\\(`?[[:word:]_]+\\)[^[:word:]_]*") |
10612 | 1009 |
1010 ;;;###autoload | |
1011 (defun f90-mode () | |
44866
582f083ed579
General tidy-up of commentary and some doc strings.
Glenn Morris <rgm@gnu.org>
parents:
44825
diff
changeset
|
1012 "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
|
1013 For fixed format code, use `fortran-mode'. |
10612 | 1014 |
50597
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
1015 \\[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
|
1016 \\[f90-indent-new-line] indents current line and creates a new\ |
10612 | 1017 indented line. |
44866
582f083ed579
General tidy-up of commentary and some doc strings.
Glenn Morris <rgm@gnu.org>
parents:
44825
diff
changeset
|
1018 \\[f90-indent-subprogram] indents the current subprogram. |
10612 | 1019 |
1020 Type `? or `\\[help-command] to display a list of built-in\ | |
1021 abbrevs for F90 keywords. | |
1022 | |
1023 Key definitions: | |
1024 \\{f90-mode-map} | |
1025 | |
1026 Variables controlling indentation style and extra features: | |
1027 | |
45066
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
1028 `f90-do-indent' |
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
1029 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
|
1030 `f90-if-indent' |
85536
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
1031 Extra indentation within if/select/where/forall blocks (default 3). |
45066
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
1032 `f90-type-indent' |
85536
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
1033 Extra indentation within type/enum/interface/block-data blocks (default 3). |
45066
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
1034 `f90-program-indent' |
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
1035 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
|
1036 (default 2). |
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
1037 `f90-continuation-indent' |
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
1038 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
|
1039 `f90-comment-region' |
45076 | 1040 String inserted by function \\[f90-comment-region] at start of each |
1041 line in region (default \"!!!$\"). | |
45066
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
1042 `f90-indented-comment-re' |
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
1043 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
|
1044 (default \"!\"). |
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
1045 `f90-directive-comment-re' |
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
1046 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
|
1047 (default \"!hpf\\\\$\"). |
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
1048 `f90-break-delimiters' |
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
1049 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
|
1050 (default \"[-+*/><=,% \\t]\"). |
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
1051 `f90-break-before-delimiters' |
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
1052 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
|
1053 (default t). |
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
1054 `f90-beginning-ampersand' |
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
1055 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
|
1056 `f90-smart-end' |
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
1057 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
|
1058 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
|
1059 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
|
1060 `f90-auto-keyword-case' |
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
1061 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
|
1062 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
|
1063 `f90-leave-line-no' |
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
1064 Do not left-justify line numbers (default nil). |
10612 | 1065 |
1066 Turning on F90 mode calls the value of the variable `f90-mode-hook' | |
1067 with no args, if that value is non-nil." | |
1068 (interactive) | |
1069 (kill-all-local-variables) | |
45076 | 1070 (setq major-mode 'f90-mode |
1071 mode-name "F90" | |
1072 local-abbrev-table f90-mode-abbrev-table) | |
10612 | 1073 (set-syntax-table f90-mode-syntax-table) |
1074 (use-local-map f90-mode-map) | |
45076 | 1075 (set (make-local-variable 'indent-line-function) 'f90-indent-line) |
1076 (set (make-local-variable 'indent-region-function) 'f90-indent-region) | |
59243
d4561cc8329d
(f90-mode): Use mode-require-final-newline.
Richard M. Stallman <rms@gnu.org>
parents:
58482
diff
changeset
|
1077 (set (make-local-variable 'require-final-newline) mode-require-final-newline) |
45076 | 1078 (set (make-local-variable 'comment-start) "!") |
1079 (set (make-local-variable 'comment-start-skip) "!+ *") | |
1080 (set (make-local-variable 'comment-indent-function) 'f90-comment-indent) | |
1081 (set (make-local-variable 'abbrev-all-caps) t) | |
1082 (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
|
1083 (setq indent-tabs-mode nil) ; auto buffer local |
45076 | 1084 (set (make-local-variable 'font-lock-defaults) |
1085 '((f90-font-lock-keywords f90-font-lock-keywords-1 | |
1086 f90-font-lock-keywords-2 | |
1087 f90-font-lock-keywords-3 | |
1088 f90-font-lock-keywords-4) | |
1089 nil t)) | |
23997 | 1090 (set (make-local-variable 'imenu-case-fold-search) t) |
45076 | 1091 (set (make-local-variable 'imenu-generic-expression) |
50597
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
1092 f90-imenu-generic-expression) |
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
1093 (set (make-local-variable 'beginning-of-defun-function) |
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
1094 'f90-beginning-of-subprogram) |
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
1095 (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
|
1096 (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
|
1097 #'f90-current-defun) |
62772
f2892faa87d4
* progmodes/ada-mode.el (ada-mode):
Lute Kamstra <lute@gnu.org>
parents:
61810
diff
changeset
|
1098 (run-mode-hooks 'f90-mode-hook)) |
45066
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
1099 |
10612 | 1100 |
45066
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
1101 ;; Inline-functions. |
10612 | 1102 (defsubst f90-in-string () |
44990
8412bb92c791
Add/change doc strings for many in-line functions.
Glenn Morris <rgm@gnu.org>
parents:
44950
diff
changeset
|
1103 "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
|
1104 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
|
1105 and lies before point." |
10612 | 1106 (let ((beg-pnt |
85535 | 1107 (if (and f90-cache-position (> (point) f90-cache-position)) |
1108 f90-cache-position | |
1109 (point-min)))) | |
10612 | 1110 (nth 3 (parse-partial-sexp beg-pnt (point))))) |
44997 | 1111 |
10612 | 1112 (defsubst f90-in-comment () |
44990
8412bb92c791
Add/change doc strings for many in-line functions.
Glenn Morris <rgm@gnu.org>
parents:
44950
diff
changeset
|
1113 "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
|
1114 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
|
1115 and lies before point." |
10612 | 1116 (let ((beg-pnt |
85535 | 1117 (if (and f90-cache-position (> (point) f90-cache-position)) |
1118 f90-cache-position | |
1119 (point-min)))) | |
10612 | 1120 (nth 4 (parse-partial-sexp beg-pnt (point))))) |
1121 | |
1122 (defsubst f90-line-continued () | |
44990
8412bb92c791
Add/change doc strings for many in-line functions.
Glenn Morris <rgm@gnu.org>
parents:
44950
diff
changeset
|
1123 "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
|
1124 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
|
1125 not the last line of a continued statement." |
10612 | 1126 (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
|
1127 (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
|
1128 (while (and (looking-at "[ \t]*\\(!\\|$\\)") (zerop (forward-line -1)))) |
45076 | 1129 (end-of-line) |
1130 (while (f90-in-comment) | |
1131 (search-backward "!" (line-beginning-position)) | |
1132 (skip-chars-backward "!")) | |
1133 (skip-chars-backward " \t") | |
1134 (= (preceding-char) ?&))) | |
10612 | 1135 |
50610
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1136 ;; 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
|
1137 ;; Need f90-code-start-position function. |
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1138 ;; 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
|
1139 ;; cf f90-indent-line |
5773e914b2ed
(f90-font-lock-keywords-2): Use override for
Glenn Morris <rgm@gnu.org>
parents:
50616
diff
changeset
|
1140 ;; (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
|
1141 ;; (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
|
1142 ;; (f90-line-continued)))) |
5773e914b2ed
(f90-font-lock-keywords-2): Use override for
Glenn Morris <rgm@gnu.org>
parents:
50616
diff
changeset
|
1143 ;; (f90-indent-line-no) |
10612 | 1144 (defsubst f90-current-indentation () |
1145 "Return indentation of current line. | |
1146 Line-numbers are considered whitespace characters." | |
45076 | 1147 (save-excursion (beginning-of-line) (skip-chars-forward " \t0-9"))) |
10612 | 1148 |
1149 (defsubst f90-indent-to (col &optional no-line-number) | |
1150 "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
|
1151 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
|
1152 line-number before indenting." |
10612 | 1153 (beginning-of-line) |
50610
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1154 (or no-line-number |
10612 | 1155 (skip-chars-forward " \t0-9")) |
1156 (delete-horizontal-space) | |
50610
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1157 ;; Leave >= 1 space after line number. |
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1158 (indent-to col (if (zerop (current-column)) 0 1))) |
10612 | 1159 |
1160 (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
|
1161 "If point lies within a comment, return the string starting the comment. |
55250
d5d0f1479a4a
(f90-get-present-comment-type): Return whitespace, as well as comment
Glenn Morris <rgm@gnu.org>
parents:
53699
diff
changeset
|
1162 For example, \"!\" or \"!!\", followed by the appropriate amount of |
d5d0f1479a4a
(f90-get-present-comment-type): Return whitespace, as well as comment
Glenn Morris <rgm@gnu.org>
parents:
53699
diff
changeset
|
1163 whitespace, if any." |
d5d0f1479a4a
(f90-get-present-comment-type): Return whitespace, as well as comment
Glenn Morris <rgm@gnu.org>
parents:
53699
diff
changeset
|
1164 ;; Include the whitespace for consistent auto-filling of comment blocks. |
10612 | 1165 (save-excursion |
45076 | 1166 (when (f90-in-comment) |
1167 (beginning-of-line) | |
55250
d5d0f1479a4a
(f90-get-present-comment-type): Return whitespace, as well as comment
Glenn Morris <rgm@gnu.org>
parents:
53699
diff
changeset
|
1168 (re-search-forward "!+[ \t]*" (line-end-position)) |
45076 | 1169 (while (f90-in-string) |
55250
d5d0f1479a4a
(f90-get-present-comment-type): Return whitespace, as well as comment
Glenn Morris <rgm@gnu.org>
parents:
53699
diff
changeset
|
1170 (re-search-forward "!+[ \t]*" (line-end-position))) |
d5d0f1479a4a
(f90-get-present-comment-type): Return whitespace, as well as comment
Glenn Morris <rgm@gnu.org>
parents:
53699
diff
changeset
|
1171 (match-string-no-properties 0)))) |
10612 | 1172 |
1173 (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
|
1174 "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
|
1175 (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
|
1176 (if b (downcase b) nil))) |
10612 | 1177 |
1178 (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
|
1179 "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
|
1180 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
|
1181 (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
|
1182 (list (match-string 3) (match-string 2)))) |
13064 | 1183 |
1184 (defsubst f90-looking-at-select-case () | |
85536
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
1185 "Return (\"select\" NAME) if a select statement starts after point. |
44990
8412bb92c791
Add/change doc strings for many in-line functions.
Glenn Morris <rgm@gnu.org>
parents:
44950
diff
changeset
|
1186 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
|
1187 (if (looking-at "\\(\\(\\sw+\\)[ \t]*:\\)?[ \t]*\ |
85536
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
1188 \\(select\\)[ \t]*\\(case\\|type\\)[ \t]*(") |
50610
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1189 (list (match-string 3) (match-string 2)))) |
10612 | 1190 |
1191 (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
|
1192 "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
|
1193 NAME is nil if the statement has no label." |
10612 | 1194 (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
|
1195 (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
|
1196 (let ((struct (match-string 3)) |
50610
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1197 (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
|
1198 (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
|
1199 (and pos (goto-char pos)) |
44944
dbacf99cccc4
Minor reorganization of some code.
Glenn Morris <rgm@gnu.org>
parents:
44943
diff
changeset
|
1200 (skip-chars-forward " \t") |
dbacf99cccc4
Minor reorganization of some code.
Glenn Morris <rgm@gnu.org>
parents:
44943
diff
changeset
|
1201 (if (or (looking-at "then\\>") |
dbacf99cccc4
Minor reorganization of some code.
Glenn Morris <rgm@gnu.org>
parents:
44943
diff
changeset
|
1202 (when (f90-line-continued) |
dbacf99cccc4
Minor reorganization of some code.
Glenn Morris <rgm@gnu.org>
parents:
44943
diff
changeset
|
1203 (f90-next-statement) |
dbacf99cccc4
Minor reorganization of some code.
Glenn Morris <rgm@gnu.org>
parents:
44943
diff
changeset
|
1204 (skip-chars-forward " \t0-9&") |
dbacf99cccc4
Minor reorganization of some code.
Glenn Morris <rgm@gnu.org>
parents:
44943
diff
changeset
|
1205 (looking-at "then\\>"))) |
dbacf99cccc4
Minor reorganization of some code.
Glenn Morris <rgm@gnu.org>
parents:
44943
diff
changeset
|
1206 (list struct label)))))) |
10612 | 1207 |
85536
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
1208 ;; FIXME label? |
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
1209 (defsubst f90-looking-at-associate () |
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
1210 "Return (\"associate\") if an associate block starts after point." |
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
1211 (if (looking-at "\\<\\(associate\\)[ \t]*(") |
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
1212 (list (match-string 1)))) |
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
1213 |
45434
1c0762514eaa
(f90-looking-at-where-or-forall): Oops, defsubst, not defun.
Glenn Morris <rgm@gnu.org>
parents:
45379
diff
changeset
|
1214 (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
|
1215 "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
|
1216 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
|
1217 (save-excursion |
31cf809b5bc2
(f90-equal-symbols, f90-looking-at-do, f90-looking-at-select-case)
Glenn Morris <rgm@gnu.org>
parents:
45372
diff
changeset
|
1218 (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
|
1219 \\(where\\|forall\\)\\>") |
31cf809b5bc2
(f90-equal-symbols, f90-looking-at-do, f90-looking-at-select-case)
Glenn Morris <rgm@gnu.org>
parents:
45372
diff
changeset
|
1220 (let ((struct (match-string 3)) |
50610
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1221 (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
|
1222 (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
|
1223 (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
|
1224 (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
|
1225 (if (looking-at "\\(!\\|$\\)") (list struct label)))))) |
10612 | 1226 |
1227 (defsubst f90-looking-at-type-like () | |
85536
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
1228 "Return (KIND NAME) if a type/enum/interface/block-data starts after point. |
107101
3b143add1364
Handle F2003 named interfaces.
Glenn Morris <rgm@gnu.org>
parents:
107091
diff
changeset
|
1229 NAME is non-nil only for type and certain interfaces." |
44997 | 1230 (cond |
85536
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
1231 ((save-excursion |
95487
35a83ed5a550
(f90-typedef-matcher, f90-looking-at-type-like): Check that
Glenn Morris <rgm@gnu.org>
parents:
94673
diff
changeset
|
1232 (and (looking-at "\\<type\\>[ \t]*") |
85536
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
1233 (goto-char (match-end 0)) |
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
1234 (not (looking-at "\\(is\\>\\|(\\)")) |
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
1235 (or (looking-at "\\(\\sw+\\)") |
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
1236 (re-search-forward "[ \t]*::[ \t]*\\(\\sw+\\)" |
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
1237 (line-end-position) t)))) |
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
1238 (list "type" (match-string 1))) |
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
1239 ;;; ((and (not (looking-at f90-typeis-re)) |
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
1240 ;;; (looking-at f90-type-def-re)) |
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
1241 ;;; (list (match-string 1) (match-string 2))) |
107101
3b143add1364
Handle F2003 named interfaces.
Glenn Morris <rgm@gnu.org>
parents:
107091
diff
changeset
|
1242 ((looking-at "\\<\\(interface\\)\\>[ \t]*") |
3b143add1364
Handle F2003 named interfaces.
Glenn Morris <rgm@gnu.org>
parents:
107091
diff
changeset
|
1243 (list (match-string 1) |
3b143add1364
Handle F2003 named interfaces.
Glenn Morris <rgm@gnu.org>
parents:
107091
diff
changeset
|
1244 (save-excursion |
3b143add1364
Handle F2003 named interfaces.
Glenn Morris <rgm@gnu.org>
parents:
107091
diff
changeset
|
1245 (goto-char (match-end 0)) |
3b143add1364
Handle F2003 named interfaces.
Glenn Morris <rgm@gnu.org>
parents:
107091
diff
changeset
|
1246 (if (or (looking-at "\\(operator\\|assignment\\|read\\|\ |
3b143add1364
Handle F2003 named interfaces.
Glenn Morris <rgm@gnu.org>
parents:
107091
diff
changeset
|
1247 write\\)[ \t]*([^)\n]*)") |
3b143add1364
Handle F2003 named interfaces.
Glenn Morris <rgm@gnu.org>
parents:
107091
diff
changeset
|
1248 (looking-at "\\sw+")) |
3b143add1364
Handle F2003 named interfaces.
Glenn Morris <rgm@gnu.org>
parents:
107091
diff
changeset
|
1249 (match-string 0))))) |
3b143add1364
Handle F2003 named interfaces.
Glenn Morris <rgm@gnu.org>
parents:
107091
diff
changeset
|
1250 ((looking-at "\\(enum\\|block[ \t]*data\\)\\>") |
85536
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
1251 (list (match-string 1) nil)) |
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
1252 ((looking-at "abstract[ \t]*\\(interface\\)\\>") |
44824
637c10f08055
(f90-get-beg-of-line): Removed and replaced with line-beginning-position.
Glenn Morris <rgm@gnu.org>
parents:
44697
diff
changeset
|
1253 (list (match-string 1) nil)))) |
10612 | 1254 |
1255 (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
|
1256 "Return (KIND NAME) if a program block with name NAME starts after point." |
58482
08ece7841cd6
(f90-smart-end, f90-previous-statement, f90-beginning-of-block): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
57935
diff
changeset
|
1257 ;;;NAME is nil for an un-named main PROGRAM block." |
10612 | 1258 (cond |
13064 | 1259 ((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
|
1260 (list (match-string 1) (match-string 2))) |
10612 | 1261 ((and (not (looking-at "module[ \t]*procedure\\>")) |
85535 | 1262 (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
|
1263 (list (match-string 1) (match-string 2))) |
15863
f11b2bfc1275
new version from Torbj?Einarsson.
Erik Naggum <erik@naggum.no>
parents:
15244
diff
changeset
|
1264 ((and (not (looking-at "end[ \t]*\\(function\\|subroutine\\)")) |
85535 | 1265 (looking-at "[^!'\"\&\n]*\\(function\\|subroutine\\)[ \t]+\ |
50610
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1266 \\(\\sw+\\)")) |
44824
637c10f08055
(f90-get-beg-of-line): Removed and replaced with line-beginning-position.
Glenn Morris <rgm@gnu.org>
parents:
44697
diff
changeset
|
1267 (list (match-string 1) (match-string 2))))) |
58482
08ece7841cd6
(f90-smart-end, f90-previous-statement, f90-beginning-of-block): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
57935
diff
changeset
|
1268 ;; Following will match an un-named main program block; however |
08ece7841cd6
(f90-smart-end, f90-previous-statement, f90-beginning-of-block): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
57935
diff
changeset
|
1269 ;; one needs to check if there is an actual PROGRAM statement after |
08ece7841cd6
(f90-smart-end, f90-previous-statement, f90-beginning-of-block): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
57935
diff
changeset
|
1270 ;; point (and before any END program). Adding this will require |
08ece7841cd6
(f90-smart-end, f90-previous-statement, f90-beginning-of-block): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
57935
diff
changeset
|
1271 ;; change to eg f90-calculate-indent. |
08ece7841cd6
(f90-smart-end, f90-previous-statement, f90-beginning-of-block): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
57935
diff
changeset
|
1272 ;;; ((save-excursion |
08ece7841cd6
(f90-smart-end, f90-previous-statement, f90-beginning-of-block): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
57935
diff
changeset
|
1273 ;;; (not (f90-previous-statement))) |
08ece7841cd6
(f90-smart-end, f90-previous-statement, f90-beginning-of-block): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
57935
diff
changeset
|
1274 ;;; '("program" nil)))) |
10612 | 1275 |
1276 (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
|
1277 "Return (KIND NAME) if a block with name NAME ends after point." |
107101
3b143add1364
Handle F2003 named interfaces.
Glenn Morris <rgm@gnu.org>
parents:
107091
diff
changeset
|
1278 (cond ((looking-at "end[ \t]*\\(interface\\)[ \t]*\\(\ |
3b143add1364
Handle F2003 named interfaces.
Glenn Morris <rgm@gnu.org>
parents:
107091
diff
changeset
|
1279 \\(?:assignment\\|operator\\|read\\|write\\)[ \t]*([^)\n]*)\\)") |
3b143add1364
Handle F2003 named interfaces.
Glenn Morris <rgm@gnu.org>
parents:
107091
diff
changeset
|
1280 (list (match-string 1) (match-string 2))) |
3b143add1364
Handle F2003 named interfaces.
Glenn Morris <rgm@gnu.org>
parents:
107091
diff
changeset
|
1281 ((looking-at (concat "end[ \t]*" f90-blocks-re |
3b143add1364
Handle F2003 named interfaces.
Glenn Morris <rgm@gnu.org>
parents:
107091
diff
changeset
|
1282 "?\\([ \t]+\\(\\sw+\\)\\)?\\>")) |
3b143add1364
Handle F2003 named interfaces.
Glenn Morris <rgm@gnu.org>
parents:
107091
diff
changeset
|
1283 (list (match-string 1) (match-string 3))))) |
10612 | 1284 |
1285 (defsubst f90-comment-indent () | |
45066
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
1286 "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
|
1287 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
|
1288 \"!!!\", `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
|
1289 `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
|
1290 All others return `comment-column', leaving at least one space after code." |
10612 | 1291 (cond ((looking-at "!!!") 0) |
85535 | 1292 ((and f90-directive-comment-re |
1293 (looking-at f90-directive-comment-re)) 0) | |
1294 ((looking-at (regexp-quote f90-comment-region)) 0) | |
1295 ((and (looking-at f90-indented-comment-re) | |
1296 ;; Don't attempt to indent trailing comment as code. | |
1297 (save-excursion | |
1298 (skip-chars-backward " \t") | |
1299 (bolp))) | |
1300 (f90-calculate-indent)) | |
1301 (t (save-excursion | |
74133
2942fb5a1900
(f90-comment-indent): Do not move point in default case.
Glenn Morris <rgm@gnu.org>
parents:
73870
diff
changeset
|
1302 (skip-chars-backward " \t") |
2942fb5a1900
(f90-comment-indent): Do not move point in default case.
Glenn Morris <rgm@gnu.org>
parents:
73870
diff
changeset
|
1303 (max (if (bolp) 0 (1+ (current-column))) comment-column))))) |
10612 | 1304 |
1305 (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
|
1306 "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
|
1307 Possible return values are: |
8412bb92c791
Add/change doc strings for many in-line functions.
Glenn Morris <rgm@gnu.org>
parents:
44950
diff
changeset
|
1308 single - statement is not continued. |
8412bb92c791
Add/change doc strings for many in-line functions.
Glenn Morris <rgm@gnu.org>
parents:
44950
diff
changeset
|
1309 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
|
1310 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
|
1311 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
|
1312 Comment lines embedded amongst continued lines return 'middle." |
10612 | 1313 (let (pcont cont) |
1314 (save-excursion | |
45076 | 1315 (setq pcont (if (f90-previous-statement) (f90-line-continued)))) |
10612 | 1316 (setq cont (f90-line-continued)) |
1317 (cond ((and (not pcont) (not cont)) 'single) | |
85535 | 1318 ((and (not pcont) cont) 'begin) |
1319 ((and pcont (not cont)) 'end) | |
1320 ((and pcont cont) 'middle) | |
1321 (t (error "The impossible occurred"))))) | |
10612 | 1322 |
1323 (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
|
1324 "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
|
1325 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
|
1326 Call from beginning of line." |
50610
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1327 (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
|
1328 (delete-horizontal-space)) |
10612 | 1329 (skip-chars-forward " \t0-9")) |
1330 | |
1331 (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
|
1332 "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
|
1333 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
|
1334 if all else fails." |
50610
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1335 (save-excursion |
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1336 (not (or (looking-at "end") |
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1337 (looking-at "\\(do\\|if\\|else\\(if\\|where\\)?\ |
85536
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
1338 \\|select[ \t]*\\(case\\|type\\)\\|case\\|where\\|forall\\)\\>") |
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
1339 (looking-at "\\(program\\|module\\|\ |
85617
4cbfa6e02bcd
(f90-keywords-re, f90-keywords-level-3-re): Add `non_intrinsic'.
Glenn Morris <rgm@gnu.org>
parents:
85578
diff
changeset
|
1340 \\(?:abstract[ \t]*\\)?interface\\|block[ \t]*data\\)\\>") |
50610
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1341 (looking-at "\\(contains\\|\\sw+[ \t]*:\\)") |
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1342 (looking-at f90-type-def-re) |
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1343 (re-search-forward "\\(function\\|subroutine\\)" |
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1344 (line-end-position) t))))) |
10612 | 1345 |
1346 (defsubst f90-update-line () | |
44990
8412bb92c791
Add/change doc strings for many in-line functions.
Glenn Morris <rgm@gnu.org>
parents:
44950
diff
changeset
|
1347 "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
|
1348 (if f90-auto-keyword-case |
8412bb92c791
Add/change doc strings for many in-line functions.
Glenn Morris <rgm@gnu.org>
parents:
44950
diff
changeset
|
1349 (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
|
1350 (line-beginning-position) (line-end-position)))) |
10612 | 1351 |
61461
7924ec3eef18
(f90-electric-insert): Add optional prefix arg, and pass to
Glenn Morris <rgm@gnu.org>
parents:
61106
diff
changeset
|
1352 (defun f90-electric-insert (&optional arg) |
44990
8412bb92c791
Add/change doc strings for many in-line functions.
Glenn Morris <rgm@gnu.org>
parents:
44950
diff
changeset
|
1353 "Change keyword case and auto-fill line as operators are inserted." |
61461
7924ec3eef18
(f90-electric-insert): Add optional prefix arg, and pass to
Glenn Morris <rgm@gnu.org>
parents:
61106
diff
changeset
|
1354 (interactive "*p") |
7924ec3eef18
(f90-electric-insert): Add optional prefix arg, and pass to
Glenn Morris <rgm@gnu.org>
parents:
61106
diff
changeset
|
1355 (self-insert-command arg) |
44990
8412bb92c791
Add/change doc strings for many in-line functions.
Glenn Morris <rgm@gnu.org>
parents:
44950
diff
changeset
|
1356 (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
|
1357 (f90-update-line))) |
8412bb92c791
Add/change doc strings for many in-line functions.
Glenn Morris <rgm@gnu.org>
parents:
44950
diff
changeset
|
1358 |
16444
f32ed369901c
(f90-no-block-limit): Fixed bug for indentation of
Richard M. Stallman <rms@gnu.org>
parents:
15863
diff
changeset
|
1359 |
10612 | 1360 (defun f90-get-correct-indent () |
1361 "Get correct indent for a line starting with line number. | |
1362 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
|
1363 (let ((epnt (line-end-position)) icol cont) |
10612 | 1364 (save-excursion |
1365 (while (and (f90-previous-statement) | |
104821
25eb9d6cb593
Move all safe properties into the defcustoms.
Glenn Morris <rgm@gnu.org>
parents:
103652
diff
changeset
|
1366 (or (memq (setq cont (f90-present-statement-cont)) |
25eb9d6cb593
Move all safe properties into the defcustoms.
Glenn Morris <rgm@gnu.org>
parents:
103652
diff
changeset
|
1367 '(middle end)) |
85535 | 1368 (looking-at "[ \t]*[0-9]")))) |
10612 | 1369 (setq icol (current-indentation)) |
1370 (beginning-of-line) | |
44944
dbacf99cccc4
Minor reorganization of some code.
Glenn Morris <rgm@gnu.org>
parents:
44943
diff
changeset
|
1371 (when (re-search-forward "\\(if\\|do\\|select\\|where\\|forall\\)" |
dbacf99cccc4
Minor reorganization of some code.
Glenn Morris <rgm@gnu.org>
parents:
44943
diff
changeset
|
1372 (line-end-position) t) |
45076 | 1373 (beginning-of-line) |
1374 (skip-chars-forward " \t") | |
44944
dbacf99cccc4
Minor reorganization of some code.
Glenn Morris <rgm@gnu.org>
parents:
44943
diff
changeset
|
1375 (cond ((f90-looking-at-do) |
dbacf99cccc4
Minor reorganization of some code.
Glenn Morris <rgm@gnu.org>
parents:
44943
diff
changeset
|
1376 (setq icol (+ icol f90-do-indent))) |
dbacf99cccc4
Minor reorganization of some code.
Glenn Morris <rgm@gnu.org>
parents:
44943
diff
changeset
|
1377 ((or (f90-looking-at-if-then) |
dbacf99cccc4
Minor reorganization of some code.
Glenn Morris <rgm@gnu.org>
parents:
44943
diff
changeset
|
1378 (f90-looking-at-where-or-forall) |
dbacf99cccc4
Minor reorganization of some code.
Glenn Morris <rgm@gnu.org>
parents:
44943
diff
changeset
|
1379 (f90-looking-at-select-case)) |
85536
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
1380 (setq icol (+ icol f90-if-indent))) |
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
1381 ((f90-looking-at-associate) |
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
1382 (setq icol (+ icol f90-associate-indent)))) |
44944
dbacf99cccc4
Minor reorganization of some code.
Glenn Morris <rgm@gnu.org>
parents:
44943
diff
changeset
|
1383 (end-of-line)) |
10612 | 1384 (while (re-search-forward |
85535 | 1385 "\\(if\\|do\\|select\\|where\\|forall\\)" epnt t) |
1386 (beginning-of-line) | |
45076 | 1387 (skip-chars-forward " \t0-9") |
85535 | 1388 (cond ((f90-looking-at-do) |
45076 | 1389 (setq icol (+ icol f90-do-indent))) |
1390 ((or (f90-looking-at-if-then) | |
1391 (f90-looking-at-where-or-forall) | |
1392 (f90-looking-at-select-case)) | |
1393 (setq icol (+ icol f90-if-indent))) | |
85536
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
1394 ((f90-looking-at-associate) |
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
1395 (setq icol (+ icol f90-associate-indent))) |
45076 | 1396 ((looking-at f90-end-if-re) |
1397 (setq icol (- icol f90-if-indent))) | |
85536
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
1398 ((looking-at f90-end-associate-re) |
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
1399 (setq icol (- icol f90-associate-indent))) |
45076 | 1400 ((looking-at "end[ \t]*do\\>") |
1401 (setq icol (- icol f90-do-indent)))) | |
85535 | 1402 (end-of-line)) |
10612 | 1403 icol))) |
44997 | 1404 |
10612 | 1405 (defun f90-calculate-indent () |
1406 "Calculate the indent column based on previous statements." | |
1407 (interactive) | |
1408 (let (icol cont (case-fold-search t) (pnt (point))) | |
1409 (save-excursion | |
1410 (if (not (f90-previous-statement)) | |
61810
ab4b241ac836
(f90-calculate-indent): Fix treatment of first statement in buffer
Glenn Morris <rgm@gnu.org>
parents:
61461
diff
changeset
|
1411 ;; If f90-previous-statement returns nil, we must have been |
ab4b241ac836
(f90-calculate-indent): Fix treatment of first statement in buffer
Glenn Morris <rgm@gnu.org>
parents:
61461
diff
changeset
|
1412 ;; called from on or before the first line of the first statement. |
85535 | 1413 (setq icol (if (save-excursion |
61810
ab4b241ac836
(f90-calculate-indent): Fix treatment of first statement in buffer
Glenn Morris <rgm@gnu.org>
parents:
61461
diff
changeset
|
1414 ;; f90-previous-statement has moved us over |
ab4b241ac836
(f90-calculate-indent): Fix treatment of first statement in buffer
Glenn Morris <rgm@gnu.org>
parents:
61461
diff
changeset
|
1415 ;; comment/blank lines, so we need to get |
ab4b241ac836
(f90-calculate-indent): Fix treatment of first statement in buffer
Glenn Morris <rgm@gnu.org>
parents:
61461
diff
changeset
|
1416 ;; back to the first code statement. |
ab4b241ac836
(f90-calculate-indent): Fix treatment of first statement in buffer
Glenn Morris <rgm@gnu.org>
parents:
61461
diff
changeset
|
1417 (when (looking-at "[ \t]*\\([!#]\\|$\\)") |
ab4b241ac836
(f90-calculate-indent): Fix treatment of first statement in buffer
Glenn Morris <rgm@gnu.org>
parents:
61461
diff
changeset
|
1418 (f90-next-statement)) |
ab4b241ac836
(f90-calculate-indent): Fix treatment of first statement in buffer
Glenn Morris <rgm@gnu.org>
parents:
61461
diff
changeset
|
1419 (skip-chars-forward " \t0-9") |
58482
08ece7841cd6
(f90-smart-end, f90-previous-statement, f90-beginning-of-block): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
57935
diff
changeset
|
1420 (f90-looking-at-program-block-start)) |
08ece7841cd6
(f90-smart-end, f90-previous-statement, f90-beginning-of-block): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
57935
diff
changeset
|
1421 0 |
08ece7841cd6
(f90-smart-end, f90-previous-statement, f90-beginning-of-block): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
57935
diff
changeset
|
1422 ;; No explicit PROGRAM start statement. |
08ece7841cd6
(f90-smart-end, f90-previous-statement, f90-beginning-of-block): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
57935
diff
changeset
|
1423 f90-program-indent)) |
85535 | 1424 (setq cont (f90-present-statement-cont)) |
1425 (if (eq cont 'end) | |
1426 (while (not (eq 'begin (f90-present-statement-cont))) | |
1427 (f90-previous-statement))) | |
1428 (cond ((eq cont 'begin) | |
1429 (setq icol (+ (f90-current-indentation) | |
1430 f90-continuation-indent))) | |
1431 ((eq cont 'middle) (setq icol (current-indentation))) | |
1432 (t (setq icol (f90-current-indentation)) | |
1433 (skip-chars-forward " \t") | |
1434 (if (looking-at "[0-9]") | |
1435 (setq icol (f90-get-correct-indent)) | |
1436 (cond ((or (f90-looking-at-if-then) | |
1437 (f90-looking-at-where-or-forall) | |
1438 (f90-looking-at-select-case) | |
1439 (looking-at f90-else-like-re)) | |
1440 (setq icol (+ icol f90-if-indent))) | |
1441 ((f90-looking-at-do) | |
1442 (setq icol (+ icol f90-do-indent))) | |
1443 ((f90-looking-at-type-like) | |
1444 (setq icol (+ icol f90-type-indent))) | |
85536
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
1445 ((f90-looking-at-associate) |
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
1446 (setq icol (+ icol f90-associate-indent))) |
85535 | 1447 ((or (f90-looking-at-program-block-start) |
1448 (looking-at "contains[ \t]*\\($\\|!\\)")) | |
1449 (setq icol (+ icol f90-program-indent))))) | |
1450 (goto-char pnt) | |
1451 (beginning-of-line) | |
1452 (cond ((looking-at "[ \t]*$")) | |
1453 ((looking-at "[ \t]*#") ; check for cpp directive | |
1454 (setq icol 0)) | |
1455 (t | |
1456 (skip-chars-forward " \t0-9") | |
1457 (cond ((or (looking-at f90-else-like-re) | |
1458 (looking-at f90-end-if-re)) | |
1459 (setq icol (- icol f90-if-indent))) | |
1460 ((looking-at "end[ \t]*do\\>") | |
1461 (setq icol (- icol f90-do-indent))) | |
1462 ((looking-at f90-end-type-re) | |
1463 (setq icol (- icol f90-type-indent))) | |
85536
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
1464 ((looking-at f90-end-associate-re) |
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
1465 (setq icol (- icol f90-associate-indent))) |
85535 | 1466 ((or (looking-at "contains[ \t]*\\(!\\|$\\)") |
1467 (f90-looking-at-program-block-end)) | |
92813
9c73b1f69e7e
(f90-font-lock-n): New function.
Glenn Morris <rgm@gnu.org>
parents:
87941
diff
changeset
|
1468 (setq icol (- icol f90-program-indent)))))))))) |
10612 | 1469 icol)) |
1470 | |
1471 (defun f90-previous-statement () | |
1472 "Move point to beginning of the previous F90 statement. | |
58482
08ece7841cd6
(f90-smart-end, f90-previous-statement, f90-beginning-of-block): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
57935
diff
changeset
|
1473 If no previous statement is found (i.e. if called from the first |
08ece7841cd6
(f90-smart-end, f90-previous-statement, f90-beginning-of-block): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
57935
diff
changeset
|
1474 statement in the buffer), move to the start of the buffer and |
08ece7841cd6
(f90-smart-end, f90-previous-statement, f90-beginning-of-block): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
57935
diff
changeset
|
1475 return nil. A statement is a line which is neither blank nor a |
08ece7841cd6
(f90-smart-end, f90-previous-statement, f90-beginning-of-block): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
57935
diff
changeset
|
1476 comment." |
10612 | 1477 (interactive) |
1478 (let (not-first-statement) | |
1479 (beginning-of-line) | |
1480 (while (and (setq not-first-statement (zerop (forward-line -1))) | |
85535 | 1481 (looking-at "[ \t0-9]*\\(!\\|$\\|#\\)"))) |
10612 | 1482 not-first-statement)) |
1483 | |
1484 (defun f90-next-statement () | |
1485 "Move point to beginning of the next F90 statement. | |
1486 Return nil if no later statement is found." | |
1487 (interactive) | |
1488 (let (not-last-statement) | |
1489 (beginning-of-line) | |
1490 (while (and (setq not-last-statement | |
85535 | 1491 (and (zerop (forward-line 1)) |
1492 (not (eobp)))) | |
1493 (looking-at "[ \t0-9]*\\(!\\|$\\)"))) | |
10612 | 1494 not-last-statement)) |
1495 | |
1496 (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
|
1497 "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
|
1498 Return (TYPE NAME), or nil if not found." |
10612 | 1499 (interactive) |
1500 (let ((count 1) (case-fold-search t) matching-beg) | |
45076 | 1501 (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
|
1502 (while (and (> count 0) |
85535 | 1503 (re-search-backward f90-program-block-re nil 'move)) |
45076 | 1504 (beginning-of-line) |
1505 (skip-chars-forward " \t0-9") | |
1506 (cond ((setq matching-beg (f90-looking-at-program-block-start)) | |
1507 (setq count (1- count))) | |
1508 ((f90-looking-at-program-block-end) | |
1509 (setq count (1+ count))))) | |
10612 | 1510 (beginning-of-line) |
1511 (if (zerop count) | |
85535 | 1512 matching-beg |
58482
08ece7841cd6
(f90-smart-end, f90-previous-statement, f90-beginning-of-block): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
57935
diff
changeset
|
1513 ;; Note this includes the case of an un-named main program, |
08ece7841cd6
(f90-smart-end, f90-previous-statement, f90-beginning-of-block): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
57935
diff
changeset
|
1514 ;; in which case we go to (point-min). |
105372
bd2966850aac
Use `called-interactively-p' instead of `interactive-p'.
Juanma Barranquero <lekktu@gmail.com>
parents:
104821
diff
changeset
|
1515 (if (called-interactively-p 'interactive) |
bd2966850aac
Use `called-interactively-p' instead of `interactive-p'.
Juanma Barranquero <lekktu@gmail.com>
parents:
104821
diff
changeset
|
1516 (message "No beginning found")) |
10612 | 1517 nil))) |
1518 | |
1519 (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
|
1520 "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
|
1521 Return (TYPE NAME), or nil if not found." |
10612 | 1522 (interactive) |
50647
5773e914b2ed
(f90-font-lock-keywords-2): Use override for
Glenn Morris <rgm@gnu.org>
parents:
50616
diff
changeset
|
1523 (let ((case-fold-search t) |
95831
c5f85ede892d
(f90-beginning-of-subprogram, f90-end-of-subprogram): Only give a
Glenn Morris <rgm@gnu.org>
parents:
95487
diff
changeset
|
1524 (count 1) |
50647
5773e914b2ed
(f90-font-lock-keywords-2): Use override for
Glenn Morris <rgm@gnu.org>
parents:
50616
diff
changeset
|
1525 matching-end) |
10612 | 1526 (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
|
1527 (while (and (> count 0) |
85535 | 1528 (re-search-forward f90-program-block-re nil 'move)) |
45076 | 1529 (beginning-of-line) |
1530 (skip-chars-forward " \t0-9") | |
10612 | 1531 (cond ((f90-looking-at-program-block-start) |
85535 | 1532 (setq count (1+ count))) |
1533 ((setq matching-end (f90-looking-at-program-block-end)) | |
1534 (setq count (1- count)))) | |
10612 | 1535 (end-of-line)) |
45497
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1536 ;; 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
|
1537 ;; 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
|
1538 ;;; (forward-line 1) |
10612 | 1539 (if (zerop count) |
85535 | 1540 matching-end |
105372
bd2966850aac
Use `called-interactively-p' instead of `interactive-p'.
Juanma Barranquero <lekktu@gmail.com>
parents:
104821
diff
changeset
|
1541 (if (called-interactively-p 'interactive) |
bd2966850aac
Use `called-interactively-p' instead of `interactive-p'.
Juanma Barranquero <lekktu@gmail.com>
parents:
104821
diff
changeset
|
1542 (message "No end found")) |
10612 | 1543 nil))) |
1544 | |
45497
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1545 |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1546 (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
|
1547 "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
|
1548 With optional argument NUM, go forward that many balanced blocks. |
58482
08ece7841cd6
(f90-smart-end, f90-previous-statement, f90-beginning-of-block): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
57935
diff
changeset
|
1549 If NUM is negative, go backward to the start of a block. Checks |
08ece7841cd6
(f90-smart-end, f90-previous-statement, f90-beginning-of-block): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
57935
diff
changeset
|
1550 for consistency of block types and labels (if present), and |
08ece7841cd6
(f90-smart-end, f90-previous-statement, f90-beginning-of-block): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
57935
diff
changeset
|
1551 completes outermost block if `f90-smart-end' is non-nil. |
08ece7841cd6
(f90-smart-end, f90-previous-statement, f90-beginning-of-block): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
57935
diff
changeset
|
1552 Interactively, pushes mark before moving point." |
45497
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1553 (interactive "p") |
105481
19b028e1b57f
(f90-end-of-block, f90-beginning-of-block):
Glenn Morris <rgm@gnu.org>
parents:
105372
diff
changeset
|
1554 ;; Can move some distance. |
19b028e1b57f
(f90-end-of-block, f90-beginning-of-block):
Glenn Morris <rgm@gnu.org>
parents:
105372
diff
changeset
|
1555 (if (called-interactively-p 'any) (push-mark (point) t)) |
58482
08ece7841cd6
(f90-smart-end, f90-previous-statement, f90-beginning-of-block): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
57935
diff
changeset
|
1556 (and num (< num 0) (f90-beginning-of-block (- num))) |
08ece7841cd6
(f90-smart-end, f90-previous-statement, f90-beginning-of-block): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
57935
diff
changeset
|
1557 (let ((f90-smart-end (if f90-smart-end 'no-blink)) ; for final match-end |
45497
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1558 (case-fold-search t) |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1559 (count (or num 1)) |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1560 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
|
1561 (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
|
1562 (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
|
1563 (beginning-of-line) |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1564 (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
|
1565 (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
|
1566 ((setq start-this |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1567 (or |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1568 (f90-looking-at-do) |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1569 (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
|
1570 (f90-looking-at-type-like) |
85536
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
1571 (f90-looking-at-associate) |
45497
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1572 (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
|
1573 (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
|
1574 (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
|
1575 (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
|
1576 count (1+ count))) |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1577 ((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
|
1578 "[ \t]*\\(\\sw+\\)?")) |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1579 (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
|
1580 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
|
1581 count (1- count)) |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1582 ;; Check any internal blocks. |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1583 (when start-list |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1584 (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
|
1585 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
|
1586 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
|
1587 start-label (cadr start-this)) |
50610
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1588 (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
|
1589 (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
|
1590 end-type start-type)) |
50610
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1591 (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
|
1592 (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
|
1593 end-label start-label))))) |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1594 (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
|
1595 (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
|
1596 ;; Check outermost block. |
58482
08ece7841cd6
(f90-smart-end, f90-previous-statement, f90-beginning-of-block): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
57935
diff
changeset
|
1597 (when f90-smart-end |
08ece7841cd6
(f90-smart-end, f90-previous-statement, f90-beginning-of-block): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
57935
diff
changeset
|
1598 (save-excursion |
08ece7841cd6
(f90-smart-end, f90-previous-statement, f90-beginning-of-block): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
57935
diff
changeset
|
1599 (beginning-of-line) |
08ece7841cd6
(f90-smart-end, f90-previous-statement, f90-beginning-of-block): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
57935
diff
changeset
|
1600 (skip-chars-forward " \t0-9") |
08ece7841cd6
(f90-smart-end, f90-previous-statement, f90-beginning-of-block): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
57935
diff
changeset
|
1601 (f90-match-end))))) |
45497
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1602 |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1603 (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
|
1604 "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
|
1605 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
|
1606 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
|
1607 Checks for consistency of block types and labels (if present). |
58482
08ece7841cd6
(f90-smart-end, f90-previous-statement, f90-beginning-of-block): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
57935
diff
changeset
|
1608 Does not check the outermost block, because it may be incomplete. |
08ece7841cd6
(f90-smart-end, f90-previous-statement, f90-beginning-of-block): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
57935
diff
changeset
|
1609 Interactively, pushes mark before moving point." |
45497
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1610 (interactive "p") |
105481
19b028e1b57f
(f90-end-of-block, f90-beginning-of-block):
Glenn Morris <rgm@gnu.org>
parents:
105372
diff
changeset
|
1611 (if (called-interactively-p 'any) (push-mark (point) t)) |
58482
08ece7841cd6
(f90-smart-end, f90-previous-statement, f90-beginning-of-block): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
57935
diff
changeset
|
1612 (and num (< num 0) (f90-end-of-block (- num))) |
45497
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1613 (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
|
1614 (count (or num 1)) |
50610
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1615 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
|
1616 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
|
1617 (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
|
1618 (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
|
1619 (beginning-of-line) |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1620 (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
|
1621 (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
|
1622 ((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
|
1623 "[ \t]*\\(\\sw+\\)?")) |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1624 (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
|
1625 end-list) |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1626 count (1+ count))) |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1627 ((setq start-this |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1628 (or |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1629 (f90-looking-at-do) |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1630 (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
|
1631 (f90-looking-at-type-like) |
85536
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
1632 (f90-looking-at-associate) |
45497
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1633 (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
|
1634 (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
|
1635 (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
|
1636 (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
|
1637 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
|
1638 count (1- count)) |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1639 ;; Check any internal blocks. |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1640 (when end-list |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1641 (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
|
1642 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
|
1643 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
|
1644 end-label (cadr end-this)) |
50610
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1645 (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
|
1646 (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
|
1647 start-type end-type)) |
50610
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1648 (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
|
1649 (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
|
1650 start-label end-label)))))) |
58482
08ece7841cd6
(f90-smart-end, f90-previous-statement, f90-beginning-of-block): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
57935
diff
changeset
|
1651 ;; Includes an un-named main program block. |
08ece7841cd6
(f90-smart-end, f90-previous-statement, f90-beginning-of-block): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
57935
diff
changeset
|
1652 (if (> count 0) (error "Missing block start")))) |
45497
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1653 |
45526
fcfb7bc58212
(f90-previous-block, f90-next-block): New names (and slightly changed
Glenn Morris <rgm@gnu.org>
parents:
45497
diff
changeset
|
1654 (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
|
1655 "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
|
1656 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
|
1657 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
|
1658 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
|
1659 (interactive "p") |
45526
fcfb7bc58212
(f90-previous-block, f90-next-block): New names (and slightly changed
Glenn Morris <rgm@gnu.org>
parents:
45497
diff
changeset
|
1660 (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
|
1661 (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
|
1662 (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
|
1663 (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
|
1664 (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
|
1665 (beginning-of-line) |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1666 (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
|
1667 (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
|
1668 ((or |
fcfb7bc58212
(f90-previous-block, f90-next-block): New names (and slightly changed
Glenn Morris <rgm@gnu.org>
parents:
45497
diff
changeset
|
1669 (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
|
1670 (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
|
1671 (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
|
1672 (f90-looking-at-type-like) |
85536
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
1673 (f90-looking-at-associate) |
45526
fcfb7bc58212
(f90-previous-block, f90-next-block): New names (and slightly changed
Glenn Morris <rgm@gnu.org>
parents:
45497
diff
changeset
|
1674 (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
|
1675 (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
|
1676 (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
|
1677 (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
|
1678 (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
|
1679 (beginning-of-line))))) |
45497
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1680 |
45526
fcfb7bc58212
(f90-previous-block, f90-next-block): New names (and slightly changed
Glenn Morris <rgm@gnu.org>
parents:
45497
diff
changeset
|
1681 |
fcfb7bc58212
(f90-previous-block, f90-next-block): New names (and slightly changed
Glenn Morris <rgm@gnu.org>
parents:
45497
diff
changeset
|
1682 (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
|
1683 "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
|
1684 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
|
1685 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
|
1686 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
|
1687 (interactive "p") |
45526
fcfb7bc58212
(f90-previous-block, f90-next-block): New names (and slightly changed
Glenn Morris <rgm@gnu.org>
parents:
45497
diff
changeset
|
1688 (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
|
1689 |
599066f40ebe
(f90-end-of-subprogram): Remove the final (forward-line 1).
Glenn Morris <rgm@gnu.org>
parents:
45434
diff
changeset
|
1690 |
10612 | 1691 (defun f90-mark-subprogram () |
50597
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
1692 "Put mark at end of F90 subprogram, point at beginning, push mark." |
10612 | 1693 (interactive) |
1694 (let ((pos (point)) program) | |
1695 (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
|
1696 (push-mark) |
10612 | 1697 (goto-char pos) |
1698 (setq program (f90-beginning-of-subprogram)) | |
87941
d77b6e5ee8af
* sieve.el (sieve-make-overlay, sieve-overlay-put, sieve-overlays-at):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
87649
diff
changeset
|
1699 (if (featurep 'xemacs) |
46993
c4e4658185e3
eval-when-compile a few defvars to quieten the byte-compiler.
Glenn Morris <rgm@gnu.org>
parents:
46796
diff
changeset
|
1700 (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
|
1701 (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
|
1702 deactivate-mark nil)) |
10612 | 1703 program)) |
1704 | |
1705 (defun f90-comment-region (beg-region end-region) | |
1706 "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
|
1707 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
|
1708 in the region, or, if already present, remove it." |
10612 | 1709 (interactive "*r") |
50610
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1710 (let ((end (copy-marker end-region))) |
10612 | 1711 (goto-char beg-region) |
1712 (beginning-of-line) | |
1713 (if (looking-at (regexp-quote f90-comment-region)) | |
85535 | 1714 (delete-region (point) (match-end 0)) |
10612 | 1715 (insert f90-comment-region)) |
45076 | 1716 (while (and (zerop (forward-line 1)) |
85535 | 1717 (< (point) end)) |
10612 | 1718 (if (looking-at (regexp-quote f90-comment-region)) |
85535 | 1719 (delete-region (point) (match-end 0)) |
1720 (insert f90-comment-region))) | |
10612 | 1721 (set-marker end nil))) |
1722 | |
1723 (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
|
1724 "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
|
1725 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
|
1726 after indenting." |
50597
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
1727 (interactive "*P") |
50610
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1728 (let ((case-fold-search t) |
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1729 (pos (point-marker)) |
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1730 indent no-line-number) |
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1731 (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
|
1732 (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
|
1733 (f90-line-continued)))) |
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1734 (f90-indent-line-no) |
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1735 (setq no-line-number t) |
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1736 (skip-chars-forward " \t")) |
10612 | 1737 (if (looking-at "!") |
85535 | 1738 (setq indent (f90-comment-indent)) |
68723
d7669e5fe59f
Revert previous inadvertent check-in of local changes.
Glenn Morris <rgm@gnu.org>
parents:
68721
diff
changeset
|
1739 (and f90-smart-end (looking-at "end") |
50610
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1740 (f90-match-end)) |
10612 | 1741 (setq indent (f90-calculate-indent))) |
50610
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1742 (or (= indent (current-column)) |
45076 | 1743 (f90-indent-to indent no-line-number)) |
10612 | 1744 ;; If initial point was within line's indentation, |
1745 ;; 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
|
1746 (and (< (point) pos) |
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1747 (goto-char pos)) |
44997 | 1748 (if auto-fill-function |
50647
5773e914b2ed
(f90-font-lock-keywords-2): Use override for
Glenn Morris <rgm@gnu.org>
parents:
50616
diff
changeset
|
1749 ;; 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
|
1750 (f90-do-auto-fill) |
50610
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1751 (or no-update (f90-update-line))) |
10612 | 1752 (set-marker pos nil))) |
1753 | |
1754 (defun f90-indent-new-line () | |
50597
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
1755 "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
|
1756 An abbrev before point is expanded if the variable `abbrev-mode' is non-nil. |
10612 | 1757 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
|
1758 (interactive "*") |
50610
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1759 (if abbrev-mode (expand-abbrev)) |
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1760 (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
|
1761 (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
|
1762 (end-of-line) |
85535 | 1763 (delete-horizontal-space) ; destroy trailing whitespace |
50610
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1764 (let ((string (f90-in-string)) |
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1765 (cont (f90-line-continued))) |
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1766 (and string (not cont) (insert "&")) |
10612 | 1767 (newline) |
50610
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1768 (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
|
1769 (f90-indent-line 'no-update)) ; nothing to update |
10612 | 1770 |
1771 | |
58482
08ece7841cd6
(f90-smart-end, f90-previous-statement, f90-beginning-of-block): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
57935
diff
changeset
|
1772 ;; TODO not add spaces to empty lines at the start. |
08ece7841cd6
(f90-smart-end, f90-previous-statement, f90-beginning-of-block): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
57935
diff
changeset
|
1773 ;; Why is second line getting extra indent over first? |
10612 | 1774 (defun f90-indent-region (beg-region end-region) |
1775 "Indent every line in region by forward parsing." | |
1776 (interactive "*r") | |
50610
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1777 (let ((end-region-mark (copy-marker end-region)) |
45076 | 1778 (save-point (point-marker)) |
73870
c46f00343034
(f90-indent-region): Bind case-fold-search to t.
Glenn Morris <rgm@gnu.org>
parents:
68723
diff
changeset
|
1779 (case-fold-search t) |
85535 | 1780 block-list ind-lev ind-curr ind-b cont struct beg-struct end-struct) |
10612 | 1781 (goto-char beg-region) |
45066
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
1782 ;; First find a line which is not a continuation line or comment. |
10612 | 1783 (beginning-of-line) |
13064 | 1784 (while (and (looking-at "[ \t]*[0-9]*\\(!\\|#\\|[ \t]*$\\)") |
85535 | 1785 (progn (f90-indent-line 'no-update) |
1786 (zerop (forward-line 1))) | |
1787 (< (point) end-region-mark))) | |
10612 | 1788 (setq cont (f90-present-statement-cont)) |
104821
25eb9d6cb593
Move all safe properties into the defcustoms.
Glenn Morris <rgm@gnu.org>
parents:
103652
diff
changeset
|
1789 (while (and (memq cont '(middle end)) |
85535 | 1790 (f90-previous-statement)) |
10612 | 1791 (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
|
1792 ;; Process present line for beginning of block. |
10612 | 1793 (setq f90-cache-position (point)) |
1794 (f90-indent-line 'no-update) | |
45076 | 1795 (setq ind-lev (f90-current-indentation) |
1796 ind-curr ind-lev) | |
1797 (beginning-of-line) | |
1798 (skip-chars-forward " \t0-9") | |
1799 (setq struct nil | |
1800 ind-b (cond ((setq struct (f90-looking-at-do)) f90-do-indent) | |
85535 | 1801 ((or (setq struct (f90-looking-at-if-then)) |
1802 (setq struct (f90-looking-at-select-case)) | |
1803 (setq struct (f90-looking-at-where-or-forall)) | |
1804 (looking-at f90-else-like-re)) | |
1805 f90-if-indent) | |
1806 ((setq struct (f90-looking-at-type-like)) | |
1807 f90-type-indent) | |
85536
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
1808 ((setq struct (f90-looking-at-associate)) |
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
1809 f90-associate-indent) |
85535 | 1810 ((or (setq struct (f90-looking-at-program-block-start)) |
47178
7a1530aeef3f
Remove (eval-when-compile) for free variables.
Glenn Morris <rgm@gnu.org>
parents:
47012
diff
changeset
|
1811 (looking-at "contains[ \t]*\\($\\|!\\)")) |
85535 | 1812 f90-program-indent))) |
10612 | 1813 (if ind-b (setq ind-lev (+ ind-lev ind-b))) |
1814 (if struct (setq block-list (cons struct block-list))) | |
1815 (while (and (f90-line-continued) (zerop (forward-line 1)) | |
85535 | 1816 (< (point) end-region-mark)) |
45066
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
1817 (if (looking-at "[ \t]*!") |
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
1818 (f90-indent-to (f90-comment-indent)) |
50610
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1819 (or (= (current-indentation) |
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1820 (+ ind-curr f90-continuation-indent)) |
45066
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
1821 (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
|
1822 ;; Process all following lines. |
44990
8412bb92c791
Add/change doc strings for many in-line functions.
Glenn Morris <rgm@gnu.org>
parents:
44950
diff
changeset
|
1823 (while (and (zerop (forward-line 1)) (< (point) end-region-mark)) |
10612 | 1824 (beginning-of-line) |
1825 (f90-indent-line-no) | |
1826 (setq f90-cache-position (point)) | |
1827 (cond ((looking-at "[ \t]*$") (setq ind-curr 0)) | |
85535 | 1828 ((looking-at "[ \t]*#") (setq ind-curr 0)) |
1829 ((looking-at "!") (setq ind-curr (f90-comment-indent))) | |
1830 ((f90-no-block-limit) (setq ind-curr ind-lev)) | |
1831 ((looking-at f90-else-like-re) (setq ind-curr | |
1832 (- ind-lev f90-if-indent))) | |
1833 ((looking-at "contains[ \t]*\\($\\|!\\)") | |
1834 (setq ind-curr (- ind-lev f90-program-indent))) | |
1835 ((setq ind-b | |
1836 (cond ((setq struct (f90-looking-at-do)) f90-do-indent) | |
1837 ((or (setq struct (f90-looking-at-if-then)) | |
1838 (setq struct (f90-looking-at-select-case)) | |
1839 (setq struct (f90-looking-at-where-or-forall))) | |
1840 f90-if-indent) | |
1841 ((setq struct (f90-looking-at-type-like)) | |
1842 f90-type-indent) | |
85536
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
1843 ((setq struct (f90-looking-at-associate)) |
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
1844 f90-associate-indent) |
85535 | 1845 ((setq struct (f90-looking-at-program-block-start)) |
1846 f90-program-indent))) | |
1847 (setq ind-curr ind-lev) | |
1848 (if ind-b (setq ind-lev (+ ind-lev ind-b))) | |
1849 (setq block-list (cons struct block-list))) | |
1850 ((setq end-struct (f90-looking-at-program-block-end)) | |
1851 (setq beg-struct (car block-list) | |
1852 block-list (cdr block-list)) | |
1853 (if f90-smart-end | |
1854 (save-excursion | |
92813
9c73b1f69e7e
(f90-font-lock-n): New function.
Glenn Morris <rgm@gnu.org>
parents:
87941
diff
changeset
|
1855 (f90-block-match (car beg-struct) (cadr beg-struct) |
9c73b1f69e7e
(f90-font-lock-n): New function.
Glenn Morris <rgm@gnu.org>
parents:
87941
diff
changeset
|
1856 (car end-struct) (cadr end-struct)))) |
85535 | 1857 (setq ind-b |
1858 (cond ((looking-at f90-end-if-re) f90-if-indent) | |
1859 ((looking-at "end[ \t]*do\\>") f90-do-indent) | |
1860 ((looking-at f90-end-type-re) f90-type-indent) | |
85536
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
1861 ((looking-at f90-end-associate-re) |
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
1862 f90-associate-indent) |
85535 | 1863 ((f90-looking-at-program-block-end) |
1864 f90-program-indent))) | |
1865 (if ind-b (setq ind-lev (- ind-lev ind-b))) | |
1866 (setq ind-curr ind-lev)) | |
1867 (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
|
1868 ;; Do the indentation if necessary. |
50610
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1869 (or (= ind-curr (current-column)) |
85535 | 1870 (f90-indent-to ind-curr)) |
10612 | 1871 (while (and (f90-line-continued) (zerop (forward-line 1)) |
85535 | 1872 (< (point) end-region-mark)) |
45066
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
1873 (if (looking-at "[ \t]*!") |
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
1874 (f90-indent-to (f90-comment-indent)) |
50610
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1875 (or (= (current-indentation) |
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1876 (+ ind-curr f90-continuation-indent)) |
45066
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
1877 (f90-indent-to |
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
1878 (+ 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
|
1879 ;; Restore point, etc. |
10612 | 1880 (setq f90-cache-position nil) |
1881 (goto-char save-point) | |
1882 (set-marker end-region-mark nil) | |
1883 (set-marker save-point nil) | |
87941
d77b6e5ee8af
* sieve.el (sieve-make-overlay, sieve-overlay-put, sieve-overlays-at):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
87649
diff
changeset
|
1884 (if (featurep 'xemacs) |
85535 | 1885 (zmacs-deactivate-region) |
10612 | 1886 (deactivate-mark)))) |
1887 | |
1888 (defun f90-indent-subprogram () | |
45066
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
1889 "Properly indent the subprogram containing point." |
50597
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
1890 (interactive "*") |
10612 | 1891 (save-excursion |
45076 | 1892 (let ((program (f90-mark-subprogram))) |
10612 | 1893 (if program |
85535 | 1894 (progn |
1895 (message "Indenting %s %s..." | |
92813
9c73b1f69e7e
(f90-font-lock-n): New function.
Glenn Morris <rgm@gnu.org>
parents:
87941
diff
changeset
|
1896 (car program) (cadr program)) |
85535 | 1897 (indent-region (point) (mark) nil) |
1898 (message "Indenting %s %s...done" | |
92813
9c73b1f69e7e
(f90-font-lock-n): New function.
Glenn Morris <rgm@gnu.org>
parents:
87941
diff
changeset
|
1899 (car program) (cadr program))) |
85535 | 1900 (message "Indenting the whole file...") |
1901 (indent-region (point) (mark) nil) | |
1902 (message "Indenting the whole file...done"))))) | |
10612 | 1903 |
1904 (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
|
1905 "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
|
1906 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
|
1907 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
|
1908 (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
|
1909 (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
|
1910 (insert "&\n&")) |
ecefa899fdb3
(f90-get-present-comment-type): Fix bug introduced in version 1.46.
Glenn Morris <rgm@gnu.org>
parents:
45370
diff
changeset
|
1911 ((f90-in-comment) |
55250
d5d0f1479a4a
(f90-get-present-comment-type): Return whitespace, as well as comment
Glenn Morris <rgm@gnu.org>
parents:
53699
diff
changeset
|
1912 (delete-horizontal-space 'backwards) ; remove trailing whitespace |
45372
ecefa899fdb3
(f90-get-present-comment-type): Fix bug introduced in version 1.46.
Glenn Morris <rgm@gnu.org>
parents:
45370
diff
changeset
|
1913 (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
|
1914 (t (insert "&") |
ecefa899fdb3
(f90-get-present-comment-type): Fix bug introduced in version 1.46.
Glenn Morris <rgm@gnu.org>
parents:
45370
diff
changeset
|
1915 (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
|
1916 (newline 1) |
104821
25eb9d6cb593
Move all safe properties into the defcustoms.
Glenn Morris <rgm@gnu.org>
parents:
103652
diff
changeset
|
1917 ;; FIXME also need leading ampersand if split lexical token (eg ==). |
25eb9d6cb593
Move all safe properties into the defcustoms.
Glenn Morris <rgm@gnu.org>
parents:
103652
diff
changeset
|
1918 ;; Or respect f90-no-break-re. |
45372
ecefa899fdb3
(f90-get-present-comment-type): Fix bug introduced in version 1.46.
Glenn Morris <rgm@gnu.org>
parents:
45370
diff
changeset
|
1919 (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
|
1920 (indent-according-to-mode)) |
44997 | 1921 |
10612 | 1922 (defun f90-find-breakpoint () |
44866
582f083ed579
General tidy-up of commentary and some doc strings.
Glenn Morris <rgm@gnu.org>
parents:
44825
diff
changeset
|
1923 "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
|
1924 (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
|
1925 (if (not f90-break-before-delimiters) |
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1926 (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
|
1927 (backward-char) |
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1928 (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
|
1929 (forward-char)))) |
10612 | 1930 |
1931 (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
|
1932 "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
|
1933 Update keyword case first." |
50597
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
1934 (interactive "*") |
45066
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
1935 ;; 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
|
1936 ;; position is beyond fill-column. |
45066
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
1937 ;; 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
|
1938 (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
|
1939 ;; 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
|
1940 (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
|
1941 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
|
1942 (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
|
1943 (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
|
1944 (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
|
1945 (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
|
1946 (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
|
1947 (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
|
1948 (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
|
1949 (set-marker pos-mark nil))))) |
15863
f11b2bfc1275
new version from Torbj?Einarsson.
Erik Naggum <erik@naggum.no>
parents:
15244
diff
changeset
|
1950 |
50571
9d10c32adde2
(f90-join-lines): Make it behave more like the standard function
Glenn Morris <rgm@gnu.org>
parents:
50562
diff
changeset
|
1951 (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
|
1952 "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
|
1953 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
|
1954 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
|
1955 (interactive "*P") |
9d10c32adde2
(f90-join-lines): Make it behave more like the standard function
Glenn Morris <rgm@gnu.org>
parents:
50562
diff
changeset
|
1956 (beginning-of-line) |
9d10c32adde2
(f90-join-lines): Make it behave more like the standard function
Glenn Morris <rgm@gnu.org>
parents:
50562
diff
changeset
|
1957 (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
|
1958 (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
|
1959 (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
|
1960 (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
|
1961 (beginning-of-line) |
9d10c32adde2
(f90-join-lines): Make it behave more like the standard function
Glenn Morris <rgm@gnu.org>
parents:
50562
diff
changeset
|
1962 (delete-region (point) (1- (point))) |
10612 | 1963 (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
|
1964 (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
|
1965 (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
|
1966 (looking-at "[ \t]*!+") |
9d10c32adde2
(f90-join-lines): Make it behave more like the standard function
Glenn Morris <rgm@gnu.org>
parents:
50562
diff
changeset
|
1967 (replace-match "")) |
9d10c32adde2
(f90-join-lines): Make it behave more like the standard function
Glenn Morris <rgm@gnu.org>
parents:
50562
diff
changeset
|
1968 (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
|
1969 (fixup-whitespace)))) |
10612 | 1970 |
1971 (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
|
1972 "Fill every line in region by forward parsing. Join lines if possible." |
10612 | 1973 (interactive "*r") |
50610
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1974 (let ((end-region-mark (copy-marker end-region)) |
45076 | 1975 (go-on t) |
85535 | 1976 f90-smart-end f90-auto-keyword-case auto-fill-function) |
10612 | 1977 (goto-char beg-region) |
1978 (while go-on | |
45066
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
1979 ;; Join as much as possible. |
50597
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
1980 (while (progn |
50571
9d10c32adde2
(f90-join-lines): Make it behave more like the standard function
Glenn Morris <rgm@gnu.org>
parents:
50562
diff
changeset
|
1981 (end-of-line) |
9d10c32adde2
(f90-join-lines): Make it behave more like the standard function
Glenn Morris <rgm@gnu.org>
parents:
50562
diff
changeset
|
1982 (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
|
1983 (eq (preceding-char) ?&)) |
9d10c32adde2
(f90-join-lines): Make it behave more like the standard function
Glenn Morris <rgm@gnu.org>
parents:
50562
diff
changeset
|
1984 (f90-join-lines 'forward)) |
45066
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
1985 ;; Chop the line if necessary. |
10612 | 1986 (while (> (save-excursion (end-of-line) (current-column)) |
85535 | 1987 fill-column) |
1988 (move-to-column fill-column) | |
1989 (f90-find-breakpoint) | |
1990 (f90-break-line 'no-update)) | |
50610
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1991 (setq go-on (and (< (point) end-region-mark) |
45076 | 1992 (zerop (forward-line 1))) |
1993 f90-cache-position (point))) | |
10612 | 1994 (setq f90-cache-position nil) |
50610
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
1995 (set-marker end-region-mark nil) |
87941
d77b6e5ee8af
* sieve.el (sieve-make-overlay, sieve-overlay-put, sieve-overlays-at):
Dan Nicolaescu <dann@ics.uci.edu>
parents:
87649
diff
changeset
|
1996 (if (featurep 'xemacs) |
85535 | 1997 (zmacs-deactivate-region) |
10612 | 1998 (deactivate-mark)))) |
1999 | |
2000 (defun f90-block-match (beg-block beg-name end-block end-name) | |
2001 "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
|
2002 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
|
2003 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
|
2004 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
|
2005 END-NAME is the block end name (may be nil). |
10612 | 2006 Leave point at the end of line." |
58482
08ece7841cd6
(f90-smart-end, f90-previous-statement, f90-beginning-of-block): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
57935
diff
changeset
|
2007 ;; Hack to deal with the case when this is called from |
08ece7841cd6
(f90-smart-end, f90-previous-statement, f90-beginning-of-block): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
57935
diff
changeset
|
2008 ;; f90-indent-region on a program block without an explicit PROGRAM |
08ece7841cd6
(f90-smart-end, f90-previous-statement, f90-beginning-of-block): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
57935
diff
changeset
|
2009 ;; statement at the start. Should really be an error (?). |
08ece7841cd6
(f90-smart-end, f90-previous-statement, f90-beginning-of-block): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
57935
diff
changeset
|
2010 (or beg-block (setq beg-block "program")) |
44824
637c10f08055
(f90-get-beg-of-line): Removed and replaced with line-beginning-position.
Glenn Morris <rgm@gnu.org>
parents:
44697
diff
changeset
|
2011 (search-forward "end" (line-end-position)) |
10612 | 2012 (catch 'no-match |
58482
08ece7841cd6
(f90-smart-end, f90-previous-statement, f90-beginning-of-block): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
57935
diff
changeset
|
2013 (if (and end-block (f90-equal-symbols beg-block end-block)) |
50610
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
2014 (search-forward end-block) |
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
2015 (if end-block |
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
2016 (progn |
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
2017 (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
|
2018 (end-of-line) |
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
2019 (throw 'no-match nil)) |
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
2020 (message "Inserting %s." beg-block) |
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
2021 (insert (concat " " beg-block)))) |
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
2022 (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
|
2023 (and end-name (search-forward end-name)) |
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
2024 (cond ((and beg-name (not end-name)) |
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
2025 (message "Inserting %s." beg-name) |
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
2026 (insert (concat " " beg-name))) |
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
2027 ((and beg-name end-name) |
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
2028 (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
|
2029 (search-forward end-name) |
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
2030 (replace-match beg-name)) |
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
2031 ((and (not beg-name) end-name) |
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
2032 (message "Deleting %s." end-name) |
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
2033 (search-forward end-name) |
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
2034 (replace-match "")))) |
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
2035 (or (looking-at "[ \t]*!") (delete-horizontal-space)))) |
10612 | 2036 |
2037 (defun f90-match-end () | |
45066
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
2038 "From an end block statement, find the corresponding block and name." |
10612 | 2039 (interactive) |
50610
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
2040 (let ((count 1) |
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
2041 (top-of-window (window-start)) |
85535 | 2042 (end-point (point)) |
50610
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
2043 (case-fold-search t) |
85535 | 2044 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
|
2045 (when (save-excursion (beginning-of-line) (skip-chars-forward " \t0-9") |
68723
d7669e5fe59f
Revert previous inadvertent check-in of local changes.
Glenn Morris <rgm@gnu.org>
parents:
68721
diff
changeset
|
2046 (setq end-struct (f90-looking-at-program-block-end))) |
d7669e5fe59f
Revert previous inadvertent check-in of local changes.
Glenn Morris <rgm@gnu.org>
parents:
68721
diff
changeset
|
2047 (setq end-block (car end-struct) |
92813
9c73b1f69e7e
(f90-font-lock-n): New function.
Glenn Morris <rgm@gnu.org>
parents:
87941
diff
changeset
|
2048 end-name (cadr end-struct)) |
44944
dbacf99cccc4
Minor reorganization of some code.
Glenn Morris <rgm@gnu.org>
parents:
44943
diff
changeset
|
2049 (save-excursion |
dbacf99cccc4
Minor reorganization of some code.
Glenn Morris <rgm@gnu.org>
parents:
44943
diff
changeset
|
2050 (beginning-of-line) |
58482
08ece7841cd6
(f90-smart-end, f90-previous-statement, f90-beginning-of-block): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
57935
diff
changeset
|
2051 (while (and (> count 0) |
08ece7841cd6
(f90-smart-end, f90-previous-statement, f90-beginning-of-block): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
57935
diff
changeset
|
2052 (not (= (line-beginning-position) (point-min)))) |
08ece7841cd6
(f90-smart-end, f90-previous-statement, f90-beginning-of-block): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
57935
diff
changeset
|
2053 (re-search-backward f90-blocks-re nil 'move) |
45076 | 2054 (beginning-of-line) |
50610
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
2055 ;; 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
|
2056 ;;; (skip-chars-forward " \t") |
a8eb65a987d7
(f90-indent-to, f90-indent-line-no)
Glenn Morris <rgm@gnu.org>
parents:
50597
diff
changeset
|
2057 ;;; (skip-chars-forward "0-9") |
45076 | 2058 (skip-chars-forward " \t0-9") |
45370
4055a77b0abb
(f90-match-end): Simplify it a bit.
Glenn Morris <rgm@gnu.org>
parents:
45355
diff
changeset
|
2059 (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
|
2060 ((setq matching-beg |
45076 | 2061 (or |
2062 (f90-looking-at-do) | |
2063 (f90-looking-at-if-then) | |
2064 (f90-looking-at-where-or-forall) | |
2065 (f90-looking-at-select-case) | |
2066 (f90-looking-at-type-like) | |
85536
a23a7c302a2c
Add some support for Fortran 2003 syntax:
Glenn Morris <rgm@gnu.org>
parents:
85535
diff
changeset
|
2067 (f90-looking-at-associate) |
58482
08ece7841cd6
(f90-smart-end, f90-previous-statement, f90-beginning-of-block): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
57935
diff
changeset
|
2068 (f90-looking-at-program-block-start) |
08ece7841cd6
(f90-smart-end, f90-previous-statement, f90-beginning-of-block): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
57935
diff
changeset
|
2069 ;; Interpret a single END without a block |
08ece7841cd6
(f90-smart-end, f90-previous-statement, f90-beginning-of-block): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
57935
diff
changeset
|
2070 ;; start to be the END of a program block |
08ece7841cd6
(f90-smart-end, f90-previous-statement, f90-beginning-of-block): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
57935
diff
changeset
|
2071 ;; without an initial PROGRAM line. |
08ece7841cd6
(f90-smart-end, f90-previous-statement, f90-beginning-of-block): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
57935
diff
changeset
|
2072 (if (= (line-beginning-position) (point-min)) |
08ece7841cd6
(f90-smart-end, f90-previous-statement, f90-beginning-of-block): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
57935
diff
changeset
|
2073 '("program" nil)))) |
45076 | 2074 (setq count (1- count))) |
45370
4055a77b0abb
(f90-match-end): Simplify it a bit.
Glenn Morris <rgm@gnu.org>
parents:
45355
diff
changeset
|
2075 ((looking-at (concat "end[ \t]*" f90-blocks-re)) |
45076 | 2076 (setq count (1+ count))))) |
45370
4055a77b0abb
(f90-match-end): Simplify it a bit.
Glenn Morris <rgm@gnu.org>
parents:
45355
diff
changeset
|
2077 (if (> count 0) |
44944
dbacf99cccc4
Minor reorganization of some code.
Glenn Morris <rgm@gnu.org>
parents:
44943
diff
changeset
|
2078 (message "No matching beginning.") |
dbacf99cccc4
Minor reorganization of some code.
Glenn Morris <rgm@gnu.org>
parents:
44943
diff
changeset
|
2079 (f90-update-line) |
dbacf99cccc4
Minor reorganization of some code.
Glenn Morris <rgm@gnu.org>
parents:
44943
diff
changeset
|
2080 (if (eq f90-smart-end 'blink) |
dbacf99cccc4
Minor reorganization of some code.
Glenn Morris <rgm@gnu.org>
parents:
44943
diff
changeset
|
2081 (if (< (point) top-of-window) |
dbacf99cccc4
Minor reorganization of some code.
Glenn Morris <rgm@gnu.org>
parents:
44943
diff
changeset
|
2082 (message "Matches %s: %s" |
dbacf99cccc4
Minor reorganization of some code.
Glenn Morris <rgm@gnu.org>
parents:
44943
diff
changeset
|
2083 (what-line) |
dbacf99cccc4
Minor reorganization of some code.
Glenn Morris <rgm@gnu.org>
parents:
44943
diff
changeset
|
2084 (buffer-substring |
dbacf99cccc4
Minor reorganization of some code.
Glenn Morris <rgm@gnu.org>
parents:
44943
diff
changeset
|
2085 (line-beginning-position) |
dbacf99cccc4
Minor reorganization of some code.
Glenn Morris <rgm@gnu.org>
parents:
44943
diff
changeset
|
2086 (line-end-position))) |
66633
ae0e8d9f7793
From John Mongan <jmongan@mccammon.ucsd.edu> (tiny change)
Glenn Morris <rgm@gnu.org>
parents:
65918
diff
changeset
|
2087 (sit-for blink-matching-delay))) |
45076 | 2088 (setq beg-block (car matching-beg) |
92813
9c73b1f69e7e
(f90-font-lock-n): New function.
Glenn Morris <rgm@gnu.org>
parents:
87941
diff
changeset
|
2089 beg-name (cadr matching-beg)) |
44944
dbacf99cccc4
Minor reorganization of some code.
Glenn Morris <rgm@gnu.org>
parents:
44943
diff
changeset
|
2090 (goto-char end-point) |
dbacf99cccc4
Minor reorganization of some code.
Glenn Morris <rgm@gnu.org>
parents:
44943
diff
changeset
|
2091 (beginning-of-line) |
68723
d7669e5fe59f
Revert previous inadvertent check-in of local changes.
Glenn Morris <rgm@gnu.org>
parents:
68721
diff
changeset
|
2092 (f90-block-match beg-block beg-name end-block end-name)))))) |
10612 | 2093 |
2094 (defun f90-insert-end () | |
44866
582f083ed579
General tidy-up of commentary and some doc strings.
Glenn Morris <rgm@gnu.org>
parents:
44825
diff
changeset
|
2095 "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
|
2096 (interactive "*") |
45076 | 2097 (let ((f90-smart-end (or f90-smart-end 'blink))) |
10612 | 2098 (insert "end") |
2099 (f90-indent-new-line))) | |
2100 | |
45066
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
2101 ;; Abbrevs and keywords. |
10612 | 2102 |
2103 (defun f90-abbrev-start () | |
44997 | 2104 "Typing `\\[help-command] or `? lists all the F90 abbrevs. |
10612 | 2105 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
|
2106 (interactive "*") |
101002
3b3c7e10cd97
Replace last-command-char with last-command-event.
Glenn Morris <rgm@gnu.org>
parents:
100908
diff
changeset
|
2107 (insert last-command-event) |
50647
5773e914b2ed
(f90-font-lock-keywords-2): Use override for
Glenn Morris <rgm@gnu.org>
parents:
50616
diff
changeset
|
2108 (let (char event) |
5773e914b2ed
(f90-font-lock-keywords-2): Use override for
Glenn Morris <rgm@gnu.org>
parents:
50616
diff
changeset
|
2109 (if (fboundp 'next-command-event) ; XEmacs |
5773e914b2ed
(f90-font-lock-keywords-2): Use override for
Glenn Morris <rgm@gnu.org>
parents:
50616
diff
changeset
|
2110 (setq event (next-command-event) |
64395
16a2152f8d11
(f90-abbrev-start): Avoid warning.
Richard M. Stallman <rms@gnu.org>
parents:
64085
diff
changeset
|
2111 char (and (fboundp 'event-to-character) |
85535 | 2112 (event-to-character event))) |
50647
5773e914b2ed
(f90-font-lock-keywords-2): Use override for
Glenn Morris <rgm@gnu.org>
parents:
50616
diff
changeset
|
2113 (setq event (read-event) |
5773e914b2ed
(f90-font-lock-keywords-2): Use override for
Glenn Morris <rgm@gnu.org>
parents:
50616
diff
changeset
|
2114 char event)) |
50562
6ee9d94eaca3
(f90-abbrev-start): Only offer help if abbrev-mode is active.
Glenn Morris <rgm@gnu.org>
parents:
49598
diff
changeset
|
2115 ;; Insert char if not equal to `?', or if abbrev-mode is off. |
104821
25eb9d6cb593
Move all safe properties into the defcustoms.
Glenn Morris <rgm@gnu.org>
parents:
103652
diff
changeset
|
2116 (if (and abbrev-mode (memq char (list ?? help-char))) |
85535 | 2117 (f90-abbrev-help) |
50647
5773e914b2ed
(f90-font-lock-keywords-2): Use override for
Glenn Morris <rgm@gnu.org>
parents:
50616
diff
changeset
|
2118 (setq unread-command-events (list event))))) |
10612 | 2119 |
2120 (defun f90-abbrev-help () | |
2121 "List the currently defined abbrevs in F90 mode." | |
2122 (interactive) | |
2123 (message "Listing abbrev table...") | |
2124 (display-buffer (f90-prepare-abbrev-list-buffer)) | |
2125 (message "Listing abbrev table...done")) | |
2126 | |
2127 (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
|
2128 "Create a buffer listing the F90 mode abbreviations." |
94326
c419e1e2f8ee
(f90-mode-syntax-table): Don't set ` as word syntax.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93975
diff
changeset
|
2129 (with-current-buffer (get-buffer-create "*Abbrevs*") |
10612 | 2130 (erase-buffer) |
2131 (insert-abbrev-table-description 'f90-mode-abbrev-table t) | |
2132 (goto-char (point-min)) | |
2133 (set-buffer-modified-p nil) | |
2134 (edit-abbrevs-mode)) | |
2135 (get-buffer-create "*Abbrevs*")) | |
2136 | |
2137 (defun f90-upcase-keywords () | |
2138 "Upcase all F90 keywords in the buffer." | |
50597
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
2139 (interactive "*") |
10612 | 2140 (f90-change-keywords 'upcase-word)) |
2141 | |
2142 (defun f90-capitalize-keywords () | |
2143 "Capitalize all F90 keywords in the buffer." | |
50597
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
2144 (interactive "*") |
10612 | 2145 (f90-change-keywords 'capitalize-word)) |
2146 | |
2147 (defun f90-downcase-keywords () | |
2148 "Downcase all F90 keywords in the buffer." | |
50597
2e53f070cbc3
Whitespace changes, trivial commentary changes.
Glenn Morris <rgm@gnu.org>
parents:
50571
diff
changeset
|
2149 (interactive "*") |
10612 | 2150 (f90-change-keywords 'downcase-word)) |
2151 | |
2152 (defun f90-upcase-region-keywords (beg end) | |
2153 "Upcase all F90 keywords in the region." | |
2154 (interactive "*r") | |
2155 (f90-change-keywords 'upcase-word beg end)) | |
2156 | |
2157 (defun f90-capitalize-region-keywords (beg end) | |
2158 "Capitalize all F90 keywords in the region." | |
2159 (interactive "*r") | |
2160 (f90-change-keywords 'capitalize-word beg end)) | |
2161 | |
2162 (defun f90-downcase-region-keywords (beg end) | |
2163 "Downcase all F90 keywords in the region." | |
2164 (interactive "*r") | |
2165 (f90-change-keywords 'downcase-word beg end)) | |
2166 | |
2167 ;; Change the keywords according to argument. | |
2168 (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
|
2169 "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
|
2170 CHANGE-WORD should be one of 'upcase-word, 'downcase-word, 'capitalize-word." |
10612 | 2171 (save-excursion |
45076 | 2172 (setq beg (or beg (point-min)) |
2173 end (or end (point-max))) | |
44997 | 2174 (let ((keyword-re |
85535 | 2175 (concat "\\(" |
2176 f90-keywords-re "\\|" f90-procedures-re "\\|" | |
2177 f90-hpf-keywords-re "\\|" f90-operators-re "\\)")) | |
2178 (ref-point (point-min)) | |
2179 (modified (buffer-modified-p)) | |
45076 | 2180 state saveword back-point) |
10612 | 2181 (goto-char beg) |
13064 | 2182 (unwind-protect |
85535 | 2183 (while (re-search-forward keyword-re end t) |
2184 (unless (progn | |
44944
dbacf99cccc4
Minor reorganization of some code.
Glenn Morris <rgm@gnu.org>
parents:
44943
diff
changeset
|
2185 (setq state (parse-partial-sexp ref-point (point))) |
dbacf99cccc4
Minor reorganization of some code.
Glenn Morris <rgm@gnu.org>
parents:
44943
diff
changeset
|
2186 (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
|
2187 ;; GM f90-directive-comment-re? |
45066
a770c1eeff8c
Yet more doc string, commment and whitespace changes.
Glenn Morris <rgm@gnu.org>
parents:
44997
diff
changeset
|
2188 (save-excursion ; check for cpp directive |
44944
dbacf99cccc4
Minor reorganization of some code.
Glenn Morris <rgm@gnu.org>
parents:
44943
diff
changeset
|
2189 (beginning-of-line) |
dbacf99cccc4
Minor reorganization of some code.
Glenn Morris <rgm@gnu.org>
parents:
44943
diff
changeset
|
2190 (skip-chars-forward " \t0-9") |
dbacf99cccc4
Minor reorganization of some code.
Glenn Morris <rgm@gnu.org>
parents:
44943
diff
changeset
|
2191 (looking-at "#")))) |
85535 | 2192 (setq ref-point (point) |
2193 back-point (save-excursion (backward-word 1) (point)) | |
45076 | 2194 saveword (buffer-substring back-point ref-point)) |
85535 | 2195 (funcall change-word -1) |
2196 (or (string= saveword (buffer-substring back-point ref-point)) | |
2197 (setq modified t)))) | |
94326
c419e1e2f8ee
(f90-mode-syntax-table): Don't set ` as word syntax.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
93975
diff
changeset
|
2198 (or modified (restore-buffer-modified-p nil)))))) |
10612 | 2199 |
28170
5427762a58a5
(f90): Put custom group under `languages', not
Dave Love <fx@gnu.org>
parents:
26607
diff
changeset
|
2200 |
5427762a58a5
(f90): Put custom group under `languages', not
Dave Love <fx@gnu.org>
parents:
26607
diff
changeset
|
2201 (defun f90-current-defun () |
5427762a58a5
(f90): Put custom group under `languages', not
Dave Love <fx@gnu.org>
parents:
26607
diff
changeset
|
2202 "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
|
2203 (save-excursion |
5427762a58a5
(f90): Put custom group under `languages', not
Dave Love <fx@gnu.org>
parents:
26607
diff
changeset
|
2204 (nth 1 (f90-beginning-of-subprogram)))) |
5427762a58a5
(f90): Put custom group under `languages', not
Dave Love <fx@gnu.org>
parents:
26607
diff
changeset
|
2205 |
58482
08ece7841cd6
(f90-smart-end, f90-previous-statement, f90-beginning-of-block): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
57935
diff
changeset
|
2206 |
08ece7841cd6
(f90-smart-end, f90-previous-statement, f90-beginning-of-block): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
57935
diff
changeset
|
2207 (defun f90-backslash-not-special (&optional all) |
08ece7841cd6
(f90-smart-end, f90-previous-statement, f90-beginning-of-block): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
57935
diff
changeset
|
2208 "Make the backslash character (\\) be non-special in the current buffer. |
08ece7841cd6
(f90-smart-end, f90-previous-statement, f90-beginning-of-block): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
57935
diff
changeset
|
2209 With optional argument ALL, change the default for all present |
08ece7841cd6
(f90-smart-end, f90-previous-statement, f90-beginning-of-block): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
57935
diff
changeset
|
2210 and future F90 buffers. F90 mode normally treats backslash as an |
08ece7841cd6
(f90-smart-end, f90-previous-statement, f90-beginning-of-block): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
57935
diff
changeset
|
2211 escape character." |
08ece7841cd6
(f90-smart-end, f90-previous-statement, f90-beginning-of-block): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
57935
diff
changeset
|
2212 (or (eq major-mode 'f90-mode) |
08ece7841cd6
(f90-smart-end, f90-previous-statement, f90-beginning-of-block): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
57935
diff
changeset
|
2213 (error "This function should only be used in F90 buffers")) |
08ece7841cd6
(f90-smart-end, f90-previous-statement, f90-beginning-of-block): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
57935
diff
changeset
|
2214 (when (equal (char-syntax ?\\ ) ?\\ ) |
08ece7841cd6
(f90-smart-end, f90-previous-statement, f90-beginning-of-block): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
57935
diff
changeset
|
2215 (or all (set-syntax-table (copy-syntax-table (syntax-table)))) |
08ece7841cd6
(f90-smart-end, f90-previous-statement, f90-beginning-of-block): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
57935
diff
changeset
|
2216 (modify-syntax-entry ?\\ "."))) |
08ece7841cd6
(f90-smart-end, f90-previous-statement, f90-beginning-of-block): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
57935
diff
changeset
|
2217 |
08ece7841cd6
(f90-smart-end, f90-previous-statement, f90-beginning-of-block): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
57935
diff
changeset
|
2218 |
10612 | 2219 (provide 'f90) |
10613 | 2220 |
93975
1e3a407766b9
Fix up comment convention on the arch-tag lines.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
92813
diff
changeset
|
2221 ;; arch-tag: fceac97c-c147-44bd-aec0-172d4b560ef8 |
10612 | 2222 ;;; f90.el ends here |