annotate lisp/progmodes/f90.el @ 67201:ef8e06ff56b9

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