annotate lisp/progmodes/f90.el @ 102632:1287a731cd99

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