Mercurial > emacs
annotate lisp/progmodes/fortran.el @ 69478:e8bb5df2ba7a
Add index entries around each paragraph rather than depend on entries
from beginning of node. Doing so ensures that index entries are less
likely to be forgotten if text is cut and pasted, and are necessary
anyway if the references are on a separate page. It seems that
makeinfo is now (v. 4.8) only producing one index entry per node, so
there is no longer any excuse not to. Use subheading instead of
heading. The incorrect use of heading produced very large fonts in
Info--as large as the main heading.
(From Bill Wohler): MH-E never did appear in Emacs 21--MH-E versions 6
and 7 appeared *around* the time of these Emacs releases.
author | Bill Wohler <wohler@newt.com> |
---|---|
date | Wed, 15 Mar 2006 00:26:12 +0000 |
parents | d5d3ecca3943 |
children | 536e4b30fcab d88caeac70d7 |
rev | line source |
---|---|
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
778
diff
changeset
|
1 ;;; fortran.el --- Fortran mode for GNU Emacs |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
778
diff
changeset
|
2 |
61107
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
3 ;; Copyright (C) 1986, 1993, 1994, 1995, 1997, 1998, 1999, 2000, 2001, |
68244
d5d3ecca3943
Move defvars out of eval-when-compile.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66963
diff
changeset
|
4 ;; 2002, 2003, 2004, 2005, 2006 Free Software Foundation, Inc. |
845 | 5 |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
778
diff
changeset
|
6 ;; Author: Michael D. Prange <prange@erl.mit.edu> |
65919
5c09efcfc1d9
Update maintainer email address.
Glenn Morris <rgm@gnu.org>
parents:
65230
diff
changeset
|
7 ;; Maintainer: Glenn Morris <rgm@gnu.org> |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
8 ;; Keywords: fortran, languages |
660
08eb386dd0f3
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
584
diff
changeset
|
9 |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
778
diff
changeset
|
10 ;; This file is part of GNU Emacs. |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
778
diff
changeset
|
11 |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
778
diff
changeset
|
12 ;; GNU Emacs is free software; you can redistribute it and/or modify |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
778
diff
changeset
|
13 ;; it under the terms of the GNU General Public License as published by |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
778
diff
changeset
|
14 ;; the Free Software Foundation; either version 2, or (at your option) |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
778
diff
changeset
|
15 ;; any later version. |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
778
diff
changeset
|
16 |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
778
diff
changeset
|
17 ;; GNU Emacs is distributed in the hope that it will be useful, |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
778
diff
changeset
|
18 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
778
diff
changeset
|
19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
778
diff
changeset
|
20 ;; GNU General Public License for more details. |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
778
diff
changeset
|
21 |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
778
diff
changeset
|
22 ;; You should have received a copy of the GNU General Public License |
14169 | 23 ;; along with GNU Emacs; see the file COPYING. If not, write to the |
64085 | 24 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, |
25 ;; Boston, MA 02110-1301, USA. | |
807
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
778
diff
changeset
|
26 |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
778
diff
changeset
|
27 ;;; Commentary: |
4f28bd14272c
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
778
diff
changeset
|
28 |
20805
918448e5d294
Various docstring and commentary fixes, including
Dave Love <fx@gnu.org>
parents:
20277
diff
changeset
|
29 ;; This mode is documented in the Emacs manual. |
918448e5d294
Various docstring and commentary fixes, including
Dave Love <fx@gnu.org>
parents:
20277
diff
changeset
|
30 ;; |
918448e5d294
Various docstring and commentary fixes, including
Dave Love <fx@gnu.org>
parents:
20277
diff
changeset
|
31 ;; Note that it is for editing Fortran77 or Fortran90 fixed source |
23754 | 32 ;; form. For editing Fortran 90 free format source, use `f90-mode' |
41676
82c2143ec3eb
Fontify rewind, backspace. Doc fixes.
Dave Love <fx@gnu.org>
parents:
41234
diff
changeset
|
33 ;; (f90.el). It is meant to support the GNU Fortran language |
82c2143ec3eb
Fontify rewind, backspace. Doc fixes.
Dave Love <fx@gnu.org>
parents:
41234
diff
changeset
|
34 ;; implemented by g77 (its extensions to Fortran77 and |
82c2143ec3eb
Fontify rewind, backspace. Doc fixes.
Dave Love <fx@gnu.org>
parents:
41234
diff
changeset
|
35 ;; interpretations, e.g. of blackslash in strings). |
20805
918448e5d294
Various docstring and commentary fixes, including
Dave Love <fx@gnu.org>
parents:
20277
diff
changeset
|
36 |
918448e5d294
Various docstring and commentary fixes, including
Dave Love <fx@gnu.org>
parents:
20277
diff
changeset
|
37 ;;; History: |
918448e5d294
Various docstring and commentary fixes, including
Dave Love <fx@gnu.org>
parents:
20277
diff
changeset
|
38 |
918448e5d294
Various docstring and commentary fixes, including
Dave Love <fx@gnu.org>
parents:
20277
diff
changeset
|
39 ;; Fortran mode was upgraded by Stephen A. Wood (saw@cebaf.gov). |
1633
65af7bcd5e31
* fortran.el: New version of version 1.30 (!) from Stephen A. Wood
Jim Blandy <jimb@redhat.com>
parents:
1611
diff
changeset
|
40 |
65af7bcd5e31
* fortran.el: New version of version 1.30 (!) from Stephen A. Wood
Jim Blandy <jimb@redhat.com>
parents:
1611
diff
changeset
|
41 ;; We acknowledge many contributions and valuable suggestions by |
1548 | 42 ;; Lawrence R. Dodd, Ralf Fassel, Ralph Finch, Stephen Gildea, |
20207
38616c4cf58c
(fortran-imenu-generic-expression): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
20205
diff
changeset
|
43 ;; Dr. Anil Gokhale, Ulrich Mueller, Mark Neale, Eric Prestemon, |
1548 | 44 ;; Gary Sabot and Richard Stallman. |
45 | |
14169 | 46 ;;; Code: |
332 | 47 |
23754 | 48 ;; Todo: |
21410
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
49 |
30149
1c8c6dbfcfb9
Don't require easymenu. Use repeat counts in various regexps.
Dave Love <fx@gnu.org>
parents:
28079
diff
changeset
|
50 ;; * Tidy it all up (more)! |
21410
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
51 ;; * Implement insertion and removal of statement continuations in |
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
52 ;; mixed f77/f90 style, with the first `&' past column 72 and the |
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
53 ;; second in column 6. |
41676
82c2143ec3eb
Fontify rewind, backspace. Doc fixes.
Dave Love <fx@gnu.org>
parents:
41234
diff
changeset
|
54 ;; * Support any other extensions to f77 grokked by GNU Fortran I've missed. |
21410
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
55 |
68244
d5d3ecca3943
Move defvars out of eval-when-compile.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66963
diff
changeset
|
56 ;; silence compiler |
d5d3ecca3943
Move defvars out of eval-when-compile.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66963
diff
changeset
|
57 (defvar dabbrev-case-fold-search) |
d5d3ecca3943
Move defvars out of eval-when-compile.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66963
diff
changeset
|
58 (defvar font-lock-syntactic-keywords) |
d5d3ecca3943
Move defvars out of eval-when-compile.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66963
diff
changeset
|
59 (defvar gud-find-expr-function) |
d5d3ecca3943
Move defvars out of eval-when-compile.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66963
diff
changeset
|
60 (defvar imenu-case-fold-search) |
d5d3ecca3943
Move defvars out of eval-when-compile.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66963
diff
changeset
|
61 (defvar imenu-syntax-alist) |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
62 |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
63 |
17413
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16581
diff
changeset
|
64 (defgroup fortran nil |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
65 "Major mode for editing fixed format Fortran code." |
66963
a11fdee52c05
Add :link (custom-group-link font-lock-faces) to defgroup.
Juri Linkov <juri@jurta.org>
parents:
66635
diff
changeset
|
66 :link '(custom-group-link :tag "Font Lock Faces group" font-lock-faces) |
a11fdee52c05
Add :link (custom-group-link font-lock-faces) to defgroup.
Juri Linkov <juri@jurta.org>
parents:
66635
diff
changeset
|
67 :link '(custom-manual "(emacs)Fortran") |
17413
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16581
diff
changeset
|
68 :group 'languages) |
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16581
diff
changeset
|
69 |
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16581
diff
changeset
|
70 (defgroup fortran-indent nil |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
71 "Indentation variables in Fortran mode." |
17413
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16581
diff
changeset
|
72 :prefix "fortran-" |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
73 :group 'fortran) |
17413
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16581
diff
changeset
|
74 |
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16581
diff
changeset
|
75 (defgroup fortran-comment nil |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
76 "Comment-handling variables in Fortran mode." |
17413
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16581
diff
changeset
|
77 :prefix "fortran-" |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
78 :group 'fortran) |
17413
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16581
diff
changeset
|
79 |
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16581
diff
changeset
|
80 |
332 | 81 ;;;###autoload |
17413
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16581
diff
changeset
|
82 (defcustom fortran-tab-mode-default nil |
1485
a6da00e1c5ad
(fortran-tab-mode): Add defvar.
Richard M. Stallman <rms@gnu.org>
parents:
1475
diff
changeset
|
83 "*Default tabbing/carriage control style for empty files in Fortran mode. |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
84 A non-nil value specifies tab-digit style of continuation control. |
1485
a6da00e1c5ad
(fortran-tab-mode): Add defvar.
Richard M. Stallman <rms@gnu.org>
parents:
1475
diff
changeset
|
85 A value of nil specifies that continuation lines are marked |
17413
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16581
diff
changeset
|
86 with a character in column 6." |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
87 :type 'boolean |
17413
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16581
diff
changeset
|
88 :group 'fortran-indent) |
1485
a6da00e1c5ad
(fortran-tab-mode): Add defvar.
Richard M. Stallman <rms@gnu.org>
parents:
1475
diff
changeset
|
89 |
50600
418cea060d92
(fortran-tab-mode-minor-mode-string): Delete this variable,
Glenn Morris <rgm@gnu.org>
parents:
50598
diff
changeset
|
90 (defcustom fortran-tab-mode-string "/t" |
418cea060d92
(fortran-tab-mode-minor-mode-string): Delete this variable,
Glenn Morris <rgm@gnu.org>
parents:
50598
diff
changeset
|
91 "*String to appear in mode line in TAB format buffers." |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
92 :type 'string |
17413
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16581
diff
changeset
|
93 :group 'fortran-indent) |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
94 |
17413
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16581
diff
changeset
|
95 (defcustom fortran-do-indent 3 |
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16581
diff
changeset
|
96 "*Extra indentation applied to DO blocks." |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
97 :type 'integer |
17413
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16581
diff
changeset
|
98 :group 'fortran-indent) |
332 | 99 |
17413
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16581
diff
changeset
|
100 (defcustom fortran-if-indent 3 |
61107
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
101 "*Extra indentation applied to IF, SELECT CASE and WHERE blocks." |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
102 :type 'integer |
17413
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16581
diff
changeset
|
103 :group 'fortran-indent) |
1548 | 104 |
17413
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16581
diff
changeset
|
105 (defcustom fortran-structure-indent 3 |
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16581
diff
changeset
|
106 "*Extra indentation applied to STRUCTURE, UNION, MAP and INTERFACE blocks." |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
107 :type 'integer |
17413
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16581
diff
changeset
|
108 :group 'fortran-indent) |
332 | 109 |
17413
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16581
diff
changeset
|
110 (defcustom fortran-continuation-indent 5 |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
111 "*Extra indentation applied to continuation lines." |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
112 :type 'integer |
17413
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16581
diff
changeset
|
113 :group 'fortran-indent) |
332 | 114 |
17413
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16581
diff
changeset
|
115 (defcustom fortran-comment-indent-style 'fixed |
20805
918448e5d294
Various docstring and commentary fixes, including
Dave Love <fx@gnu.org>
parents:
20277
diff
changeset
|
116 "*How to indent comments. |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
117 nil forces comment lines not to be touched; |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
118 `fixed' indents to `fortran-comment-line-extra-indent' columns beyond |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
119 `fortran-minimum-statement-indent-fixed' (if `indent-tabs-mode' nil), or |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
120 `fortran-minimum-statement-indent-tab' (if `indent-tabs-mode' non-nil); |
43882
e601e469e7a4
(fortran-mode): Set comment-padding to "$$$".
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42443
diff
changeset
|
121 `relative' indents to current Fortran indentation plus |
e601e469e7a4
(fortran-mode): Set comment-padding to "$$$".
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42443
diff
changeset
|
122 `fortran-comment-line-extra-indent'." |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
123 :type '(radio (const :tag "Untouched" nil) (const fixed) (const relative)) |
17413
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16581
diff
changeset
|
124 :group 'fortran-indent) |
332 | 125 |
17413
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16581
diff
changeset
|
126 (defcustom fortran-comment-line-extra-indent 0 |
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16581
diff
changeset
|
127 "*Amount of extra indentation for text within full-line comments." |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
128 :type 'integer |
17413
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16581
diff
changeset
|
129 :group 'fortran-indent |
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16581
diff
changeset
|
130 :group 'fortran-comment) |
332 | 131 |
28079
07cbc9269fbc
(fortran-comment-line-start): Define as
Dave Love <fx@gnu.org>
parents:
27417
diff
changeset
|
132 (defcustom fortran-comment-line-start "C" |
07cbc9269fbc
(fortran-comment-line-start): Define as
Dave Love <fx@gnu.org>
parents:
27417
diff
changeset
|
133 "*Delimiter inserted to start new full-line comment. |
07cbc9269fbc
(fortran-comment-line-start): Define as
Dave Love <fx@gnu.org>
parents:
27417
diff
changeset
|
134 You might want to change this to \"*\", for instance." |
26560
edf06ac56d1f
(fortran-comment-line-start): Renamed from comment-line-start.
Dave Love <fx@gnu.org>
parents:
25162
diff
changeset
|
135 :version "21.1" |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
136 :type 'string |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
137 :group 'fortran-comment) |
332 | 138 |
28079
07cbc9269fbc
(fortran-comment-line-start): Define as
Dave Love <fx@gnu.org>
parents:
27417
diff
changeset
|
139 ;; This used to match preprocessor lines too, but that messes up |
07cbc9269fbc
(fortran-comment-line-start): Define as
Dave Love <fx@gnu.org>
parents:
27417
diff
changeset
|
140 ;; filling and doesn't seem to be necessary. |
07cbc9269fbc
(fortran-comment-line-start): Define as
Dave Love <fx@gnu.org>
parents:
27417
diff
changeset
|
141 (defcustom fortran-comment-line-start-skip |
33947 | 142 "^[CcDd*!]\\(\\([^ \t\n]\\)\\2+\\)?[ \t]*" |
17413
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16581
diff
changeset
|
143 "*Regexp to match the start of a full-line comment." |
26560
edf06ac56d1f
(fortran-comment-line-start): Renamed from comment-line-start.
Dave Love <fx@gnu.org>
parents:
25162
diff
changeset
|
144 :version "21.1" |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
145 :type 'regexp |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
146 :group 'fortran-comment) |
332 | 147 |
45301
793bb00af917
(fortran-directive-re): New name for fortran-preprocessor-re. All usage
Glenn Morris <rgm@gnu.org>
parents:
45255
diff
changeset
|
148 (defcustom fortran-directive-re |
45242
52d991be0698
(fortran-preprocessor-re): New variable. Use it for font-locking.
Glenn Morris <rgm@gnu.org>
parents:
45067
diff
changeset
|
149 "^[ \t]*#.*" |
45301
793bb00af917
(fortran-directive-re): New name for fortran-preprocessor-re. All usage
Glenn Morris <rgm@gnu.org>
parents:
45255
diff
changeset
|
150 "*Regexp to match a directive line. |
793bb00af917
(fortran-directive-re): New name for fortran-preprocessor-re. All usage
Glenn Morris <rgm@gnu.org>
parents:
45255
diff
changeset
|
151 The matching text will be fontified with `font-lock-keyword-face'. |
793bb00af917
(fortran-directive-re): New name for fortran-preprocessor-re. All usage
Glenn Morris <rgm@gnu.org>
parents:
45255
diff
changeset
|
152 The matching line will be given zero indentation." |
59996
aac0a33f5772
Change release version from 21.4 to 22.1 throughout.
Kim F. Storm <storm@cua.dk>
parents:
59244
diff
changeset
|
153 :version "22.1" |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
154 :type 'regexp |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
155 :group 'fortran-indent) |
45242
52d991be0698
(fortran-preprocessor-re): New variable. Use it for font-locking.
Glenn Morris <rgm@gnu.org>
parents:
45067
diff
changeset
|
156 |
17413
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16581
diff
changeset
|
157 (defcustom fortran-minimum-statement-indent-fixed 6 |
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16581
diff
changeset
|
158 "*Minimum statement indentation for fixed format continuation style." |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
159 :type 'integer |
17413
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16581
diff
changeset
|
160 :group 'fortran-indent) |
1633
65af7bcd5e31
* fortran.el: New version of version 1.30 (!) from Stephen A. Wood
Jim Blandy <jimb@redhat.com>
parents:
1611
diff
changeset
|
161 |
17413
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16581
diff
changeset
|
162 (defcustom fortran-minimum-statement-indent-tab (max tab-width 6) |
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16581
diff
changeset
|
163 "*Minimum statement indentation for TAB format continuation style." |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
164 :type 'integer |
17413
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16581
diff
changeset
|
165 :group 'fortran-indent) |
332 | 166 |
167 ;; Note that this is documented in the v18 manuals as being a string | |
168 ;; of length one rather than a single character. | |
169 ;; The code in this file accepts either format for compatibility. | |
17413
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16581
diff
changeset
|
170 (defcustom fortran-comment-indent-char " " |
332 | 171 "*Single-character string inserted for Fortran comment indentation. |
17413
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16581
diff
changeset
|
172 Normally a space." |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
173 :type 'string |
17413
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16581
diff
changeset
|
174 :group 'fortran-comment) |
332 | 175 |
17413
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16581
diff
changeset
|
176 (defcustom fortran-line-number-indent 1 |
332 | 177 "*Maximum indentation for Fortran line numbers. |
17413
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16581
diff
changeset
|
178 5 means right-justify them within their five-column field." |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
179 :type 'integer |
17413
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16581
diff
changeset
|
180 :group 'fortran-indent) |
332 | 181 |
17413
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16581
diff
changeset
|
182 (defcustom fortran-check-all-num-for-matching-do nil |
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16581
diff
changeset
|
183 "*Non-nil causes all numbered lines to be treated as possible DO loop ends." |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
184 :type 'boolean |
17413
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16581
diff
changeset
|
185 :group 'fortran) |
332 | 186 |
17413
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16581
diff
changeset
|
187 (defcustom fortran-blink-matching-if nil |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
188 "*Non-nil causes \\[fortran-indent-line] on ENDIF to blink on matching IF. |
17413
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16581
diff
changeset
|
189 Also, from an ENDDO statement blink on matching DO [WHILE] statement." |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
190 :type 'boolean |
17413
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16581
diff
changeset
|
191 :group 'fortran) |
332 | 192 |
17413
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16581
diff
changeset
|
193 (defcustom fortran-continuation-string "$" |
1548 | 194 "*Single-character string used for Fortran continuation lines. |
332 | 195 In fixed format continuation style, this character is inserted in |
196 column 6 by \\[fortran-split-line] to begin a continuation line. | |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
197 Also, if \\[fortran-indent-line] finds this at the beginning of a |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
198 line, it will convert the line into a continuation line of the |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
199 appropriate style. Normally $." |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
200 :type 'string |
17413
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16581
diff
changeset
|
201 :group 'fortran) |
332 | 202 |
17413
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16581
diff
changeset
|
203 (defcustom fortran-comment-region "c$$$" |
21410
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
204 "*String inserted by \\[fortran-comment-region] at start of each \ |
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
205 line in region." |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
206 :type 'string |
17413
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16581
diff
changeset
|
207 :group 'fortran-comment) |
332 | 208 |
17413
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16581
diff
changeset
|
209 (defcustom fortran-electric-line-number t |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
210 "*Non-nil causes line numbers to be moved to the correct column as typed." |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
211 :type 'boolean |
17413
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16581
diff
changeset
|
212 :group 'fortran) |
332 | 213 |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
214 (defcustom fortran-column-ruler-fixed |
1633
65af7bcd5e31
* fortran.el: New version of version 1.30 (!) from Stephen A. Wood
Jim Blandy <jimb@redhat.com>
parents:
1611
diff
changeset
|
215 "0 4 6 10 20 30 40 5\ |
20805
918448e5d294
Various docstring and commentary fixes, including
Dave Love <fx@gnu.org>
parents:
20277
diff
changeset
|
216 0 60 70\n\ |
11516
e7c26522b881
Use new fortran-match-!-comment to do !-style fontification; do rest in regexps
Simon Marshall <simon@gnu.org>
parents:
10883
diff
changeset
|
217 \[ ]|{ | | | | | | | | \ |
e7c26522b881
Use new fortran-match-!-comment to do !-style fontification; do rest in regexps
Simon Marshall <simon@gnu.org>
parents:
10883
diff
changeset
|
218 \| | | | |}\n" |
21079 | 219 "String displayed above current line by \\[fortran-column-ruler]. |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
220 This variable is used in fixed format mode. |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
221 See the variable `fortran-column-ruler-tab' for TAB format mode." |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
222 :type 'string |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
223 :group 'fortran) |
1633
65af7bcd5e31
* fortran.el: New version of version 1.30 (!) from Stephen A. Wood
Jim Blandy <jimb@redhat.com>
parents:
1611
diff
changeset
|
224 |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
225 (defcustom fortran-column-ruler-tab |
1633
65af7bcd5e31
* fortran.el: New version of version 1.30 (!) from Stephen A. Wood
Jim Blandy <jimb@redhat.com>
parents:
1611
diff
changeset
|
226 "0 810 20 30 40 5\ |
20805
918448e5d294
Various docstring and commentary fixes, including
Dave Love <fx@gnu.org>
parents:
20277
diff
changeset
|
227 0 60 70\n\ |
11516
e7c26522b881
Use new fortran-match-!-comment to do !-style fontification; do rest in regexps
Simon Marshall <simon@gnu.org>
parents:
10883
diff
changeset
|
228 \[ ]| { | | | | | | | | \ |
e7c26522b881
Use new fortran-match-!-comment to do !-style fontification; do rest in regexps
Simon Marshall <simon@gnu.org>
parents:
10883
diff
changeset
|
229 \| | | | |}\n" |
21079 | 230 "String displayed above current line by \\[fortran-column-ruler]. |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
231 This variable is used in TAB format mode. |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
232 See the variable `fortran-column-ruler-fixed' for fixed format mode." |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
233 :type 'string |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
234 :group 'fortran) |
332 | 235 |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
236 (defcustom fortran-analyze-depth 100 |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
237 "Number of lines to scan to identify fixed or TAB format style." |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
238 :type 'integer |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
239 :group 'fortran) |
332 | 240 |
17413
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16581
diff
changeset
|
241 (defcustom fortran-break-before-delimiters t |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
242 "*Non-nil causes filling to break lines before delimiters. |
53700
444062830592
(fortran-break-before-delimiters): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
52401
diff
changeset
|
243 Delimiters are characters matching the regexp `fortran-break-delimiters-re'." |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
244 :type 'boolean |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
245 :group 'fortran) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
246 |
53700
444062830592
(fortran-break-before-delimiters): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
52401
diff
changeset
|
247 (defconst fortran-break-delimiters-re "[-+*/><=, \t]" |
444062830592
(fortran-break-before-delimiters): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
52401
diff
changeset
|
248 "Regexp matching delimiter characters at which lines may be broken. |
444062830592
(fortran-break-before-delimiters): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
52401
diff
changeset
|
249 There are certain tokens comprised entirely of characters |
444062830592
(fortran-break-before-delimiters): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
52401
diff
changeset
|
250 matching this regexp that should not be split, and these are |
444062830592
(fortran-break-before-delimiters): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
52401
diff
changeset
|
251 specified by the constant `fortran-no-break-re'.") |
444062830592
(fortran-break-before-delimiters): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
52401
diff
changeset
|
252 |
444062830592
(fortran-break-before-delimiters): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
52401
diff
changeset
|
253 ;; The ">=", etc F77 extensions are supported by g77. |
444062830592
(fortran-break-before-delimiters): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
52401
diff
changeset
|
254 (defconst fortran-no-break-re |
444062830592
(fortran-break-before-delimiters): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
52401
diff
changeset
|
255 (regexp-opt '("**" "//" "=>" ">=" "<=" "==" "/=") 'paren) |
444062830592
(fortran-break-before-delimiters): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
52401
diff
changeset
|
256 "Regexp specifying where not to break lines when filling. |
444062830592
(fortran-break-before-delimiters): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
52401
diff
changeset
|
257 This regexp matches certain tokens comprised entirely of |
444062830592
(fortran-break-before-delimiters): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
52401
diff
changeset
|
258 characters matching the regexp `fortran-break-delimiters-re' that should |
444062830592
(fortran-break-before-delimiters): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
52401
diff
changeset
|
259 not be split by filling. Each element is assumed to be two |
444062830592
(fortran-break-before-delimiters): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
52401
diff
changeset
|
260 characters long.") |
444062830592
(fortran-break-before-delimiters): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
52401
diff
changeset
|
261 |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
262 (defcustom fortran-mode-hook nil |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
263 "Hook run when entering Fortran mode." |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
264 :type 'hook |
17413
9fa0ed8da0b1
Add defgroup's; use defcustom for user vars.
Richard M. Stallman <rms@gnu.org>
parents:
16581
diff
changeset
|
265 :group 'fortran) |
1548 | 266 |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
267 |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
268 (defvar fortran-if-start-re "\\(\\(\\sw\\|\\s_\\)+:[ \t]*\\)?if[ \t]*(" |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
269 "Regexp matching the start of an IF statement.") |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
270 |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
271 (defvar fortran-end-prog-re1 |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
272 "end\ |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
273 \\([ \t]*\\(program\\|subroutine\\|function\\|block[ \t]*data\\)\\>\ |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
274 \\([ \t]*\\(\\sw\\|\\s_\\)+\\)?\\)?" |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
275 "Regexp possibly matching the end of a subprogram.") |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
276 |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
277 (defvar fortran-end-prog-re |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
278 (concat "^[ \t0-9]*" fortran-end-prog-re1) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
279 "Regexp possibly matching the end of a subprogram, from the line start. |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
280 See also `fortran-end-prog-re1'.") |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
281 |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
282 (defconst fortran-type-types |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
283 (concat "\\<" |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
284 (mapconcat 'identity ; " " -> "[ \t]*" |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
285 (split-string |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
286 (regexp-opt |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
287 (let ((simple-types |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
288 '("character" "byte" "integer" "logical" |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
289 "none" "real" "complex" |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
290 "double precision" "double complex")) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
291 (structured-types '("structure" "union" "map")) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
292 (other-types '("record" "dimension" |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
293 "parameter" "common" "save" |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
294 "external" "intrinsic" "data" |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
295 "equivalence"))) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
296 (append |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
297 (mapcar (lambda (x) (concat "implicit " x)) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
298 simple-types) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
299 simple-types |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
300 (mapcar (lambda (x) (concat "end " x)) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
301 structured-types) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
302 structured-types |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
303 other-types)) 'paren)) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
304 "[ \t]*") "\\>") |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
305 "Regexp matching Fortran types.") |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
306 |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
307 (defvar fortran-font-lock-keywords-1 |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
308 ;; Program, subroutine and function declarations, plus calls. |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
309 '(("\\<\\(block[ \t]*data\\|call\\|entry\\|function\\|\ |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
310 program\\|subroutine\\)\\>[ \t]*\\(\\sw+\\)?" |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
311 (1 font-lock-keyword-face) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
312 (2 font-lock-function-name-face nil t))) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
313 "Subdued level highlighting for Fortran mode.") |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
314 |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
315 (defvar fortran-font-lock-keywords-2 |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
316 (append fortran-font-lock-keywords-1 |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
317 (list |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
318 ;; Fontify all type specifiers (must be first - see below). |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
319 (cons fortran-type-types 'font-lock-type-face) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
320 ;; Builtin keywords (except logical, do and goto - see below). |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
321 (concat "\\<" (regexp-opt |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
322 '("continue" "format" "end" "enddo" |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
323 "if" "then" "else" "endif" "elseif" |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
324 "while" "inquire" "stop" "return" |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
325 "include" "open" "close" "read" |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
326 "write" "format" "print" "select" "case" |
61107
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
327 "cycle" "exit" "rewind" "backspace" |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
328 "where" "elsewhere") |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
329 'paren) "\\>") |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
330 ;; Builtin operators. |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
331 (concat "\\." (regexp-opt |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
332 '("and" "or" "not" "lt" "le" "eq" "ge" |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
333 "gt" "ne" "true" "false") |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
334 'paren) "\\.") |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
335 ;; do/goto keywords and targets, and goto tags. |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
336 '("\\<\\(do\\|go *to\\)\\>[ \t]*\\([0-9]+\\)?" |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
337 (1 font-lock-keyword-face) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
338 (2 font-lock-constant-face nil t)) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
339 '("^ *\\([0-9]+\\)" . font-lock-constant-face))) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
340 "Medium level highlighting for Fortran mode.") |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
341 |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
342 (defvar fortran-font-lock-keywords-3 |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
343 (append |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
344 fortran-font-lock-keywords-1 |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
345 ;; All type specifiers plus their declared items. |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
346 (list |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
347 (list (concat fortran-type-types "[ \t(/]*\\(*\\)?") |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
348 ;; Type specifier. |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
349 '(1 font-lock-type-face) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
350 ;; Declaration item (or just /.../ block name). |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
351 `(font-lock-match-c-style-declaration-item-and-skip-to-next |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
352 ;; Start after any *(...) expression. |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
353 (condition-case nil |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
354 (and (match-beginning ,(1+ (regexp-opt-depth |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
355 fortran-type-types))) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
356 (forward-sexp) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
357 (forward-sexp)) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
358 (error nil)) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
359 ;; No need to clean up. |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
360 nil |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
361 ;; Fontify as a variable name, functions fontified elsewhere. |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
362 (1 font-lock-variable-name-face nil t)))) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
363 ;; Things extra to `fortran-font-lock-keywords-3' (must be done first). |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
364 (list |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
365 ;; Goto-like `err=label'/`end=label' in read/write statements. |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
366 '(", *\\(e\\(nd\\|rr\\)\\)\\> *\\(= *\\([0-9]+\\)\\)?" |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
367 (1 font-lock-keyword-face) (4 font-lock-constant-face nil t)) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
368 ;; Standard continuation character and in a TAB-formatted line. |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
369 '("^ \\{5\\}\\([^ 0\n]\\)" 1 font-lock-string-face) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
370 '("^\t\\([1-9]\\)" 1 font-lock-string-face)) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
371 `((,fortran-directive-re (0 font-lock-keyword-face t))) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
372 ;; `fortran-font-lock-keywords-2' without types (see above). |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
373 (cdr (nthcdr (length fortran-font-lock-keywords-1) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
374 fortran-font-lock-keywords-2))) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
375 "Gaudy level highlighting for Fortran mode.") |
332 | 376 |
61107
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
377 (defvar fortran-font-lock-keywords-4 |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
378 (append fortran-font-lock-keywords-3 |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
379 (list (list |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
380 (concat "\\<" |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
381 (regexp-opt |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
382 '("int" "ifix" "idint" "real" "float" "sngl" |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
383 "dble" "cmplx" "ichar" "char" "aint" "dint" |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
384 "anint" "dnint" "nint" "idnint" "iabs" "abs" |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
385 "dabs" "cabs" "mod" "amod" "dmod" "isign" |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
386 "sign" "dsign" "idim" "dim" "ddim" "dprod" |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
387 "max" "max0" "amax1" "dmax1" "amax0" "max1" |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
388 "min0" "amin1" "dmin1" "amin0" "min1" "len" |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
389 "index" "lge" "lgt" "lle" "llt" "aimag" |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
390 "conjg" "sqrt" "dsqrt" "csqrt" "exp" "dexp" |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
391 "cexp" "log" "alog" "dlog" "clog" "log10" |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
392 "alog10" "dlog10" "sin" "dsin" "csin" "cos" |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
393 "dcos" "ccos" "tan" "dtan" "asin" "dasin" |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
394 "acos" "dacos" "atan" "datan" "atan2" "datan2" |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
395 "sinh" "dsinh" "cosh" "dcosh" "tanh" "dtanh") |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
396 'paren) "[ \t]*(") '(1 font-lock-builtin-face)))) |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
397 "Maximum highlighting for Fortran mode. |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
398 Consists of level 3 plus all other intrinsics not already highlighted.") |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
399 |
25054
888326cb8ffb
(fortran-mode-syntax-table): Change `\' to `\'
Dave Love <fx@gnu.org>
parents:
24800
diff
changeset
|
400 ;; Comments are real pain in Fortran because there is no way to |
888326cb8ffb
(fortran-mode-syntax-table): Change `\' to `\'
Dave Love <fx@gnu.org>
parents:
24800
diff
changeset
|
401 ;; represent the standard comment syntax in an Emacs syntax table. |
888326cb8ffb
(fortran-mode-syntax-table): Change `\' to `\'
Dave Love <fx@gnu.org>
parents:
24800
diff
changeset
|
402 ;; (We can do so for F90-style). Therefore an unmatched quote in a |
888326cb8ffb
(fortran-mode-syntax-table): Change `\' to `\'
Dave Love <fx@gnu.org>
parents:
24800
diff
changeset
|
403 ;; standard comment will throw fontification off on the wrong track. |
888326cb8ffb
(fortran-mode-syntax-table): Change `\' to `\'
Dave Love <fx@gnu.org>
parents:
24800
diff
changeset
|
404 ;; So we do syntactic fontification with regexps. |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
405 (defvar fortran-font-lock-syntactic-keywords |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
406 '(("^[cd\\*]" 0 (11)) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
407 ("^[^cd\\*\t\n].\\{71\\}\\([^\n]+\\)" 1 (11))) |
25054
888326cb8ffb
(fortran-mode-syntax-table): Change `\' to `\'
Dave Love <fx@gnu.org>
parents:
24800
diff
changeset
|
408 "`font-lock-syntactic-keywords' for Fortran. |
888326cb8ffb
(fortran-mode-syntax-table): Change `\' to `\'
Dave Love <fx@gnu.org>
parents:
24800
diff
changeset
|
409 These get fixed-format comments fontified.") |
23616
17ebfb12712f
Fix for fontification of strings lost
Dave Love <fx@gnu.org>
parents:
23607
diff
changeset
|
410 |
12386
ceccff3df349
Specify all Font Lock keywords in font-lock-defaults.
Simon Marshall <simon@gnu.org>
parents:
11801
diff
changeset
|
411 (defvar fortran-font-lock-keywords fortran-font-lock-keywords-1 |
ceccff3df349
Specify all Font Lock keywords in font-lock-defaults.
Simon Marshall <simon@gnu.org>
parents:
11801
diff
changeset
|
412 "Default expressions to highlight in Fortran mode.") |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
413 |
20205
cdaddfc03fe8
(fortran-imenu-generic-expression): New variable.
Dave Love <fx@gnu.org>
parents:
17413
diff
changeset
|
414 (defvar fortran-imenu-generic-expression |
20277
b7f5af6127d5
(fortran-imenu-generic-expression): Match
Dave Love <fx@gnu.org>
parents:
20207
diff
changeset
|
415 ;; These patterns could be confused by sequence nos. in cols 72+ and |
b7f5af6127d5
(fortran-imenu-generic-expression): Match
Dave Love <fx@gnu.org>
parents:
20207
diff
changeset
|
416 ;; don't allow continuations everywhere. |
20805
918448e5d294
Various docstring and commentary fixes, including
Dave Love <fx@gnu.org>
parents:
20277
diff
changeset
|
417 (list |
918448e5d294
Various docstring and commentary fixes, including
Dave Love <fx@gnu.org>
parents:
20277
diff
changeset
|
418 (list |
918448e5d294
Various docstring and commentary fixes, including
Dave Love <fx@gnu.org>
parents:
20277
diff
changeset
|
419 nil |
30186
835820e0df08
(fortran-imenu-generic-expression): Change definition layout.
Dave Love <fx@gnu.org>
parents:
30149
diff
changeset
|
420 ;; [This will be fooled by `end function' allowed by G77. Also, |
835820e0df08
(fortran-imenu-generic-expression): Change definition layout.
Dave Love <fx@gnu.org>
parents:
30149
diff
changeset
|
421 ;; it assumes sensible whitespace is employed.] |
835820e0df08
(fortran-imenu-generic-expression): Change definition layout.
Dave Love <fx@gnu.org>
parents:
30149
diff
changeset
|
422 (concat |
835820e0df08
(fortran-imenu-generic-expression): Change definition layout.
Dave Love <fx@gnu.org>
parents:
30149
diff
changeset
|
423 ;; leading whitespace: |
835820e0df08
(fortran-imenu-generic-expression): Change definition layout.
Dave Love <fx@gnu.org>
parents:
30149
diff
changeset
|
424 "^\\s-+\\(" |
835820e0df08
(fortran-imenu-generic-expression): Change definition layout.
Dave Love <fx@gnu.org>
parents:
30149
diff
changeset
|
425 ;; function declaration with optional type, e.g. `real', |
835820e0df08
(fortran-imenu-generic-expression): Change definition layout.
Dave Love <fx@gnu.org>
parents:
30149
diff
changeset
|
426 ;; `real*4', character(*), `double precision': |
835820e0df08
(fortran-imenu-generic-expression): Change definition layout.
Dave Love <fx@gnu.org>
parents:
30149
diff
changeset
|
427 "\\(\\sw\\|\\s-\\|[*()+]\\)*" |
835820e0df08
(fortran-imenu-generic-expression): Change definition layout.
Dave Love <fx@gnu.org>
parents:
30149
diff
changeset
|
428 "\\<function\\|subroutine\\|entry\\|block\\s-*data\\|program\\)" |
835820e0df08
(fortran-imenu-generic-expression): Change definition layout.
Dave Love <fx@gnu.org>
parents:
30149
diff
changeset
|
429 ;; Possible statement continuation: |
835820e0df08
(fortran-imenu-generic-expression): Change definition layout.
Dave Love <fx@gnu.org>
parents:
30149
diff
changeset
|
430 "[ \t" fortran-continuation-string "]+" |
835820e0df08
(fortran-imenu-generic-expression): Change definition layout.
Dave Love <fx@gnu.org>
parents:
30149
diff
changeset
|
431 ;; Variable to index: |
835820e0df08
(fortran-imenu-generic-expression): Change definition layout.
Dave Love <fx@gnu.org>
parents:
30149
diff
changeset
|
432 "\\(\\sw+\\)") |
20805
918448e5d294
Various docstring and commentary fixes, including
Dave Love <fx@gnu.org>
parents:
20277
diff
changeset
|
433 3) |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
434 ;; Un-named block data. |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
435 '(nil "^\\s-+\\(block\\s-*data\\)\\s-*$" 1)) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
436 "Value for `imenu-generic-expression' in Fortran mode.") |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
437 |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
438 |
61107
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
439 ;; Hideshow support. |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
440 (defconst fortran-blocks-re |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
441 (concat "block[ \t]*data\\|select[ \t]*case\\|" |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
442 (regexp-opt '("do" "if" "interface" "function" "map" "program" |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
443 "structure" "subroutine" "union" "where"))) |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
444 "Regexp potentially indicating the start or end of a Fortran \"block\". |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
445 Omits naked END statements, and DO-loops closed by anything other |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
446 than ENDDO.") |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
447 |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
448 (defconst fortran-end-block-re |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
449 ;; Do-loops terminated by things other than ENDDO cannot be handled |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
450 ;; with a regexp. This omission does not seem to matter to hideshow... |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
451 (concat "^[ \t0-9]*\\<end[ \t]*\\(" |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
452 fortran-blocks-re |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
453 ;; Naked END statement. |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
454 "\\|!\\|$\\)") |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
455 "Regexp matching the end of a Fortran \"block\", from the line start. |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
456 Note that only ENDDO is handled for the end of a DO-loop. Used |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
457 in the Fortran entry in `hs-special-modes-alist'.") |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
458 |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
459 (defconst fortran-start-block-re |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
460 (concat |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
461 "^[ \t0-9]*\\(" ; statement number |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
462 ;; Structure label for DO, IF, SELECT, WHERE. |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
463 "\\(\\(\\sw+[ \t]*:[ \t]*\\)?" |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
464 ;; IF blocks are a nuisance: |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
465 ;; IF ( ... ) foo is not a block, but a single statement. |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
466 ;; IF ( ... ) THEN can be split over multiple lines. |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
467 ;; [So can, eg, a DO WHILE (... ), but that is less common, I hope.] |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
468 ;; The regexp below allows for it to be split over at most 2 lines. |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
469 ;; That leads to the problem of not matching two consecutive IF |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
470 ;; statements as one, eg: |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
471 ;; IF ( ... ) foo |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
472 ;; IF ( ... ) THEN |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
473 ;; It simply is not possible to do this in a 100% correct fashion |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
474 ;; using a regexp - see the functions fortran-end-if, |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
475 ;; fortran-beginning-if for the hoops we have to go through. |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
476 ;; An alternative is to match on THEN at a line end, eg: |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
477 ;; ".*)[ \t]*then[ \t]*\\($\\|!\\)" |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
478 ;; This would also match ELSE branches, though. This does not seem |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
479 ;; right to me, because then one has neighbouring blocks that are |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
480 ;; not nested in each other. |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
481 "\\(if[ \t]*(\\(.*\\|" |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
482 ".*\n\\([^if]*\\([^i].\\|.[^f]\\|.\\>\\)\\)\\)\\<then\\|" |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
483 "do\\|select[ \t]*case\\|where\\)\\)\\|" |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
484 (regexp-opt '("interface" "function" "map" "program" |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
485 "structure" "subroutine" "union")) |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
486 "\\|block[ \t]*data\\)[ \t]*") |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
487 "Regexp matching the start of a Fortran \"block\", from the line start. |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
488 A simple regexp cannot do this in fully correct fashion, so this |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
489 tries to strike a compromise between complexity and flexibility. |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
490 Used in the Fortran entry in `hs-special-modes-alist'.") |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
491 |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
492 (add-to-list 'hs-special-modes-alist |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
493 `(fortran-mode ,fortran-start-block-re ,fortran-end-block-re |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
494 "^[cC*!]" fortran-end-of-block nil)) |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
495 |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
496 |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
497 (defvar fortran-mode-syntax-table |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
498 (let ((table (make-syntax-table))) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
499 ;; We might like `;' to be punctuation (g77 multi-statement |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
500 ;; lines), but that screws abbrevs. |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
501 (modify-syntax-entry ?\; "w" table) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
502 (modify-syntax-entry ?\r " " table) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
503 (modify-syntax-entry ?+ "." table) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
504 (modify-syntax-entry ?- "." table) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
505 (modify-syntax-entry ?= "." table) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
506 (modify-syntax-entry ?* "." table) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
507 (modify-syntax-entry ?/ "." table) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
508 (modify-syntax-entry ?\' "\"" table) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
509 (modify-syntax-entry ?\" "\"" table) |
61107
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
510 ;; Consistent with GNU Fortran's default -- see the manual. |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
511 ;; The F77 standard imposes no rule on this issue. |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
512 (modify-syntax-entry ?\\ "\\" table) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
513 ;; This might be better as punctuation, as for C, but this way you |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
514 ;; can treat floating-point numbers as symbols. |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
515 (modify-syntax-entry ?. "_" table) ; e.g. `a.ne.b' |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
516 (modify-syntax-entry ?_ "_" table) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
517 (modify-syntax-entry ?$ "_" table) ; esp. VMSisms |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
518 (modify-syntax-entry ?\! "<" table) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
519 (modify-syntax-entry ?\n ">" table) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
520 table) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
521 "Syntax table used in Fortran mode.") |
13300
73b7a6396cbe
Fix to fortran-font-lock-keywords-* for new font-lock-keywords structure.
Simon Marshall <simon@gnu.org>
parents:
12814
diff
changeset
|
522 |
51615
64bebb34e646
(fortran-gud-syntax-table): Syntax table
Nick Roberts <nickrob@snap.net.nz>
parents:
50648
diff
changeset
|
523 (defvar fortran-gud-syntax-table |
64bebb34e646
(fortran-gud-syntax-table): Syntax table
Nick Roberts <nickrob@snap.net.nz>
parents:
50648
diff
changeset
|
524 (let ((st (make-syntax-table fortran-mode-syntax-table))) |
64bebb34e646
(fortran-gud-syntax-table): Syntax table
Nick Roberts <nickrob@snap.net.nz>
parents:
50648
diff
changeset
|
525 (modify-syntax-entry ?\n "." st) |
64bebb34e646
(fortran-gud-syntax-table): Syntax table
Nick Roberts <nickrob@snap.net.nz>
parents:
50648
diff
changeset
|
526 st) |
64bebb34e646
(fortran-gud-syntax-table): Syntax table
Nick Roberts <nickrob@snap.net.nz>
parents:
50648
diff
changeset
|
527 "Syntax table used to parse Fortran expressions for printing in GUD.") |
64bebb34e646
(fortran-gud-syntax-table): Syntax table
Nick Roberts <nickrob@snap.net.nz>
parents:
50648
diff
changeset
|
528 |
27199
4a15e79c5fb0
(fortran-mode-map): Don't bind M-C-a,
Dave Love <fx@gnu.org>
parents:
26665
diff
changeset
|
529 (defvar fortran-mode-map |
30149
1c8c6dbfcfb9
Don't require easymenu. Use repeat counts in various regexps.
Dave Love <fx@gnu.org>
parents:
28079
diff
changeset
|
530 (let ((map (make-sparse-keymap))) |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
531 (define-key map ";" 'fortran-abbrev-start) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
532 (define-key map "\C-c;" 'fortran-comment-region) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
533 (define-key map "\M-;" 'fortran-indent-comment) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
534 (define-key map "\M-\n" 'fortran-split-line) |
61107
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
535 (define-key map "\M-\C-n" 'fortran-end-of-block) |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
536 (define-key map "\M-\C-p" 'fortran-beginning-of-block) |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
537 (define-key map "\M-\C-q" 'fortran-indent-subprogram) |
30149
1c8c6dbfcfb9
Don't require easymenu. Use repeat counts in various regexps.
Dave Love <fx@gnu.org>
parents:
28079
diff
changeset
|
538 (define-key map "\C-c\C-w" 'fortran-window-create-momentarily) |
1c8c6dbfcfb9
Don't require easymenu. Use repeat counts in various regexps.
Dave Love <fx@gnu.org>
parents:
28079
diff
changeset
|
539 (define-key map "\C-c\C-r" 'fortran-column-ruler) |
1c8c6dbfcfb9
Don't require easymenu. Use repeat counts in various regexps.
Dave Love <fx@gnu.org>
parents:
28079
diff
changeset
|
540 (define-key map "\C-c\C-p" 'fortran-previous-statement) |
1c8c6dbfcfb9
Don't require easymenu. Use repeat counts in various regexps.
Dave Love <fx@gnu.org>
parents:
28079
diff
changeset
|
541 (define-key map "\C-c\C-n" 'fortran-next-statement) |
1c8c6dbfcfb9
Don't require easymenu. Use repeat counts in various regexps.
Dave Love <fx@gnu.org>
parents:
28079
diff
changeset
|
542 (define-key map "\C-c\C-d" 'fortran-join-line) ; like f90 |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
543 (define-key map "\M-^" 'fortran-join-line) ; subvert delete-indentation |
30149
1c8c6dbfcfb9
Don't require easymenu. Use repeat counts in various regexps.
Dave Love <fx@gnu.org>
parents:
28079
diff
changeset
|
544 (define-key map "0" 'fortran-electric-line-number) |
1c8c6dbfcfb9
Don't require easymenu. Use repeat counts in various regexps.
Dave Love <fx@gnu.org>
parents:
28079
diff
changeset
|
545 (define-key map "1" 'fortran-electric-line-number) |
1c8c6dbfcfb9
Don't require easymenu. Use repeat counts in various regexps.
Dave Love <fx@gnu.org>
parents:
28079
diff
changeset
|
546 (define-key map "2" 'fortran-electric-line-number) |
1c8c6dbfcfb9
Don't require easymenu. Use repeat counts in various regexps.
Dave Love <fx@gnu.org>
parents:
28079
diff
changeset
|
547 (define-key map "3" 'fortran-electric-line-number) |
1c8c6dbfcfb9
Don't require easymenu. Use repeat counts in various regexps.
Dave Love <fx@gnu.org>
parents:
28079
diff
changeset
|
548 (define-key map "4" 'fortran-electric-line-number) |
1c8c6dbfcfb9
Don't require easymenu. Use repeat counts in various regexps.
Dave Love <fx@gnu.org>
parents:
28079
diff
changeset
|
549 (define-key map "5" 'fortran-electric-line-number) |
1c8c6dbfcfb9
Don't require easymenu. Use repeat counts in various regexps.
Dave Love <fx@gnu.org>
parents:
28079
diff
changeset
|
550 (define-key map "6" 'fortran-electric-line-number) |
1c8c6dbfcfb9
Don't require easymenu. Use repeat counts in various regexps.
Dave Love <fx@gnu.org>
parents:
28079
diff
changeset
|
551 (define-key map "7" 'fortran-electric-line-number) |
1c8c6dbfcfb9
Don't require easymenu. Use repeat counts in various regexps.
Dave Love <fx@gnu.org>
parents:
28079
diff
changeset
|
552 (define-key map "8" 'fortran-electric-line-number) |
1c8c6dbfcfb9
Don't require easymenu. Use repeat counts in various regexps.
Dave Love <fx@gnu.org>
parents:
28079
diff
changeset
|
553 (define-key map "9" 'fortran-electric-line-number) |
20805
918448e5d294
Various docstring and commentary fixes, including
Dave Love <fx@gnu.org>
parents:
20277
diff
changeset
|
554 |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
555 (easy-menu-define fortran-menu map "Menu for Fortran mode." |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
556 `("Fortran" |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
557 ["Manual" (info "(emacs)Fortran")] |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
558 ("Customization" |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
559 ,(custom-menu-create 'fortran) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
560 ["Set" Custom-set t] |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
561 ["Save" Custom-save t] |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
562 ["Reset to Current" Custom-reset-current t] |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
563 ["Reset to Saved" Custom-reset-saved t] |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
564 ["Reset to Standard Settings" Custom-reset-standard t] |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
565 ) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
566 "--" |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
567 ["Comment Region" fortran-comment-region mark-active] |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
568 ["Uncomment Region" |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
569 (fortran-comment-region (region-beginning) (region-end) 1) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
570 mark-active] |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
571 ["Indent Region" indent-region mark-active] |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
572 ["Indent Subprogram" fortran-indent-subprogram t] |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
573 "--" |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
574 ["Beginning of Subprogram" fortran-beginning-of-subprogram t] |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
575 ["End of Subprogram" fortran-end-of-subprogram t] |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
576 ("Mark" |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
577 ["Subprogram" mark-defun t] |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
578 ["IF Block" fortran-mark-if t] |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
579 ["DO Block" fortran-mark-do t] |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
580 ) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
581 ["Narrow to Subprogram" narrow-to-defun t] |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
582 ["Widen" widen t] |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
583 "--" |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
584 ["Temporary column ruler" fortran-column-ruler t] |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
585 ["72-column window" fortran-window-create t] |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
586 ["Full Width Window" |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
587 (enlarge-window-horizontally (- (frame-width) (window-width))) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
588 (< (window-width) (frame-width))] |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
589 ["Momentary 72-column window" fortran-window-create-momentarily t] |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
590 "--" |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
591 ["Break Line at Point" fortran-split-line t] |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
592 ["Join Line" fortran-join-line t] |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
593 ["Fill Statement/Comment" fill-paragraph t] |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
594 "--" |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
595 ["Toggle auto-fill" auto-fill-mode :selected auto-fill-function |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
596 :style toggle] |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
597 ["Toggle abbrev-mode" abbrev-mode :selected abbrev-mode |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
598 :style toggle] |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
599 ["Add imenu Menu" imenu-add-menubar-index |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
600 :active (not (lookup-key (current-local-map) [menu-bar index])) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
601 :included (fboundp 'imenu-add-to-menubar)])) |
30149
1c8c6dbfcfb9
Don't require easymenu. Use repeat counts in various regexps.
Dave Love <fx@gnu.org>
parents:
28079
diff
changeset
|
602 map) |
27199
4a15e79c5fb0
(fortran-mode-map): Don't bind M-C-a,
Dave Love <fx@gnu.org>
parents:
26665
diff
changeset
|
603 "Keymap used in Fortran mode.") |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
604 |
332 | 605 |
27199
4a15e79c5fb0
(fortran-mode-map): Don't bind M-C-a,
Dave Love <fx@gnu.org>
parents:
26665
diff
changeset
|
606 (defvar fortran-mode-abbrev-table |
48815
4d051ad4475f
(fortran-mode-abbrev-table): Handle `define-abbrev' with either 5
Glenn Morris <rgm@gnu.org>
parents:
47767
diff
changeset
|
607 (let (abbrevs-changed) |
4d051ad4475f
(fortran-mode-abbrev-table): Handle `define-abbrev' with either 5
Glenn Morris <rgm@gnu.org>
parents:
47767
diff
changeset
|
608 (define-abbrev-table 'fortran-mode-abbrev-table nil) |
4d051ad4475f
(fortran-mode-abbrev-table): Handle `define-abbrev' with either 5
Glenn Morris <rgm@gnu.org>
parents:
47767
diff
changeset
|
609 ;; Use the 6th arg (SYSTEM-FLAG) of define-abbrev if possible. |
4d051ad4475f
(fortran-mode-abbrev-table): Handle `define-abbrev' with either 5
Glenn Morris <rgm@gnu.org>
parents:
47767
diff
changeset
|
610 ;; Only use `apply' to quieten the byte-compiler. |
4d051ad4475f
(fortran-mode-abbrev-table): Handle `define-abbrev' with either 5
Glenn Morris <rgm@gnu.org>
parents:
47767
diff
changeset
|
611 (mapcar |
4d051ad4475f
(fortran-mode-abbrev-table): Handle `define-abbrev' with either 5
Glenn Morris <rgm@gnu.org>
parents:
47767
diff
changeset
|
612 (function (lambda (element) |
4d051ad4475f
(fortran-mode-abbrev-table): Handle `define-abbrev' with either 5
Glenn Morris <rgm@gnu.org>
parents:
47767
diff
changeset
|
613 (condition-case nil |
4d051ad4475f
(fortran-mode-abbrev-table): Handle `define-abbrev' with either 5
Glenn Morris <rgm@gnu.org>
parents:
47767
diff
changeset
|
614 (apply 'define-abbrev fortran-mode-abbrev-table |
4d051ad4475f
(fortran-mode-abbrev-table): Handle `define-abbrev' with either 5
Glenn Morris <rgm@gnu.org>
parents:
47767
diff
changeset
|
615 (append element '(nil 0 t))) |
4d051ad4475f
(fortran-mode-abbrev-table): Handle `define-abbrev' with either 5
Glenn Morris <rgm@gnu.org>
parents:
47767
diff
changeset
|
616 (wrong-number-of-arguments |
4d051ad4475f
(fortran-mode-abbrev-table): Handle `define-abbrev' with either 5
Glenn Morris <rgm@gnu.org>
parents:
47767
diff
changeset
|
617 (apply 'define-abbrev fortran-mode-abbrev-table |
4d051ad4475f
(fortran-mode-abbrev-table): Handle `define-abbrev' with either 5
Glenn Morris <rgm@gnu.org>
parents:
47767
diff
changeset
|
618 (append element '(nil 0))))))) |
4d051ad4475f
(fortran-mode-abbrev-table): Handle `define-abbrev' with either 5
Glenn Morris <rgm@gnu.org>
parents:
47767
diff
changeset
|
619 '((";au" "automatic" ) |
4d051ad4475f
(fortran-mode-abbrev-table): Handle `define-abbrev' with either 5
Glenn Morris <rgm@gnu.org>
parents:
47767
diff
changeset
|
620 (";b" "byte" ) |
4d051ad4475f
(fortran-mode-abbrev-table): Handle `define-abbrev' with either 5
Glenn Morris <rgm@gnu.org>
parents:
47767
diff
changeset
|
621 (";bd" "block data" ) |
4d051ad4475f
(fortran-mode-abbrev-table): Handle `define-abbrev' with either 5
Glenn Morris <rgm@gnu.org>
parents:
47767
diff
changeset
|
622 (";ch" "character" ) |
4d051ad4475f
(fortran-mode-abbrev-table): Handle `define-abbrev' with either 5
Glenn Morris <rgm@gnu.org>
parents:
47767
diff
changeset
|
623 (";cl" "close" ) |
4d051ad4475f
(fortran-mode-abbrev-table): Handle `define-abbrev' with either 5
Glenn Morris <rgm@gnu.org>
parents:
47767
diff
changeset
|
624 (";c" "continue" ) |
4d051ad4475f
(fortran-mode-abbrev-table): Handle `define-abbrev' with either 5
Glenn Morris <rgm@gnu.org>
parents:
47767
diff
changeset
|
625 (";cm" "common" ) |
4d051ad4475f
(fortran-mode-abbrev-table): Handle `define-abbrev' with either 5
Glenn Morris <rgm@gnu.org>
parents:
47767
diff
changeset
|
626 (";cx" "complex" ) |
4d051ad4475f
(fortran-mode-abbrev-table): Handle `define-abbrev' with either 5
Glenn Morris <rgm@gnu.org>
parents:
47767
diff
changeset
|
627 (";df" "define" ) |
4d051ad4475f
(fortran-mode-abbrev-table): Handle `define-abbrev' with either 5
Glenn Morris <rgm@gnu.org>
parents:
47767
diff
changeset
|
628 (";di" "dimension" ) |
4d051ad4475f
(fortran-mode-abbrev-table): Handle `define-abbrev' with either 5
Glenn Morris <rgm@gnu.org>
parents:
47767
diff
changeset
|
629 (";do" "double" ) |
4d051ad4475f
(fortran-mode-abbrev-table): Handle `define-abbrev' with either 5
Glenn Morris <rgm@gnu.org>
parents:
47767
diff
changeset
|
630 (";dc" "double complex" ) |
4d051ad4475f
(fortran-mode-abbrev-table): Handle `define-abbrev' with either 5
Glenn Morris <rgm@gnu.org>
parents:
47767
diff
changeset
|
631 (";dp" "double precision" ) |
4d051ad4475f
(fortran-mode-abbrev-table): Handle `define-abbrev' with either 5
Glenn Morris <rgm@gnu.org>
parents:
47767
diff
changeset
|
632 (";dw" "do while" ) |
4d051ad4475f
(fortran-mode-abbrev-table): Handle `define-abbrev' with either 5
Glenn Morris <rgm@gnu.org>
parents:
47767
diff
changeset
|
633 (";e" "else" ) |
4d051ad4475f
(fortran-mode-abbrev-table): Handle `define-abbrev' with either 5
Glenn Morris <rgm@gnu.org>
parents:
47767
diff
changeset
|
634 (";ed" "enddo" ) |
4d051ad4475f
(fortran-mode-abbrev-table): Handle `define-abbrev' with either 5
Glenn Morris <rgm@gnu.org>
parents:
47767
diff
changeset
|
635 (";el" "elseif" ) |
4d051ad4475f
(fortran-mode-abbrev-table): Handle `define-abbrev' with either 5
Glenn Morris <rgm@gnu.org>
parents:
47767
diff
changeset
|
636 (";en" "endif" ) |
4d051ad4475f
(fortran-mode-abbrev-table): Handle `define-abbrev' with either 5
Glenn Morris <rgm@gnu.org>
parents:
47767
diff
changeset
|
637 (";eq" "equivalence" ) |
4d051ad4475f
(fortran-mode-abbrev-table): Handle `define-abbrev' with either 5
Glenn Morris <rgm@gnu.org>
parents:
47767
diff
changeset
|
638 (";ew" "endwhere" ) |
4d051ad4475f
(fortran-mode-abbrev-table): Handle `define-abbrev' with either 5
Glenn Morris <rgm@gnu.org>
parents:
47767
diff
changeset
|
639 (";ex" "external" ) |
4d051ad4475f
(fortran-mode-abbrev-table): Handle `define-abbrev' with either 5
Glenn Morris <rgm@gnu.org>
parents:
47767
diff
changeset
|
640 (";ey" "entry" ) |
4d051ad4475f
(fortran-mode-abbrev-table): Handle `define-abbrev' with either 5
Glenn Morris <rgm@gnu.org>
parents:
47767
diff
changeset
|
641 (";f" "format" ) |
4d051ad4475f
(fortran-mode-abbrev-table): Handle `define-abbrev' with either 5
Glenn Morris <rgm@gnu.org>
parents:
47767
diff
changeset
|
642 (";fa" ".false." ) |
4d051ad4475f
(fortran-mode-abbrev-table): Handle `define-abbrev' with either 5
Glenn Morris <rgm@gnu.org>
parents:
47767
diff
changeset
|
643 (";fu" "function" ) |
4d051ad4475f
(fortran-mode-abbrev-table): Handle `define-abbrev' with either 5
Glenn Morris <rgm@gnu.org>
parents:
47767
diff
changeset
|
644 (";g" "goto" ) |
4d051ad4475f
(fortran-mode-abbrev-table): Handle `define-abbrev' with either 5
Glenn Morris <rgm@gnu.org>
parents:
47767
diff
changeset
|
645 (";im" "implicit" ) |
4d051ad4475f
(fortran-mode-abbrev-table): Handle `define-abbrev' with either 5
Glenn Morris <rgm@gnu.org>
parents:
47767
diff
changeset
|
646 (";ib" "implicit byte" ) |
4d051ad4475f
(fortran-mode-abbrev-table): Handle `define-abbrev' with either 5
Glenn Morris <rgm@gnu.org>
parents:
47767
diff
changeset
|
647 (";ic" "implicit complex" ) |
4d051ad4475f
(fortran-mode-abbrev-table): Handle `define-abbrev' with either 5
Glenn Morris <rgm@gnu.org>
parents:
47767
diff
changeset
|
648 (";ich" "implicit character") |
4d051ad4475f
(fortran-mode-abbrev-table): Handle `define-abbrev' with either 5
Glenn Morris <rgm@gnu.org>
parents:
47767
diff
changeset
|
649 (";ii" "implicit integer" ) |
4d051ad4475f
(fortran-mode-abbrev-table): Handle `define-abbrev' with either 5
Glenn Morris <rgm@gnu.org>
parents:
47767
diff
changeset
|
650 (";il" "implicit logical" ) |
4d051ad4475f
(fortran-mode-abbrev-table): Handle `define-abbrev' with either 5
Glenn Morris <rgm@gnu.org>
parents:
47767
diff
changeset
|
651 (";ir" "implicit real" ) |
4d051ad4475f
(fortran-mode-abbrev-table): Handle `define-abbrev' with either 5
Glenn Morris <rgm@gnu.org>
parents:
47767
diff
changeset
|
652 (";inc" "include" ) |
4d051ad4475f
(fortran-mode-abbrev-table): Handle `define-abbrev' with either 5
Glenn Morris <rgm@gnu.org>
parents:
47767
diff
changeset
|
653 (";in" "integer" ) |
4d051ad4475f
(fortran-mode-abbrev-table): Handle `define-abbrev' with either 5
Glenn Morris <rgm@gnu.org>
parents:
47767
diff
changeset
|
654 (";intr" "intrinsic" ) |
4d051ad4475f
(fortran-mode-abbrev-table): Handle `define-abbrev' with either 5
Glenn Morris <rgm@gnu.org>
parents:
47767
diff
changeset
|
655 (";l" "logical" ) |
4d051ad4475f
(fortran-mode-abbrev-table): Handle `define-abbrev' with either 5
Glenn Morris <rgm@gnu.org>
parents:
47767
diff
changeset
|
656 (";n" "namelist" ) |
4d051ad4475f
(fortran-mode-abbrev-table): Handle `define-abbrev' with either 5
Glenn Morris <rgm@gnu.org>
parents:
47767
diff
changeset
|
657 (";o" "open" ) ; was ;op |
4d051ad4475f
(fortran-mode-abbrev-table): Handle `define-abbrev' with either 5
Glenn Morris <rgm@gnu.org>
parents:
47767
diff
changeset
|
658 (";pa" "parameter" ) |
4d051ad4475f
(fortran-mode-abbrev-table): Handle `define-abbrev' with either 5
Glenn Morris <rgm@gnu.org>
parents:
47767
diff
changeset
|
659 (";pr" "program" ) |
4d051ad4475f
(fortran-mode-abbrev-table): Handle `define-abbrev' with either 5
Glenn Morris <rgm@gnu.org>
parents:
47767
diff
changeset
|
660 (";ps" "pause" ) |
4d051ad4475f
(fortran-mode-abbrev-table): Handle `define-abbrev' with either 5
Glenn Morris <rgm@gnu.org>
parents:
47767
diff
changeset
|
661 (";p" "print" ) |
4d051ad4475f
(fortran-mode-abbrev-table): Handle `define-abbrev' with either 5
Glenn Morris <rgm@gnu.org>
parents:
47767
diff
changeset
|
662 (";rc" "record" ) |
4d051ad4475f
(fortran-mode-abbrev-table): Handle `define-abbrev' with either 5
Glenn Morris <rgm@gnu.org>
parents:
47767
diff
changeset
|
663 (";re" "real" ) |
4d051ad4475f
(fortran-mode-abbrev-table): Handle `define-abbrev' with either 5
Glenn Morris <rgm@gnu.org>
parents:
47767
diff
changeset
|
664 (";r" "read" ) |
4d051ad4475f
(fortran-mode-abbrev-table): Handle `define-abbrev' with either 5
Glenn Morris <rgm@gnu.org>
parents:
47767
diff
changeset
|
665 (";rt" "return" ) |
4d051ad4475f
(fortran-mode-abbrev-table): Handle `define-abbrev' with either 5
Glenn Morris <rgm@gnu.org>
parents:
47767
diff
changeset
|
666 (";rw" "rewind" ) |
4d051ad4475f
(fortran-mode-abbrev-table): Handle `define-abbrev' with either 5
Glenn Morris <rgm@gnu.org>
parents:
47767
diff
changeset
|
667 (";s" "stop" ) |
4d051ad4475f
(fortran-mode-abbrev-table): Handle `define-abbrev' with either 5
Glenn Morris <rgm@gnu.org>
parents:
47767
diff
changeset
|
668 (";sa" "save" ) |
4d051ad4475f
(fortran-mode-abbrev-table): Handle `define-abbrev' with either 5
Glenn Morris <rgm@gnu.org>
parents:
47767
diff
changeset
|
669 (";st" "structure" ) |
4d051ad4475f
(fortran-mode-abbrev-table): Handle `define-abbrev' with either 5
Glenn Morris <rgm@gnu.org>
parents:
47767
diff
changeset
|
670 (";sc" "static" ) |
4d051ad4475f
(fortran-mode-abbrev-table): Handle `define-abbrev' with either 5
Glenn Morris <rgm@gnu.org>
parents:
47767
diff
changeset
|
671 (";su" "subroutine" ) |
4d051ad4475f
(fortran-mode-abbrev-table): Handle `define-abbrev' with either 5
Glenn Morris <rgm@gnu.org>
parents:
47767
diff
changeset
|
672 (";tr" ".true." ) |
4d051ad4475f
(fortran-mode-abbrev-table): Handle `define-abbrev' with either 5
Glenn Morris <rgm@gnu.org>
parents:
47767
diff
changeset
|
673 (";ty" "type" ) |
4d051ad4475f
(fortran-mode-abbrev-table): Handle `define-abbrev' with either 5
Glenn Morris <rgm@gnu.org>
parents:
47767
diff
changeset
|
674 (";vo" "volatile" ) |
4d051ad4475f
(fortran-mode-abbrev-table): Handle `define-abbrev' with either 5
Glenn Morris <rgm@gnu.org>
parents:
47767
diff
changeset
|
675 (";w" "write" ) |
4d051ad4475f
(fortran-mode-abbrev-table): Handle `define-abbrev' with either 5
Glenn Morris <rgm@gnu.org>
parents:
47767
diff
changeset
|
676 (";wh" "where" ))) |
27199
4a15e79c5fb0
(fortran-mode-map): Don't bind M-C-a,
Dave Love <fx@gnu.org>
parents:
26665
diff
changeset
|
677 fortran-mode-abbrev-table)) |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
678 |
332 | 679 |
26560
edf06ac56d1f
(fortran-comment-line-start): Renamed from comment-line-start.
Dave Love <fx@gnu.org>
parents:
25162
diff
changeset
|
680 |
332 | 681 ;;;###autoload |
682 (defun fortran-mode () | |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
683 "Major mode for editing Fortran code in fixed format. |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
684 For free format code, use `f90-mode'. |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
685 |
20207
38616c4cf58c
(fortran-imenu-generic-expression): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
20205
diff
changeset
|
686 \\[fortran-indent-line] indents the current Fortran line correctly. |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
687 Note that DO statements must not share a common CONTINUE. |
332 | 688 |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
689 Type ;? or ;\\[help-command] to display a list of built-in abbrevs for\ |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
690 Fortran keywords. |
332 | 691 |
692 Key definitions: | |
693 \\{fortran-mode-map} | |
694 | |
695 Variables controlling indentation style and extra features: | |
696 | |
61107
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
697 `fortran-comment-line-start' |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
698 To use comments starting with `!', set this to the string \"!\". |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
699 `fortran-do-indent' |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
700 Extra indentation within DO blocks (default 3). |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
701 `fortran-if-indent' |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
702 Extra indentation within IF blocks (default 3). |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
703 `fortran-structure-indent' |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
704 Extra indentation within STRUCTURE, UNION, MAP and INTERFACE blocks. |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
705 (default 3) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
706 `fortran-continuation-indent' |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
707 Extra indentation applied to continuation statements (default 5). |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
708 `fortran-comment-line-extra-indent' |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
709 Amount of extra indentation for text in full-line comments (default 0). |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
710 `fortran-comment-indent-style' |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
711 How to indent the text in full-line comments. Allowed values are: |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
712 nil don't change the indentation |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
713 fixed indent to `fortran-comment-line-extra-indent' beyond the |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
714 value of either |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
715 `fortran-minimum-statement-indent-fixed' (fixed format) or |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
716 `fortran-minimum-statement-indent-tab' (TAB format), |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
717 depending on the continuation format in use. |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
718 relative indent to `fortran-comment-line-extra-indent' beyond the |
332 | 719 indentation for a line of code. |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
720 (default 'fixed) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
721 `fortran-comment-indent-char' |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
722 Single-character string to be inserted instead of space for |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
723 full-line comment indentation (default \" \"). |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
724 `fortran-minimum-statement-indent-fixed' |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
725 Minimum indentation for statements in fixed format mode (default 6). |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
726 `fortran-minimum-statement-indent-tab' |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
727 Minimum indentation for statements in TAB format mode (default 9). |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
728 `fortran-line-number-indent' |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
729 Maximum indentation for line numbers (default 1). A line number will |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
730 get less than this much indentation if necessary to avoid reaching |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
731 column 5. |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
732 `fortran-check-all-num-for-matching-do' |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
733 Non-nil causes all numbered lines to be treated as possible \"continue\" |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
734 statements (default nil). |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
735 `fortran-blink-matching-if' |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
736 Non-nil causes \\[fortran-indent-line] on an ENDIF (or ENDDO) statement |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
737 to blink on the matching IF (or DO [WHILE]). (default nil) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
738 `fortran-continuation-string' |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
739 Single-character string to be inserted in column 5 of a continuation |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
740 line (default \"$\"). |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
741 `fortran-comment-region' |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
742 String inserted by \\[fortran-comment-region] at start of each line in |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
743 the region (default \"c$$$\"). |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
744 `fortran-electric-line-number' |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
745 Non-nil causes line number digits to be moved to the correct column |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
746 as typed (default t). |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
747 `fortran-break-before-delimiters' |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
748 Non-nil causes lines to be broken before delimiters (default t). |
332 | 749 |
1548 | 750 Turning on Fortran mode calls the value of the variable `fortran-mode-hook' |
332 | 751 with no args, if that value is non-nil." |
752 (interactive) | |
753 (kill-all-local-variables) | |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
754 (setq major-mode 'fortran-mode |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
755 mode-name "Fortran" |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
756 local-abbrev-table fortran-mode-abbrev-table) |
332 | 757 (set-syntax-table fortran-mode-syntax-table) |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
758 (use-local-map fortran-mode-map) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
759 (set (make-local-variable 'indent-line-function) 'fortran-indent-line) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
760 (set (make-local-variable 'indent-region-function) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
761 (lambda (start end) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
762 (let (fortran-blink-matching-if ; avoid blinking delay |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
763 indent-region-function) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
764 (indent-region start end nil)))) |
59244
9d627ac86f8b
(fortran-mode): Use mode-require-final-newline.
Richard M. Stallman <rms@gnu.org>
parents:
55251
diff
changeset
|
765 (set (make-local-variable 'require-final-newline) mode-require-final-newline) |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
766 ;; The syntax tables don't understand the column-0 comment-markers. |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
767 (set (make-local-variable 'comment-use-syntax) nil) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
768 (set (make-local-variable 'comment-padding) "$$$") |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
769 (set (make-local-variable 'comment-start) fortran-comment-line-start) |
43882
e601e469e7a4
(fortran-mode): Set comment-padding to "$$$".
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42443
diff
changeset
|
770 (set (make-local-variable 'comment-start-skip) |
e601e469e7a4
(fortran-mode): Set comment-padding to "$$$".
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42443
diff
changeset
|
771 ;; We can't reuse `fortran-comment-line-start-skip' directly because |
e601e469e7a4
(fortran-mode): Set comment-padding to "$$$".
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42443
diff
changeset
|
772 ;; it contains backrefs whereas we need submatch-1 to end at the |
e601e469e7a4
(fortran-mode): Set comment-padding to "$$$".
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42443
diff
changeset
|
773 ;; beginning of the comment delimiter. |
e601e469e7a4
(fortran-mode): Set comment-padding to "$$$".
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42443
diff
changeset
|
774 ;; (concat "\\(\\)\\(![ \t]*\\|" fortran-comment-line-start-skip "\\)") |
e601e469e7a4
(fortran-mode): Set comment-padding to "$$$".
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42443
diff
changeset
|
775 "\\(\\)\\(?:^[CcDd*]\\|!\\)\\(?:\\([^ \t\n]\\)\\2+\\)?[ \t]*") |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
776 (set (make-local-variable 'comment-indent-function) 'fortran-comment-indent) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
777 (set (make-local-variable 'abbrev-all-caps) t) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
778 (set (make-local-variable 'normal-auto-fill-function) 'fortran-auto-fill) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
779 (set (make-local-variable 'indent-tabs-mode) (fortran-analyze-file-format)) |
50600
418cea060d92
(fortran-tab-mode-minor-mode-string): Delete this variable,
Glenn Morris <rgm@gnu.org>
parents:
50598
diff
changeset
|
780 (setq mode-line-process '(indent-tabs-mode fortran-tab-mode-string)) |
21410
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
781 (set (make-local-variable 'fill-column) 72) |
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
782 (set (make-local-variable 'fill-paragraph-function) 'fortran-fill-paragraph) |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
783 (set (make-local-variable 'font-lock-defaults) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
784 '((fortran-font-lock-keywords |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
785 fortran-font-lock-keywords-1 |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
786 fortran-font-lock-keywords-2 |
61107
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
787 fortran-font-lock-keywords-3 |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
788 fortran-font-lock-keywords-4) |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
789 nil t ((?/ . "$/") ("_$" . "w")) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
790 fortran-beginning-of-subprogram)) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
791 (set (make-local-variable 'font-lock-syntactic-keywords) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
792 fortran-font-lock-syntactic-keywords) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
793 (set (make-local-variable 'imenu-case-fold-search) t) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
794 (set (make-local-variable 'imenu-generic-expression) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
795 fortran-imenu-generic-expression) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
796 (set (make-local-variable 'imenu-syntax-alist) '(("_$" . "w"))) |
27417
0d4776018e39
(fortran-mode): Use beginning-of-defun-function, end-of-defun-function.
Dave Love <fx@gnu.org>
parents:
27199
diff
changeset
|
797 (set (make-local-variable 'beginning-of-defun-function) |
0d4776018e39
(fortran-mode): Use beginning-of-defun-function, end-of-defun-function.
Dave Love <fx@gnu.org>
parents:
27199
diff
changeset
|
798 #'fortran-beginning-of-subprogram) |
0d4776018e39
(fortran-mode): Use beginning-of-defun-function, end-of-defun-function.
Dave Love <fx@gnu.org>
parents:
27199
diff
changeset
|
799 (set (make-local-variable 'end-of-defun-function) |
0d4776018e39
(fortran-mode): Use beginning-of-defun-function, end-of-defun-function.
Dave Love <fx@gnu.org>
parents:
27199
diff
changeset
|
800 #'fortran-end-of-subprogram) |
28079
07cbc9269fbc
(fortran-comment-line-start): Define as
Dave Love <fx@gnu.org>
parents:
27417
diff
changeset
|
801 (set (make-local-variable 'add-log-current-defun-function) |
07cbc9269fbc
(fortran-comment-line-start): Define as
Dave Love <fx@gnu.org>
parents:
27417
diff
changeset
|
802 #'fortran-current-defun) |
30149
1c8c6dbfcfb9
Don't require easymenu. Use repeat counts in various regexps.
Dave Love <fx@gnu.org>
parents:
28079
diff
changeset
|
803 (set (make-local-variable 'dabbrev-case-fold-search) 'case-fold-search) |
51618
6a5cb63d165c
(fortran-gud-find-expr): Move from gud.el (was gud-find-fortran-expr).
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51615
diff
changeset
|
804 (set (make-local-variable 'gud-find-expr-function) 'fortran-gud-find-expr) |
62772
f2892faa87d4
* progmodes/ada-mode.el (ada-mode):
Lute Kamstra <lute@gnu.org>
parents:
61107
diff
changeset
|
805 (run-mode-hooks 'fortran-mode-hook)) |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
806 |
332 | 807 |
51618
6a5cb63d165c
(fortran-gud-find-expr): Move from gud.el (was gud-find-fortran-expr).
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51615
diff
changeset
|
808 (defun fortran-gud-find-expr () |
6a5cb63d165c
(fortran-gud-find-expr): Move from gud.el (was gud-find-fortran-expr).
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51615
diff
changeset
|
809 ;; Consider \n as punctuation (end of expression). |
6a5cb63d165c
(fortran-gud-find-expr): Move from gud.el (was gud-find-fortran-expr).
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51615
diff
changeset
|
810 (with-syntax-table fortran-gud-syntax-table |
6a5cb63d165c
(fortran-gud-find-expr): Move from gud.el (was gud-find-fortran-expr).
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51615
diff
changeset
|
811 (gud-find-c-expr))) |
6a5cb63d165c
(fortran-gud-find-expr): Move from gud.el (was gud-find-fortran-expr).
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51615
diff
changeset
|
812 |
30149
1c8c6dbfcfb9
Don't require easymenu. Use repeat counts in various regexps.
Dave Love <fx@gnu.org>
parents:
28079
diff
changeset
|
813 (defsubst fortran-comment-indent () |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
814 "Return the indentation appropriate for the current comment line. |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
815 This is 0 for a line matching `fortran-comment-line-start-skip', else |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
816 the value of `comment-column' (leaving at least one space after code)." |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
817 (if (looking-at fortran-comment-line-start-skip) 0 |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
818 (save-excursion |
43882
e601e469e7a4
(fortran-mode): Set comment-padding to "$$$".
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42443
diff
changeset
|
819 (skip-chars-backward " \t") |
50611 | 820 (max (1+ (current-column)) comment-column)))) |
332 | 821 |
822 (defun fortran-indent-comment () | |
823 "Align or create comment on current line. | |
824 Existing comments of all types are recognized and aligned. | |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
825 If the line has no comment, a side-by-side comment is inserted and aligned, |
43882
e601e469e7a4
(fortran-mode): Set comment-padding to "$$$".
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42443
diff
changeset
|
826 if the value of `comment-start' is not nil and allows such comments. |
332 | 827 Otherwise, a separate-line comment is inserted, on this line |
828 or on a new line inserted before this line if this line is not blank." | |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
829 (interactive "*") |
332 | 830 (beginning-of-line) |
831 ;; Recognize existing comments of either kind. | |
43882
e601e469e7a4
(fortran-mode): Set comment-padding to "$$$".
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42443
diff
changeset
|
832 (cond ((fortran-find-comment-start-skip 'all) |
e601e469e7a4
(fortran-mode): Set comment-padding to "$$$".
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42443
diff
changeset
|
833 (goto-char (match-beginning 0)) |
e601e469e7a4
(fortran-mode): Set comment-padding to "$$$".
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42443
diff
changeset
|
834 (if (bolp) |
e601e469e7a4
(fortran-mode): Set comment-padding to "$$$".
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42443
diff
changeset
|
835 (fortran-indent-line) |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
836 (unless (= (current-column) (fortran-comment-indent)) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
837 (delete-horizontal-space) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
838 (indent-to (fortran-comment-indent))))) |
332 | 839 ;; No existing comment. |
840 ;; If side-by-side comments are defined, insert one, | |
841 ;; unless line is now blank. | |
43882
e601e469e7a4
(fortran-mode): Set comment-padding to "$$$".
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42443
diff
changeset
|
842 ((and comment-start (not (looking-at "[ \t]*$")) |
e601e469e7a4
(fortran-mode): Set comment-padding to "$$$".
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42443
diff
changeset
|
843 (string-match comment-start-skip (concat " " comment-start))) |
332 | 844 (end-of-line) |
845 (delete-horizontal-space) | |
30149
1c8c6dbfcfb9
Don't require easymenu. Use repeat counts in various regexps.
Dave Love <fx@gnu.org>
parents:
28079
diff
changeset
|
846 (indent-to (fortran-comment-indent)) |
332 | 847 (insert comment-start)) |
848 ;; Else insert separate-line comment, making a new line if nec. | |
849 (t | |
850 (if (looking-at "^[ \t]*$") | |
851 (delete-horizontal-space) | |
852 (beginning-of-line) | |
26560
edf06ac56d1f
(fortran-comment-line-start): Renamed from comment-line-start.
Dave Love <fx@gnu.org>
parents:
25162
diff
changeset
|
853 (insert ?\n) |
332 | 854 (forward-char -1)) |
26560
edf06ac56d1f
(fortran-comment-line-start): Renamed from comment-line-start.
Dave Love <fx@gnu.org>
parents:
25162
diff
changeset
|
855 (insert fortran-comment-line-start) |
332 | 856 (insert-char (if (stringp fortran-comment-indent-char) |
857 (aref fortran-comment-indent-char 0) | |
1548 | 858 fortran-comment-indent-char) |
21410
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
859 (- (fortran-calculate-indent) (current-column)))))) |
332 | 860 |
861 (defun fortran-comment-region (beg-region end-region arg) | |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
862 "Comment every line in the region. |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
863 Inserts the string variable `fortran-comment-region' at the beginning of |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
864 every line in the region. |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
865 BEG-REGION and END-REGION specify the region boundaries. |
332 | 866 With non-nil ARG, uncomments the region." |
867 (interactive "*r\nP") | |
37080
00fb79924260
(fortran-comment-region): Fix typo.
Dave Love <fx@gnu.org>
parents:
36171
diff
changeset
|
868 (let ((end-region-mark (copy-marker end-region)) |
30149
1c8c6dbfcfb9
Don't require easymenu. Use repeat counts in various regexps.
Dave Love <fx@gnu.org>
parents:
28079
diff
changeset
|
869 (save-point (point-marker))) |
332 | 870 (goto-char beg-region) |
871 (beginning-of-line) | |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
872 (if arg |
50611 | 873 (let ((com (regexp-quote fortran-comment-region))) ; uncomment |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
874 (if (looking-at com) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
875 (delete-region (point) (match-end 0))) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
876 (while (and (zerop (forward-line 1)) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
877 (< (point) end-region-mark)) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
878 (if (looking-at com) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
879 (delete-region (point) (match-end 0))))) |
50611 | 880 (insert fortran-comment-region) ; comment |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
881 (while (and (zerop (forward-line 1)) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
882 (< (point) end-region-mark)) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
883 (insert fortran-comment-region))) |
332 | 884 (goto-char save-point) |
885 (set-marker end-region-mark nil) | |
886 (set-marker save-point nil))) | |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
887 |
332 | 888 |
889 (defun fortran-abbrev-start () | |
20207
38616c4cf58c
(fortran-imenu-generic-expression): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
20205
diff
changeset
|
890 "Typing ;\\[help-command] or ;? lists all the Fortran abbrevs. |
332 | 891 Any other key combination is executed normally." |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
892 (interactive "*") |
50648
5b37299dac0a
(dabbrev-case-fold-search): Add defvar for compiler.
Glenn Morris <rgm@gnu.org>
parents:
50611
diff
changeset
|
893 (insert last-command-char) |
68244
d5d3ecca3943
Move defvars out of eval-when-compile.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66963
diff
changeset
|
894 (let* ((event (if (fboundp 'next-command-event) ; XEmacs |
d5d3ecca3943
Move defvars out of eval-when-compile.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66963
diff
changeset
|
895 (next-command-event) |
d5d3ecca3943
Move defvars out of eval-when-compile.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66963
diff
changeset
|
896 (read-event))) |
d5d3ecca3943
Move defvars out of eval-when-compile.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66963
diff
changeset
|
897 (char (if (fboundp 'event-to-character) |
d5d3ecca3943
Move defvars out of eval-when-compile.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66963
diff
changeset
|
898 (event-to-character event) event))) |
50648
5b37299dac0a
(dabbrev-case-fold-search): Add defvar for compiler.
Glenn Morris <rgm@gnu.org>
parents:
50611
diff
changeset
|
899 ;; Insert char if not equal to `?', or if abbrev-mode is off. |
68244
d5d3ecca3943
Move defvars out of eval-when-compile.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66963
diff
changeset
|
900 (if (and abbrev-mode (or (eq char ??) (eq char help-char) |
d5d3ecca3943
Move defvars out of eval-when-compile.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66963
diff
changeset
|
901 (memq event help-event-list))) |
332 | 902 (fortran-abbrev-help) |
68244
d5d3ecca3943
Move defvars out of eval-when-compile.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66963
diff
changeset
|
903 (push event unread-command-events)))) |
332 | 904 |
905 (defun fortran-abbrev-help () | |
906 "List the currently defined abbrevs in Fortran mode." | |
907 (interactive) | |
908 (message "Listing abbrev table...") | |
1485
a6da00e1c5ad
(fortran-tab-mode): Add defvar.
Richard M. Stallman <rms@gnu.org>
parents:
1475
diff
changeset
|
909 (display-buffer (fortran-prepare-abbrev-list-buffer)) |
332 | 910 (message "Listing abbrev table...done")) |
911 | |
1485
a6da00e1c5ad
(fortran-tab-mode): Add defvar.
Richard M. Stallman <rms@gnu.org>
parents:
1475
diff
changeset
|
912 (defun fortran-prepare-abbrev-list-buffer () |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
913 "Create a buffer listing the Fortran mode abbreviations." |
68244
d5d3ecca3943
Move defvars out of eval-when-compile.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66963
diff
changeset
|
914 (with-current-buffer (get-buffer-create "*Abbrevs*") |
1485
a6da00e1c5ad
(fortran-tab-mode): Add defvar.
Richard M. Stallman <rms@gnu.org>
parents:
1475
diff
changeset
|
915 (erase-buffer) |
1862
f6a38dd2250b
* fortran.el (fortran-prepare-abbrev-list-buffer): Put quote in
Jim Blandy <jimb@redhat.com>
parents:
1821
diff
changeset
|
916 (insert-abbrev-table-description 'fortran-mode-abbrev-table t) |
1485
a6da00e1c5ad
(fortran-tab-mode): Add defvar.
Richard M. Stallman <rms@gnu.org>
parents:
1475
diff
changeset
|
917 (goto-char (point-min)) |
a6da00e1c5ad
(fortran-tab-mode): Add defvar.
Richard M. Stallman <rms@gnu.org>
parents:
1475
diff
changeset
|
918 (set-buffer-modified-p nil) |
a6da00e1c5ad
(fortran-tab-mode): Add defvar.
Richard M. Stallman <rms@gnu.org>
parents:
1475
diff
changeset
|
919 (edit-abbrevs-mode)) |
a6da00e1c5ad
(fortran-tab-mode): Add defvar.
Richard M. Stallman <rms@gnu.org>
parents:
1475
diff
changeset
|
920 (get-buffer-create "*Abbrevs*")) |
a6da00e1c5ad
(fortran-tab-mode): Add defvar.
Richard M. Stallman <rms@gnu.org>
parents:
1475
diff
changeset
|
921 |
332 | 922 (defun fortran-column-ruler () |
20805
918448e5d294
Various docstring and commentary fixes, including
Dave Love <fx@gnu.org>
parents:
20277
diff
changeset
|
923 "Insert a column ruler momentarily above current line, till next keystroke. |
50611 | 924 The ruler is defined by the value of `fortran-column-ruler-fixed' in fixed |
925 format mode, and `fortran-column-ruler-tab' in TAB format mode. | |
926 The next key typed is executed unless it is SPC." | |
332 | 927 (interactive) |
20207
38616c4cf58c
(fortran-imenu-generic-expression): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
20205
diff
changeset
|
928 (momentary-string-display |
1633
65af7bcd5e31
* fortran.el: New version of version 1.30 (!) from Stephen A. Wood
Jim Blandy <jimb@redhat.com>
parents:
1611
diff
changeset
|
929 (if indent-tabs-mode |
65af7bcd5e31
* fortran.el: New version of version 1.30 (!) from Stephen A. Wood
Jim Blandy <jimb@redhat.com>
parents:
1611
diff
changeset
|
930 fortran-column-ruler-tab |
65af7bcd5e31
* fortran.el: New version of version 1.30 (!) from Stephen A. Wood
Jim Blandy <jimb@redhat.com>
parents:
1611
diff
changeset
|
931 fortran-column-ruler-fixed) |
65af7bcd5e31
* fortran.el: New version of version 1.30 (!) from Stephen A. Wood
Jim Blandy <jimb@redhat.com>
parents:
1611
diff
changeset
|
932 (save-excursion |
20207
38616c4cf58c
(fortran-imenu-generic-expression): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
20205
diff
changeset
|
933 (beginning-of-line) |
1633
65af7bcd5e31
* fortran.el: New version of version 1.30 (!) from Stephen A. Wood
Jim Blandy <jimb@redhat.com>
parents:
1611
diff
changeset
|
934 (if (eq (window-start (selected-window)) |
65af7bcd5e31
* fortran.el: New version of version 1.30 (!) from Stephen A. Wood
Jim Blandy <jimb@redhat.com>
parents:
1611
diff
changeset
|
935 (window-point (selected-window))) |
27199
4a15e79c5fb0
(fortran-mode-map): Don't bind M-C-a,
Dave Love <fx@gnu.org>
parents:
26665
diff
changeset
|
936 (line-beginning-position 2) |
1633
65af7bcd5e31
* fortran.el: New version of version 1.30 (!) from Stephen A. Wood
Jim Blandy <jimb@redhat.com>
parents:
1611
diff
changeset
|
937 (point))) |
332 | 938 nil "Type SPC or any command to erase ruler.")) |
939 | |
940 (defun fortran-window-create () | |
20805
918448e5d294
Various docstring and commentary fixes, including
Dave Love <fx@gnu.org>
parents:
20277
diff
changeset
|
941 "Make the window 72 columns wide. |
1475 | 942 See also `fortran-window-create-momentarily'." |
332 | 943 (interactive) |
41676
82c2143ec3eb
Fontify rewind, backspace. Doc fixes.
Dave Love <fx@gnu.org>
parents:
41234
diff
changeset
|
944 (let ((window-min-width 2)) |
82c2143ec3eb
Fontify rewind, backspace. Doc fixes.
Dave Love <fx@gnu.org>
parents:
41234
diff
changeset
|
945 (if (< (window-width) (frame-width)) |
82c2143ec3eb
Fontify rewind, backspace. Doc fixes.
Dave Love <fx@gnu.org>
parents:
41234
diff
changeset
|
946 (enlarge-window-horizontally (- (frame-width) |
82c2143ec3eb
Fontify rewind, backspace. Doc fixes.
Dave Love <fx@gnu.org>
parents:
41234
diff
changeset
|
947 (window-width) 1))) |
82c2143ec3eb
Fontify rewind, backspace. Doc fixes.
Dave Love <fx@gnu.org>
parents:
41234
diff
changeset
|
948 (let* ((window-edges (window-edges)) |
82c2143ec3eb
Fontify rewind, backspace. Doc fixes.
Dave Love <fx@gnu.org>
parents:
41234
diff
changeset
|
949 (scroll-bar-width (- (nth 2 window-edges) |
82c2143ec3eb
Fontify rewind, backspace. Doc fixes.
Dave Love <fx@gnu.org>
parents:
41234
diff
changeset
|
950 (car window-edges) |
82c2143ec3eb
Fontify rewind, backspace. Doc fixes.
Dave Love <fx@gnu.org>
parents:
41234
diff
changeset
|
951 (window-width)))) |
82c2143ec3eb
Fontify rewind, backspace. Doc fixes.
Dave Love <fx@gnu.org>
parents:
41234
diff
changeset
|
952 (split-window-horizontally (+ 72 scroll-bar-width))) |
82c2143ec3eb
Fontify rewind, backspace. Doc fixes.
Dave Love <fx@gnu.org>
parents:
41234
diff
changeset
|
953 (other-window 1) |
82c2143ec3eb
Fontify rewind, backspace. Doc fixes.
Dave Love <fx@gnu.org>
parents:
41234
diff
changeset
|
954 (switch-to-buffer " fortran-window-extra" t) |
82c2143ec3eb
Fontify rewind, backspace. Doc fixes.
Dave Love <fx@gnu.org>
parents:
41234
diff
changeset
|
955 (select-window (previous-window)))) |
332 | 956 |
957 (defun fortran-window-create-momentarily (&optional arg) | |
20805
918448e5d294
Various docstring and commentary fixes, including
Dave Love <fx@gnu.org>
parents:
20277
diff
changeset
|
958 "Momentarily make the window 72 columns wide. |
332 | 959 Optional ARG non-nil and non-unity disables the momentary feature. |
1475 | 960 See also `fortran-window-create'." |
332 | 961 (interactive "p") |
962 (if (or (not arg) | |
963 (= arg 1)) | |
964 (save-window-excursion | |
41676
82c2143ec3eb
Fontify rewind, backspace. Doc fixes.
Dave Love <fx@gnu.org>
parents:
41234
diff
changeset
|
965 (progn |
82c2143ec3eb
Fontify rewind, backspace. Doc fixes.
Dave Love <fx@gnu.org>
parents:
41234
diff
changeset
|
966 (condition-case nil |
82c2143ec3eb
Fontify rewind, backspace. Doc fixes.
Dave Love <fx@gnu.org>
parents:
41234
diff
changeset
|
967 (fortran-window-create) |
82c2143ec3eb
Fontify rewind, backspace. Doc fixes.
Dave Love <fx@gnu.org>
parents:
41234
diff
changeset
|
968 (error (error "No room for Fortran window"))) |
82c2143ec3eb
Fontify rewind, backspace. Doc fixes.
Dave Love <fx@gnu.org>
parents:
41234
diff
changeset
|
969 (message "Type SPC to continue editing.") |
82c2143ec3eb
Fontify rewind, backspace. Doc fixes.
Dave Love <fx@gnu.org>
parents:
41234
diff
changeset
|
970 (let ((char (read-event))) |
82c2143ec3eb
Fontify rewind, backspace. Doc fixes.
Dave Love <fx@gnu.org>
parents:
41234
diff
changeset
|
971 (or (equal char (string-to-char " ")) |
82c2143ec3eb
Fontify rewind, backspace. Doc fixes.
Dave Love <fx@gnu.org>
parents:
41234
diff
changeset
|
972 (setq unread-command-events (list char)))))) |
332 | 973 (fortran-window-create))) |
974 | |
975 (defun fortran-split-line () | |
976 "Break line at point and insert continuation marker and alignment." | |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
977 (interactive "*") |
332 | 978 (delete-horizontal-space) |
26560
edf06ac56d1f
(fortran-comment-line-start): Renamed from comment-line-start.
Dave Love <fx@gnu.org>
parents:
25162
diff
changeset
|
979 (if (save-excursion |
43883
b13e662ea2b3
(fortran-split-line): Make it work with any `!' comment as well.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43882
diff
changeset
|
980 (let ((pos (point))) |
b13e662ea2b3
(fortran-split-line): Make it work with any `!' comment as well.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43882
diff
changeset
|
981 (beginning-of-line) |
b13e662ea2b3
(fortran-split-line): Make it work with any `!' comment as well.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43882
diff
changeset
|
982 (and (fortran-find-comment-start-skip 'all) |
b13e662ea2b3
(fortran-split-line): Make it work with any `!' comment as well.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
43882
diff
changeset
|
983 (< (match-beginning 0) pos)))) |
43882
e601e469e7a4
(fortran-mode): Set comment-padding to "$$$".
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42443
diff
changeset
|
984 (insert ?\n (match-string 0)) |
1633
65af7bcd5e31
* fortran.el: New version of version 1.30 (!) from Stephen A. Wood
Jim Blandy <jimb@redhat.com>
parents:
1611
diff
changeset
|
985 (if indent-tabs-mode |
26560
edf06ac56d1f
(fortran-comment-line-start): Renamed from comment-line-start.
Dave Love <fx@gnu.org>
parents:
25162
diff
changeset
|
986 (insert ?\n ?\t (fortran-numerical-continuation-char)) |
50611 | 987 (insert "\n " fortran-continuation-string))) ; space after \n important |
988 (fortran-indent-line)) ; when cont string is C, c or * | |
21410
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
989 |
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
990 (defun fortran-remove-continuation () |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
991 "Delete any Fortran continuation characters at point. |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
992 Returns t if anything actually deleted." |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
993 (when (looking-at "\\( \\{5\\}[^ 0\n]\\|\t[1-9]\\|&\\)") |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
994 (replace-match "") |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
995 (delete-indentation) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
996 t)) |
332 | 997 |
23463 | 998 (defun fortran-join-line (arg) |
999 "Join current line to the previous one and re-indent. | |
1000 With a prefix argument, repeat this operation that many times. | |
1001 If the prefix argument ARG is negative, join the next -ARG lines. | |
1002 Continuation lines are correctly handled." | |
1003 (interactive "*p") | |
20805
918448e5d294
Various docstring and commentary fixes, including
Dave Love <fx@gnu.org>
parents:
20277
diff
changeset
|
1004 (save-excursion |
23463 | 1005 (when (> 0 arg) |
1006 (setq arg (- arg)) | |
1007 (forward-line arg)) | |
1008 (while (not (zerop arg)) | |
1009 (beginning-of-line) | |
1010 (or (fortran-remove-continuation) | |
1011 (delete-indentation)) | |
1012 (setq arg (1- arg))) | |
20805
918448e5d294
Various docstring and commentary fixes, including
Dave Love <fx@gnu.org>
parents:
20277
diff
changeset
|
1013 (fortran-indent-line))) |
918448e5d294
Various docstring and commentary fixes, including
Dave Love <fx@gnu.org>
parents:
20277
diff
changeset
|
1014 |
332 | 1015 (defun fortran-numerical-continuation-char () |
3400
927c3d8374ef
(fortran-mode): Replace comment-indent-hook with
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
1016 "Return a digit for tab-digit style of continuation lines. |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1017 If previous line is a tab-digit continuation line, return that digit |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1018 plus one, otherwise return 1. Zero not allowed." |
332 | 1019 (save-excursion |
1020 (forward-line -1) | |
1021 (if (looking-at "\t[1-9]") | |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1022 (+ ?1 (% (- (char-after (1+ (point))) ?0) 9)) |
332 | 1023 ?1))) |
1024 | |
22377
24999a02843d
(fortran-electric-line-number): Add delete-selection property.
Richard M. Stallman <rms@gnu.org>
parents:
21804
diff
changeset
|
1025 (put 'fortran-electric-line-number 'delete-selection t) |
332 | 1026 (defun fortran-electric-line-number (arg) |
1027 "Self insert, but if part of a Fortran line number indent it automatically. | |
20805
918448e5d294
Various docstring and commentary fixes, including
Dave Love <fx@gnu.org>
parents:
20277
diff
changeset
|
1028 Auto-indent does not happen if a numeric ARG is used." |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1029 (interactive "*P") |
332 | 1030 (if (or arg (not fortran-electric-line-number)) |
20207
38616c4cf58c
(fortran-imenu-generic-expression): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
20205
diff
changeset
|
1031 (if arg |
1548 | 1032 (self-insert-command (prefix-numeric-value arg)) |
332 | 1033 (self-insert-command 1)) |
1034 (if (or (and (= 5 (current-column)) | |
1035 (save-excursion | |
1036 (beginning-of-line) | |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1037 ;; In col 5 with only spaces to the left. |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1038 (looking-at " \\{5\\}"))) |
1633
65af7bcd5e31
* fortran.el: New version of version 1.30 (!) from Stephen A. Wood
Jim Blandy <jimb@redhat.com>
parents:
1611
diff
changeset
|
1039 (and (= (if indent-tabs-mode |
21410
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
1040 fortran-minimum-statement-indent-tab |
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
1041 fortran-minimum-statement-indent-fixed) (current-column)) |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1042 ;; In col 8 with a single tab to the left. |
59996
aac0a33f5772
Change release version from 21.4 to 22.1 throughout.
Kim F. Storm <storm@cua.dk>
parents:
59244
diff
changeset
|
1043 (eq ?\t (char-after (line-beginning-position))) |
332 | 1044 (not (or (eq last-command 'fortran-indent-line) |
1045 (eq last-command | |
3567
2ca5f216e445
(fortran-indent-new-line): Renamed from
Richard M. Stallman <rms@gnu.org>
parents:
3400
diff
changeset
|
1046 'fortran-indent-new-line)))) |
332 | 1047 (save-excursion |
1048 (re-search-backward "[^ \t0-9]" | |
26560
edf06ac56d1f
(fortran-comment-line-start): Renamed from comment-line-start.
Dave Love <fx@gnu.org>
parents:
25162
diff
changeset
|
1049 (line-beginning-position) |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1050 t)) ; not a line number |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1051 (looking-at "[0-9]")) ; within a line number |
1548 | 1052 (self-insert-command (prefix-numeric-value arg)) |
332 | 1053 (skip-chars-backward " \t") |
1054 (insert last-command-char) | |
1055 (fortran-indent-line)))) | |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1056 |
332 | 1057 |
23711 | 1058 (defun fortran-check-end-prog-re () |
1059 "Check a preliminary match against `fortran-end-prog-re'." | |
1060 ;; Having got a possible match for the subprogram end, we need a | |
1061 ;; match of whitespace, avoiding possible column 73+ stuff. | |
1062 (save-match-data | |
23838
e494267843f7
(fortran-check-end-prog-re): Allow trailing
Dave Love <fx@gnu.org>
parents:
23754
diff
changeset
|
1063 (string-match "^\\s-*\\(\\'\\|\\s<\\)" |
23711 | 1064 (buffer-substring (match-end 0) |
1065 (min (line-end-position) | |
1066 (+ 72 (line-beginning-position))))))) | |
1067 | |
1068 ;; Note that you can't just check backwards for `subroutine' &c in | |
1069 ;; case of un-marked main programs not at the start of the file. | |
26560
edf06ac56d1f
(fortran-comment-line-start): Renamed from comment-line-start.
Dave Love <fx@gnu.org>
parents:
25162
diff
changeset
|
1070 (defun fortran-beginning-of-subprogram () |
41676
82c2143ec3eb
Fontify rewind, backspace. Doc fixes.
Dave Love <fx@gnu.org>
parents:
41234
diff
changeset
|
1071 "Move point to the beginning of the current Fortran subprogram." |
332 | 1072 (interactive) |
25054
888326cb8ffb
(fortran-mode-syntax-table): Change `\' to `\'
Dave Love <fx@gnu.org>
parents:
24800
diff
changeset
|
1073 (save-match-data |
888326cb8ffb
(fortran-mode-syntax-table): Change `\' to `\'
Dave Love <fx@gnu.org>
parents:
24800
diff
changeset
|
1074 (let ((case-fold-search t)) |
888326cb8ffb
(fortran-mode-syntax-table): Change `\' to `\'
Dave Love <fx@gnu.org>
parents:
24800
diff
changeset
|
1075 (beginning-of-line -1) |
888326cb8ffb
(fortran-mode-syntax-table): Change `\' to `\'
Dave Love <fx@gnu.org>
parents:
24800
diff
changeset
|
1076 (if (catch 'ok |
888326cb8ffb
(fortran-mode-syntax-table): Change `\' to `\'
Dave Love <fx@gnu.org>
parents:
24800
diff
changeset
|
1077 (while (re-search-backward fortran-end-prog-re nil 'move) |
888326cb8ffb
(fortran-mode-syntax-table): Change `\' to `\'
Dave Love <fx@gnu.org>
parents:
24800
diff
changeset
|
1078 (if (fortran-check-end-prog-re) |
888326cb8ffb
(fortran-mode-syntax-table): Change `\' to `\'
Dave Love <fx@gnu.org>
parents:
24800
diff
changeset
|
1079 (throw 'ok t)))) |
888326cb8ffb
(fortran-mode-syntax-table): Change `\' to `\'
Dave Love <fx@gnu.org>
parents:
24800
diff
changeset
|
1080 (forward-line))))) |
332 | 1081 |
26560
edf06ac56d1f
(fortran-comment-line-start): Renamed from comment-line-start.
Dave Love <fx@gnu.org>
parents:
25162
diff
changeset
|
1082 (defun fortran-end-of-subprogram () |
41676
82c2143ec3eb
Fontify rewind, backspace. Doc fixes.
Dave Love <fx@gnu.org>
parents:
41234
diff
changeset
|
1083 "Move point to the end of the current Fortran subprogram." |
332 | 1084 (interactive) |
25054
888326cb8ffb
(fortran-mode-syntax-table): Change `\' to `\'
Dave Love <fx@gnu.org>
parents:
24800
diff
changeset
|
1085 (save-match-data |
888326cb8ffb
(fortran-mode-syntax-table): Change `\' to `\'
Dave Love <fx@gnu.org>
parents:
24800
diff
changeset
|
1086 (let ((case-fold-search t)) |
888326cb8ffb
(fortran-mode-syntax-table): Change `\' to `\'
Dave Love <fx@gnu.org>
parents:
24800
diff
changeset
|
1087 (if (save-excursion ; on END |
888326cb8ffb
(fortran-mode-syntax-table): Change `\' to `\'
Dave Love <fx@gnu.org>
parents:
24800
diff
changeset
|
1088 (beginning-of-line) |
888326cb8ffb
(fortran-mode-syntax-table): Change `\' to `\'
Dave Love <fx@gnu.org>
parents:
24800
diff
changeset
|
1089 (and (looking-at fortran-end-prog-re) |
888326cb8ffb
(fortran-mode-syntax-table): Change `\' to `\'
Dave Love <fx@gnu.org>
parents:
24800
diff
changeset
|
1090 (fortran-check-end-prog-re))) |
888326cb8ffb
(fortran-mode-syntax-table): Change `\' to `\'
Dave Love <fx@gnu.org>
parents:
24800
diff
changeset
|
1091 (forward-line) |
888326cb8ffb
(fortran-mode-syntax-table): Change `\' to `\'
Dave Love <fx@gnu.org>
parents:
24800
diff
changeset
|
1092 (beginning-of-line 2) |
888326cb8ffb
(fortran-mode-syntax-table): Change `\' to `\'
Dave Love <fx@gnu.org>
parents:
24800
diff
changeset
|
1093 (catch 'ok |
888326cb8ffb
(fortran-mode-syntax-table): Change `\' to `\'
Dave Love <fx@gnu.org>
parents:
24800
diff
changeset
|
1094 (while (re-search-forward fortran-end-prog-re nil 'move) |
888326cb8ffb
(fortran-mode-syntax-table): Change `\' to `\'
Dave Love <fx@gnu.org>
parents:
24800
diff
changeset
|
1095 (if (fortran-check-end-prog-re) |
888326cb8ffb
(fortran-mode-syntax-table): Change `\' to `\'
Dave Love <fx@gnu.org>
parents:
24800
diff
changeset
|
1096 (throw 'ok t)))) |
888326cb8ffb
(fortran-mode-syntax-table): Change `\' to `\'
Dave Love <fx@gnu.org>
parents:
24800
diff
changeset
|
1097 (goto-char (match-beginning 0)) |
888326cb8ffb
(fortran-mode-syntax-table): Change `\' to `\'
Dave Love <fx@gnu.org>
parents:
24800
diff
changeset
|
1098 (forward-line))))) |
332 | 1099 |
1100 (defun fortran-previous-statement () | |
41676
82c2143ec3eb
Fontify rewind, backspace. Doc fixes.
Dave Love <fx@gnu.org>
parents:
41234
diff
changeset
|
1101 "Move point to beginning of the previous Fortran statement. |
45242
52d991be0698
(fortran-preprocessor-re): New variable. Use it for font-locking.
Glenn Morris <rgm@gnu.org>
parents:
45067
diff
changeset
|
1102 Returns 'first-statement if that statement is the first |
52d991be0698
(fortran-preprocessor-re): New variable. Use it for font-locking.
Glenn Morris <rgm@gnu.org>
parents:
45067
diff
changeset
|
1103 non-comment Fortran statement in the file, and nil otherwise. |
45301
793bb00af917
(fortran-directive-re): New name for fortran-preprocessor-re. All usage
Glenn Morris <rgm@gnu.org>
parents:
45255
diff
changeset
|
1104 Directive lines are treated as comments." |
332 | 1105 (interactive) |
1106 (let (not-first-statement continue-test) | |
1107 (beginning-of-line) | |
1108 (setq continue-test | |
1548 | 1109 (and |
26560
edf06ac56d1f
(fortran-comment-line-start): Renamed from comment-line-start.
Dave Love <fx@gnu.org>
parents:
25162
diff
changeset
|
1110 (not (looking-at fortran-comment-line-start-skip)) |
45301
793bb00af917
(fortran-directive-re): New name for fortran-preprocessor-re. All usage
Glenn Morris <rgm@gnu.org>
parents:
45255
diff
changeset
|
1111 (not (looking-at fortran-directive-re)) |
1548 | 1112 (or (looking-at |
30149
1c8c6dbfcfb9
Don't require easymenu. Use repeat counts in various regexps.
Dave Love <fx@gnu.org>
parents:
28079
diff
changeset
|
1113 (concat "[ \t]*" |
1c8c6dbfcfb9
Don't require easymenu. Use repeat counts in various regexps.
Dave Love <fx@gnu.org>
parents:
28079
diff
changeset
|
1114 (regexp-quote fortran-continuation-string))) |
1c8c6dbfcfb9
Don't require easymenu. Use repeat counts in various regexps.
Dave Love <fx@gnu.org>
parents:
28079
diff
changeset
|
1115 (looking-at " \\{5\\}[^ 0\n]\\|\t[1-9]")))) |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1116 (while (and (setq not-first-statement (zerop (forward-line -1))) |
26560
edf06ac56d1f
(fortran-comment-line-start): Renamed from comment-line-start.
Dave Love <fx@gnu.org>
parents:
25162
diff
changeset
|
1117 (or (looking-at fortran-comment-line-start-skip) |
45301
793bb00af917
(fortran-directive-re): New name for fortran-preprocessor-re. All usage
Glenn Morris <rgm@gnu.org>
parents:
45255
diff
changeset
|
1118 (looking-at fortran-directive-re) |
50579
603b312a33d1
(fortran-previous-statement): Check for fortran-continuation-string.
Glenn Morris <rgm@gnu.org>
parents:
50561
diff
changeset
|
1119 (looking-at |
603b312a33d1
(fortran-previous-statement): Check for fortran-continuation-string.
Glenn Morris <rgm@gnu.org>
parents:
50561
diff
changeset
|
1120 (concat "[ \t]*" |
603b312a33d1
(fortran-previous-statement): Check for fortran-continuation-string.
Glenn Morris <rgm@gnu.org>
parents:
50561
diff
changeset
|
1121 (regexp-quote fortran-continuation-string))) |
30149
1c8c6dbfcfb9
Don't require easymenu. Use repeat counts in various regexps.
Dave Love <fx@gnu.org>
parents:
28079
diff
changeset
|
1122 (looking-at "[ \t]*$\\| \\{5\\}[^ 0\n]\\|\t[1-9]") |
1c8c6dbfcfb9
Don't require easymenu. Use repeat counts in various regexps.
Dave Love <fx@gnu.org>
parents:
28079
diff
changeset
|
1123 (looking-at (concat "[ \t]*" comment-start-skip))))) |
332 | 1124 (cond ((and continue-test |
1125 (not not-first-statement)) | |
1126 (message "Incomplete continuation statement.")) | |
20207
38616c4cf58c
(fortran-imenu-generic-expression): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
20205
diff
changeset
|
1127 (continue-test |
332 | 1128 (fortran-previous-statement)) |
1129 ((not not-first-statement) | |
1130 'first-statement)))) | |
1131 | |
1132 (defun fortran-next-statement () | |
41676
82c2143ec3eb
Fontify rewind, backspace. Doc fixes.
Dave Love <fx@gnu.org>
parents:
41234
diff
changeset
|
1133 "Move point to beginning of the next Fortran statement. |
45242
52d991be0698
(fortran-preprocessor-re): New variable. Use it for font-locking.
Glenn Morris <rgm@gnu.org>
parents:
45067
diff
changeset
|
1134 Returns 'last-statement if that statement is the last |
52d991be0698
(fortran-preprocessor-re): New variable. Use it for font-locking.
Glenn Morris <rgm@gnu.org>
parents:
45067
diff
changeset
|
1135 non-comment Fortran statement in the file, and nil otherwise. |
45301
793bb00af917
(fortran-directive-re): New name for fortran-preprocessor-re. All usage
Glenn Morris <rgm@gnu.org>
parents:
45255
diff
changeset
|
1136 Directive lines are treated as comments." |
332 | 1137 (interactive) |
1138 (let (not-last-statement) | |
1139 (beginning-of-line) | |
1548 | 1140 (while (and (setq not-last-statement |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1141 (and (zerop (forward-line 1)) |
1548 | 1142 (not (eobp)))) |
26560
edf06ac56d1f
(fortran-comment-line-start): Renamed from comment-line-start.
Dave Love <fx@gnu.org>
parents:
25162
diff
changeset
|
1143 (or (looking-at fortran-comment-line-start-skip) |
45301
793bb00af917
(fortran-directive-re): New name for fortran-preprocessor-re. All usage
Glenn Morris <rgm@gnu.org>
parents:
45255
diff
changeset
|
1144 (looking-at fortran-directive-re) |
26560
edf06ac56d1f
(fortran-comment-line-start): Renamed from comment-line-start.
Dave Love <fx@gnu.org>
parents:
25162
diff
changeset
|
1145 (looking-at "[ \t]*$\\| [^ 0\n]\\|\t[1-9]") |
30149
1c8c6dbfcfb9
Don't require easymenu. Use repeat counts in various regexps.
Dave Love <fx@gnu.org>
parents:
28079
diff
changeset
|
1146 (looking-at (concat "[ \t]*" comment-start-skip))))) |
332 | 1147 (if (not not-last-statement) |
1148 'last-statement))) | |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1149 |
61107
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
1150 (defun fortran-looking-at-if-then () |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
1151 "Return non-nil if at the start of a line with an IF ... THEN statement." |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
1152 ;; cf f90-looking-at-if-then. |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
1153 (let ((p (point)) |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
1154 (i (fortran-beginning-if))) |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
1155 (if i |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
1156 (save-excursion |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
1157 (goto-char i) |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
1158 (beginning-of-line) |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
1159 (= (point) p))))) |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
1160 |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
1161 ;; Used in hs-special-modes-alist. |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
1162 (defun fortran-end-of-block (&optional num) |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
1163 "Move point forward to the end of the current code block. |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
1164 With optional argument NUM, go forward that many balanced blocks. |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
1165 If NUM is negative, go backward to the start of a block. Does |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
1166 not check for consistency of block types. Interactively, pushes |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
1167 mark before moving point." |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
1168 (interactive "p") |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
1169 (if (interactive-p) (push-mark (point) t)) |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
1170 (and num (< num 0) (fortran-beginning-of-block (- num))) |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
1171 (let ((case-fold-search t) |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
1172 (count (or num 1))) |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
1173 (end-of-line) |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
1174 (while (and (> count 0) |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
1175 (re-search-forward |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
1176 (concat "\\(" fortran-blocks-re |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
1177 (if fortran-check-all-num-for-matching-do |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
1178 "\\|^[ \t]*[0-9]+" "") |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
1179 "\\|continue\\|end\\)\\>") |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
1180 nil 'move)) |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
1181 (beginning-of-line) |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
1182 (if (if (looking-at (concat "^[0-9 \t]*" fortran-if-start-re)) |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
1183 (fortran-looking-at-if-then) |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
1184 (looking-at fortran-start-block-re)) |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
1185 (setq count (1+ count)) |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
1186 (if (or (looking-at fortran-end-block-re) |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
1187 (and (or (looking-at "^[0-9 \t]*continue") |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
1188 (and fortran-check-all-num-for-matching-do |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
1189 (looking-at "[ \t]*[0-9]+"))) |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
1190 (fortran-check-for-matching-do))) |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
1191 (setq count (1- count)))) |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
1192 (end-of-line)) |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
1193 (if (> count 0) (error "Missing block end")))) |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
1194 |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
1195 (defun fortran-beginning-of-block (&optional num) |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
1196 "Move point backwards to the start of the current code block. |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
1197 With optional argument NUM, go backward that many balanced |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
1198 blocks. If NUM is negative, go forward to the end of a block. |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
1199 Does not check for consistency of block types. Interactively, |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
1200 pushes mark before moving point." |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
1201 (interactive "p") |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
1202 (if (interactive-p) (push-mark (point) t)) |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
1203 (and num (< num 0) (fortran-end-of-block (- num))) |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
1204 (let ((case-fold-search t) |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
1205 (count (or num 1))) |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
1206 (beginning-of-line) |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
1207 (while (and (> count 0) |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
1208 (re-search-backward |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
1209 (concat "\\(" fortran-blocks-re |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
1210 (if fortran-check-all-num-for-matching-do |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
1211 "\\|^[ \t]*[0-9]+" "") |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
1212 "\\|continue\\|end\\)\\>") |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
1213 nil 'move)) |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
1214 (beginning-of-line) |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
1215 (if (if (looking-at (concat "^[0-9 \t]*" fortran-if-start-re)) |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
1216 (fortran-looking-at-if-then) |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
1217 (looking-at fortran-start-block-re)) |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
1218 (setq count (1- count)) |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
1219 (if (or (looking-at fortran-end-block-re) |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
1220 (and (or (looking-at "^[0-9 \t]*continue") |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
1221 (and fortran-check-all-num-for-matching-do |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
1222 (looking-at "[ \t]*[0-9]+"))) |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
1223 (fortran-check-for-matching-do))) |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
1224 (setq count (1+ count))))) |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
1225 ;; Includes an un-named main program block. |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
1226 (if (> count 0) (error "Missing block start")))) |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
1227 |
332 | 1228 |
26560
edf06ac56d1f
(fortran-comment-line-start): Renamed from comment-line-start.
Dave Love <fx@gnu.org>
parents:
25162
diff
changeset
|
1229 (defun fortran-blink-match (regex keyword find-begin) |
edf06ac56d1f
(fortran-comment-line-start): Renamed from comment-line-start.
Dave Love <fx@gnu.org>
parents:
25162
diff
changeset
|
1230 "From a line matching REGEX, blink matching KEYWORD statement line. |
edf06ac56d1f
(fortran-comment-line-start): Renamed from comment-line-start.
Dave Love <fx@gnu.org>
parents:
25162
diff
changeset
|
1231 Use function FIND-BEGIN to match it." |
21410
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
1232 (let ((top-of-window (window-start)) |
26560
edf06ac56d1f
(fortran-comment-line-start): Renamed from comment-line-start.
Dave Love <fx@gnu.org>
parents:
25162
diff
changeset
|
1233 (end-point (point)) |
21410
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
1234 (case-fold-search t) |
26560
edf06ac56d1f
(fortran-comment-line-start): Renamed from comment-line-start.
Dave Love <fx@gnu.org>
parents:
25162
diff
changeset
|
1235 matching |
21410
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
1236 message) |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1237 (when (save-excursion |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1238 (beginning-of-line) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1239 (skip-chars-forward " \t0-9") |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1240 (looking-at regex)) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1241 (if (not (setq matching (funcall find-begin))) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1242 (setq message (concat "No matching " keyword ".")) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1243 (if (< matching top-of-window) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1244 (save-excursion |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1245 (goto-char matching) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1246 (beginning-of-line) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1247 (setq message |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1248 (concat "Matches " |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1249 (buffer-substring (point) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1250 (line-end-position))))))) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1251 (if message |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1252 (message "%s" message) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1253 (goto-char matching) |
66635
462d9824004b
(fortran-blink-match): Use `blink-matching-delay'.
Glenn Morris <rgm@gnu.org>
parents:
65919
diff
changeset
|
1254 (sit-for blink-matching-delay) |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1255 (goto-char end-point))))) |
26560
edf06ac56d1f
(fortran-comment-line-start): Renamed from comment-line-start.
Dave Love <fx@gnu.org>
parents:
25162
diff
changeset
|
1256 |
edf06ac56d1f
(fortran-comment-line-start): Renamed from comment-line-start.
Dave Love <fx@gnu.org>
parents:
25162
diff
changeset
|
1257 (defun fortran-blink-matching-if () |
edf06ac56d1f
(fortran-comment-line-start): Renamed from comment-line-start.
Dave Love <fx@gnu.org>
parents:
25162
diff
changeset
|
1258 "From an ENDIF or ELSE statement, blink the matching IF statement." |
edf06ac56d1f
(fortran-comment-line-start): Renamed from comment-line-start.
Dave Love <fx@gnu.org>
parents:
25162
diff
changeset
|
1259 (fortran-blink-match "e\\(nd[ \t]*if\\|lse\\([ \t]*if\\)?\\)\\b" |
edf06ac56d1f
(fortran-comment-line-start): Renamed from comment-line-start.
Dave Love <fx@gnu.org>
parents:
25162
diff
changeset
|
1260 "if" #'fortran-beginning-if)) |
6731
23d9c2bc097b
(fortran-blink-matching-do): New function,
Richard M. Stallman <rms@gnu.org>
parents:
5720
diff
changeset
|
1261 |
23d9c2bc097b
(fortran-blink-matching-do): New function,
Richard M. Stallman <rms@gnu.org>
parents:
5720
diff
changeset
|
1262 (defun fortran-blink-matching-do () |
23754 | 1263 "From an ENDDO statement, blink the matching DO or DO WHILE statement." |
26560
edf06ac56d1f
(fortran-comment-line-start): Renamed from comment-line-start.
Dave Love <fx@gnu.org>
parents:
25162
diff
changeset
|
1264 (fortran-blink-match "end[ \t]*do\\b" "do" #'fortran-beginning-do)) |
10189
b2d6d69b7707
(fortran-end-if, fortran-end-do,
Richard M. Stallman <rms@gnu.org>
parents:
9476
diff
changeset
|
1265 |
b2d6d69b7707
(fortran-end-if, fortran-end-do,
Richard M. Stallman <rms@gnu.org>
parents:
9476
diff
changeset
|
1266 (defun fortran-mark-do () |
20207
38616c4cf58c
(fortran-imenu-generic-expression): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
20205
diff
changeset
|
1267 "Put mark at end of Fortran DO [WHILE]-ENDDO construct, point at beginning. |
10189
b2d6d69b7707
(fortran-end-if, fortran-end-do,
Richard M. Stallman <rms@gnu.org>
parents:
9476
diff
changeset
|
1268 The marks are pushed." |
b2d6d69b7707
(fortran-end-if, fortran-end-do,
Richard M. Stallman <rms@gnu.org>
parents:
9476
diff
changeset
|
1269 (interactive) |
b2d6d69b7707
(fortran-end-if, fortran-end-do,
Richard M. Stallman <rms@gnu.org>
parents:
9476
diff
changeset
|
1270 (let (enddo-point do-point) |
b2d6d69b7707
(fortran-end-if, fortran-end-do,
Richard M. Stallman <rms@gnu.org>
parents:
9476
diff
changeset
|
1271 (if (setq enddo-point (fortran-end-do)) |
b2d6d69b7707
(fortran-end-if, fortran-end-do,
Richard M. Stallman <rms@gnu.org>
parents:
9476
diff
changeset
|
1272 (if (not (setq do-point (fortran-beginning-do))) |
b2d6d69b7707
(fortran-end-if, fortran-end-do,
Richard M. Stallman <rms@gnu.org>
parents:
9476
diff
changeset
|
1273 (message "No matching do.") |
b2d6d69b7707
(fortran-end-if, fortran-end-do,
Richard M. Stallman <rms@gnu.org>
parents:
9476
diff
changeset
|
1274 (goto-char enddo-point) |
b2d6d69b7707
(fortran-end-if, fortran-end-do,
Richard M. Stallman <rms@gnu.org>
parents:
9476
diff
changeset
|
1275 (push-mark) |
b2d6d69b7707
(fortran-end-if, fortran-end-do,
Richard M. Stallman <rms@gnu.org>
parents:
9476
diff
changeset
|
1276 (goto-char do-point))))) |
b2d6d69b7707
(fortran-end-if, fortran-end-do,
Richard M. Stallman <rms@gnu.org>
parents:
9476
diff
changeset
|
1277 |
b2d6d69b7707
(fortran-end-if, fortran-end-do,
Richard M. Stallman <rms@gnu.org>
parents:
9476
diff
changeset
|
1278 (defun fortran-end-do () |
23754 | 1279 "Search forward for first unmatched ENDDO. |
1280 Return point or nil." | |
21410
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
1281 (let ((case-fold-search t)) |
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
1282 (if (save-excursion (beginning-of-line) |
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
1283 (skip-chars-forward " \t0-9") |
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
1284 (looking-at "end[ \t]*do\\b")) |
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
1285 ;; Sitting on one. |
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
1286 (match-beginning 0) |
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
1287 ;; Search for one. |
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
1288 (save-excursion |
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
1289 (let ((count 1)) |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1290 (while (and (not (zerop count)) |
21410
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
1291 (not (eq (fortran-next-statement) 'last-statement)) |
50611 | 1292 ;; Keep local to subprogram. |
23754 | 1293 (not (and (looking-at fortran-end-prog-re) |
1294 (fortran-check-end-prog-re)))) | |
21410
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
1295 (skip-chars-forward " \t0-9") |
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
1296 (cond ((looking-at "end[ \t]*do\\b") |
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
1297 (setq count (1- count))) |
26560
edf06ac56d1f
(fortran-comment-line-start): Renamed from comment-line-start.
Dave Love <fx@gnu.org>
parents:
25162
diff
changeset
|
1298 ((looking-at |
edf06ac56d1f
(fortran-comment-line-start): Renamed from comment-line-start.
Dave Love <fx@gnu.org>
parents:
25162
diff
changeset
|
1299 "\\(\\(\\sw\\|\\s_\\)+:[ \t]*\\)?do[ \t]+[^0-9]") |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1300 (setq count (1+ count))))) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1301 (and (zerop count) |
21410
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
1302 ;; All pairs accounted for. |
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
1303 (point))))))) |
10189
b2d6d69b7707
(fortran-end-if, fortran-end-do,
Richard M. Stallman <rms@gnu.org>
parents:
9476
diff
changeset
|
1304 |
b2d6d69b7707
(fortran-end-if, fortran-end-do,
Richard M. Stallman <rms@gnu.org>
parents:
9476
diff
changeset
|
1305 (defun fortran-beginning-do () |
23754 | 1306 "Search backwards for first unmatched DO [WHILE]. |
47767
1ad06cb931a9
(fortran-beginning-do): Ignore labelled DO loops altogether.
Glenn Morris <rgm@gnu.org>
parents:
46979
diff
changeset
|
1307 Return point or nil. Ignores labelled DO loops (ie DO 10 ... 10 CONTINUE)." |
1ad06cb931a9
(fortran-beginning-do): Ignore labelled DO loops altogether.
Glenn Morris <rgm@gnu.org>
parents:
46979
diff
changeset
|
1308 (let ((case-fold-search t) |
1ad06cb931a9
(fortran-beginning-do): Ignore labelled DO loops altogether.
Glenn Morris <rgm@gnu.org>
parents:
46979
diff
changeset
|
1309 (dostart-re "\\(\\(\\sw\\|\\s_\\)+:[ \t]*\\)?do[ \t]+[^0-9]")) |
26560
edf06ac56d1f
(fortran-comment-line-start): Renamed from comment-line-start.
Dave Love <fx@gnu.org>
parents:
25162
diff
changeset
|
1310 (if (save-excursion |
edf06ac56d1f
(fortran-comment-line-start): Renamed from comment-line-start.
Dave Love <fx@gnu.org>
parents:
25162
diff
changeset
|
1311 (beginning-of-line) |
edf06ac56d1f
(fortran-comment-line-start): Renamed from comment-line-start.
Dave Love <fx@gnu.org>
parents:
25162
diff
changeset
|
1312 (skip-chars-forward " \t0-9") |
47767
1ad06cb931a9
(fortran-beginning-do): Ignore labelled DO loops altogether.
Glenn Morris <rgm@gnu.org>
parents:
46979
diff
changeset
|
1313 (looking-at dostart-re)) |
21410
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
1314 ;; Sitting on one. |
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
1315 (match-beginning 0) |
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
1316 ;; Search for one. |
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
1317 (save-excursion |
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
1318 (let ((count 1)) |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1319 (while (and (not (zerop count)) |
21410
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
1320 (not (eq (fortran-previous-statement) 'first-statement)) |
50611 | 1321 ;; Keep local to subprogram. |
23754 | 1322 (not (and (looking-at fortran-end-prog-re) |
1323 (fortran-check-end-prog-re)))) | |
21410
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
1324 (skip-chars-forward " \t0-9") |
47767
1ad06cb931a9
(fortran-beginning-do): Ignore labelled DO loops altogether.
Glenn Morris <rgm@gnu.org>
parents:
46979
diff
changeset
|
1325 (cond ((looking-at dostart-re) |
21410
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
1326 (setq count (1- count))) |
47767
1ad06cb931a9
(fortran-beginning-do): Ignore labelled DO loops altogether.
Glenn Morris <rgm@gnu.org>
parents:
46979
diff
changeset
|
1327 ;; Note labelled loop ends not considered. |
21410
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
1328 ((looking-at "end[ \t]*do\\b") |
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
1329 (setq count (1+ count))))) |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1330 (and (zerop count) |
21410
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
1331 ;; All pairs accounted for. |
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
1332 (point))))))) |
10189
b2d6d69b7707
(fortran-end-if, fortran-end-do,
Richard M. Stallman <rms@gnu.org>
parents:
9476
diff
changeset
|
1333 |
b2d6d69b7707
(fortran-end-if, fortran-end-do,
Richard M. Stallman <rms@gnu.org>
parents:
9476
diff
changeset
|
1334 (defun fortran-mark-if () |
b2d6d69b7707
(fortran-end-if, fortran-end-do,
Richard M. Stallman <rms@gnu.org>
parents:
9476
diff
changeset
|
1335 "Put mark at end of Fortran IF-ENDIF construct, point at beginning. |
b2d6d69b7707
(fortran-end-if, fortran-end-do,
Richard M. Stallman <rms@gnu.org>
parents:
9476
diff
changeset
|
1336 The marks are pushed." |
b2d6d69b7707
(fortran-end-if, fortran-end-do,
Richard M. Stallman <rms@gnu.org>
parents:
9476
diff
changeset
|
1337 (interactive) |
b2d6d69b7707
(fortran-end-if, fortran-end-do,
Richard M. Stallman <rms@gnu.org>
parents:
9476
diff
changeset
|
1338 (let (endif-point if-point) |
b2d6d69b7707
(fortran-end-if, fortran-end-do,
Richard M. Stallman <rms@gnu.org>
parents:
9476
diff
changeset
|
1339 (if (setq endif-point (fortran-end-if)) |
b2d6d69b7707
(fortran-end-if, fortran-end-do,
Richard M. Stallman <rms@gnu.org>
parents:
9476
diff
changeset
|
1340 (if (not (setq if-point (fortran-beginning-if))) |
b2d6d69b7707
(fortran-end-if, fortran-end-do,
Richard M. Stallman <rms@gnu.org>
parents:
9476
diff
changeset
|
1341 (message "No matching if.") |
b2d6d69b7707
(fortran-end-if, fortran-end-do,
Richard M. Stallman <rms@gnu.org>
parents:
9476
diff
changeset
|
1342 ;; Set mark, move point. |
b2d6d69b7707
(fortran-end-if, fortran-end-do,
Richard M. Stallman <rms@gnu.org>
parents:
9476
diff
changeset
|
1343 (goto-char endif-point) |
b2d6d69b7707
(fortran-end-if, fortran-end-do,
Richard M. Stallman <rms@gnu.org>
parents:
9476
diff
changeset
|
1344 (push-mark) |
b2d6d69b7707
(fortran-end-if, fortran-end-do,
Richard M. Stallman <rms@gnu.org>
parents:
9476
diff
changeset
|
1345 (goto-char if-point))))) |
b2d6d69b7707
(fortran-end-if, fortran-end-do,
Richard M. Stallman <rms@gnu.org>
parents:
9476
diff
changeset
|
1346 |
b2d6d69b7707
(fortran-end-if, fortran-end-do,
Richard M. Stallman <rms@gnu.org>
parents:
9476
diff
changeset
|
1347 (defun fortran-end-if () |
23754 | 1348 "Search forwards for first unmatched ENDIF. |
1349 Return point or nil." | |
21410
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
1350 (let ((case-fold-search t)) |
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
1351 (if (save-excursion (beginning-of-line) |
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
1352 (skip-chars-forward " \t0-9") |
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
1353 (looking-at "end[ \t]*if\\b")) |
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
1354 ;; Sitting on one. |
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
1355 (match-beginning 0) |
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
1356 ;; Search for one. The point has been already been moved to first |
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
1357 ;; letter on line but this should not cause troubles. |
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
1358 (save-excursion |
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
1359 (let ((count 1)) |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1360 (while (and (not (zerop count)) |
21410
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
1361 (not (eq (fortran-next-statement) 'last-statement)) |
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
1362 ;; Keep local to subprogram. |
23754 | 1363 (not (and (looking-at fortran-end-prog-re) |
1364 (fortran-check-end-prog-re)))) | |
21410
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
1365 (skip-chars-forward " \t0-9") |
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
1366 (cond ((looking-at "end[ \t]*if\\b") |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1367 (setq count (1- count))) |
21410
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
1368 ((looking-at fortran-if-start-re) |
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
1369 (save-excursion |
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
1370 (if (or |
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
1371 (looking-at ".*)[ \t]*then\\b[ \t]*[^ \t(=a-z0-9]") |
50611 | 1372 (let (then-test) ; multi-line if-then |
21410
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
1373 (while |
30149
1c8c6dbfcfb9
Don't require easymenu. Use repeat counts in various regexps.
Dave Love <fx@gnu.org>
parents:
28079
diff
changeset
|
1374 (and |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1375 (zerop (forward-line 1)) |
30149
1c8c6dbfcfb9
Don't require easymenu. Use repeat counts in various regexps.
Dave Love <fx@gnu.org>
parents:
28079
diff
changeset
|
1376 ;; Search forward for then. |
1c8c6dbfcfb9
Don't require easymenu. Use repeat counts in various regexps.
Dave Love <fx@gnu.org>
parents:
28079
diff
changeset
|
1377 (looking-at " \\{5\\}[^ 0\n]\\|\t[1-9]") |
1c8c6dbfcfb9
Don't require easymenu. Use repeat counts in various regexps.
Dave Love <fx@gnu.org>
parents:
28079
diff
changeset
|
1378 (not |
1c8c6dbfcfb9
Don't require easymenu. Use repeat counts in various regexps.
Dave Love <fx@gnu.org>
parents:
28079
diff
changeset
|
1379 (setq then-test |
1c8c6dbfcfb9
Don't require easymenu. Use repeat counts in various regexps.
Dave Love <fx@gnu.org>
parents:
28079
diff
changeset
|
1380 (looking-at |
1c8c6dbfcfb9
Don't require easymenu. Use repeat counts in various regexps.
Dave Love <fx@gnu.org>
parents:
28079
diff
changeset
|
1381 ".*then\\b[ \t]*[^ \t(=a-z0-9]"))))) |
21410
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
1382 then-test)) |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1383 (setq count (1+ count))))))) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1384 (and (zerop count) |
21410
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
1385 ;; All pairs accounted for. |
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
1386 (point))))))) |
10189
b2d6d69b7707
(fortran-end-if, fortran-end-do,
Richard M. Stallman <rms@gnu.org>
parents:
9476
diff
changeset
|
1387 |
b2d6d69b7707
(fortran-end-if, fortran-end-do,
Richard M. Stallman <rms@gnu.org>
parents:
9476
diff
changeset
|
1388 (defun fortran-beginning-if () |
23754 | 1389 "Search backwards for first unmatched IF-THEN. |
1390 Return point or nil." | |
21410
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
1391 (let ((case-fold-search t)) |
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
1392 (if (save-excursion |
26560
edf06ac56d1f
(fortran-comment-line-start): Renamed from comment-line-start.
Dave Love <fx@gnu.org>
parents:
25162
diff
changeset
|
1393 ;; May be sitting on multi-line if-then statement, first |
edf06ac56d1f
(fortran-comment-line-start): Renamed from comment-line-start.
Dave Love <fx@gnu.org>
parents:
25162
diff
changeset
|
1394 ;; move to beginning of current statement. Note: |
edf06ac56d1f
(fortran-comment-line-start): Renamed from comment-line-start.
Dave Love <fx@gnu.org>
parents:
25162
diff
changeset
|
1395 ;; `fortran-previous-statement' moves to previous statement |
edf06ac56d1f
(fortran-comment-line-start): Renamed from comment-line-start.
Dave Love <fx@gnu.org>
parents:
25162
diff
changeset
|
1396 ;; *unless* current statement is first one. Only move |
edf06ac56d1f
(fortran-comment-line-start): Renamed from comment-line-start.
Dave Love <fx@gnu.org>
parents:
25162
diff
changeset
|
1397 ;; forward if not first-statement. |
21410
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
1398 (if (not (eq (fortran-previous-statement) 'first-statement)) |
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
1399 (fortran-next-statement)) |
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
1400 (skip-chars-forward " \t0-9") |
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
1401 (and |
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
1402 (looking-at fortran-if-start-re) |
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
1403 (save-match-data |
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
1404 (or (looking-at ".*)[ \t]*then\\b[ \t]*[^ \t(=a-z0-9]") |
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
1405 ;; Multi-line if-then. |
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
1406 (let (then-test) |
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
1407 (while |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1408 (and (zerop (forward-line 1)) |
21410
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
1409 ;; Search forward for then. |
30149
1c8c6dbfcfb9
Don't require easymenu. Use repeat counts in various regexps.
Dave Love <fx@gnu.org>
parents:
28079
diff
changeset
|
1410 (looking-at " \\{5\\}[^ 0\n]\\|\t[1-9]") |
21410
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
1411 (not |
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
1412 (setq then-test |
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
1413 (looking-at |
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
1414 ".*then\\b[ \t]*[^ \t(=a-z0-9]"))))) |
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
1415 then-test))))) |
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
1416 ;; Sitting on one. |
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
1417 (match-beginning 0) |
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
1418 ;; Search for one. |
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
1419 (save-excursion |
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
1420 (let ((count 1)) |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1421 (while (and (not (zerop count)) |
21410
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
1422 (not (eq (fortran-previous-statement) 'first-statement)) |
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
1423 ;; Keep local to subprogram. |
23754 | 1424 (not (and (looking-at fortran-end-prog-re) |
1425 (fortran-check-end-prog-re)))) | |
21410
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
1426 (skip-chars-forward " \t0-9") |
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
1427 (cond ((looking-at fortran-if-start-re) |
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
1428 (save-excursion |
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
1429 (if (or |
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
1430 (looking-at ".*)[ \t]*then\\b[ \t]*[^ \t(=a-z0-9]") |
50611 | 1431 (let (then-test) ; multi-line if-then |
21410
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
1432 (while |
30149
1c8c6dbfcfb9
Don't require easymenu. Use repeat counts in various regexps.
Dave Love <fx@gnu.org>
parents:
28079
diff
changeset
|
1433 (and |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1434 (zerop (forward-line 1)) |
30149
1c8c6dbfcfb9
Don't require easymenu. Use repeat counts in various regexps.
Dave Love <fx@gnu.org>
parents:
28079
diff
changeset
|
1435 ;; Search forward for then. |
1c8c6dbfcfb9
Don't require easymenu. Use repeat counts in various regexps.
Dave Love <fx@gnu.org>
parents:
28079
diff
changeset
|
1436 (looking-at " \\{5\\}[^ 0\n]\\|\t[1-9]") |
1c8c6dbfcfb9
Don't require easymenu. Use repeat counts in various regexps.
Dave Love <fx@gnu.org>
parents:
28079
diff
changeset
|
1437 (not |
1c8c6dbfcfb9
Don't require easymenu. Use repeat counts in various regexps.
Dave Love <fx@gnu.org>
parents:
28079
diff
changeset
|
1438 (setq then-test |
1c8c6dbfcfb9
Don't require easymenu. Use repeat counts in various regexps.
Dave Love <fx@gnu.org>
parents:
28079
diff
changeset
|
1439 (looking-at |
1c8c6dbfcfb9
Don't require easymenu. Use repeat counts in various regexps.
Dave Love <fx@gnu.org>
parents:
28079
diff
changeset
|
1440 (concat ".*then\\b[ \t]*" |
41676
82c2143ec3eb
Fontify rewind, backspace. Doc fixes.
Dave Love <fx@gnu.org>
parents:
41234
diff
changeset
|
1441 "[^ \t(=a-z0-9]")))))) |
21410
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
1442 then-test)) |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1443 (setq count (1- count))))) |
21410
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
1444 ((looking-at "end[ \t]*if\\b") |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1445 (setq count (1+ count))))) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1446 (and (zerop count) |
21410
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
1447 ;; All pairs accounted for. |
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
1448 (point))))))) |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1449 |
332 | 1450 |
1451 (defun fortran-indent-line () | |
20805
918448e5d294
Various docstring and commentary fixes, including
Dave Love <fx@gnu.org>
parents:
20277
diff
changeset
|
1452 "Indent current Fortran line based on its contents and on previous lines." |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1453 (interactive "*") |
21410
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
1454 (let ((cfi (fortran-calculate-indent))) |
332 | 1455 (save-excursion |
1456 (beginning-of-line) | |
1457 (if (or (not (= cfi (fortran-current-line-indentation))) | |
1458 (and (re-search-forward "^[ \t]*[0-9]+" (+ (point) 4) t) | |
1459 (not (fortran-line-number-indented-correctly-p)))) | |
1460 (fortran-indent-to-column cfi) | |
1461 (beginning-of-line) | |
43882
e601e469e7a4
(fortran-mode): Set comment-padding to "$$$".
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42443
diff
changeset
|
1462 (if (fortran-find-comment-start-skip) |
332 | 1463 (fortran-indent-comment)))) |
1464 ;; Never leave point in left margin. | |
1465 (if (< (current-column) cfi) | |
1466 (move-to-column cfi)) | |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1467 (and auto-fill-function |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1468 (> (save-excursion (end-of-line) (current-column)) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1469 fill-column) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1470 (save-excursion |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1471 (end-of-line) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1472 (fortran-fill))) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1473 (when fortran-blink-matching-if |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1474 (fortran-blink-matching-if) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1475 (fortran-blink-matching-do)))) |
332 | 1476 |
30149
1c8c6dbfcfb9
Don't require easymenu. Use repeat counts in various regexps.
Dave Love <fx@gnu.org>
parents:
28079
diff
changeset
|
1477 (defun fortran-auto-fill () |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1478 "Function to use for `normal-auto-fill-function' in Fortran mode." |
30149
1c8c6dbfcfb9
Don't require easymenu. Use repeat counts in various regexps.
Dave Love <fx@gnu.org>
parents:
28079
diff
changeset
|
1479 (if (> (current-column) (current-fill-column)) |
1c8c6dbfcfb9
Don't require easymenu. Use repeat counts in various regexps.
Dave Love <fx@gnu.org>
parents:
28079
diff
changeset
|
1480 (let ((cfi (fortran-calculate-indent))) |
1c8c6dbfcfb9
Don't require easymenu. Use repeat counts in various regexps.
Dave Love <fx@gnu.org>
parents:
28079
diff
changeset
|
1481 (save-excursion |
1c8c6dbfcfb9
Don't require easymenu. Use repeat counts in various regexps.
Dave Love <fx@gnu.org>
parents:
28079
diff
changeset
|
1482 (beginning-of-line) |
1c8c6dbfcfb9
Don't require easymenu. Use repeat counts in various regexps.
Dave Love <fx@gnu.org>
parents:
28079
diff
changeset
|
1483 (if (or (not (= cfi (fortran-current-line-indentation))) |
1c8c6dbfcfb9
Don't require easymenu. Use repeat counts in various regexps.
Dave Love <fx@gnu.org>
parents:
28079
diff
changeset
|
1484 (and (re-search-forward "^[ \t]*[0-9]+" |
1c8c6dbfcfb9
Don't require easymenu. Use repeat counts in various regexps.
Dave Love <fx@gnu.org>
parents:
28079
diff
changeset
|
1485 (+ (point) 4) t) |
1c8c6dbfcfb9
Don't require easymenu. Use repeat counts in various regexps.
Dave Love <fx@gnu.org>
parents:
28079
diff
changeset
|
1486 (not (fortran-line-number-indented-correctly-p)))) |
1c8c6dbfcfb9
Don't require easymenu. Use repeat counts in various regexps.
Dave Love <fx@gnu.org>
parents:
28079
diff
changeset
|
1487 (fortran-indent-to-column cfi) |
1c8c6dbfcfb9
Don't require easymenu. Use repeat counts in various regexps.
Dave Love <fx@gnu.org>
parents:
28079
diff
changeset
|
1488 (beginning-of-line) |
43882
e601e469e7a4
(fortran-mode): Set comment-padding to "$$$".
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42443
diff
changeset
|
1489 (if (fortran-find-comment-start-skip) |
30149
1c8c6dbfcfb9
Don't require easymenu. Use repeat counts in various regexps.
Dave Love <fx@gnu.org>
parents:
28079
diff
changeset
|
1490 (fortran-indent-comment)))) |
1c8c6dbfcfb9
Don't require easymenu. Use repeat counts in various regexps.
Dave Love <fx@gnu.org>
parents:
28079
diff
changeset
|
1491 (fortran-fill) |
1c8c6dbfcfb9
Don't require easymenu. Use repeat counts in various regexps.
Dave Love <fx@gnu.org>
parents:
28079
diff
changeset
|
1492 ;; Never leave point in left margin. |
1c8c6dbfcfb9
Don't require easymenu. Use repeat counts in various regexps.
Dave Love <fx@gnu.org>
parents:
28079
diff
changeset
|
1493 (if (< (current-column) cfi) |
1c8c6dbfcfb9
Don't require easymenu. Use repeat counts in various regexps.
Dave Love <fx@gnu.org>
parents:
28079
diff
changeset
|
1494 (move-to-column cfi))))) |
1c8c6dbfcfb9
Don't require easymenu. Use repeat counts in various regexps.
Dave Love <fx@gnu.org>
parents:
28079
diff
changeset
|
1495 |
25162
ec613559ec18
(fortran-indent-new-line): Make it an alias
Dave Love <fx@gnu.org>
parents:
25054
diff
changeset
|
1496 ;; Historically this was a separate function which advertised itself |
ec613559ec18
(fortran-indent-new-line): Make it an alias
Dave Love <fx@gnu.org>
parents:
25054
diff
changeset
|
1497 ;; as reindenting but only did so where `most likely to be necessary'. |
ec613559ec18
(fortran-indent-new-line): Make it an alias
Dave Love <fx@gnu.org>
parents:
25054
diff
changeset
|
1498 (defalias 'fortran-indent-new-line 'reindent-then-newline-and-indent) |
1548 | 1499 |
332 | 1500 (defun fortran-indent-subprogram () |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1501 "Properly indent the Fortran subprogram containing point." |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1502 (interactive "*") |
332 | 1503 (save-excursion |
27199
4a15e79c5fb0
(fortran-mode-map): Don't bind M-C-a,
Dave Love <fx@gnu.org>
parents:
26665
diff
changeset
|
1504 (mark-defun) |
24254
93993abff564
(mark-fortran-subprogram): Activate mark
Dave Love <fx@gnu.org>
parents:
24125
diff
changeset
|
1505 (message "Indenting subprogram...") |
93993abff564
(mark-fortran-subprogram): Activate mark
Dave Love <fx@gnu.org>
parents:
24125
diff
changeset
|
1506 (indent-region (point) (mark) nil)) |
332 | 1507 (message "Indenting subprogram...done.")) |
1508 | |
21410
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
1509 (defun fortran-calculate-indent () |
1548 | 1510 "Calculates the Fortran indent column based on previous lines." |
332 | 1511 (let (icol first-statement (case-fold-search t) |
1512 (fortran-minimum-statement-indent | |
1633
65af7bcd5e31
* fortran.el: New version of version 1.30 (!) from Stephen A. Wood
Jim Blandy <jimb@redhat.com>
parents:
1611
diff
changeset
|
1513 (if indent-tabs-mode |
65af7bcd5e31
* fortran.el: New version of version 1.30 (!) from Stephen A. Wood
Jim Blandy <jimb@redhat.com>
parents:
1611
diff
changeset
|
1514 fortran-minimum-statement-indent-tab |
65af7bcd5e31
* fortran.el: New version of version 1.30 (!) from Stephen A. Wood
Jim Blandy <jimb@redhat.com>
parents:
1611
diff
changeset
|
1515 fortran-minimum-statement-indent-fixed))) |
332 | 1516 (save-excursion |
1517 (setq first-statement (fortran-previous-statement)) | |
1518 (if first-statement | |
1519 (setq icol fortran-minimum-statement-indent) | |
50579
603b312a33d1
(fortran-previous-statement): Check for fortran-continuation-string.
Glenn Morris <rgm@gnu.org>
parents:
50561
diff
changeset
|
1520 (if (= (point) (point-min)) |
603b312a33d1
(fortran-previous-statement): Check for fortran-continuation-string.
Glenn Morris <rgm@gnu.org>
parents:
50561
diff
changeset
|
1521 (setq icol fortran-minimum-statement-indent) |
603b312a33d1
(fortran-previous-statement): Check for fortran-continuation-string.
Glenn Morris <rgm@gnu.org>
parents:
50561
diff
changeset
|
1522 (setq icol (fortran-current-line-indentation))) |
603b312a33d1
(fortran-previous-statement): Check for fortran-continuation-string.
Glenn Morris <rgm@gnu.org>
parents:
50561
diff
changeset
|
1523 (skip-chars-forward " \t0-9") |
603b312a33d1
(fortran-previous-statement): Check for fortran-continuation-string.
Glenn Morris <rgm@gnu.org>
parents:
50561
diff
changeset
|
1524 (cond ((looking-at "\\(\\(\\sw\\|\\s_\\)+:[ \t]*\\)?if[ \t]*(") |
603b312a33d1
(fortran-previous-statement): Check for fortran-continuation-string.
Glenn Morris <rgm@gnu.org>
parents:
50561
diff
changeset
|
1525 (if (or (looking-at ".*)[ \t]*then\\b[ \t]*[^ \t_$(=a-z0-9]") |
50611 | 1526 (let (then-test) ; multi-line if-then |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1527 (while (and (zerop (forward-line 1)) |
50611 | 1528 ;; Search forward for then. |
50579
603b312a33d1
(fortran-previous-statement): Check for fortran-continuation-string.
Glenn Morris <rgm@gnu.org>
parents:
50561
diff
changeset
|
1529 (looking-at " \\{5\\}[^ 0\n]\\|\t[1-9]") |
603b312a33d1
(fortran-previous-statement): Check for fortran-continuation-string.
Glenn Morris <rgm@gnu.org>
parents:
50561
diff
changeset
|
1530 (not (setq then-test |
603b312a33d1
(fortran-previous-statement): Check for fortran-continuation-string.
Glenn Morris <rgm@gnu.org>
parents:
50561
diff
changeset
|
1531 (looking-at |
603b312a33d1
(fortran-previous-statement): Check for fortran-continuation-string.
Glenn Morris <rgm@gnu.org>
parents:
50561
diff
changeset
|
1532 ".*then\\b[ \t]\ |
1548 | 1533 *[^ \t_$(=a-z0-9]"))))) |
50579
603b312a33d1
(fortran-previous-statement): Check for fortran-continuation-string.
Glenn Morris <rgm@gnu.org>
parents:
50561
diff
changeset
|
1534 then-test)) |
603b312a33d1
(fortran-previous-statement): Check for fortran-continuation-string.
Glenn Morris <rgm@gnu.org>
parents:
50561
diff
changeset
|
1535 (setq icol (+ icol fortran-if-indent)))) |
603b312a33d1
(fortran-previous-statement): Check for fortran-continuation-string.
Glenn Morris <rgm@gnu.org>
parents:
50561
diff
changeset
|
1536 ((looking-at "else\\(if\\)?\\b") |
603b312a33d1
(fortran-previous-statement): Check for fortran-continuation-string.
Glenn Morris <rgm@gnu.org>
parents:
50561
diff
changeset
|
1537 (setq icol (+ icol fortran-if-indent))) |
603b312a33d1
(fortran-previous-statement): Check for fortran-continuation-string.
Glenn Morris <rgm@gnu.org>
parents:
50561
diff
changeset
|
1538 ((looking-at "select[ \t]*case[ \t](.*)") |
603b312a33d1
(fortran-previous-statement): Check for fortran-continuation-string.
Glenn Morris <rgm@gnu.org>
parents:
50561
diff
changeset
|
1539 (setq icol (+ icol fortran-if-indent))) |
603b312a33d1
(fortran-previous-statement): Check for fortran-continuation-string.
Glenn Morris <rgm@gnu.org>
parents:
50561
diff
changeset
|
1540 ((looking-at "case[ \t]*(.*)") |
603b312a33d1
(fortran-previous-statement): Check for fortran-continuation-string.
Glenn Morris <rgm@gnu.org>
parents:
50561
diff
changeset
|
1541 (setq icol (+ icol fortran-if-indent))) |
603b312a33d1
(fortran-previous-statement): Check for fortran-continuation-string.
Glenn Morris <rgm@gnu.org>
parents:
50561
diff
changeset
|
1542 ((looking-at "case[ \t]*default\\b") |
603b312a33d1
(fortran-previous-statement): Check for fortran-continuation-string.
Glenn Morris <rgm@gnu.org>
parents:
50561
diff
changeset
|
1543 (setq icol (+ icol fortran-if-indent))) |
603b312a33d1
(fortran-previous-statement): Check for fortran-continuation-string.
Glenn Morris <rgm@gnu.org>
parents:
50561
diff
changeset
|
1544 ((looking-at "\\(otherwise\\|else[ \t]*where\\)\\b") |
603b312a33d1
(fortran-previous-statement): Check for fortran-continuation-string.
Glenn Morris <rgm@gnu.org>
parents:
50561
diff
changeset
|
1545 (setq icol (+ icol fortran-if-indent))) |
603b312a33d1
(fortran-previous-statement): Check for fortran-continuation-string.
Glenn Morris <rgm@gnu.org>
parents:
50561
diff
changeset
|
1546 ((looking-at "where[ \t]*(.*)[ \t]*\n") |
603b312a33d1
(fortran-previous-statement): Check for fortran-continuation-string.
Glenn Morris <rgm@gnu.org>
parents:
50561
diff
changeset
|
1547 (setq icol (+ icol fortran-if-indent))) |
603b312a33d1
(fortran-previous-statement): Check for fortran-continuation-string.
Glenn Morris <rgm@gnu.org>
parents:
50561
diff
changeset
|
1548 ((looking-at "do\\b") |
603b312a33d1
(fortran-previous-statement): Check for fortran-continuation-string.
Glenn Morris <rgm@gnu.org>
parents:
50561
diff
changeset
|
1549 (setq icol (+ icol fortran-do-indent))) |
603b312a33d1
(fortran-previous-statement): Check for fortran-continuation-string.
Glenn Morris <rgm@gnu.org>
parents:
50561
diff
changeset
|
1550 ((looking-at |
603b312a33d1
(fortran-previous-statement): Check for fortran-continuation-string.
Glenn Morris <rgm@gnu.org>
parents:
50561
diff
changeset
|
1551 "\\(structure\\|union\\|map\\|interface\\)\ |
26560
edf06ac56d1f
(fortran-comment-line-start): Renamed from comment-line-start.
Dave Love <fx@gnu.org>
parents:
25162
diff
changeset
|
1552 \\b[ \t]*[^ \t=(a-z]") |
50579
603b312a33d1
(fortran-previous-statement): Check for fortran-continuation-string.
Glenn Morris <rgm@gnu.org>
parents:
50561
diff
changeset
|
1553 (setq icol (+ icol fortran-structure-indent))) |
603b312a33d1
(fortran-previous-statement): Check for fortran-continuation-string.
Glenn Morris <rgm@gnu.org>
parents:
50561
diff
changeset
|
1554 ((and (looking-at fortran-end-prog-re1) |
603b312a33d1
(fortran-previous-statement): Check for fortran-continuation-string.
Glenn Morris <rgm@gnu.org>
parents:
50561
diff
changeset
|
1555 (fortran-check-end-prog-re)) |
50611 | 1556 ;; Previous END resets indent to minimum. |
50579
603b312a33d1
(fortran-previous-statement): Check for fortran-continuation-string.
Glenn Morris <rgm@gnu.org>
parents:
50561
diff
changeset
|
1557 (setq icol fortran-minimum-statement-indent))))) |
332 | 1558 (save-excursion |
1559 (beginning-of-line) | |
1560 (cond ((looking-at "[ \t]*$")) | |
45301
793bb00af917
(fortran-directive-re): New name for fortran-preprocessor-re. All usage
Glenn Morris <rgm@gnu.org>
parents:
45255
diff
changeset
|
1561 ;; Check for directive before comment, so as not to indent. |
793bb00af917
(fortran-directive-re): New name for fortran-preprocessor-re. All usage
Glenn Morris <rgm@gnu.org>
parents:
45255
diff
changeset
|
1562 ((looking-at fortran-directive-re) |
793bb00af917
(fortran-directive-re): New name for fortran-preprocessor-re. All usage
Glenn Morris <rgm@gnu.org>
parents:
45255
diff
changeset
|
1563 (setq fortran-minimum-statement-indent 0 icol 0)) |
26560
edf06ac56d1f
(fortran-comment-line-start): Renamed from comment-line-start.
Dave Love <fx@gnu.org>
parents:
25162
diff
changeset
|
1564 ((looking-at fortran-comment-line-start-skip) |
332 | 1565 (cond ((eq fortran-comment-indent-style 'relative) |
1633
65af7bcd5e31
* fortran.el: New version of version 1.30 (!) from Stephen A. Wood
Jim Blandy <jimb@redhat.com>
parents:
1611
diff
changeset
|
1566 (setq icol (+ icol fortran-comment-line-extra-indent))) |
332 | 1567 ((eq fortran-comment-indent-style 'fixed) |
1548 | 1568 (setq icol (+ fortran-minimum-statement-indent |
1633
65af7bcd5e31
* fortran.el: New version of version 1.30 (!) from Stephen A. Wood
Jim Blandy <jimb@redhat.com>
parents:
1611
diff
changeset
|
1569 fortran-comment-line-extra-indent)))) |
1548 | 1570 (setq fortran-minimum-statement-indent 0)) |
50579
603b312a33d1
(fortran-previous-statement): Check for fortran-continuation-string.
Glenn Morris <rgm@gnu.org>
parents:
50561
diff
changeset
|
1571 ((or (looking-at (concat "[ \t]*" |
1548 | 1572 (regexp-quote |
1573 fortran-continuation-string))) | |
30149
1c8c6dbfcfb9
Don't require easymenu. Use repeat counts in various regexps.
Dave Love <fx@gnu.org>
parents:
28079
diff
changeset
|
1574 (looking-at " \\{5\\}[^ 0\n]\\|\t[1-9]")) |
50579
603b312a33d1
(fortran-previous-statement): Check for fortran-continuation-string.
Glenn Morris <rgm@gnu.org>
parents:
50561
diff
changeset
|
1575 (skip-chars-forward " \t") |
603b312a33d1
(fortran-previous-statement): Check for fortran-continuation-string.
Glenn Morris <rgm@gnu.org>
parents:
50561
diff
changeset
|
1576 ;; Do not introduce extra whitespace into a broken string. |
603b312a33d1
(fortran-previous-statement): Check for fortran-continuation-string.
Glenn Morris <rgm@gnu.org>
parents:
50561
diff
changeset
|
1577 (setq icol |
603b312a33d1
(fortran-previous-statement): Check for fortran-continuation-string.
Glenn Morris <rgm@gnu.org>
parents:
50561
diff
changeset
|
1578 (if (fortran-is-in-string-p (point)) |
603b312a33d1
(fortran-previous-statement): Check for fortran-continuation-string.
Glenn Morris <rgm@gnu.org>
parents:
50561
diff
changeset
|
1579 6 |
603b312a33d1
(fortran-previous-statement): Check for fortran-continuation-string.
Glenn Morris <rgm@gnu.org>
parents:
50561
diff
changeset
|
1580 (+ icol fortran-continuation-indent)))) |
332 | 1581 (first-statement) |
1582 ((and fortran-check-all-num-for-matching-do | |
1583 (looking-at "[ \t]*[0-9]+") | |
1584 (fortran-check-for-matching-do)) | |
1585 (setq icol (- icol fortran-do-indent))) | |
1586 (t | |
1587 (skip-chars-forward " \t0-9") | |
21410
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
1588 (cond ((looking-at "end[ \t]*\\(if\\|select\\|where\\)\\b") |
332 | 1589 (setq icol (- icol fortran-if-indent))) |
21410
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
1590 ((looking-at "else\\(if\\)?\\b") |
5720
fe1a71db966f
(calculate-fortran-indent): Handle
Richard M. Stallman <rms@gnu.org>
parents:
5065
diff
changeset
|
1591 (setq icol (- icol fortran-if-indent))) |
21410
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
1592 ((looking-at "case[ \t]*\\((.*)\\|default\\>\\)") |
5720
fe1a71db966f
(calculate-fortran-indent): Handle
Richard M. Stallman <rms@gnu.org>
parents:
5065
diff
changeset
|
1593 (setq icol (- icol fortran-if-indent))) |
1548 | 1594 ((looking-at "\\(otherwise\\|else[ \t]*where\\)\\b") |
1595 (setq icol (- icol fortran-if-indent))) | |
332 | 1596 ((and (looking-at "continue\\b") |
1597 (fortran-check-for-matching-do)) | |
1598 (setq icol (- icol fortran-do-indent))) | |
1599 ((looking-at "end[ \t]*do\\b") | |
1600 (setq icol (- icol fortran-do-indent))) | |
21410
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
1601 ((looking-at "end[ \t]*\ |
5720
fe1a71db966f
(calculate-fortran-indent): Handle
Richard M. Stallman <rms@gnu.org>
parents:
5065
diff
changeset
|
1602 \\(structure\\|union\\|map\\|interface\\)\\b[ \t]*[^ \t=(a-z]") |
1548 | 1603 (setq icol (- icol fortran-structure-indent))) |
21410
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
1604 ((and (looking-at fortran-end-prog-re1) |
23754 | 1605 (fortran-check-end-prog-re) |
332 | 1606 (not (= icol fortran-minimum-statement-indent))) |
1607 (message "Warning: `end' not in column %d. Probably\ | |
1608 an unclosed block." fortran-minimum-statement-indent)))))) | |
1609 (max fortran-minimum-statement-indent icol))) | |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1610 |
332 | 1611 |
1612 (defun fortran-current-line-indentation () | |
1613 "Indentation of current line, ignoring Fortran line number or continuation. | |
1614 This is the column position of the first non-whitespace character | |
1615 aside from the line number and/or column 5/8 line-continuation character. | |
1616 For comment lines, returns indentation of the first | |
1617 non-indentation text within the comment." | |
1618 (save-excursion | |
1619 (beginning-of-line) | |
26560
edf06ac56d1f
(fortran-comment-line-start): Renamed from comment-line-start.
Dave Love <fx@gnu.org>
parents:
25162
diff
changeset
|
1620 (cond ((looking-at fortran-comment-line-start-skip) |
332 | 1621 (goto-char (match-end 0)) |
1622 (skip-chars-forward | |
1548 | 1623 (if (stringp fortran-comment-indent-char) |
1624 fortran-comment-indent-char | |
1625 (char-to-string fortran-comment-indent-char)))) | |
30149
1c8c6dbfcfb9
Don't require easymenu. Use repeat counts in various regexps.
Dave Love <fx@gnu.org>
parents:
28079
diff
changeset
|
1626 ((or (looking-at " \\{5\\}[^ 0\n]\\|\t[1-9]")) |
332 | 1627 (goto-char (match-end 0))) |
1628 (t | |
1629 ;; Move past line number. | |
26560
edf06ac56d1f
(fortran-comment-line-start): Renamed from comment-line-start.
Dave Love <fx@gnu.org>
parents:
25162
diff
changeset
|
1630 (skip-chars-forward "[ \t0-9]"))) |
332 | 1631 ;; Move past whitespace. |
1632 (skip-chars-forward " \t") | |
1633 (current-column))) | |
1634 | |
1635 (defun fortran-indent-to-column (col) | |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1636 "Indent current line to column COL. |
332 | 1637 notes: 1) A non-zero/non-blank character in column 5 indicates a continuation |
1638 line, and this continuation character is retained on indentation; | |
1548 | 1639 2) If `fortran-continuation-string' is the first non-whitespace |
1640 character, this is a continuation line; | |
332 | 1641 3) A non-continuation line which has a number as the first |
1642 non-whitespace character is a numbered line. | |
1548 | 1643 4) A TAB followed by a digit indicates a continuation line." |
332 | 1644 (save-excursion |
1645 (beginning-of-line) | |
26560
edf06ac56d1f
(fortran-comment-line-start): Renamed from comment-line-start.
Dave Love <fx@gnu.org>
parents:
25162
diff
changeset
|
1646 (if (looking-at fortran-comment-line-start-skip) |
332 | 1647 (if fortran-comment-indent-style |
26560
edf06ac56d1f
(fortran-comment-line-start): Renamed from comment-line-start.
Dave Love <fx@gnu.org>
parents:
25162
diff
changeset
|
1648 (let* ((char (if (stringp fortran-comment-indent-char) |
edf06ac56d1f
(fortran-comment-line-start): Renamed from comment-line-start.
Dave Love <fx@gnu.org>
parents:
25162
diff
changeset
|
1649 (aref fortran-comment-indent-char 0) |
edf06ac56d1f
(fortran-comment-line-start): Renamed from comment-line-start.
Dave Love <fx@gnu.org>
parents:
25162
diff
changeset
|
1650 fortran-comment-indent-char)) |
65230
4d20d00ea5c4
(fortran-indent-to-column): "?\ " -> "?\s".
Juanma Barranquero <lekktu@gmail.com>
parents:
64699
diff
changeset
|
1651 (chars (string ?\s ?\t char))) |
332 | 1652 (goto-char (match-end 0)) |
26560
edf06ac56d1f
(fortran-comment-line-start): Renamed from comment-line-start.
Dave Love <fx@gnu.org>
parents:
25162
diff
changeset
|
1653 (skip-chars-backward chars) |
edf06ac56d1f
(fortran-comment-line-start): Renamed from comment-line-start.
Dave Love <fx@gnu.org>
parents:
25162
diff
changeset
|
1654 (delete-region (point) (progn (skip-chars-forward chars) |
edf06ac56d1f
(fortran-comment-line-start): Renamed from comment-line-start.
Dave Love <fx@gnu.org>
parents:
25162
diff
changeset
|
1655 (point))) |
332 | 1656 (insert-char char (- col (current-column))))) |
1657 (if (looking-at "\t[1-9]") | |
1633
65af7bcd5e31
* fortran.el: New version of version 1.30 (!) from Stephen A. Wood
Jim Blandy <jimb@redhat.com>
parents:
1611
diff
changeset
|
1658 (if indent-tabs-mode |
332 | 1659 (goto-char (match-end 0)) |
1660 (delete-char 2) | |
65230
4d20d00ea5c4
(fortran-indent-to-column): "?\ " -> "?\s".
Juanma Barranquero <lekktu@gmail.com>
parents:
64699
diff
changeset
|
1661 (insert-char ?\s 5) |
332 | 1662 (insert fortran-continuation-string)) |
30149
1c8c6dbfcfb9
Don't require easymenu. Use repeat counts in various regexps.
Dave Love <fx@gnu.org>
parents:
28079
diff
changeset
|
1663 (if (looking-at " \\{5\\}[^ 0\n]") |
1633
65af7bcd5e31
* fortran.el: New version of version 1.30 (!) from Stephen A. Wood
Jim Blandy <jimb@redhat.com>
parents:
1611
diff
changeset
|
1664 (if indent-tabs-mode |
332 | 1665 (progn (delete-char 6) |
26560
edf06ac56d1f
(fortran-comment-line-start): Renamed from comment-line-start.
Dave Love <fx@gnu.org>
parents:
25162
diff
changeset
|
1666 (insert ?\t (fortran-numerical-continuation-char) 1)) |
332 | 1667 (forward-char 6)) |
1668 (delete-horizontal-space) | |
50611 | 1669 ;; Put line number in columns 0-4, or |
1670 ;; continuation character in column 5. | |
332 | 1671 (cond ((eobp)) |
1672 ((looking-at (regexp-quote fortran-continuation-string)) | |
1633
65af7bcd5e31
* fortran.el: New version of version 1.30 (!) from Stephen A. Wood
Jim Blandy <jimb@redhat.com>
parents:
1611
diff
changeset
|
1673 (if indent-tabs-mode |
332 | 1674 (progn |
20207
38616c4cf58c
(fortran-imenu-generic-expression): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
20205
diff
changeset
|
1675 (indent-to |
1633
65af7bcd5e31
* fortran.el: New version of version 1.30 (!) from Stephen A. Wood
Jim Blandy <jimb@redhat.com>
parents:
1611
diff
changeset
|
1676 (if indent-tabs-mode |
65af7bcd5e31
* fortran.el: New version of version 1.30 (!) from Stephen A. Wood
Jim Blandy <jimb@redhat.com>
parents:
1611
diff
changeset
|
1677 fortran-minimum-statement-indent-tab |
65af7bcd5e31
* fortran.el: New version of version 1.30 (!) from Stephen A. Wood
Jim Blandy <jimb@redhat.com>
parents:
1611
diff
changeset
|
1678 fortran-minimum-statement-indent-fixed)) |
332 | 1679 (delete-char 1) |
1680 (insert-char (fortran-numerical-continuation-char) 1)) | |
1548 | 1681 (indent-to 5) |
1682 (forward-char 1))) | |
332 | 1683 ((looking-at "[0-9]+") |
1684 (let ((extra-space (- 5 (- (match-end 0) (point))))) | |
1685 (if (< extra-space 0) | |
1686 (message "Warning: line number exceeds 5-digit limit.") | |
1687 (indent-to (min fortran-line-number-indent extra-space)))) | |
1688 (skip-chars-forward "0-9"))))) | |
1689 ;; Point is now after any continuation character or line number. | |
1690 ;; Put body of statement where specified. | |
1691 (delete-horizontal-space) | |
1692 (indent-to col) | |
1693 ;; Indent any comment following code on the same line. | |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1694 (when (fortran-find-comment-start-skip) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1695 (goto-char (match-beginning 0)) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1696 (unless (= (current-column) (fortran-comment-indent)) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1697 (delete-horizontal-space) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1698 (indent-to (fortran-comment-indent))))))) |
332 | 1699 |
1700 (defun fortran-line-number-indented-correctly-p () | |
1701 "Return t if current line's line number is correctly indented. | |
1702 Do not call if there is no line number." | |
1703 (save-excursion | |
1704 (beginning-of-line) | |
1705 (skip-chars-forward " \t") | |
1706 (and (<= (current-column) fortran-line-number-indent) | |
1707 (or (= (current-column) fortran-line-number-indent) | |
1708 (progn (skip-chars-forward "0-9") | |
1709 (= (current-column) 5)))))) | |
1710 | |
1711 (defun fortran-check-for-matching-do () | |
20805
918448e5d294
Various docstring and commentary fixes, including
Dave Love <fx@gnu.org>
parents:
20277
diff
changeset
|
1712 "When called from a numbered statement, return t if matching DO is found. |
918448e5d294
Various docstring and commentary fixes, including
Dave Love <fx@gnu.org>
parents:
20277
diff
changeset
|
1713 Otherwise return nil." |
26560
edf06ac56d1f
(fortran-comment-line-start): Renamed from comment-line-start.
Dave Love <fx@gnu.org>
parents:
25162
diff
changeset
|
1714 (let ((case-fold-search t) |
edf06ac56d1f
(fortran-comment-line-start): Renamed from comment-line-start.
Dave Love <fx@gnu.org>
parents:
25162
diff
changeset
|
1715 charnum) |
332 | 1716 (save-excursion |
1717 (beginning-of-line) | |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1718 (when (looking-at "[ \t]*[0-9]+") |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1719 (skip-chars-forward " \t") |
50611 | 1720 (skip-chars-forward "0") ; skip past leading zeros |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1721 (setq charnum |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1722 (buffer-substring (point) (progn |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1723 (skip-chars-forward "0-9") |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1724 (point)))) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1725 (beginning-of-line) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1726 (save-restriction |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1727 (save-excursion |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1728 (narrow-to-defun) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1729 (and (re-search-backward |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1730 (concat |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1731 "\\(^[ \t0-9]*do[ \t]*0*" |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1732 charnum "\\b\\)\\|" "\\(^[ \t]*0*" |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1733 charnum "\\b\\)") |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1734 nil t) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1735 (looking-at |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1736 (concat "^[ \t0-9]*do[ \t]*0*" |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1737 charnum))))))))) |
332 | 1738 |
43882
e601e469e7a4
(fortran-mode): Set comment-padding to "$$$".
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42443
diff
changeset
|
1739 (defun fortran-find-comment-start-skip (&optional all) |
1548 | 1740 "Move to past `comment-start-skip' found on current line. |
43882
e601e469e7a4
(fortran-mode): Set comment-padding to "$$$".
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42443
diff
changeset
|
1741 Return non-nil if `comment-start-skip' found, nil if not. |
e601e469e7a4
(fortran-mode): Set comment-padding to "$$$".
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42443
diff
changeset
|
1742 If ALL is nil, only match comments that start in column > 0." |
e601e469e7a4
(fortran-mode): Set comment-padding to "$$$".
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42443
diff
changeset
|
1743 ;; Hopefully at some point we can just use the line below! -stef |
e601e469e7a4
(fortran-mode): Set comment-padding to "$$$".
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42443
diff
changeset
|
1744 ;; (comment-search-forward (line-end-position) t)) |
e601e469e7a4
(fortran-mode): Set comment-padding to "$$$".
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42443
diff
changeset
|
1745 (when (or all comment-start-skip) |
e601e469e7a4
(fortran-mode): Set comment-padding to "$$$".
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42443
diff
changeset
|
1746 (let ((pos (point)) |
e601e469e7a4
(fortran-mode): Set comment-padding to "$$$".
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42443
diff
changeset
|
1747 (css (if comment-start-skip |
e601e469e7a4
(fortran-mode): Set comment-padding to "$$$".
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42443
diff
changeset
|
1748 (concat fortran-comment-line-start-skip |
e601e469e7a4
(fortran-mode): Set comment-padding to "$$$".
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42443
diff
changeset
|
1749 "\\|" comment-start-skip) |
e601e469e7a4
(fortran-mode): Set comment-padding to "$$$".
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42443
diff
changeset
|
1750 fortran-comment-line-start-skip))) |
e601e469e7a4
(fortran-mode): Set comment-padding to "$$$".
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42443
diff
changeset
|
1751 (when (re-search-forward css (line-end-position) t) |
e601e469e7a4
(fortran-mode): Set comment-padding to "$$$".
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42443
diff
changeset
|
1752 (if (and (or all (> (match-beginning 0) (line-beginning-position))) |
e601e469e7a4
(fortran-mode): Set comment-padding to "$$$".
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42443
diff
changeset
|
1753 (or (save-match-data |
e601e469e7a4
(fortran-mode): Set comment-padding to "$$$".
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42443
diff
changeset
|
1754 (not (fortran-is-in-string-p (match-beginning 0)))) |
e601e469e7a4
(fortran-mode): Set comment-padding to "$$$".
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42443
diff
changeset
|
1755 ;; Recurse for rest of line. |
e601e469e7a4
(fortran-mode): Set comment-padding to "$$$".
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42443
diff
changeset
|
1756 (fortran-find-comment-start-skip all))) |
e601e469e7a4
(fortran-mode): Set comment-padding to "$$$".
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42443
diff
changeset
|
1757 (point) |
e601e469e7a4
(fortran-mode): Set comment-padding to "$$$".
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42443
diff
changeset
|
1758 (goto-char pos) |
e601e469e7a4
(fortran-mode): Set comment-padding to "$$$".
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42443
diff
changeset
|
1759 nil))))) |
11516
e7c26522b881
Use new fortran-match-!-comment to do !-style fontification; do rest in regexps
Simon Marshall <simon@gnu.org>
parents:
10883
diff
changeset
|
1760 |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1761 ;; From: ralf@up3aud1.gwdg.de (Ralf Fassel) |
21410
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
1762 ;; Test if TAB format continuation lines work. |
3400
927c3d8374ef
(fortran-mode): Replace comment-indent-hook with
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
1763 (defun fortran-is-in-string-p (where) |
20805
918448e5d294
Various docstring and commentary fixes, including
Dave Love <fx@gnu.org>
parents:
20277
diff
changeset
|
1764 "Return non-nil iff WHERE (a buffer position) is inside a Fortran string." |
3400
927c3d8374ef
(fortran-mode): Replace comment-indent-hook with
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
1765 (save-excursion |
927c3d8374ef
(fortran-mode): Replace comment-indent-hook with
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
1766 (goto-char where) |
927c3d8374ef
(fortran-mode): Replace comment-indent-hook with
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
1767 (cond |
927c3d8374ef
(fortran-mode): Replace comment-indent-hook with
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
1768 ((bolp) nil) ; bol is never inside a string |
927c3d8374ef
(fortran-mode): Replace comment-indent-hook with
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
1769 ((save-excursion ; comment lines too |
21410
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
1770 (beginning-of-line) |
26560
edf06ac56d1f
(fortran-comment-line-start): Renamed from comment-line-start.
Dave Love <fx@gnu.org>
parents:
25162
diff
changeset
|
1771 (looking-at fortran-comment-line-start-skip)) nil) |
50611 | 1772 (t (let ((parse-state '(0 nil nil nil nil nil 0)) |
3400
927c3d8374ef
(fortran-mode): Replace comment-indent-hook with
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
1773 (quoted-comment-start (if comment-start |
927c3d8374ef
(fortran-mode): Replace comment-indent-hook with
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
1774 (regexp-quote comment-start))) |
927c3d8374ef
(fortran-mode): Replace comment-indent-hook with
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
1775 (not-done t) |
26560
edf06ac56d1f
(fortran-comment-line-start): Renamed from comment-line-start.
Dave Love <fx@gnu.org>
parents:
25162
diff
changeset
|
1776 parse-limit end-of-line) |
50611 | 1777 ;; Move to start of current statement. |
3400
927c3d8374ef
(fortran-mode): Replace comment-indent-hook with
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
1778 (fortran-next-statement) |
927c3d8374ef
(fortran-mode): Replace comment-indent-hook with
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
1779 (fortran-previous-statement) |
50611 | 1780 ;; Now parse up to WHERE. |
3400
927c3d8374ef
(fortran-mode): Replace comment-indent-hook with
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
1781 (while not-done |
50611 | 1782 (if (or ;; Skip to next line if: |
3400
927c3d8374ef
(fortran-mode): Replace comment-indent-hook with
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
1783 ;; - comment line? |
26560
edf06ac56d1f
(fortran-comment-line-start): Renamed from comment-line-start.
Dave Love <fx@gnu.org>
parents:
25162
diff
changeset
|
1784 (looking-at fortran-comment-line-start-skip) |
3400
927c3d8374ef
(fortran-mode): Replace comment-indent-hook with
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
1785 ;; - at end of line? |
927c3d8374ef
(fortran-mode): Replace comment-indent-hook with
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
1786 (eolp) |
927c3d8374ef
(fortran-mode): Replace comment-indent-hook with
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
1787 ;; - not in a string and after comment-start? |
927c3d8374ef
(fortran-mode): Replace comment-indent-hook with
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
1788 (and (not (nth 3 parse-state)) |
927c3d8374ef
(fortran-mode): Replace comment-indent-hook with
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
1789 comment-start |
927c3d8374ef
(fortran-mode): Replace comment-indent-hook with
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
1790 (equal comment-start |
927c3d8374ef
(fortran-mode): Replace comment-indent-hook with
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
1791 (char-to-string (preceding-char))))) |
21410
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
1792 (if (> (forward-line) 0) |
3400
927c3d8374ef
(fortran-mode): Replace comment-indent-hook with
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
1793 (setq not-done nil)) |
927c3d8374ef
(fortran-mode): Replace comment-indent-hook with
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
1794 ;; else: |
50611 | 1795 ;; If we are at beginning of code line, skip any |
3400
927c3d8374ef
(fortran-mode): Replace comment-indent-hook with
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
1796 ;; whitespace, labels and tab continuation markers. |
927c3d8374ef
(fortran-mode): Replace comment-indent-hook with
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
1797 (if (bolp) (skip-chars-forward " \t0-9")) |
50611 | 1798 ;; If we are in column <= 5 now, check for continuation char. |
3400
927c3d8374ef
(fortran-mode): Replace comment-indent-hook with
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
1799 (cond ((= 5 (current-column)) (forward-char 1)) |
927c3d8374ef
(fortran-mode): Replace comment-indent-hook with
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
1800 ((and (< (current-column) 5) |
927c3d8374ef
(fortran-mode): Replace comment-indent-hook with
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
1801 (equal fortran-continuation-string |
927c3d8374ef
(fortran-mode): Replace comment-indent-hook with
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
1802 (char-to-string (following-char))) |
927c3d8374ef
(fortran-mode): Replace comment-indent-hook with
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
1803 (forward-char 1)))) |
50611 | 1804 ;; Find out parse-limit from here. |
26560
edf06ac56d1f
(fortran-comment-line-start): Renamed from comment-line-start.
Dave Love <fx@gnu.org>
parents:
25162
diff
changeset
|
1805 (setq end-of-line (line-end-position)) |
3400
927c3d8374ef
(fortran-mode): Replace comment-indent-hook with
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
1806 (setq parse-limit (min where end-of-line)) |
50611 | 1807 ;; Parse max up to comment-start, if non-nil and in current line. |
3400
927c3d8374ef
(fortran-mode): Replace comment-indent-hook with
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
1808 (if comment-start |
927c3d8374ef
(fortran-mode): Replace comment-indent-hook with
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
1809 (save-excursion |
927c3d8374ef
(fortran-mode): Replace comment-indent-hook with
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
1810 (if (re-search-forward quoted-comment-start end-of-line t) |
927c3d8374ef
(fortran-mode): Replace comment-indent-hook with
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
1811 (setq parse-limit (min (point) parse-limit))))) |
50611 | 1812 ;; Now parse if still in limits. |
3400
927c3d8374ef
(fortran-mode): Replace comment-indent-hook with
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
1813 (if (< (point) where) |
927c3d8374ef
(fortran-mode): Replace comment-indent-hook with
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
1814 (setq parse-state (parse-partial-sexp |
927c3d8374ef
(fortran-mode): Replace comment-indent-hook with
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
1815 (point) parse-limit nil nil parse-state)) |
26560
edf06ac56d1f
(fortran-comment-line-start): Renamed from comment-line-start.
Dave Love <fx@gnu.org>
parents:
25162
diff
changeset
|
1816 (setq not-done nil)))) |
50611 | 1817 ;; Result. |
3400
927c3d8374ef
(fortran-mode): Replace comment-indent-hook with
Richard M. Stallman <rms@gnu.org>
parents:
2307
diff
changeset
|
1818 (nth 3 parse-state)))))) |
1548 | 1819 |
31847 | 1820 ;; From old version. |
1821 (defalias 'fortran-auto-fill-mode 'auto-fill-mode) | |
1548 | 1822 |
12772
f4b2913b7f58
(fortran-auto-fill-mode, fortran-do-auto-fill, fortran-fill):
Richard M. Stallman <rms@gnu.org>
parents:
12715
diff
changeset
|
1823 (defun fortran-fill () |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1824 "Fill the current line at an appropriate point(s)." |
30149
1c8c6dbfcfb9
Don't require easymenu. Use repeat counts in various regexps.
Dave Love <fx@gnu.org>
parents:
28079
diff
changeset
|
1825 (let* ((auto-fill-function #'fortran-auto-fill) |
24800 | 1826 (opoint (point)) |
26560
edf06ac56d1f
(fortran-comment-line-start): Renamed from comment-line-start.
Dave Love <fx@gnu.org>
parents:
25162
diff
changeset
|
1827 (bol (line-beginning-position)) |
edf06ac56d1f
(fortran-comment-line-start): Renamed from comment-line-start.
Dave Love <fx@gnu.org>
parents:
25162
diff
changeset
|
1828 (eol (line-end-position)) |
1548 | 1829 (bos (min eol (+ bol (fortran-current-line-indentation)))) |
53700
444062830592
(fortran-break-before-delimiters): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
52401
diff
changeset
|
1830 ;; If in a string at fill-column, break it either before the |
444062830592
(fortran-break-before-delimiters): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
52401
diff
changeset
|
1831 ;; initial quote, or at fill-col (if string is too long). |
1548 | 1832 (quote |
1833 (save-excursion | |
1834 (goto-char bol) | |
50579
603b312a33d1
(fortran-previous-statement): Check for fortran-continuation-string.
Glenn Morris <rgm@gnu.org>
parents:
50561
diff
changeset
|
1835 ;; OK to break quotes on comment lines. |
603b312a33d1
(fortran-previous-statement): Check for fortran-continuation-string.
Glenn Morris <rgm@gnu.org>
parents:
50561
diff
changeset
|
1836 (unless (looking-at fortran-comment-line-start-skip) |
603b312a33d1
(fortran-previous-statement): Check for fortran-continuation-string.
Glenn Morris <rgm@gnu.org>
parents:
50561
diff
changeset
|
1837 (let (fcpoint start) |
53700
444062830592
(fortran-break-before-delimiters): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
52401
diff
changeset
|
1838 (move-to-column fill-column) |
444062830592
(fortran-break-before-delimiters): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
52401
diff
changeset
|
1839 (when (fortran-is-in-string-p (setq fcpoint (point))) |
444062830592
(fortran-break-before-delimiters): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
52401
diff
changeset
|
1840 (save-excursion |
444062830592
(fortran-break-before-delimiters): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
52401
diff
changeset
|
1841 (re-search-backward "\\S\"\\s\"\\S\"?" bol t) |
444062830592
(fortran-break-before-delimiters): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
52401
diff
changeset
|
1842 (setq start |
444062830592
(fortran-break-before-delimiters): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
52401
diff
changeset
|
1843 (if fortran-break-before-delimiters |
444062830592
(fortran-break-before-delimiters): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
52401
diff
changeset
|
1844 (point) |
444062830592
(fortran-break-before-delimiters): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
52401
diff
changeset
|
1845 (1+ (point))))) |
444062830592
(fortran-break-before-delimiters): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
52401
diff
changeset
|
1846 (if (re-search-forward "\\S\"\\s\"\\S\"" eol t) |
444062830592
(fortran-break-before-delimiters): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
52401
diff
changeset
|
1847 (backward-char 2)) |
61107
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
1848 ;; If the current string is longer than (fill-column |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
1849 ;; - 6) chars, break it at the fill column (else |
9554f19ae068
Reformat and update copyright years.
Glenn Morris <rgm@gnu.org>
parents:
59996
diff
changeset
|
1850 ;; infinite loop). |
53700
444062830592
(fortran-break-before-delimiters): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
52401
diff
changeset
|
1851 (if (> (- (point) start) |
444062830592
(fortran-break-before-delimiters): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
52401
diff
changeset
|
1852 (- fill-column 6 fortran-continuation-indent)) |
444062830592
(fortran-break-before-delimiters): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
52401
diff
changeset
|
1853 fcpoint |
444062830592
(fortran-break-before-delimiters): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
52401
diff
changeset
|
1854 start)))))) |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1855 ;; Decide where to split the line. If a position for a quoted |
1548 | 1856 ;; string was found above then use that, else break the line |
53700
444062830592
(fortran-break-before-delimiters): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
52401
diff
changeset
|
1857 ;; before/after the last delimiter. |
1548 | 1858 (fill-point |
1859 (or quote | |
1860 (save-excursion | |
53700
444062830592
(fortran-break-before-delimiters): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
52401
diff
changeset
|
1861 ;; If f-b-b-d is t, have an extra column to play with, |
444062830592
(fortran-break-before-delimiters): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
52401
diff
changeset
|
1862 ;; since delimiter gets shifted to new line. |
444062830592
(fortran-break-before-delimiters): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
52401
diff
changeset
|
1863 (move-to-column (if fortran-break-before-delimiters |
444062830592
(fortran-break-before-delimiters): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
52401
diff
changeset
|
1864 (1+ fill-column) |
444062830592
(fortran-break-before-delimiters): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
52401
diff
changeset
|
1865 fill-column)) |
444062830592
(fortran-break-before-delimiters): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
52401
diff
changeset
|
1866 (let ((repeat t)) |
444062830592
(fortran-break-before-delimiters): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
52401
diff
changeset
|
1867 (while repeat |
444062830592
(fortran-break-before-delimiters): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
52401
diff
changeset
|
1868 (setq repeat nil) |
444062830592
(fortran-break-before-delimiters): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
52401
diff
changeset
|
1869 ;; Adapted from f90-find-breakpoint. |
55251
f5da8d364dba
(fortran-fill): Use local var `bol' rather than duplicate call to
Glenn Morris <rgm@gnu.org>
parents:
53700
diff
changeset
|
1870 (re-search-backward fortran-break-delimiters-re bol) |
53700
444062830592
(fortran-break-before-delimiters): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
52401
diff
changeset
|
1871 (if (not fortran-break-before-delimiters) |
444062830592
(fortran-break-before-delimiters): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
52401
diff
changeset
|
1872 (if (looking-at fortran-no-break-re) |
444062830592
(fortran-break-before-delimiters): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
52401
diff
changeset
|
1873 ;; Deal with cases such as "**" split over |
444062830592
(fortran-break-before-delimiters): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
52401
diff
changeset
|
1874 ;; fill-col. Simpler alternative would be |
444062830592
(fortran-break-before-delimiters): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
52401
diff
changeset
|
1875 ;; to start from (1- fill-column) above. |
444062830592
(fortran-break-before-delimiters): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
52401
diff
changeset
|
1876 (if (> (+ 2 (current-column)) fill-column) |
444062830592
(fortran-break-before-delimiters): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
52401
diff
changeset
|
1877 (setq repeat t) |
444062830592
(fortran-break-before-delimiters): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
52401
diff
changeset
|
1878 (forward-char 2)) |
444062830592
(fortran-break-before-delimiters): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
52401
diff
changeset
|
1879 (forward-char 1)) |
444062830592
(fortran-break-before-delimiters): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
52401
diff
changeset
|
1880 (backward-char) |
444062830592
(fortran-break-before-delimiters): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
52401
diff
changeset
|
1881 (or (looking-at fortran-no-break-re) |
444062830592
(fortran-break-before-delimiters): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
52401
diff
changeset
|
1882 (forward-char))))) |
444062830592
(fortran-break-before-delimiters): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
52401
diff
changeset
|
1883 ;; Line indented beyond fill-column? |
444062830592
(fortran-break-before-delimiters): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
52401
diff
changeset
|
1884 (when (<= (point) bos) |
50579
603b312a33d1
(fortran-previous-statement): Check for fortran-continuation-string.
Glenn Morris <rgm@gnu.org>
parents:
50561
diff
changeset
|
1885 (move-to-column (1+ fill-column)) |
50611 | 1886 ;; What is this doing??? |
50579
603b312a33d1
(fortran-previous-statement): Check for fortran-continuation-string.
Glenn Morris <rgm@gnu.org>
parents:
50561
diff
changeset
|
1887 (or (re-search-forward "[\t\n,'+-/*)=]" eol t) |
603b312a33d1
(fortran-previous-statement): Check for fortran-continuation-string.
Glenn Morris <rgm@gnu.org>
parents:
50561
diff
changeset
|
1888 (goto-char bol))) |
1548 | 1889 (if (bolp) |
53700
444062830592
(fortran-break-before-delimiters): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
52401
diff
changeset
|
1890 (re-search-forward "[ \t]" opoint t)) |
444062830592
(fortran-break-before-delimiters): Doc fix.
Glenn Morris <rgm@gnu.org>
parents:
52401
diff
changeset
|
1891 (point))))) |
50611 | 1892 ;; If we are in an in-line comment, don't break unless the |
1548 | 1893 ;; line of code is longer than it should be. Otherwise |
1894 ;; break the line at the column computed above. | |
1895 ;; | |
50611 | 1896 ;; Need to use fortran-find-comment-start-skip to make sure that |
1897 ;; quoted !'s don't prevent a break. | |
43882
e601e469e7a4
(fortran-mode): Set comment-padding to "$$$".
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42443
diff
changeset
|
1898 (when (and (save-excursion |
e601e469e7a4
(fortran-mode): Set comment-padding to "$$$".
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42443
diff
changeset
|
1899 (beginning-of-line) |
49755
fb628fd7f726
(fortran-fill): Fill lines that do not have comments.
Glenn Morris <rgm@gnu.org>
parents:
49751
diff
changeset
|
1900 (if (not (fortran-find-comment-start-skip)) |
fb628fd7f726
(fortran-fill): Fill lines that do not have comments.
Glenn Morris <rgm@gnu.org>
parents:
49751
diff
changeset
|
1901 t |
43882
e601e469e7a4
(fortran-mode): Set comment-padding to "$$$".
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42443
diff
changeset
|
1902 (goto-char (match-beginning 0)) |
e601e469e7a4
(fortran-mode): Set comment-padding to "$$$".
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42443
diff
changeset
|
1903 (>= (point) fill-point))) |
e601e469e7a4
(fortran-mode): Set comment-padding to "$$$".
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42443
diff
changeset
|
1904 (save-excursion |
e601e469e7a4
(fortran-mode): Set comment-padding to "$$$".
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42443
diff
changeset
|
1905 (goto-char fill-point) |
e601e469e7a4
(fortran-mode): Set comment-padding to "$$$".
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42443
diff
changeset
|
1906 (not (bolp))) |
e601e469e7a4
(fortran-mode): Set comment-padding to "$$$".
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42443
diff
changeset
|
1907 (> (save-excursion |
e601e469e7a4
(fortran-mode): Set comment-padding to "$$$".
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42443
diff
changeset
|
1908 (goto-char opoint) |
e601e469e7a4
(fortran-mode): Set comment-padding to "$$$".
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42443
diff
changeset
|
1909 (current-column)) |
e601e469e7a4
(fortran-mode): Set comment-padding to "$$$".
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42443
diff
changeset
|
1910 (min (1+ fill-column) |
e601e469e7a4
(fortran-mode): Set comment-padding to "$$$".
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42443
diff
changeset
|
1911 (+ (fortran-calculate-indent) |
e601e469e7a4
(fortran-mode): Set comment-padding to "$$$".
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42443
diff
changeset
|
1912 fortran-continuation-indent)))) |
e601e469e7a4
(fortran-mode): Set comment-padding to "$$$".
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42443
diff
changeset
|
1913 (goto-char fill-point) |
e601e469e7a4
(fortran-mode): Set comment-padding to "$$$".
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42443
diff
changeset
|
1914 (fortran-break-line) |
e601e469e7a4
(fortran-mode): Set comment-padding to "$$$".
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42443
diff
changeset
|
1915 (end-of-line)))) |
26560
edf06ac56d1f
(fortran-comment-line-start): Renamed from comment-line-start.
Dave Love <fx@gnu.org>
parents:
25162
diff
changeset
|
1916 |
1548 | 1917 (defun fortran-break-line () |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1918 "Call `fortran-split-line'. Joins continuation lines first, then refills." |
68244
d5d3ecca3943
Move defvars out of eval-when-compile.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66963
diff
changeset
|
1919 (let ((bol (line-beginning-position)) |
43882
e601e469e7a4
(fortran-mode): Set comment-padding to "$$$".
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42443
diff
changeset
|
1920 (comment-string |
e601e469e7a4
(fortran-mode): Set comment-padding to "$$$".
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42443
diff
changeset
|
1921 (save-excursion |
e601e469e7a4
(fortran-mode): Set comment-padding to "$$$".
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42443
diff
changeset
|
1922 (if (fortran-find-comment-start-skip) |
e601e469e7a4
(fortran-mode): Set comment-padding to "$$$".
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42443
diff
changeset
|
1923 (delete-and-extract-region |
e601e469e7a4
(fortran-mode): Set comment-padding to "$$$".
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42443
diff
changeset
|
1924 (match-beginning 0) (line-end-position)))))) |
50611 | 1925 ;; Forward line 1 really needs to go to next non white line. |
21410
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
1926 (if (save-excursion (forward-line) |
43882
e601e469e7a4
(fortran-mode): Set comment-padding to "$$$".
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
42443
diff
changeset
|
1927 (looking-at " \\{5\\}[^ 0\n]\\|\t[1-9]")) |
1548 | 1928 (progn |
12715
ad18c3ad23b3
(fortran-break-line): Fixed a bug that sometimes
Richard M. Stallman <rms@gnu.org>
parents:
12386
diff
changeset
|
1929 (end-of-line) |
ad18c3ad23b3
(fortran-break-line): Fixed a bug that sometimes
Richard M. Stallman <rms@gnu.org>
parents:
12386
diff
changeset
|
1930 (delete-region (point) (match-end 0)) |
1548 | 1931 (delete-horizontal-space) |
12772
f4b2913b7f58
(fortran-auto-fill-mode, fortran-do-auto-fill, fortran-fill):
Richard M. Stallman <rms@gnu.org>
parents:
12715
diff
changeset
|
1932 (fortran-fill)) |
1548 | 1933 (fortran-split-line)) |
1934 (if comment-string | |
1935 (save-excursion | |
1936 (goto-char bol) | |
1937 (end-of-line) | |
1938 (delete-horizontal-space) | |
30149
1c8c6dbfcfb9
Don't require easymenu. Use repeat counts in various regexps.
Dave Love <fx@gnu.org>
parents:
28079
diff
changeset
|
1939 (indent-to (fortran-comment-indent)) |
1548 | 1940 (insert comment-string))))) |
1941 | |
1633
65af7bcd5e31
* fortran.el: New version of version 1.30 (!) from Stephen A. Wood
Jim Blandy <jimb@redhat.com>
parents:
1611
diff
changeset
|
1942 (defun fortran-analyze-file-format () |
20805
918448e5d294
Various docstring and commentary fixes, including
Dave Love <fx@gnu.org>
parents:
20277
diff
changeset
|
1943 "Return nil if fixed format is used, t if TAB formatting is used. |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1944 Use `fortran-tab-mode-default' if no non-comment statements are found |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1945 before the end or in the first `fortran-analyze-depth' lines." |
1633
65af7bcd5e31
* fortran.el: New version of version 1.30 (!) from Stephen A. Wood
Jim Blandy <jimb@redhat.com>
parents:
1611
diff
changeset
|
1946 (let ((i 0)) |
65af7bcd5e31
* fortran.el: New version of version 1.30 (!) from Stephen A. Wood
Jim Blandy <jimb@redhat.com>
parents:
1611
diff
changeset
|
1947 (save-excursion |
65af7bcd5e31
* fortran.el: New version of version 1.30 (!) from Stephen A. Wood
Jim Blandy <jimb@redhat.com>
parents:
1611
diff
changeset
|
1948 (goto-char (point-min)) |
65af7bcd5e31
* fortran.el: New version of version 1.30 (!) from Stephen A. Wood
Jim Blandy <jimb@redhat.com>
parents:
1611
diff
changeset
|
1949 (while (not (or |
65af7bcd5e31
* fortran.el: New version of version 1.30 (!) from Stephen A. Wood
Jim Blandy <jimb@redhat.com>
parents:
1611
diff
changeset
|
1950 (eobp) |
26560
edf06ac56d1f
(fortran-comment-line-start): Renamed from comment-line-start.
Dave Love <fx@gnu.org>
parents:
25162
diff
changeset
|
1951 (eq (char-after) ?\t) |
30149
1c8c6dbfcfb9
Don't require easymenu. Use repeat counts in various regexps.
Dave Love <fx@gnu.org>
parents:
28079
diff
changeset
|
1952 (looking-at " \\{6\\}") |
1633
65af7bcd5e31
* fortran.el: New version of version 1.30 (!) from Stephen A. Wood
Jim Blandy <jimb@redhat.com>
parents:
1611
diff
changeset
|
1953 (> i fortran-analyze-depth))) |
65af7bcd5e31
* fortran.el: New version of version 1.30 (!) from Stephen A. Wood
Jim Blandy <jimb@redhat.com>
parents:
1611
diff
changeset
|
1954 (forward-line) |
65af7bcd5e31
* fortran.el: New version of version 1.30 (!) from Stephen A. Wood
Jim Blandy <jimb@redhat.com>
parents:
1611
diff
changeset
|
1955 (setq i (1+ i))) |
65af7bcd5e31
* fortran.el: New version of version 1.30 (!) from Stephen A. Wood
Jim Blandy <jimb@redhat.com>
parents:
1611
diff
changeset
|
1956 (cond |
26560
edf06ac56d1f
(fortran-comment-line-start): Renamed from comment-line-start.
Dave Love <fx@gnu.org>
parents:
25162
diff
changeset
|
1957 ((eq (char-after) ?\t) t) |
30149
1c8c6dbfcfb9
Don't require easymenu. Use repeat counts in various regexps.
Dave Love <fx@gnu.org>
parents:
28079
diff
changeset
|
1958 ((looking-at " \\{6\\}") nil) |
50600
418cea060d92
(fortran-tab-mode-minor-mode-string): Delete this variable,
Glenn Morris <rgm@gnu.org>
parents:
50598
diff
changeset
|
1959 (t fortran-tab-mode-default))))) |
1633
65af7bcd5e31
* fortran.el: New version of version 1.30 (!) from Stephen A. Wood
Jim Blandy <jimb@redhat.com>
parents:
1611
diff
changeset
|
1960 |
21410
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
1961 (defun fortran-fill-paragraph (&optional justify) |
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
1962 "Fill surrounding comment block as paragraphs, else fill statement. |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1963 Intended as the value of `fill-paragraph-function'. |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1964 A comment block is filled by calling `fill-comment-paragraph' with |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1965 argument JUSTIFY, otherwise `fortran-fill-statement' is called. |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1966 Always returns non-nil (to prevent `fill-paragraph' being called)." |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1967 (interactive "*P") |
49751
cc3cda196420
(fortran-mode): Set comment-use-syntax.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48815
diff
changeset
|
1968 (or (fill-comment-paragraph justify) |
cc3cda196420
(fortran-mode): Set comment-use-syntax.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48815
diff
changeset
|
1969 (fortran-fill-statement) |
cc3cda196420
(fortran-mode): Set comment-use-syntax.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
48815
diff
changeset
|
1970 t)) |
21410
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
1971 |
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
1972 (defun fortran-fill-statement () |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1973 "Fill a Fortran statement up to `fill-column'." |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1974 (interactive "*") |
30149
1c8c6dbfcfb9
Don't require easymenu. Use repeat counts in various regexps.
Dave Love <fx@gnu.org>
parents:
28079
diff
changeset
|
1975 (let ((auto-fill-function #'fortran-auto-fill)) |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1976 (unless (save-excursion |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1977 (beginning-of-line) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1978 (or (looking-at "[ \t]*$") |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1979 (looking-at fortran-comment-line-start-skip) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1980 (and comment-start-skip |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1981 (looking-at (concat "[ \t]*" comment-start-skip))))) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1982 (save-excursion |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1983 ;; Find beginning of statement. |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1984 (fortran-next-statement) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1985 (fortran-previous-statement) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1986 ;; Re-indent initially. |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1987 (fortran-indent-line) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1988 ;; Replace newline plus continuation field plus indentation with |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1989 ;; single space. |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1990 (while (progn |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1991 (forward-line) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1992 (fortran-remove-continuation))) |
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
1993 (fortran-previous-statement))) |
24800 | 1994 (fortran-indent-line))) |
21410
d68f866455c6
Use regexp-opt and eval-and-compile to
Dave Love <fx@gnu.org>
parents:
21167
diff
changeset
|
1995 |
45067
b7f97570f3f7
(fortran-strip-sequence-nos): Rename from typo `fortran-strip-sqeuence-nos'.
Glenn Morris <rgm@gnu.org>
parents:
44726
diff
changeset
|
1996 (defun fortran-strip-sequence-nos (&optional do-space) |
36171
5d300b531da9
(fortran-strip-sqeuence-nos): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
35244
diff
changeset
|
1997 "Delete all text in column 72 and up (assumed to be sequence numbers). |
5d300b531da9
(fortran-strip-sqeuence-nos): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
35244
diff
changeset
|
1998 Normally also deletes trailing whitespace after stripping such text. |
5d300b531da9
(fortran-strip-sqeuence-nos): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
35244
diff
changeset
|
1999 Supplying prefix arg DO-SPACE prevents stripping the whitespace." |
50598
5f26cbba48ba
Whitespace changes, some re-ordering of code, trivial commentary change.
Glenn Morris <rgm@gnu.org>
parents:
50579
diff
changeset
|
2000 (interactive "*p") |
26665
4aede027bedb
(fortran-strip-sqeuence-nos): New command.
Dave Love <fx@gnu.org>
parents:
26560
diff
changeset
|
2001 (save-excursion |
4aede027bedb
(fortran-strip-sqeuence-nos): New command.
Dave Love <fx@gnu.org>
parents:
26560
diff
changeset
|
2002 (goto-char (point-min)) |
35244
682d1ffa0b5e
(fortran-mode-map): Modify Customization
Dave Love <fx@gnu.org>
parents:
33947
diff
changeset
|
2003 (while (re-search-forward "^.\\{72\\}\\(.*\\)" nil t) |
26665
4aede027bedb
(fortran-strip-sqeuence-nos): New command.
Dave Love <fx@gnu.org>
parents:
26560
diff
changeset
|
2004 (replace-match "" nil nil nil 1) |
4aede027bedb
(fortran-strip-sqeuence-nos): New command.
Dave Love <fx@gnu.org>
parents:
26560
diff
changeset
|
2005 (unless do-space (delete-horizontal-space))))) |
4aede027bedb
(fortran-strip-sqeuence-nos): New command.
Dave Love <fx@gnu.org>
parents:
26560
diff
changeset
|
2006 |
28079
07cbc9269fbc
(fortran-comment-line-start): Define as
Dave Love <fx@gnu.org>
parents:
27417
diff
changeset
|
2007 ;; This code used to live in add-log.el, but this is a better place |
07cbc9269fbc
(fortran-comment-line-start): Define as
Dave Love <fx@gnu.org>
parents:
27417
diff
changeset
|
2008 ;; for it. |
07cbc9269fbc
(fortran-comment-line-start): Define as
Dave Love <fx@gnu.org>
parents:
27417
diff
changeset
|
2009 (defun fortran-current-defun () |
07cbc9269fbc
(fortran-comment-line-start): Define as
Dave Love <fx@gnu.org>
parents:
27417
diff
changeset
|
2010 "Function to use for `add-log-current-defun-function' in Fortran mode." |
46979
0ea82abe061c
(fortran-current-defun): Use save-excursion.
Glenn Morris <rgm@gnu.org>
parents:
45345
diff
changeset
|
2011 (save-excursion |
0ea82abe061c
(fortran-current-defun): Use save-excursion.
Glenn Morris <rgm@gnu.org>
parents:
45345
diff
changeset
|
2012 ;; We must be inside function body for this to work. |
0ea82abe061c
(fortran-current-defun): Use save-excursion.
Glenn Morris <rgm@gnu.org>
parents:
45345
diff
changeset
|
2013 (fortran-beginning-of-subprogram) |
0ea82abe061c
(fortran-current-defun): Use save-excursion.
Glenn Morris <rgm@gnu.org>
parents:
45345
diff
changeset
|
2014 (let ((case-fold-search t)) ; case-insensitive |
50611 | 2015 ;; Search for fortran subprogram start. |
46979
0ea82abe061c
(fortran-current-defun): Use save-excursion.
Glenn Morris <rgm@gnu.org>
parents:
45345
diff
changeset
|
2016 (if (re-search-forward |
0ea82abe061c
(fortran-current-defun): Use save-excursion.
Glenn Morris <rgm@gnu.org>
parents:
45345
diff
changeset
|
2017 (concat "^[ \t]*\\(program\\|subroutine\\|function" |
0ea82abe061c
(fortran-current-defun): Use save-excursion.
Glenn Morris <rgm@gnu.org>
parents:
45345
diff
changeset
|
2018 "\\|[ \ta-z0-9*()]*[ \t]+function\\|" |
0ea82abe061c
(fortran-current-defun): Use save-excursion.
Glenn Morris <rgm@gnu.org>
parents:
45345
diff
changeset
|
2019 "\\(block[ \t]*data\\)\\)") |
0ea82abe061c
(fortran-current-defun): Use save-excursion.
Glenn Morris <rgm@gnu.org>
parents:
45345
diff
changeset
|
2020 (save-excursion (fortran-end-of-subprogram) |
0ea82abe061c
(fortran-current-defun): Use save-excursion.
Glenn Morris <rgm@gnu.org>
parents:
45345
diff
changeset
|
2021 (point)) |
0ea82abe061c
(fortran-current-defun): Use save-excursion.
Glenn Morris <rgm@gnu.org>
parents:
45345
diff
changeset
|
2022 t) |
0ea82abe061c
(fortran-current-defun): Use save-excursion.
Glenn Morris <rgm@gnu.org>
parents:
45345
diff
changeset
|
2023 (or (match-string-no-properties 2) |
0ea82abe061c
(fortran-current-defun): Use save-excursion.
Glenn Morris <rgm@gnu.org>
parents:
45345
diff
changeset
|
2024 (progn |
50611 | 2025 ;; Move to EOL or before first left paren. |
46979
0ea82abe061c
(fortran-current-defun): Use save-excursion.
Glenn Morris <rgm@gnu.org>
parents:
45345
diff
changeset
|
2026 (if (re-search-forward "[(\n]" nil t) |
0ea82abe061c
(fortran-current-defun): Use save-excursion.
Glenn Morris <rgm@gnu.org>
parents:
45345
diff
changeset
|
2027 (progn (backward-char) |
0ea82abe061c
(fortran-current-defun): Use save-excursion.
Glenn Morris <rgm@gnu.org>
parents:
45345
diff
changeset
|
2028 (skip-chars-backward " \t")) |
0ea82abe061c
(fortran-current-defun): Use save-excursion.
Glenn Morris <rgm@gnu.org>
parents:
45345
diff
changeset
|
2029 (end-of-line)) |
0ea82abe061c
(fortran-current-defun): Use save-excursion.
Glenn Morris <rgm@gnu.org>
parents:
45345
diff
changeset
|
2030 ;; Use the name preceding that. |
0ea82abe061c
(fortran-current-defun): Use save-excursion.
Glenn Morris <rgm@gnu.org>
parents:
45345
diff
changeset
|
2031 (buffer-substring-no-properties (point) (progn (backward-sexp) |
0ea82abe061c
(fortran-current-defun): Use save-excursion.
Glenn Morris <rgm@gnu.org>
parents:
45345
diff
changeset
|
2032 (point))))) |
0ea82abe061c
(fortran-current-defun): Use save-excursion.
Glenn Morris <rgm@gnu.org>
parents:
45345
diff
changeset
|
2033 "main")))) |
28079
07cbc9269fbc
(fortran-comment-line-start): Define as
Dave Love <fx@gnu.org>
parents:
27417
diff
changeset
|
2034 |
584 | 2035 (provide 'fortran) |
2036 | |
68244
d5d3ecca3943
Move defvars out of eval-when-compile.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
66963
diff
changeset
|
2037 ;; arch-tag: 74935096-21c4-4cab-8ee5-6ef16090dc04 |
660
08eb386dd0f3
*** empty log message ***
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
584
diff
changeset
|
2038 ;;; fortran.el ends here |